Double Jump Cape

!NumberOfAirJumps	= 1	;>How many jumps in a row (in decimal, applies if limit enabled), 0 = infinute (cheeta-jump).
 !Freeram_JumpCountLeft	= $60	;>[1 byte], a counter of how many jumps left (not applied if infinute).
!NJumpYSpeed		= $B0	;>How fast the player rises ($80-$FF where $80 is the fastest), normal jump.
!SJumpYSpeed		= $B6	;>Same as above, but spin.

;Note: Freeram is not autoconverted to SA-1 address. This is in case if you wanted to use freeram that the SA-1
;patch itself creates.


main:
.Airjump
	..Checks
    LDA $19
	CMP #$02
	BNE ..Return



	LDA $7B					; \ 
	CMP #$2F				; |
    BMI ..Return				; /


	LDA $77				;\If mario is on ground, restore jumps
	AND.b #%00000100		;|
	BNE ..RestoreJumps		;/
	LDA $74				;>If net/vine climbing...
	ORA $75				;>Or water
	BNE ..RestoreJumps		;>Then restore jumps
	LDA $71				;\Don't jump when doing such actions such as dying.
	BNE ..Return			;/
	;LDA $1407+!addr			;>If cape flying
	;ORA $75				;>and/or swimming
	;BNE ..Return			;>Then return.
	LDA $7D				;\If already going up, don't allow the player to waste jumps.
	BMI ..Return			;/
	LDA $16				;\If pressing jump, confirm
	BMI ...ContinueChecking		;/
	LDA $18				;\If not pressing spinjump nor jump, return
	BPL ..Return			;/

	...ContinueChecking
	if !NumberOfAirJumps != 0
		LDA !Freeram_JumpCountLeft	;\If no jumps left, return.
		BEQ ..Return			;/
	endif

	..JumpConfirm
	if !NumberOfAirJumps != 0
		LDA !Freeram_JumpCountLeft	;\Consume jump
		DEC A 				;|
		STA !Freeram_JumpCountLeft	;/
	endif

	..TypeOfJump
	LDA $16				;\Go to normal jump if B is pressed.
	BMI ...NormalJump		;/
	LDA $18				;\Go to spinjump if A is pressed.
	BPL ..Return			;/

	...Spinjump
	LDA #$01			;\Switch to spinjump
	STA $140D+!addr			;/
	LDA #!SJumpYSpeed		;\Spinjump up
	STA $7D				;/
	LDA #$04			;\SFX
	STA $1DFC+!addr			;/
	BRA ..BothJumps

	...NormalJump
	STZ $140D+!addr			;>Switch to normal jump
	LDA #!NJumpYSpeed		;\Jump up
	STA $7D				;/
	LDA #$01			;\SFX
	STA $1DFA+!addr			;/

	..BothJumps
	LDA #$0B			;\Jump pose (replaces long jump pose)
	STA $72				;/
	BRA ..Return			;>In case if you have code below.

	..RestoreJumps
	LDA.b #!NumberOfAirJumps
	STA !Freeram_JumpCountLeft

	..Return
	RTL