mirror of https://github.com/pret/pokecrystal.git
1609 lines
30 KiB
NASM
1609 lines
30 KiB
NASM
; Pack.Jumptable and BattlePack.Jumptable indexes
|
|
const_def
|
|
const PACKSTATE_INITGFX ; 0
|
|
const PACKSTATE_INITITEMSPOCKET ; 1
|
|
const PACKSTATE_ITEMSPOCKETMENU ; 2
|
|
const PACKSTATE_INITBALLSPOCKET ; 3
|
|
const PACKSTATE_BALLSPOCKETMENU ; 4
|
|
const PACKSTATE_INITKEYITEMSPOCKET ; 5
|
|
const PACKSTATE_KEYITEMSPOCKETMENU ; 6
|
|
const PACKSTATE_INITTMHMPOCKET ; 7
|
|
const PACKSTATE_TMHMPOCKETMENU ; 8
|
|
const PACKSTATE_QUITNOSCRIPT ; 9
|
|
const PACKSTATE_QUITRUNSCRIPT ; 10
|
|
|
|
Pack:
|
|
ld hl, wOptions
|
|
set NO_TEXT_SCROLL, [hl]
|
|
call InitPackBuffers
|
|
.loop
|
|
call JoyTextDelay
|
|
ld a, [wJumptableIndex]
|
|
bit 7, a
|
|
jr nz, .done
|
|
call .RunJumptable
|
|
call DelayFrame
|
|
jr .loop
|
|
|
|
.done
|
|
ld a, [wCurPocket]
|
|
ld [wLastPocket], a
|
|
ld hl, wOptions
|
|
res NO_TEXT_SCROLL, [hl]
|
|
ret
|
|
|
|
.RunJumptable:
|
|
ld a, [wJumptableIndex]
|
|
ld hl, .Jumptable
|
|
call Pack_GetJumptablePointer
|
|
jp hl
|
|
|
|
.Jumptable:
|
|
; entries correspond to PACKSTATE_* constants
|
|
dw .InitGFX ; 0
|
|
dw .InitItemsPocket ; 1
|
|
dw .ItemsPocketMenu ; 2
|
|
dw .InitBallsPocket ; 3
|
|
dw .BallsPocketMenu ; 4
|
|
dw .InitKeyItemsPocket ; 5
|
|
dw .KeyItemsPocketMenu ; 6
|
|
dw .InitTMHMPocket ; 7
|
|
dw .TMHMPocketMenu ; 8
|
|
dw Pack_QuitNoScript ; 9
|
|
dw Pack_QuitRunScript ; 10
|
|
|
|
.InitGFX:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call Pack_InitGFX
|
|
ld a, [wPackJumptableIndex]
|
|
ld [wJumptableIndex], a
|
|
call Pack_InitColors
|
|
ret
|
|
|
|
.InitItemsPocket:
|
|
xor a ; ITEM_POCKET
|
|
ld [wCurPocket], a
|
|
call ClearPocketList
|
|
call DrawPocketName
|
|
call WaitBGMap_DrawPackGFX
|
|
call Pack_JumptableNext
|
|
ret
|
|
|
|
.ItemsPocketMenu:
|
|
ld hl, ItemsPocketMenuHeader
|
|
call CopyMenuHeader
|
|
ld a, [wItemsPocketCursor]
|
|
ld [wMenuCursorBuffer], a
|
|
ld a, [wItemsPocketScrollPosition]
|
|
ld [wMenuScrollPosition], a
|
|
call ScrollingMenu
|
|
ld a, [wMenuScrollPosition]
|
|
ld [wItemsPocketScrollPosition], a
|
|
ld a, [wMenuCursorY]
|
|
ld [wItemsPocketCursor], a
|
|
ld b, PACKSTATE_INITTMHMPOCKET ; left
|
|
ld c, PACKSTATE_INITBALLSPOCKET ; right
|
|
call Pack_InterpretJoypad
|
|
ret c
|
|
call .ItemBallsKey_LoadSubmenu
|
|
ret
|
|
|
|
.InitKeyItemsPocket:
|
|
ld a, KEY_ITEM_POCKET
|
|
ld [wCurPocket], a
|
|
call ClearPocketList
|
|
call DrawPocketName
|
|
call WaitBGMap_DrawPackGFX
|
|
call Pack_JumptableNext
|
|
ret
|
|
|
|
.KeyItemsPocketMenu:
|
|
ld hl, KeyItemsPocketMenuHeader
|
|
call CopyMenuHeader
|
|
ld a, [wKeyItemsPocketCursor]
|
|
ld [wMenuCursorBuffer], a
|
|
ld a, [wKeyItemsPocketScrollPosition]
|
|
ld [wMenuScrollPosition], a
|
|
call ScrollingMenu
|
|
ld a, [wMenuScrollPosition]
|
|
ld [wKeyItemsPocketScrollPosition], a
|
|
ld a, [wMenuCursorY]
|
|
ld [wKeyItemsPocketCursor], a
|
|
ld b, PACKSTATE_INITBALLSPOCKET ; left
|
|
ld c, PACKSTATE_INITTMHMPOCKET ; right
|
|
call Pack_InterpretJoypad
|
|
ret c
|
|
call .ItemBallsKey_LoadSubmenu
|
|
ret
|
|
|
|
.InitTMHMPocket:
|
|
ld a, TM_HM_POCKET
|
|
ld [wCurPocket], a
|
|
call ClearPocketList
|
|
call DrawPocketName
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call WaitBGMap_DrawPackGFX
|
|
call Pack_JumptableNext
|
|
ret
|
|
|
|
.TMHMPocketMenu:
|
|
farcall TMHMPocket
|
|
ld b, PACKSTATE_INITKEYITEMSPOCKET ; left
|
|
ld c, PACKSTATE_INITITEMSPOCKET ; right
|
|
call Pack_InterpretJoypad
|
|
ret c
|
|
farcall _CheckTossableItem
|
|
ld a, [wItemAttributeParamBuffer]
|
|
and a
|
|
jr nz, .use_quit
|
|
ld hl, .MenuHeader2
|
|
ld de, .Jumptable2
|
|
jr .load_jump
|
|
|
|
.use_quit
|
|
ld hl, .MenuHeader1
|
|
ld de, .Jumptable1
|
|
.load_jump
|
|
push de
|
|
call LoadMenuHeader
|
|
call VerticalMenu
|
|
call ExitMenu
|
|
pop hl
|
|
ret c
|
|
ld a, [wMenuCursorY]
|
|
dec a
|
|
call Pack_GetJumptablePointer
|
|
jp hl
|
|
|
|
.MenuHeader1:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 13, 7, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData_1
|
|
db 1 ; default option
|
|
|
|
.MenuData_1:
|
|
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
|
|
db 2 ; items
|
|
db "USE@"
|
|
db "QUIT@"
|
|
|
|
.Jumptable1:
|
|
dw .UseItem
|
|
dw QuitItemSubmenu
|
|
|
|
.MenuHeader2:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 13, 5, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData_2
|
|
db 1 ; default option
|
|
|
|
.MenuData_2:
|
|
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
|
|
db 3 ; items
|
|
db "USE@"
|
|
db "GIVE@"
|
|
db "QUIT@"
|
|
|
|
.Jumptable2:
|
|
dw .UseItem
|
|
dw GiveItem
|
|
dw QuitItemSubmenu
|
|
|
|
.UseItem:
|
|
farcall AskTeachTMHM
|
|
ret c
|
|
farcall ChooseMonToLearnTMHM
|
|
jr c, .declined
|
|
ld hl, wOptions
|
|
ld a, [hl]
|
|
push af
|
|
res NO_TEXT_SCROLL, [hl]
|
|
farcall TeachTMHM
|
|
pop af
|
|
ld [wOptions], a
|
|
.declined
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call Pack_InitGFX
|
|
call WaitBGMap_DrawPackGFX
|
|
call Pack_InitColors
|
|
ret
|
|
|
|
.InitBallsPocket:
|
|
ld a, BALL_POCKET
|
|
ld [wCurPocket], a
|
|
call ClearPocketList
|
|
call DrawPocketName
|
|
call WaitBGMap_DrawPackGFX
|
|
call Pack_JumptableNext
|
|
ret
|
|
|
|
.BallsPocketMenu:
|
|
ld hl, BallsPocketMenuHeader
|
|
call CopyMenuHeader
|
|
ld a, [wBallsPocketCursor]
|
|
ld [wMenuCursorBuffer], a
|
|
ld a, [wBallsPocketScrollPosition]
|
|
ld [wMenuScrollPosition], a
|
|
call ScrollingMenu
|
|
ld a, [wMenuScrollPosition]
|
|
ld [wBallsPocketScrollPosition], a
|
|
ld a, [wMenuCursorY]
|
|
ld [wBallsPocketCursor], a
|
|
ld b, PACKSTATE_INITITEMSPOCKET ; left
|
|
ld c, PACKSTATE_INITKEYITEMSPOCKET ; right
|
|
call Pack_InterpretJoypad
|
|
ret c
|
|
call .ItemBallsKey_LoadSubmenu
|
|
ret
|
|
|
|
.ItemBallsKey_LoadSubmenu:
|
|
farcall _CheckTossableItem
|
|
ld a, [wItemAttributeParamBuffer]
|
|
and a
|
|
jr nz, .tossable
|
|
farcall CheckSelectableItem
|
|
ld a, [wItemAttributeParamBuffer]
|
|
and a
|
|
jr nz, .selectable
|
|
farcall CheckItemMenu
|
|
ld a, [wItemAttributeParamBuffer]
|
|
and a
|
|
jr nz, .usable
|
|
jr .unusable
|
|
|
|
.selectable
|
|
farcall CheckItemMenu
|
|
ld a, [wItemAttributeParamBuffer]
|
|
and a
|
|
jr nz, .selectable_usable
|
|
jr .selectable_unusable
|
|
|
|
.tossable
|
|
farcall CheckSelectableItem
|
|
ld a, [wItemAttributeParamBuffer]
|
|
and a
|
|
jr nz, .tossable_selectable
|
|
jr .tossable_unselectable
|
|
|
|
.usable
|
|
ld hl, MenuHeader_UsableKeyItem
|
|
ld de, Jumptable_UseGiveTossRegisterQuit
|
|
jr .build_menu
|
|
|
|
.selectable_usable
|
|
ld hl, MenuHeader_UsableItem
|
|
ld de, Jumptable_UseGiveTossQuit
|
|
jr .build_menu
|
|
|
|
.tossable_selectable
|
|
ld hl, MenuHeader_UnusableItem
|
|
ld de, Jumptable_UseQuit
|
|
jr .build_menu
|
|
|
|
.tossable_unselectable
|
|
ld hl, MenuHeader_UnusableKeyItem
|
|
ld de, Jumptable_UseRegisterQuit
|
|
jr .build_menu
|
|
|
|
.unusable
|
|
ld hl, MenuHeader_HoldableKeyItem
|
|
ld de, Jumptable_GiveTossRegisterQuit
|
|
jr .build_menu
|
|
|
|
.selectable_unusable
|
|
ld hl, MenuHeader_HoldableItem
|
|
ld de, Jumptable_GiveTossQuit
|
|
.build_menu
|
|
push de
|
|
call LoadMenuHeader
|
|
call VerticalMenu
|
|
call ExitMenu
|
|
pop hl
|
|
ret c
|
|
ld a, [wMenuCursorY]
|
|
dec a
|
|
call Pack_GetJumptablePointer
|
|
jp hl
|
|
|
|
MenuHeader_UsableKeyItem:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 13, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
|
|
db 5 ; items
|
|
db "USE@"
|
|
db "GIVE@"
|
|
db "TOSS@"
|
|
db "SEL@"
|
|
db "QUIT@"
|
|
|
|
Jumptable_UseGiveTossRegisterQuit:
|
|
dw UseItem
|
|
dw GiveItem
|
|
dw TossMenu
|
|
dw RegisterItem
|
|
dw QuitItemSubmenu
|
|
|
|
MenuHeader_UsableItem:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 13, 3, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
|
|
db 4 ; items
|
|
db "USE@"
|
|
db "GIVE@"
|
|
db "TOSS@"
|
|
db "QUIT@"
|
|
|
|
Jumptable_UseGiveTossQuit:
|
|
dw UseItem
|
|
dw GiveItem
|
|
dw TossMenu
|
|
dw QuitItemSubmenu
|
|
|
|
MenuHeader_UnusableItem:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 13, 7, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
|
|
db 2 ; items
|
|
db "USE@"
|
|
db "QUIT@"
|
|
|
|
Jumptable_UseQuit:
|
|
dw UseItem
|
|
dw QuitItemSubmenu
|
|
|
|
MenuHeader_UnusableKeyItem:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 13, 5, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
|
|
db 3 ; items
|
|
db "USE@"
|
|
db "SEL@"
|
|
db "QUIT@"
|
|
|
|
Jumptable_UseRegisterQuit:
|
|
dw UseItem
|
|
dw RegisterItem
|
|
dw QuitItemSubmenu
|
|
|
|
MenuHeader_HoldableKeyItem:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 13, 3, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
|
|
db 4 ; items
|
|
db "GIVE@"
|
|
db "TOSS@"
|
|
db "SEL@"
|
|
db "QUIT@"
|
|
|
|
Jumptable_GiveTossRegisterQuit:
|
|
dw GiveItem
|
|
dw TossMenu
|
|
dw RegisterItem
|
|
dw QuitItemSubmenu
|
|
|
|
MenuHeader_HoldableItem:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 13, 5, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
|
|
db 3 ; items
|
|
db "GIVE@"
|
|
db "TOSS@"
|
|
db "QUIT@"
|
|
|
|
Jumptable_GiveTossQuit:
|
|
dw GiveItem
|
|
dw TossMenu
|
|
dw QuitItemSubmenu
|
|
|
|
UseItem:
|
|
farcall CheckItemMenu
|
|
ld a, [wItemAttributeParamBuffer]
|
|
ld hl, .dw
|
|
rst JumpTable
|
|
ret
|
|
|
|
.dw
|
|
; entries correspond to ITEMMENU_* constants
|
|
dw .Oak ; ITEMMENU_NOUSE
|
|
dw .Oak
|
|
dw .Oak
|
|
dw .Oak
|
|
dw .Current ; ITEMMENU_CURRENT
|
|
dw .Party ; ITEMMENU_PARTY
|
|
dw .Field ; ITEMMENU_CLOSE
|
|
|
|
.Oak:
|
|
ld hl, Text_ThisIsntTheTime
|
|
call Pack_PrintTextNoScroll
|
|
ret
|
|
|
|
.Current:
|
|
call DoItemEffect
|
|
ret
|
|
|
|
.Party:
|
|
ld a, [wPartyCount]
|
|
and a
|
|
jr z, .NoPokemon
|
|
call DoItemEffect
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call Pack_InitGFX
|
|
call WaitBGMap_DrawPackGFX
|
|
call Pack_InitColors
|
|
ret
|
|
|
|
.NoPokemon:
|
|
ld hl, TextJump_YouDontHaveAMon
|
|
call Pack_PrintTextNoScroll
|
|
ret
|
|
|
|
.Field:
|
|
call DoItemEffect
|
|
ld a, [wItemEffectSucceeded]
|
|
and a
|
|
jr z, .Oak
|
|
ld a, PACKSTATE_QUITRUNSCRIPT
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
TossMenu:
|
|
ld hl, Text_ThrowAwayHowMany
|
|
call Pack_PrintTextNoScroll
|
|
farcall SelectQuantityToToss
|
|
push af
|
|
call ExitMenu
|
|
pop af
|
|
jr c, .finish
|
|
call Pack_GetItemName
|
|
ld hl, Text_ConfirmThrowAway
|
|
call MenuTextBox
|
|
call YesNoBox
|
|
push af
|
|
call ExitMenu
|
|
pop af
|
|
jr c, .finish
|
|
ld hl, wNumItems
|
|
ld a, [wCurItemQuantity]
|
|
call TossItem
|
|
call Pack_GetItemName
|
|
ld hl, Text_ThrewAway
|
|
call Pack_PrintTextNoScroll
|
|
.finish
|
|
ret
|
|
|
|
Unreferenced_ResetPocketCursorPositions:
|
|
ld a, [wCurPocket]
|
|
and a ; ITEM_POCKET
|
|
jr z, .items
|
|
dec a ; BALL_POCKET
|
|
jr z, .balls
|
|
dec a ; KEY_ITEM_POCKET
|
|
jr z, .key
|
|
ret
|
|
|
|
.balls
|
|
xor a
|
|
ld [wBallsPocketCursor], a
|
|
ld [wBallsPocketScrollPosition], a
|
|
ret
|
|
|
|
.items
|
|
xor a
|
|
ld [wItemsPocketCursor], a
|
|
ld [wItemsPocketScrollPosition], a
|
|
ret
|
|
|
|
.key
|
|
xor a
|
|
ld [wKeyItemsPocketCursor], a
|
|
ld [wKeyItemsPocketScrollPosition], a
|
|
ret
|
|
|
|
RegisterItem:
|
|
farcall CheckSelectableItem
|
|
ld a, [wItemAttributeParamBuffer]
|
|
and a
|
|
jr nz, .cant_register
|
|
ld a, [wCurPocket]
|
|
rrca
|
|
rrca
|
|
and REGISTERED_POCKET
|
|
ld b, a
|
|
ld a, [wCurItemQuantity]
|
|
inc a
|
|
and REGISTERED_NUMBER
|
|
or b
|
|
ld [wWhichRegisteredItem], a
|
|
ld a, [wCurItem]
|
|
ld [wRegisteredItem], a
|
|
call Pack_GetItemName
|
|
ld de, SFX_FULL_HEAL
|
|
call WaitPlaySFX
|
|
ld hl, Text_RegisteredItem
|
|
call Pack_PrintTextNoScroll
|
|
ret
|
|
|
|
.cant_register
|
|
ld hl, Text_CantRegister
|
|
call Pack_PrintTextNoScroll
|
|
ret
|
|
|
|
GiveItem:
|
|
ld a, [wPartyCount]
|
|
and a
|
|
jp z, .NoPokemon
|
|
ld a, [wOptions]
|
|
push af
|
|
res NO_TEXT_SCROLL, a
|
|
ld [wOptions], a
|
|
ld a, PARTYMENUACTION_GIVE_ITEM
|
|
ld [wPartyMenuActionText], a
|
|
call ClearBGPalettes
|
|
farcall LoadPartyMenuGFX
|
|
farcall InitPartyMenuWithCancel
|
|
farcall InitPartyMenuGFX
|
|
.loop
|
|
farcall WritePartyMenuTilemap
|
|
farcall PrintPartyMenuText
|
|
call WaitBGMap
|
|
call SetPalettes
|
|
call DelayFrame
|
|
farcall PartyMenuSelect
|
|
jr c, .finish
|
|
ld a, [wCurPartySpecies]
|
|
cp EGG
|
|
jr nz, .give
|
|
ld hl, .Egg
|
|
call PrintText
|
|
jr .loop
|
|
|
|
.give
|
|
ld a, [wJumptableIndex]
|
|
push af
|
|
ld a, [wPackJumptableIndex]
|
|
push af
|
|
call GetCurNick
|
|
ld hl, wStringBuffer1
|
|
ld de, wMonOrItemNameBuffer
|
|
ld bc, MON_NAME_LENGTH
|
|
call CopyBytes
|
|
call TryGiveItemToPartymon
|
|
pop af
|
|
ld [wPackJumptableIndex], a
|
|
pop af
|
|
ld [wJumptableIndex], a
|
|
.finish
|
|
pop af
|
|
ld [wOptions], a
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call Pack_InitGFX
|
|
call WaitBGMap_DrawPackGFX
|
|
call Pack_InitColors
|
|
ret
|
|
|
|
.NoPokemon:
|
|
ld hl, TextJump_YouDontHaveAMon
|
|
call Pack_PrintTextNoScroll
|
|
ret
|
|
.Egg:
|
|
; An EGG can't hold an item.
|
|
text_far Text_AnEGGCantHoldAnItem
|
|
db "@"
|
|
|
|
QuitItemSubmenu:
|
|
ret
|
|
|
|
BattlePack:
|
|
ld hl, wOptions
|
|
set NO_TEXT_SCROLL, [hl]
|
|
call InitPackBuffers
|
|
.loop
|
|
call JoyTextDelay
|
|
ld a, [wJumptableIndex]
|
|
bit 7, a
|
|
jr nz, .end
|
|
call .RunJumptable
|
|
call DelayFrame
|
|
jr .loop
|
|
|
|
.end
|
|
ld a, [wCurPocket]
|
|
ld [wLastPocket], a
|
|
ld hl, wOptions
|
|
res NO_TEXT_SCROLL, [hl]
|
|
ret
|
|
|
|
.RunJumptable:
|
|
ld a, [wJumptableIndex]
|
|
ld hl, .Jumptable
|
|
call Pack_GetJumptablePointer
|
|
jp hl
|
|
|
|
.Jumptable:
|
|
; entries correspond to PACKSTATE_* constants
|
|
dw .InitGFX ; 0
|
|
dw .InitItemsPocket ; 1
|
|
dw .ItemsPocketMenu ; 2
|
|
dw .InitBallsPocket ; 3
|
|
dw .BallsPocketMenu ; 4
|
|
dw .InitKeyItemsPocket ; 5
|
|
dw .KeyItemsPocketMenu ; 6
|
|
dw .InitTMHMPocket ; 7
|
|
dw .TMHMPocketMenu ; 8
|
|
dw Pack_QuitNoScript ; 9
|
|
dw Pack_QuitRunScript ; 10
|
|
|
|
.InitGFX:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call Pack_InitGFX
|
|
ld a, [wPackJumptableIndex]
|
|
ld [wJumptableIndex], a
|
|
call Pack_InitColors
|
|
ret
|
|
|
|
.InitItemsPocket:
|
|
xor a ; ITEM_POCKET
|
|
ld [wCurPocket], a
|
|
call ClearPocketList
|
|
call DrawPocketName
|
|
call WaitBGMap_DrawPackGFX
|
|
call Pack_JumptableNext
|
|
ret
|
|
|
|
.ItemsPocketMenu:
|
|
ld hl, ItemsPocketMenuHeader
|
|
call CopyMenuHeader
|
|
ld a, [wItemsPocketCursor]
|
|
ld [wMenuCursorBuffer], a
|
|
ld a, [wItemsPocketScrollPosition]
|
|
ld [wMenuScrollPosition], a
|
|
call ScrollingMenu
|
|
ld a, [wMenuScrollPosition]
|
|
ld [wItemsPocketScrollPosition], a
|
|
ld a, [wMenuCursorY]
|
|
ld [wItemsPocketCursor], a
|
|
ld b, PACKSTATE_INITTMHMPOCKET ; left
|
|
ld c, PACKSTATE_INITBALLSPOCKET ; right
|
|
call Pack_InterpretJoypad
|
|
ret c
|
|
call ItemSubmenu
|
|
ret
|
|
|
|
.InitKeyItemsPocket:
|
|
ld a, KEY_ITEM_POCKET
|
|
ld [wCurPocket], a
|
|
call ClearPocketList
|
|
call DrawPocketName
|
|
call WaitBGMap_DrawPackGFX
|
|
call Pack_JumptableNext
|
|
ret
|
|
|
|
.KeyItemsPocketMenu:
|
|
ld hl, KeyItemsPocketMenuHeader
|
|
call CopyMenuHeader
|
|
ld a, [wKeyItemsPocketCursor]
|
|
ld [wMenuCursorBuffer], a
|
|
ld a, [wKeyItemsPocketScrollPosition]
|
|
ld [wMenuScrollPosition], a
|
|
call ScrollingMenu
|
|
ld a, [wMenuScrollPosition]
|
|
ld [wKeyItemsPocketScrollPosition], a
|
|
ld a, [wMenuCursorY]
|
|
ld [wKeyItemsPocketCursor], a
|
|
ld b, PACKSTATE_INITBALLSPOCKET ; left
|
|
ld c, PACKSTATE_INITTMHMPOCKET ; right
|
|
call Pack_InterpretJoypad
|
|
ret c
|
|
call ItemSubmenu
|
|
ret
|
|
|
|
.InitTMHMPocket:
|
|
ld a, TM_HM_POCKET
|
|
ld [wCurPocket], a
|
|
call ClearPocketList
|
|
call DrawPocketName
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call WaitBGMap_DrawPackGFX
|
|
ld hl, Text_PackEmptyString
|
|
call Pack_PrintTextNoScroll
|
|
call Pack_JumptableNext
|
|
ret
|
|
|
|
.TMHMPocketMenu:
|
|
farcall TMHMPocket
|
|
ld b, PACKSTATE_INITKEYITEMSPOCKET ; left
|
|
ld c, PACKSTATE_INITITEMSPOCKET ; right
|
|
call Pack_InterpretJoypad
|
|
ret c
|
|
xor a
|
|
call TMHMSubmenu
|
|
ret
|
|
|
|
.InitBallsPocket:
|
|
ld a, BALL_POCKET
|
|
ld [wCurPocket], a
|
|
call ClearPocketList
|
|
call DrawPocketName
|
|
call WaitBGMap_DrawPackGFX
|
|
call Pack_JumptableNext
|
|
ret
|
|
|
|
.BallsPocketMenu:
|
|
ld hl, BallsPocketMenuHeader
|
|
call CopyMenuHeader
|
|
ld a, [wBallsPocketCursor]
|
|
ld [wMenuCursorBuffer], a
|
|
ld a, [wBallsPocketScrollPosition]
|
|
ld [wMenuScrollPosition], a
|
|
call ScrollingMenu
|
|
ld a, [wMenuScrollPosition]
|
|
ld [wBallsPocketScrollPosition], a
|
|
ld a, [wMenuCursorY]
|
|
ld [wBallsPocketCursor], a
|
|
ld b, PACKSTATE_INITITEMSPOCKET ; left
|
|
ld c, PACKSTATE_INITKEYITEMSPOCKET ; right
|
|
call Pack_InterpretJoypad
|
|
ret c
|
|
call ItemSubmenu
|
|
ret
|
|
|
|
ItemSubmenu:
|
|
farcall CheckItemContext
|
|
ld a, [wItemAttributeParamBuffer]
|
|
TMHMSubmenu:
|
|
and a
|
|
jr z, .NoUse
|
|
ld hl, .UsableMenuHeader
|
|
ld de, .UsableJumptable
|
|
jr .proceed
|
|
|
|
.NoUse:
|
|
ld hl, .UnusableMenuHeader
|
|
ld de, .UnusableJumptable
|
|
.proceed
|
|
push de
|
|
call LoadMenuHeader
|
|
call VerticalMenu
|
|
call ExitMenu
|
|
pop hl
|
|
ret c
|
|
ld a, [wMenuCursorY]
|
|
dec a
|
|
call Pack_GetJumptablePointer
|
|
jp hl
|
|
|
|
.UsableMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 13, 7, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .UsableMenuData
|
|
db 1 ; default option
|
|
|
|
.UsableMenuData:
|
|
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
|
|
db 2 ; items
|
|
db "USE@"
|
|
db "QUIT@"
|
|
|
|
.UsableJumptable:
|
|
dw .Use
|
|
dw .Quit
|
|
|
|
.UnusableMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 13, 9, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .UnusableMenuData
|
|
db 1 ; default option
|
|
|
|
.UnusableMenuData:
|
|
db STATICMENU_CURSOR | STATICMENU_NO_TOP_SPACING ; flags
|
|
db 1 ; items
|
|
db "QUIT@"
|
|
|
|
.UnusableJumptable:
|
|
dw .Quit
|
|
|
|
.Use:
|
|
farcall CheckItemContext
|
|
ld a, [wItemAttributeParamBuffer]
|
|
ld hl, .ItemFunctionJumptable
|
|
rst JumpTable
|
|
ret
|
|
|
|
.ItemFunctionJumptable:
|
|
; entries correspond to ITEMMENU_* constants
|
|
dw .Oak ; ITEMMENU_NOUSE
|
|
dw .Oak
|
|
dw .Oak
|
|
dw .Oak
|
|
dw .Unused ; ITEMMENU_CURRENT
|
|
dw .BattleField ; ITEMMENU_PARTY
|
|
dw .BattleOnly ; ITEMMENU_CLOSE
|
|
|
|
.Oak:
|
|
ld hl, Text_ThisIsntTheTime
|
|
call Pack_PrintTextNoScroll
|
|
ret
|
|
|
|
.Unused:
|
|
call DoItemEffect
|
|
ld a, [wItemEffectSucceeded]
|
|
and a
|
|
jr nz, .ReturnToBattle
|
|
ret
|
|
|
|
.BattleField:
|
|
call DoItemEffect
|
|
ld a, [wItemEffectSucceeded]
|
|
and a
|
|
jr nz, .quit_run_script
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
call Pack_InitGFX
|
|
call WaitBGMap_DrawPackGFX
|
|
call Pack_InitColors
|
|
ret
|
|
|
|
.ReturnToBattle:
|
|
call ClearBGPalettes
|
|
jr .quit_run_script
|
|
|
|
.BattleOnly:
|
|
call DoItemEffect
|
|
ld a, [wItemEffectSucceeded]
|
|
and a
|
|
jr z, .Oak
|
|
cp $2
|
|
jr z, .didnt_use_item
|
|
.quit_run_script
|
|
ld a, PACKSTATE_QUITRUNSCRIPT
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.didnt_use_item
|
|
xor a
|
|
ld [wItemEffectSucceeded], a
|
|
ret
|
|
.Quit:
|
|
ret
|
|
|
|
InitPackBuffers:
|
|
xor a
|
|
ld [wJumptableIndex], a
|
|
; pocket id -> jumptable index
|
|
ld a, [wLastPocket]
|
|
maskbits NUM_POCKETS
|
|
ld [wCurPocket], a
|
|
inc a
|
|
add a
|
|
dec a
|
|
ld [wPackJumptableIndex], a
|
|
xor a ; FALSE
|
|
ld [wPackUsedItem], a
|
|
xor a
|
|
ld [wSwitchItem], a
|
|
ret
|
|
|
|
DepositSellInitPackBuffers:
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
ld [wJumptableIndex], a ; PACKSTATE_INITGFX
|
|
ld [wPackJumptableIndex], a ; PACKSTATE_INITGFX
|
|
ld [wCurPocket], a ; ITEM_POCKET
|
|
ld [wPackUsedItem], a
|
|
ld [wSwitchItem], a
|
|
call Pack_InitGFX
|
|
call Pack_InitColors
|
|
ret
|
|
|
|
DepositSellPack:
|
|
.loop
|
|
call .RunJumptable
|
|
call DepositSellTutorial_InterpretJoypad
|
|
jr c, .loop
|
|
ret
|
|
|
|
.RunJumptable:
|
|
ld a, [wJumptableIndex]
|
|
ld hl, .Jumptable
|
|
call Pack_GetJumptablePointer
|
|
jp hl
|
|
|
|
.Jumptable:
|
|
; entries correspond to *_POCKET constants
|
|
dw .ItemsPocket
|
|
dw .BallsPocket
|
|
dw .KeyItemsPocket
|
|
dw .TMHMPocket
|
|
|
|
.ItemsPocket:
|
|
xor a ; ITEM_POCKET
|
|
call InitPocket
|
|
ld hl, PC_Mart_ItemsPocketMenuHeader
|
|
call CopyMenuHeader
|
|
ld a, [wItemsPocketCursor]
|
|
ld [wMenuCursorBuffer], a
|
|
ld a, [wItemsPocketScrollPosition]
|
|
ld [wMenuScrollPosition], a
|
|
call ScrollingMenu
|
|
ld a, [wMenuScrollPosition]
|
|
ld [wItemsPocketScrollPosition], a
|
|
ld a, [wMenuCursorY]
|
|
ld [wItemsPocketCursor], a
|
|
ret
|
|
|
|
.KeyItemsPocket:
|
|
ld a, KEY_ITEM_POCKET
|
|
call InitPocket
|
|
ld hl, PC_Mart_KeyItemsPocketMenuHeader
|
|
call CopyMenuHeader
|
|
ld a, [wKeyItemsPocketCursor]
|
|
ld [wMenuCursorBuffer], a
|
|
ld a, [wKeyItemsPocketScrollPosition]
|
|
ld [wMenuScrollPosition], a
|
|
call ScrollingMenu
|
|
ld a, [wMenuScrollPosition]
|
|
ld [wKeyItemsPocketScrollPosition], a
|
|
ld a, [wMenuCursorY]
|
|
ld [wKeyItemsPocketCursor], a
|
|
ret
|
|
|
|
.TMHMPocket:
|
|
ld a, TM_HM_POCKET
|
|
call InitPocket
|
|
call WaitBGMap_DrawPackGFX
|
|
farcall TMHMPocket
|
|
ld a, [wCurItem]
|
|
ld [wCurItem], a
|
|
ret
|
|
|
|
.BallsPocket:
|
|
ld a, BALL_POCKET
|
|
call InitPocket
|
|
ld hl, PC_Mart_BallsPocketMenuHeader
|
|
call CopyMenuHeader
|
|
ld a, [wBallsPocketCursor]
|
|
ld [wMenuCursorBuffer], a
|
|
ld a, [wBallsPocketScrollPosition]
|
|
ld [wMenuScrollPosition], a
|
|
call ScrollingMenu
|
|
ld a, [wMenuScrollPosition]
|
|
ld [wBallsPocketScrollPosition], a
|
|
ld a, [wMenuCursorY]
|
|
ld [wBallsPocketCursor], a
|
|
ret
|
|
|
|
InitPocket:
|
|
ld [wCurPocket], a
|
|
call ClearPocketList
|
|
call DrawPocketName
|
|
call WaitBGMap_DrawPackGFX
|
|
ret
|
|
|
|
DepositSellTutorial_InterpretJoypad:
|
|
ld hl, wMenuJoypad
|
|
ld a, [hl]
|
|
and A_BUTTON
|
|
jr nz, .a_button
|
|
ld a, [hl]
|
|
and B_BUTTON
|
|
jr nz, .b_button
|
|
ld a, [hl]
|
|
and D_LEFT
|
|
jr nz, .d_left
|
|
ld a, [hl]
|
|
and D_RIGHT
|
|
jr nz, .d_right
|
|
scf
|
|
ret
|
|
|
|
.a_button
|
|
ld a, TRUE
|
|
ld [wPackUsedItem], a
|
|
and a
|
|
ret
|
|
|
|
.b_button
|
|
xor a ; FALSE
|
|
ld [wPackUsedItem], a
|
|
and a
|
|
ret
|
|
|
|
.d_left
|
|
ld a, [wJumptableIndex]
|
|
dec a
|
|
maskbits NUM_POCKETS
|
|
ld [wJumptableIndex], a
|
|
push de
|
|
ld de, SFX_SWITCH_POCKETS
|
|
call PlaySFX
|
|
pop de
|
|
scf
|
|
ret
|
|
|
|
.d_right
|
|
ld a, [wJumptableIndex]
|
|
inc a
|
|
maskbits NUM_POCKETS
|
|
ld [wJumptableIndex], a
|
|
push de
|
|
ld de, SFX_SWITCH_POCKETS
|
|
call PlaySFX
|
|
pop de
|
|
scf
|
|
ret
|
|
|
|
TutorialPack:
|
|
call DepositSellInitPackBuffers
|
|
ld a, [wInputType]
|
|
or a
|
|
jr z, .loop
|
|
farcall _DudeAutoInput_RightA
|
|
.loop
|
|
call .RunJumptable
|
|
call DepositSellTutorial_InterpretJoypad
|
|
jr c, .loop
|
|
xor a ; FALSE
|
|
ld [wPackUsedItem], a
|
|
ret
|
|
|
|
.RunJumptable:
|
|
ld a, [wJumptableIndex]
|
|
ld hl, .dw
|
|
call Pack_GetJumptablePointer
|
|
jp hl
|
|
|
|
.dw
|
|
; entries correspond to *_POCKET constants
|
|
dw .Items
|
|
dw .Balls
|
|
dw .KeyItems
|
|
dw .TMHM
|
|
|
|
.Items:
|
|
xor a ; ITEM_POCKET
|
|
ld hl, .ItemsMenuHeader
|
|
jr .DisplayPocket
|
|
|
|
.ItemsMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .ItemsMenuData
|
|
db 1 ; default option
|
|
|
|
.ItemsMenuData:
|
|
db STATICMENU_ENABLE_SELECT | STATICMENU_ENABLE_LEFT_RIGHT | STATICMENU_ENABLE_START | STATICMENU_WRAP | STATICMENU_CURSOR ; flags
|
|
db 5, 8 ; rows, columns
|
|
db 2 ; horizontal spacing
|
|
dbw 0, wDudeNumItems
|
|
dba PlaceMenuItemName
|
|
dba PlaceMenuItemQuantity
|
|
dba UpdateItemDescription
|
|
|
|
.KeyItems:
|
|
ld a, KEY_ITEM_POCKET
|
|
ld hl, .KeyItemsMenuHeader
|
|
jr .DisplayPocket
|
|
|
|
.KeyItemsMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .KeyItemsMenuData
|
|
db 1 ; default option
|
|
|
|
.KeyItemsMenuData:
|
|
db STATICMENU_ENABLE_SELECT | STATICMENU_ENABLE_LEFT_RIGHT | STATICMENU_ENABLE_START | STATICMENU_WRAP | STATICMENU_CURSOR ; flags
|
|
db 5, 8 ; rows, columns
|
|
db 1 ; horizontal spacing
|
|
dbw 0, wDudeNumKeyItems
|
|
dba PlaceMenuItemName
|
|
dba PlaceMenuItemQuantity
|
|
dba UpdateItemDescription
|
|
|
|
.TMHM:
|
|
ld a, TM_HM_POCKET
|
|
call InitPocket
|
|
call WaitBGMap_DrawPackGFX
|
|
farcall TMHMPocket
|
|
ld a, [wCurItem]
|
|
ld [wCurItem], a
|
|
ret
|
|
|
|
.Balls:
|
|
ld a, BALL_POCKET
|
|
ld hl, .BallsMenuHeader
|
|
jr .DisplayPocket
|
|
|
|
.BallsMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .BallsMenuData
|
|
db 1 ; default option
|
|
|
|
.BallsMenuData:
|
|
db STATICMENU_ENABLE_SELECT | STATICMENU_ENABLE_LEFT_RIGHT | STATICMENU_ENABLE_START | STATICMENU_WRAP | STATICMENU_CURSOR ; flags
|
|
db 5, 8 ; rows, columns
|
|
db 2 ; horizontal spacing
|
|
dbw 0, wDudeNumBalls
|
|
dba PlaceMenuItemName
|
|
dba PlaceMenuItemQuantity
|
|
dba UpdateItemDescription
|
|
|
|
.DisplayPocket:
|
|
push hl
|
|
call InitPocket
|
|
pop hl
|
|
call CopyMenuHeader
|
|
call ScrollingMenu
|
|
ret
|
|
|
|
Pack_JumptableNext:
|
|
ld hl, wJumptableIndex
|
|
inc [hl]
|
|
ret
|
|
|
|
Pack_GetJumptablePointer:
|
|
ld e, a
|
|
ld d, 0
|
|
add hl, de
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ret
|
|
|
|
Pack_QuitNoScript:
|
|
ld hl, wJumptableIndex
|
|
set 7, [hl]
|
|
xor a ; FALSE
|
|
ld [wPackUsedItem], a
|
|
ret
|
|
|
|
Pack_QuitRunScript:
|
|
ld hl, wJumptableIndex
|
|
set 7, [hl]
|
|
ld a, TRUE
|
|
ld [wPackUsedItem], a
|
|
ret
|
|
|
|
Pack_PrintTextNoScroll:
|
|
ld a, [wOptions]
|
|
push af
|
|
set NO_TEXT_SCROLL, a
|
|
ld [wOptions], a
|
|
call PrintText
|
|
pop af
|
|
ld [wOptions], a
|
|
ret
|
|
|
|
WaitBGMap_DrawPackGFX:
|
|
call WaitBGMap
|
|
DrawPackGFX:
|
|
ld a, [wCurPocket]
|
|
maskbits NUM_POCKETS
|
|
ld e, a
|
|
ld d, 0
|
|
ld a, [wBattleType]
|
|
cp BATTLETYPE_TUTORIAL
|
|
jr z, .male_dude
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr nz, .female
|
|
.male_dude
|
|
ld hl, PackGFXPointers
|
|
add hl, de
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld e, a
|
|
ld d, [hl]
|
|
ld hl, vTiles2 tile $50
|
|
lb bc, BANK(PackGFX), 15
|
|
call Request2bpp
|
|
ret
|
|
|
|
.female
|
|
farcall DrawKrisPackGFX
|
|
ret
|
|
|
|
PackGFXPointers:
|
|
dw PackGFX + (15 tiles) * 1 ; ITEM_POCKET
|
|
dw PackGFX + (15 tiles) * 3 ; BALL_POCKET
|
|
dw PackGFX + (15 tiles) * 0 ; KEY_ITEM_POCKET
|
|
dw PackGFX + (15 tiles) * 2 ; TM_HM_POCKET
|
|
|
|
Pack_InterpretJoypad:
|
|
ld hl, wMenuJoypad
|
|
ld a, [wSwitchItem]
|
|
and a
|
|
jr nz, .switching_item
|
|
ld a, [hl]
|
|
and A_BUTTON
|
|
jr nz, .a_button
|
|
ld a, [hl]
|
|
and B_BUTTON
|
|
jr nz, .b_button
|
|
ld a, [hl]
|
|
and D_LEFT
|
|
jr nz, .d_left
|
|
ld a, [hl]
|
|
and D_RIGHT
|
|
jr nz, .d_right
|
|
ld a, [hl]
|
|
and SELECT
|
|
jr nz, .select
|
|
scf
|
|
ret
|
|
|
|
.a_button
|
|
and a
|
|
ret
|
|
|
|
.b_button
|
|
ld a, PACKSTATE_QUITNOSCRIPT
|
|
ld [wJumptableIndex], a
|
|
scf
|
|
ret
|
|
|
|
.d_left
|
|
ld a, b
|
|
ld [wJumptableIndex], a
|
|
ld [wPackJumptableIndex], a
|
|
push de
|
|
ld de, SFX_SWITCH_POCKETS
|
|
call PlaySFX
|
|
pop de
|
|
scf
|
|
ret
|
|
|
|
.d_right
|
|
ld a, c
|
|
ld [wJumptableIndex], a
|
|
ld [wPackJumptableIndex], a
|
|
push de
|
|
ld de, SFX_SWITCH_POCKETS
|
|
call PlaySFX
|
|
pop de
|
|
scf
|
|
ret
|
|
|
|
.select
|
|
farcall SwitchItemsInBag
|
|
ld hl, Text_MoveItemWhere
|
|
call Pack_PrintTextNoScroll
|
|
scf
|
|
ret
|
|
|
|
.switching_item
|
|
ld a, [hl]
|
|
and A_BUTTON | SELECT
|
|
jr nz, .place_insert
|
|
ld a, [hl]
|
|
and B_BUTTON
|
|
jr nz, .end_switch
|
|
scf
|
|
ret
|
|
|
|
.place_insert
|
|
farcall SwitchItemsInBag
|
|
ld de, SFX_SWITCH_POKEMON
|
|
call WaitPlaySFX
|
|
ld de, SFX_SWITCH_POKEMON
|
|
call WaitPlaySFX
|
|
.end_switch
|
|
xor a
|
|
ld [wSwitchItem], a
|
|
scf
|
|
ret
|
|
|
|
Pack_InitGFX:
|
|
call ClearBGPalettes
|
|
call ClearTileMap
|
|
call ClearSprites
|
|
call DisableLCD
|
|
ld hl, PackMenuGFX
|
|
ld de, vTiles2
|
|
ld bc, $60 tiles
|
|
ld a, BANK(PackMenuGFX)
|
|
call FarCopyBytes
|
|
; Background (blue if male, pink if female)
|
|
hlcoord 0, 1
|
|
ld bc, 11 * SCREEN_WIDTH
|
|
ld a, $24
|
|
call ByteFill
|
|
; This is where the items themselves will be listed.
|
|
hlcoord 5, 1
|
|
lb bc, 11, 15
|
|
call ClearBox
|
|
; ◀▶ POCKET ▼▲ ITEMS
|
|
hlcoord 0, 0
|
|
ld a, $28
|
|
ld c, SCREEN_WIDTH
|
|
.loop
|
|
ld [hli], a
|
|
inc a
|
|
dec c
|
|
jr nz, .loop
|
|
call DrawPocketName
|
|
call PlacePackGFX
|
|
; Place the textbox for displaying the item description
|
|
hlcoord 0, SCREEN_HEIGHT - 4 - 2
|
|
lb bc, 4, SCREEN_WIDTH - 2
|
|
call TextBox
|
|
call EnableLCD
|
|
call DrawPackGFX
|
|
ret
|
|
|
|
PlacePackGFX:
|
|
hlcoord 0, 3
|
|
ld a, $50
|
|
ld de, SCREEN_WIDTH - 5
|
|
ld b, 3
|
|
.row
|
|
ld c, 5
|
|
.column
|
|
ld [hli], a
|
|
inc a
|
|
dec c
|
|
jr nz, .column
|
|
add hl, de
|
|
dec b
|
|
jr nz, .row
|
|
ret
|
|
|
|
DrawPocketName:
|
|
ld a, [wCurPocket]
|
|
; * 15
|
|
ld d, a
|
|
swap a
|
|
sub d
|
|
ld d, 0
|
|
ld e, a
|
|
ld hl, .tilemap
|
|
add hl, de
|
|
ld d, h
|
|
ld e, l
|
|
hlcoord 0, 7
|
|
ld c, 3
|
|
.row
|
|
ld b, 5
|
|
.col
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
dec b
|
|
jr nz, .col
|
|
ld a, c
|
|
ld c, SCREEN_WIDTH - 5
|
|
add hl, bc
|
|
ld c, a
|
|
dec c
|
|
jr nz, .row
|
|
ret
|
|
|
|
.tilemap
|
|
; ITEM_POCKET
|
|
db $00, $04, $04, $04, $01 ; top border
|
|
db $06, $07, $08, $09, $0a ; Items
|
|
db $02, $05, $05, $05, $03 ; bottom border
|
|
; BALL_POCKET
|
|
db $00, $04, $04, $04, $01 ; top border
|
|
db $15, $16, $17, $18, $19 ; Balls
|
|
db $02, $05, $05, $05, $03 ; bottom border
|
|
; KEY_ITEM_POCKET
|
|
db $00, $04, $04, $04, $01 ; top border
|
|
db $0b, $0c, $0d, $0e, $0f ; Key Items
|
|
db $02, $05, $05, $05, $03 ; bottom border
|
|
; TM_HM_POCKET
|
|
db $00, $04, $04, $04, $01 ; top border
|
|
db $10, $11, $12, $13, $14 ; TM/HM
|
|
db $02, $05, $05, $05, $03 ; bottom border
|
|
|
|
Pack_GetItemName:
|
|
ld a, [wCurItem]
|
|
ld [wNamedObjectIndexBuffer], a
|
|
call GetItemName
|
|
call CopyName1
|
|
ret
|
|
|
|
Unreferenced_Pack_ClearTilemap:
|
|
hlcoord 0, 0
|
|
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
|
|
ld a, " "
|
|
call ByteFill
|
|
ret
|
|
|
|
ClearPocketList:
|
|
hlcoord 5, 2
|
|
lb bc, 10, SCREEN_WIDTH - 5
|
|
call ClearBox
|
|
ret
|
|
|
|
Pack_InitColors:
|
|
call WaitBGMap
|
|
ld b, SCGB_PACKPALS
|
|
call GetSGBLayout
|
|
call SetPalettes
|
|
call DelayFrame
|
|
ret
|
|
|
|
ItemsPocketMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_ENABLE_SELECT | STATICMENU_ENABLE_LEFT_RIGHT | STATICMENU_ENABLE_START | STATICMENU_WRAP | STATICMENU_CURSOR ; flags
|
|
db 5, 8 ; rows, columns
|
|
db 2 ; horizontal spacing
|
|
dbw 0, wNumItems
|
|
dba PlaceMenuItemName
|
|
dba PlaceMenuItemQuantity
|
|
dba UpdateItemDescription
|
|
|
|
PC_Mart_ItemsPocketMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_ENABLE_SELECT | STATICMENU_ENABLE_LEFT_RIGHT | STATICMENU_ENABLE_START | STATICMENU_WRAP ; flags
|
|
db 5, 8 ; rows, columns
|
|
db 2 ; horizontal spacing
|
|
dbw 0, wNumItems
|
|
dba PlaceMenuItemName
|
|
dba PlaceMenuItemQuantity
|
|
dba UpdateItemDescription
|
|
|
|
KeyItemsPocketMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_ENABLE_SELECT | STATICMENU_ENABLE_LEFT_RIGHT | STATICMENU_ENABLE_START | STATICMENU_WRAP | STATICMENU_CURSOR ; flags
|
|
db 5, 8 ; rows, columns
|
|
db 1 ; horizontal spacing
|
|
dbw 0, wNumKeyItems
|
|
dba PlaceMenuItemName
|
|
dba PlaceMenuItemQuantity
|
|
dba UpdateItemDescription
|
|
|
|
PC_Mart_KeyItemsPocketMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_ENABLE_SELECT | STATICMENU_ENABLE_LEFT_RIGHT | STATICMENU_ENABLE_START | STATICMENU_WRAP ; flags
|
|
db 5, 8 ; rows, columns
|
|
db 1 ; horizontal spacing
|
|
dbw 0, wNumKeyItems
|
|
dba PlaceMenuItemName
|
|
dba PlaceMenuItemQuantity
|
|
dba UpdateItemDescription
|
|
|
|
BallsPocketMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_ENABLE_SELECT | STATICMENU_ENABLE_LEFT_RIGHT | STATICMENU_ENABLE_START | STATICMENU_WRAP | STATICMENU_CURSOR ; flags
|
|
db 5, 8 ; rows, columns
|
|
db 2 ; horizontal spacing
|
|
dbw 0, wNumBalls
|
|
dba PlaceMenuItemName
|
|
dba PlaceMenuItemQuantity
|
|
dba UpdateItemDescription
|
|
|
|
PC_Mart_BallsPocketMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_ENABLE_SELECT | STATICMENU_ENABLE_LEFT_RIGHT | STATICMENU_ENABLE_START | STATICMENU_WRAP ; flags
|
|
db 5, 8 ; rows, columns
|
|
db 2 ; horizontal spacing
|
|
dbw 0, wNumBalls
|
|
dba PlaceMenuItemName
|
|
dba PlaceMenuItemQuantity
|
|
dba UpdateItemDescription
|
|
|
|
Text_PackNoItems:
|
|
; No items.
|
|
text_far UnknownText_0x1c0b9a
|
|
db "@"
|
|
|
|
Text_ThrowAwayHowMany:
|
|
; Throw away how many?
|
|
text_far UnknownText_0x1c0ba5
|
|
db "@"
|
|
|
|
Text_ConfirmThrowAway:
|
|
; Throw away @ @ (S)?
|
|
text_far UnknownText_0x1c0bbb
|
|
db "@"
|
|
|
|
Text_ThrewAway:
|
|
; Threw away @ (S).
|
|
text_far UnknownText_0x1c0bd8
|
|
db "@"
|
|
|
|
Text_ThisIsntTheTime:
|
|
; OAK: ! This isn't the time to use that!
|
|
text_far UnknownText_0x1c0bee
|
|
db "@"
|
|
|
|
TextJump_YouDontHaveAMon:
|
|
; You don't have a #MON!
|
|
text_far Text_YouDontHaveAMon
|
|
db "@"
|
|
|
|
Text_RegisteredItem:
|
|
; Registered the @ .
|
|
text_far UnknownText_0x1c0c2e
|
|
db "@"
|
|
|
|
Text_CantRegister:
|
|
; You can't register that item.
|
|
text_far UnknownText_0x1c0c45
|
|
db "@"
|
|
|
|
Text_MoveItemWhere:
|
|
; Where should this be moved to?
|
|
text_far UnknownText_0x1c0c63
|
|
db "@"
|
|
|
|
Text_PackEmptyString:
|
|
;
|
|
text_far UnknownText_0x1c0c83
|
|
db "@"
|
|
|
|
TextJump_YouCantUseItInABattle:
|
|
; Doesn't seem to be used anywhere
|
|
; "You can't use it in a battle."
|
|
text_far Text_YouCantUseItInABattle
|
|
db "@"
|
|
|
|
PackMenuGFX:
|
|
INCBIN "gfx/pack/pack_menu.2bpp"
|
|
PackGFX:
|
|
INCBIN "gfx/pack/pack.2bpp"
|