ref: 76b882d9523915ca8ced96e8c5e889ca2728241e
dir: /engine/movie/hall_of_fame.asm/
AnimateHallOfFame: call HoFFadeOutScreenAndMusic call ClearScreen ld c, 100 call DelayFrames call LoadFontTilePatterns call LoadTextBoxTilePatterns call DisableLCD ld hl, vBGMap0 ld bc, $800 ld a, " " call FillMemory call EnableLCD ld hl, rLCDC set 3, [hl] xor a ld hl, wHallOfFame ld bc, HOF_TEAM call FillMemory xor a ld [wUpdateSpritesEnabled], a ldh [hTilesetType], a ld [wSpriteFlipped], a ld [wLetterPrintingDelayFlags], a ; no delay ld [wHoFMonOrPlayer], a ; mon inc a ldh [hAutoBGTransferEnabled], a ld hl, wNumHoFTeams ld a, [hl] inc a jr z, .skipInc ; don't wrap around to 0 inc [hl] .skipInc ld a, $90 ldh [hWY], a ld c, BANK(Music_HallOfFame) ld a, MUSIC_HALL_OF_FAME call PlayMusic ld hl, wPartySpecies ld c, $ff .partyMonLoop ld a, [hli] cp $ff jr z, .doneShowingParty inc c push hl push bc ld [wHoFMonSpecies], a ld a, c ld [wHoFPartyMonIndex], a ld hl, wPartyMon1Level ld bc, wPartyMon2 - wPartyMon1 call AddNTimes ld a, [hl] ld [wHoFMonLevel], a call HoFShowMonOrPlayer call HoFDisplayAndRecordMonInfo ld c, 80 call DelayFrames hlcoord 2, 13 ld b, 3 ld c, 14 call TextBoxBorder hlcoord 4, 15 ld de, HallOfFameText call PlaceString ld c, 180 call DelayFrames call GBFadeOutToWhite pop bc pop hl jr .partyMonLoop .doneShowingParty ld a, c inc a ld hl, wHallOfFame ld bc, HOF_MON call AddNTimes ld [hl], $ff call SaveHallOfFameTeams xor a ld [wHoFMonSpecies], a inc a ld [wHoFMonOrPlayer], a ; player call HoFShowMonOrPlayer call HoFDisplayPlayerStats call HoFFadeOutScreenAndMusic xor a ldh [hWY], a ld hl, rLCDC res 3, [hl] ret HallOfFameText: db "HALL OF FAME@" HoFShowMonOrPlayer: call ClearScreen ld a, $d0 ldh [hSCY], a ld a, $c0 ldh [hSCX], a ld a, [wHoFMonSpecies] ld [wcf91], a ld [wd0b5], a ld [wBattleMonSpecies2], a ld [wWholeScreenPaletteMonSpecies], a ld a, [wHoFMonOrPlayer] and a jr z, .showMon ; show player call HoFLoadPlayerPics jr .next1 .showMon hlcoord 12, 5 call GetMonHeader call LoadFrontSpriteByMonIndex predef LoadMonBackPic .next1 ld b, SET_PAL_POKEMON_WHOLE_SCREEN ld c, 0 call RunPaletteCommand ld a, %11100100 ldh [rBGP], a ld c, $31 ; back pic call HoFLoadMonPlayerPicTileIDs ld d, $a0 ld e, 4 ld a, [wOnSGB] and a jr z, .next2 sla e ; scroll more slowly on SGB .next2 call .ScrollPic ; scroll back pic left xor a ldh [hSCY], a ld c, a ; front pic call HoFLoadMonPlayerPicTileIDs ld d, 0 ld e, -4 ; scroll front pic right .ScrollPic call DelayFrame ldh a, [hSCX] add e ldh [hSCX], a cp d jr nz, .ScrollPic ret HoFDisplayAndRecordMonInfo: ld a, [wHoFPartyMonIndex] ld hl, wPartyMonNicks call GetPartyMonName call HoFDisplayMonInfo jp HoFRecordMonInfo HoFDisplayMonInfo: hlcoord 0, 2 ld b, 9 ld c, 10 call TextBoxBorder hlcoord 2, 6 ld de, HoFMonInfoText call PlaceString hlcoord 1, 4 ld de, wcd6d call PlaceString ld a, [wHoFMonLevel] hlcoord 8, 7 call PrintLevelCommon ld a, [wHoFMonSpecies] ld [wd0b5], a hlcoord 3, 9 predef PrintMonType ld a, [wHoFMonSpecies] jp PlayCry HoFMonInfoText: db "LEVEL/" next "TYPE1/" next "TYPE2/@" HoFLoadPlayerPics: ld de, RedPicFront ld a, BANK(RedPicFront) call UncompressSpriteFromDE ld hl, sSpriteBuffer1 ld de, sSpriteBuffer0 ld bc, $310 call CopyData ld de, vFrontPic call InterlaceMergeSpriteBuffers ld de, RedPicBack ld a, BANK(RedPicBack) call UncompressSpriteFromDE predef ScaleSpriteByTwo ld de, vBackPic call InterlaceMergeSpriteBuffers ld c, $1 HoFLoadMonPlayerPicTileIDs: ; c = base tile ID ld b, 0 hlcoord 12, 5 predef_jump CopyTileIDsFromList HoFDisplayPlayerStats: SetEvent EVENT_HALL_OF_FAME_DEX_RATING predef DisplayDexRating hlcoord 0, 4 ld b, 6 ld c, 10 call TextBoxBorder hlcoord 5, 0 ld b, 2 ld c, 9 call TextBoxBorder hlcoord 7, 2 ld de, wPlayerName call PlaceString hlcoord 1, 6 ld de, HoFPlayTimeText call PlaceString hlcoord 5, 7 ld de, wPlayTimeHours lb bc, 1, 3 call PrintNumber ld [hl], $6d inc hl ld de, wPlayTimeMinutes lb bc, LEADING_ZEROES | 1, 2 call PrintNumber hlcoord 1, 9 ld de, HoFMoneyText call PlaceString hlcoord 4, 10 ld de, wPlayerMoney ld c, $a3 call PrintBCDNumber ld hl, DexSeenOwnedText call HoFPrintTextAndDelay ld hl, DexRatingText call HoFPrintTextAndDelay ld hl, wDexRatingText HoFPrintTextAndDelay: call PrintText ld c, 120 jp DelayFrames HoFPlayTimeText: db "PLAY TIME@" HoFMoneyText: db "MONEY@" DexSeenOwnedText: text_far _DexSeenOwnedText text_end DexRatingText: text_far _DexRatingText text_end HoFRecordMonInfo: ld hl, wHallOfFame ld bc, HOF_MON ld a, [wHoFPartyMonIndex] call AddNTimes ld a, [wHoFMonSpecies] ld [hli], a ld a, [wHoFMonLevel] ld [hli], a ld e, l ld d, h ld hl, wcd6d ld bc, NAME_LENGTH jp CopyData HoFFadeOutScreenAndMusic: ld a, 10 ld [wAudioFadeOutCounterReloadValue], a ld [wAudioFadeOutCounter], a ld a, $ff ld [wAudioFadeOutControl], a jp GBFadeOutToWhite