lorom

;creates walljump blocks
;works with any block type that is considered to be solid and has bts 10
;I recommend using the normal 'solid block' type

org $909DB2

	JMP WALLJUMP
	
org $90F640
WALLJUMP:
	LDA $0DC4		;block index
	TAX
	LDA $7F6402,x	;BTS map
	AND #$00FF
	CMP #$0010		;compare BTS 10
	BEQ ALLOWJUMP
	STZ $0DD4
	JMP $9D77		;jumps to code after the walljump code
ALLOWJUMP:
	LDA $0A1C
	JMP $9DB5		;simply return to where we came from