1 files changed, 10 insertions(+), 2 deletions(-)

M src/markl.tal

@@ 338,6 338,11 @@
 	( y ) SUB2 .camera/fy STZ2
 	JMP2r
 
+@<focus-lock> ( -- )
+	.camera/fx LDZ2 .camera/x STZ2
+	.camera/fy LDZ2 .camera/y STZ2
+	JMP2r
+
 @<focus> ( -- )
 	.camera/x LDZ2 .camera/fx LDZ2 animate-focus .camera/x STZ2
 	.camera/y LDZ2 .camera/fy LDZ2 animate-focus .camera/y STZ2


@@ 415,8 420,11 @@
 	;&animation !<set-post-turn>
 
 	&animation ( -- )
-	{ "callback $1 }
-	STH2r <psln>
+	;player-fall-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-unlock-spell> ( addr* -- )