~rabbits/zombie

a4fd22f7ec00daf69d9ef2faefcbe2c551750e0f — Devine Lu Linvega 1 year, 9 months ago a8a4746
Starting mouse-picking in controls
2 files changed, 26 insertions(+), 6 deletions(-)

M build.sh
M src/main.tal
M build.sh => build.sh +1 -2
@@ 11,8 11,7 @@ then
fi

echo "Assembling.."
cat src/main.tal src/assets.tal src/song.tal > bin/zombie.tal
uxncli ~/roms/drifblim.rom bin/zombie.tal bin/zombie.rom
uxncli ~/roms/drifblim.rom src/main.tal bin/zombie.rom

if [ -d "$HOME/roms" ] && [ -e ./bin/zombie.rom ]
then

M src/main.tal => src/main.tal +25 -4
@@ 149,6 149,7 @@ BRK
	DUP #03 EQU ;on-touch-time JCN2
	DUP #04 GTH OVR #13 LTH AND ;on-touch-piano JCN2
	DUP #13 GTH OVR #1a LTH AND ;on-touch-drum JCN2
	DUP #1d GTH OVR #22 LTH AND ;on-touch-controls JCN2
	DUP #1b EQU ;on-touch-scroll JCN2
	POP



@@ 243,6 244,22 @@ BRK

BRK

@on-touch-controls ( y -> )

	.Mouse/x DEI2 #03 SFT2 NIP #02 SUB SWP

	OVR #03 LTH ,&on-chan JCN

	POP2

BRK

&on-chan ( x y -> )

		NIP #1e SUB ;set-chan JSR2

BRK

(
@|controls )



@@ 431,10 448,14 @@ JMP2r

@set-chan ( chan -- )

	#03 AND .sel/chan STZ
	;draw-controls JSR2
	;draw-piano-bars JSR2
	;draw-drum-bars JSR2
	#03 AND 
	DUP .sel/chan LDZ EQU ,&skip JCN
		DUP .sel/chan STZ
		;draw-controls JSR2
		;draw-piano-bars JSR2
		;draw-drum-bars JSR2
		&skip
	POP

JMP2r