SlideAttack

!freeram = $0DC3|!addr
init:
	STZ !freeram
	RTL

main:
	LDA $7B
	BEQ .return
	LDA $1470|!addr
	BNE .return
	LDA $73
	BEQ .return
	LDA $77
	AND #$04
	BEQ .return
	LDA $1490|!addr
	BNE .hasStar
	LDA #$03
	STA $1490|!addr
	LDA #$12
	STA !freeram
	STZ $18D2|!addr
.hasStar
	LDA #$1C
	STA $13E0|!addr
.return
	LDA !freeram
	BNE .continue
	RTL	; Instead of a bunch of BRA's, why not RTLs to save space? Also, less cycles.
.continue
	DEC !freeram
	LDX #$00
	LDA $19
	CMP #$03
	BNE +
	LDX #$02
+	TXA
	ORA $0DB3|!addr
	ASL
	TAX
	REP #$20
	LDA .Palette,x
	STA $0D82|!addr
	SEP #$20
	RTL

.Palette
	dw $B2C8,$B2DC,$B2F0,$B304;