Leahnaya/pokegold
1
0
Fork 0
mirror of https://github.com/pret/pokegold.git synced 2026-09-11 01:55:21 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add engine/movie/init_hof_credits.asm

Browse Source
This commit is contained in:
libjet
2020-06-02 02:53:22 +01:00
parent 991832399b
commit ea845793bb
2 changed files with 61 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
engine/movie/init_hof_credits.asm Executable file
View File

@@ -0,0 +1,60 @@
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_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 SetPalettes
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_WIDTH * SCREEN_HEIGHT
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 SetPalettes
ret

13
main.asm
View File

@@ -239,18 +239,7 @@ INCLUDE "engine/events/field_moves.asm"
INCLUDE "engine/events/magnet_train.asm"
INCLUDE "engine/gfx/sprites.asm"
INCLUDE "engine/gfx/mon_icons.asm"
InitDisplayForHallOfFame::
IF DEF(_GOLD)
dr $8fdbe, $8fdff
InitDisplayForRedCredits::
dr $8fdff, $8fe43
ELIF DEF(_SILVER)
dr $8fda4, $8fde5
InitDisplayForRedCredits::
dr $8fde5, $8fe43
ENDC
INCLUDE "engine/movie/init_hof_credits.asm"
SECTION "bank24", ROMX