pokered/home/start_menu.asm

DisplayStartMenu::
	ld a, BANK(StartMenu_Pokedex)
	ldh [hLoadedROMBank], a
	ld [MBC1RomBank], a
	ld a, [wWalkBikeSurfState] ; walking/biking/surfing
	ld [wWalkBikeSurfStateCopy], a
	ld a, SFX_START_MENU
	call PlaySound

RedisplayStartMenu::
	farcall DrawStartMenu
	farcall PrintSafariZoneSteps ; print Safari Zone info, if in Safari Zone
	call UpdateSprites
.loop
	call HandleMenuInput
	ld b, a
.checkIfUpPressed
	bit 6, a ; was Up pressed?
	jr z, .checkIfDownPressed
	ld a, [wCurrentMenuItem] ; menu selection
	and a
	jr nz, .loop
	ld a, [wLastMenuItem]
	and a
	jr nz, .loop
; if the player pressed tried to go past the top item, wrap around to the bottom
	CheckEvent EVENT_GOT_POKEDEX
	ld a, 6 ; there are 7 menu items with the pokedex, so the max index is 6
	jr nz, .wrapMenuItemId
	dec a ; there are only 6 menu items without the pokedex
.wrapMenuItemId
	ld [wCurrentMenuItem], a
	call EraseMenuCursor
	jr .loop
.checkIfDownPressed
	bit 7, a
	jr z, .buttonPressed
; if the player pressed tried to go past the bottom item, wrap around to the top
	CheckEvent EVENT_GOT_POKEDEX
	ld a, [wCurrentMenuItem]
	ld c, 7 ; there are 7 menu items with the pokedex
	jr nz, .checkIfPastBottom
	dec c ; there are only 6 menu items without the pokedex
.checkIfPastBottom
	cp c
	jr nz, .loop
; the player went past the bottom, so wrap to the top
	xor a
	ld [wCurrentMenuItem], a
	call EraseMenuCursor
	jr .loop
.buttonPressed ; A, B, or Start button pressed
	call PlaceUnfilledArrowMenuCursor
	ld a, [wCurrentMenuItem]
	ld [wBattleAndStartSavedMenuItem], a ; save current menu selection
	ld a, b
	and %00001010 ; was the Start button or B button pressed?
	jp nz, CloseStartMenu
	call SaveScreenTilesToBuffer2 ; copy background from wTileMap to wTileMapBackup2
	CheckEvent EVENT_GOT_POKEDEX
	ld a, [wCurrentMenuItem]
	jr nz, .displayMenuItem
	inc a ; adjust position to account for missing pokedex menu item
.displayMenuItem
	cp 0
	jp z, StartMenu_Pokedex
	cp 1
	jp z, StartMenu_Pokemon
	cp 2
	jp z, StartMenu_Item
	cp 3
	jp z, StartMenu_TrainerInfo
	cp 4
	jp z, StartMenu_SaveReset
	cp 5
	jp z, StartMenu_Option

; EXIT falls through to here
CloseStartMenu::
	call Joypad
	ldh a, [hJoyPressed]
	bit 0, a ; was A button newly pressed?
	jr nz, CloseStartMenu
	call LoadTextBoxTilePatterns
	jp CloseTextDisplay
remove address comments 2016-06-12 00:24:04 +00:00			`DisplayStartMenu::`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld a, BANK(StartMenu_Pokedex)`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hLoadedROMBank], a`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld [MBC1RomBank], a`
			`ld a, [wWalkBikeSurfState] ; walking/biking/surfing`
			`ld [wWalkBikeSurfStateCopy], a`
Name sound effects 2015-07-19 08:46:12 +00:00			`ld a, SFX_START_MENU`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlaySound`

remove address comments 2016-06-12 00:24:04 +00:00			`RedisplayStartMenu::`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farcall DrawStartMenu`
			`farcall PrintSafariZoneSteps ; print Safari Zone info, if in Safari Zone`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`call UpdateSprites`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`.loop`
			`call HandleMenuInput`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld b, a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`.checkIfUpPressed`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`bit 6, a ; was Up pressed?`
			`jr z, .checkIfDownPressed`
			`ld a, [wCurrentMenuItem] ; menu selection`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and a`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`jr nz, .loop`
			`ld a, [wLastMenuItem]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and a`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`jr nz, .loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`; if the player pressed tried to go past the top item, wrap around to the bottom`
enumerate events 2015-07-21 01:32:02 +00:00			`CheckEvent EVENT_GOT_POKEDEX`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld a, 6 ; there are 7 menu items with the pokedex, so the max index is 6`
			`jr nz, .wrapMenuItemId`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dec a ; there are only 6 menu items without the pokedex`
			`.wrapMenuItemId`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld [wCurrentMenuItem], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call EraseMenuCursor`
			`jr .loop`
			`.checkIfDownPressed`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`bit 7, a`
			`jr z, .buttonPressed`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`; if the player pressed tried to go past the bottom item, wrap around to the top`
enumerate events 2015-07-21 01:32:02 +00:00			`CheckEvent EVENT_GOT_POKEDEX`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld a, [wCurrentMenuItem]`
			`ld c, 7 ; there are 7 menu items with the pokedex`
			`jr nz, .checkIfPastBottom`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`dec c ; there are only 6 menu items without the pokedex`
			`.checkIfPastBottom`
			`cp c`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`jr nz, .loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`; the player went past the bottom, so wrap to the top`
			`xor a`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld [wCurrentMenuItem], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call EraseMenuCursor`
			`jr .loop`
			`.buttonPressed ; A, B, or Start button pressed`
			`call PlaceUnfilledArrowMenuCursor`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld a, [wCurrentMenuItem]`
			`ld [wBattleAndStartSavedMenuItem], a ; save current menu selection`
			`ld a, b`
			`and %00001010 ; was the Start button or B button pressed?`
			`jp nz, CloseStartMenu`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call SaveScreenTilesToBuffer2 ; copy background from wTileMap to wTileMapBackup2`
enumerate events 2015-07-21 01:32:02 +00:00			`CheckEvent EVENT_GOT_POKEDEX`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld a, [wCurrentMenuItem]`
			`jr nz, .displayMenuItem`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc a ; adjust position to account for missing pokedex menu item`
			`.displayMenuItem`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`cp 0`
			`jp z, StartMenu_Pokedex`
			`cp 1`
			`jp z, StartMenu_Pokemon`
			`cp 2`
			`jp z, StartMenu_Item`
			`cp 3`
			`jp z, StartMenu_TrainerInfo`
			`cp 4`
			`jp z, StartMenu_SaveReset`
			`cp 5`
			`jp z, StartMenu_Option`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
			`; EXIT falls through to here`
remove address comments 2016-06-12 00:24:04 +00:00			`CloseStartMenu::`
Rename GetJoypadState -> Joypad. 2014-05-25 18:21:48 +00:00			`call Joypad`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hJoyPressed]`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`bit 0, a ; was A button newly pressed?`
			`jr nz, CloseStartMenu`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call LoadTextBoxTilePatterns`
			`jp CloseTextDisplay`