mirror of https://github.com/pret/pokecrystal.git
415 lines
5.7 KiB
NASM
415 lines
5.7 KiB
NASM
Function8c001:: ; 8c001
|
|
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?
|
|
ld hl, wd846
|
|
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
|
|
|
|
|
|
; save bg palette 8
|
|
ld hl, wMapPals + 8 * 7 ; wMapPals + 7 pals
|
|
|
|
; save wram bank
|
|
ld a, [rSVBK]
|
|
ld b, a
|
|
; wram bank 5
|
|
ld a, 5
|
|
ld [rSVBK], a
|
|
|
|
; push palette
|
|
ld c, 4 ; NUM_PAL_COLORS
|
|
.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, $9
|
|
call GetSGBLayout
|
|
|
|
|
|
; restore bg palette 8
|
|
ld hl, Unkn2Pals - 1 ; last byte in wMapPals
|
|
|
|
; save wram bank
|
|
ld a, [rSVBK]
|
|
ld d, a
|
|
; wram bank 5
|
|
ld a, 5
|
|
ld [rSVBK], a
|
|
|
|
; pop palette
|
|
ld e, 4 ; NUM_PAL_COLORS
|
|
.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
|
|
|
|
FadeInPalettes:: ; 8c079
|
|
ld c, $12
|
|
call GetTimePalFade
|
|
ld b, $4
|
|
call ConvertTimePalsDecHL
|
|
ret
|
|
; 8c084
|
|
|
|
FadeOutPalettes:: ; 8c084
|
|
call Function8c0c1
|
|
ld c, $9
|
|
call GetTimePalFade
|
|
ld b, $4
|
|
call ConvertTimePalsIncHL
|
|
ret
|
|
; 8c092
|
|
|
|
Special_BattleTowerFade: ; 8c092
|
|
call Function8c0c1
|
|
ld c, $9
|
|
call GetTimePalFade
|
|
ld b, $4
|
|
.asm_8c09c
|
|
call DmgToCgbTimePals
|
|
rept 3
|
|
inc hl
|
|
endr
|
|
ld c, $7
|
|
call DelayFrames
|
|
dec b
|
|
jr nz, .asm_8c09c
|
|
ret
|
|
; 8c0ab
|
|
|
|
Special_FadeInQuickly: ; 8c0ab
|
|
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
|
|
|
|
|
|
Function8c0c1: ; 8c0c1
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, $5
|
|
ld [rSVBK], a
|
|
ld hl, wMapPals
|
|
ld a, [hli]
|
|
ld e, a
|
|
ld a, [hli]
|
|
ld d, a
|
|
ld hl, wMapPals + 8
|
|
ld c, $6
|
|
.asm_8c0d4
|
|
ld a, e
|
|
ld [hli], a
|
|
ld a, d
|
|
ld [hli], a
|
|
rept 6
|
|
inc hl
|
|
endr
|
|
dec c
|
|
jr nz, .asm_8c0d4
|
|
pop af
|
|
ld [rSVBK], a
|
|
ret
|
|
; 8c0e5
|
|
|
|
brightlevel: MACRO
|
|
db (\1 << 6) | (\2 << 4) | (\3 << 2) | \4
|
|
ENDM
|
|
|
|
Function8c0e5: ; 8c0e5
|
|
ld hl, .BrightnessLevels
|
|
ld a, [wc2d0]
|
|
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]
|
|
ld [wd847], a
|
|
ret
|
|
.DarkCave
|
|
ld a, [StatusFlags]
|
|
bit 2, a
|
|
jr nz, .UsedFlash
|
|
ld a, $ff ; 3, 3, 3, 3
|
|
ld [wd847], a
|
|
ret
|
|
.UsedFlash
|
|
ld a, $aa ; 2, 2, 2, 2
|
|
ld [wd847], a
|
|
ret
|
|
; 8c10f (23:410f)
|
|
|
|
.BrightnessLevels: ; 8c10f
|
|
brightlevel 3, 2, 1, 0
|
|
brightlevel 1, 1, 1, 1
|
|
brightlevel 2, 2, 2, 2
|
|
brightlevel 0, 0, 0, 0
|
|
brightlevel 3, 3, 3, 3
|
|
brightlevel 3, 2, 1, 0
|
|
brightlevel 3, 2, 1, 0
|
|
brightlevel 3, 2, 1, 0
|
|
; 8c117
|
|
|
|
GetTimePalette: ; 8c117
|
|
ld a, [TimeOfDay]
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, .TimePalettes
|
|
rept 2
|
|
add hl, de
|
|
endr
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp [hl]
|
|
; 8c126
|
|
|
|
.TimePalettes
|
|
dw .MorningPalette
|
|
dw .DayPalette
|
|
dw .NitePalette
|
|
dw .DarknessPalette
|
|
|
|
.MorningPalette
|
|
ld a, [wd847]
|
|
and %00000011 ; 0
|
|
ret
|
|
|
|
.DayPalette
|
|
ld a, [wd847]
|
|
and %00001100 ; 1
|
|
srl a
|
|
srl a
|
|
ret
|
|
|
|
.NitePalette
|
|
ld a, [wd847]
|
|
and %00110000 ; 2
|
|
swap a
|
|
ret
|
|
|
|
.DarknessPalette
|
|
ld a, [wd847]
|
|
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
|
|
rept 3
|
|
inc hl
|
|
endr
|
|
ld c, $2
|
|
call DelayFrames
|
|
dec b
|
|
jr nz, .loop
|
|
ret
|
|
; 8c16d
|
|
|
|
ConvertTimePalsDecHL: ; 8c16d
|
|
.loop
|
|
call DmgToCgbTimePals
|
|
rept 3
|
|
dec hl
|
|
endr
|
|
ld c, $2
|
|
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
|
|
rept 2
|
|
add hl, bc
|
|
endr
|
|
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
|
|
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
|