!H = $0667
!T = $0668
!O = $0669

JMP Main : JMP Main : JMP Main : JMP Return : JMP Return : JMP Return : JMP Return

Main:
        LDA #$1C
        STA $1DF9
        LDA !O                  ;check if O is 9
        CMP #$09
        BEQ ChangeT
        INC !O                  ;increment O
        JMP Glitter

ChangeT:
        LDA !T                  ;check if T is 9
        CMP #$09
        BEQ ChangeH
        INC !T                  ;increment T and STZ O
        STZ !O
        JMP Glitter

ChangeH:
        LDA !H                  ;check if H is 9
        CMP #$09
        BEQ Return
        INC !H                  ;increment H, STZ T and O
        STZ !T
        STZ !O

;this is so that a glitter effect is played when collecting
;a coin

Glitter:
	LDA $7F
        ORA $81
        BNE Return
        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_COIN:
        PHY		;preserve map16 high
        LDA #$02	;erase self
        STA $9C
        JSL $00BEB0	;generate blank block
        PLY		;restore map16 high
        RTL

Return:
        RTL