neauoire
/
oquonie
mirror of https://git.sr.ht/~rabbits/oquonie
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Move start-map in collision event

This commit is contained in:
Devine Lu Linvega 2023-02-21 11:44:34 -08:00
parent 011e66265e
commit b79c4c713d
1 changed files with 10 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/oquonie.tal
View File

@ -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,16 +1343,12 @@ 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
&repeat ( times color addr* auto -- )
.Screen/auto DEO
.Screen/addr DEO2