diff options
Diffstat (limited to 'engine/menu/start_menu.asm')
| -rw-r--r-- | engine/menu/start_menu.asm | 860 |
1 files changed, 431 insertions, 429 deletions
diff --git a/engine/menu/start_menu.asm b/engine/menu/start_menu.asm index d1278fc..6a8f433 100644 --- a/engine/menu/start_menu.asm +++ b/engine/menu/start_menu.asm @@ -27,12 +27,12 @@ DisplayStartMenu: ; 04:5DBE jp CallJumptable .StartMenuEntriesReturnTable: ; 04:5DFC - dw .RefreshStartDisplay - dw .MainReturn - dw .exit - dw .UpdateTime - dw .ExitAndHookFF - + dw .RefreshStartDisplay + dw .MainReturn + dw .exit + dw .UpdateTime + dw .ExitAndHookFF + .MainReturn call .WaitForARelease call LoadFontExtra @@ -42,39 +42,39 @@ DisplayStartMenu: ; 04:5DBE 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 + db $A8 ; flags + db 0 ; items dw StartMenuItems db $8A, $1F dw .Strings - + .Strings: ; 04:5E44 db "ずかん@" db "ポケモン@" @@ -85,62 +85,62 @@ DisplayStartMenu: ; 04:5DBE db "とじる@" db "わくせん@" db "りセット@" - + StartMenuJumpTable: ; 04:5E6C - dw StartMenu_Pokedex + dw StartMenu_Pokedex dw StartMenu_Party dw StartMenu_Backpack dw StartMenu_TrainerCard dw StartMenu_Save dw StartMenu_Settings - dw StartMenu_Exit + dw StartMenu_Exit dw StartMenu_TrainerGear dw StartMenu_Reset - + StartMenuItems: ; 04:5E7E - db 4 - db START_SAVE - db START_OPTIONS - db START_TRAINERCARD - db START_EXIT + 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 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 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. @@ -167,30 +167,30 @@ GetStartMenuState: ; 04:5EA4 ld a, b ld [wActiveBackpackPocket], a ret - + StartMenu_Exit: ; 04:5ECF ; Exits the menu ld a, 1 ret - + StartMenu_TrainerGear: ; 04:5ED2 callab TrainerGear 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 @@ -207,12 +207,12 @@ StartMenu_Settings: ; 04:5EF3 call UpdateTimePals ld a, 0 ret - -StartMenu_TrainerCard ; 04:5F1F + +StartMenu_TrainerCard: ; 04:5F1F call _TrainerCard ld a, 0 ret - + _TrainerCard: ; 04:5F25 call LoadStandardMenuHeader ldh a, [hMapAnims] @@ -230,7 +230,7 @@ _TrainerCard: ; 04:5F25 pop af ldh [hMapAnims], a ret - + StartMenu_Pokedex: ; 04:5F4F call LoadStandardMenuHeader predef Function40000 @@ -243,61 +243,61 @@ StartMenu_Pokedex: ; 04:5F4F call UpdateTimePals ld a, 0 ret - + UnusedToolPocketData: ; 04:5F6F - dw ToolsPocketHeader - dw wRegularItemsCursor - dw wRegularItemsScrollPosition - + dw ToolsPocketHeader + dw wRegularItemsCursor + dw wRegularItemsScrollPosition + ToolsPocketHeader: ; 04:5F75 - db MENU_BACKUP_TILES ; flags - menu_coords 03, 03, $11, $0A - dw .ToolsPocketData - db 1 - + db MENU_BACKUP_TILES ; flags + menu_coords 03, 03, $11, $0A + dw .ToolsPocketData + db 1 + .ToolsPocketData ; 04:5F7D - db $AD + db $AD db 4, 9, 2, 0 - dw wNumBagItems - - dbw BANK(Function2473b), Function2473b - dbw BANK(Function24783), Function24783 - dbw BANK(Function241ef), Function241ef - + dw wNumBagItems + + dba Function2473b + dba Function24783 + dba Function241ef + dw KeyItemsPocketHeader dw wBackpackAndKeyItemsCursor - dw wBackpackAndKeyItemsScrollPosition - + dw wBackpackAndKeyItemsScrollPosition + KeyItemsPocketHeader: ; 04:5F93 - db MENU_BACKUP_TILES ; flags + db MENU_BACKUP_TILES ; flags menu_coords 03, 03, $11, $0A dw .KeyPocketData - db 1 - + db 1 + .KeyPocketData ; 04:5F9B - db $AD - db 4, 9, 1, 0 + db $AD + db 4, 9, 1, 0 dw wNumKeyItems - - dbw BANK(Function2473b), Function2473b - dbw BANK(Function24783), Function24783 - dbw BANK(Function241ef), Function241ef - + + dba Function2473b + dba Function24783 + dba Function241ef + BackpackMenuHeader: ; 04:5FAB - db MENU_BACKUP_TILES ; flags + db MENU_BACKUP_TILES ; flags menu_coords 03, 03, $11, $0A dw .BackpackData - db 01 - + 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 - + db $A1 + db 4, 9, 2, 0 + dw wNumBagItems + + dba Function2473b + dba Function24783 + dba Function241ef + GetPocket2Status: ; 04:5FC3 ; puts 2 in wActiveBackpackPocket if pocket 2 has items ; otherwise puts 1 in @@ -309,7 +309,7 @@ GetPocket2Status: ; 04:5FC3 ld a, 1 ld [wActiveBackpackPocket], a ret - + FlipPocket2Status: ; 04:5FD3 ; stores 1 in wactivebackpocket if it's currently 2 ; and vice versa @@ -317,7 +317,7 @@ FlipPocket2Status: ; 04:5FD3 cp 2 ld a, 1 jr z, .skip - ld a, 2 + ld a, 2 .skip ld [wActiveBackpackPocket], a ret @@ -332,7 +332,7 @@ CheckItemsQuantity: ; 04:5FE2 ret nz scf ret - + DrawBackpack: ; 04:5FEE ld hl, wVramState res 0, [hl] @@ -344,13 +344,13 @@ DrawBackpack: ; 04:5FEE 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 @@ -380,13 +380,13 @@ StartMenu_Backpack: ; 04:6015 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 @@ -406,16 +406,16 @@ DebugBackpackLoop: ; 04:6056 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 @@ -426,16 +426,16 @@ DebugBackpackLoop: ; 04:6056 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 @@ -446,16 +446,16 @@ NondebugBackpackLoop: ; 04:60E2 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 @@ -469,33 +469,33 @@ HandleBackpackInput: ; 04:611F 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 @@ -504,23 +504,23 @@ BackpackSelected: ; 04:615F ld a, [wItemAttributeParamBuffer] ld hl, .BagSelectJumptable jp CallJumptable - + .BagSelectJumptable: ; 04:617E - dw SelectItem + dw SelectItem dw .UnknownSelection - dw BallPocketLoop - dw .SwapPocket - dw SelectItem - dw SelectItem - dw SelectItem + dw BallPocketLoop + dw .SwapPocket + dw SelectItem + dw SelectItem + dw SelectItem -.SwapPocket ; 04:618C +.SwapPocket ; 04:618C call FlipPocket2Status xor a ld [wSelectedSwapPosition], a and a ret - + .UnknownSelection ; 04:6195 call LoadStandardMenuHeader callab Function2d2fc @@ -528,7 +528,7 @@ BackpackSelected: ; 04:615F call DrawBackpack and a ret - + BallPocketLoop: ; 04:61A8 call BallPocket jr c, .exit @@ -536,9 +536,9 @@ BallPocketLoop: ; 04:61A8 ret c jr BallPocketLoop .exit - and a + and a ret - + SelectItem: ; 04:61B5 call ItemUseMenu jr c, .skip1 @@ -552,9 +552,9 @@ SelectItem: ; 04:61B5 .skip1 and a ret - + ItemUseMenu: ; 04:61CE -; loads SelectedItemMenu if not debug, +; loads SelectedItemMenu if not debug, ; DebugSelectedItemMenu if debug ld a, [wDebugFlags] bit DEBUG_FIELD_F, a @@ -570,68 +570,68 @@ ItemUseMenu: ; 04:61CE call VerticalMenu call CloseWindow ret - + DebugSelectedItemMenu: ; 04:61EF db MENU_BACKUP_TILES - menu_coords $0D, $0A, $13, $10 + menu_coords $0D, $0A, $13, $10 dw .DebugSelectedItemMenuText - db 01 - + db 01 + .DebugSelectedItemMenuText - db $C0 - db 3 + db $C0 + db 3 db "つかう@" ; use db "すてる@" ; toss db "とうろく@" ; register - + SelectedItemMenu: ; 04:6206 db MENU_BACKUP_TILES - menu_coords $0E, $0A, $13, $0E + menu_coords $0E, $0A, $13, $0E dw .SelectedItemMenuText - db 01 - + db 01 + .SelectedItemMenuText - db $C0 - db 2 + 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 .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 @@ -641,7 +641,7 @@ UseItemSelection: ; 04:6225 call DrawBackpack and a ret - + .FieldMove: ; 04:625C call UseItem ld a, [wFieldMoveSucceeded] @@ -650,14 +650,14 @@ UseItemSelection: ; 04:6225 scf ld a, 4 ret - + .FailedMove ; 04:6269 call PrintCantUseText and a ret - + TryTossItem: ; 04:626E - push de + push de call LoadItemData callab _CheckTossableItem ld a, [wItemAttributeParamBuffer] @@ -687,76 +687,76 @@ TryTossItem: ; 04:626E call ExitMenu and a ret - + .TossFail ; 04:62BD ;25 call CantDropItem .TossReturn pop hl scf ret - + .TossedText: ; 04:62C3 - db 1 - dw wStringBuffer2 + db 1 + dw wStringBuffer2 text "を " line "いくつ すてますか？" done - + .TossVerifyText: ; 04:62D5 - db 1 + db 1 dw wStringBuffer2 - text "を @" - db 9 + text "を @" + db 9 dw wItemQuantity - db $12 + db $12 text "こ" line "すててもよろしいですか？" done - + .TossedTextCopy: ; 04:62F0 - db 1 + 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 + xor a ldh [hBGMapMode], a ld hl, .BallPocketHeader call CopyMenuHeader @@ -779,27 +779,29 @@ BallPocket: ; 04:638C .jmp2 scf ret - + .BallHolderText: ; 04:63B9 db " ボール ホルダ @" - -.BallPocketHeader: ; 04:63CC - db MENU_BACKUP_TILES + +.BallPocketHeader: ; 04:63CC + db MENU_BACKUP_TILES menu_coords 03, 03, $11, $0A - dw .MenuData - db 1 - + dw .MenuData + db 1 + .MenuData: ; 04:63D4 db SCROLLINGMENU_ENABLE_FUNCTION3 ; flags db 4, 8 ; rows, columns - db $80 ; horizontal spacing? - dbw 0, wNumBallItems + db $80 ; horizontal spacing? + db 0 ; ??? + dw wNumBallItems + dba Function24774 dba Function24783 dba Function241ef - + DrawBackpackTitleRow: ; 04:63E4 - push de + push de hlcoord 0, 0 ld de, .BlankLine call PlaceString @@ -807,17 +809,17 @@ DrawBackpackTitleRow: ; 04:63E4 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 @@ -832,22 +834,22 @@ StartMenuLoadSprites: ; 04:6418 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 - + dw PrintCantRegisterToolText + dw PrintCantRegisterToolText + dw PrintCantRegisterToolText + dw PrintCantRegisterToolText + dw RegisterItem + dw RegisterItem + dw RegisterItem + RegisterItem: ; 04:645F ld a, [wItemIndex] inc a @@ -867,22 +869,22 @@ RegisterItem: ; 04:645F ld hl, .RegisteredItemText call MenuTextBoxBackup ret - + .RegisteredItemText: ; 04:6487 - db 1 + 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 @@ -892,14 +894,14 @@ StartMenu_Party: ; 04:64B9 .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 @@ -926,7 +928,7 @@ PartyPromptExit: ; 04:64FB call UpdateTimePals pop af ret - + SelectedPokemonSubmenu: ; 04:6513 hlcoord 1, 13 lb bc, 4, $12 @@ -944,32 +946,32 @@ SelectedPokemonSubmenu: ; 04:6513 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 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 - + 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 @@ -995,7 +997,7 @@ PartyHeldItem: ; 04:6579 call CloseWindow .jump jp HandleSelectedPokemon - + .PartyGiveHeldItem ; 04:65B9 call LoadStandardMenuHeader call ClearPalettes @@ -1039,7 +1041,7 @@ PartyHeldItem: ; 04:6579 ld hl, ItemWasEquippedText call MenuTextBoxBackup jr .CheckMail - + .NoItem ld a, 1 ld [wItemQuantity], a @@ -1055,7 +1057,7 @@ PartyHeldItem: ; 04:6579 cp ITEM_MAIL call z, PartyGiveMail jr .ExitGiveItem - + .GiveItem ; 04:664B ld a, [wce37] ld [wCurItem], a @@ -1063,7 +1065,7 @@ PartyHeldItem: ; 04:6579 ld hl, PartyItemRecieveBagFullText call MenuTextBoxBackup jr .ExitGiveItem - + .CantGive ; 04:665C ld hl, .CantBeEquippedText call MenuTextBoxBackup @@ -1072,7 +1074,7 @@ PartyHeldItem: ; 04:6579 call LoadFontsBattleExtra call ExitMenu ret - + .PartyTryRecieveItem ; 04:666C call SpeechTextBox call GetPartyItemOffset @@ -1099,127 +1101,127 @@ PartyHeldItem: ; 04:6579 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 + menu_coords 4, 4, $e, 9 + dw .HoldItemMenuText + db 1 .HoldItemMenuText ;04:66A9 - db $80 - - db 2 - db "そうびを する@" - db "そうびを はずす@" - + db $80 + + db 2 + db "そうびを する@" + db "そうびを はずす@" + .CantBeEquippedText ; 04:66BC - db 1 + db 1 dw wStringBuffer1 text "を そうびすることは" line "できません<PROMPT>" - -ItemWasEquippedText ; 04:66D1 - db 1 - dw wcd11 + +ItemWasEquippedText: ; 04:66D1 + db 1 + dw wcd11 text "は そうび していた" line "@" .UnusedText1 ; 04:66E1 - db 1 + db 1 dw wStringBuffer1 text "を はずして" para "@" - + .UnusedText2 ; 04:66ED - db 1 + db 1 dw wStringBuffer2 - text "を そうびした！<PROMPT>" - + text "を そうびした！<PROMPT>" + ItemPrompt66FA: ; 04:66FA - db 1 - dw wcd11 + db 1 + dw wcd11 text "は @" - + .UnusedText3 ; 04:6701 - db 1 + db 1 dw wStringBuffer2 text "を" - line "そうびした！<PROMPT>" - + line "そうびした！<PROMPT>" + PartyNoItemToRecieveText: ; 04:670E - db 1 - dw wcd11 + db 1 + dw wcd11 text "は なにも" - line "そうび していません！<PROMPT>" - + line "そうび していません！<PROMPT>" + PartyItemRecieveBagFullText: ; 04:6724 text "どうぐが いっぱいで" - line "そうびを はずせません！<PROMPT>" - + line "そうびを はずせません！<PROMPT>" + ItemPrompt673D: ; 04:673D - db 1 - dw wcd11 - text "から @" - + db 1 + dw wcd11 + text "から @" + .UnusedText4 ; 04:6745 - db 1 + db 1 dw wStringBuffer1 text "を" - line "はずしました！<PROMPT>" - + line "はずしました！<PROMPT>" + ItemPrompt6753: ; 04:6753 - db 1 - dw wcd11 + db 1 + dw wcd11 text "は @" - + .UnusedText5; 04:675A - db 1 + db 1 dw wStringBuffer1 text "を" line "すでに そうび しています" para "そうびしている どうぐを" line "とりかえますか？" - done - + 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 + +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 - + 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 @@ -1228,7 +1230,7 @@ PartyBallPocket: ; 04:67C0 jr PartyBallPocket .exit ret - + PartyGiveMail: ; 04:67CC call LoadStandardMenuHeader ld de, wMovementBufferCount @@ -1251,7 +1253,7 @@ PartyGiveMail: ; 04:67CC call CopyBytes call CloseSRAM ret - + PartyMailMenu: ; 04:6806 ld hl, .MailMenu call LoadMenuHeader @@ -1313,44 +1315,44 @@ PartyMailMenu: ; 04:6806 .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 + db MENU_BACKUP_TILES + menu_coords 04, 04, $0E, $0B dw .MailMenuStrings db 01 - + .MailMenuStrings ; 04:68AD - db $80 + db $80 db 3 db "メールを よむ@" db "メールを はずす@" db "やめる@" - + .MessageRemoveMail ; 04:68C4 text "メールを はずすと メッセージが" line "きえてしまいますが いいですか？" done - + .DrawNick ; 04:68E7 - db 1 + db 1 dw wStringBuffer1 text "から @" - + .DeleteMailText ; 04:68EF text "メールを" line "はずしました！<PROMPT>" - + .MailFullText ; 04:68FD text "どうぐが いっぱいで" line "メールを はずせません！<PROMPT>" - + PartyPokemonSummary: ; 04:6916 call LoadStandardMenuHeader call ClearSprites @@ -1362,7 +1364,7 @@ PartyPokemonSummary: ; 04:6916 call ReloadFontAndTileset call Call_ExitMenu jp HandleSelectedPokemon - + PartyTryCut: ; 04:6934 callab CutFunction ld a, [wFieldMoveSucceeded] @@ -1370,7 +1372,7 @@ PartyTryCut: ; 04:6934 jp nz, HandleSelectedPokemon ld a, 4 jp PartyPromptExit - + PartyTryFly: ; 04:6949 bit 2, a jp z, PrintNeedNewBadgeText @@ -1380,11 +1382,11 @@ PartyTryFly: ; 04:6949 jp nz, HandleSelectedPokemon ld a, 4 jp PartyPromptExit - + PartyCantUseMove: ; 04:6963 call PrintCantUseHM jp HandleSelectedPokemon - + PartyTryTeleport: ; 04:6969 callab TeleportFunction ld a, [wFieldMoveSucceeded] @@ -1392,7 +1394,7 @@ PartyTryTeleport: ; 04:6969 jp z, HandleSelectedPokemon ld a, 4 jp PartyPromptExit - + PartyTrySurf: ; 04:697D bit 4, a jp z, PrintNeedNewBadgeText @@ -1402,7 +1404,7 @@ PartyTrySurf: ; 04:697D jp z, HandleSelectedPokemon ld a, 4 jp PartyPromptExit - + PartyTryDig: ; 04:6996 callab DigFunction ld a, [wFieldMoveSucceeded] @@ -1410,7 +1412,7 @@ PartyTryDig: ; 04:6996 jp nz, HandleSelectedPokemon ld a, 4 jp PartyPromptExit - + PartyCalculateHealth: ; 04:69AB ld a, MON_MAXHP ; might be wrong, was $24 call GetPartyParamLocation @@ -1432,24 +1434,24 @@ PartyCalculateHealth: ; 04:69AB 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] @@ -1460,7 +1462,7 @@ PartyPokemonSummary2: ; 04:6A18 ld [wce5f], a call ClearBGPalettes jp HandleSelectedPokemon - + PokeSummary: ; 04:6A2C call ClearBGPalettes call ClearTileMap @@ -1573,7 +1575,7 @@ PartySelectionInputs: ; 04:6AF9 ld de, PartyTypeText call PlaceString ld a, [wCurSpecies] - ld b, a + ld b, a hlcoord 5, 12 predef Function500a0 ld a, [wCurSpecies] @@ -1598,7 +1600,7 @@ PartySelectionInputs: ; 04:6AF9 hlcoord 1, 14 predef Function2d663 jp PartySelectionInputs - + .DrawMovePokeText ; 04:6B84 hlcoord 1, 11 lb bc, 6, $12 @@ -1607,7 +1609,7 @@ PartySelectionInputs: ; 04:6AF9 ld de, PartyMoveText call PlaceString jp PartySelectionInputs - + .PartyPokeDetailsAdvancePage ; 04:6B99 ld hl, wWhichPokemon inc [hl] @@ -1616,7 +1618,7 @@ PartySelectionInputs: ; 04:6AF9 jp nz, PokeSummary dec [hl] jp PartySelectionInputs - + .PartyPokeDetailsBackPage ; 04:6BA8 ld hl, wWhichPokemon ld a, [hl] @@ -1624,7 +1626,7 @@ PartySelectionInputs: ; 04:6AF9 jp z, PartySelectionInputs dec [hl] jp PokeSummary - + .PartyPokeSelect ; 04:6BB4 ld a, [wSelectedSwapPosition] and a @@ -1661,7 +1663,7 @@ PartySelectionInputs: ; 04:6AF9 lb bc, 8, $12 call ClearBox jp SummaryDrawPoke - + SwapEntries: ; 04:6C06 ; values at (hl + [cursor place]-1) ; and (hl + [wSelectedSwapPosition] -1) get swapped @@ -1685,7 +1687,7 @@ SwapEntries: ; 04:6C06 ld a, b ld [de], a ret - + PartySelectionBackOut: ; 04:6C20 xor a ld [wSelectedSwapPosition], a @@ -1694,7 +1696,7 @@ PartySelectionBackOut: ; 04:6C20 call ClearSprites call ClearTileMap ret - + PartyMenuAttributes: ; 04:6C30 ; cursor y ; cursor y @@ -1704,42 +1706,42 @@ PartyMenuAttributes: ; 04:6C30 ; ? ; distance between items (hi: y, lo: x) ; allowed buttons (mask) - db 3, 1 - db 3, 1 - db $40, $00 - dn 2, 0 - db $F3 - + 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 @@ -1748,11 +1750,11 @@ GetRegisteredItemID: ; 04:6C8D jr z, .CantUse bit 7, a jr nz, .IsKey - dec a + dec a ld hl, wNumBagItems cp [hl] jr nc, .CantUse - inc hl + inc hl ld [wItemIndex], a ld e, a ld d, 0 @@ -1789,28 +1791,28 @@ GetRegisteredItemID: ; 04:6C8D 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 .CantUse2 + dw .CantUse dw .CantUse dw .CantUse - dw .overworld - dw .FieldMove - + dw .overworld + dw .FieldMove + .CantUse ; 04:6CF6 call RefreshScreen call PrintCantUseText call Function1fea and a ret - + .UnusedSimpleUse ; 04:6D01 call RefreshScreen call UseItem @@ -1829,7 +1831,7 @@ UseRegisteredItem: ; 04:6CD9 call Function1fea and a ret - + .FieldMove ; 04:6D25 call UseItem ld a, [wFieldMoveSucceeded] @@ -1840,14 +1842,14 @@ UseRegisteredItem: ; 04:6CD9 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 @@ -1864,8 +1866,8 @@ TrainerCardLoop: ; 04:6D41 pop af ld [wVramState], a ret - -ClearTrainerCardJumptable; 04:6D5E + +ClearTrainerCardJumptable: ; 04:6D5E ; sets four bytes at wJumpTableIndex to 0 call ClearPalettes ld hl, wJumptableIndex @@ -1879,7 +1881,7 @@ ClearTrainerCardJumptable; 04:6D5E ld b, $0D call GetSGBLayout ret - + HandleTrainerCardJumptable: ; 04:6D75 ld a, [wJumptableIndex] ld e, a @@ -1891,27 +1893,27 @@ HandleTrainerCardJumptable: ; 04:6D75 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 - + 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 @@ -1919,7 +1921,7 @@ HandleTrainerCardJumptable: ; 04:6D75 inc a ld [wJumptableIndex], a ret - + TrainerCardMainPage: ; 04:6DB3 call ClearPalettes call ClearTileMap @@ -1940,7 +1942,7 @@ TrainerCardMainPage: ; 04:6DB3 ld [wFlyDestination], a and a ret - + TrainerCardMainInputs: ; 04:6DE3 call EmptyFunction12e37 call GetJoypad @@ -1948,7 +1950,7 @@ TrainerCardMainInputs: ; 04:6DE3 ld a, [hl] and D_LEFT jr nz, .left - ld a, [hl] + ld a, [hl] and D_RIGHT jr nz, .right ld a, [hl] @@ -1993,7 +1995,7 @@ TrainerCardMainInputs: ; 04:6DE3 EmptyFunction12e37: ; 04:6E37 ret - + TrainerCardScroll: ; 04:6E38 ld a, $90 ldh [hWY], a @@ -2004,9 +2006,9 @@ TrainerCardScroll: ; 04:6E38 ld [wJumptableIndex], a and a ret - + TrainerCardClearTileMap: ; 04:6E49 - xor a + xor a ldh [hWY], a ld a, $98 ldh [hBGMapAddress +1], a @@ -2016,7 +2018,7 @@ TrainerCardClearTileMap: ; 04:6E49 ld [wJumptableIndex], a and a ret - + TrainerCardSetWindowY: ; 04:6E5C ldh a, [hWY] cp $90 @@ -2025,7 +2027,7 @@ TrainerCardSetWindowY: ; 04:6E5C ldh [hWY], a and a ret - + TrainerCardClearPals: ; 04:6E68 call ClearPalettes ld a, $90 @@ -2035,9 +2037,9 @@ TrainerCardClearPals: ; 04:6E68 ld [wJumptableIndex], a and a ret - + TrainerCardBadgePage: ; 04:6E78 - call ClearPalettes + call ClearPalettes call DisableLCD ld hl, TrainerCardLeadersGFX ld de, vTileset @@ -2052,7 +2054,7 @@ TrainerCardBadgePage: ; 04:6E78 ld [wJumptableIndex], a and a ret - + TrainerCardBadgeInput: ; 04:6E9E call GetJoypad ld hl, hJoyDown @@ -2064,11 +2066,11 @@ TrainerCardBadgeInput: ; 04:6E9E .skip and a ret - + TrainerCardSetClearFlag: ; 04:6EB0 scf ret - + TrainerCardDrawProtag: ; 04:6EB2 ld de, ProtagonistPic ld a, BANK(ProtagonistPic) @@ -2083,7 +2085,7 @@ TrainerCardDrawProtag: ; 04:6EB2 ld de, vChars2 tile $30 call InterlaceMergeSpriteBuffers ret - + PlaceMiscTilesTrainerCard: ; 04:6ED5 ld a, $30 ldh [hGraphicStartTile], a @@ -2091,7 +2093,7 @@ PlaceMiscTilesTrainerCard: ; 04:6ED5 lb bc, 7, 7 predef PlaceGraphic ret - + DrawTrainerCardMainPage: ; 04:6EE5 hlcoord 0, 0 ld d, 5 @@ -2145,31 +2147,31 @@ DrawTrainerCardMainPage: ; 04:6EE5 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 - + 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 +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 - + 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 - + 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 @@ -2184,25 +2186,25 @@ DrawTrainerCaseBadgePage: ; 04:6FF4 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] + 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. @@ -2212,7 +2214,7 @@ PlaceTrainerCardBGTile: ; 04:7133 ld [hli], a dec e jr nz, .loop - + ld a, $07 ld [hli], a ld e, $11 @@ -2220,7 +2222,7 @@ PlaceTrainerCardBGTile: ; 04:7133 inc hl dec e jr nz, .ScanLoop - + ld a, 9 ld [hli], a ld a, 7 @@ -2233,12 +2235,12 @@ PlaceTrainerCardBGTile: ; 04:7133 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 @@ -2248,7 +2250,7 @@ PlaceTrainerCardBGTile: ; 04:7133 inc hl dec e jr nz, .ScanLoop2 - + ld a, 7 ld [hli], a ld e, $14 @@ -2258,5 +2260,5 @@ PlaceTrainerCardBGTile: ; 04:7133 dec e jr nz, .LastLoop ret - + ; end of section |