path: root/engine/menu/start_menu.asm

INCLUDE "constants.asm"

SECTION "engine/menu/start_menu.asm", ROMX

DisplayStartMenu: ; 04:5DBE
	call RefreshScreen
	ld de, $0003
	call PlaySFX
	ld hl, .StartMenuHeader
	call LoadMenuHeader
.RefreshStartDisplay
	call UpdateTimePals
	call UpdateSprites
	call ClearJoypad
	call GetStartMenuState
	ld a, [wStartmenuCursor]
	ld [wMenuCursorBuffer], a
	call OpenMenu
	jr c, .MainReturn
	ld a, [wMenuCursorBuffer]
	ld [wStartmenuCursor], a
	call PlaceHollowCursor
	ld a, [wMenuSelection]
	ld hl, StartMenuJumpTable
	call CallJumptable
	ld hl, .StartMenuEntriesReturnTable
	jp CallJumptable

.StartMenuEntriesReturnTable: ; 04:5DFC
	dw .RefreshStartDisplay  
	dw .MainReturn  
	dw .exit  
	dw .UpdateTime  
	dw .ExitAndHookFF 
	
.MainReturn
	call .WaitForARelease
	call LoadFontExtra
.exit
	call ExitMenu
.UpdateTime
	call Function1fea
	call UpdateTimePals
	ret
	
.unused ; 04:5E16
	call .WaitForARelease
	call LoadFontExtra
	call CloseWindow
	jr .UpdateTime
	
.WaitForARelease
	call GetJoypad
	ldh a, [hJoyDown]
	bit A_BUTTON_F, a
	jr nz, .WaitForARelease
	ret
	
.ExitAndHookFF: ; 04:5E2B
	call ExitMenu
	ld a, $FF
	ldh [hStartmenuCloseAndSelectHookEnable], a
	jr .UpdateTime
	
.StartMenuHeader: ; 04:5E34
	db MENU_BACKUP_TILES
	menu_coords $0C, 00, $13, $11
	dw .MenuData
	db 1 ; default option
	
.MenuData: ; 04:5E3C
	db $A8
	db 0 ; items 
	dw StartMenuItems
	db $8A, $1F
	dw .Strings
	
.Strings: ; 04:5E44
	db "ずかん@"
	db "ポケモン@"
	db "りュック@"
	db "<PLAYER>@"
	db "レポート@"
	db "せってい@"
	db "とじる@"
	db "わくせん@"
	db "りセット@"
	
StartMenuJumpTable: ; 04:5E6C
	dw StartMenu_Pokedex 
	dw StartMenu_Party
	dw StartMenu_Backpack
	dw StartMenu_TrainerCard
	dw StartMenu_Save
	dw StartMenu_Settings
	dw StartMenu_Exit 
	dw StartMenu_Pokegear
	dw StartMenu_Reset
	
StartMenuItems: ; 04:5E7E
	db 4 
	db START_SAVE 
	db START_OPTIONS 
	db START_TRAINERCARD 
	db START_EXIT 
	db -1
	
	db 5 
	db START_PARTY 
	db START_TRAINERCARD 
	db START_SAVE 
	db START_OPTIONS 
	db START_EXIT 
	db -1 
	
	db 6 
	db START_POKEDEX 
	db START_PARTY 
	db START_TRAINERCARD 
	db START_SAVE 
	db START_OPTIONS 
	db START_EXIT 
	db -1 
	
	db 7 
	db START_POKEDEX 
	db START_PARTY 
	db START_BACKPACK 
	db START_TRAINERCARD 
	db START_SAVE 
	db START_OPTIONS 
	db START_EXIT 
	db -1 
	
	db 6
	db START_POKEDEX 
	db START_PARTY 
	db START_BACKPACK 
	db START_TRAINERCARD 
	db START_OPTIONS 
	db START_EXIT 
	db -1
	
GetStartMenuState: ; 04:5EA4
; Stores one of four values to wActiveBackpackPocket
; based on story flags and debug mode.
; 4 = debug, 3 = starting, 2 = rival beat in lab
; 1 = pokedex recieved, 0 = chose starter
	ld b, 4
	ld hl, wDebugFlags
	bit DEBUG_FIELD_F, [hl]
	jr z, .store
	ld b, 0
	ld hl, wd41b
	bit 2, [hl]
	jr z, .store
	ld b, 1
	ld hl, wd41c
	bit 4, [hl]
	jr z, .store
	ld b, 2
	ld hl, wd41d
	bit 2, [hl]
	jr z, .store
	ld b, 3
.store
	ld a, b
	ld [wActiveBackpackPocket], a
	ret
	
StartMenu_Exit: ; 04:5ECF
; Exits the menu
	ld a, 1
	ret
	
StartMenu_Pokegear: ; 04:5ED2
	callab PokeGear
	ld a, 0
	ret
	
StartMenu_Reset: ; 04:5EDD
	ld hl, DisplayResetDialog
	ld a, BANK(DisplayResetDialog)
	call DisplayResetDialog ; should be farcall
	ld a, 0
	ret
	
StartMenu_Save: ; 04:5EE8
	predef Function143e0
	call UpdateSprites
	ld a, 0
	ret
	
StartMenu_Settings: ; 04:5EF3
	call LoadStandardMenuHeader
	xor a
	ldh [hBGMapMode], a
	call ClearTileMap
	call UpdateSprites
	callab MenuCallSettings
	call ClearPalettes
	call Call_ExitMenu
	call LoadTilesetGFX
	call LoadFontExtra
	call UpdateSprites
	call WaitBGMap
	call UpdateTimePals
	ld a, 0
	ret
	
StartMenu_TrainerCard ; 04:5F1F
	call _TrainerCard
	ld a, 0
	ret
	
_TrainerCard: ; 04:5F25
	call LoadStandardMenuHeader
	ldh a, [hMapAnims]
	push af
	xor a
	ldh [hMapAnims], a
	callab TrainerCardLoop
	call ClearPalettes
	call LoadFont
	call ReloadFontAndTileset
	call Call_ExitMenu
	call GetMemSGBLayout
	call WaitBGMap
	call UpdateTimePals
	pop af
	ldh [hMapAnims], a
	ret
	
StartMenu_Pokedex: ; 04:5F4F
	call LoadStandardMenuHeader
	predef Function40000
	call ClearPalettes
	call Function360b
	call ReloadFontAndTileset
	call Call_ExitMenu
	call GetMemSGBLayout
	call WaitBGMap
	call UpdateTimePals
	ld a, 0
	ret
	
UnusedToolPocketData: ; 04:5F6F
	dw ToolsPocketHeader 
	dw wRegularItemsCursor 
	dw wRegularItemsScrollPosition 
	
ToolsPocketHeader: ; 04:5F75
	db MENU_BACKUP_TILES ; flags 
	menu_coords 03, 03, $11, $0A 
	dw .ToolsPocketData 
	db 1 
	
.ToolsPocketData ; 04:5F7D
	db $AD 
	db 4, 9, 2, 0
	dw wNumBagItems 
	
	dbw BANK(Function2473b), Function2473b
	dbw BANK(Function24783), Function24783  
	dbw BANK(Function241ef), Function241ef
	
	dw KeyItemsPocketHeader
	dw wBackpackAndKeyItemsCursor
	dw wBackpackAndKeyItemsScrollPosition 
	
KeyItemsPocketHeader: ; 04:5F93
	db MENU_BACKUP_TILES ; flags 
	menu_coords 03, 03, $11, $0A
	dw .KeyPocketData
	db 1 
	
.KeyPocketData ; 04:5F9B
	db $AD 
	db 4, 9, 1, 0 
	dw wNumKeyItems
	
	dbw BANK(Function2473b), Function2473b
	dbw BANK(Function24783), Function24783 
	dbw BANK(Function241ef), Function241ef 
	
BackpackMenuHeader: ; 04:5FAB
	db MENU_BACKUP_TILES ; flags 
	menu_coords 03, 03, $11, $0A
	dw .BackpackData
	db 01 
	
.BackpackData ; 04:5FB3
	db $A1 
	db 4, 9, 2, 0 
	dw wNumBagItems 
	
	dbw BANK(Function2473b), Function2473b
	dbw BANK(Function24783), Function24783 
	dbw BANK(Function241ef), Function241ef 
	
GetPocket2Status: ; 04:5FC3
; puts 2 in wActiveBackpackPocket if pocket 2 has items
; otherwise puts 1 in
	ld a, 2
	ld [wActiveBackpackPocket], a
	ld a, [wNumBagItems]
	and a
	ret nz
	ld a, 1
	ld [wActiveBackpackPocket], a
	ret
	
FlipPocket2Status: ; 04:5FD3
; stores 1 in wactivebackpocket if it's currently 2
; and vice versa
	ld a, [wActiveBackpackPocket]
	cp 2
	ld a, 1
	jr z, .skip
	ld a, 2 
.skip
	ld [wActiveBackpackPocket], a
	ret

CheckItemsQuantity: ; 04:5FE2
; sets clear flag if you have no items
	ld a, [wNumBagItems]
	and a
	ret nz
	ld a, [wNumKeyItems]
	and a
	ret nz
	scf
	ret
	
DrawBackpack: ; 04:5FEE
	ld hl, wVramState
	res 0, [hl]
	call ClearSprites
	call ClearTileMap
	callab LoadBackpackGraphics
	hlcoord 2, 2
	ld b, 08
	ld c, $0F
	call DrawTextBox
	ret
	
; 04:600C
	ld hl, wVramState
	set 0, [hl]
	call ExitMenu
	ret
	
StartMenu_Backpack: ; 04:6015
	call CheckItemsQuantity
	jr c, .NoItems
	call LoadStandardMenuHeader
	ld hl, wVramState
	res 0, [hl]
	call DrawBackpack
	xor a
	ld [wSelectedSwapPosition], a
	call GetPocket2Status
.loop
	call DebugBackpackLoop
	jr c, .jump
	call BackpackSelected
	jr nc, .loop
	jr .skip
.jump
	ld a, 0
.skip
	push af
	ld hl, wVramState
	set 0, [hl]
	xor a
	ld [wSelectedSwapPosition], a
	call ClearPalettes
	call CloseWindow
	call LoadFontExtra
	pop af
	ret
	
.NoItems
	call DrawNoItemsText ; 6371
	scf
	ld a, 0
	ret
	
DebugBackpackLoop: ; 04:6056
; checks the field debug flag, if set this runs
; otherwise NondebugBackpackLoop runs
; if wactivebackpackpocket is 1 (doesn't have key items) then jumps below
	ld a, [wDebugFlags]
	bit DEBUG_FIELD_F, a
	jp z, NondebugBackpackLoop
	ld a, [wActiveBackpackPocket]
	cp 2
	jr nz, .NoTools
	ld hl, ToolsPocketHeader
	call CopyMenuHeader
	ld de, .ToolsPocketText
	call DrawBackpackTitleRow
	ld a, [wRegularItemsCursor]
	ld [wMenuCursorBuffer], a
	ld a, [wRegularItemsScrollPosition]
	ld [wMenuScrollPosition], a
	call ScrollingMenu
	
	ld a, [wMenuScrollPosition]
	ld [wRegularItemsScrollPosition], a
	ld a, [wMenuCursorY]
	ld [wRegularItemsCursor], a
	jp HandleBackpackInput
	
.ToolsPocketText ; 04:608F
	db "　　　　　　ふつうの　どうぐ　　　　　　@"
	
.NoTools
	ld hl, KeyItemsPocketHeader
	call CopyMenuHeader
	ld de, KeyItemsPocketText
	call DrawBackpackTitleRow
	ld a, [wBackpackAndKeyItemsCursor]
	ld [wMenuCursorBuffer], a
	ld a, [wBackpackAndKeyItemsScrollPosition]
	ld [wMenuScrollPosition], a
	call ScrollingMenu
	
	ld a, [wMenuScrollPosition]
	ld [wBackpackAndKeyItemsScrollPosition], a
	ld a, [wMenuCursorY]
	ld [wBackpackAndKeyItemsCursor], a
	jr HandleBackpackInput
	
KeyItemsPocketText: ; 04:60CD
	db "　　　　　　だいじな　もの　　　　　　　@"
	
NondebugBackpackLoop: ; 04:60E2
	ld hl, BackpackMenuHeader
	call CopyMenuHeader
	ld de, BackpackHeaderText
	call DrawBackpackTitleRow
	ld a, [wBackpackAndKeyItemsCursor]
	ld [wMenuCursorBuffer], a
	ld a, [wBackpackAndKeyItemsScrollPosition]
	ld [wMenuScrollPosition], a
	call ScrollingMenu
	
	ld a, [wMenuScrollPosition]
	ld [wBackpackAndKeyItemsScrollPosition], a
	ld a, [wMenuCursorY]
	ld [wBackpackAndKeyItemsCursor], a
	jr HandleBackpackInput
	
BackpackHeaderText: ; 04:610B
	db "　　　　　　りュックの　なか　　　　　@"
	
HandleBackpackInput: ; 04:611F
	ld a, [wMenuJoypad]
	cp A_BUTTON
	jp z, .BackpackA
	cp B_BUTTON
	jp z, .BackpackBack
	cp D_LEFT
	jp z, .BackpackSwapPocket
	cp D_RIGHT
	jp z, .BackpackSwapPocket
	cp SELECT
	jp z, .BackpackSelect
	jp .exit
	
.BackpackSwapPocket ; 04:613E
	call FlipPocket2Status
	xor a
	ld [wSelectedSwapPosition], a
	jp .exit
	
.BackpackSelect ; 04:6148
	callab Function245c5
	jp .exit
	
.exit ; 04:6153
	jp DebugBackpackLoop
	
.UnusedNoItems ; 04:6156
	call DrawNoItemsText
	scf
	ret
	
.BackpackBack ; 04:615B
	scf
	ret
	
.BackpackA ; 04:615D
	and a
	ret
	
BackpackSelected: ; 04:615F
	callab Function243af
	call PlaceHollowCursor
	call LoadItemData
	callab CheckItemMenu
	ld a, [wItemAttributeParamBuffer]
	ld hl, .BagSelectJumptable
	jp CallJumptable
	
.BagSelectJumptable: ; 04:617E
	dw SelectItem  
	dw .UnknownSelection
	dw BallPocketLoop  
	dw .SwapPocket  
	dw SelectItem  
	dw SelectItem  
	dw SelectItem 

.SwapPocket ; 04:618C	
	call FlipPocket2Status
	xor a
	ld [wSelectedSwapPosition], a
	and a
	ret
	
.UnknownSelection ; 04:6195
	call LoadStandardMenuHeader
	callab Function2d2fc
	call ExitMenu
	call DrawBackpack
	and a
	ret
	
BallPocketLoop: ; 04:61A8
	call BallPocket
	jr c, .exit
	call SelectItem
	ret c
	jr BallPocketLoop
.exit
	and a 
	ret
	
SelectItem: ; 04:61B5
	call ItemUseMenu
	jr c, .skip1
	ld a, [wMenuCursorY]
	cp 1
	jp z, UseItemSelection
	cp 2
	jp z, TossItemSelection
	cp 3
	jp z, RegisterItemSelection
.skip1
	and a
	ret
	
ItemUseMenu: ; 04:61CE
; loads SelectedItemMenu if not debug, 
; DebugSelectedItemMenu if debug
	ld a, [wDebugFlags]
	bit DEBUG_FIELD_F, a
	jr nz, .jump
	ld hl, SelectedItemMenu
	call LoadMenuHeader
	call VerticalMenu
	call CloseWindow
	ret
.jump
	ld hl, DebugSelectedItemMenu
	call LoadMenuHeader
	call VerticalMenu
	call CloseWindow
	ret
	
DebugSelectedItemMenu: ; 04:61EF
	db MENU_BACKUP_TILES
	menu_coords $0D, $0A, $13, $10 
	dw .DebugSelectedItemMenuText
	db 01 
	
.DebugSelectedItemMenuText
	db $C0 
	db 3 
	db "つかう@" ; use
	db "すてる@" ; toss
	db "とうろく@" ; register
	
SelectedItemMenu: ; 04:6206
	db MENU_BACKUP_TILES
	menu_coords $0E, $0A, $13, $0E 
	dw .SelectedItemMenuText
	db 01 
	
.SelectedItemMenuText
	db $C0 
	db 2 
	db "つかう@" ; use
	db "すてる@" ; toss
	
TossItemSelection: ; 04:6218
	ld de, wNumBagItems
	call TryTossItem
	and a
	ret
	
RegisterItemSelection: ; 04:6220
	call TryRegisterItem
	and a
	ret
	
UseItemSelection: ; 04:6225
	callab CheckItemMenu
	ld a, [wItemAttributeParamBuffer]
	ld hl, .UseItemJumptable
	jp CallJumptable
	
.UseItemJumptable: ; 04:6236 ; jumptable
	dw .FailedMove  
	dw .unusable 
	dw .unusable 
	dw .unusable 
	dw .SimpleItem 
	dw .SpriteItem
	dw .FieldMove
	
.unusable ; 04:6244
	call PrintCantUseText
	and a
	ret
	
.SimpleItem: ; 04:6249
	call UseItem
	and a
	ret
	
.SpriteItem: ; 04:624E
; might be a better name for this once
; bank 5 gets sorted out
	call UseItem
	call ClearBGPalettes
	call StartMenuLoadSprites
	call DrawBackpack
	and a
	ret
	
.FieldMove: ; 04:625C
	call UseItem
	ld a, [wFieldMoveSucceeded]
	and a
	jr z, .FailedMove
	scf
	ld a, 4
	ret
	
.FailedMove ; 04:6269
	call PrintCantUseText
	and a
	ret
	
TryTossItem: ; 04:626E
	push de 
	call LoadItemData
	callab _CheckTossableItem
	ld a, [wItemAttributeParamBuffer]
	and a
	jr nz, .TossFail
	ld hl, .TossedText
	call MenuTextBox
	callab Function24c60
	push af
	call CloseWindow
	call ExitMenu
	pop af
	jr c, .TossReturn
	ld hl, .TossVerifyText
	call MenuTextBox
	call YesNoBox
	push af
	call ExitMenu
	pop af
	jr c, .TossReturn
	pop hl
	ld a, [wItemIndex]
	call TossItem
	call LoadItemData
	ld hl, .TossedTextCopy
	call MenuTextBox
	call ExitMenu
	and a
	ret
	
.TossFail ; 04:62BD ;25
	call CantDropItem
.TossReturn
	pop hl
	scf
	ret
	
.TossedText: ; 04:62C3
	db 1 
	dw wStringBuffer2 
	text "を　"
	line "いくつ　すてますか？"
	done
	
.TossVerifyText: ; 04:62D5
	db 1 
	dw wStringBuffer2
	text "を　@"	
	db 9 
	dw wItemQuantity
	db $12 
	text "こ"
	line "すててもよろしいですか？"
	done
	
.TossedTextCopy: ; 04:62F0
	db 1 
	dw wStringBuffer1
	text "を"
	line "すてました！<PROMPT>"
	
CantDropItem: ; 04:62FD
	ld hl, .CantDropItemText
	call MenuTextBoxBackup
	ret
	
.CantDropItemText: ; 04:6304
	text "それは　とても　たいせつなモノです"
	line "すてることは　できません！<PROMPT>"
	
PrintCantUseHM: ; 04:6325
	ld hl, .CantUseHMText
	call MenuTextBoxBackup
	ret
	
.CantUseHMText: ; 04:632C
	text "かいはつちゅう　です"
	line "いまは　つかえません<PROMPT>"
	
PrintCantUseText: ; 04:6343
	ld hl, .CantUseHereText
	call MenuTextBoxBackup
	ret
	
.CantUseHereText: ; 04:634A
	text "オーキドの　ことば<⋯⋯>"
	line "<PLAYER>よ！　こういうものには"
	cont "つかいどきが　あるのじゃ！<PROMPT>"
	
DrawNoItemsText: ; 04:6371
	ld hl, .NoItemsText
	call MenuTextBoxBackup
	ret
	
.NoItemsText: ; 04:6378
	text "どうぐ　をひとつも<NEXT>もっていません！<PROMPT>"
	
BallPocket: ; 04:638C
	xor a 
	ldh [hBGMapMode], a
	ld hl, .BallPocketHeader
	call CopyMenuHeader
	ld de, .BallHolderText
	call DrawBackpackTitleRow
	hlcoord 2, 2
	ld b, 8
	ld c, $F
	call DrawTextBox
	call ScrollingMenu
	ld a, [wMenuJoypad]
	cp 1
	jr z, .jmp1
	cp 2
	jr z, .jmp2
	jr BallPocket
.jmp1
	and a
	ret
.jmp2
	scf
	ret
	
.BallHolderText: ; 04:63B9
	db "　　　　　ボール　ホルダ　　　　　　@"
	
.BallPocketHeader: ; 04:63CC 
	db MENU_BACKUP_TILES 
	menu_coords 03, 03, $11, $0A
	dw .MenuData 
	db 1 
	
.MenuData: ; 04:63D4
	db SCROLLINGMENU_ENABLE_FUNCTION3 ; flags
	db 4, 8 ; rows, columns
	db $80 ; horizontal spacing? 
	dbw 0, wNumBallItems 
	dba Function24774
	dba Function24783
	dba Function241ef
	
DrawBackpackTitleRow: ; 04:63E4
	push de 
	hlcoord 0, 0
	ld de, .BlankLine
	call PlaceString
	pop de
	hlcoord 0, 1
	call PlaceString
	ret
	
.BlankLine: ; 04:63F6
	db "　　　　　　　　　　　　　　　　　　　　@"
	
LoadItemData: ; 04:640B
	ld a, [wCurItem]
	ld [wce37], a
	call GetItemName
	call CopyStringToStringBuffer2
	ret
	
StartMenuLoadSprites: ; 04:6418
	call DisableLCD
	ld a, 6
	call UpdateSoundNTimes
	callab Function140d9
	call LoadTilesetGFX
	call LoadFontExtra
	call ClearSprites
	ld hl, wVramState
	set 0, [hl]
	call UpdateSprites
	call EnableLCD
	call GetMemSGBLayout
	ret
	
TryRegisterItem: ; 04:6440
	callab CheckItemMenu
	ld a, [wItemAttributeParamBuffer]
	ld hl, .RegisterItemJumptable
	jp CallJumptable
	
.RegisterItemJumptable ; 04:6451
	dw PrintCantRegisterToolText 
	dw PrintCantRegisterToolText 
	dw PrintCantRegisterToolText 
	dw PrintCantRegisterToolText 
	dw RegisterItem 
	dw RegisterItem 
	dw RegisterItem 
	
RegisterItem: ; 04:645F
	ld a, [wItemIndex]
	inc a
	ld b, a
	ld a, [wActiveBackpackPocket]
	cp 2
	jr z, .skip
	set 7, b
.skip
	ld a, b
	ld [wRegisteredItem], a
	ld a, [wCurItem]
	ld [wRegisteredItemQuantity], a
	call LoadItemData
	ld de, $0002
	call WaitPlaySFX
	ld hl, .RegisteredItemText
	call MenuTextBoxBackup
	ret
	
.RegisteredItemText: ; 04:6487
	db 1 
	dw wStringBuffer2
	text "を　"
	line "べんりボタンに　とうろくした！<PROMPT>"
	
PrintCantRegisterToolText: ; 04:649E
	ld hl, .CantRegisterToolText
	call MenuTextBoxBackup
	ret
	
.CantRegisterToolText: ; 04:64A5
	text "そのどうぐは　"
	line "とうろくできません！<PROMPT>"
	
StartMenu_Party: ; 04:64B9
	ld a, [wPartyCount]
	and a
	jr nz, .partynonzero
	ld a, 0
	ret
.partynonzero
	call LoadStandardMenuHeader
	callab Function50756
	
HandleSelectedPokemon: ; 04:64CD
	xor a
	ld [wcdb9], a
	ld [wSelectedSwapPosition], a
	predef Function50774
	jr PartyPrompt.partypromptreturn
	
PartyPrompt: ; 04:64DB
	ld a, [wWhichPokemon]
	inc a
	ld [wSelectedSwapPosition], a
	callab Function8f1f2
	ld a, 4
	ld [wcdb9], a
	predef Function50774
.partypromptreturn
	jr c, .return
	jp SelectedPokemonSubmenu
.return
	ld a, 0
PartyPromptExit: ; 04:64FB
	push af
	call ClearBGPalettes
	call StartMenuLoadSprites
	nop
	nop
	nop
	ld hl, 0000
	call Call_ExitMenu
	call WaitBGMap
	call UpdateTimePals
	pop af
	ret
	
SelectedPokemonSubmenu: ; 04:6513
	hlcoord 1, 13
	lb bc, 4, $12
	call ClearBox
	callab Function24955
	call GetCurNick
	ld a, [wMenuSelection]
	ld hl, PartyJumpTable
	ld de, $3
	call FindItemInTable
	jp nc, HandleSelectedPokemon
	inc hl
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld a, [wd163]
	jp hl
	
PartyJumpTable: ; 04:653E
	dbw 1, PartyTryCut 
	dbw 2, PartyTryFly 
	dbw 3, PartyTrySurf 
	dbw 4, PartyCantUseMove 
	dbw 5, PartyCantUseMove 
	dbw 6, PartyCantUseMove 
	dbw 7, PartyCantUseMove 
	dbw 8, PartyTryDig 
	dbw 9, PartyTryTeleport 
	dbw 10, PartyCalculateHealth 
	dbw 11, PartyPokemonSummary 
	dbw 12, PartyCheckLessThanTwo 
	dbw 13, PartyHeldItem 
	dbw 14, HandleSelectedPokemon
	dbw 15, PartyPokemonSummary2
	dbw 16, PartyMailMenu 
	
PartyCheckLessThanTwo: ; 04:656E
; might have to do with switch?
	ld a, [wPartyCount]
	cp 2
	jp c, HandleSelectedPokemon
	jp PartyPrompt
	
PartyHeldItem: ; 04:6579
	callab Function_8f1cb
	ld hl, .HoldItemMenu
	call LoadMenuHeader
	call VerticalMenu
	jp c, .close
	call GetCurNick
	ld hl, wStringBuffer1
	ld de, wcd11
	ld bc, $0006
	call CopyBytes
	ld a, [wMenuCursorY]
	cp 1
	jr nz, .skip
	call CloseWindow
	call .PartyGiveHeldItem
	jr .jump
.skip
	call .PartyTryRecieveItem
	call CloseWindow
	jr .jump
.close; 04:65B3
	call CloseWindow
.jump
	jp HandleSelectedPokemon
	
.PartyGiveHeldItem ; 04:65B9
	call LoadStandardMenuHeader
	call ClearPalettes
	call GetPocket2Status
	call DrawBackpack
	call DebugBackpackLoop
	ld a, [wMenuJoypad]
	cp 2
	jp z, .ExitGiveItem
	call SpeechTextBox
	call LoadItemData
	call CheckTossableItem
	ld a, [wItemAttributeParamBuffer]
	and a
	jp nz, .CantGive
	call GetPartyItemOffset
	ld a, [hl]
	and a
	jr z, .NoItem
	ld [wce37], a
	call GetItemName
	ld hl, ItemPrompt6753
	call MenuTextBox
	call YesNoBox
	call ExitMenu
	jp c, .ExitGiveItem
	ld a, 1
	ld [wItemQuantity], a
	ld hl, wNumBagItems
	call TossItem
	ld a, [wce37]
	ld b, a
	ld a, [wCurItem]
	ld [wce37], a
	ld a, b
	ld [wCurItem], a
	call PartyRecieveItem
	jp nc, .GiveItem
	ld a, [wce37]
	ld [wCurItem], a
	ld hl, ItemWasEquippedText
	call MenuTextBoxBackup
	jr .CheckMail
	
.NoItem
	ld a, 1
	ld [wItemQuantity], a
	ld hl, wNumBagItems
	call TossItem
	ld hl, ItemPrompt66FA
	call MenuTextBoxBackup
.CheckMail
	call GetPartyItemOffset
	ld a, [wCurItem]
	ld [hl], a
	ld a, [wCurItem]
	cp ITEM_MAIL
	call z, PartyGiveMail
	jr .ExitGiveItem
	
.GiveItem ; 04:664B
	ld a, [wce37]
	ld [wCurItem], a
	call PartyRecieveItem
	ld hl, PartyItemRecieveBagFullText
	call MenuTextBoxBackup
	jr .ExitGiveItem
	
.CantGive ; 04:665C
	ld hl, .CantBeEquippedText
	call MenuTextBoxBackup
.ExitGiveItem ;04:6662
	call ClearPalettes
	call LoadFontsBattleExtra
	call ExitMenu
	ret
	
.PartyTryRecieveItem ; 04:666C
	call SpeechTextBox
	call GetPartyItemOffset
	ld a, [hl]
	and a
	jr z, .NoItemToRecieve
	ld [wCurItem], a
	call PartyRecieveItem
	jr nc, .jump2
	call GetPartyItemOffset
	ld a, [hl]
	ld [wce37], a
	ld [hl], 0
	call GetItemName
	ld hl, ItemPrompt673D
	call MenuTextBoxBackup
	jr .escape
.NoItemToRecieve
	ld hl, PartyNoItemToRecieveText
	call MenuTextBoxBackup
	jr .escape
.jump2
	ld hl, PartyItemRecieveBagFullText
	call MenuTextBoxBackup
.escape
	ret
	
.HoldItemMenu ; 04:66A1 ; verticalmenu
	db STATICMENU_NO_TOP_SPACING | STATICMENU_PLACE_TITLE
	menu_coords 4, 4, $e, 9 
	dw .HoldItemMenuText 
	db 1 

.HoldItemMenuText ;04:66A9
	db $80 
	
	db 2 
	db "そうびを　する@" 
	db "そうびを　はずす@" 
	
.CantBeEquippedText ; 04:66BC
	db 1 
	dw wStringBuffer1
	text "を　そうびすることは"
	line "できません<PROMPT>"
	
ItemWasEquippedText ; 04:66D1
	db 1 
	dw wcd11 
	text "は　そうび　していた"
	line "@"

.UnusedText1 ; 04:66E1
	db 1 
	dw wStringBuffer1
	text "を　はずして"
	para "@"
	
.UnusedText2 ; 04:66ED
	db 1 
	dw wStringBuffer2
	text "を　そうびした！<PROMPT>" 
	
ItemPrompt66FA: ; 04:66FA
	db 1 
	dw wcd11 
	text "は　@"
	
.UnusedText3 ; 04:6701
	db 1 
	dw wStringBuffer2
	text "を"
	line "そうびした！<PROMPT>" 
	
PartyNoItemToRecieveText: ; 04:670E
	db 1 
	dw wcd11 
	text "は　なにも"
	line "そうび　していません！<PROMPT>" 
	
PartyItemRecieveBagFullText: ; 04:6724
	text "どうぐが　いっぱいで"
	line "そうびを　はずせません！<PROMPT>" 
	
ItemPrompt673D: ; 04:673D
	db 1 
	dw wcd11  
	text "から　@" 
	
.UnusedText4 ; 04:6745
	db 1 
	dw wStringBuffer1
	text "を"
	line "はずしました！<PROMPT>" 
	
ItemPrompt6753: ; 04:6753
	db 1 
	dw wcd11 
	text "は　@"
	
.UnusedText5; 04:675A
	db 1 
	dw wStringBuffer1
	text "を"
	line "すでに　そうび　しています"
	para "そうびしている　どうぐを"
	line "とりかえますか？"
	done 
	
GetPartyItemOffset: ; 04:6784
	push af
	ld a, 1
	call GetPartyParamLocation
	pop af
	ret
	
PartyRecieveItem: ; 04:678C
	ld a, 1
	ld [wItemQuantity], a
	ld hl, wNumBagItems
	call ReceiveItem
	ret
	
UnusedHandleItemJumptable; 04:6798
	callab CheckItemMenu
	ld a, [wItemAttributeParamBuffer]
	ld hl, UnusedItemJumptable
	jp CallJumptable
	
UnusedItemJumptable: ; 04:67A9
	dw EmptyFunction127b7 
	dw PartyGiveMail 
	dw PartyBallPocket 
	dw ChangeBackpackPocket 
	dw EmptyFunction127b7 
	dw EmptyFunction127b7 
	dw EmptyFunction127b7 
	
EmptyFunction127b7: ; 04:67B7
	ret
	
ChangeBackpackPocket: ; 04:67B8
	call FlipPocket2Status
	xor a
	ld [wSelectedSwapPosition], a
	ret
	
PartyBallPocket: ; 04:67C0
	call BallPocket
	jr c, .exit
	call SelectItem
	ret c
	jr PartyBallPocket
.exit
	ret
	
PartyGiveMail: ; 04:67CC
	call LoadStandardMenuHeader
	ld de, wMovementBufferCount
	callab ComposeMailMessage
	xor a
	ldh [hBGMapMode], a
	call LoadFontsBattleExtra
	call Call_ExitMenu
	call WaitBGMap
	ld a, [wWhichPokemon]
	ld hl, $BA68
	ld bc, $0028
	call AddNTimes
	ld d, h
	ld e, l
	ld hl, wMovementBufferCount
	ld bc, $0028
	ld a, 2
	call OpenSRAM
	call CopyBytes
	call CloseSRAM
	ret
	
PartyMailMenu: ; 04:6806
	ld hl, .MailMenu
	call LoadMenuHeader
	call VerticalMenu
	call PlaceHollowCursor
	jp c, .exit
	ld a, [wMenuCursorY]
	cp 3
	jp z, .exit
	cp 1
	jr z, .GiveMail
	ld hl, .MessageRemoveMail
	call MenuTextBox
	call YesNoBox
	call CloseWindow
	jp c, .exit
	ld a, [wWhichPokemon]
	ld hl, wPartyMon1 + MON_ITEM
	ld bc, $0030
	call AddNTimes
	ld a, [hl]
	ld [wCurItem], a
	ld a, 1
	ld [wItemQuantity], a
	push hl
	ld hl, wNumBagItems
	call ReceiveItem
	pop hl
	jr nc, .MailFull
	xor a
	ld [hl], a
	call GetCurNick
	ld hl, .DrawNick
	call MenuTextBoxBackup
	jr .exit
.GiveMail
	ld a, [wWhichPokemon]
	ld hl, $BA68
	ld bc, $0028
	call AddNTimes
	ld bc, $0028
	ld de, wMovementBufferCount
	ld a, 2
	call OpenSRAM
	call CopyBytes
	call CloseSRAM
	hlcoord 0, 12
	ld b, 4
	ld c, $12
	call DrawTextBox
	ld de, wMovementBufferCount
	hlcoord 1, 14
	call PlaceString
	ld c, 5
	call DelayFrames
	xor a
	ldh [hJoyState], a
	call TextboxWaitPressAorB_BlinkCursor
.exit
	call CloseWindow
	jp HandleSelectedPokemon
	
.MailFull ; 04:689D
	ld hl, .MailFullText
	call MenuTextBoxBackup
	jr .exit
	
.MailMenu ; 04:68A5
	db MENU_BACKUP_TILES 
	menu_coords 04, 04, $0E, $0B 
	dw .MailMenuStrings
	db 01
	
.MailMenuStrings ; 04:68AD

	db $80 
	db 3
	db "メールを　よむ@"
	db "メールを　はずす@"
	db "やめる@"
	
.MessageRemoveMail ; 04:68C4
	text "メールを　はずすと　メッセージが"
	line "きえてしまいますが　いいですか？"
	done
	
.DrawNick ; 04:68E7
	db 1 
	dw wStringBuffer1
	text "から　@"
	
.DeleteMailText ; 04:68EF
	text "メールを"
	line "はずしました！<PROMPT>"
	
.MailFullText ; 04:68FD
	text "どうぐが　いっぱいで"
	line "メールを　はずせません！<PROMPT>"
	
PartyPokemonSummary: ; 04:6916
	call LoadStandardMenuHeader
	call ClearSprites
	xor a
	ld [wMonType], a
	call LowVolume
	predef Function502b5
	call MaxVolume
	call ReloadFontAndTileset
	call Call_ExitMenu
	jp HandleSelectedPokemon
	
PartyTryCut: ; 04:6934
	callab CutFunction
	ld a, [wFieldMoveSucceeded]
	cp $F
	jp nz, HandleSelectedPokemon
	ld a, 4
	jp PartyPromptExit
	
PartyTryFly: ; 04:6949
	bit 2, a
	jp z, PrintNeedNewBadgeText
	callab FlyFunction
	ld a, [wFieldMoveSucceeded]
	cp $F
	jp nz, HandleSelectedPokemon
	ld a, 4
	jp PartyPromptExit
	
PartyCantUseMove: ; 04:6963
	call PrintCantUseHM
	jp HandleSelectedPokemon
	
PartyTryTeleport: ; 04:6969
	callab TeleportFunction
	ld a, [wFieldMoveSucceeded]
	and a
	jp z, HandleSelectedPokemon
	ld a, 4
	jp PartyPromptExit
	
PartyTrySurf: ; 04:697D
	bit 4, a
	jp z, PrintNeedNewBadgeText
	callab SurfFunction
	ld a, [wFieldMoveSucceeded]
	and a
	jp z, HandleSelectedPokemon
	ld a, 4
	jp PartyPromptExit
	
PartyTryDig: ; 04:6996
	callab DigFunction
	ld a, [wFieldMoveSucceeded]
	cp $F
	jp nz, HandleSelectedPokemon
	ld a, 4
	jp PartyPromptExit
	
PartyCalculateHealth: ; 04:69AB
	ld a, MON_MAXHP ; might be wrong, was $24
	call GetPartyParamLocation
	ld a, [hli]
	ldh [hDividend], a
	ld a, [hl]
	ldh [hQuotient], a
	ld a, 5
	ldh [hDivisor], a
	ld b, 2
	call Divide
	ld a, MON_HP + 1 ; might be wrong, was $23
	call GetPartyParamLocation
	ldh a, [hQuotient + 2]
	sub [hl]
	dec hl
	ldh a, [hQuotient + 1]
	sbc a, [hl]
	jp nc, PrintNotHealthyEnoughText
	callab Functionf218
	jp HandleSelectedPokemon
	
PrintNotHealthyEnoughText: ; 04:69D9
	ld hl, NotHealthyEnoughText
	call PrintText
	jp HandleSelectedPokemon
	
NotHealthyEnoughText: ; 04:69E2
	text "たいりょくが　たりません！<PROMPT>"
	
PrintNeedNewBadgeText: ; 04:69F1
	ld hl, NeedNewBadgeText
	call PrintText
	jp HandleSelectedPokemon
	
NeedNewBadgeText: ; 04:69FA
	text "あたらしい　バッジを　てにするまで"
	line "まだ　つかえません！<PROMPT>"
	
PartyPokemonSummary2: ; 04:6A18
	ld hl, wce5f
	ld a, [hl]
	push af
	set 4, [hl]
	call PokeSummary
	pop af
	ld [wce5f], a
	call ClearBGPalettes
	jp HandleSelectedPokemon
	
PokeSummary: ; 04:6A2C
	call ClearBGPalettes
	call ClearTileMap
	call ClearSprites
	xor a
	ldh [hBGMapMode], a
	callab LoadOnlyPokemonStatsGraphics
	callab Function8f0cc
	ld a, [wWhichPokemon]
	ld e, a
	ld d, 0
	ld hl, wPartySpecies
	add hl, de
	ld a, [hl]
	ld [wce37], a
	ld hl, Function8f0e3
	ld a, BANK(Function8f0e3)
	ld e, 2
	call FarCall_hl
	hlcoord 0, 1
	ld b, 8
	ld c, $12
	call DrawTextBox
	hlcoord 1, 1
	lb bc, 2, $12
	call ClearBox
	hlcoord 3, 1
	predef Function508c4
	ld hl, wccd1
	call SetHPPal
	ld b, $0E
	call GetSGBLayout
	hlcoord 11, 0
	lb bc, 1, 9
	call ClearBox
	hlcoord 16, 0
	ld a, [wWhichPokemon]
	and a
	jr z, .FirstPokeChosen
	ld [hl], "」"
.FirstPokeChosen
	inc a
	ld b, a
	ld a, [wPartyCount]
	cp b
	jr z, .LastPokeChosen
	inc hl
	inc hl
	ld [hl], "▶" ; right filled arrow
.LastPokeChosen
	ld de, PartyMenuAttributes
	call SetMenuAttributes
SummaryDrawPoke: ; 04:6AAC
	xor a
	ldh [hBGMapMode], a
	ld [wSelectedSwapPosition], a
	ld [wMonType], a
	predef Function50000
	ld hl, wcd81
	ld de, wce2e
	ld bc, $0004
	call CopyBytes
	ld a, $28
	ld [wHPBarMaxHP], a
	hlcoord 2, 3
	predef Function50bfe
	hlcoord 11, 3
	predef Function506d4
	call WaitBGMap
	call SetPalettes
	ld a, [wcd57]
	inc a
	ld [w2DMenuNumRows], a
	hlcoord 0, 10
	ld b, 6
	ld c, $12
	call DrawTextBox
	ld hl, w2DMenuFlags
	set 6, [hl]
	jr PartySelectionInputs.PartySelectSkipInputs
PartySelectionInputs: ; 04:6AF9
	call Get2DMenuJoypad + 3
	bit B_BUTTON_F, a
	jp nz, PartySelectionBackOut
	bit A_BUTTON_F, a
	jp nz, .PartyPokeSelect
	bit D_RIGHT_F, a
	jp nz, .PartyPokeDetailsAdvancePage
	bit D_LEFT_F, a
	jp nz, .PartyPokeDetailsBackPage
.PartySelectSkipInputs
	ld hl, wPartyMon1 + MON_MOVES
	lb bc, 0, $30
	ld a, [wWhichPokemon]
	call AddNTimes
	ld a, [wMenuCursorY]
	dec a
	ld c, a
	ld b, 0
	add hl, bc
	ld a, [hl]
	ld [wCurSpecies], a
	hlcoord 1, 11
	lb bc, $06, $12
	call ClearBox
	hlcoord 1, 12
	ld a, [wSelectedSwapPosition]
	and a
	jr nz, .DrawMovePokeText
	ld de, PartyTypeText
	call PlaceString
	ld a, [wCurSpecies]
	ld b, a 
	hlcoord 5, 12
	predef Function500a0
	ld a, [wCurSpecies]
	dec a
	ld hl, Data4a8b8
	ld bc, $0007
	call AddNTimes
	ld a, BANK(Data4a8b8)
	call GetFarByte
	hlcoord 15, 12
	cp 2
	jr c, .NotAMove
	ld [wce37], a
	ld de, wce37
	lb bc, 1, 3
	call PrintNumber
	jr .step
.NotAMove
	ld de, PartyPokeDivider
	call PlaceString
.step
	hlcoord 1, 14
	predef Function2d663
	jp PartySelectionInputs
	
.DrawMovePokeText ; 04:6B84
	hlcoord 1, 11
	lb bc, 6, $12
	call ClearBox
	hlcoord 1, 12
	ld de, PartyMoveText
	call PlaceString
	jp PartySelectionInputs
	
.PartyPokeDetailsAdvancePage ; 04:6B99
	ld hl, wWhichPokemon
	inc [hl]
	ld a, [wPartyCount]
	cp [hl]
	jp nz, PokeSummary
	dec [hl]
	jp PartySelectionInputs
	
.PartyPokeDetailsBackPage ; 04:6BA8
	ld hl, wWhichPokemon
	ld a, [hl]
	and a
	jp z, PartySelectionInputs
	dec [hl]
	jp PokeSummary
	
.PartyPokeSelect ; 04:6BB4
	ld a, [wSelectedSwapPosition]
	and a
	jr nz, .swap
	ld a, [wMenuCursorY]
	ld [wSelectedSwapPosition], a
	call PlaceHollowCursor
	jr .DrawMovePokeText
.swap
	ld hl, wPartyMon1 + MON_MOVES
	ld bc, $0030
	ld a, [wWhichPokemon]
	call AddNTimes
	push hl
	call SwapEntries
	pop hl
	ld bc, $0015
	add hl, bc
	call SwapEntries
	ld a, [wBattleMode]
	jr z, .NotInBattle
	ld hl, wca04
	ld bc, $0020
	ld a, [wWhichPokemon]
	call AddNTimes
	push hl
	call SwapEntries
	pop hl
	ld bc, $0006
	add hl, bc
	call SwapEntries
.NotInBattle
	hlcoord 1, 2
	lb bc, 8, $12
	call ClearBox
	jp SummaryDrawPoke
	
SwapEntries: ; 04:6C06
; values at (hl + [cursor place]-1)
; and (hl + [wSelectedSwapPosition] -1) get swapped
	push hl ; saves hl
	ld a, [wMenuCursorY]
	dec a
	ld c, a
	ld b, 0
	add hl, bc
	ld d, h
	ld e, l
	pop hl ; hl is same as start
	ld a, [wSelectedSwapPosition]
	dec a
	ld c, a
	ld b, 0
	add hl, bc ; hl is now hl + bc
	ld a, [de]
	ld b, [hl]
	ld [hl], a
	ld a, b
	ld [de], a
	ret
	
PartySelectionBackOut: ; 04:6C20
	xor a
	ld [wSelectedSwapPosition], a
	ld hl, w2DMenuFlags
	res 6, [hl]
	call ClearSprites
	call ClearTileMap
	ret
	
PartyMenuAttributes: ; 04:6C30
; cursor y
; cursor y
; num rows
; num cols
; bit 6: animate sprites  bit 5: wrap around
; ?
; distance between items (hi: y, lo: x)
; allowed buttons (mask)
	db 3, 1 
	db 3, 1 
	db $40, $00 
	dn 2, 0 
	db $F3 
	
PartyTypeText: ; 04:6C38
	db "タイプ/　　　　　いりょく/@"
	
PartyPokeDivider: ; 04:6C47
	db "ーーー@"
	
PartyMoveText: ; 04:6C4B
	db "どこに　いどうしますか？@"
	
CheckRegisteredItem: ; 04:6C58
	call .RegisteredItem
	ret
	
.RegisteredItem ; 04:6C5C
	call GetRegisteredItemID
	jr c, .NotRegistered
	call UseRegisteredItem
	ret
	
.NotRegistered ; 04:6C65
	call RefreshScreen
	ld hl, .NothingRegisteredText
	call MenuTextBoxBackup
	call Function1fea
	ret
	
.NothingRegisteredText: ; 04:6C72
	text "べんりボタンを　おした！"
	line "⋯しかしなにもおきない！<PROMPT>"
	
GetRegisteredItemID: ; 04:6C8D
; if you can use the registered item, sets the ID to a
; otherwise sets 0 to a and sets the carry flag
	ld a, [wRegisteredItem]
	and a
	jr z, .CantUse
	bit 7, a
	jr nz, .IsKey
	dec a 
	ld hl, wNumBagItems
	cp [hl]
	jr nc, .CantUse
	inc hl 
	ld [wItemIndex], a
	ld e, a
	ld d, 0
	add hl, de
	add hl, de
	ld a, [wRegisteredItemQuantity]
	cp [hl]
	jr nz, .CantUse
	ld a, [hl]
	ld [wCurItem], a
	and a
	ret
.IsKey
	and $7F
	dec a
	ld hl, wNumKeyItems
	cp [hl]
	jr nc, .CantUse
	ld [wItemIndex], a
	ld e, a
	ld d, 0
	inc hl
	add hl, de
	ld a, [wRegisteredItemQuantity]
	cp [hl]
	jr nz, .CantUse
	ld a, [hl]
	ld [wCurItem], a
	and a
	ret
.CantUse
	xor a
	ld [wRegisteredItem], a
	ld [wRegisteredItemQuantity], a
	scf
	ret
	
UseRegisteredItem: ; 04:6CD9
	callab CheckItemMenu
	ld a, [wItemAttributeParamBuffer]
	ld hl, .RegisteredItemJumptable
	jp CallJumptable
	
.RegisteredItemJumptable ; 04:6CEA
	dw .CantUse2 
	dw .CantUse 
	dw .CantUse
	dw .CantUse
	dw .overworld 
	dw .FieldMove  
	
.CantUse ; 04:6CF6
	call RefreshScreen
	call PrintCantUseText
	call Function1fea
	and a
	ret
	
.UnusedSimpleUse ; 04:6D01
	call RefreshScreen
	call UseItem
	call Function1fea
	and a
	ret

.overworld ; 04:6D0C
	call RefreshScreen
	ld hl, wVramState
	res 0, [hl]
	call UseItem
	call ClearPalettes
	call StartMenuLoadSprites
	call UpdateTimePals
	call Function1fea
	and a
	ret
	
.FieldMove ; 04:6D25
	call UseItem
	ld a, [wFieldMoveSucceeded]
	and a
	jr z, .CantUse2
	scf
	ld a, -1
	ldh [hStartmenuCloseAndSelectHookEnable], a
	ld a, 4
	ret
	
.CantUse2
	call RefreshScreen
	call PrintCantUseText
	call Function1fea
	and a
	ret
	
TrainerCardLoop: ; 04:6D41
	ld a, [wVramState]
	push af
	xor a
	ld [wVramState], a
	call ClearTrainerCardJumptable
.loop
	call UpdateTime
	call HandleTrainerCardJumptable
	jr c, .escape
	call DelayFrame
	jr .loop
.escape
	pop af
	ld [wVramState], a
	ret
	
ClearTrainerCardJumptable; 04:6D5E
; sets four bytes at wJumpTableIndex to 0
	call ClearPalettes
	ld hl, wJumptableIndex
	xor a
	ld [hli], a
	ld [hli], a
	ld [hli], a
	ld [hl], a
	call ClearTileMap
	call ClearSprites
	ld b, $0D
	call GetSGBLayout
	ret
	
HandleTrainerCardJumptable: ; 04:6D75
	ld a, [wJumptableIndex]
	ld e, a
	ld d, 0
	ld hl, .TrainerCardJumptable
	add hl, de
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	jp hl
	
.TrainerCardJumptable: ; 04:6D84
	dw TrainerCardMainPage 
	dw .IncreaseJumpTableIndex 
	dw .IncreaseJumpTableIndex 
	dw .SetPalAndIncJumpTable 
	dw TrainerCardMainInputs 
	dw TrainerCardScroll 
	dw .IncreaseJumpTableIndex 
	dw .IncreaseJumpTableIndex 
	dw TrainerCardClearTileMap 
	dw .IncreaseJumpTableIndex 
	dw .IncreaseJumpTableIndex 
	dw TrainerCardSetWindowY 
	dw TrainerCardBadgePage 
	dw .IncreaseJumpTableIndex 
	dw .IncreaseJumpTableIndex 
	dw .SetPalAndIncJumpTable 
	dw TrainerCardBadgeInput 
	dw TrainerCardSetClearFlag 
	
.SetPalAndIncJumpTable: ; 04:6DA8
	call SetPalettes
.IncreaseJumpTableIndex: ; 04:6DAB
	ld a, [wJumptableIndex]
	inc a
	ld [wJumptableIndex], a
	ret
	
TrainerCardMainPage: ; 04:6DB3
	call ClearPalettes
	call ClearTileMap
	call TrainerCardDrawProtag
	call DisableLCD
	call PlaceMiscTilesTrainerCard
	ld hl, TrainerCardBorderGFX
	ld de, vTileset
	ld bc, $0240
	ld a, BANK(TrainerCardBorderGFX)
	call FarCopyData
	call DrawTrainerCardMainPage
	call EnableLCD
	ld a, [wJumptableIndex]
	inc a
	ld [wJumptableIndex], a
	xor a
	ld [wFlyDestination], a
	and a
	ret
	
TrainerCardMainInputs: ; 04:6DE3
	call EmptyFunction12e37
	call GetJoypad
	ld hl, hJoyDown
	ld a, [hl]
	and D_LEFT
	jr nz, .left
	ld a, [hl] 
	and D_RIGHT
	jr nz, .right
	ld a, [hl]
	and A_BUTTON
	jr nz, .a
	ld a, [hl]
	and B_BUTTON
	jr nz, .exit
	and a
	ret
.a
	ld a, [wFlyDestination]
	and a
	jr z, .exit
	ld a, 5
	ld [wJumptableIndex], a
	and a
	ret
.exit
	ld a, $11
	ld [wJumptableIndex], a
	and a
	ret
.left
	hlcoord 4, 16
	ld [hl], "▶"
	hlcoord 11, 16
	ld [hl], "　"
	xor a
	ld [wFlyDestination], a
	and a
	ret
.right
	hlcoord 4, 16
	ld [hl], "　"
	hlcoord 11, 16
	ld [hl], "▶"
	ld a, 1
	ld [wFlyDestination], a
	and a
	ret

EmptyFunction12e37: ; 04:6E37
	ret
	
TrainerCardScroll: ; 04:6E38
	ld a, $90
	ldh [hWY], a
	ld a, $9C
	ldh [hBGMapAddress +1], a
	ld a, [wJumptableIndex]
	inc a
	ld [wJumptableIndex], a
	and a
	ret
	
TrainerCardClearTileMap: ; 04:6E49
	xor a 
	ldh [hWY], a
	ld a, $98
	ldh [hBGMapAddress +1], a
	call ClearTileMap
	ld a, [wJumptableIndex]
	inc a
	ld [wJumptableIndex], a
	and a
	ret
	
TrainerCardSetWindowY: ; 04:6E5C
	ldh a, [hWY]
	cp $90
	jr nc, TrainerCardClearPals
	add a, 4
	ldh [hWY], a
	and a
	ret
	
TrainerCardClearPals: ; 04:6E68
	call ClearPalettes
	ld a, $90
	ldh [hWY], a
	ld a, [wJumptableIndex]
	inc a
	ld [wJumptableIndex], a
	and a
	ret
	
TrainerCardBadgePage: ; 04:6E78
	call ClearPalettes 
	call DisableLCD
	ld hl, TrainerCardLeadersGFX
	ld de, vTileset
	ld bc, $07F0
	ld a, BANK(TrainerCardLeadersGFX)
	call FarCopyData
	call ClearTileMap
	call DrawTrainerCaseBadgePage
	call EnableLCD
	ld a, [wJumptableIndex]
	inc a
	ld [wJumptableIndex], a
	and a
	ret
	
TrainerCardBadgeInput: ; 04:6E9E
	call GetJoypad
	ld hl, hJoyDown
	ld a, [hl]
	and 3
	jr z, .skip
	ld a, $11
	ld [wJumptableIndex], a
.skip
	and a
	ret
	
TrainerCardSetClearFlag: ; 04:6EB0
	scf
	ret
	
TrainerCardDrawProtag: ; 04:6EB2
	ld de, ProtagonistPic
	ld a, BANK(ProtagonistPic)
	call UncompressSpriteFromDE
	ld a, 0
	call OpenSRAM
	ld hl, sSpriteBuffer1
	ld de, sSpriteBuffer0
	ld bc, $0310
	call CopyBytes
	call CloseSRAM
	ld de, vChars2 tile $30
	call InterlaceMergeSpriteBuffers
	ret
	
PlaceMiscTilesTrainerCard: ; 04:6ED5
	ld a, $30
	ldh [hGraphicStartTile], a
	hlcoord 13, 1
	lb bc, 7, 7
	predef PlaceGraphic
	ret
	
DrawTrainerCardMainPage: ; 04:6EE5
	hlcoord 0, 0
	ld d, 5
	call PlaceTrainerCardBGTile
	hlcoord 0, 8
	ld d, 6
	call PlaceTrainerCardBGTile
	hlcoord 2, 2
	ld de, TrainerCardText
	call PlaceString
	hlcoord 16, 10
	ld de, TrainerCardDexEntriesText
	call PlaceString
	hlcoord 6, 2
	ld de, wPlayerName
	call PlaceString
	hlcoord 5, 4
	ld de, wce73
	lb bc, 2, 5
	call PrintNumber
	hlcoord 7, 6
	ld de, wd15d
	lb bc, 3, 6
	call PrintNumber
	ld [hl], $F0
	ld hl, wPokedexOwned
	ld b, $1C
	call CountSetBits
	ld de, wce37
	hlcoord 13, 10
	lb bc, 1, 3
	call PrintNumber
	hlcoord 1, 0
	ld de, TrainerCardNameTiles
	call PlaceTrainerCardTiles
	hlcoord 2, 4
	ld de, TrainerCardIDNoTiles
	call PlaceTrainerCardTiles
	hlcoord 1, 3
	ld de, TrainerCardNameUnderlineTiles
	call PlaceTrainerCardTiles
	hlcoord 1, 8
	ld de, TrainerCardStatusTiles
	call PlaceTrainerCardTiles
	hlcoord 0, 13
	ld de, TrainerCardBadgesOutlineTiles
	call PlaceTrainerCardTiles
	hlcoord 5, 16
	ld de, TrainerCardBadgesTextTiles
	call PlaceTrainerCardTiles
	hlcoord 4, 16
	ld [hl], "▶"
	ret
	
TrainerCardText: ; 04:6F7A
	db "なまえ/<NEXT><NEXT>おこづかい<NEXT><NEXT>#ずかん@"
	
TrainerCardDexEntriesText: ; 04:6F8C
	db "ひき@"
	
TrainerCardNameTiles: ; 04:6F8F
	db $0A, $0C, $0D, $0E, $0F, $FF 
	
TrainerCardIDNoTiles: ; 04:6F95
	db $22, $23, $FF

TrainerCardNameUnderlineTiles: ; 04:6F98	
	db $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $0B, $FF 

TrainerCardStatusTiles: ; 04:6FA6
	db $0A, $10, $11, $12, $13, $FF 
	
TrainerCardBadgesOutlineTiles: ; 04:6FAC
	db $03, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $02, $7F, $14, $15, $16, $17, $18, $19, $1A, $1B, $1C, $1D, $7F, $7F, $7F, $FE, $BA, $7F, $7F, $7F, $05, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $FF 
	
TrainerCardBadgesTextTiles: ; 04:6FE9
	db $1E, $1F, $20, $7F, $7F, $7F, $7F, $1B, $1C, $1D, $FF
	
DrawTrainerCaseBadgePage: ; 04:6FF4
	hlcoord 0, 0
	ld d, $0E
	call PlaceTrainerCardBGTile
	hlcoord 5, 2
	ld de, TrainerCardLeagueBadgesTextTiles
	call PlaceString
	hlcoord 1, 0
	ld de, TrainerCardBadgesTiles
	call PlaceTrainerCardTiles
	hlcoord 0, 3
	ld de, TrainerCardBadgeSilhouettesTiles
	call PlaceTrainerCardTiles
	ret
	
TrainerCardLeagueBadgesTextTiles: ; 04:7018
	db "#りーグバッジ@"
	
TrainerCardBadgesTiles: ; 04:7020
	db $0A, $0B, $0C, $0D, $0E, $FF
	
TrainerCardBadgeSilhouettesTiles: ; 04:7026
	db $07, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $07, $07, $02, $18, $58, $59, $5A, $19, $5B, $5C, $5D, $1A, $6B, $6C, $6D, $1B, $78, $79, $7A, $7F, $07, $07, $02, $7F, $20, $21, $22, $7F, $23, $24, $25, $7F, $26, $27, $28, $7F, $29, $2A, $2B, $7F, $07, $07, $02, $7F, $30, $31, $32, $7F, $33, $34, $35, $7F, $36, $37, $38, $7F, $39, $3A, $3B, $7F, $07, $07, $02, $7F, $40, $41, $42, $7F, $43, $44, $45, $7F, $46, $47, $48, $7F, $49, $4A, $4B, $7F, $07, $07, $05, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $04, $07, $07, $7F, $1C, $68, $69, $6A, $1D, $7E, $6F, $6F, $1E, $5E, $5F, $6E, $1F, $7B, $7C, $7D, $02, $07, $07, $7F, $7F, $2C, $2D, $2E, $7F, $2F, $50, $51, $7F, $52, $53, $54, $7F, $55, $56, $57, $02, $07, $07, $7F, $7F, $3C, $3D, $3E, $7F, $3F, $60, $61, $7F, $62, $63, $64, $7F, $65, $66, $67, $02, $07, $07, $7F, $7F, $4C, $4D, $4E, $7F, $4F, $70, $71, $7F, $72, $73, $74, $7F, $75, $76, $77, $02, $07, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $02, $07, $7F, $7F, $10, $7F, $11, $7F, $12, $7F, $13, $7F, $14, $7F, $15, $7F, $16, $7F, $17, $7F, $02, $07, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01, $06, $07, $FF
	
PlaceTrainerCardTiles: ; 04:712B
; takes the tiles from de and places them at hl until FF is found.
	ld a, [de] 
	cp $FF
	ret z
	ld [hli], a
	inc de
	jr PlaceTrainerCardTiles
	
PlaceTrainerCardBGTile: ; 04:7133
; puts tile $07 (chequered background) at coord hl.
; d controls how many times biggerloop loops.
	ld e, $14
.loop
	ld a, $07
	ld [hli], a
	dec e
	jr nz, .loop
	
	ld a, $07
	ld [hli], a
	ld e, $11
.ScanLoop
	inc hl
	dec e
	jr nz, .ScanLoop
	
	ld a, 9
	ld [hli], a
	ld a, 7
	ld [hli], a
.OuterLoop
	ld a, 7
	ld [hli], a
	ld e, $12
.InnerLoop
	inc hl
	dec e
	jr nz, .InnerLoop
	
	ld a, 7
	ld [hli], a
	dec d
	jr nz, .OuterLoop
	
	ld a, 7
	ld [hli], a
	ld a, 8
	ld [hli], a
	ld e, $11
.ScanLoop2
	inc hl
	dec e
	jr nz, .ScanLoop2
	
	ld a, 7
	ld [hli], a
	ld e, $14
.LastLoop
	ld a, 7
	ld [hli], a
	dec e
	jr nz, .LastLoop
	ret
	
; end of section