;a regular coin ;by Iceguy, with modifications by Alcaro ;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 db $42 JMP Main : JMP Main : JMP Main : JMP Sprites : JMP Sprites : JMP return : JMP Sprites : JMP Main : JMP return : JMP return Sprites: LDA $14AD BEQ SpriteReturn MakeSolid: LDY #$01 LDA #$30 STA $1693 SpriteReturn: RTL Main: LDA $14AD BNE MakeSolid LDA #!SOUND STA !PORT ;play the sfx of a regular coin INC $1420 INC $1422 LDX $0DB3 INC $0F48,x PHY LDA $7F ORA $81 BNE Erase LDY #$03 LoopStart: LDA $17C0,Y BEQ CreateGlitter DEY BPL LoopStart CreateGlitter: LDA #$05 STA $17C0,Y LDA $9A AND #$F0 STA $17C8,Y LDA $98 AND #$F0 STA $17C4,Y LDA $1933 BEQ ADDR_00FD97 LDA $9A SEC SBC $26 AND #$F0 STA $17C8,Y LDA $98 SEC SBC $28 AND #$F0 STA $17C4,Y ADDR_00FD97: LDA #$10 STA $17CC,Y Erase: LDA #$02 ;erase self STA $9C JSL $00BEB0 ;generate blank block PLY ;restore map16 high return: RTL