mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
80 lines
1.5 KiB
NASM
80 lines
1.5 KiB
NASM
|
InitDisplayForHallOfFame: ; 4e881
|
||
|
|
call ClearBGPalettes
|
||
|
|
call ClearTileMap
|
||
|
|
call ClearSprites
|
||
|
|
call DisableLCD
|
||
|
|
call LoadStandardFont
|
||
|
|
call LoadFontsBattleExtra
|
||
|
|
hlbgcoord 0, 0
|
||
|
|
ld bc, VBGMap1 - VBGMap0
|
||
|
|
ld a, " "
|
||
|
|
call ByteFill
|
||
|
|
hlcoord 0, 0, AttrMap
|
||
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
||
|
|
xor a
|
||
|
|
call ByteFill
|
||
|
|
xor a
|
||
|
|
ld [hSCY], a
|
||
|
|
ld [hSCX], a
|
||
|
|
call EnableLCD
|
||
|
|
ld hl, .SavingRecordDontTurnOff
|
||
|
|
call PrintText
|
||
|
|
call WaitBGMap2
|
||
|
|
call SetPalettes
|
||
|
|
ret
|
||
|
|
|
||
|
|
.SavingRecordDontTurnOff: ; 0x4e8bd
|
||
|
|
; SAVING RECORD… DON'T TURN OFF!
|
||
|
|
text_jump UnknownText_0x1bd39e
|
||
|
|
db "@"
|
||
|
|
|
||
|
|
InitDisplayForRedCredits: ; 4e8c2
|
||
|
|
call ClearBGPalettes
|
||
|
|
call ClearTileMap
|
||
|
|
call ClearSprites
|
||
|
|
call DisableLCD
|
||
|
|
call LoadStandardFont
|
||
|
|
call LoadFontsBattleExtra
|
||
|
|
hlbgcoord 0, 0
|
||
|
|
ld bc, VBGMap1 - VBGMap0
|
||
|
|
ld a, " "
|
||
|
|
call ByteFill
|
||
|
|
hlcoord 0, 0, AttrMap
|
||
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
||
|
|
xor a
|
||
|
|
call ByteFill
|
||
|
|
ld hl, UnknBGPals
|
||
|
|
ld c, 4 tiles
|
||
|
|
.load_white_palettes
|
||
|
|
ld a, (palred 31 + palgreen 31 + palblue 31) % $100
|
||
|
|
ld [hli], a
|
||
|
|
ld a, (palred 31 + palgreen 31 + palblue 31) / $100
|
||
|
|
ld [hli], a
|
||
|
|
dec c
|
||
|
|
jr nz, .load_white_palettes
|
||
|
|
xor a
|
||
|
|
ld [hSCY], a
|
||
|
|
ld [hSCX], a
|
||
|
|
call EnableLCD
|
||
|
|
call WaitBGMap2
|
||
|
|
call SetPalettes
|
||
|
|
ret
|
||
|
|
|
||
|
|
ResetDisplayBetweenHallOfFameMons: ; 4e906
|
||
|
|
ld a, [rSVBK]
|
||
|
|
push af
|
||
|
|
ld a, $6
|
||
|
|
ld [rSVBK], a
|
||
|
|
ld hl, wDecompressScratch
|
||
|
|
ld bc, wScratchAttrMap - wDecompressScratch
|
||
|
|
ld a, " "
|
||
|
|
call ByteFill
|
||
|
|
hlbgcoord 0, 0
|
||
|
|
ld de, wDecompressScratch
|
||
|
|
ld b, 0
|
||
|
|
ld c, 4 tiles
|
||
|
|
call Request2bpp
|
||
|
|
pop af
|
||
|
|
ld [rSVBK], a
|
||
|
|
ret
|