2017-12-09 17:24:50 +00:00
|
|
|
HALLOFFAME_COLON EQU $63
|
|
|
|
|
2015-11-19 23:07:20 +00:00
|
|
|
HallOfFame:: ; 0x8640e
|
2015-11-27 02:05:32 +00:00
|
|
|
call HallOfFame_FadeOutMusic
|
2017-12-28 12:15:46 +00:00
|
|
|
ld a, [wStatusFlags]
|
2015-11-19 23:07:20 +00:00
|
|
|
push af
|
|
|
|
ld a, 1
|
2016-05-08 18:11:24 +00:00
|
|
|
ld [wGameLogicPaused], a
|
2015-11-19 23:07:20 +00:00
|
|
|
call DisableSpriteUpdates
|
|
|
|
ld a, SPAWN_LANCE
|
|
|
|
ld [wSpawnAfterChampion], a
|
|
|
|
|
|
|
|
; Enable the Pokégear map to cycle through all of Kanto
|
2017-12-28 12:15:46 +00:00
|
|
|
ld hl, wStatusFlags
|
2018-01-22 20:40:43 +00:00
|
|
|
set STATUSFLAGS_HALL_OF_FAME_F, [hl]
|
2015-11-19 23:07:20 +00:00
|
|
|
|
2017-12-24 17:47:30 +00:00
|
|
|
farcall HallOfFame_InitSaveIfNeeded
|
2015-11-19 23:07:20 +00:00
|
|
|
|
|
|
|
ld hl, wHallOfFameCount
|
|
|
|
ld a, [hl]
|
2018-03-04 05:27:22 +00:00
|
|
|
cp HOF_MASTER_COUNT
|
2015-11-19 23:07:20 +00:00
|
|
|
jr nc, .ok
|
|
|
|
inc [hl]
|
|
|
|
.ok
|
2017-12-24 17:47:30 +00:00
|
|
|
farcall SaveGameData
|
2015-11-19 23:07:20 +00:00
|
|
|
call GetHallOfFameParty
|
2017-12-24 17:47:30 +00:00
|
|
|
farcall AddHallOfFameEntry
|
2015-11-19 23:07:20 +00:00
|
|
|
|
|
|
|
xor a
|
2016-05-08 18:11:24 +00:00
|
|
|
ld [wGameLogicPaused], a
|
2015-11-27 02:05:32 +00:00
|
|
|
call AnimateHallOfFame
|
2015-11-19 23:07:20 +00:00
|
|
|
pop af
|
|
|
|
ld b, a
|
2017-12-24 17:47:30 +00:00
|
|
|
farcall Credits
|
2015-11-19 23:07:20 +00:00
|
|
|
ret
|
|
|
|
; 0x86455
|
|
|
|
|
|
|
|
RedCredits:: ; 86455
|
2017-12-25 18:40:10 +00:00
|
|
|
ld a, LOW(MUSIC_NONE)
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wMusicFadeID], a
|
2017-12-25 18:40:10 +00:00
|
|
|
ld a, HIGH(MUSIC_NONE)
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wMusicFadeID + 1], a
|
2015-11-27 02:05:32 +00:00
|
|
|
ld a, 10
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wMusicFade], a
|
2018-01-24 16:17:05 +00:00
|
|
|
farcall FadeOutPalettes
|
2015-11-19 23:07:20 +00:00
|
|
|
xor a
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wVramState], a
|
2015-11-19 23:07:20 +00:00
|
|
|
ld [hMapAnims], a
|
2017-12-24 17:47:30 +00:00
|
|
|
farcall InitDisplayForRedCredits
|
2015-11-19 23:07:20 +00:00
|
|
|
ld c, 8
|
|
|
|
call DelayFrames
|
|
|
|
call DisableSpriteUpdates
|
|
|
|
ld a, SPAWN_RED
|
|
|
|
ld [wSpawnAfterChampion], a
|
2017-12-28 12:15:46 +00:00
|
|
|
ld a, [wStatusFlags]
|
2015-11-19 23:07:20 +00:00
|
|
|
ld b, a
|
2017-12-24 17:47:30 +00:00
|
|
|
farcall Credits
|
2015-11-19 23:07:20 +00:00
|
|
|
ret
|
|
|
|
; 8648e
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
HallOfFame_FadeOutMusic: ; 8648e
|
2017-12-25 18:40:10 +00:00
|
|
|
ld a, LOW(MUSIC_NONE)
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wMusicFadeID], a
|
2017-12-25 18:40:10 +00:00
|
|
|
ld a, HIGH(MUSIC_NONE)
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wMusicFadeID + 1], a
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, 10
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wMusicFade], a
|
2018-01-24 16:17:05 +00:00
|
|
|
farcall FadeOutPalettes
|
2015-11-19 23:07:20 +00:00
|
|
|
xor a
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wVramState], a
|
2015-11-19 23:07:20 +00:00
|
|
|
ld [hMapAnims], a
|
2017-12-24 17:47:30 +00:00
|
|
|
farcall InitDisplayForHallOfFame
|
2015-11-19 23:07:20 +00:00
|
|
|
ld c, 100
|
|
|
|
jp DelayFrames
|
|
|
|
; 864b4
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
HallOfFame_PlayMusicDE: ; 864b4
|
2015-11-19 23:07:20 +00:00
|
|
|
push de
|
|
|
|
ld de, MUSIC_NONE
|
|
|
|
call PlayMusic
|
|
|
|
call DelayFrame
|
|
|
|
pop de
|
|
|
|
call PlayMusic
|
|
|
|
ret
|
|
|
|
; 864c3
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
AnimateHallOfFame: ; 864c3
|
2015-11-19 23:07:20 +00:00
|
|
|
xor a
|
|
|
|
ld [wJumptableIndex], a
|
2015-11-27 02:05:32 +00:00
|
|
|
call LoadHOFTeam
|
2015-11-19 23:07:20 +00:00
|
|
|
jr c, .done
|
2015-11-27 02:05:32 +00:00
|
|
|
ld de, MUSIC_HALL_OF_FAME
|
|
|
|
call HallOfFame_PlayMusicDE
|
2015-11-19 23:07:20 +00:00
|
|
|
xor a
|
2018-01-11 20:36:11 +00:00
|
|
|
ld [wHallOfFameMonCounter], a
|
2015-11-19 23:07:20 +00:00
|
|
|
.loop
|
2018-01-11 20:36:11 +00:00
|
|
|
ld a, [wHallOfFameMonCounter]
|
2015-11-27 02:05:32 +00:00
|
|
|
cp PARTY_LENGTH
|
2015-11-19 23:07:20 +00:00
|
|
|
jr nc, .done
|
2015-11-27 02:05:32 +00:00
|
|
|
ld hl, wHallOfFameTempMon1
|
|
|
|
ld bc, wHallOfFameTempMon1End - wHallOfFameTempMon1
|
2015-11-19 23:07:20 +00:00
|
|
|
call AddNTimes
|
|
|
|
ld a, [hl]
|
|
|
|
cp -1
|
|
|
|
jr z, .done
|
|
|
|
push hl
|
2015-11-27 02:05:32 +00:00
|
|
|
call AnimateHOFMonEntrance
|
2015-11-19 23:07:20 +00:00
|
|
|
pop hl
|
2015-11-27 02:05:32 +00:00
|
|
|
call .DisplayNewHallOfFamer
|
2015-11-19 23:07:20 +00:00
|
|
|
jr c, .done
|
2018-01-11 20:36:11 +00:00
|
|
|
ld hl, wHallOfFameMonCounter
|
2015-11-19 23:07:20 +00:00
|
|
|
inc [hl]
|
|
|
|
jr .loop
|
|
|
|
|
|
|
|
.done
|
2016-01-12 17:46:18 +00:00
|
|
|
call HOF_AnimatePlayerPic
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, $4
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wMusicFade], a
|
2015-11-20 16:47:52 +00:00
|
|
|
call RotateThreePalettesRight
|
2015-11-19 23:07:20 +00:00
|
|
|
ld c, 8
|
|
|
|
call DelayFrames
|
|
|
|
ret
|
|
|
|
; 8650c
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
.DisplayNewHallOfFamer: ; 8650c
|
|
|
|
call DisplayHOFMon
|
|
|
|
ld de, .String_NewHallOfFamer
|
2015-11-19 23:07:20 +00:00
|
|
|
hlcoord 1, 2
|
|
|
|
call PlaceString
|
|
|
|
call WaitBGMap
|
|
|
|
decoord 6, 5
|
|
|
|
ld c, $6
|
2018-01-16 19:30:10 +00:00
|
|
|
predef HOF_AnimateFrontpic
|
2015-11-19 23:07:20 +00:00
|
|
|
ld c, 60
|
|
|
|
call DelayFrames
|
|
|
|
and a
|
|
|
|
ret
|
|
|
|
; 8652c
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
.String_NewHallOfFamer:
|
2015-11-19 23:07:20 +00:00
|
|
|
db "New Hall of Famer!@"
|
|
|
|
; 8653f
|
|
|
|
|
|
|
|
|
|
|
|
GetHallOfFameParty: ; 8653f
|
2018-03-19 15:36:14 +00:00
|
|
|
ld hl, wHallOfFamePokemonList
|
|
|
|
ld bc, wHallOfFamePokemonListEnd - wHallOfFamePokemonList + 1
|
2015-11-19 23:07:20 +00:00
|
|
|
xor a
|
|
|
|
call ByteFill
|
|
|
|
ld a, [wHallOfFameCount]
|
2018-03-19 15:36:14 +00:00
|
|
|
ld de, wHallOfFamePokemonList
|
2015-11-19 23:07:20 +00:00
|
|
|
ld [de], a
|
|
|
|
inc de
|
2018-01-23 22:39:09 +00:00
|
|
|
ld hl, wPartySpecies
|
2015-11-19 23:07:20 +00:00
|
|
|
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
|
2018-01-23 22:39:09 +00:00
|
|
|
ld hl, wPartyMons
|
2015-11-19 23:07:20 +00:00
|
|
|
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
|
2018-01-23 22:39:09 +00:00
|
|
|
ld hl, wPartyMonNicknames
|
2018-01-20 17:25:55 +00:00
|
|
|
ld bc, MON_NAME_LENGTH
|
2015-11-19 23:07:20 +00:00
|
|
|
call AddNTimes
|
2018-01-20 17:25:55 +00:00
|
|
|
ld bc, MON_NAME_LENGTH - 1
|
2015-11-19 23:07:20 +00:00
|
|
|
call CopyBytes
|
|
|
|
|
|
|
|
pop bc
|
|
|
|
inc c
|
|
|
|
pop de
|
2018-03-19 15:36:14 +00:00
|
|
|
ld hl, wHallOfFamePokemonListMon1End - wHallOfFamePokemonListMon1
|
2015-11-19 23:07:20 +00:00
|
|
|
add hl, de
|
|
|
|
ld e, l
|
|
|
|
ld d, h
|
|
|
|
pop hl
|
|
|
|
jr .next
|
|
|
|
|
|
|
|
.done
|
2018-03-19 15:36:14 +00:00
|
|
|
ld a, -1
|
2015-11-19 23:07:20 +00:00
|
|
|
ld [de], a
|
|
|
|
ret
|
|
|
|
; 865b5
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
AnimateHOFMonEntrance: ; 865b5
|
2015-11-19 23:07:20 +00:00
|
|
|
push hl
|
|
|
|
call ClearBGPalettes
|
2017-12-24 17:47:30 +00:00
|
|
|
farcall ResetDisplayBetweenHallOfFameMons
|
2015-11-19 23:07:20 +00:00
|
|
|
pop hl
|
|
|
|
ld a, [hli]
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wTempMonSpecies], a
|
|
|
|
ld [wCurPartySpecies], a
|
2015-11-19 23:07:20 +00:00
|
|
|
inc hl
|
2016-05-04 15:46:23 +00:00
|
|
|
inc hl
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, [hli]
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wTempMonDVs], a
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, [hli]
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wTempMonDVs + 1], a
|
|
|
|
ld hl, wTempMonDVs
|
2018-01-16 19:30:10 +00:00
|
|
|
predef GetUnownLetter
|
2015-11-19 23:07:20 +00:00
|
|
|
hlcoord 0, 0
|
|
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
|
|
ld a, " "
|
|
|
|
call ByteFill
|
2017-12-28 12:32:33 +00:00
|
|
|
ld de, vTiles2 tile $31
|
2018-01-16 19:30:10 +00:00
|
|
|
predef GetMonBackpic
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, $31
|
2016-01-12 17:46:18 +00:00
|
|
|
ld [hGraphicStartTile], a
|
2015-11-19 23:07:20 +00:00
|
|
|
hlcoord 6, 6
|
|
|
|
lb bc, 6, 6
|
2018-01-16 19:30:10 +00:00
|
|
|
predef PlaceGraphic
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, $d0
|
|
|
|
ld [hSCY], a
|
|
|
|
ld a, $90
|
|
|
|
ld [hSCX], a
|
|
|
|
call WaitBGMap
|
|
|
|
xor a
|
|
|
|
ld [hBGMapMode], a
|
2016-05-14 02:46:32 +00:00
|
|
|
ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS
|
2015-11-19 23:07:20 +00:00
|
|
|
call GetSGBLayout
|
|
|
|
call SetPalettes
|
2015-11-27 02:05:32 +00:00
|
|
|
call HOF_SlideBackpic
|
2015-11-19 23:07:20 +00:00
|
|
|
xor a
|
2015-12-19 19:48:30 +00:00
|
|
|
ld [wBoxAlignment], a
|
2015-11-19 23:07:20 +00:00
|
|
|
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
|
2015-11-27 02:05:32 +00:00
|
|
|
call HOF_SlideFrontpic
|
2015-11-19 23:07:20 +00:00
|
|
|
ret
|
|
|
|
; 86635
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
HOF_SlideBackpic:
|
|
|
|
.backpicloop
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, [hSCX]
|
|
|
|
cp $70
|
|
|
|
ret z
|
|
|
|
add $4
|
|
|
|
ld [hSCX], a
|
|
|
|
call DelayFrame
|
2015-11-27 02:05:32 +00:00
|
|
|
jr .backpicloop
|
2015-11-19 23:07:20 +00:00
|
|
|
; 86643
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
HOF_SlideFrontpic:
|
|
|
|
.frontpicloop
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, [hSCX]
|
|
|
|
and a
|
|
|
|
ret z
|
|
|
|
dec a
|
2016-05-04 15:46:23 +00:00
|
|
|
dec a
|
2015-11-19 23:07:20 +00:00
|
|
|
ld [hSCX], a
|
|
|
|
call DelayFrame
|
2015-11-27 02:05:32 +00:00
|
|
|
jr .frontpicloop
|
2015-11-19 23:07:20 +00:00
|
|
|
; 86650
|
|
|
|
|
|
|
|
_HallOfFamePC: ; 86650
|
|
|
|
call LoadFontsBattleExtra
|
|
|
|
xor a
|
|
|
|
ld [wJumptableIndex], a
|
2016-04-10 18:42:14 +00:00
|
|
|
.MasterLoop:
|
2015-11-27 02:05:32 +00:00
|
|
|
call LoadHOFTeam
|
2015-11-19 23:07:20 +00:00
|
|
|
ret c
|
2016-01-12 17:46:18 +00:00
|
|
|
call .DisplayTeam
|
2015-11-19 23:07:20 +00:00
|
|
|
ret c
|
|
|
|
ld hl, wJumptableIndex
|
|
|
|
inc [hl]
|
2016-01-12 17:46:18 +00:00
|
|
|
jr .MasterLoop
|
2015-11-19 23:07:20 +00:00
|
|
|
|
2016-04-10 18:42:14 +00:00
|
|
|
.DisplayTeam:
|
2015-11-19 23:07:20 +00:00
|
|
|
xor a
|
2018-01-11 20:36:11 +00:00
|
|
|
ld [wHallOfFameMonCounter], a
|
2015-11-19 23:07:20 +00:00
|
|
|
.next
|
2016-01-12 17:46:18 +00:00
|
|
|
call .DisplayMonAndStrings
|
2015-11-19 23:07:20 +00:00
|
|
|
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
|
2018-01-11 20:36:11 +00:00
|
|
|
ld hl, wHallOfFameMonCounter
|
2015-11-19 23:07:20 +00:00
|
|
|
inc [hl]
|
|
|
|
jr .next
|
|
|
|
|
|
|
|
.b_button
|
|
|
|
scf
|
|
|
|
ret
|
|
|
|
|
|
|
|
.start_button
|
|
|
|
and a
|
|
|
|
ret
|
|
|
|
|
2016-04-10 18:42:14 +00:00
|
|
|
.DisplayMonAndStrings:
|
2015-11-19 23:07:20 +00:00
|
|
|
; Print the number of times the player has entered the Hall of Fame.
|
2018-02-26 16:51:16 +00:00
|
|
|
; If that number is at least HOF_MASTER_COUNT, print "HOF Master!" instead.
|
2018-01-11 20:36:11 +00:00
|
|
|
ld a, [wHallOfFameMonCounter]
|
2016-01-12 17:46:18 +00:00
|
|
|
cp PARTY_LENGTH
|
2015-11-19 23:07:20 +00:00
|
|
|
jr nc, .fail
|
2015-11-27 02:05:32 +00:00
|
|
|
ld hl, wHallOfFameTempMon1
|
|
|
|
ld bc, wHallOfFameTempMon1End - wHallOfFameTempMon1
|
2015-11-19 23:07:20 +00:00
|
|
|
call AddNTimes
|
|
|
|
ld a, [hl]
|
2016-01-12 17:46:18 +00:00
|
|
|
cp -1
|
2015-11-19 23:07:20 +00:00
|
|
|
jr nz, .okay
|
|
|
|
|
|
|
|
.fail
|
|
|
|
scf
|
|
|
|
ret
|
|
|
|
|
|
|
|
.okay
|
|
|
|
push hl
|
|
|
|
call ClearBGPalettes
|
|
|
|
pop hl
|
2015-11-27 02:05:32 +00:00
|
|
|
call DisplayHOFMon
|
|
|
|
ld a, [wHallOfFameTempWinCount]
|
2018-03-04 05:27:22 +00:00
|
|
|
cp HOF_MASTER_COUNT + 1 ; should be HOF_MASTER_COUNT
|
2015-11-19 23:07:20 +00:00
|
|
|
jr c, .print_num_hof
|
2016-01-12 17:46:18 +00:00
|
|
|
ld de, .HOFMaster
|
2015-11-19 23:07:20 +00:00
|
|
|
hlcoord 1, 2
|
|
|
|
call PlaceString
|
|
|
|
hlcoord 13, 2
|
|
|
|
jr .finish
|
|
|
|
|
|
|
|
.print_num_hof
|
2016-01-12 17:46:18 +00:00
|
|
|
ld de, .TimeFamer
|
2015-11-19 23:07:20 +00:00
|
|
|
hlcoord 1, 2
|
|
|
|
call PlaceString
|
|
|
|
hlcoord 2, 2
|
2015-11-27 02:05:32 +00:00
|
|
|
ld de, wHallOfFameTempWinCount
|
2015-11-19 23:07:20 +00:00
|
|
|
lb bc, 1, 3
|
|
|
|
call PrintNum
|
|
|
|
hlcoord 11, 2
|
|
|
|
|
|
|
|
.finish
|
2016-01-12 17:46:18 +00:00
|
|
|
ld de, .EmptyString
|
2015-11-19 23:07:20 +00:00
|
|
|
call PlaceString
|
|
|
|
call WaitBGMap
|
2016-05-14 02:46:32 +00:00
|
|
|
ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS
|
2015-11-19 23:07:20 +00:00
|
|
|
call GetSGBLayout
|
|
|
|
call SetPalettes
|
|
|
|
decoord 6, 5
|
|
|
|
ld c, $6
|
2018-01-16 19:30:10 +00:00
|
|
|
predef HOF_AnimateFrontpic
|
2015-11-19 23:07:20 +00:00
|
|
|
and a
|
|
|
|
ret
|
|
|
|
|
2016-01-12 17:46:18 +00:00
|
|
|
.EmptyString:
|
2015-11-19 23:07:20 +00:00
|
|
|
db "@"
|
|
|
|
|
2016-01-12 17:46:18 +00:00
|
|
|
.HOFMaster:
|
2015-11-19 23:07:20 +00:00
|
|
|
db " HOF Master!@"
|
|
|
|
|
2016-01-12 17:46:18 +00:00
|
|
|
.TimeFamer:
|
2015-11-19 23:07:20 +00:00
|
|
|
db " -Time Famer@"
|
|
|
|
; 8671c
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
LoadHOFTeam: ; 8671c
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, [wJumptableIndex]
|
|
|
|
cp NUM_HOF_TEAMS
|
2015-11-27 02:05:32 +00:00
|
|
|
jr nc, .invalid
|
2015-11-19 23:07:20 +00:00
|
|
|
ld hl, sHallOfFame
|
2018-03-19 15:36:14 +00:00
|
|
|
ld bc, wHallOfFameTempEnd - wHallOfFameTemp + 1
|
2015-11-19 23:07:20 +00:00
|
|
|
call AddNTimes
|
|
|
|
ld a, BANK(sHallOfFame)
|
|
|
|
call GetSRAMBank
|
|
|
|
ld a, [hl]
|
|
|
|
and a
|
2015-11-27 02:05:32 +00:00
|
|
|
jr z, .absent
|
|
|
|
ld de, wHallOfFameTemp
|
2018-03-19 15:36:14 +00:00
|
|
|
ld bc, wHallOfFameTempEnd - wHallOfFameTemp + 1
|
2015-11-19 23:07:20 +00:00
|
|
|
call CopyBytes
|
|
|
|
call CloseSRAM
|
|
|
|
and a
|
|
|
|
ret
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
.absent
|
2015-11-19 23:07:20 +00:00
|
|
|
call CloseSRAM
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
.invalid
|
2015-11-19 23:07:20 +00:00
|
|
|
scf
|
|
|
|
ret
|
|
|
|
; 86748
|
|
|
|
|
2015-11-27 02:05:32 +00:00
|
|
|
DisplayHOFMon: ; 86748
|
2015-11-19 23:07:20 +00:00
|
|
|
xor a
|
|
|
|
ld [hBGMapMode], a
|
|
|
|
ld a, [hli]
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wTempMonSpecies], a
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, [hli]
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wTempMonID], a
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, [hli]
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wTempMonID + 1], a
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, [hli]
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wTempMonDVs], a
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, [hli]
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wTempMonDVs + 1], a
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, [hli]
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wTempMonLevel], a
|
|
|
|
ld de, wStringBuffer2
|
2018-01-20 17:25:55 +00:00
|
|
|
ld bc, MON_NAME_LENGTH - 1
|
2015-11-19 23:07:20 +00:00
|
|
|
call CopyBytes
|
|
|
|
ld a, "@"
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wStringBuffer2 + 10], a
|
2015-11-19 23:07:20 +00:00
|
|
|
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
|
2018-01-23 22:39:09 +00:00
|
|
|
ld a, [wTempMonSpecies]
|
|
|
|
ld [wCurPartySpecies], a
|
2015-11-19 23:07:20 +00:00
|
|
|
ld [wd265], a
|
2018-01-23 22:39:09 +00:00
|
|
|
ld hl, wTempMonDVs
|
2018-01-16 19:30:10 +00:00
|
|
|
predef GetUnownLetter
|
2015-11-19 23:07:20 +00:00
|
|
|
xor a
|
2015-12-19 19:48:30 +00:00
|
|
|
ld [wBoxAlignment], a
|
2015-11-19 23:07:20 +00:00
|
|
|
hlcoord 6, 5
|
|
|
|
call _PrepMonFrontpic
|
2018-01-23 22:39:09 +00:00
|
|
|
ld a, [wCurPartySpecies]
|
2015-11-19 23:07:20 +00:00
|
|
|
cp EGG
|
|
|
|
jr z, .print_id_no
|
|
|
|
hlcoord 1, 13
|
|
|
|
ld a, "№"
|
|
|
|
ld [hli], a
|
2017-12-10 00:41:03 +00:00
|
|
|
ld [hl], "<DOT>"
|
2015-11-19 23:07:20 +00:00
|
|
|
hlcoord 3, 13
|
|
|
|
ld de, wd265
|
|
|
|
lb bc, PRINTNUM_LEADINGZEROS | 1, 3
|
|
|
|
call PrintNum
|
|
|
|
call GetBasePokemonName
|
|
|
|
hlcoord 7, 13
|
|
|
|
call PlaceString
|
2016-05-11 21:16:03 +00:00
|
|
|
ld a, TEMPMON
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wMonType], a
|
2018-01-16 19:30:10 +00:00
|
|
|
farcall GetGender
|
2015-11-19 23:07:20 +00:00
|
|
|
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
|
2018-01-23 22:39:09 +00:00
|
|
|
ld de, wStringBuffer2
|
2015-11-19 23:07:20 +00:00
|
|
|
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
|
2018-01-23 22:39:09 +00:00
|
|
|
ld de, wTempMonID
|
2015-11-19 23:07:20 +00:00
|
|
|
lb bc, PRINTNUM_LEADINGZEROS | 2, 5
|
|
|
|
call PrintNum
|
|
|
|
ret
|
|
|
|
; 86810
|
|
|
|
|
2016-01-12 17:46:18 +00:00
|
|
|
HOF_AnimatePlayerPic: ; 86810
|
2015-11-19 23:07:20 +00:00
|
|
|
call ClearBGPalettes
|
2017-12-28 12:32:33 +00:00
|
|
|
ld hl, vTiles2 tile HALLOFFAME_COLON
|
2017-12-09 17:24:50 +00:00
|
|
|
ld de, FontExtra + 13 tiles ; "<COLON>"
|
2015-11-19 23:07:20 +00:00
|
|
|
lb bc, BANK(FontExtra), 1
|
|
|
|
call Request2bpp
|
|
|
|
hlcoord 0, 0
|
|
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
|
|
ld a, " "
|
|
|
|
call ByteFill
|
2017-12-24 17:47:30 +00:00
|
|
|
farcall GetPlayerBackpic
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, $31
|
2016-01-12 17:46:18 +00:00
|
|
|
ld [hGraphicStartTile], a
|
2015-11-19 23:07:20 +00:00
|
|
|
hlcoord 6, 6
|
|
|
|
lb bc, 6, 6
|
2018-01-16 19:30:10 +00:00
|
|
|
predef PlaceGraphic
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, $d0
|
|
|
|
ld [hSCY], a
|
|
|
|
ld a, $90
|
|
|
|
ld [hSCX], a
|
|
|
|
call WaitBGMap
|
|
|
|
xor a
|
|
|
|
ld [hBGMapMode], a
|
2018-01-23 22:39:09 +00:00
|
|
|
ld [wCurPartySpecies], a
|
2016-05-14 02:46:32 +00:00
|
|
|
ld b, SCGB_PLAYER_OR_MON_FRONTPIC_PALS
|
2015-11-19 23:07:20 +00:00
|
|
|
call GetSGBLayout
|
|
|
|
call SetPalettes
|
2015-11-27 02:05:32 +00:00
|
|
|
call HOF_SlideBackpic
|
2015-11-19 23:07:20 +00:00
|
|
|
xor a
|
2015-12-19 19:48:30 +00:00
|
|
|
ld [wBoxAlignment], a
|
2015-11-19 23:07:20 +00:00
|
|
|
hlcoord 0, 0
|
|
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
|
|
ld a, " "
|
|
|
|
call ByteFill
|
2017-12-24 17:47:30 +00:00
|
|
|
farcall HOF_LoadTrainerFrontpic
|
2015-11-19 23:07:20 +00:00
|
|
|
xor a
|
2016-01-12 17:46:18 +00:00
|
|
|
ld [hGraphicStartTile], a
|
2015-11-19 23:07:20 +00:00
|
|
|
hlcoord 12, 5
|
|
|
|
lb bc, 7, 7
|
2018-01-16 19:30:10 +00:00
|
|
|
predef PlaceGraphic
|
2015-11-19 23:07:20 +00:00
|
|
|
ld a, $c0
|
|
|
|
ld [hSCX], a
|
|
|
|
call WaitBGMap
|
|
|
|
xor a
|
|
|
|
ld [hBGMapMode], a
|
|
|
|
ld [hSCY], a
|
2015-11-27 02:05:32 +00:00
|
|
|
call HOF_SlideFrontpic
|
2015-11-19 23:07:20 +00:00
|
|
|
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
|
2018-01-23 22:39:09 +00:00
|
|
|
ld de, wPlayerName
|
2015-11-19 23:07:20 +00:00
|
|
|
call PlaceString
|
|
|
|
hlcoord 1, 6
|
|
|
|
ld a, "<ID>"
|
|
|
|
ld [hli], a
|
|
|
|
ld a, "№"
|
|
|
|
ld [hli], a
|
|
|
|
ld [hl], "/"
|
|
|
|
hlcoord 4, 6
|
2018-01-23 22:39:09 +00:00
|
|
|
ld de, wPlayerID
|
2015-11-19 23:07:20 +00:00
|
|
|
lb bc, PRINTNUM_LEADINGZEROS | 2, 5
|
|
|
|
call PrintNum
|
|
|
|
hlcoord 1, 8
|
|
|
|
ld de, .PlayTime
|
|
|
|
call PlaceString
|
|
|
|
hlcoord 3, 9
|
2018-01-23 22:39:09 +00:00
|
|
|
ld de, wGameTimeHours
|
2015-11-19 23:07:20 +00:00
|
|
|
lb bc, 2, 3
|
|
|
|
call PrintNum
|
2017-12-09 17:24:50 +00:00
|
|
|
ld [hl], HALLOFFAME_COLON
|
2015-11-19 23:07:20 +00:00
|
|
|
inc hl
|
2018-01-23 22:39:09 +00:00
|
|
|
ld de, wGameTimeMinutes
|
2015-11-19 23:07:20 +00:00
|
|
|
lb bc, PRINTNUM_LEADINGZEROS | 1, 2
|
|
|
|
call PrintNum
|
|
|
|
call WaitBGMap
|
2017-12-24 17:47:30 +00:00
|
|
|
farcall ProfOaksPCRating
|
2015-11-19 23:07:20 +00:00
|
|
|
ret
|
|
|
|
; 868ed
|
|
|
|
|
2016-04-10 18:42:14 +00:00
|
|
|
.PlayTime:
|
2015-11-19 23:07:20 +00:00
|
|
|
db "PLAY TIME@"
|
|
|
|
; 868f7
|
|
|
|
|