summaryrefslogtreecommitdiff
path: root/engine/items/pack.asm
diff options
context:
space:
mode:
Diffstat (limited to 'engine/items/pack.asm')
-rw-r--r--engine/items/pack.asm248
1 files changed, 96 insertions, 152 deletions
diff --git a/engine/items/pack.asm b/engine/items/pack.asm
index 9f0e82f66..3ad330f3a 100644
--- a/engine/items/pack.asm
+++ b/engine/items/pack.asm
@@ -12,7 +12,7 @@
const PACKSTATE_QUITNOSCRIPT ; 9
const PACKSTATE_QUITRUNSCRIPT ; 10
-Pack: ; 10000
+Pack:
ld hl, wOptions
set NO_TEXT_SCROLL, [hl]
call InitPackBuffers
@@ -31,17 +31,15 @@ Pack: ; 10000
ld hl, wOptions
res NO_TEXT_SCROLL, [hl]
ret
-; 10026
-.RunJumptable: ; 10026
+.RunJumptable:
ld a, [wJumptableIndex]
ld hl, .Jumptable
call Pack_GetJumptablePointer
jp hl
-; 10030
-.Jumptable: ; 10030 (4:4030)
+.Jumptable:
; entries correspond to PACKSTATE_* constants
dw .InitGFX ; 0
dw .InitItemsPocket ; 1
@@ -55,7 +53,7 @@ Pack: ; 10000
dw Pack_QuitNoScript ; 9
dw Pack_QuitRunScript ; 10
-.InitGFX: ; 10046 (4:4046)
+.InitGFX:
xor a
ld [hBGMapMode], a
call Pack_InitGFX
@@ -64,7 +62,7 @@ Pack: ; 10000
call Pack_InitColors
ret
-.InitItemsPocket: ; 10056 (4:4056)
+.InitItemsPocket:
xor a ; ITEM_POCKET
ld [wCurrPocket], a
call ClearPocketList
@@ -73,7 +71,7 @@ Pack: ; 10000
call Pack_JumptableNext
ret
-.ItemsPocketMenu: ; 10067 (4:4067)
+.ItemsPocketMenu:
ld hl, ItemsPocketMenuHeader
call CopyMenuHeader
ld a, [wItemsPocketCursor]
@@ -92,7 +90,7 @@ Pack: ; 10000
call .ItemBallsKey_LoadSubmenu
ret
-.InitKeyItemsPocket: ; 10094 (4:4094)
+.InitKeyItemsPocket:
ld a, KEY_ITEM_POCKET
ld [wCurrPocket], a
call ClearPocketList
@@ -101,7 +99,7 @@ Pack: ; 10000
call Pack_JumptableNext
ret
-.KeyItemsPocketMenu: ; 100a6 (4:40a6)
+.KeyItemsPocketMenu:
ld hl, KeyItemsPocketMenuHeader
call CopyMenuHeader
ld a, [wKeyItemsPocketCursor]
@@ -120,7 +118,7 @@ Pack: ; 10000
call .ItemBallsKey_LoadSubmenu
ret
-.InitTMHMPocket: ; 100d3 (4:40d3)
+.InitTMHMPocket:
ld a, TM_HM_POCKET
ld [wCurrPocket], a
call ClearPocketList
@@ -131,7 +129,7 @@ Pack: ; 10000
call Pack_JumptableNext
ret
-.TMHMPocketMenu: ; 100e8 (4:40e8)
+.TMHMPocketMenu:
farcall TMHMPocket
ld b, PACKSTATE_INITKEYITEMSPOCKET ; left
ld c, PACKSTATE_INITITEMSPOCKET ; right
@@ -160,7 +158,6 @@ Pack: ; 10000
call Pack_GetJumptablePointer
jp hl
-; 10124 (4:4124)
.MenuHeader1: ; 0x10124
db MENU_BACKUP_TILES ; flags
menu_coords 13, 7, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
@@ -175,11 +172,10 @@ Pack: ; 10000
db "QUIT@"
; 0x10137
-.Jumptable1: ; 10137
+.Jumptable1:
dw .UseItem
dw QuitItemSubmenu
-; 1013b
.MenuHeader2: ; 0x1013b
db MENU_BACKUP_TILES ; flags
@@ -196,13 +192,12 @@ Pack: ; 10000
db "QUIT@"
; 0x10153
-.Jumptable2: ; 10153
+.Jumptable2:
dw .UseItem
dw GiveItem
dw QuitItemSubmenu
-; 10159
-.UseItem: ; 10159
+.UseItem:
farcall AskTeachTMHM
ret c
farcall ChooseMonToLearnTMHM
@@ -222,7 +217,7 @@ Pack: ; 10000
call Pack_InitColors
ret
-.InitBallsPocket: ; 10186 (4:4186)
+.InitBallsPocket:
ld a, BALL_POCKET
ld [wCurrPocket], a
call ClearPocketList
@@ -231,7 +226,7 @@ Pack: ; 10000
call Pack_JumptableNext
ret
-.BallsPocketMenu: ; 10198 (4:4198)
+.BallsPocketMenu:
ld hl, BallsPocketMenuHeader
call CopyMenuHeader
ld a, [wBallsPocketCursor]
@@ -250,7 +245,7 @@ Pack: ; 10000
call .ItemBallsKey_LoadSubmenu
ret
-.ItemBallsKey_LoadSubmenu: ; 101c5 (4:41c5)
+.ItemBallsKey_LoadSubmenu:
farcall _CheckTossableItem
ld a, [wItemAttributeParamBuffer]
and a
@@ -319,7 +314,6 @@ Pack: ; 10000
call Pack_GetJumptablePointer
jp hl
-; 10249 (4:4249)
MenuHeader_UsableKeyItem: ; 0x10249
db MENU_BACKUP_TILES ; flags
menu_coords 13, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
@@ -337,13 +331,12 @@ MenuHeader_UsableKeyItem: ; 0x10249
db "QUIT@"
; 0x1026a
-Jumptable_UseGiveTossRegisterQuit: ; 1026a
+Jumptable_UseGiveTossRegisterQuit:
dw UseItem
dw GiveItem
dw TossMenu
dw RegisterItem
dw QuitItemSubmenu
-; 10274
MenuHeader_UsableItem: ; 0x10274
db MENU_BACKUP_TILES ; flags
@@ -361,12 +354,11 @@ MenuHeader_UsableItem: ; 0x10274
db "QUIT@"
; 0x10291
-Jumptable_UseGiveTossQuit: ; 10291
+Jumptable_UseGiveTossQuit:
dw UseItem
dw GiveItem
dw TossMenu
dw QuitItemSubmenu
-; 10299
MenuHeader_UnusableItem: ; 0x10299
db MENU_BACKUP_TILES ; flags
@@ -382,10 +374,9 @@ MenuHeader_UnusableItem: ; 0x10299
db "QUIT@"
; 0x102ac
-Jumptable_UseQuit: ; 102ac
+Jumptable_UseQuit:
dw UseItem
dw QuitItemSubmenu
-; 102b0
MenuHeader_UnusableKeyItem: ; 0x102b0
db MENU_BACKUP_TILES ; flags
@@ -402,11 +393,10 @@ MenuHeader_UnusableKeyItem: ; 0x102b0
db "QUIT@"
; 0x102c7
-Jumptable_UseRegisterQuit: ; 102c7
+Jumptable_UseRegisterQuit:
dw UseItem
dw RegisterItem
dw QuitItemSubmenu
-; 102cd
MenuHeader_HoldableKeyItem: ; 0x102cd
db MENU_BACKUP_TILES ; flags
@@ -424,12 +414,11 @@ MenuHeader_HoldableKeyItem: ; 0x102cd
db "QUIT@"
; 0x102ea
-Jumptable_GiveTossRegisterQuit: ; 102ea
+Jumptable_GiveTossRegisterQuit:
dw GiveItem
dw TossMenu
dw RegisterItem
dw QuitItemSubmenu
-; 102f2
MenuHeader_HoldableItem: ; 0x102f2
db MENU_BACKUP_TILES ; flags
@@ -446,22 +435,20 @@ MenuHeader_HoldableItem: ; 0x102f2
db "QUIT@"
; 0x1030b
-Jumptable_GiveTossQuit: ; 1030b
+Jumptable_GiveTossQuit:
dw GiveItem
dw TossMenu
dw QuitItemSubmenu
-; 10311
-UseItem: ; 10311
+UseItem:
farcall CheckItemMenu
ld a, [wItemAttributeParamBuffer]
ld hl, .dw
rst JumpTable
ret
-; 1031f
-.dw ; 1031f (4:431f)
+.dw
; entries correspond to ITEMMENU_* constants
dw .Oak ; ITEMMENU_NOUSE
dw .Oak
@@ -470,18 +457,17 @@ UseItem: ; 10311
dw .Current ; ITEMMENU_CURRENT
dw .Party ; ITEMMENU_PARTY
dw .Field ; ITEMMENU_CLOSE
-; 1035c
-.Oak: ; 1032d (4:432d)
+.Oak:
ld hl, Text_ThisIsntTheTime
call Pack_PrintTextNoScroll
ret
-.Current: ; 10334 (4:4334)
+.Current:
call DoItemEffect
ret
-.Party: ; 10338 (4:4338)
+.Party:
ld a, [wPartyCount]
and a
jr z, .NoPokemon
@@ -498,7 +484,7 @@ UseItem: ; 10311
call Pack_PrintTextNoScroll
ret
-.Field: ; 10355 (4:4355)
+.Field:
call DoItemEffect
ld a, [wItemEffectSucceeded]
and a
@@ -506,9 +492,8 @@ UseItem: ; 10311
ld a, PACKSTATE_QUITRUNSCRIPT
ld [wJumptableIndex], a
ret
-; 10364 (4:4364)
-TossMenu: ; 10364
+TossMenu:
ld hl, Text_ThrowAwayHowMany
call Pack_PrintTextNoScroll
farcall SelectQuantityToToss
@@ -532,9 +517,8 @@ TossMenu: ; 10364
call Pack_PrintTextNoScroll
.finish
ret
-; 1039d
-Unreferenced_ResetPocketCursorPositions: ; 1039d
+Unreferenced_ResetPocketCursorPositions:
ld a, [wCurrPocket]
and a ; ITEM_POCKET
jr z, .items
@@ -561,9 +545,8 @@ Unreferenced_ResetPocketCursorPositions: ; 1039d
ld [wKeyItemsPocketCursor], a
ld [wKeyItemsPocketScrollPosition], a
ret
-; 103c2
-RegisterItem: ; 103c2
+RegisterItem:
farcall CheckSelectableItem
ld a, [wItemAttributeParamBuffer]
and a
@@ -591,9 +574,8 @@ RegisterItem: ; 103c2
ld hl, Text_CantRegister
call Pack_PrintTextNoScroll
ret
-; 103fd
-GiveItem: ; 103fd
+GiveItem:
ld a, [wPartyCount]
and a
jp z, .NoPokemon
@@ -647,22 +629,20 @@ GiveItem: ; 103fd
call Pack_InitColors
ret
-.NoPokemon: ; 10486 (4:4486)
+.NoPokemon:
ld hl, TextJump_YouDontHaveAMon
call Pack_PrintTextNoScroll
ret
-; 1048d (4:448d)
.Egg: ; 0x1048d
; An EGG can't hold an item.
text_jump Text_AnEGGCantHoldAnItem
db "@"
; 0x10492
-QuitItemSubmenu: ; 10492
+QuitItemSubmenu:
ret
-; 10493
-BattlePack: ; 10493
+BattlePack:
ld hl, wOptions
set NO_TEXT_SCROLL, [hl]
call InitPackBuffers
@@ -681,17 +661,15 @@ BattlePack: ; 10493
ld hl, wOptions
res NO_TEXT_SCROLL, [hl]
ret
-; 104b9
-.RunJumptable: ; 104b9
+.RunJumptable:
ld a, [wJumptableIndex]
ld hl, .Jumptable
call Pack_GetJumptablePointer
jp hl
-; 104c3
-.Jumptable: ; 104c3 (4:44c3)
+.Jumptable:
; entries correspond to PACKSTATE_* constants
dw .InitGFX ; 0
dw .InitItemsPocket ; 1
@@ -705,7 +683,7 @@ BattlePack: ; 10493
dw Pack_QuitNoScript ; 9
dw Pack_QuitRunScript ; 10
-.InitGFX: ; 104d9 (4:44d9)
+.InitGFX:
xor a
ld [hBGMapMode], a
call Pack_InitGFX
@@ -714,7 +692,7 @@ BattlePack: ; 10493
call Pack_InitColors
ret
-.InitItemsPocket: ; 104e9 (4:44e9)
+.InitItemsPocket:
xor a ; ITEM_POCKET
ld [wCurrPocket], a
call ClearPocketList
@@ -723,7 +701,7 @@ BattlePack: ; 10493
call Pack_JumptableNext
ret
-.ItemsPocketMenu: ; 104fa (4:44fa)
+.ItemsPocketMenu:
ld hl, ItemsPocketMenuHeader
call CopyMenuHeader
ld a, [wItemsPocketCursor]
@@ -742,7 +720,7 @@ BattlePack: ; 10493
call ItemSubmenu
ret
-.InitKeyItemsPocket: ; 10527 (4:4527)
+.InitKeyItemsPocket:
ld a, KEY_ITEM_POCKET
ld [wCurrPocket], a
call ClearPocketList
@@ -751,7 +729,7 @@ BattlePack: ; 10493
call Pack_JumptableNext
ret
-.KeyItemsPocketMenu: ; 10539 (4:4539)
+.KeyItemsPocketMenu:
ld hl, KeyItemsPocketMenuHeader
call CopyMenuHeader
ld a, [wKeyItemsPocketCursor]
@@ -770,7 +748,7 @@ BattlePack: ; 10493
call ItemSubmenu
ret
-.InitTMHMPocket: ; 10566 (4:4566)
+.InitTMHMPocket:
ld a, TM_HM_POCKET
ld [wCurrPocket], a
call ClearPocketList
@@ -783,7 +761,7 @@ BattlePack: ; 10493
call Pack_JumptableNext
ret
-.TMHMPocketMenu: ; 10581 (4:4581)
+.TMHMPocketMenu:
farcall TMHMPocket
ld b, PACKSTATE_INITKEYITEMSPOCKET ; left
ld c, PACKSTATE_INITITEMSPOCKET ; right
@@ -793,7 +771,7 @@ BattlePack: ; 10493
call TMHMSubmenu
ret
-.InitBallsPocket: ; 10594 (4:4594)
+.InitBallsPocket:
ld a, BALL_POCKET
ld [wCurrPocket], a
call ClearPocketList
@@ -802,7 +780,7 @@ BattlePack: ; 10493
call Pack_JumptableNext
ret
-.BallsPocketMenu: ; 105a6 (4:45a6)
+.BallsPocketMenu:
ld hl, BallsPocketMenuHeader
call CopyMenuHeader
ld a, [wBallsPocketCursor]
@@ -821,10 +799,10 @@ BattlePack: ; 10493
call ItemSubmenu
ret
-ItemSubmenu: ; 105d3 (4:45d3)
+ItemSubmenu:
farcall CheckItemContext
ld a, [wItemAttributeParamBuffer]
-TMHMSubmenu: ; 105dc (4:45dc)
+TMHMSubmenu:
and a
jr z, .NoUse
ld hl, .UsableMenuHeader
@@ -846,7 +824,6 @@ TMHMSubmenu: ; 105dc (4:45dc)
call Pack_GetJumptablePointer
jp hl
-; 10601 (4:4601)
.UsableMenuHeader: ; 0x10601
db MENU_BACKUP_TILES ; flags
menu_coords 13, 7, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
@@ -861,10 +838,9 @@ TMHMSubmenu: ; 105dc (4:45dc)
db "QUIT@"
; 0x10614
-.UsableJumptable: ; 10614
+.UsableJumptable:
dw .Use
dw .Quit
-; 10618
.UnusableMenuHeader: ; 0x10618
db MENU_BACKUP_TILES ; flags
@@ -879,18 +855,17 @@ TMHMSubmenu: ; 105dc (4:45dc)
db "QUIT@"
; 0x10627
-.UnusableJumptable: ; 10627
+.UnusableJumptable:
dw .Quit
-; 10629
-.Use: ; 10629
+.Use:
farcall CheckItemContext
ld a, [wItemAttributeParamBuffer]
ld hl, .ItemFunctionJumptable
rst JumpTable
ret
-.ItemFunctionJumptable: ; 10637 (4:4637)
+.ItemFunctionJumptable:
; entries correspond to ITEMMENU_* constants
dw .Oak ; ITEMMENU_NOUSE
dw .Oak
@@ -900,19 +875,19 @@ TMHMSubmenu: ; 105dc (4:45dc)
dw .BattleField ; ITEMMENU_PARTY
dw .BattleOnly ; ITEMMENU_CLOSE
-.Oak: ; 10645 (4:4645)
+.Oak:
ld hl, Text_ThisIsntTheTime
call Pack_PrintTextNoScroll
ret
-.Unused: ; 1064c (4:464c)
+.Unused:
call DoItemEffect
ld a, [wItemEffectSucceeded]
and a
jr nz, .ReturnToBattle
ret
-.BattleField: ; 10656 (4:4656)
+.BattleField:
call DoItemEffect
ld a, [wItemEffectSucceeded]
and a
@@ -924,32 +899,30 @@ TMHMSubmenu: ; 105dc (4:45dc)
call Pack_InitColors
ret
-.ReturnToBattle: ; 1066c (4:466c)
+.ReturnToBattle:
call ClearBGPalettes
jr .quit_run_script
-.BattleOnly: ; 10671 (4:4671)
+.BattleOnly:
call DoItemEffect
ld a, [wItemEffectSucceeded]
and a
jr z, .Oak
cp $2
jr z, .didnt_use_item
-.quit_run_script ; 1067e (4:467e)
+.quit_run_script
ld a, PACKSTATE_QUITRUNSCRIPT
ld [wJumptableIndex], a
ret
-.didnt_use_item ; 10684 (4:4684)
+.didnt_use_item
xor a
ld [wItemEffectSucceeded], a
ret
-; 10689 (4:4689)
-.Quit: ; 10689
+.Quit:
ret
-; 1068a
-InitPackBuffers: ; 1068a
+InitPackBuffers:
xor a
ld [wJumptableIndex], a
; pocket id -> jumptable index
@@ -965,9 +938,8 @@ InitPackBuffers: ; 1068a
xor a
ld [wSwitchItem], a
ret
-; 106a5
-DepositSellInitPackBuffers: ; 106a5
+DepositSellInitPackBuffers:
xor a
ld [hBGMapMode], a
ld [wJumptableIndex], a ; PACKSTATE_INITGFX
@@ -978,32 +950,29 @@ DepositSellInitPackBuffers: ; 106a5
call Pack_InitGFX
call Pack_InitColors
ret
-; 106be
-DepositSellPack: ; 106be
+DepositSellPack:
.loop
call .RunJumptable
call DepositSellTutorial_InterpretJoypad
jr c, .loop
ret
-; 106c7
-.RunJumptable: ; 106c7
+.RunJumptable:
ld a, [wJumptableIndex]
ld hl, .Jumptable
call Pack_GetJumptablePointer
jp hl
-; 106d1
-.Jumptable: ; 106d1 (4:46d1)
+.Jumptable:
; entries correspond to *_POCKET constants
dw .ItemsPocket
dw .BallsPocket
dw .KeyItemsPocket
dw .TMHMPocket
-.ItemsPocket: ; 106d9 (4:46d9)
+.ItemsPocket:
xor a ; ITEM_POCKET
call InitPocket
ld hl, PC_Mart_ItemsPocketMenuHeader
@@ -1019,7 +988,7 @@ DepositSellPack: ; 106be
ld [wItemsPocketCursor], a
ret
-.KeyItemsPocket: ; 106ff (4:46ff)
+.KeyItemsPocket:
ld a, KEY_ITEM_POCKET
call InitPocket
ld hl, PC_Mart_KeyItemsPocketMenuHeader
@@ -1035,7 +1004,7 @@ DepositSellPack: ; 106be
ld [wKeyItemsPocketCursor], a
ret
-.TMHMPocket: ; 10726 (4:4726)
+.TMHMPocket:
ld a, TM_HM_POCKET
call InitPocket
call WaitBGMap_DrawPackGFX
@@ -1044,7 +1013,7 @@ DepositSellPack: ; 106be
ld [wCurItem], a
ret
-.BallsPocket: ; 1073b (4:473b)
+.BallsPocket:
ld a, BALL_POCKET
call InitPocket
ld hl, PC_Mart_BallsPocketMenuHeader
@@ -1060,14 +1029,14 @@ DepositSellPack: ; 106be
ld [wBallsPocketCursor], a
ret
-InitPocket: ; 10762 (4:4762)
+InitPocket:
ld [wCurrPocket], a
call ClearPocketList
call DrawPocketName
call WaitBGMap_DrawPackGFX
ret
-DepositSellTutorial_InterpretJoypad: ; 1076f
+DepositSellTutorial_InterpretJoypad:
ld hl, wMenuJoypad
ld a, [hl]
and A_BUTTON
@@ -1119,9 +1088,8 @@ DepositSellTutorial_InterpretJoypad: ; 1076f
pop de
scf
ret
-; 107bb
-TutorialPack: ; 107bb
+TutorialPack:
call DepositSellInitPackBuffers
ld a, [wInputType]
or a
@@ -1134,29 +1102,26 @@ TutorialPack: ; 107bb
xor a ; FALSE
ld [wPackUsedItem], a
ret
-; 107d7
-.RunJumptable: ; 107d7
+.RunJumptable:
ld a, [wJumptableIndex]
ld hl, .dw
call Pack_GetJumptablePointer
jp hl
-; 107e1
-.dw ; 107e1 (4:47e1)
+.dw
; entries correspond to *_POCKET constants
dw .Items
dw .Balls
dw .KeyItems
dw .TMHM
-.Items: ; 107e9 (4:47e9)
+.Items:
xor a ; ITEM_POCKET
ld hl, .ItemsMenuHeader
jr .DisplayPocket
-; 107ef (4:47ef)
.ItemsMenuHeader: ; 0x107ef
db MENU_BACKUP_TILES ; flags
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
@@ -1172,14 +1137,12 @@ TutorialPack: ; 107bb
dba PlaceMenuItemName
dba PlaceMenuItemQuantity
dba UpdateItemDescription
-; 10807
-.KeyItems: ; 10807 (4:4807)
+.KeyItems:
ld a, KEY_ITEM_POCKET
ld hl, .KeyItemsMenuHeader
jr .DisplayPocket
-; 1080e (4:480e)
.KeyItemsMenuHeader: ; 0x1080e
db MENU_BACKUP_TILES ; flags
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
@@ -1195,9 +1158,8 @@ TutorialPack: ; 107bb
dba PlaceMenuItemName
dba PlaceMenuItemQuantity
dba UpdateItemDescription
-; 10826
-.TMHM: ; 10826 (4:4826)
+.TMHM:
ld a, TM_HM_POCKET
call InitPocket
call WaitBGMap_DrawPackGFX
@@ -1206,12 +1168,11 @@ TutorialPack: ; 107bb
ld [wCurItem], a
ret
-.Balls: ; 1083b (4:483b)
+.Balls:
ld a, BALL_POCKET
ld hl, .BallsMenuHeader
jr .DisplayPocket
-; 10842 (4:4842)
.BallsMenuHeader: ; 0x10842
db MENU_BACKUP_TILES ; flags
menu_coords 7, 1, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
@@ -1227,9 +1188,8 @@ TutorialPack: ; 107bb
dba PlaceMenuItemName
dba PlaceMenuItemQuantity
dba UpdateItemDescription
-; 1085a
-.DisplayPocket: ; 1085a (4:485a)
+.DisplayPocket:
push hl
call InitPocket
pop hl
@@ -1237,12 +1197,12 @@ TutorialPack: ; 107bb
call ScrollingMenu
ret
-Pack_JumptableNext: ; 10866 (4:4866)
+Pack_JumptableNext:
ld hl, wJumptableIndex
inc [hl]
ret
-Pack_GetJumptablePointer: ; 1086b
+Pack_GetJumptablePointer:
ld e, a
ld d, 0
add hl, de
@@ -1251,23 +1211,22 @@ Pack_GetJumptablePointer: ; 1086b
ld h, [hl]
ld l, a
ret
-; 10874
-Pack_QuitNoScript: ; 10874 (4:4874)
+Pack_QuitNoScript:
ld hl, wJumptableIndex
set 7, [hl]
xor a ; FALSE
ld [wPackUsedItem], a
ret
-Pack_QuitRunScript: ; 1087e (4:487e)
+Pack_QuitRunScript:
ld hl, wJumptableIndex
set 7, [hl]
ld a, TRUE
ld [wPackUsedItem], a
ret
-Pack_PrintTextNoScroll: ; 10889 (4:4889)
+Pack_PrintTextNoScroll:
ld a, [wOptions]
push af
set NO_TEXT_SCROLL, a
@@ -1277,9 +1236,9 @@ Pack_PrintTextNoScroll: ; 10889 (4:4889)
ld [wOptions], a
ret
-WaitBGMap_DrawPackGFX: ; 1089a (4:489a)
+WaitBGMap_DrawPackGFX:
call WaitBGMap
-DrawPackGFX: ; 1089d
+DrawPackGFX:
ld a, [wCurrPocket]
maskbits NUM_POCKETS
ld e, a
@@ -1305,16 +1264,14 @@ DrawPackGFX: ; 1089d
.female
farcall DrawKrisPackGFX
ret
-; 108cc
-PackGFXPointers: ; 108cc
+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
-; 108d4
-Pack_InterpretJoypad: ; 108d4 (4:48d4)
+Pack_InterpretJoypad:
ld hl, wMenuJoypad
ld a, [wSwitchItem]
and a
@@ -1398,7 +1355,7 @@ Pack_InterpretJoypad: ; 108d4 (4:48d4)
scf
ret
-Pack_InitGFX: ; 10955
+Pack_InitGFX:
call ClearBGPalettes
call ClearTileMap
call ClearSprites
@@ -1435,9 +1392,8 @@ Pack_InitGFX: ; 10955
call EnableLCD
call DrawPackGFX
ret
-; 109a5
-PlacePackGFX: ; 109a5
+PlacePackGFX:
hlcoord 0, 3
ld a, $50
ld de, SCREEN_WIDTH - 5
@@ -1453,9 +1409,8 @@ PlacePackGFX: ; 109a5
dec b
jr nz, .row
ret
-; 109bb
-DrawPocketName: ; 109bb
+DrawPocketName:
ld a, [wCurrPocket]
; * 15
ld d, a
@@ -1484,9 +1439,8 @@ DrawPocketName: ; 109bb
dec c
jr nz, .row
ret
-; 109e1
-.tilemap ; 109e1
+.tilemap
; ITEM_POCKET
db $00, $04, $04, $04, $01 ; top border
db $06, $07, $08, $09, $0a ; Items
@@ -1503,38 +1457,34 @@ DrawPocketName: ; 109bb
db $00, $04, $04, $04, $01 ; top border
db $10, $11, $12, $13, $14 ; TM/HM
db $02, $05, $05, $05, $03 ; bottom border
-; 10a1d
-Pack_GetItemName: ; 10a1d
+Pack_GetItemName:
ld a, [wCurItem]
ld [wNamedObjectIndexBuffer], a
call GetItemName
call CopyName1
ret
-; 10a2a
-Unreferenced_Pack_ClearTilemap: ; 10a2a
+Unreferenced_Pack_ClearTilemap:
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, " "
call ByteFill
ret
-; 10a36
-ClearPocketList: ; 10a36 (4:4a36)
+ClearPocketList:
hlcoord 5, 2
lb bc, 10, SCREEN_WIDTH - 5
call ClearBox
ret
-Pack_InitColors: ; 10a40
+Pack_InitColors:
call WaitBGMap
ld b, SCGB_PACKPALS
call GetSGBLayout
call SetPalettes
call DelayFrame
ret
-; 10a4f
ItemsPocketMenuHeader: ; 0x10a4f
db MENU_BACKUP_TILES ; flags
@@ -1551,7 +1501,6 @@ ItemsPocketMenuHeader: ; 0x10a4f
dba PlaceMenuItemName
dba PlaceMenuItemQuantity
dba UpdateItemDescription
-; 10a67
PC_Mart_ItemsPocketMenuHeader: ; 0x10a67
db MENU_BACKUP_TILES ; flags
@@ -1568,7 +1517,6 @@ PC_Mart_ItemsPocketMenuHeader: ; 0x10a67
dba PlaceMenuItemName
dba PlaceMenuItemQuantity
dba UpdateItemDescription
-; 10a7f
KeyItemsPocketMenuHeader: ; 0x10a7f
db MENU_BACKUP_TILES ; flags
@@ -1585,7 +1533,6 @@ KeyItemsPocketMenuHeader: ; 0x10a7f
dba PlaceMenuItemName
dba PlaceMenuItemQuantity
dba UpdateItemDescription
-; 10a97
PC_Mart_KeyItemsPocketMenuHeader: ; 0x10a97
db MENU_BACKUP_TILES ; flags
@@ -1602,7 +1549,6 @@ PC_Mart_KeyItemsPocketMenuHeader: ; 0x10a97
dba PlaceMenuItemName
dba PlaceMenuItemQuantity
dba UpdateItemDescription
-; 10aaf
BallsPocketMenuHeader: ; 0x10aaf
db MENU_BACKUP_TILES ; flags
@@ -1619,7 +1565,6 @@ BallsPocketMenuHeader: ; 0x10aaf
dba PlaceMenuItemName
dba PlaceMenuItemQuantity
dba UpdateItemDescription
-; 10ac7
PC_Mart_BallsPocketMenuHeader: ; 0x10ac7
db MENU_BACKUP_TILES ; flags
@@ -1636,7 +1581,6 @@ PC_Mart_BallsPocketMenuHeader: ; 0x10ac7
dba PlaceMenuItemName
dba PlaceMenuItemQuantity
dba UpdateItemDescription
-; 10adf
Text_PackNoItems: ; 0x10adf
; No items.
generated by cgit v1.2.3 (git 2.25.1) at 2025-06-02 17:41:13 +0000