pokecrystal/engine/movie/init_hof_credits.asm

79 lines
1.4 KiB
NASM
Raw Normal View History

2018-06-24 14:09:41 +00:00
InitDisplayForHallOfFame:
call ClearBGPalettes
call ClearTilemap
call ClearSprites
call DisableLCD
call LoadStandardFont
call LoadFontsBattleExtra
hlbgcoord 0, 0
2017-12-28 12:32:33 +00:00
ld bc, vBGMap1 - vBGMap0
ld a, " "
call ByteFill
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
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
2018-06-24 14:09:41 +00:00
InitDisplayForRedCredits:
call ClearBGPalettes
call ClearTilemap
call ClearSprites
call DisableLCD
call LoadStandardFont
call LoadFontsBattleExtra
hlbgcoord 0, 0
2017-12-28 12:32:33 +00:00
ld bc, vBGMap1 - vBGMap0
ld a, " "
call ByteFill
hlcoord 0, 0, wAttrmap
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
xor a
call ByteFill
2018-01-01 14:08:21 +00:00
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
2018-06-24 14:09:41 +00:00
ResetDisplayBetweenHallOfFameMons:
ldh a, [rSVBK]
push af
ld a, BANK(wDecompressScratch)
ldh [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
ldh [rSVBK], a
ret