db $42

JMP MarioBelow : JMP MarioAbove : JMP MarioSide : JMP SpriteV : JMP SpriteH : JMP MarioCape : JMP MarioFireBall : JMP RETURN2 : JMP RETURN2 : JMP RETURN2

!SPRITENUMBER = $21	;sprite # to generate
!ISCUSTOM = $00		;set to 01 to generate custom or 00 for standard

!XDISP = $FFF6		;value added to block position on generation
!YDISP = $0000

Return_l:
	PLY
	RTL
MarioAbove:
MarioBelow:

LDA $16
AND #$40
BEQ RETURN2
PHY
LDA #$08
STA $1498
LDA #$06
STA $1DF9

if !ISCUSTOM
	SEC
else
	CLC
endif
	LDA #!SPRITENUMBER	;sprite to generate
	%spawn_sprite()
	TAX
	LDA #$06
	STA $14C8,x
	LDA #$40
	STA $1540,x

	REP #$20	;apply xdisp
	LDA $9A
	CLC
	ADC #!XDISP
	SEP #$20
	STA $E4,x
	XBA
	STA $14E0,x

	REP #$20	;apply ydisp
	LDA $98
	CLC
	ADC #!YDISP
	SEP #$20
	STA $D8,x
	XBA
	STA $14D4,x
	LDA #$02	;erase self
	STA $9C
	JSL $00BEB0	;generate blank block

PLY

RETURN2:

MarioSide:
MarioCape:
SpriteV:
SpriteH:
MarioFireBall:
	RTL

print "A planted Coin that can be plucked from the ground."