mirror of https://git.sr.ht/~rabbits/oquonie
Move start-map in collision event
This commit is contained in:
parent
011e66265e
commit
b79c4c713d
|
@ -611,7 +611,13 @@ JMP2r
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@e/map =e/blank/draw =&collide =e/blank/load
|
@e/map =e/blank/draw =&collide =e/blank/load
|
||||||
&collide ( e* -- ) !start-map
|
&collide ( e* -- )
|
||||||
|
( lock timed redraw )
|
||||||
|
;on-frame-lock .Screen/vector DEO2
|
||||||
|
;on-map .Controller/vector DEO2
|
||||||
|
( fill screen )
|
||||||
|
;patt-icns/2 #05 draw-fill
|
||||||
|
#0003 ADD2 LDA !draw-map
|
||||||
|
|
||||||
@e/owl =&draw =&collide =&load
|
@e/owl =&draw =&collide =&load
|
||||||
&draw ( e* -- )
|
&draw ( e* -- )
|
||||||
|
@ -936,7 +942,7 @@ JMP2r
|
||||||
|
|
||||||
@get-spell ( e* -- spell )
|
@get-spell ( e* -- spell )
|
||||||
|
|
||||||
INC2k LDA2 ;e/ramen-lobby EQU2 ?&ramen
|
INC2k LDA2 ;e/ramen-lobby EQU2 ?&ramen
|
||||||
#0003 ADD2 LDA
|
#0003 ADD2 LDA
|
||||||
|
|
||||||
JMP2r
|
JMP2r
|
||||||
|
@ -957,20 +963,6 @@ JMP2r
|
||||||
|
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
(
|
|
||||||
@|map )
|
|
||||||
|
|
||||||
@start-map ( e* -- )
|
|
||||||
|
|
||||||
( lock timed redraw )
|
|
||||||
;on-frame-lock .Screen/vector DEO2
|
|
||||||
;on-map .Controller/vector DEO2
|
|
||||||
( fill screen )
|
|
||||||
;patt-icns/2 #05 draw-fill
|
|
||||||
#0003 ADD2 LDA
|
|
||||||
|
|
||||||
!draw-map
|
|
||||||
|
|
||||||
(
|
(
|
||||||
@|dialog )
|
@|dialog )
|
||||||
|
|
||||||
|
@ -1351,23 +1343,19 @@ JMP2r
|
||||||
( dl ) #20 STH2kr #01 draw-frame/single
|
( dl ) #20 STH2kr #01 draw-frame/single
|
||||||
( bb ) ,&w LDR #20 STH2kr #0010 ADD2 #01 draw-frame/repeat
|
( bb ) ,&w LDR #20 STH2kr #0010 ADD2 #01 draw-frame/repeat
|
||||||
( dr ) #30 STH2r #00
|
( dr ) #30 STH2r #00
|
||||||
|
|
||||||
( >> )
|
|
||||||
|
|
||||||
&single ( color addr* auto -- )
|
&single ( color addr* auto -- )
|
||||||
.Screen/auto DEO
|
.Screen/auto DEO
|
||||||
.Screen/addr DEO2
|
.Screen/addr DEO2
|
||||||
&paint ( mask -- )
|
&paint ( mask -- )
|
||||||
#85 SWP ORA .Screen/sprite DEO
|
#85 SWP ORA .Screen/sprite DEO
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
&repeat ( times color addr* auto -- )
|
&repeat ( times color addr* auto -- )
|
||||||
.Screen/auto DEO
|
.Screen/auto DEO
|
||||||
.Screen/addr DEO2
|
.Screen/addr DEO2
|
||||||
STH
|
STH
|
||||||
#00 &l STHkr draw-frame/paint INC GTHk ?&l POP2
|
#00 &l STHkr draw-frame/paint INC GTHk ?&l POP2
|
||||||
POPr
|
POPr
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
(
|
(
|
||||||
@|animations )
|
@|animations )
|
||||||
|
|
Loading…
Reference in New Issue