pokecrystal-board/engine/events/halloffame.asm

623 lines
9.4 KiB
NASM
Raw Normal View History

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