;straight cannon block (not finished)
Block525:
;!freeram_timer		=	$--------	;how long mario is able to be centered again
;!freeram_lock_ctrl	=	$--------	;setting flags of mairo's state (00 = able to move freely
						;01 = lock controls and mario is in cannon mode)

.PlayerBodyInside

	LDA $73			;\if mario croutching
	BEQ .return		;/
	LDA $93			;\
	BEQ .left		; |
	LDA $94			; |
	AND #$F0		; |
	CLC : ADC #$10		; |center mario horizontally
	STA $94			; |
	LDA $95			; |
	ADC #$00		; |
	STA $95			; |
	BRA .skip_center	; |
.left				; |
	LDA $94			; |
	AND #$F0		; |
	STA $94			;/
.skip_center			;
	LDA $7D			;\ fall down
	BMI .donecenter		; |
	LDA $96			; |
	BEQ .donecenter		; |
	LDA $96			; |center mario vertically
	AND #$F0		; |
	STA $96			;/
	BPL .donecenter
	STZ $7D
	BRA .donecenter

.PlayerAbove
	LDA $73			;\if mario croutching
	BEQ .return		;/
	LDA $7D			;\ fall down
	BMI .cancel_rise	;/
	LDA $96
	CLC : ADC #$10
	STA $96
	LDA $97
	ADC #$00
	STA $97
	RTL
.cancel_rise
	STZ $7D
.donecenter
	LDA #$09
	STA $1DFC
	LDA #$01
;	STA !freeram_lock_ctrl
	LDA #$3C
;	STA !freeram_timer
.PlayerBelow
.PlayerSides
.PlayerTopCorner
.PlayerHeadInside
.CapeTouch
.FireballTouch
.SpriteVert
.SpriteHoriz
.return
RTL