1 files changed, 18 insertions(+), 3 deletions(-)

M src/markl.tal

@@ 153,7 153,7 @@
 	( | base spell )
 	( | empty spellbook )
 	<init-program>
-	( set-debug-state ) !start-debug
+	( set-debug-state ) !start-tutorial
 
 @start-tutorial ( -- )
 	#0000 .program/size STZ2


@@ 417,16 417,31 @@
 @<animate-warp> ( warp* -- )
 	#0004 ADD2 LDA2k ,&room STR2
 	INC2 INC2 LDA2 ,&pos STR2
-	;&animation !<set-post-turn>
+	;&delay !<set-post-turn>
+
+	&delay ( -- )
+	#d0 ;&animation !<animate-delay>
 
 	&animation ( -- )
-	;player-fall-chr <set-state>
+	;player-jump-chr <set-state>
 	.player/posy LDZ2 #0030 SUB2 #0001 ;&callback !<animate-player-posy>
 
 	&callback ( -- )
 	;player-idle-chr <set-state>
 	[ LIT2 &pos $2 ] [ LIT2 &room $2 ] !<enter-room>
 
+@<animate-delay> ( timer callback* -- )
+	,&callback STR2
+	,&timer STR
+	;&animation .Screen/vector DEO2
+	JMP2r
+
+	&animation ( -> )
+	[ LIT &timer $1 ] INCk ,&timer STR
+	?{
+		[ LIT2 &callback $2 ] JSR2 <reqdraw> !on-frame }
+	!on-frame
+
 @<animate-unlock-spell> ( addr* -- )
 	<highlight-spell>
 	;&animation !<set-post-turn>