@@ 39,7 39,7 @@
@player &room $2 &tile &x $1 &y $1 &posx $2 &posy $2 &safety $2
@drag &x $2 &y $2
@modify &x $1 &y $1
- @program &data $20 &flow $10 &counter &x $1 &y $1 &focus $1 &size &w $1 &h $1
+ @program &data $20 &flow $10 &counter &x $1 &y $1 &focus $1 &size &w $1 &h $1 &run $1
@interface &show $1
(
@@ 175,7 175,6 @@
@start-debug ( -- )
#0100 .program/size STZ2
<unlock-all>
-
( | room )
#0106 ;w1-1-stage !<enter-room>
@@ 215,6 214,7 @@
@<start-turn> ( -- )
[ LIT2 00 -Mouse/state ] DEO
+ [ LIT2 01 -program/run ] STZ
#0003 .program/counter STZ2
;on-mouse-turn .Mouse/vector DEO2
( hide mouse ) #40 ;fill-icn <update-cursor>
@@ 239,6 239,7 @@
@<release-turn> ( -- )
[ LIT2 00 -Mouse/state ] DEO
+ [ LIT2 00 -program/run ] STZ
;on-mouse-game .Mouse/vector DEO2
;on-frame .Screen/vector DEO2
<reqdraw>
@@ 586,7 587,9 @@
;square-button-icn/double <draw-tile-mono> } } }
INC GTHk ?&>l
POP2
- ( counter ) get-pc <pin-program>
+ ( | counter )
+ .program/run LDZ ?{ JMP2r }
+ get-pc <pin-program>
;live-icn !<draw-tile-mono>
@<draw-flow> ( id -- )