; on/Off Block (Updated)

; By Shog

; If you touch it from below, it will play sound effect, change either on or off and change to block right!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;SOUND TO CHANGE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



!Sound = $0B		; Sound effect used when Mario obtains the item from the block.

!SoundPort = $1DF9	; Sound port used when Mario obtains the item from the block.



;;;;;;;;;;;;;Sound TO CHANGE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

; Supported values for "!SoundPort" are $1DF9, $1DFA, and $1DFC

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Links:

; http://www.smwcentral.net/?p=thread&id=6665 - List of all sound effects.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



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



Main:	

LDA $14AF

BEQ Add

LDA #$00

STA $14AF

LDA #!Sound	; Play a sound..

STA !SoundPort	; And store it.

	REP #$20

	LDA $03

	CLC

	ADC #$0001

	STA $03

	JSR ChangeMap16

	SEP #$20

RTL

Add:

INC $14AF

LDA #!Sound	; Play a sound..

STA !SoundPort	; And store it.

	REP #$20

	LDA $03

	CLC

	ADC #$0001

	STA $03

	JSR ChangeMap16

	SEP #$20

Return:	

RTL			; Return

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

db $42 : JMP Main : JMP Main : JMP Main : JMP Return : JMP Return : JMP Return : JMP Return : JMP Main : JMP Main : JMP Main

;Disable Throwing Items Upwards Flag Patch

;By: Chdata & Fakescaper



!FreeSpace = $55F904



!UpFlag = $7C	;If non-zero, disable throwing items upwards



header

lorom



org $A21F

JML Main



org !FreeSpace	;

db "STAR"	;

;dw End-Main

;dw End-Main~	;Yes this does the same exact thing as ^#$FFFF

dw End-Main-1	;smkdan note: the above does not work, see hex editor for what really happens

dw End-Main-1^-1	



Main:		;Start of Patch

PHA		;Code Preservation

;LDA !UpFlag	;If freeram flag is not set			;COMMENT THESE TWO LINES

;BEQ .NotCarry	;Skip throwing an item upwards disabling	;IF YOU JUST WANT THIS TO BE GLOBAL

LDA $1470	;Carrying an item flag

BEQ .NotCarry	;If zero you aren't carrying anything so don't disable pressing the up arrow

.DisableUp	;Disable throwing items upward code below

REP #$20	;16-bit A

;LDA $15	;Load controller data

LDA #$0808	;NOT!!!

TRB $15		;Remove pressing up

SEP #$20	;8-bit A

.NotCarry	;Label

PLA		;Code Preserved

BEQ CODE_00A242	;Code

LDA $1493	;Restoration

JML $00A224	;Return

CODE_00A242:	;Label

JML $00A242	;Return #2

End:		;End of Patch

print "I'm psychic, I knew that you would patch this."

print "-Chdata-"

Tilemap:

db $C8,$C8,$C8,$C8



TileProperties:

db $42,$02,$03,$83,$03,$43,$03,$43



Frames:

db $00,$00,$01,$01,$02,$03,$03,$02



XSpeed:

db $20,$E0,$00,$00,$18,$18,$E8,$E8



YSpeed:

db $00,$00,$E0,$20,$E8,$18,$18,$E8

header

lorom



org $A21F

BEQ $21

LDA.w $1493