pokecrystal/engine/timeofdaypals.asm

416 lines
5.8 KiB
NASM
Raw Normal View History

2018-01-02 14:05:14 +00:00
DummyPredef35: ; 8c000
DummyPredef36:
ret
2015-12-14 16:12:18 +00:00
UpdateTimeOfDayPal:: ; 8c001
2015-10-24 14:34:19 +00:00
call UpdateTime
ld a, [TimeOfDay]
ld [CurTimeOfDay], a
call GetTimePalette
ld [TimeOfDayPal], a
ret
; 8c011
_TimeOfDayPals:: ; 8c011
; return carry if pals are changed
; forced pals?
2015-12-14 16:12:18 +00:00
ld hl, wTimeOfDayPalFlags
2015-10-24 14:34:19 +00:00
bit 7, [hl]
jr nz, .dontchange
; do we need to bother updating?
ld a, [TimeOfDay]
ld hl, CurTimeOfDay
cp [hl]
jr z, .dontchange
; if so, the time of day has changed
ld a, [TimeOfDay]
ld [CurTimeOfDay], a
; get palette id
call GetTimePalette
; same palette as before?
ld hl, TimeOfDayPal
cp [hl]
jr z, .dontchange
; update palette id
ld [TimeOfDayPal], a
2017-12-27 01:33:41 +00:00
; save bg palette 7
2018-01-01 14:08:21 +00:00
ld hl, wBGPals1 palette PAL_BG_TEXT
2015-10-24 14:34:19 +00:00
; save wram bank
ld a, [rSVBK]
ld b, a
; wram bank 5
2017-12-27 01:33:41 +00:00
ld a, $5
2015-10-24 14:34:19 +00:00
ld [rSVBK], a
; push palette
2017-12-27 01:33:41 +00:00
ld c, NUM_PAL_COLORS
2015-10-24 14:34:19 +00:00
.push
ld d, [hl]
inc hl
ld e, [hl]
inc hl
push de
dec c
jr nz, .push
; restore wram bank
ld a, b
ld [rSVBK], a
; update sgb pals
ld b, SCGB_MAPPALS
2015-10-24 14:34:19 +00:00
call GetSGBLayout
2017-12-27 01:33:41 +00:00
; restore bg palette 7
2018-01-01 14:08:21 +00:00
ld hl, wOBPals1 - 1 ; last byte in wBGPals1
2015-10-24 14:34:19 +00:00
; save wram bank
ld a, [rSVBK]
ld d, a
; wram bank 5
ld a, 5
ld [rSVBK], a
; pop palette
2017-12-27 01:33:41 +00:00
ld e, NUM_PAL_COLORS
2015-10-24 14:34:19 +00:00
.pop
pop bc
ld [hl], c
dec hl
ld [hl], b
dec hl
dec e
jr nz, .pop
; restore wram bank
ld a, d
ld [rSVBK], a
; update palettes
call _UpdateTimePals
call DelayFrame
; successful change
scf
ret
.dontchange
; no change occurred
and a
ret
; 8c070
_UpdateTimePals:: ; 8c070
ld c, $9 ; normal
call GetTimePalFade
call DmgToCgbTimePals
ret
; 8c079
2015-11-27 02:05:32 +00:00
FadeInPalettes:: ; 8c079
2015-10-24 14:34:19 +00:00
ld c, $12
call GetTimePalFade
ld b, $4
call ConvertTimePalsDecHL
ret
; 8c084
2015-11-27 02:05:32 +00:00
FadeOutPalettes:: ; 8c084
2015-12-15 01:06:41 +00:00
call FillWhiteBGColor
2015-10-24 14:34:19 +00:00
ld c, $9
call GetTimePalFade
ld b, $4
call ConvertTimePalsIncHL
ret
; 8c092
Special_BattleTowerFade: ; 8c092
2015-12-15 01:06:41 +00:00
call FillWhiteBGColor
2015-10-24 14:34:19 +00:00
ld c, $9
call GetTimePalFade
ld b, $4
.asm_8c09c
call DmgToCgbTimePals
inc hl
inc hl
inc hl
2015-10-24 14:34:19 +00:00
ld c, $7
call DelayFrames
dec b
jr nz, .asm_8c09c
ret
; 8c0ab
2015-11-27 02:05:32 +00:00
Special_FadeInQuickly: ; 8c0ab
2015-10-24 14:34:19 +00:00
ld c, $0
call GetTimePalFade
ld b, $4
call ConvertTimePalsIncHL
ret
; 8c0b6
Special_FadeBlackQuickly: ; 8c0b6
ld c, $9
call GetTimePalFade
ld b, $4
call ConvertTimePalsDecHL
ret
; 8c0c1
2015-12-15 01:06:41 +00:00
FillWhiteBGColor: ; 8c0c1
2015-10-24 14:34:19 +00:00
ld a, [rSVBK]
push af
ld a, $5
ld [rSVBK], a
2015-12-15 01:06:41 +00:00
2018-01-01 14:08:21 +00:00
ld hl, wBGPals1
2015-10-24 14:34:19 +00:00
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
2018-01-01 14:08:21 +00:00
ld hl, wBGPals1 + 1 palettes
2015-12-15 01:06:41 +00:00
ld c, 6
.loop
2015-10-24 14:34:19 +00:00
ld a, e
ld [hli], a
ld a, d
ld [hli], a
rept 6
inc hl
endr
dec c
2015-12-15 01:06:41 +00:00
jr nz, .loop
2015-10-24 14:34:19 +00:00
pop af
ld [rSVBK], a
ret
; 8c0e5
2015-12-14 16:12:18 +00:00
ReplaceTimeOfDayPals: ; 8c0e5
2015-10-24 14:34:19 +00:00
ld hl, .BrightnessLevels
2015-12-15 01:06:41 +00:00
ld a, [wMapTimeOfDay]
2015-10-24 14:34:19 +00:00
cp $4 ; Dark cave, needs Flash
jr z, .DarkCave
and $7
add l
ld l, a
ld a, $0
adc h
ld h, a
ld a, [hl]
2015-12-14 16:12:18 +00:00
ld [wTimeOfDayPalset], a
2015-10-24 14:34:19 +00:00
ret
2015-12-14 16:12:18 +00:00
.DarkCave:
ld a, [wStatusFlags]
2015-12-14 16:12:18 +00:00
bit 2, a ; Flash
2015-10-24 14:34:19 +00:00
jr nz, .UsedFlash
2015-12-14 16:12:18 +00:00
ld a, %11111111 ; 3, 3, 3, 3
ld [wTimeOfDayPalset], a
2015-10-24 14:34:19 +00:00
ret
2015-12-14 16:12:18 +00:00
.UsedFlash:
2015-12-14 16:12:18 +00:00
ld a, %10101010 ; 2, 2, 2, 2
ld [wTimeOfDayPalset], a
2015-10-24 14:34:19 +00:00
ret
; 8c10f (23:410f)
.BrightnessLevels: ; 8c10f
2017-12-14 05:36:24 +00:00
dc 3, 2, 1, 0
dc 1, 1, 1, 1
dc 2, 2, 2, 2
dc 0, 0, 0, 0
dc 3, 3, 3, 3
dc 3, 2, 1, 0
dc 3, 2, 1, 0
dc 3, 2, 1, 0
2015-10-24 14:34:19 +00:00
; 8c117
GetTimePalette: ; 8c117
ld a, [TimeOfDay]
ld e, a
ld d, 0
ld hl, .TimePalettes
add hl, de
add hl, de
2015-10-24 14:34:19 +00:00
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
2015-10-24 14:34:19 +00:00
; 8c126
.TimePalettes:
2015-10-24 14:34:19 +00:00
dw .MorningPalette
dw .DayPalette
dw .NitePalette
dw .DarknessPalette
.MorningPalette:
2015-12-14 16:12:18 +00:00
ld a, [wTimeOfDayPalset]
2015-10-24 14:34:19 +00:00
and %00000011 ; 0
ret
.DayPalette:
2015-12-14 16:12:18 +00:00
ld a, [wTimeOfDayPalset]
2015-10-24 14:34:19 +00:00
and %00001100 ; 1
srl a
srl a
ret
.NitePalette:
2015-12-14 16:12:18 +00:00
ld a, [wTimeOfDayPalset]
2015-10-24 14:34:19 +00:00
and %00110000 ; 2
swap a
ret
.DarknessPalette:
2015-12-14 16:12:18 +00:00
ld a, [wTimeOfDayPalset]
2015-10-24 14:34:19 +00:00
and %11000000 ; 3
rlca
rlca
ret
; 8c14e
DmgToCgbTimePals: ; 8c14e
push hl
push de
ld a, [hli]
call DmgToCgbBGPals
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
call DmgToCgbObjPals
pop de
pop hl
ret
; 8c15e
ConvertTimePalsIncHL: ; 8c15e
.loop
call DmgToCgbTimePals
inc hl
inc hl
inc hl
2015-12-15 01:06:41 +00:00
ld c, 2
2015-10-24 14:34:19 +00:00
call DelayFrames
dec b
jr nz, .loop
ret
; 8c16d
ConvertTimePalsDecHL: ; 8c16d
.loop
call DmgToCgbTimePals
dec hl
dec hl
dec hl
2015-12-15 01:06:41 +00:00
ld c, 2
2015-10-24 14:34:19 +00:00
call DelayFrames
dec b
jr nz, .loop
ret
; 8c17c
GetTimePalFade: ; 8c17c
; check cgb
ld a, [hCGB]
and a
jr nz, .cgb
; else: dmg
; index
ld a, [TimeOfDayPal]
and %11
; get fade table
push bc
ld c, a
ld b, $0
ld hl, .dmgfades
add hl, bc
add hl, bc
2015-10-24 14:34:19 +00:00
ld a, [hli]
ld h, [hl]
ld l, a
pop bc
; get place in fade table
ld b, $0
add hl, bc
ret
.cgb
ld hl, .cgbfade
ld b, $0
add hl, bc
ret
.dmgfades
dw .morn
dw .day
dw .nite
dw .darkness
.morn
db %11111111, %11111111, %11111111
db %11111110, %11111110, %11111110
db %11111001, %11100100, %11100100
db %11100100, %11010000, %11010000
db %10010000, %10000000, %10000000
db %01000000, %01000000, %01000000
db %00000000, %00000000, %00000000
.day
db %11111111, %11111111, %11111111
db %11111110, %11111110, %11111110
2015-10-24 14:34:19 +00:00
db %11111001, %11100100, %11100100
db %11100100, %11010000, %11010000
db %10010000, %10000000, %10000000
db %01000000, %01000000, %01000000
db %00000000, %00000000, %00000000
.nite
db %11111111, %11111111, %11111111
db %11111110, %11111110, %11111110
db %11111001, %11100100, %11100100
db %11101001, %11010000, %11010000
db %10010000, %10000000, %10000000
db %01000000, %01000000, %01000000
db %00000000, %00000000, %00000000
.darkness
db %11111111, %11111111, %11111111
db %11111110, %11111110, %11111111
db %11111110, %11100100, %11111111
db %11111101, %11010000, %11111111
db %11111101, %10000000, %11111111
db %00000000, %01000000, %00000000
db %00000000, %00000000, %00000000
.cgbfade
db %11111111, %11111111, %11111111
db %11111110, %11111110, %11111110
db %11111001, %11111001, %11111001
db %11100100, %11100100, %11100100
db %10010000, %10010000, %10010000
db %01000000, %01000000, %01000000
db %00000000, %00000000, %00000000
; 8c20f