level4

level4:
	!MarioPalette		= $7F9E00

	LDX #$02
	.loop
	LDA Pala,x
	STA !MarioPalette,x
	DEX
	BPL .loop

	; disable pausing
	LDA #$01
	STA $13D3

	; disable all button presses except A and B
	LDA #$7F
	TRB $15 : TRB $16 : TRB $17 : TRB $18

	LDA $15
	AND #$80
	BEQ .notpressed

	LDX !OWLevelNum
	LDA #$01
	STA !CheckpointRAM,x

	; teleport
	LDA #$06
	STA $71
	STZ $89
	STZ $88
	STZ $14AF
	RTS

.notpressed
	LDA $14
	AND #$07
	BNE .ret4
	REP #$20
	LDA $0705
	CMP #$7FFF
	BNE .jump
	SEP #$20

	LDA $43 : EOR #$33 : STA $43 : AND #$03 : STA $42 : STA $41

	LDA $14AF		;\
	EOR #$FF		; | switch on/off flag
	STA $14AF		;/
	LDA #$08
	AND $0D9F
	BNE .jump
.ret4
	RTS

.jump
	SEP #$20
	JSR Spotlight
	RTS

Pala:
	dw $0000