ref: 7350c3708fc2463e1eb6024c03de5c85b50aa38f
dir: /event/halloffame.asm/
HALLOFFAME_COLON EQU $63 HallOfFame:: ; 0x8640e call HallOfFame_FadeOutMusic ld a, [StatusFlags] push af ld a, 1 ld [wGameLogicPaused], a call DisableSpriteUpdates ld a, SPAWN_LANCE ld [wSpawnAfterChampion], a ; Enable the Pokégear map to cycle through all of Kanto ld hl, StatusFlags set 6, [hl] ; hall of fame callba HallOfFame_InitSaveIfNeeded ld hl, wHallOfFameCount ld a, [hl] cp 200 jr nc, .ok inc [hl] .ok callba SaveGameData call GetHallOfFameParty callba AddHallOfFameEntry xor a ld [wGameLogicPaused], a call AnimateHallOfFame pop af ld b, a callba Credits ret ; 0x86455 RedCredits:: ; 86455 ld a, MUSIC_NONE % $100 ld [MusicFadeID], a ld a, MUSIC_NONE / $100 ld [MusicFadeID + 1], a ld a, 10 ld [MusicFade], a callba FadeOutPalettes xor a ld [VramState], a ld [hMapAnims], a callba InitDisplayForRedCredits ld c, 8 call DelayFrames call DisableSpriteUpdates ld a, SPAWN_RED ld [wSpawnAfterChampion], a ld a, [StatusFlags] ld b, a callba Credits ret ; 8648e HallOfFame_FadeOutMusic: ; 8648e ld a, MUSIC_NONE % $100 ld [MusicFadeID], a ld a, MUSIC_NONE / $100 ld [MusicFadeID + 1], a ld a, 10 ld [MusicFade], a callba FadeOutPalettes xor a ld [VramState], a ld [hMapAnims], a callba InitDisplayForHallOfFame ld c, 100 jp DelayFrames ; 864b4 HallOfFame_PlayMusicDE: ; 864b4 push de ld de, MUSIC_NONE call PlayMusic call DelayFrame pop de call PlayMusic ret ; 864c3 AnimateHallOfFame: ; 864c3 xor a ld [wJumptableIndex], a call LoadHOFTeam jr c, .done ld de, MUSIC_HALL_OF_FAME call HallOfFame_PlayMusicDE xor a ld [wcf64], a .loop ld a, [wcf64] cp PARTY_LENGTH jr nc, .done ld hl, wHallOfFameTempMon1 ld bc, wHallOfFameTempMon1End - wHallOfFameTempMon1 call AddNTimes ld a, [hl] cp -1 jr z, .done push hl call AnimateHOFMonEntrance pop hl call .DisplayNewHallOfFamer jr c, .done ld hl, wcf64 inc [hl] jr .loop .done call HOF_AnimatePlayerPic ld a, $4 ld [MusicFade], a call RotateThreePalettesRight ld c, 8 call DelayFrames ret ; 8650c .DisplayNewHallOfFamer: ; 8650c call DisplayHOFMon ld de, .String_NewHallOfFamer hlcoord 1, 2 call PlaceString call WaitBGMap decoord 6, 5 ld c, $6 predef HOF_AnimateFrontpic ld c, 60 call DelayFrames and a ret ; 8652c .String_NewHallOfFamer: db "New Hall of Famer!@" ; 8653f GetHallOfFameParty: ; 8653f ld hl, OverworldMap ld bc, HOF_LENGTH xor a call ByteFill ld a, [wHallOfFameCount] ld de, OverworldMap ld [de], a inc de ld hl, PartySpecies ld c, 0 .next ld a, [hli] cp -1 jr z, .done cp EGG jr nz, .mon inc c jr .next .mon push hl push de push bc ld a, c ld hl, PartyMons ld bc, PARTYMON_STRUCT_LENGTH call AddNTimes ld c, l ld b, h ld hl, MON_SPECIES add hl, bc ld a, [hl] ld [de], a inc de ld hl, MON_ID add hl, bc ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a inc de ld hl, MON_DVS add hl, bc ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a inc de ld hl, MON_LEVEL add hl, bc ld a, [hl] ld [de], a inc de pop bc push bc ld a, c ld hl, PartyMonNicknames ld bc, PKMN_NAME_LENGTH call AddNTimes ld bc, PKMN_NAME_LENGTH - 1 call CopyBytes pop bc inc c pop de ld hl, HOF_MON_LENGTH add hl, de ld e, l ld d, h pop hl jr .next .done ld a, $ff ld [de], a ret ; 865b5 AnimateHOFMonEntrance: ; 865b5 push hl call ClearBGPalettes callba ResetDisplayBetweenHallOfFameMons pop hl ld a, [hli] ld [TempMonSpecies], a ld [CurPartySpecies], a inc hl inc hl ld a, [hli] ld [TempMonDVs], a ld a, [hli] ld [TempMonDVs + 1], a ld hl, TempMonDVs predef GetUnownLetter hlcoord 0, 0 ld bc, SCREEN_WIDTH * SCREEN_HEIGHT ld a, " " call ByteFill ld de, VTiles2 tile $31 predef GetBackpic ld a, $31 ld [hGraphicStartTile], a hlcoord 6, 6 lb bc, 6, 6 predef PlaceGraphic ld a, $d0 ld [hSCY], a ld a, $90 ld [hSCX], a call WaitBGMap xor a ld [hBGMapMode], a ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS call GetSGBLayout call SetPalettes call HOF_SlideBackpic xor a ld [wBoxAlignment], a hlcoord 0, 0 ld bc, SCREEN_WIDTH * SCREEN_HEIGHT ld a, " " call ByteFill hlcoord 6, 5 call _PrepMonFrontpic call WaitBGMap xor a ld [hBGMapMode], a ld [hSCY], a call HOF_SlideFrontpic ret ; 86635 HOF_SlideBackpic: .backpicloop ld a, [hSCX] cp $70 ret z add $4 ld [hSCX], a call DelayFrame jr .backpicloop ; 86643 HOF_SlideFrontpic: .frontpicloop ld a, [hSCX] and a ret z dec a dec a ld [hSCX], a call DelayFrame jr .frontpicloop ; 86650 _HallOfFamePC: ; 86650 call LoadFontsBattleExtra xor a ld [wJumptableIndex], a .MasterLoop: call LoadHOFTeam ret c call .DisplayTeam ret c ld hl, wJumptableIndex inc [hl] jr .MasterLoop .DisplayTeam: xor a ld [wcf64], a .next call .DisplayMonAndStrings jr c, .start_button .loop call JoyTextDelay ld hl, hJoyLast ld a, [hl] and B_BUTTON jr nz, .b_button ld a, [hl] and A_BUTTON jr nz, .a_button ld a, [hl] and START jr nz, .start_button call DelayFrame jr .loop .a_button ld hl, wcf64 inc [hl] jr .next .b_button scf ret .start_button and a ret .DisplayMonAndStrings: ; Print the number of times the player has entered the Hall of Fame. ; If that number is above 200, print "HOF Master!" instead. ld a, [wcf64] cp PARTY_LENGTH jr nc, .fail ld hl, wHallOfFameTempMon1 ld bc, wHallOfFameTempMon1End - wHallOfFameTempMon1 call AddNTimes ld a, [hl] cp -1 jr nz, .okay .fail scf ret .okay push hl call ClearBGPalettes pop hl call DisplayHOFMon ld a, [wHallOfFameTempWinCount] cp 200 + 1 jr c, .print_num_hof ld de, .HOFMaster hlcoord 1, 2 call PlaceString hlcoord 13, 2 jr .finish .print_num_hof ld de, .TimeFamer hlcoord 1, 2 call PlaceString hlcoord 2, 2 ld de, wHallOfFameTempWinCount lb bc, 1, 3 call PrintNum hlcoord 11, 2 .finish ld de, .EmptyString call PlaceString call WaitBGMap ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS call GetSGBLayout call SetPalettes decoord 6, 5 ld c, $6 predef HOF_AnimateFrontpic and a ret .EmptyString: db "@" .HOFMaster: db " HOF Master!@" .TimeFamer: db " -Time Famer@" ; 8671c LoadHOFTeam: ; 8671c ld a, [wJumptableIndex] cp NUM_HOF_TEAMS jr nc, .invalid ld hl, sHallOfFame ld bc, HOF_LENGTH call AddNTimes ld a, BANK(sHallOfFame) call GetSRAMBank ld a, [hl] and a jr z, .absent ld de, wHallOfFameTemp ld bc, HOF_LENGTH call CopyBytes call CloseSRAM and a ret .absent call CloseSRAM .invalid scf ret ; 86748 DisplayHOFMon: ; 86748 xor a ld [hBGMapMode], a ld a, [hli] ld [TempMonSpecies], a ld a, [hli] ld [TempMonID], a ld a, [hli] ld [TempMonID + 1], a ld a, [hli] ld [TempMonDVs], a ld a, [hli] ld [TempMonDVs + 1], a ld a, [hli] ld [TempMonLevel], a ld de, StringBuffer2 ld bc, PKMN_NAME_LENGTH - 1 call CopyBytes ld a, "@" ld [StringBuffer2 + 10], a hlcoord 0, 0 ld bc, SCREEN_WIDTH * SCREEN_HEIGHT ld a, " " call ByteFill hlcoord 0, 0 lb bc, 3, SCREEN_WIDTH - 2 call TextBox hlcoord 0, 12 lb bc, 4, SCREEN_WIDTH - 2 call TextBox ld a, [TempMonSpecies] ld [CurPartySpecies], a ld [wd265], a ld hl, TempMonDVs predef GetUnownLetter xor a ld [wBoxAlignment], a hlcoord 6, 5 call _PrepMonFrontpic ld a, [CurPartySpecies] cp EGG jr z, .print_id_no hlcoord 1, 13 ld a, "№" ld [hli], a ld [hl], "<DOT>" hlcoord 3, 13 ld de, wd265 lb bc, PRINTNUM_LEADINGZEROS | 1, 3 call PrintNum call GetBasePokemonName hlcoord 7, 13 call PlaceString ld a, TEMPMON ld [MonType], a callba GetGender ld a, " " jr c, .got_gender ld a, "♂" jr nz, .got_gender ld a, "♀" .got_gender hlcoord 18, 13 ld [hli], a hlcoord 8, 14 ld a, "/" ld [hli], a ld de, StringBuffer2 call PlaceString hlcoord 1, 16 call PrintLevel .print_id_no hlcoord 7, 16 ld a, "<ID>" ld [hli], a ld a, "№" ld [hli], a ld [hl], "/" hlcoord 10, 16 ld de, TempMonID lb bc, PRINTNUM_LEADINGZEROS | 2, 5 call PrintNum ret ; 86810 HOF_AnimatePlayerPic: ; 86810 call ClearBGPalettes ld hl, VTiles2 tile HALLOFFAME_COLON ld de, FontExtra + 13 tiles ; "<COLON>" lb bc, BANK(FontExtra), 1 call Request2bpp hlcoord 0, 0 ld bc, SCREEN_WIDTH * SCREEN_HEIGHT ld a, " " call ByteFill callba GetPlayerBackpic ld a, $31 ld [hGraphicStartTile], a hlcoord 6, 6 lb bc, 6, 6 predef PlaceGraphic ld a, $d0 ld [hSCY], a ld a, $90 ld [hSCX], a call WaitBGMap xor a ld [hBGMapMode], a ld [CurPartySpecies], a ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS call GetSGBLayout call SetPalettes call HOF_SlideBackpic xor a ld [wBoxAlignment], a hlcoord 0, 0 ld bc, SCREEN_WIDTH * SCREEN_HEIGHT ld a, " " call ByteFill callba HOF_LoadTrainerFrontpic xor a ld [hGraphicStartTile], a hlcoord 12, 5 lb bc, 7, 7 predef PlaceGraphic ld a, $c0 ld [hSCX], a call WaitBGMap xor a ld [hBGMapMode], a ld [hSCY], a call HOF_SlideFrontpic xor a ld [hBGMapMode], a hlcoord 0, 2 lb bc, 8, 9 call TextBox hlcoord 0, 12 lb bc, 4, 18 call TextBox hlcoord 2, 4 ld de, PlayerName call PlaceString hlcoord 1, 6 ld a, "<ID>" ld [hli], a ld a, "№" ld [hli], a ld [hl], "/" hlcoord 4, 6 ld de, PlayerID lb bc, PRINTNUM_LEADINGZEROS | 2, 5 call PrintNum hlcoord 1, 8 ld de, .PlayTime call PlaceString hlcoord 3, 9 ld de, GameTimeHours lb bc, 2, 3 call PrintNum ld [hl], HALLOFFAME_COLON inc hl ld de, GameTimeMinutes lb bc, PRINTNUM_LEADINGZEROS | 1, 2 call PrintNum call WaitBGMap callba ProfOaksPCRating ret ; 868ed .PlayTime: db "PLAY TIME@" ; 868f7