gauauu: look, we all paid $10K at some point in our lives for the privilege of hanging out with Kevin
gauauu: look, we all paid $10K at some point in our lives for the privilege of hanging out with Kevin
ldx #$00
: lda palette_address, x
sta $2007
inx
cpx #$20
bne :-
ldx current_level
lda palette_table_lo, x
sta palette_addy+0
lda palette_table_hi, x
sta palette_addy+1
lda #$3f
sta $2006
lda #$00
sta $2006
ldy #$00
: lda (palette_addy), y
sta $2007
iny
cpy #$20
bne :-
palette_table_lo:
.byte <palette_lvl1, <palette_lvl2, <palette_lvl3, <palette_lvl4
palette_table_hi:
.byte >palette_lvl1, >palette_lvl2, >palette_lvl3, >palette_lvl4
palette_lvl1:
.byte $0f,$07,$04,$0f, $0f,$07,$19,$0f, $0f,$0c,$04,$0f, $0f,$00,$27,$16
.byte $0f,$0f,$0f,$0f, $0f,$0f,$0f,$0f, $0f,$0f,$0f,$0f, $0f,$0f,$0f,$0f
palette_lvl2:
.byte $0f,$00,$10,$30, $0f,$0f,$0f,$0f, $0f,$0f,$0f,$0f, $0f,$0f,$0f,$0f
.byte $0f,$00,$10,$30, $0f,$0f,$0f,$0f, $0f,$0f,$0f,$0f, $0f,$0f,$0f,$0f
palette_lvl3:
; etc
palette_lvl4:
; etc