Added steps

build.sh

@@ -49,6 +49,8 @@ echo "Create events"
 cat etc/e.txt | uxncli bin/packer.rom bin/e.rom
 echo "Create blockers"
 cat etc/b.txt | uxncli bin/packer.rom bin/b.rom
+echo "Create steps"
+cat etc/s.txt | uxncli bin/packer.rom bin/s.rom
 
 echo ">> Running $DST"
 $EMU -s 3 $DST $ARG

etc/s.txt

@@ -0,0 +1,3 @@
+etc/a/s/1.tga 
+
+ 

src/oquonie.tal

@@ -201,12 +201,17 @@ JMP2r
 	#03d0 .File/length DEO2
 	;cache/b .File/read DEO2
 
+	;&sfile .File/name DEO2
+	#0280 .File/length DEO2
+	;cache/s .File/read DEO2
+
 JMP2r
 	&wfile "bin/w.rom $1
 	&ffile "bin/f.rom $1
 	&cfile "bin/c.rom $1
 	&efile "bin/e.rom $1
 	&bfile "bin/b.rom $1
+	&sfile "bin/s.rom $1
 
 (
 @|controls )
@@ -344,6 +349,7 @@ JMP2r
 	draw-walls
 	draw-floors
 	draw-events
+	draw-steps
 	.camera draw-marker
 	.center draw-marker
 
@@ -400,6 +406,29 @@ JMP2r
 
 JMP2r
 
+@draw-steps ( -- )
+
+	#0300
+	&left
+		#00 OVR #20 SFT2 ;steps-lut ADD2
+		( x ) LDA2k .camera/x LDZ2 ADD2 .Screen/x DEO2 INC2 INC2 
+		( y ) LDA2 .camera/y LDZ2 ADD2 .Screen/y DEO2
+		;cache/s draw-step/flip
+		INC GTHk ?&left
+	POP2
+	#0306
+	&right
+		#00 OVR #01 SUB #20 SFT2 ;steps-lut ADD2
+		( x ) LDA2k .camera/x LDZ2 ADD2 .Screen/x DEO2 INC2 INC2 
+		( y ) LDA2 .camera/y LDZ2 ADD2 .Screen/y DEO2
+		;cache/s draw-step
+		#01 SUB LTHk ?&right
+	POP2
+
+JMP2r
+
+
+
 @draw-wall ( addr* -- )
 
 	.Screen/addr DEO2
@@ -450,6 +479,31 @@ JMP2r
 
 JMP2r
 
+@draw-step ( addr* -- )
+
+	.Screen/addr DEO2
+	#76 .Screen/auto DEO
+	#fb
+	&l
+		#85 .Screen/sprite DEO
+		INC DUP ?&l
+	POP
+
+JMP2r
+
+&flip ( addr* -- )
+
+	.Screen/x DEI2k #0018 ADD2 ROT DEO2
+	.Screen/addr DEO2
+	#04 .Screen/auto DEO
+	#fb
+	&lf
+		#f8 draw-flip
+		INC DUP ?&lf
+	POP
+
+JMP2r
+
 @draw-events ( -- )
 
 	#0900
@@ -617,6 +671,14 @@ JMP2r
 0080 ffc8
 00a0 ffd8
 
+@steps-lut
+0000 0030
+0020 0040
+0040 0050
+0060 0050
+0080 0040
+00a0 0030
+
 @tiles-lut
 0040 0000
 0020 0010
@@ -640,4 +702,5 @@ JMP2r
 	&f $280
 	&c $e00
 	&e $380
-	&b $200
+	&b $1000
+	&s $280