mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-03-21 17:45:52 -05:00
452a322140
Some checks failed
CI / build (push) Has been cancelled
* Split bank $0f into engine/battle/core.asm and engine/overworld/wildmons.asm * Split wildmon probabilities into separate data/wild/probabilities.inc file for consistency
68 lines
984 B
NASM
68 lines
984 B
NASM
INCLUDE "constants.asm"
|
|
|
|
SECTION "home/tilemap.asm", ROM0
|
|
|
|
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
|
|
|
|
; TODO: Change to SetDefaultBGPAndOBP
|
|
SetPalettes::
|
|
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
|