mirror of
https://github.com/pret/pokecrystal.git
synced 2026-04-27 08:57:06 -05:00
a55bc33d67
Some checks are pending
CI / build (push) Waiting to run
- Use single-quoted character literals or `CHARVAL` when you need
a character's numeric value; using strings as numbers is deprecated
- Use `?` to silence a node in warning/error location backtraces
- Use `===` and `!==` instead of `STRCMP`, and `++` instead of `STRCAT`
- Use `__SCOPE__` instead of checking for `..` and `.` separately
- Use `#string` instead of `"{string}"`
- All programs (rgbasm, rgblink, rgbfix, rgbgfx) support `-W` warnings
- `rgbgfx --colors dmg` is short for `rgbgfx --colors dmg=e4`
79 lines
1.3 KiB
NASM
79 lines
1.3 KiB
NASM
InitDisplayForHallOfFame:
|
|
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, wAttrmap
|
|
ld bc, SCREEN_AREA
|
|
xor a
|
|
call ByteFill
|
|
xor a
|
|
ldh [hSCY], a
|
|
ldh [hSCX], a
|
|
call EnableLCD
|
|
ld hl, .SavingRecordText
|
|
call PrintText
|
|
call WaitBGMap2
|
|
call SetDefaultBGPAndOBP
|
|
ret
|
|
|
|
.SavingRecordText:
|
|
text_far _SavingRecordText
|
|
text_end
|
|
|
|
InitDisplayForRedCredits:
|
|
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, wAttrmap
|
|
ld bc, SCREEN_AREA
|
|
xor a
|
|
call ByteFill
|
|
ld hl, wBGPals1
|
|
ld c, 4 tiles
|
|
.load_white_palettes
|
|
ld a, LOW(PALRGB_WHITE)
|
|
ld [hli], a
|
|
ld a, HIGH(PALRGB_WHITE)
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .load_white_palettes
|
|
xor a
|
|
ldh [hSCY], a
|
|
ldh [hSCX], a
|
|
call EnableLCD
|
|
call WaitBGMap2
|
|
call SetDefaultBGPAndOBP
|
|
ret
|
|
|
|
ResetDisplayBetweenHallOfFameMons:
|
|
ldh a, [rWBK]
|
|
push af
|
|
ld a, BANK(wDecompressScratch)
|
|
ldh [rWBK], 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
|
|
ldh [rWBK], a
|
|
ret
|