lorom

org $909C7B

	JSR $F640
	
org $90F640

	LDA $09A2
	BIT #$0020
	BNE GRAVITYSUIT
	LDA $05D5
	CMP #$0001
	BEQ HIGHERGRAVITY
	LDA #$1C00 ;This value is normal gravity
	RTS
	
	
GRAVITYSUIT:

	LDA #$1C00 ;Again, normal gravity (Also, you can make this lower if you want the gravity suit to have lower gravity than normal)
	RTS
	
HIGHERGRAVITY:

	LDA #$3C00 ;Gravity after HighGrav is turned on
	RTS
	
	
;Air Fool X-ray BTS $03-------------------------------------------
org $9498B2
	DW $B300
org $94B300

	LDA #$0001
	STA $05D5
	RTS
	
	
	
;Air Fool X-ray BTS $04-------------------------------------------
org $9498B4
	DW $B400
org $94B400

	STZ $05D5
	RTS