;a regular coin
;by Iceguy
;to be used with BTSD

;NOTE: YOU CAN REPLACE TILE 2B WITH THIS BLOCK, AND MAKE IT ACT LIKE TILE 25!


!COIN_TO_GIVE = $01 ;# of coins to give (1)
;DO NOT ADD A STUPID VALUE LIKE 1321 OTHERWISE IT WILL NOT
;WORK!

!SOUND = $01 ;sound to play for a coin
!PORT = $1DFC ;which port to play from
!1_UP_SFX = $05 ;sound to play for the 1up (100 coins)
!1_UP_PORT = $1DFC ;1up port
!1_UP_COINS = $64 ;coins needed for a 1-up, and resetting the counter
;it's in hex (64 = 100 in dec)
!1_UPS = $01 ;1ups to give when collecting 100 coins

JMP Main : JMP Main : JMP Main : JMP return : JMP return : JMP return : JMP return

MakeSolid:
LDY #$01
LDA #$30
STA $1693
RTL

Main:
LDA $14AE
BNE MakeSolid
LDA #!SOUND
STA !PORT ;play the sfx of a regular coin
LDA $0DBF
CLC
ADC #!COIN_TO_GIVE ;add coins
STA $0DBF


LDA $0DBF ;
;this is so that the counter does not display hex
CMP #!1_UP_COINS ;and go to values above 99 (like A0, B5, I4 etc.)
BEQ STZ_COIN
BCS STZ_COIN
BNE ERASE_COIN

STZ_COIN:
LDA $0DBE
CLC
ADC #!1_UPS ;add 1-ups
STA $0DBE
LDA #!1_UP_SFX
STA !1_UP_PORT
STZ $0DBF ;completely erase coin counter
PHY ;preserve map16 high
LDA #$02 ;erase self
STA $9C
JSL $00BEB0 ;generate blank block
PLY ;restore map16 high
RTL

ERASE_COIN:
PHY ;preserve map16 high
LDA #$02 ;erase self
STA $9C
JSL $00BEB0 ;generate blank block
PLY ;restore map16 high
RTL

return:
RTL