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
|
||||
|
||||
@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
|
||||
&draw ( e* -- )
|
||||
|
@ -957,20 +963,6 @@ 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 )
|
||||
|
||||
|
@ -1351,23 +1343,19 @@ JMP2r
|
|||
( dl ) #20 STH2kr #01 draw-frame/single
|
||||
( bb ) ,&w LDR #20 STH2kr #0010 ADD2 #01 draw-frame/repeat
|
||||
( dr ) #30 STH2r #00
|
||||
|
||||
( >> )
|
||||
|
||||
&single ( color addr* auto -- )
|
||||
.Screen/auto DEO
|
||||
.Screen/addr DEO2
|
||||
&paint ( mask -- )
|
||||
#85 SWP ORA .Screen/sprite DEO
|
||||
JMP2r
|
||||
|
||||
JMP2r
|
||||
&repeat ( times color addr* auto -- )
|
||||
.Screen/auto DEO
|
||||
.Screen/addr DEO2
|
||||
STH
|
||||
#00 &l STHkr draw-frame/paint INC GTHk ?&l POP2
|
||||
POPr
|
||||
JMP2r
|
||||
JMP2r
|
||||
|
||||
(
|
||||
@|animations )
|
||||
|
|
Loading…
Reference in New Issue