Posts by Sarcose

;The custom coin.
;Set it to act like tile 25 for more stable results.

db $42
JMP Work : JMP Work : JMP Work : JMP Return : JMP Return : JMP Return : JMP Return : JMP Work : JMP Work : JMP Work

;PLEASE NOTE: if you're going to mess with the values below, you must change them on all the other blocks related to this one as well!

	!Coins = 8		;Needed amout of custom coins (decimal!)
	!EmptyRAM = 5C		;Empty RAM adress for the custom coin counter ; originally 79


Work:
	PHY
	JSR Glitter	;Show glitter
	PLY
	PHY
	LDA #$02 	;Replace with block 25
	STA $9C
	JSL $00BEB0 	;Make the block disappear
	PLY
	INC $13CC	;Increment coin counter. Remove this line if you don't need it\
        %set_item_memory()

	LDA $!EmptyRAM
	CMP #$FF	;Counter won't reset if you get 256 coins
	BEQ Return
	INC $!EmptyRAM	;Increase !EmptyRAM counter
	LDA $!EmptyRAM
	CMP #!Coins	;Play correct SFX if total needed coins number reached
	BEQ SFX
	LDA #$01	;\Play "coin" SFX. Go http://smwc.me/t/6665 to
	STA $1DFC	;/find other SFX values so you can customize it
	RTL

Glitter:
	LDA $7F                   
        ORA $81                   
        BNE ReturnLoop
        LDY #$03	;Find free sprite effect slot

LoopStart:
        LDA $17C0,y
        BEQ CGlitter	;Branch if one found
        DEY
        BPL LoopStart

ReturnLoop:
	RTS			

CGlitter:	
	LDA #$05                
        STA $17C0,y             
        LDA $9A                   
        AND #$F0                
        STA $17C8,y             
        LDA $98                   
        AND #$F0                
        STA $17C4,y             
        LDA $1933               
        BEQ Addr           
        LDA $9A                   
        SEC                       
        SBC $26                   
        AND #$F0                
        STA $17C8,y             
        LDA $98                   
        SEC                       
        SBC $28                   
        AND #$F0                
        STA $17C4,y  
           
Addr:
        LDA #$10                
        STA $17CC,y             
	RTS                      

SFX:
	LDA #$29	;\Play "correct" SFX. Go http://smwc.me/t/6665 to
	STA $1DFC	;/find other SFX values so you can customize it

;	INC $14AF	;Uncomment this if you want the ON/OFF switch to turn off (see readme for details)

Return:
	RTL

CustObj20:
	;Red Coin tile 1570, uses item memory
	LDA #$70	
	STA $0C		
	LDA #$15	
	STA $0D		
	LDX #$02	
	JMP SingleBlockObjects

;pseudocode
  !Address = $someaddress
  !FLAG1 = 0x00000001
  !FLAG2 = 0x00000010
if !FLAG1 do something
if !FLAG2 do something also

Player blocked status - Used to check if player is blocked in a certain direction. Format: SxxMUDLR
The M bit means that the player is in the middle of a block.
The S bit indicates that the player is touching the side of the screens while horizontal screen scrolling is disabled.
UDLR = up, down, left, right (contact with walls).
L is checked each 4 frames when the player have negative X speed. Others frames is zero.
R is checked each 4 frames when the player have positive X speed. Others frames is zero.

LDA $77 : AND #$04

?main:
    BEQ Mario
    TAY
TargetSprite:
    STZ $01  ;original uses Y for the direction, we put it here in scratch
    LDA !E4,y
    SEC
    SBC !E4,x
    STA $0E
    LDA !14E0,y
    SBC !14E0,x
    STA $0F
    BPL +
    INC $01
    LDY $01
    RTL
+   LDY $01
    JMP ?+
Mario:
    LDY #$00    ;put 00 in Y
    LDA $94     ;Mario x position
    SEC
    SBC !E4,x   ;Sprite x position, low byte
    STA $0E     ;Distance
    LDA $95     ;Mario x position
    SBC !14E0,x ;Sprite x position, high byte
    STA $0F
    BPL ?+
    INY
?+
    RTL

;       A  = FF if Mario is the target
;       A  = sprite index if another sprite is the target
;       Output: Y = direction
;use $00 as 16-bit X for Mario or "Myself" sprite
;use $02 as 16-bit X for Target or "Myself" sprite
;X should be loaded as the originating sprite
;store Y
?main:
    CMP #$FF
    BEQ Mario
    TAY
Target:
    LDA !E4,x
    STA $00
    LDA !14E0,x
    STA $01
    LDA !E4,y
    STA $02
    LDA !14E0,y
    STA $03
    JMP Compare
Mario:
    LDA $94
    STA $00
    LDA $95
    STA $01
    LDA !E4,x
    STA $02
    LDA !14E0,x
    STA $03
Compare:
    LDY #$00
    REP #$20
    LDA $00
    CMP $02
    BCS .bigger ;Origin bigger means sprite is to left
.smaller:
    LDA $02
    SEC
    SBC $00
    STA $0D
    INY
    JMP ?+
.bigger:
    LDA $00
    SEC
    SBC $02
    STA $0D
?+
    SEP #$20
    RTL