;SMB3 P-Switch
;by Mirumo

db $42
JMP MarioBelow : JMP MarioAbove : JMP MarioSide : JMP SpriteV : JMP SpriteH : JMP MarioCape : JMP MarioFireBall
JMP MarioAbove : JMP Return : JMP Return

!FlatBlock = $0301      ; Flat P-Switch Map16
!PSwitchTime = $70
!Colour = $14AD      ; Blue = $14AD, Silver = $14AE   

if !Colour == $14AD
   print "A SMB3 blue P-Switch block."
else
   print "A SMB3 silver P-Switch block."
endif
   
MarioAbove:
   LDA #$20
   STA $1887
   LDA #$0E
   STA $1DFB
   LDA #$0B
   STA $1DF9
   LDA #!PSwitchTime   ; \ Timer
   STA !Colour      ; /

   REP #$10
        LDX.w #!FlatBlock
   %change_map16()
   SEP #$10
Return:
MarioBelow:
MarioSide:
SpriteV:
SpriteH:
MarioCape:
MarioFireBall:
   RTL