pokered/engine/menus/league_pc.asm

PKMNLeaguePC:
	ld hl, AccessedHoFPCText
	call PrintText
	ld hl, wStatusFlags5
	set BIT_NO_TEXT_DELAY, [hl]
	push hl
	ld a, [wUpdateSpritesEnabled]
	push af
	ldh a, [hTileAnimations]
	push af
	xor a
	ldh [hTileAnimations], a
	ld [wSpriteFlipped], a
	ld [wUpdateSpritesEnabled], a
	ld [wHoFTeamIndex2], a
	ld [wHoFTeamNo], a
	ld a, [wNumHoFTeams]
	ld b, a
	cp HOF_TEAM_CAPACITY + 1
	jr c, .loop
; If the total number of hall of fame teams is greater than the storage
; capacity, then calculate the number of the first team that is still recorded.
	ld b, HOF_TEAM_CAPACITY
	sub b
	ld [wHoFTeamNo], a
.loop
	ld hl, wHoFTeamNo
	inc [hl]
	push bc
	ld a, [wHoFTeamIndex2]
	ld [wHoFTeamIndex], a
	farcall LoadHallOfFameTeams
	call LeaguePCShowTeam
	pop bc
	jr c, .doneShowingTeams
	ld hl, wHoFTeamIndex2
	inc [hl]
	ld a, [hl]
	cp b
	jr nz, .loop
.doneShowingTeams
	pop af
	ldh [hTileAnimations], a
	pop af
	ld [wUpdateSpritesEnabled], a
	pop hl
	res 6, [hl]
	call GBPalWhiteOutWithDelay3
	call ClearScreen
	call RunDefaultPaletteCommand
	jp GBPalNormal

LeaguePCShowTeam:
	ld c, PARTY_LENGTH
.loop
	push bc
	call LeaguePCShowMon
	call WaitForTextScrollButtonPress
	ldh a, [hJoyHeld]
	bit 1, a
	jr nz, .exit
	ld hl, wHallOfFame + HOF_MON
	ld de, wHallOfFame
	ld bc, HOF_TEAM - HOF_MON
	call CopyData
	pop bc
	ld a, [wHallOfFame + 0]
	cp $ff
	jr z, .done
	dec c
	jr nz, .loop
.done
	and a
	ret
.exit
	pop bc
	scf
	ret

LeaguePCShowMon:
	call GBPalWhiteOutWithDelay3
	call ClearScreen
	ld hl, wHallOfFame
	ld a, [hli]
	ld [wHoFMonSpecies], a
	ld [wCurPartySpecies], a
	ld [wCurSpecies], a
	ld [wBattleMonSpecies2], a
	ld [wWholeScreenPaletteMonSpecies], a
	ld a, [hli]
	ld [wHoFMonLevel], a
	ld de, wNameBuffer
	ld bc, NAME_LENGTH
	call CopyData
	ld b, SET_PAL_POKEMON_WHOLE_SCREEN
	ld c, 0
	call RunPaletteCommand
	hlcoord 12, 5
	call GetMonHeader
	call LoadFrontSpriteByMonIndex
	call GBPalNormal
	hlcoord 0, 13
	ld b, 2
	ld c, $12
	call TextBoxBorder
	hlcoord 1, 15
	ld de, HallOfFameNoText
	call PlaceString
	hlcoord 16, 15
	ld de, wHoFTeamNo
	lb bc, 1, 3
	call PrintNumber
	farjp HoFDisplayMonInfo

HallOfFameNoText:
	db "HALL OF FAME No   @"

AccessedHoFPCText:
	text_far _AccessedHoFPCText
	text_end
Remove the last address comments except for wram.asm and sram.asm also delete unused yellow file 2016-06-12 07:19:19 +00:00			`PKMNLeaguePC:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, AccessedHoFPCText`
			`call PrintText`
Identify various flag labels and bit constants (#454) 2024-07-16 17:02:54 +00:00			`ld hl, wStatusFlags5`
			`set BIT_NO_TEXT_DELAY, [hl]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push hl`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld a, [wUpdateSpritesEnabled]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push af`
Label and document hFFD7 more accurately 2020-11-29 20:17:29 +00:00			`ldh a, [hTileAnimations]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push af`
			`xor a`
Label and document hFFD7 more accurately 2020-11-29 20:17:29 +00:00			`ldh [hTileAnimations], a`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wSpriteFlipped], a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wUpdateSpritesEnabled], a`
misc 2015-07-19 03:49:52 +00:00			`ld [wHoFTeamIndex2], a`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`ld [wHoFTeamNo], a`
			`ld a, [wNumHoFTeams]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, a`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`cp HOF_TEAM_CAPACITY + 1`
			`jr c, .loop`
			`; If the total number of hall of fame teams is greater than the storage`
			`; capacity, then calculate the number of the first team that is still recorded.`
			`ld b, HOF_TEAM_CAPACITY`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`sub b`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`ld [wHoFTeamNo], a`
			`.loop`
			`ld hl, wHoFTeamNo`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc [hl]`
			`push bc`
misc 2015-07-19 03:49:52 +00:00			`ld a, [wHoFTeamIndex2]`
			`ld [wHoFTeamIndex], a`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farcall LoadHallOfFameTeams`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`call LeaguePCShowTeam`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop bc`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`jr c, .doneShowingTeams`
misc 2015-07-19 03:49:52 +00:00			`ld hl, wHoFTeamIndex2`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc [hl]`
			`ld a, [hl]`
			`cp b`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`jr nz, .loop`
			`.doneShowingTeams`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop af`
Label and document hFFD7 more accurately 2020-11-29 20:17:29 +00:00			`ldh [hTileAnimations], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop af`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wUpdateSpritesEnabled], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop hl`
			`res 6, [hl]`
			`call GBPalWhiteOutWithDelay3`
			`call ClearScreen`
commented SGB palette stuff 2015-08-12 09:16:56 +00:00			`call RunDefaultPaletteCommand`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jp GBPalNormal`

remove address comments 2016-06-12 00:24:04 +00:00			`LeaguePCShowTeam:`
Hall of Fame sram labels and related constants. 2014-06-14 21:24:35 +00:00			`ld c, PARTY_LENGTH`
			`.loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push bc`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`call LeaguePCShowMon`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call WaitForTextScrollButtonPress`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hJoyHeld]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`bit 1, a`
Hall of Fame sram labels and related constants. 2014-06-14 21:24:35 +00:00			`jr nz, .exit`
			`ld hl, wHallOfFame + HOF_MON`
			`ld de, wHallOfFame`
			`ld bc, HOF_TEAM - HOF_MON`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call CopyData`
			`pop bc`
Hall of Fame sram labels and related constants. 2014-06-14 21:24:35 +00:00			`ld a, [wHallOfFame + 0]`
			`cp $ff`
			`jr z, .done`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dec c`
Hall of Fame sram labels and related constants. 2014-06-14 21:24:35 +00:00			`jr nz, .loop`
			`.done`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and a`
			`ret`
Hall of Fame sram labels and related constants. 2014-06-14 21:24:35 +00:00			`.exit`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop bc`
			`scf`
			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`LeaguePCShowMon:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call GBPalWhiteOutWithDelay3`
			`call ClearScreen`
Hall of Fame sram labels and related constants. 2014-06-14 21:24:35 +00:00			`ld hl, wHallOfFame`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hli]`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`ld [wHoFMonSpecies], a`
Identify wcf91 as wCurPartySpecies, wCurItem, and wCurListMenuItem (#457) 2024-08-04 14:05:33 +00:00			`ld [wCurPartySpecies], a`
Identify remaining uses of `wd0b5` and `wd11e` (#463) 2024-09-19 01:41:58 +00:00			`ld [wCurSpecies], a`
Use monster struct macros in wram. Rename related labels for consistency. 2014-06-14 11:12:40 +00:00			`ld [wBattleMonSpecies2], a`
commented SGB palette stuff 2015-08-12 09:16:56 +00:00			`ld [wWholeScreenPaletteMonSpecies], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hli]`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`ld [wHoFMonLevel], a`
Identify wcd6d as wNameBuffer and others (#455) 2024-07-24 16:21:59 +00:00			`ld de, wNameBuffer`
Replace hardcoded name lengths with NAME_LENGTH 2015-08-11 04:51:20 +00:00			`ld bc, NAME_LENGTH`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call CopyData`
commented SGB palette stuff 2015-08-12 09:16:56 +00:00			`ld b, SET_PAL_POKEMON_WHOLE_SCREEN`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, 0`
commented SGB palette stuff 2015-08-12 09:16:56 +00:00			`call RunPaletteCommand`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 12, 5`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call GetMonHeader`
			`call LoadFrontSpriteByMonIndex`
			`call GBPalNormal`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 0, 13`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, 2`
			`ld c, $12`
			`call TextBoxBorder`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 1, 15`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld de, HallOfFameNoText`
			`call PlaceString`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 16, 15`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`ld de, wHoFTeamNo`
constants for PrintNumber 2015-07-28 01:48:44 +00:00			`lb bc, 1, 3`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PrintNumber`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farjp HoFDisplayMonInfo`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`HallOfFameNoText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`db "HALL OF FAME No @"`

remove address comments 2016-06-12 00:24:04 +00:00			`AccessedHoFPCText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _AccessedHoFPCText`
			`text_end`