pokered/engine/menu/league_pc.asm

PKMNLeaguePC: ; 0x7657e
	ld hl, AccessedHoFPCText
	call PrintText
	ld hl, wd730
	set 6, [hl]
	push hl
	ld a, [wUpdateSpritesEnabled]
	push af
	ld a, [hTilesetType]
	push af
	xor a
	ld [hTilesetType], a
	ld [W_SPRITEFLIPPED], 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
	callba LoadHallOfFameTeams
	call LeaguePCShowTeam
	pop bc
	jr c, .doneShowingTeams
	ld hl, wHoFTeamIndex2
	inc [hl]
	ld a, [hl]
	cp b
	jr nz, .loop
.doneShowingTeams
	pop af
	ld [hTilesetType], a
	pop af
	ld [wUpdateSpritesEnabled], a
	pop hl
	res 6, [hl]
	call GBPalWhiteOutWithDelay3
	call ClearScreen
	call GoPAL_SET_CF1C
	jp GBPalNormal

LeaguePCShowTeam: ; 765e5 (1d:65e5)
	ld c, PARTY_LENGTH
.loop
	push bc
	call LeaguePCShowMon
	call WaitForTextScrollButtonPress
	ld 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: ; 76610 (1d:6610)
	call GBPalWhiteOutWithDelay3
	call ClearScreen
	ld hl, wHallOfFame
	ld a, [hli]
	ld [wHoFMonSpecies], a
	ld [wcf91], a
	ld [wd0b5], a
	ld [wBattleMonSpecies2], a
	ld [wcf1d], a
	ld a, [hli]
	ld [wHoFMonLevel], a
	ld de, wcd6d
	ld bc, $000B
	call CopyData
	ld b, $0B
	ld c, 0
	call GoPAL_SET
	coord hl, 12, 5
	call GetMonHeader
	call LoadFrontSpriteByMonIndex
	call GBPalNormal
	coord hl, 0, 13
	ld b, 2
	ld c, $12
	call TextBoxBorder
	coord hl, 1, 15
	ld de, HallOfFameNoText
	call PlaceString
	coord hl, 16, 15
	ld de, wHoFTeamNo
	ld bc, $0103
	call PrintNumber
	jpba HoFDisplayMonInfo

HallOfFameNoText: ; 76670 (1d:6670)
	db "HALL OF FAME No   @"

AccessedHoFPCText: ; 76683 (1d:6683)
	TX_FAR _AccessedHoFPCText
	db "@"
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`PKMNLeaguePC: ; 0x7657e`
			`ld hl, AccessedHoFPCText`
			`call PrintText`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd730`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`set 6, [hl]`
			`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`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld a, [hTilesetType]`
$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`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld [hTilesetType], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld [W_SPRITEFLIPPED], 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`
Hall of Fame sram labels and related constants. 2014-06-14 21:24:35 +00:00			`callba 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`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld [hTilesetType], 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`
			`call GoPAL_SET_CF1C`
			`jp GBPalNormal`

hall of fame / credits 2015-07-15 02:46:52 +00:00			`LeaguePCShowTeam: ; 765e5 (1d:65e5)`
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`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld 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`

hall of fame / credits 2015-07-15 02:46:52 +00:00			`LeaguePCShowMon: ; 76610 (1d:6610)`
$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`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld [wcf91], a`
			`ld [wd0b5], a`
Use monster struct macros in wram. Rename related labels for consistency. 2014-06-14 11:12:40 +00:00			`ld [wBattleMonSpecies2], a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld [wcf1d], 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`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld de, wcd6d`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld bc, $000B`
			`call CopyData`
			`ld b, $0B`
			`ld c, 0`
			`call GoPAL_SET`
Consolidate coord macros 2015-07-18 20:52:03 +00:00			`coord hl, 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`
Consolidate coord macros 2015-07-18 20:52:03 +00:00			`coord hl, 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`
Consolidate coord macros 2015-07-18 20:52:03 +00:00			`coord hl, 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`
Consolidate coord macros 2015-07-18 20:52:03 +00:00			`coord hl, 16, 15`
hall of fame / credits 2015-07-15 02:46:52 +00:00			`ld de, wHoFTeamNo`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld bc, $0103`
			`call PrintNumber`
jpab/jpba macros 2015-07-19 18:56:13 +00:00			`jpba HoFDisplayMonInfo`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
			`HallOfFameNoText: ; 76670 (1d:6670)`
			`db "HALL OF FAME No @"`

			`AccessedHoFPCText: ; 76683 (1d:6683)`
			`TX_FAR _AccessedHoFPCText`
			`db "@"`