ref: 94dc6955431171d4dba5833e5784e102dd045b49
dir: /engine/hall_of_fame.asm/
AnimateHallOfFame: ; 701a0 (1c:41a0) call Func_70423 call ClearScreen ld c, 100 call DelayFrames call LoadFontTilePatterns call LoadTextBoxTilePatterns call DisableLCD ld hl,vBGMap0 ld bc, $800 ld a, $7f call FillMemory call EnableLCD ld hl, rLCDC ; $ff40 set 3, [hl] xor a ld hl, wHallOfFame ld bc, HOF_TEAM call FillMemory xor a ld [wcfcb], a ld [$ffd7], a ld [W_SPRITEFLIPPED], a ld [wd358], a ld [wTrainerScreenY], a inc a ld [H_AUTOBGTRANSFERENABLED], a ; $ffba ld hl, wd5a2 ld a, [hl] inc a jr z, .asm_701eb inc [hl] .asm_701eb ld a, $90 ld [$ffb0], a ld c, BANK(Music_HallOfFame) ld a, MUSIC_HALL_OF_FAME call PlayMusic ld hl, wPartySpecies ld c, $ff .asm_701fb ld a, [hli] cp $ff jr z, .asm_70241 inc c push hl push bc ld [wWhichTrade], a ; wWhichTrade ld a, c ld [wTrainerEngageDistance], a ld hl, wPartyMon1Level ; wPartyMon1Level ld bc, wPartyMon2 - wPartyMon1 call AddNTimes ld a, [hl] ld [wTrainerFacingDirection], a call Func_70278 call Func_702e1 ld c, $50 call DelayFrames FuncCoord 2, 13 ld hl, Coord ld b, $3 ld c, $e call TextBoxBorder FuncCoord 4, 15 ld hl, Coord ld de, HallOfFameText call PlaceString ld c, 180 call DelayFrames call GBFadeOut2 pop bc pop hl jr .asm_701fb .asm_70241 ld a, c inc a ld hl, wHallOfFame ld bc, HOF_MON call AddNTimes ld [hl], $ff call SaveHallOfFameTeams xor a ld [wWhichTrade], a ; wWhichTrade inc a ld [wTrainerScreenY], a call Func_70278 call Func_70377 call Func_70423 xor a ld [$ffb0], a ld hl, rLCDC ; $ff40 res 3, [hl] ret HallOfFameText: ; 7026b (1c:426b) db "HALL OF FAME@" Func_70278: ; 70278 (1c:4278) call ClearScreen ld a, $d0 ld [$ffaf], a ld a, $c0 ld [$ffae], a ld a, [wWhichTrade] ; wWhichTrade ld [wcf91], a ld [wd0b5], a ld [wBattleMonSpecies2], a ld [wcf1d], a ld a, [wTrainerScreenY] and a jr z, .asm_7029d call Func_7033e jr .asm_702ab .asm_7029d FuncCoord 12, 5 ld hl, Coord call GetMonHeader call LoadFrontSpriteByMonIndex ld a, $4 call Predef .asm_702ab ld b, $b ld c, $0 call GoPAL_SET ld a, $e4 ld [rBGP], a ; $ff47 ld c, $31 call Func_7036d ld d, $a0 ld e, $4 ld a, [wcf1b] and a jr z, .asm_702c7 sla e .asm_702c7 call .asm_702d5 xor a ld [$ffaf], a ld c, a call Func_7036d ld d, $0 ld e, $fc .asm_702d5 call DelayFrame ld a, [$ffae] add e ld [$ffae], a cp d jr nz, .asm_702d5 ret Func_702e1: ; 702e1 (1c:42e1) ld a, [wTrainerEngageDistance] ld hl, wPartyMonNicks ; wPartyMonNicks call GetPartyMonName call Func_702f0 jp Func_70404 Func_702f0: ; 702f0 (1c:42f0) FuncCoord 0, 2 ld hl, Coord ld b, $9 ld c, $a call TextBoxBorder FuncCoord 2, 6 ld hl, Coord ld de, HoFMonInfoText call PlaceString FuncCoord 1, 4 ld hl, Coord ld de, wcd6d call PlaceString ld a, [wTrainerFacingDirection] FuncCoord 8, 7 ld hl, Coord call PrintLevelCommon ld a, [wWhichTrade] ; wWhichTrade ld [wd0b5], a FuncCoord 3, 9 ld hl, Coord ld a, $4b call Predef ld a, [wWhichTrade] ; wWhichTrade jp PlayCry HoFMonInfoText: ; 70329 (1c:4329) db "LEVEL/" next "TYPE1/" next "TYPE2/@" Func_7033e: ; 7033e (1c:433e) ld de, RedPicFront ; $6ede ld a, BANK(RedPicFront) call UncompressSpriteFromDE ld hl, S_SPRITEBUFFER1 ld de, $a000 ld bc, $310 call CopyData ld de, vFrontPic call InterlaceMergeSpriteBuffers ld de, RedPicBack ; $7e0a ld a, BANK(RedPicBack) call UncompressSpriteFromDE ld a, $3 call Predef ld de, vBackPic call InterlaceMergeSpriteBuffers ld c, $1 Func_7036d: ; 7036d (1c:436d) ld b, $0 FuncCoord 12, 5 ld hl, Coord ld a, $31 jp Predef Func_70377: ; 70377 (1c:4377) ld hl, wd747 set 3, [hl] ld a, $56 call Predef FuncCoord 0, 4 ld hl, Coord ld b, $6 ld c, $a call TextBoxBorder FuncCoord 5, 0 ld hl, Coord ld b, $2 ld c, $9 call TextBoxBorder FuncCoord 7, 2 ld hl, Coord ld de, wPlayerName ; wd158 call PlaceString FuncCoord 1, 6 ld hl, Coord ld de, HoFPlayTimeText call PlaceString FuncCoord 5, 7 ld hl, Coord ld de, W_PLAYTIMEHOURS + 1 ld bc, $103 call PrintNumber ld [hl], $6d inc hl ld de, W_PLAYTIMEMINUTES + 1 ld bc, $8102 call PrintNumber FuncCoord 1, 9 ld hl, Coord ld de, HoFMoneyText call PlaceString FuncCoord 4, 10 ld hl, Coord ld de, wPlayerMoney ; wPlayerMoney ld c, $a3 call PrintBCDNumber ld hl, DexSeenOwnedText call Func_703e2 ld hl, DexRatingText call Func_703e2 ld hl, wcc5d Func_703e2: ; 703e2 (1c:43e2) call PrintText ld c, $78 jp DelayFrames HoFPlayTimeText: ; 703ea (1c:43ea) db "PLAY TIME@" HoFMoneyText: ; 703f4 (1c:43f4) db "MONEY@" DexSeenOwnedText: ; 703fa (1c:43fa) TX_FAR _DexSeenOwnedText db "@" DexRatingText: ; 703ff (1c:43ff) TX_FAR _DexRatingText db "@" Func_70404: ; 70404 (1c:4404) ld hl, wHallOfFame ld bc, HOF_MON ld a, [wTrainerEngageDistance] call AddNTimes ld a, [wWhichTrade] ; wWhichTrade ld [hli], a ld a, [wTrainerFacingDirection] ld [hli], a ld e, l ld d, h ld hl, wcd6d ld bc, $b jp CopyData Func_70423: ; 70423 (1c:4423) ld a, $a ld [wcfc8], a ld [wcfc9], a ld a, $ff ld [wMusicHeaderPointer], a jp GBFadeOut2