@@ 55,7 55,7 @@
&dp $1 &xp $1
&run $1 &sick $1
@table
- &a $1 &b $1 &c $1 &d $1 &selection $1
+ &a $1 &b $1 &c $1 &d $1 &selection $1 &timer $1
@cursor
&x $2 &y $2 &last $1
@frame
@@ 97,6 97,14 @@ BRK
@on-frame ( -> )
+ ( table timer )
+ .table/timer LDZ #00 = ,&no-timer JCN
+ .table/timer LDZ #01 - [ DUP ] .table/timer STZ
+ #00 ! ,&no-timer-end JCN
+ ;enter-room JSR2
+ &no-timer-end
+ &no-timer
+
( tween )
.player/hp LDZ2
GTHk #00 = ,&no-hp-dec JCN
@@ 131,8 139,8 @@ BRK
[ #02 ] !~ ,&no-b JCN
;run JSR2 POP BRK
&no-b
- [ #04 ] !~ ,&no-sel JCN
- ;start-game JSR2 POP BRK
+ [ #08 ] !~ ,&no-sel JCN
+ ( restart key, temp ) ;start-game JSR2 POP BRK
&no-sel
#04 SFT
[ #04 ] !~ ,&no-left JCN
@@ 173,13 181,19 @@ BRK
( start deck )
;init-deck JSR2
;shuffle-deck JSR2
+ ;dialogs/entered ;draw-dialog JSR2
+ ;enter-room JSR2
+
+RTN
+
+@enter-room ( -- )
+
;pull-card JSR2 #00 ;put-card JSR2
;pull-card JSR2 #01 ;put-card JSR2
;pull-card JSR2 #02 ;put-card JSR2
;pull-card JSR2 #03 ;put-card JSR2
;redraw JSR2
- ;dialogs/entered ;draw-dialog JSR2
RTN
@@ 392,7 406,7 @@ RTN
( detect room end )
;count-table JSR2 #04 ! ,&no-room-complete JCN
- #aa DEBUG
+ #30 .table/timer STZ
&no-room-complete
RTN