mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-09-30 22:17:35 -04:00
Alieneer
63 lines
895 B
NASM
63 lines
895 B
NASM
RestoreScreenAndReloadTiles::
|
|
call ClearSprites
|
|
ld hl, wStateFlags
|
|
set SPRITE_UPDATES_DISABLED_F, [hl]
|
|
call ReloadSpritesAndFont
|
|
call LoadFontExtra
|
|
call GetMemSGBLayout
|
|
jr WaitBGMap
|
|
|
|
ClearBGPalettes::
|
|
call ClearPalettes
|
|
WaitBGMap::
|
|
; Tell VBlank to update BG Map
|
|
ld a, $1
|
|
ldh [hBGMapMode], a
|
|
; Wait for it to do its magic
|
|
ld c, 3
|
|
call DelayFrames
|
|
ret
|
|
|
|
SetDefaultBGPAndOBP::
|
|
ld a, %11100100
|
|
ldh [rBGP], a
|
|
ld a, %11010000
|
|
ldh [rOBP0], a
|
|
ret
|
|
|
|
ClearPalettes::
|
|
xor a
|
|
ldh [rBGP], a
|
|
ldh [rOBP0], a
|
|
ldh [rOBP1], a
|
|
ret
|
|
|
|
GetMemSGBLayout::
|
|
ld b, SGB_RAM
|
|
GetSGBLayout::
|
|
ld a, [wSGB]
|
|
and a
|
|
ret z
|
|
predef_jump LoadSGBLayout
|
|
|
|
SetHPPal::
|
|
ld a, e
|
|
cp 27 ; 56.25%
|
|
ld d, $0
|
|
jr nc, .done
|
|
cp 10 ; 20.83%
|
|
inc d
|
|
jr nc, .done
|
|
inc d
|
|
.done:
|
|
ld [hl], d
|
|
ret
|
|
|
|
ReloadSpritesAndFont::
|
|
call DisableLCD
|
|
callfar LoadStandingSpritesGFX
|
|
call LoadFont
|
|
call UpdateSprites
|
|
call EnableLCD
|
|
ret
|