!Freespace = $968000
!YourDeadFlag = $Freeram
!LEVEL = $xxxx
!PROPERTIES = $xx

header
lorom

org $EA08
JML HACHEATERS
NOP

org !Freespace
db "STAR"
dw HACHDESTROYERS-HACHEATERS-1
dw HACHDESTROYERS-HACHEATERS-1^-1

HACHEATERS:			;Apparently you taste good Hach
LDA $77				;SxxMUDLR
AND #$10			;In the middle of a block?
BEQ LROMG			;If you aren't in the middle of a block YOU MUST DIE!!!

Yoah:				;If you are in the middle of a block teleporter to a predefined spa resort
LDA $5B
BEQ Horz
LDX $97
BRA Setup
Horz:
LDX $95				;mario X pos high
Setup:
PEA !LEVEL			;push teleport destination
PLA				;low byte
STA $19B8,x			;write exit table
PLA				;high byte
ORA #$04			;exit present
ORA #!PROPERTIES	
STA $19D8,x			;write high bit and properties

.Tele
;;;;;;;;;;;;;;;;;
LDA #$06	;
STA $71		;Teleport to current screen exit
STZ $89		;(Which was forcibly changed anyways)
STZ $88		;
;;;;;;;;;;;;;;;;;

BRA NotButtons			;We guarantee anti-death on your trip to the spa

LROMG:
LDA !YourDeadFlag		;If you're already dying
BNE NotButtons			;Disable overkill
JSL $00F606			;Especially when in midair

NotButtons:
STZ $15
STZ $16
STZ $17
STZ $18
JML $00EA32
HACHDESTROYERS: