From a5705b37d4d7474ac0864c02143889e385e4945f Mon Sep 17 00:00:00 2001 From: IIMarckus Date: Thu, 7 Jan 2016 15:55:38 -0700 Subject: [PATCH] Remove lines that are just address comments. --- main.asm | 597 ------------------------------------------------------- 1 file changed, 597 deletions(-) diff --git a/main.asm b/main.asm index 131bdce1d..67f33780e 100644 --- a/main.asm +++ b/main.asm @@ -23,11 +23,9 @@ PlaceWaitingText:: ; 4000 call PlaceString ld c, 50 jp DelayFrames -; 4025 .Waiting ; 4025 db "Waiting...!@" -; 4031 LoadPushOAM:: ; 4031 ld c, hPushOAM - $ff00 @@ -40,7 +38,6 @@ LoadPushOAM:: ; 4031 dec b jr nz, .loop ret -; 403f PushOAM: ; 403f ld a, Sprites / $100 @@ -51,7 +48,6 @@ PushOAM: ; 403f jr nz, .loop ret PushOAMEnd -; 4049 INCLUDE "engine/map_objects.asm" @@ -77,7 +73,6 @@ Function6454:: ; 6454 ld hl, VramState set 6, [hl] ret -; 6473 .Function6473 xor a @@ -108,14 +103,12 @@ Function6454:: ; 6454 ld [hSCY], a call Function5958 ret -; 64b9 .Function64b9: ; 64b9 ld [hBGMapAddress + 1], a xor a ld [hBGMapAddress], a ret -; 64bf Function64bf:: ; 64bf ld a, [hOAMUpdate] @@ -136,7 +129,6 @@ Function64bf:: ; 64bf call Function2e31 call LoadStandardFont ret -; 64db Function64db: ; 64db ld a, [rSVBK] @@ -163,7 +155,6 @@ Function64db: ; 64db pop af ld [rSVBK], a ret -; 6508 INCLUDE "engine/learn.asm" @@ -228,7 +219,6 @@ CheckNickErrors:: ; 669f pop de pop bc ret -; 66cf .textcommands ; 66cf ; table defining which characters are actually text commands @@ -242,13 +232,11 @@ CheckNickErrors:: ; 669f db $49, "" + 1 db "", "┘" + 1 db -1 ; end -; 66de INCLUDE "engine/math.asm" ItemAttributes: ; 67c1 INCLUDE "items/item_attributes.asm" -; 6ec1 INCLUDE "engine/npc_movement.asm" GetFirstPokemonHappiness: ; 718d @@ -269,7 +257,6 @@ GetFirstPokemonHappiness: ; 718d ld [ScriptVar], a call GetPokemonName jp CopyPokemonName_Buffer1_Buffer3 -; 71ac CheckFirstMonIsEgg: ; 71ac ld a, [PartySpecies] @@ -283,7 +270,6 @@ CheckFirstMonIsEgg: ; 71ac ld [ScriptVar], a call GetPokemonName jp CopyPokemonName_Buffer1_Buffer3 -; 71c2 ChangeHappiness: ; 71c2 ; Perform happiness action c on CurPartyMon @@ -356,7 +342,6 @@ endr ld a, [de] ld [BattleMonHappiness], a ret -; 7221 .Actions db +5, +3, +2 ; Gained a level @@ -378,7 +363,6 @@ endr db -15, -15, -20 ; Used Revival Herb (bitter) db +3, +3, +1 ; Grooming db +10, +6, +4 ; Gained a level in the place where it was caught -; 725a StepHappiness:: ; 725a ; Raise the party's happiness by 1 point every other step cycle. @@ -414,7 +398,6 @@ StepHappiness:: ; 725a dec c jr nz, .loop ret -; 7282 DaycareStep:: ; 7282 @@ -494,7 +477,6 @@ DaycareStep:: ; 7282 res 5, [hl] set 6, [hl] ret -; 7305 SpecialGiveShuckle: ; 7305 @@ -567,7 +549,6 @@ SpecialShuckleOT: db "MANIA@" SpecialShuckleNick: db "SHUCKIE@" -; 737e SpecialReturnShuckle: ; 737e callba SelectMonFromParty @@ -583,7 +564,6 @@ SpecialReturnShuckle: ; 737e call AddNTimes ; OT ID -; 00518 ld a, [hli] cp 00518 / $100 jr nz, .DontReturn @@ -639,7 +619,6 @@ SpecialReturnShuckle: ; 737e ld a, $4 ld [ScriptVar], a ret -; 73f7 Special_BillsGrandfather: ; 73f7 callba SelectMonFromParty @@ -654,7 +633,6 @@ Special_BillsGrandfather: ; 73f7 xor a ld [ScriptVar], a ret -; 7413 Special_YoungerHaircutBrother: ; 7413 ld hl, Data_YoungerHaircutBrother @@ -712,7 +690,6 @@ endr ld a, 1 ld [ScriptVar], a ret -; 7459 Data_YoungerHaircutBrother: ; 7459 db $4c, 2, HAPPINESS_YOUNGCUT1 ; 30% chance @@ -726,19 +703,16 @@ Data_OlderHaircutBrother: ; 7462 Data_DaisyMassage: ; 746b db $ff, 2, HAPPINESS_MASSAGE ; 99.6% chance -; 746e CopyPokemonName_Buffer1_Buffer3: ; 746e ld hl, StringBuffer1 ld de, StringBuffer3 ld bc, PKMN_NAME_LENGTH jp CopyBytes -; 747a Predef1: ; 747a ; not used ret -; 747b SECTION "bank2", ROMX, BANK[$2] @@ -759,7 +733,6 @@ BlankScreen: ; 8000 call WaitBGMap2 call SetPalettes ret -; 8029 GetSpawnCoord: ; 8029 ld a, -1 @@ -795,14 +768,12 @@ GetSpawnCoord: ; 8029 ld a, PLAYER ld [wCenteredObject], a ret -; 8071 PlayerObjectTemplate: ; 8071 ; A dummy map object used to initialize the player object. ; Shorter than the actual amount copied by two bytes. ; Said bytes seem to be unused. person_event SPRITE_CHRIS, -4, -4, SPRITEMOVEDATA_PLAYER, 15, 15, -1, -1, 0, PERSONTYPE_SCRIPT, 0, 0, -1 -; 807e CopyDECoordsToMapObject:: ; 807e push de @@ -816,7 +787,6 @@ CopyDECoordsToMapObject:: ; 807e add hl, bc ld [hl], e ret -; 808f PlayerSpawn_ConvertCoords: ; 808f push bc @@ -829,7 +799,6 @@ PlayerSpawn_ConvertCoords: ; 808f pop bc call CopyDECoordsToMapObject ret -; 80a1 WritePersonXY:: ; 80a1 ld a, b @@ -847,7 +816,6 @@ WritePersonXY:: ; 80a1 call CopyDECoordsToMapObject and a ret -; 80b8 RefreshPlayerCoords: ; 80b8 ld a, [XCoord] @@ -876,7 +844,6 @@ RefreshPlayerCoords: ; 80b8 cp $0 ret nz ; wtf ret -; 80e7 CopyObjectStruct:: ; 80e7 call CheckObjectMask @@ -911,13 +878,11 @@ CopyObjectStruct:: ; 80e7 add hl, de set 5, [hl] ret -; 8116 CopyMapObjectToObjectStruct: ; 8116 call .CopyMapObjectToTempObject call CopyTempObjectToObjectStruct ret -; 811d .CopyMapObjectToTempObject: ; 811d ld a, [hObjectStructIndexBuffer] @@ -975,7 +940,6 @@ CopyMapObjectToObjectStruct: ; 8116 ld a, [hl] ld [wTempObjectCopyRadius], a ret -; 8177 InitializeVisibleSprites: ; 8177 ld bc, MapObjects + OBJECT_LENGTH @@ -1034,11 +998,9 @@ InitializeVisibleSprites: ; 8177 cp NUM_OBJECTS jr nz, .loop ret -; 81c9 .ret: ; 81c9 ret -; 81ca CheckObjectEnteringVisibleRange:: ; 81ca nop @@ -1048,14 +1010,12 @@ CheckObjectEnteringVisibleRange:: ; 81ca ld hl, .dw rst JumpTable ret -; 81d6 .dw: ; 81d6 dw .Down dw .Up dw .Left dw .Right -; 81de .Up: ; 81de ld a, [YCoord] @@ -1112,7 +1072,6 @@ CheckObjectEnteringVisibleRange:: ; 81ca cp NUM_OBJECTS jr nz, .loop_v ret -; 8232 .Left: ; 8232 ld a, [XCoord] @@ -1169,7 +1128,6 @@ CheckObjectEnteringVisibleRange:: ; 81ca cp NUM_OBJECTS jr nz, .loop_h ret -; 8286 CopyTempObjectToObjectStruct: ; 8286 ld a, [wTempObjectCopyMapObjectIndex] @@ -1220,7 +1178,6 @@ CopyTempObjectToObjectStruct: ; 8286 and a ret -; 82d5 .InitYCoord: ; 82d5 ld hl, OBJECT_INIT_Y @@ -1241,7 +1198,6 @@ CopyTempObjectToObjectStruct: ; 8286 add hl, de ld [hl], a ret -; 82f1 .InitXCoord: ; 82f1 ld hl, OBJECT_INIT_X @@ -1260,7 +1216,6 @@ CopyTempObjectToObjectStruct: ; 8286 add hl, de ld [hl], a ret -; 830d .InitRadius: ; 830d ld h, a @@ -1275,7 +1230,6 @@ CopyTempObjectToObjectStruct: ; 8286 add hl, de ld [hl], a ret -; 831e TrainerWalkToPlayer: ; 831e ld a, [hLastTalked] @@ -1296,7 +1250,6 @@ TrainerWalkToPlayer: ; 831e ld a, movement_step_end call AppendToMovementBuffer ret -; 8341 .GetPathToPlayer: ; 8341 push de @@ -1341,7 +1294,6 @@ TrainerWalkToPlayer: ; 831e pop af call ComputePathToWalkToPlayer ret -; 8379 Special_SurfStartStep: ; 8379 call InitMovementBuffer @@ -1350,7 +1302,6 @@ Special_SurfStartStep: ; 8379 ld a, movement_step_end call AppendToMovementBuffer ret -; 8388 .GetMovementData: ; 8388 ld a, [PlayerDirection] @@ -1363,14 +1314,12 @@ Special_SurfStartStep: ; 8379 add hl, de ld a, [hl] ret -; 839a .movement_data slow_step_down slow_step_up slow_step_left slow_step_right -; 839e FollowNotExact:: ; 839e push bc @@ -1458,7 +1407,6 @@ FollowNotExact:: ; 839e add hl, de ld [hl], STEP_TYPE_00 ret -; 8417 GetRelativeFacing:: ; 8417 ; Determines which way map object e would have to turn to face map object d. Returns carry if it's impossible for whatever reason. @@ -1484,7 +1432,6 @@ GetRelativeFacing:: ; 8417 .carry scf ret -; 8439 .GetFacing_e_relativeto_d: ; 8439 ; Determines which way object e would have to turn to face object d. Returns carry if it's impossible. @@ -1566,7 +1513,6 @@ GetRelativeFacing:: ; 8417 .same_x_and_y scf ret -; 848a QueueFollowerFirstStep: ; 848a call .QueueFirstStep @@ -1580,7 +1526,6 @@ QueueFollowerFirstStep: ; 848a ld a, -1 ld [wFollowerMovementQueueLength], a ret -; 849d .QueueFirstStep ld a, [wObjectFollow_Leader] @@ -1627,7 +1572,6 @@ QueueFollowerFirstStep: ; 848a .same_xy scf ret -; 84d9 _Sine:: ; 84d9 ; A simple sine function. @@ -1650,7 +1594,6 @@ _Sine:: ; 84d9 xor -1 inc a ret -; 84ef .ApplySineWave: ; 84ef ld e, a @@ -1675,13 +1618,11 @@ _Sine:: ; 84d9 and a jr nz, .multiply ret -; 850b .sinewave: ; 850b ; A $20-word table representing a sine wave. ; 90 degrees is index $10 at a base amplitude of $100. sine_wave $100 -; 854b INCLUDE "engine/predef.asm" @@ -1701,7 +1642,6 @@ CheckTime:: ; c000 xor a ld c, a ret -; c012 TimeOfDayTable: ; c012 db MORN, 1 << MORN @@ -1709,7 +1649,6 @@ TimeOfDayTable: ; c012 db NITE, 1 << NITE db NITE, 1 << NITE db -1 -; c01b INCLUDE "engine/specials.asm" @@ -1892,7 +1831,6 @@ _PrintNum:: ; c4c7 pop de pop bc ret -; c5ba .PrintYen: ; c5ba push af @@ -1908,7 +1846,6 @@ _PrintNum:: ; c4c7 .stop pop af ret -; c5cb .PrintDigit: ; c5cb (3:45cb) dec e @@ -2015,7 +1952,6 @@ _PrintNum:: ; c4c7 .inc inc hl ret -; c658 HealParty: ; c658 xor a @@ -2040,7 +1976,6 @@ HealParty: ; c658 .done ret -; c677 HealPartyMon: ; c677 ld a, MON_SPECIES @@ -2071,7 +2006,6 @@ HealPartyMon: ; c677 callba RestoreAllPP ret -; c699 ComputeHPBarPixels: ; c699 ; bc * (6 * 8) / de @@ -2123,14 +2057,12 @@ ComputeHPBarPixels: ; c699 .zero ld e, 0 ret -; c6e0 AnimateHPBar: ; c6e0 call WaitBGMap call _AnimateHPBar call WaitBGMap ret -; c6ea ClearBuffer1: ; c6ea xor a @@ -2138,7 +2070,6 @@ ClearBuffer1: ; c6ea ld bc, 7 call ByteFill ret -; c6f5 FieldMoveJumptable: ; c6f5 ld a, [Buffer1] @@ -2153,7 +2084,6 @@ FieldMoveJumptable: ; c6f5 and $7f scf ret -; c706 GetPartyNick: ; c706 ; write CurPartyMon nickname to StringBuffer1-3 @@ -2168,7 +2098,6 @@ GetPartyNick: ; c706 ld hl, StringBuffer3 call CopyName2 ret -; c721 CheckEngineFlag: ; c721 ; Check engine flag de @@ -2183,7 +2112,6 @@ CheckEngineFlag: ; c721 .isset xor a ret -; c731 CheckBadge: ; c731 ; Check engine flag a (ENGINE_ZEPHYRBADGE thru ENGINE_EARTHBADGE) @@ -2194,14 +2122,12 @@ CheckBadge: ; c731 call MenuTextBoxBackup ; push text to queue scf ret -; c73d .BadgeRequiredText: ; c73d ; Sorry! A new BADGE ; is required. text_jump _BadgeRequiredText db "@" -; c742 CheckPartyMove: ; c742 ; Check if a monster in your party has move d. @@ -2246,19 +2172,16 @@ CheckPartyMove: ; c742 .no scf ret -; c779 FieldMoveFailed: ; c779 ld hl, .CantUseHere call MenuTextBoxBackup ret -; c780 .CantUseHere: ; 0xc780 ; Can't use that here. text_jump UnknownText_0x1c05c8 db "@" -; 0xc785 CutFunction: ; c785 call ClearBuffer1 @@ -2269,7 +2192,6 @@ CutFunction: ; c785 and $7f ld [wFieldMoveSucceeded], a ret -; c796 .Jumptable: ; c796 (3:4796) @@ -2310,13 +2232,11 @@ Text_UsedCut: ; 0xc7c4 ; used CUT! text_jump UnknownText_0x1c05dd db "@" -; 0xc7c9 Text_NothingToCut: ; 0xc7c9 ; There's nothing to CUT here. text_jump UnknownText_0x1c05ec db "@" -; 0xc7ce CheckMapForSomethingToCut: ; c7ce ; Does the collision data of the facing tile permit cutting? @@ -2352,7 +2272,6 @@ CheckMapForSomethingToCut: ; c7ce .fail scf ret -; c7fe Script_CutFromMenu: ; c7fe reloadmappart @@ -2365,7 +2284,6 @@ Script_Cut: ; 0xc802 callasm CutDownTreeOrGrass closetext end -; 0xc810 CutDownTreeOrGrass: ; c810 ld hl, Buffer3 ; OverworldMapTile @@ -2388,7 +2306,6 @@ CutDownTreeOrGrass: ; c810 call DelayFrame call LoadStandardFont ret -; c840 CheckOverworldTileArrays: ; c840 ; Input: c contains the tile you're facing @@ -2425,7 +2342,6 @@ CheckOverworldTileArrays: ; c840 .nope xor a ret -; c862 CutTreeBlockPointers: ; c862 ; Which tileset are we in? @@ -2435,7 +2351,6 @@ CutTreeBlockPointers: ; c862 dbw TILESET_PARK, .park dbw TILESET_ILEX_FOREST, .ilex db -1 -; c872 .johto1: ; Johto OW ; Which meta tile are we facing, which should we replace it with, and which animation? @@ -2445,12 +2360,10 @@ CutTreeBlockPointers: ; c862 db $63, $3f, $00 ; tree db $67, $3e, $00 ; tree db -1 -; c882 .johto2: ; Goldenrod area db $03, $02, $01 ; grass db -1 -; c886 .kanto: ; Kanto OW db $0b, $0a, $01 ; grass @@ -2460,35 +2373,29 @@ CutTreeBlockPointers: ; c862 db $35, $4c, $00 ; tree db $60, $6e, $00 ; tree db -1 -; c899 .park: ; National Park db $13, $03, $01 ; grass db $03, $04, $01 ; grass db -1 -; c8a0 .ilex: ; Ilex Forest db $0f, $17, $00 db -1 -; c8a4 WhirlpoolBlockPointers: ; c8a4 dbw TILESET_JOHTO_1, .johto db -1 -; c8a8 .johto: ; c8a8 db $07, $36, $00 db -1 -; c8ac OWFlash: ; c8ac call .CheckUseFlash and $7f ld [wFieldMoveSucceeded], a ret -; c8b5 .CheckUseFlash: ; c8b5 ; Flash @@ -2515,12 +2422,10 @@ OWFlash: ; c8ac .nozephyrbadge ld a, $80 ret -; c8e0 UseFlash: ; c8e0 ld hl, Script_UseFlash jp QueueScript -; c8e6 Script_UseFlash: ; 0xc8e6 reloadmappart @@ -2529,7 +2434,6 @@ Script_UseFlash: ; 0xc8e6 callasm BlindingFlash closetext end -; 0xc8f3 UnknownText_0xc8f3: ; 0xc8f3 text_jump UnknownText_0x1c0609 @@ -2540,11 +2444,9 @@ UnknownText_0xc8f3: ; 0xc8f3 call WaitSFX ld hl, .BlankText ret -; c908 .BlankText: ; 0xc908 db "@" -; 0xc909 SurfFunction: ; c909 call ClearBuffer1 @@ -2555,7 +2457,6 @@ SurfFunction: ; c909 and $7f ld [wFieldMoveSucceeded], a ret -; c91a .Jumptable: ; c91a (3:491a) dw .TrySurf @@ -2615,7 +2516,6 @@ SurfFunction: ; c909 call MenuTextBoxBackup ld a, $80 ret -; c983 (3:4983) SurfFromMenuScript: ; c983 special UpdateTimePals @@ -2636,27 +2536,22 @@ UsedSurfScript: ; c986 special Special_SurfStartStep ; (slow_step_x, step_end) applymovement PLAYER, MovementBuffer ; PLAYER, MovementBuffer end -; c9a2 Functionc9a2: ; c9a2 callba MobileFn_1060bb ; empty ret -; c9a9 UsedSurfText: ; c9a9 text_jump _UsedSurfText db "@" -; c9ae CantSurfText: ; c9ae text_jump _CantSurfText db "@" -; c9b3 AlreadySurfingText: ; c9b3 text_jump _AlreadySurfingText db "@" -; c9b8 GetSurfType: ; c9b8 ; Surfing on Pikachu uses an alternate sprite. @@ -2674,7 +2569,6 @@ GetSurfType: ; c9b8 ret z ld a, PLAYER_SURF ret -; c9cb CheckDirection: ; c9cb ; Return carry if a tile permission prevents you @@ -2706,7 +2600,6 @@ CheckDirection: ; c9cb db FACE_UP db FACE_LEFT db FACE_RIGHT -; c9e7 TrySurfOW:: ; c9e7 ; Checking a tile in the overworld. @@ -2755,7 +2648,6 @@ TrySurfOW:: ; c9e7 .quit xor a ret -; ca2c AskSurfScript: ; ca2c opentext @@ -2764,12 +2656,10 @@ AskSurfScript: ; ca2c iftrue UsedSurfScript closetext end -; ca36 AskSurfText: ; ca36 text_jump _AskSurfText ; The water is calm. db "@" ; Want to SURF? -; ca3b FlyFunction: ; ca3b call ClearBuffer1 @@ -2780,13 +2670,11 @@ FlyFunction: ; ca3b and $7f ld [wFieldMoveSucceeded], a ret -; ca4c .Jumptable dw .TryFly dw .DoFly dw .FailFly -; ca52 .TryFly: ; ca52 ; Fly @@ -2828,20 +2716,17 @@ FlyFunction: ; ca3b call WaitBGMap ld a, $80 ret -; ca94 .DoFly: ; ca94 ld hl, .FlyScript call QueueScript ld a, $81 ret -; ca9d .FailFly: ; ca9d call FieldMoveFailed ld a, $82 ret -; caa3 .FlyScript: ; 0xcaa3 reloadmappart @@ -2857,7 +2742,6 @@ FlyFunction: ; ca3b special WaitSFX callasm .ReturnFromFly end -; 0xcacb .ReturnFromFly: ; cacb callba Function561d @@ -2865,14 +2749,12 @@ FlyFunction: ; ca3b call ReplaceKrisSprite callba LoadOverworldFont ret -; cade WaterfallFunction: ; cade call .TryWaterfall and $7f ld [wFieldMoveSucceeded], a ret -; cae7 .TryWaterfall: ; cae7 ; Waterfall @@ -2891,7 +2773,6 @@ WaterfallFunction: ; cade call FieldMoveFailed ld a, $80 ret -; cb07 CheckMapCanWaterfall: ; cb07 ld a, [PlayerDirection] @@ -2907,7 +2788,6 @@ CheckMapCanWaterfall: ; cb07 .failed scf ret -; cb1c Script_WaterfallFromMenu: ; 0xcb1c reloadmappart @@ -2924,7 +2804,6 @@ Script_UsedWaterfall: ; 0xcb20 callasm .CheckContinueWaterfall iffalse .loop end -; 0xcb38 .CheckContinueWaterfall: ; cb38 xor a @@ -2936,18 +2815,15 @@ Script_UsedWaterfall: ; 0xcb20 ld a, $1 ld [ScriptVar], a ret -; cb4f .WaterfallStep: ; cb4f turn_waterfall_up step_end -; cb51 .Text_UsedWaterfall: ; 0xcb51 ; used WATERFALL! text_jump UnknownText_0x1c068e db "@" -; 0xcb56 TryWaterfallOW:: ; cb56 ld d, WATERFALL @@ -2970,17 +2846,14 @@ TryWaterfallOW:: ; cb56 call CallScript scf ret -; cb7e Script_CantDoWaterfall: ; 0xcb7e jumptext .Text_CantDoWaterfall -; 0xcb81 .Text_CantDoWaterfall: ; 0xcb81 ; Wow, it's a huge waterfall. text_jump UnknownText_0x1c06a3 db "@" -; 0xcb86 Script_AskWaterfall: ; 0xcb86 opentext @@ -2989,13 +2862,11 @@ Script_AskWaterfall: ; 0xcb86 iftrue Script_UsedWaterfall closetext end -; 0xcb90 .AskUseWaterfall: ; 0xcb90 ; Do you want to use WATERFALL? text_jump UnknownText_0x1c06bf db "@" -; 0xcb95 EscapeRopeFunction: ; cb95 call ClearBuffer1 @@ -3015,13 +2886,11 @@ dig_incave and $7f ld [wFieldMoveSucceeded], a ret -; cbb2 .DigTable: ; cbb2 dw .CheckCanDig dw .DoDig dw .FailDig -; cbb8 .CheckCanDig: ; cbb8 call GetMapPermission @@ -3046,7 +2915,6 @@ dig_incave jr z, .fail ld a, $1 ret -; cbd8 .DoDig: ; cbd8 ld hl, wDigWarp @@ -3068,7 +2936,6 @@ dig_incave call QueueScript ld a, $81 ret -; cc06 .FailDig: ; cc06 ld a, [Buffer2] @@ -3082,32 +2949,27 @@ dig_incave .failescaperope ld a, $80 ret -; cc1c .Text_UsedDig: ; 0xcc1c ; used DIG! text_jump UnknownText_0x1c06de db "@" -; 0xcc21 .Text_UsedEscapeRope: ; 0xcc21 ; used an ESCAPE ROPE. text_jump UnknownText_0x1c06ed db "@" -; 0xcc26 .Text_CantUseHere: ; 0xcc26 ; Can't use that here. text_jump UnknownText_0x1c0705 db "@" -; 0xcc2b .UsedEscapeRopeScript: ; 0xcc2b reloadmappart special UpdateTimePals writetext .Text_UsedEscapeRope jump .UsedDigOrEscapeRopeScript -; 0xcc35 .UsedDigScript: ; 0xcc35 reloadmappart @@ -3126,19 +2988,16 @@ dig_incave playsound SFX_WARP_FROM applymovement PLAYER, .DigReturn end -; 0xcc59 .DigOut: ; 0xcc59 step_dig 32 hide_person step_end -; 0xcc5d .DigReturn: ; 0xcc5d show_person return_dig 32 step_end -; 0xcc61 TeleportFunction: ; cc61 call ClearBuffer1 @@ -3149,13 +3008,11 @@ TeleportFunction: ; cc61 and $7f ld [wFieldMoveSucceeded], a ret -; cc72 .Jumptable: ; cc72 dw .TryTeleport dw .DoTeleport dw .FailTeleport -; cc78 .TryTeleport: ; cc78 call GetMapPermission @@ -3178,7 +3035,6 @@ TeleportFunction: ; cc61 .nope ld a, $2 ret -; cc9c .DoTeleport: ; cc9c call GetPartyNick @@ -3186,26 +3042,22 @@ TeleportFunction: ; cc61 call QueueScript ld a, $81 ret -; cca8 .FailTeleport: ; cca8 ld hl, .Text_CantUseHere call MenuTextBoxBackup ld a, $80 ret -; ccb1 .Text_ReturnToLastMonCenter: ; 0xccb1 ; Return to the last #MON CENTER. text_jump UnknownText_0x1c071a db "@" -; 0xccb6 .Text_CantUseHere: ; 0xccb6 ; Can't use that here. text_jump UnknownText_0x1c073b db "@" -; 0xccbb .TeleportScript: ; 0xccbb reloadmappart @@ -3223,24 +3075,20 @@ TeleportFunction: ; cc61 playsound SFX_WARP_FROM applymovement PLAYER, .TeleportTo end -; 0xcce1 .TeleportFrom: ; cce1 teleport_from step_end -; cce3 .TeleportTo: ; cce3 teleport_to step_end -; cce5 StrengthFunction: ; cce5 call .TryStrength and $7f ld [wFieldMoveSucceeded], a ret -; ccee .TryStrength: ; ccee ; Strength @@ -3248,31 +3096,26 @@ StrengthFunction: ; cce5 call CheckBadge jr c, .Failed jr .UseStrength -; ccf8 .AlreadyUsing: ; unreferenced ld hl, .JumpText call MenuTextBoxBackup ld a, $80 ret -; cd01 .JumpText: ; 0xcd01 text_jump UnknownText_0x1c0751 db "@" -; 0xcd06 .Failed: ; cd06 ld a, $80 ret -; cd09 .UseStrength: ; cd09 ld hl, Script_StrengthFromMenu call QueueScript ld a, $81 ret -; cd12 SetStrengthFlag: ; cd12 ld hl, BikeFlags @@ -3286,7 +3129,6 @@ SetStrengthFlag: ; cd12 ld [Buffer6], a call GetPartyNick ret -; cd29 Script_StrengthFromMenu: ; 0xcd29 reloadmappart @@ -3301,32 +3143,26 @@ Script_UsedStrength: ; 0xcd2d writetext .StrengthAllowedItToMoveBoulders closetext end -; 0xcd41 .UsedStrength: ; 0xcd41 text_jump UnknownText_0x1c0774 db "@" -; 0xcd46 .StrengthAllowedItToMoveBoulders: ; 0xcd46 text_jump UnknownText_0x1c0788 db "@" -; 0xcd4b AskStrengthScript: callasm TryStrengthOW iffalse .AskStrength if_equal $1, .DontMeetRequirements jump .AlreadyUsedStrength -; 0xcd59 .DontMeetRequirements: ; 0xcd59 jumptext UnknownText_0xcd73 -; 0xcd5c .AlreadyUsedStrength: ; 0xcd5c jumptext UnknownText_0xcd6e -; 0xcd5f .AskStrength: ; 0xcd5f opentext @@ -3335,25 +3171,21 @@ AskStrengthScript: iftrue Script_UsedStrength closetext end -; 0xcd69 UnknownText_0xcd69: ; 0xcd69 ; A #MON may be able to move this. Want to use STRENGTH? text_jump UnknownText_0x1c07a0 db "@" -; 0xcd6e UnknownText_0xcd6e: ; 0xcd6e ; Boulders may now be moved! text_jump UnknownText_0x1c07d8 db "@" -; 0xcd73 UnknownText_0xcd73: ; 0xcd73 ; A #MON may be able to move this. text_jump UnknownText_0x1c07f4 db "@" -; 0xcd78 TryStrengthOW: ; cd78 ld d, STRENGTH @@ -3382,7 +3214,6 @@ TryStrengthOW: ; cd78 .done ld [ScriptVar], a ret -; cd9d WhirlpoolFunction: ; cd9d call ClearBuffer1 @@ -3393,13 +3224,11 @@ WhirlpoolFunction: ; cd9d and $7f ld [wFieldMoveSucceeded], a ret -; cdae Jumptable_cdae: ; cdae dw .TryWhirlpool dw .DoWhirlpool dw .FailWhirlpool -; cdb4 .TryWhirlpool: ; cdb4 ld de, ENGINE_GLACIERBADGE @@ -3417,26 +3246,22 @@ Jumptable_cdae: ; cdae .noglacierbadge ld a, $80 ret -; cdca .DoWhirlpool: ; cdca ld hl, Script_WhirlpoolFromMenu call QueueScript ld a, $81 ret -; cdd3 .FailWhirlpool: ; cdd3 call FieldMoveFailed ld a, $80 ret -; cdd9 Text_UsedWhirlpool: ; 0xcdd9 ; used WHIRLPOOL! text_jump UnknownText_0x1c0816 db "@" -; 0xcdde TryWhirlpoolMenu: ; cdde call GetFacingTileCoord @@ -3466,7 +3291,6 @@ TryWhirlpoolMenu: ; cdde .failed scf ret -; ce0b Script_WhirlpoolFromMenu: ; 0xce0b reloadmappart @@ -3479,7 +3303,6 @@ Script_UsedWhirlpool: ; 0xce0f callasm DisappearWhirlpool closetext end -; 0xce1d DisappearWhirlpool: ; ce1d ld hl, Buffer3 @@ -3497,7 +3320,6 @@ DisappearWhirlpool: ; ce1d call BufferScreen call GetMovementPermissions ret -; ce3e TryWhirlpoolOW:: ; ce3e ld d, WHIRLPOOL @@ -3520,16 +3342,13 @@ TryWhirlpoolOW:: ; ce3e call CallScript scf ret -; ce66 Script_MightyWhirlpool: ; 0xce66 jumptext .MightyWhirlpoolText -; 0xce69 .MightyWhirlpoolText: ; 0xce69 text_jump UnknownText_0x1c082b db "@" -; 0xce6e Script_AskWhirlpoolOW: ; 0xce6e opentext @@ -3538,19 +3357,16 @@ Script_AskWhirlpoolOW: ; 0xce6e iftrue Script_UsedWhirlpool closetext end -; 0xce78 UnknownText_0xce78: ; 0xce78 text_jump UnknownText_0x1c0864 db "@" -; 0xce7d HeadbuttFunction: ; ce7d call TryHeadbuttFromMenu and $7f ld [wFieldMoveSucceeded], a ret -; ce86 TryHeadbuttFromMenu: ; ce86 call GetFacingTileCoord @@ -3566,19 +3382,16 @@ TryHeadbuttFromMenu: ; ce86 call FieldMoveFailed ld a, $80 ret -; ce9d UnknownText_0xce9d: ; 0xce9d ; did a HEADBUTT! text_jump UnknownText_0x1c0897 db "@" -; 0xcea2 UnknownText_0xcea2: ; 0xcea2 ; Nope. Nothing… text_jump UnknownText_0x1c08ac db "@" -; 0xcea7 HeadbuttFromMenuScript: ; 0xcea7 reloadmappart @@ -3604,7 +3417,6 @@ HeadbuttScript: ; 0xceab waitbutton closetext end -; 0xcec9 TryHeadbuttOW:: ; cec9 ld d, HEADBUTT @@ -3620,7 +3432,6 @@ TryHeadbuttOW:: ; cec9 .no xor a ret -; cedc AskHeadbuttScript: ; 0xcedc opentext @@ -3629,20 +3440,17 @@ AskHeadbuttScript: ; 0xcedc iftrue HeadbuttScript closetext end -; 0xcee6 UnknownText_0xcee6: ; 0xcee6 ; A #MON could be in this tree. Want to HEADBUTT it? text_jump UnknownText_0x1c08bc db "@" -; 0xceeb RockSmashFunction: ; ceeb call TryRockSmashFromMenu and $7f ld [wFieldMoveSucceeded], a ret -; cef4 TryRockSmashFromMenu: ; cef4 call GetFacingObject @@ -3660,7 +3468,6 @@ TryRockSmashFromMenu: ; cef4 call FieldMoveFailed ld a, $80 ret -; cf0d GetFacingObject: ; cf0d callba CheckFacingObject @@ -3683,7 +3490,6 @@ GetFacingObject: ; cf0d .fail scf ret -; cf2e RockSmashFromMenuScript: ; 0xcf2e reloadmappart @@ -3707,7 +3513,6 @@ RockSmashScript: ; cf32 reloadmapafterbattle .done end -; 0xcf55 MovementData_0xcf55: ; 0xcf55 rock_smash 10 @@ -3716,7 +3521,6 @@ MovementData_0xcf55: ; 0xcf55 UnknownText_0xcf58: ; 0xcf58 text_jump UnknownText_0x1c08f0 db "@" -; 0xcf5d AskRockSmashScript: ; 0xcf5d callasm HasRockSmash @@ -3730,19 +3534,16 @@ AskRockSmashScript: ; 0xcf5d end .no jumptext UnknownText_0xcf72 -; 0xcf72 UnknownText_0xcf72: ; 0xcf72 ; Maybe a #MON can break this. text_jump UnknownText_0x1c0906 db "@" -; 0xcf77 UnknownText_0xcf77: ; 0xcf77 ; This rock looks breakable. Want to use ROCK SMASH? text_jump UnknownText_0x1c0924 db "@" -; 0xcf7c HasRockSmash: ; cf7c ld d, ROCK_SMASH @@ -3771,7 +3572,6 @@ FishFunction: ; cf8e and $7f ld [wFieldMoveSucceeded], a ret -; cfa5 .FishTable: ; cfa5 dw .TryFish @@ -3779,7 +3579,6 @@ FishFunction: ; cf8e dw .FishGotSomething dw .SurfingFish dw .FailFish -; cfaf .TryFish: ; cfaf ld a, [PlayerState] @@ -3822,12 +3621,10 @@ FishFunction: ; cf8e .nonibble ld a, $1 ret -; cff1 .SurfingFish: ; cff1 ld a, $80 ret -; cff4 .FishGotSomething: ; cff4 ld a, $1 @@ -3836,7 +3633,6 @@ FishFunction: ; cf8e call QueueScript ld a, $81 ret -; d002 .FishNoBite: ; d002 ld a, $2 @@ -3845,7 +3641,6 @@ FishFunction: ; cf8e call QueueScript ld a, $81 ret -; d010 .FailFish: ; d010 ld a, $0 @@ -3854,13 +3649,11 @@ FishFunction: ; cf8e call QueueScript ld a, $81 ret -; d01e Script_NotEvenANibble: ; 0xd01e scall Script_FishCastRod writetext UnknownText_0xd0a9 jump Script_NotEvenANibble_FallThrough -; 0xd027 Script_NotEvenANibble2: ; 0xd027 scall Script_FishCastRod @@ -3871,7 +3664,6 @@ Script_NotEvenANibble_FallThrough: ; 0xd02d callasm PutTheRodAway closetext end -; 0xd035 Script_GotABite: ; 0xd035 scall Script_FishCastRod @@ -3879,7 +3671,6 @@ Script_GotABite: ; 0xd035 iffalse .NotFacingUp applymovement PLAYER, .Movement_FacingUp jump .FightTheHookedPokemon -; 0xd046 .NotFacingUp: ; 0xd046 applymovement PLAYER, .Movement_NotFacingUp @@ -3894,7 +3685,6 @@ Script_GotABite: ; 0xd035 startbattle reloadmapafterbattle end -; 0xd05c .Movement_NotFacingUp: ; d05c fish_got_bite @@ -3903,7 +3693,6 @@ Script_GotABite: ; 0xd035 fish_got_bite show_emote step_end -; d062 .Movement_FacingUp: ; d062 fish_got_bite @@ -3913,13 +3702,11 @@ Script_GotABite: ; 0xd035 step_sleep_1 show_emote step_end -; d069 .Movement_RestoreRod: ; d069 hide_emote fish_cast_rod step_end -; d06c Fishing_CheckFacingUp: ; d06c ld a, [PlayerDirection] @@ -3932,7 +3719,6 @@ Fishing_CheckFacingUp: ; d06c .up ld [ScriptVar], a ret -; d07c Script_FishCastRod: ; 0xd07c reloadmappart @@ -3944,12 +3730,10 @@ Script_FishCastRod: ; 0xd07c applymovement PLAYER, MovementData_0xd093 pause 40 end -; 0xd093 MovementData_0xd093: ; d093 fish_cast_rod step_end -; d095 PutTheRodAway: ; d095 xor a @@ -3959,32 +3743,27 @@ PutTheRodAway: ; d095 call UpdateSprites call ReplaceKrisSprite ret -; d0a4 UnknownText_0xd0a4: ; 0xd0a4 ; Oh! A bite! text_jump UnknownText_0x1c0958 db "@" -; 0xd0a9 UnknownText_0xd0a9: ; 0xd0a9 ; Not even a nibble! text_jump UnknownText_0x1c0965 db "@" -; 0xd0ae UnknownText_0xd0ae: ; unused ; Looks like there's nothing here. text_jump UnknownText_0x1c0979 db "@" -; 0xd0b3 BikeFunction: ; d0b3 call .TryBike and $7f ld [wFieldMoveSucceeded], a ret -; d0bc .TryBike: ; d0bc call .CheckEnvironment @@ -4036,7 +3815,6 @@ BikeFunction: ; d0b3 call QueueScript ld a, $1 ret -; d119 .CheckIfRegistered: ; d119 ld a, [wUsingItemWithSelect] @@ -4045,7 +3823,6 @@ BikeFunction: ; d0b3 ld h, d ld l, e ret -; d121 .CheckEnvironment: ; d121 call GetMapPermission @@ -4067,7 +3844,6 @@ BikeFunction: ; d0b3 .nope scf ret -; d13e Script_GetOnBike: ; 0xd13e reloadmappart @@ -4078,14 +3854,12 @@ Script_GetOnBike: ; 0xd13e closetext special ReplaceKrisSprite end -; 0xd14e Script_GetOnBike_Register: ; 0xd14e writecode VAR_MOVEMENT, PLAYER_BIKE closetext special ReplaceKrisSprite end -; 0xd156 Functiond156: ; unreferenced nop @@ -4103,37 +3877,31 @@ FinishGettingOffBike: special ReplaceKrisSprite special PlayMapMusic end -; 0xd16b Script_GetOffBike_Register: ; 0xd16b writecode VAR_MOVEMENT, PLAYER_NORMAL jump FinishGettingOffBike -; 0xd171 UnknownScript_0xd171: ; 0xd171 writetext UnknownText_0xd177 waitbutton closetext end -; 0xd177 UnknownText_0xd177: ; 0xd177 ; You can't get off here! text_jump UnknownText_0x1c099a db "@" -; 0xd17c UnknownText_0xd17c: ; 0xd17c ; got on the @ . text_jump UnknownText_0x1c09b2 db "@" -; 0xd181 UnknownText_0xd181: ; 0xd181 ; got off the @ . text_jump UnknownText_0x1c09c7 db "@" -; 0xd186 TryCutOW:: ; d186 ld d, CUT @@ -4156,7 +3924,6 @@ TryCutOW:: ; d186 call CallScript scf ret -; d1a9 AskCutScript: ; 0xd1a9 opentext @@ -4168,7 +3935,6 @@ AskCutScript: ; 0xd1a9 .script_d1b8 closetext end -; 0xd1ba .CheckMap: ; d1ba xor a @@ -4178,21 +3944,17 @@ AskCutScript: ; 0xd1a9 ld a, TRUE ld [ScriptVar], a ret -; d1c8 UnknownText_0xd1c8: ; 0xd1c8 text_jump UnknownText_0x1c09dd db "@" -; 0xd1cd CantCutScript: ; 0xd1cd jumptext UnknownText_0xd1d0 -; 0xd1d0 UnknownText_0xd1d0: ; 0xd1d0 text_jump UnknownText_0x1c0a05 db "@" -; 0xd1d5 _ReceiveItem:: ; d1d5 call DoesHLEqualNumItems @@ -4205,31 +3967,26 @@ _ReceiveItem:: ; d1d5 ld hl, .Pockets rst JumpTable ret -; d1e9 .Pockets: ; d1e9 dw .Item dw .KeyItem dw .Ball dw .TMHM -; d1f1 .Item: ; d1f1 ld h, d ld l, e jp PutItemInPocket -; d1f6 .KeyItem: ; d1f6 ld h, d ld l, e jp ReceiveKeyItem -; d1fb .Ball: ; d1fb ld hl, NumBalls jp PutItemInPocket -; d201 .TMHM: ; d201 ld h, d @@ -4238,7 +3995,6 @@ _ReceiveItem:: ; d1d5 ld c, a call GetTMHMNumber jp ReceiveTMHM -; d20d _TossItem:: ; d20d call DoesHLEqualNumItems @@ -4257,12 +4013,10 @@ _TossItem:: ; d20d dw .KeyItem dw .Ball dw .TMHM -; d228 .Ball ; d228 ld hl, NumBalls jp RemoveItemFromPocket -; d22e .TMHM ; d22e ld h, d @@ -4271,22 +4025,18 @@ _TossItem:: ; d20d ld c, a call GetTMHMNumber jp TossTMHM -; d23a .KeyItem ; d23a ld h, d ld l, e jp TossKeyItem -; d23f .Item ; d23f ld h, d ld l, e -; d241 .remove jp RemoveItemFromPocket -; d244 _CheckItem:: ; d244 call DoesHLEqualNumItems @@ -4305,12 +4055,10 @@ _CheckItem:: ; d244 dw .KeyItem dw .Ball dw .TMHM -; d25f .Ball ; d25f ld hl, NumBalls jp CheckTheItem -; d265 .TMHM ; d265 ld h, d @@ -4319,22 +4067,18 @@ _CheckItem:: ; d244 ld c, a call GetTMHMNumber jp CheckTMHM -; d271 .KeyItem ; d271 ld h, d ld l, e jp CheckKeyItems -; d276 .Item ; d276 ld h, d ld l, e -; d278 .nope jp CheckTheItem -; d27b DoesHLEqualNumItems: ; d27b ld a, l @@ -4343,7 +4087,6 @@ DoesHLEqualNumItems: ; d27b ld a, h cp NumItems / $100 ret -; d283 GetPocketCapacity: ; d283 ld c, MAX_ITEMS @@ -4366,7 +4109,6 @@ GetPocketCapacity: ; d283 .not_pc ld c, MAX_BALLS ret -; d29c PutItemInPocket: ; d29c ld d, h @@ -4443,7 +4185,6 @@ PutItemInPocket: ; d29c .done scf ret -; d2ff RemoveItemFromPocket: ; d2ff ld d, h @@ -4509,7 +4250,6 @@ RemoveItemFromPocket: ; d2ff .nope and a ret -; d349 CheckTheItem: ; d349 ld a, [CurItem] @@ -4527,7 +4267,6 @@ CheckTheItem: ; d349 .done and a ret -; d35a ReceiveKeyItem: ; d35a ld hl, NumKeyItems @@ -4548,7 +4287,6 @@ ReceiveKeyItem: ; d35a .nope and a ret -; d374 TossKeyItem: ; d374 ld a, [wd107] @@ -4579,7 +4317,6 @@ TossKeyItem: ; d374 jr nz, .loop scf ret -; d396 .Toss: ; d396 ld hl, NumKeyItems @@ -4601,7 +4338,6 @@ TossKeyItem: ; d374 ld [NumKeyItems], a scf ret -; d3b1 CheckKeyItems: ; d3b1 ld a, [CurItem] @@ -4619,7 +4355,6 @@ CheckKeyItems: ; d3b1 .done scf ret -; d3c4 ReceiveTMHM: ; d3c4 dec c @@ -4637,7 +4372,6 @@ ReceiveTMHM: ; d3c4 .toomany and a ret -; d3d8 TossTMHM: ; d3d8 dec c @@ -4665,7 +4399,6 @@ TossTMHM: ; d3d8 .nope and a ret -; d3fb CheckTMHM: ; d3fb dec c @@ -4677,7 +4410,6 @@ CheckTMHM: ; d3fb ret z scf ret -; d407 GetTMHMNumber:: ; d407 ; Return the number of a TM/HM by item id c. @@ -4698,7 +4430,6 @@ GetTMHMNumber:: ; d407 inc a ld c, a ret -; d417 GetNumberedTMHM: ; d417 ; Return the item id of a TM/HM by number c. @@ -4720,7 +4451,6 @@ GetNumberedTMHM: ; d417 dec a ld c, a ret -; d427 _CheckTossableItem:: ; d427 ; Return 1 in wItemAttributeParamBuffer and carry if CurItem can't be removed from the bag. @@ -4730,7 +4460,6 @@ _CheckTossableItem:: ; d427 jr nz, ItemAttr_ReturnCarry and a ret -; d432 CheckSelectableItem: ; d432 ; Return 1 in wItemAttributeParamBuffer and carry if CurItem can't be selected. @@ -4740,7 +4469,6 @@ CheckSelectableItem: ; d432 jr nz, ItemAttr_ReturnCarry and a ret -; d43d CheckItemPocket:: ; d43d ; Return the pocket for CurItem in wItemAttributeParamBuffer. @@ -4749,7 +4477,6 @@ CheckItemPocket:: ; d43d and $f ld [wItemAttributeParamBuffer], a ret -; d448 CheckItemContext: ; d448 ; Return the context for CurItem in wItemAttributeParamBuffer. @@ -4758,7 +4485,6 @@ CheckItemContext: ; d448 and $f ld [wItemAttributeParamBuffer], a ret -; d453 CheckItemMenu: ; d453 ; Return the menu for CurItem in wItemAttributeParamBuffer. @@ -4768,7 +4494,6 @@ CheckItemMenu: ; d453 and $f ld [wItemAttributeParamBuffer], a ret -; d460 GetItemAttr: ; d460 ; Get attribute a of CurItem. @@ -4795,14 +4520,12 @@ GetItemAttr: ; d460 pop bc pop hl ret -; d47f ItemAttr_ReturnCarry: ; d47f ld a, 1 ld [wItemAttributeParamBuffer], a scf ret -; d486 GetItemPrice: ; d486 ; Return the price of CurItem in de. @@ -4817,7 +4540,6 @@ GetItemPrice: ; d486 pop bc pop hl ret -; d497 INCLUDE "engine/player_step.asm" INCLUDE "engine/anim_hp_bar.asm" @@ -4838,13 +4560,11 @@ _BillsPC: ; e3fd call MenuTextBoxBackup scf ret -; e417 (3:6417) .Text_GottaHavePokemon: ; 0xe417 ; You gotta have #MON to call! text_jump UnknownText_0x1c1006 db "@" -; 0xe41c .LogIn: ; e41c (3:641c) xor a @@ -4861,13 +4581,11 @@ _BillsPC: ; e3fd ld [Options], a call LoadFontsBattleExtra ret -; e43a (3:643a) .Text_What: ; 0xe43a ; What? text_jump UnknownText_0x1c1024 db "@" -; 0xe43f .LogOut: ; e43f (3:643f) call CloseSubmenu @@ -4896,7 +4614,6 @@ _BillsPC: ; e3fd .cancel call CloseWindow ret -; e46f (3:646f) .MenuDataHeader: ; 0xe46f db $40 ; flags @@ -4904,7 +4621,6 @@ _BillsPC: ; e3fd db 17, 19 ; end coords dw .MenuData2 db 1 ; default option -; 0xe477 .MenuData2: ; 0xe477 db $80 ; flags @@ -4912,7 +4628,6 @@ _BillsPC: ; e3fd dw .items dw PlaceMenuStrings dw .strings -; 0xe47f .strings: ; e47f db "WITHDRAW @" @@ -4927,7 +4642,6 @@ _BillsPC: ; e3fd dw BillsPC_ChangeBoxMenu dw BillsPC_MovePKMNMenu dw BillsPC_SeeYa -; e4c4 .items: ; e4c4 db 5 @@ -4937,12 +4651,10 @@ _BillsPC: ; e3fd db 3 ; MOVE PKMN db 4 ; SEE YA! db -1 -; e4cb BillsPC_SeeYa: ; e4cb scf ret -; e4cd BillsPC_MovePKMNMenu: ; e4cd call LoadStandardMenuDataHeader @@ -4963,13 +4675,11 @@ BillsPC_MovePKMNMenu: ; e4cd call CloseWindow and a ret -; e4f9 .Text_MonHoldingMail: ; 0xe4f9 ; There is a #MON holding MAIL. Please remove the MAIL. text_jump UnknownText_0x1c102b db "@" -; 0xe4fe BillsPC_DepositMenu: ; e4fe (3:64fe) call LoadStandardMenuDataHeader @@ -4979,7 +4689,6 @@ BillsPC_DepositMenu: ; e4fe (3:64fe) call CloseWindow and a ret -; e512 (3:6512) Functione512: ; unused ld a, [PartyCount] @@ -5001,19 +4710,16 @@ Functione512: ; unused call MenuTextBoxBackup scf ret -; e52e .Text_NoPKMN: ; 0xe52e ; You don't have a single #MON! text_jump UnknownText_0x1c1062 db "@" -; 0xe533 .Text_ItsYourLastPKMN: ; 0xe533 ; You can't deposit your last #MON! text_jump UnknownText_0x1c1080 db "@" -; 0xe538 CheckCurPartyMonFainted: ; e538 ld hl, PartyMon1HP @@ -5043,7 +4749,6 @@ CheckCurPartyMonFainted: ; e538 .notfainted and a ret -; e559 BillsPC_WithdrawMenu: ; e559 (3:6559) call LoadStandardMenuDataHeader @@ -5053,7 +4758,6 @@ BillsPC_WithdrawMenu: ; e559 (3:6559) call CloseWindow and a ret -; e56d (3:656d) Functione56d: ; unused ld a, [PartyCount] @@ -5067,13 +4771,11 @@ Functione56d: ; unused call MenuTextBoxBackup scf ret -; e57e UnknownText_0xe57e: ; 0xe57e ; You can't take any more #MON. text_jump UnknownText_0x1c10a2 db "@" -; 0xe583 BillsPC_ChangeBoxMenu: ; e583 (3:6583) callba _ChangeBox @@ -5099,7 +4801,6 @@ ClearPCItemScreen: ; e58b call WaitBGMap2 call SetPalettes ; load regular palettes? ret -; 0xe5bb CopyBoxmonToTempMon: ; e5bb ld a, [CurPartyMon] @@ -5113,7 +4814,6 @@ CopyBoxmonToTempMon: ; e5bb call CopyBytes call CloseSRAM ret -; e5d9 Functione5d9: ; unreferenced ld a, [wCurBox] @@ -5217,7 +4917,6 @@ Functione5d9: ; unreferenced .empty_box call CloseSRAM ret -; e66e .BoxAddrs: ; e66e dba sBox1 @@ -5234,7 +4933,6 @@ Functione5d9: ; unreferenced dba sBox12 dba sBox13 dba sBox14 -; e698 GetBreedMon1LevelGrowth: ; e698 ld hl, wBreedMon1Stats @@ -5249,7 +4947,6 @@ GetBreedMon1LevelGrowth: ; e698 sub b ld d, a ret -; e6b3 GetBreedMon2LevelGrowth: ; e6b3 ld hl, wBreedMon2Stats @@ -5264,7 +4961,6 @@ GetBreedMon2LevelGrowth: ; e6b3 sub b ld d, a ret -; e6ce BugContest_SetCaughtContestMon: ; e6ce ld a, [wContestMon] @@ -5285,7 +4981,6 @@ BugContest_SetCaughtContestMon: ; e6ce ld hl, .caughttext call PrintText ret -; e6fd .generatestats: ; e6fd ld a, [TempEnemyMonSpecies] @@ -5300,13 +4995,11 @@ BugContest_SetCaughtContestMon: ; e6ce ld [MonType], a ld hl, wContestMon jp GeneratePartyMonStats -; e71d .caughttext: ; 0xe71d ; Caught @ ! text_jump UnknownText_0x1c10c0 db "@" -; 0xe722 INCLUDE "items/item_effects.asm" @@ -5370,7 +5063,6 @@ GetPokeBallWobble: ; f971 (3:7971) ld a, e pop de ret -; f9ba (3:79ba) .WobbleProbabilities: ; f9ba ; catch rate, chance of wobbling / 255 @@ -5399,7 +5091,6 @@ GetPokeBallWobble: ; f971 (3:7971) db 240, 251 db 254, 253 db 255, 255 -; f9ea KnowsMove: ; f9ea ld a, MON_MOVES @@ -5421,13 +5112,11 @@ KnowsMove: ; f9ea call PrintText scf ret -; fa06 .Text_knows: ; 0xfa06 ; knows @ . text_jump UnknownText_0x1c5ea8 db "@" -; 0xfa0b SECTION "bank4", ROMX, BANK[$4] @@ -5444,7 +5133,6 @@ Script_AbortBugContest: ; 0x122c1 special ContestReturnMons .finish end -; 0x122ce INCLUDE "event/itemball.asm" INCLUDE "engine/healmachineanim.asm" @@ -5462,7 +5150,6 @@ Special_GiveParkBalls: ; 135db ld [wParkBallsRemaining], a callba StartBugContestTimer ret -; 135eb BugCatchingContestBattleScript:: ; 0x135eb writecode VAR_BATTLETYPE, BATTLETYPE_CONTEST @@ -5472,7 +5159,6 @@ BugCatchingContestBattleScript:: ; 0x135eb copybytetovar wParkBallsRemaining iffalse BugCatchingContestOutOfBallsScript end -; 0x135f8 BugCatchingContestOverScript:: ; 0x135f8 playsound SFX_ELEVATOR_END @@ -5480,7 +5166,6 @@ BugCatchingContestOverScript:: ; 0x135f8 writetext BugCatchingContestText_BeeepTimesUp waitbutton jump BugCatchingContestReturnToGateScript -; 0x13603 BugCatchingContestOutOfBallsScript: ; 0x13603 playsound SFX_ELEVATOR_END @@ -5491,19 +5176,16 @@ BugCatchingContestOutOfBallsScript: ; 0x13603 BugCatchingContestReturnToGateScript: ; 0x1360b closetext jumpstd bugcontestresultswarp -; 0x1360f BugCatchingContestText_BeeepTimesUp: ; 0x1360f ; ANNOUNCER: BEEEP! Time's up! text_jump UnknownText_0x1bd2ca db "@" -; 0x13614 BugCatchingContestText_ContestIsOver: ; 0x13614 ; ANNOUNCER: The Contest is over! text_jump UnknownText_0x1bd2e7 db "@" -; 0x13619 RepelWoreOffScript:: ; 0x13619 opentext @@ -5511,13 +5193,11 @@ RepelWoreOffScript:: ; 0x13619 waitbutton closetext end -; 0x13620 .text: ; 0x13620 ; REPEL's effect wore off. text_jump UnknownText_0x1bd308 db "@" -; 0x13625 HiddenItemScript:: ; 0x13625 opentext @@ -5530,7 +5210,6 @@ HiddenItemScript:: ; 0x13625 specialsound itemnotify jump .finish -; 0x1363e .bag_full: ; 0x1363e buttonsound @@ -5540,19 +5219,16 @@ HiddenItemScript:: ; 0x13625 .finish: ; 13643 closetext end -; 0x13645 .found_text: ; 0x13645 ; found @ ! text_jump UnknownText_0x1bd321 db "@" -; 0x1364a .no_room_text: ; 0x1364a ; But has no space left… text_jump UnknownText_0x1bd331 db "@" -; 0x1364f SetMemEvent: ; 1364f ld hl, EngineBuffer1 ; wd03e (aliases: MenuItemsList, CurFruitTree, CurInput) @@ -5587,7 +5263,6 @@ CheckFacingTileForStd:: ; 1365b .notintable xor a ret -; 13681 .table1 dbw $91, magazinebookshelf @@ -5599,11 +5274,9 @@ CheckFacingTileForStd:: ; 1365b dbw $9d, window dbw $9f, incenseburner db -1 ; end -; 1369a Script_JumpStdFromRAM: ; 0x1369a jump wJumpStdScriptBuffer -; 0x1369d INCLUDE "event/bug_contest_judging.asm" @@ -5635,7 +5308,6 @@ ApplyPokerusTick: ; 13988 dec c jr nz, .loop ret -; 139a8 INCLUDE "event/bug_contest_2.asm" @@ -5671,7 +5343,6 @@ root set 1 dw root*root root set root+1 endr -; 13d96 SECTION "bank5", ROMX, BANK[$5] @@ -5720,7 +5391,6 @@ StringBufferPointers:: ; 24000 dw StringBuffer1 dw EnemyMonNick dw BattleMonNick -; 2400e INCLUDE "engine/menu.asm" @@ -5737,7 +5407,6 @@ UpdateItemDescription: ; 0x244c3 decoord 1, 14 callba PrintItemDescription ret -; 0x244e3 Pokepic:: ; 244e3 ld hl, PokepicMenuDataHeader @@ -5767,7 +5436,6 @@ Pokepic:: ; 244e3 predef FillBox call WaitBGMap ret -; 24528 ClosePokepic:: ; 24528 ld hl, PokepicMenuDataHeader @@ -5782,7 +5450,6 @@ ClosePokepic:: ; 24528 call UpdateSprites call LoadStandardFont ret -; 24547 PokepicMenuDataHeader: ; 0x24547 db $40 ; flags @@ -5790,7 +5457,6 @@ PokepicMenuDataHeader: ; 0x24547 db 13, 14 ; end coords dw NULL db 1 ; default option -; 0x2454f LoadObjectMasks: ; 2454f ld hl, wObjectMasks @@ -5874,7 +5540,6 @@ PlaceMenuItemName: ; 0x24ab4 pop hl call PlaceString ret -; 0x24ac3 PlaceMenuItemQuantity: ; 0x24ac3 push de @@ -5895,7 +5560,6 @@ PlaceMenuItemQuantity: ; 0x24ac3 .done ret -; 0x24ae8 PlaceMoneyTopRight: ; 24ae8 ld hl, MenuDataHeader_0x24b15 @@ -5921,7 +5585,6 @@ PlaceMoneyDataHeader: ; 24b01 lb bc, PRINTNUM_MONEY | 3, 6 call PrintNum ret -; 24b15 MenuDataHeader_0x24b15: ; 0x24b15 db $40 ; flags @@ -5929,7 +5592,6 @@ MenuDataHeader_0x24b15: ; 0x24b15 db 02, 19 ; end coords dw NULL db 1 ; default option -; 0x24b1d MenuDataHeader_0x24b1d: ; 0x24b1d db $40 ; flags @@ -5937,7 +5599,6 @@ MenuDataHeader_0x24b1d: ; 0x24b1d db 13, 08 ; end coords dw NULL db 1 ; default option -; 0x24b25 Special_DisplayCoinCaseBalance: ; 24b25 ; Place a text box of size 1x7 at 11, 0. @@ -5956,7 +5617,6 @@ Special_DisplayCoinCaseBalance: ; 24b25 hlcoord 13, 1 call PrintNum ret -; 24b4e Special_DisplayMoneyAndCoinBalance: ; 24b4e hlcoord 5, 0 @@ -5978,7 +5638,6 @@ Special_DisplayMoneyAndCoinBalance: ; 24b4e lb bc, 2, 4 call PrintNum ret -; 24b83 MoneyString: ; 24b83 db "MONEY@" @@ -5986,7 +5645,6 @@ CoinString: ; 24b89 db "COIN@" ShowMoney_TerminatorString: ; 24b8e db "@" -; 24b8f Function24b8f: ; 24b8f ; unreferenced, related to safari? @@ -6015,13 +5673,11 @@ Function24b8f: ; 24b8f pop af ld [Options], a ret -; 24bcf .slash_500: ; 24bcf db "/500@" .booru_ko: ; 24bd4 db "ボール こ@" -; 24bdc Function24bdc: ; 24bdc hlcoord 0, 0 @@ -6029,7 +5685,6 @@ Function24bdc: ; 24bdc ld c, $11 call TextBox ret -; 24be7 Function24be7: ; 24be7 ld hl, Options @@ -6074,7 +5729,6 @@ Function24be7: ; 24be7 pop af ld [Options], a ret -; 24c43 String24c43: ; 24c43 db "ボール こ@" @@ -6086,7 +5740,6 @@ String24c59: ; 24c59 db "None@" String24c5e: ; 24c5e db "LEVEL@" -; 24c64 FindApricornsInBag: ; 24c64 ; Checks the bag for Apricorns. @@ -6121,7 +5774,6 @@ FindApricornsInBag: ; 24c64 ret nz scf ret -; 24c94 .addtobuffer: ; 24c94 push hl @@ -6133,7 +5785,6 @@ FindApricornsInBag: ; 24c64 ld [hl], a pop hl ret -; 24ca0 .ApricornBalls: ; 24ca0 db RED_APRICORN, LEVEL_BALL @@ -6144,7 +5795,6 @@ FindApricornsInBag: ; 24c64 db BLK_APRICORN, HEAVY_BALL db PNK_APRICORN, LOVE_BALL db -1 -; 24caf INCLUDE "engine/mon_menu.asm" INCLUDE "battle/menu.asm" @@ -6163,7 +5813,6 @@ ProfOaksPC: ; 0x265d3 call JoyWaitAorB call ExitMenu ret -; 0x265ee ProfOaksPCBoot ; 0x265ee ld hl, OakPCText2 @@ -6173,7 +5822,6 @@ ProfOaksPCBoot ; 0x265ee call JoyWaitAorB call WaitSFX ret -; 0x26601 ProfOaksPCRating: ; 0x26601 call Rate @@ -6185,7 +5833,6 @@ ProfOaksPCRating: ; 0x26601 call JoyWaitAorB call WaitSFX ret -; 0x26616 Rate: ; 0x26616 ; calculate Seen/Owned @@ -6210,7 +5857,6 @@ Rate: ; 0x26616 call PrintText pop de ret -; 0x26647 .UpdateRatingBuffers: ; 0x26647 ld hl, StringBuffer3 @@ -6220,7 +5866,6 @@ Rate: ; 0x26616 ld de, wd003 call .UpdateRatingBuffer ret -; 0x2665a .UpdateRatingBuffer: ; 0x2665a push hl @@ -6231,7 +5876,6 @@ Rate: ; 0x26616 lb bc, PRINTNUM_RIGHTALIGN | 1, 3 call PrintNum ret -; 0x2666b FindOakRating: ; 0x2666b ; return sound effect in de @@ -6256,7 +5900,6 @@ endr ld h, [hl] ld l, a ret -; 0x2667f OakRatings: ; 0x2667f oakrating: MACRO @@ -6388,7 +6031,6 @@ PadCoords_de: ; 27092 ld e, a call GetBlockLocation ret -; 2709e LevelUpHappinessMod: ; 2709e ld a, [CurPartyMon] @@ -6410,7 +6052,6 @@ LevelUpHappinessMod: ; 2709e .ok callab ChangeHappiness ret -; 270c4 INCLUDE "trainers/dvs.asm" @@ -6433,7 +6074,6 @@ _ReturnToBattle_UseBall: ; 2715c call LoadStandardMenuDataHeader call WaitBGMap jp SetPalettes -; 27192 ConsumeHeldItem: ; 27192 push hl @@ -6490,7 +6130,6 @@ ConsumeHeldItem: ; 27192 pop de pop hl ret -; 271de .ConsumableEffects: ; 271de ; Consumable items? @@ -6516,7 +6155,6 @@ ConsumeHeldItem: ; 27192 db HELD_ESCAPE db HELD_CRITICAL_UP db -1 -; 271f4 MoveEffectsPointers: ; 271f4 INCLUDE "battle/moves/move_effects_pointers.asm" @@ -6528,7 +6166,6 @@ Function27a28: ; 27a28 call BuySellToss_InterpretJoypad ld b, a ret -; 27a2d SECTION "bankA", ROMX, BANK[$A] @@ -6544,7 +6181,6 @@ Function29fe4: ; unreferenced ld a, c and a ret -; 29ff8 INCLUDE "engine/wildmons.asm" @@ -6607,7 +6243,6 @@ DetermineLinkBattleResult: ; 2b930 add $2 ld [wBattleResult], a ret -; 2b995 .CountMonsRemaining: ; 2b995 ld c, 0 @@ -6624,7 +6259,6 @@ DetermineLinkBattleResult: ; 2b930 dec b jr nz, .loop ret -; 2b9a6 .CalcPercentHPRemaining: ; 2b9a6 ld de, 0 @@ -6668,7 +6302,6 @@ DetermineLinkBattleResult: ; 2b930 dec c jr nz, .loop2 ret -; 2b9e1 .BothSides_CheckNumberMonsAtFullHealth: ; 2b9e1 ld hl, PartyMon1HP @@ -6688,7 +6321,6 @@ DetermineLinkBattleResult: ; 2b930 ld a, $1 and a ret -; 2ba01 .CheckFaintedOrFullHealth: ; 2ba01 ld d, 3 @@ -6714,15 +6346,12 @@ DetermineLinkBattleResult: ; 2b930 dec d jr nz, .loop3 ret -; 2ba1a ChrisBackpic: ; 2ba1a INCBIN "gfx/misc/player.6x6.2bpp.lz" -; 2bbaa DudeBackpic: ; 2bbaa INCBIN "gfx/misc/dude.6x6.2bpp.lz" -; 2bcea SECTION "bankB", ROMX, BANK[$B] @@ -6741,7 +6370,6 @@ INCLUDE "engine/tmhm2.asm" MoveDescriptions:: ; 2cb52 INCLUDE "battle/moves/move_descriptions.asm" -; 2ed44 GivePokerusAndConvertBerries: ; 2ed44 call ConvertBerriesToBerryJuice @@ -6855,7 +6483,6 @@ GivePokerusAndConvertBerries: ; 2ed44 add b ld [hl], a ret -; 2ede6 ; any berry held by a Shuckle may be converted to berry juice ConvertBerriesToBerryJuice: ; 2ede6 @@ -6894,7 +6521,6 @@ ConvertBerriesToBerryJuice: ; 2ede6 pop hl pop af ret -; 2ee18 ShowLinkBattleParticipants: ; 2ee18 ; If we're not in a communications room, @@ -6909,7 +6535,6 @@ ShowLinkBattleParticipants: ; 2ee18 call ClearTileMap call ClearSprites ret -; 2ee2f FindFirstAliveMon: ; 2ee2f xor a @@ -6944,7 +6569,6 @@ FindFirstAliveMon: ; 2ee2f ld [rWY], a ld [hMapAnims], a ret -; 2ee6c PlayBattleMusic: ; 2ee6c @@ -7046,7 +6670,6 @@ PlayBattleMusic: ; 2ee6c pop de pop hl ret -; 2ef18 ClearBattleRAM: ; 2ef18 xor a @@ -7097,7 +6720,6 @@ endr ld [hli], a ld [hl], VBGMap0 / $100 ret -; 2ef6e FillBox: ; 2ef6e ; Fill wBoxAlignment-aligned box width b height c @@ -7155,7 +6777,6 @@ FillBox: ; 2ef6e dec b jr nz, .x2 ret -; 2ef9f SECTION "Tileset Data 4", ROMX, BANK[TILESETS_4] @@ -7192,7 +6813,6 @@ GetTrainerClassName: ; 3952d call CopyBytes pop de ret -; 39550 GetOTName: ; 39550 ld hl, OTPlayerName @@ -7218,7 +6838,6 @@ GetOTName: ; 39550 call CopyBytes pop de ret -; 3957b GetTrainerAttributes: ; 3957b ld a, [TrainerClass] @@ -7238,7 +6857,6 @@ GetTrainerAttributes: ; 3957b ld a, [hl] ld [wEnemyTrainerBaseReward], a ret -; 3959c INCLUDE "trainers/attributes.asm" @@ -7298,7 +6916,6 @@ AnimateDexSearchSlowpoke: ; 441cf ld c, 32 call DelayFrames ret -; 441fc .FrameIDs: ; 441fc ; frame ID, duration @@ -7308,7 +6925,6 @@ AnimateDexSearchSlowpoke: ; 441cf db 3, 7 db 4, 7 db -2 -; 44207 DoDexSearchSlowpokeFrame: ; 44207 ld a, [wDexSearchSlowpokeFrame] @@ -7335,7 +6951,6 @@ DoDexSearchSlowpokeFrame: ; 44207 ld [de], a inc de jr .loop -; 44228 .SpriteData: ; 44228 dsprite 11, 0, 9, 0, $00, $00 @@ -7348,7 +6963,6 @@ DoDexSearchSlowpokeFrame: ; 44207 dsprite 13, 0, 10, 0, $21, $00 dsprite 13, 0, 11, 0, $22, $00 db -1 -; 4424d DisplayDexEntry: ; 4424d call GetPokemonName @@ -7484,11 +7098,9 @@ DisplayDexEntry: ; 4424d hlcoord 2, 11 call FarString ret -; 44331 String_44331: ; 44331 db "#@" -; 44333 GetDexEntryPointer: ; 44333 ; return dex entry pointer b:de @@ -7515,7 +7127,6 @@ GetDexEntryPointer: ; 44333 pop de pop hl ret -; 44351 .PokedexEntryBanks: ; 44351 @@ -7528,7 +7139,6 @@ GLOBAL PokedexEntries4 db BANK(PokedexEntries2) db BANK(PokedexEntries3) db BANK(PokedexEntries4) -; 44355 GetDexEntryPagePointer: ; 44355 call GetDexEntryPointer ; b:de @@ -7562,7 +7172,6 @@ endr ld e, l pop hl ret -; 44378 PokedexDataPointerTable: ; 0x44378 INCLUDE "data/pokedex/entry_pointers.asm" @@ -7584,18 +7193,15 @@ DrawKrisPackGFX: ; 48e81 lb bc, BANK(PackFGFX), 15 call Request2bpp ret -; 48e93 PackFGFXPointers: ; 48e93 dw PackFGFX + (15 tiles) * 1 dw PackFGFX + (15 tiles) * 3 dw PackFGFX + (15 tiles) * 0 dw PackFGFX + (15 tiles) * 2 -; 48e9b PackFGFX: ; 48e9b INCBIN "gfx/misc/pack_f.2bpp" -; 4925b Special_MoveTutor: ; 4925b call FadeToMenu @@ -7631,7 +7237,6 @@ Special_MoveTutor: ; 4925b .quit call CloseSubmenu ret -; 492a5 .GetMoveTutorMove: ; 492a5 ld a, [ScriptVar] @@ -7649,7 +7254,6 @@ Special_MoveTutor: ; 4925b .thunderbolt ld a, THUNDERBOLT ret -; 492b9 CheckCanLearnMoveTutorMove: ; 492b9 ld hl, .MenuDataHeader @@ -7697,13 +7301,11 @@ CheckCanLearnMoveTutorMove: ; 492b9 call ExitMenu scf ret -; 4930a .MenuDataHeader: ; 0x4930a db $40 ; flags db 12, 00 ; start coords db 17, 19 ; end coords -; 4930f INCLUDE "predef/crystal.asm" @@ -7733,7 +7335,6 @@ AskRememberPassword: ; 4ae12 .okay ld [ScriptVar], a ret -; 4ae1f .DoMenu: ; 4ae1f lb bc, 14, 7 @@ -7768,7 +7369,6 @@ AskRememberPassword: ; 4ae12 ld [wMenuCursorY], a scf ret -; 4ae5e Buena_ExitMenu: ; 4ae5e ld a, [hOAMUpdate] @@ -7784,7 +7384,6 @@ Buena_ExitMenu: ; 4ae5e pop af ld [hOAMUpdate], a ret -; 4ae78 SECTION "bank13", ROMX, BANK[$13] @@ -7833,7 +7432,6 @@ SwapTextboxPalettes:: ; 4c000 dec b jr nz, .loop ret -; 4c03f ScrollBGMapPalettes:: ; 4c03f ld hl, BGMapBuffer @@ -7875,7 +7473,6 @@ ScrollBGMapPalettes:: ; 4c03f dec c jr nz, .loop ret -; 4c075 INCLUDE "tilesets/palette_maps.asm" @@ -7921,7 +7518,6 @@ TileCollisionTable:: ; 4ce1f db NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE db NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE db NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + LANDTILE, NULL + WATRTILE -; 4cf1f EmptyAllSRAMBanks: ; 4cf1f ld a, $0 @@ -7933,7 +7529,6 @@ EmptyAllSRAMBanks: ; 4cf1f ld a, $3 call .EmptyBank ret -; 4cf34 .EmptyBank: ; 4cf34 call GetSRAMBank @@ -7943,7 +7538,6 @@ EmptyAllSRAMBanks: ; 4cf1f call ByteFill call CloseSRAM ret -; 4cf45 SaveMenu_LoadEDTile: ; 4cf45 (13:4f45) ld a, [hCGB] @@ -8043,7 +7637,6 @@ CheckSave:: ; 4cffe .ok ld c, $0 ret -; 4d01e INCLUDE "engine/map_triggers.asm" @@ -8083,7 +7676,6 @@ _LoadMapPart:: ; 4d15b dec b jr nz, .loop ret -; 4d188 PhoneRing_LoadEDTile: ; 4d188 ld a, [hCGB] @@ -8127,7 +7719,6 @@ PhoneRing_LoadEDTile: ; 4d188 pop af ld [hBGMapMode], a ret -; 4d1cb .LoadEDTile: ; 4d1cb ld [hSPBuffer], sp @@ -8166,14 +7757,12 @@ endr ld h, a ld sp, hl ret -; 4d249 Shrink1Pic: ; 4d249 INCBIN "gfx/shrink1.2bpp.lz" Shrink2Pic: ; 4d2d9 INCBIN "gfx/shrink2.2bpp.lz" -; 4d319 LinkMonStatsScreen: ; 4d319 ld a, [wMenuCursorY] @@ -8193,13 +7782,11 @@ LinkMonStatsScreen: ; 4d319 callba Function28eff call WaitBGMap2 ret -; 4d354 Function4d354: ; 4d354 call WaitBGMap call WaitBGMap2 ret -; 4d35b LinkTextbox2: ; 4d35b ld h, d @@ -8230,7 +7817,6 @@ LinkTextbox2: ; 4d35b dec b jr nz, .row ret -; 4d37e .PlaceBorder: ; 4d37e push hl @@ -8261,7 +7847,6 @@ LinkTextbox2: ; 4d35b call .PlaceRow ld [hl], "└" ret -; 4d3ab .PlaceRow: ; 4d3ab ld d, c @@ -8270,7 +7855,6 @@ LinkTextbox2: ; 4d35b dec d jr nz, .row_loop ret -; 4d3b1 _ResetClock: ; 4d3b1 callba BlankScreen @@ -8304,25 +7888,21 @@ _ResetClock: ; 4d3b1 ld hl, .text_wrong call PrintText ret -; 4d3fe .text_okay: ; 0x4d3fe ; Password OK. Select CONTINUE & reset settings. text_jump UnknownText_0x1c55db db "@" -; 0x4d403 .text_wrong: ; 0x4d403 ; Wrong password! text_jump UnknownText_0x1c560b db "@" -; 0x4d408 .text_askreset: ; 0x4d408 ; Reset the clock? text_jump UnknownText_0x1c561c db "@" -; 0x4d40d .NoYes_MenuDataHeader: ; 0x4d40d db $00 ; flags @@ -8330,14 +7910,12 @@ _ResetClock: ; 4d3b1 db 11, 19 ; end coords dw .NoYes_MenuData2 db 1 ; default option -; 0x4d415 .NoYes_MenuData2: ; 0x4d415 db $c0 ; flags db 2 ; items db "NO@" db "YES@" -; 0x4d41e ClockResetPassword: ; 4d41e call .CalculatePassword @@ -8381,13 +7959,11 @@ ClockResetPassword: ; 4d41e .nope scf ret -; 4d463 .pleaseenterpasswordtext: ; 0x4d463 ; Please enter the password. text_jump UnknownText_0x1c562e db "@" -; 0x4d468 .updateIDdisplay: ; 4d468 hlcoord 14, 15 @@ -8411,7 +7987,6 @@ ClockResetPassword: ; 4d41e add hl, de ld [hl], $61 ret -; 4d490 .dpadinput: ; 4d490 ld a, b @@ -8469,7 +8044,6 @@ ClockResetPassword: ; 4d41e .wraparound_down ld [hl], 9 ret -; 4d4d5 .getcurrentdigit: ; 4d4d5 ld a, [StringBuffer2 + 5] @@ -8478,7 +8052,6 @@ ClockResetPassword: ; 4d41e ld hl, StringBuffer2 add hl, de ret -; 4d4e0 .ConvertDecIDToBytes: ; 4d4e0 ld hl, 0 @@ -8503,7 +8076,6 @@ ClockResetPassword: ; 4d41e pop hl add hl, bc ret -; 4d50f .CalculatePassword: ; 4d50f ld a, BANK(sPlayerData) @@ -8520,7 +8092,6 @@ ClockResetPassword: ; 4d41e call .ComponentFromNumber call CloseSRAM ret -; 4d533 .ComponentFromNumber: ; 4d533 ld a, [hli] @@ -8532,7 +8103,6 @@ ClockResetPassword: ; 4d41e dec c jr nz, .ComponentFromNumber ret -; 4d53e .ComponentFromString: ; 4d53e ld a, [hli] @@ -8546,7 +8116,6 @@ ClockResetPassword: ; 4d41e dec c jr nz, .ComponentFromString ret -; 4d54c _DeleteSaveData: ; 4d54c callba BlankScreen @@ -8567,13 +8136,11 @@ _DeleteSaveData: ; 4d54c ret z callba EmptyAllSRAMBanks ret -; 4d580 .Text_ClearAllSaveData: ; 0x4d580 ; Clear all save data? text_jump UnknownText_0x1c564a db "@" -; 0x4d585 .NoYesMenuDataHeader: ; 0x4d585 db $00 ; flags @@ -8581,14 +8148,12 @@ _DeleteSaveData: ; 4d54c db 11, 19 ; end coords dw .MenuData2 db 1 ; default option -; 0x4d58d .MenuData2: ; 0x4d58d db $c0 ; flags db 2 ; items db "NO@" db "YES@" -; 0x4d596 Tilesets:: INCLUDE "tilesets/tileset_headers.asm" @@ -8663,7 +8228,6 @@ FlagPredef: ; 4d7c1 pop hl ld c, a ret -; 4d7fd GetTrademonFrontpic: ; 4d7fd ld a, [wOTTrademonSpecies] @@ -8679,7 +8243,6 @@ GetTrademonFrontpic: ; 4d7fd pop de predef FrontpicPredef ret -; 4d81e AnimateTrademonFrontpic: ; 4d81e ld a, [wOTTrademonSpecies] @@ -8704,7 +8267,6 @@ AnimateTrademonFrontpic: ; 4d81e ld e, ANIM_MON_TRADE predef AnimateFrontpic ret -; 4d860 CheckPokerus: ; 4d860 ; Return carry if a monster in your party has Pokerus @@ -8731,7 +8293,6 @@ CheckPokerus: ; 4d860 .HasPokerus scf ret -; 4d87a Special_CheckForLuckyNumberWinners: ; 4d87a xor a @@ -8852,7 +8413,6 @@ endr .print jp PrintText -; 4d939 .CompareLuckyNumberToMonID: ; 4d939 push bc @@ -8925,7 +8485,6 @@ endr pop bc and a ret -; 4d99f .BoxBankAddresses: ; 4d99f dba sBox1 @@ -8942,19 +8501,16 @@ endr dba sBox12 dba sBox13 dba sBox14 -; 4d9c9 .FoundPartymonText: ; 0x4d9c9 ; Congratulations! We have a match with the ID number of @ in your party. text_jump UnknownText_0x1c1261 db "@" -; 0x4d9ce .FoundBoxmonText: ; 0x4d9ce ; Congratulations! We have a match with the ID number of @ in your PC BOX. text_jump UnknownText_0x1c12ae db "@" -; 0x4d9d3 Special_PrintTodaysLuckyNumber: ; 4d9d3 ld hl, StringBuffer3 @@ -8964,7 +8520,6 @@ Special_PrintTodaysLuckyNumber: ; 4d9d3 ld a, "@" ld [StringBuffer3 + 5], a ret -; 4d9e5 CheckPartyFullAfterContest: ; 4d9e5 ld a, [wContestMon] @@ -9052,7 +8607,6 @@ CheckPartyFullAfterContest: ; 4d9e5 and a ld [ScriptVar], a ret -; 4daa3 .TryAddToBox: ; 4daa3 ld a, BANK(sBoxCount) @@ -9114,25 +8668,21 @@ CheckPartyFullAfterContest: ; 4d9e5 ld a, $1 ld [ScriptVar], a ret -; 4db35 .DidntCatchAnything: ; 4db35 ld a, $2 ld [ScriptVar], a ret -; 4db3b GiveANickname_YesNo: ; 4db3b ld hl, TextJump_GiveANickname call PrintText jp YesNoBox -; 4db44 TextJump_GiveANickname: ; 0x4db44 ; Give a nickname to the @ you received? text_jump UnknownText_0x1c12fc db "@" -; 0x4db49 SetCaughtData: ; 4db49 ld a, [PartyCount] @@ -9171,7 +8721,6 @@ SetBoxmonOrEggmonCaughtData: ; 4db53 or b ld [hl], a ret -; 4db83 SetBoxMonCaughtData: ; 4db83 ld a, BANK(sBoxMon1CaughtLevel) @@ -9180,7 +8729,6 @@ SetBoxMonCaughtData: ; 4db83 call SetBoxmonOrEggmonCaughtData call CloseSRAM ret -; 4db92 SetGiftBoxMonCaughtData: ; 4db92 push bc @@ -9191,7 +8739,6 @@ SetGiftBoxMonCaughtData: ; 4db92 call SetGiftMonCaughtData call CloseSRAM ret -; 4dba3 SetGiftPartyMonCaughtData: ; 4dba3 ld a, [PartyCount] @@ -9208,7 +8755,6 @@ SetGiftMonCaughtData: ; 4dbaf or b ld [hl], a ret -; 4dbb8 SetEggMonCaughtData: ; 4dbb8 (13:5bb8) ld a, [CurPartyMon] @@ -9227,18 +8773,15 @@ _FindGreaterThanThatLevel: ; 4dbd2 ld hl, PartyMon1Level call FindGreaterThanThatLevel ret -; 4dbd9 _FindAtLeastThatHappy: ; 4dbd9 ld hl, PartyMon1Happiness call FindAtLeastThatHappy ret -; 4dbe0 _FindThatSpecies: ; 4dbe0 ld hl, PartyMon1Species jp FindThatSpecies -; 4dbe6 _FindThatSpeciesYourTrainerID: ; 4dbe6 ld hl, PartyMon1Species @@ -9262,7 +8805,6 @@ _FindThatSpeciesYourTrainerID: ; 4dbe6 .nope xor a ret -; 4dc0a FindAtLeastThatHappy: ; 4dc0a ; Sets the bits for the Pokemon that have a happiness greater than or equal to b. @@ -9297,7 +8839,6 @@ FindAtLeastThatHappy: ; 4dc0a ld a, c and a ret -; 4dc31 FindGreaterThanThatLevel: ; 4dc31 ld c, $0 @@ -9327,7 +8868,6 @@ FindGreaterThanThatLevel: ; 4dc31 ld a, c and a ret -; 4dc56 FindThatSpecies: ; 4dc56 ; Find species b in your party. @@ -9346,7 +8886,6 @@ FindThatSpecies: ; 4dc56 ld a, $1 and a ret -; 4dc67 RetroactivelyIgnoreEggs: ; 4dc67 ld e, -2 @@ -9364,7 +8903,6 @@ RetroactivelyIgnoreEggs: ; 4dc67 .skip_notegg rlc e jr .loop -; 4dc7b INCLUDE "engine/stats_screen.asm" @@ -9380,7 +8918,6 @@ CatchTutorial:: ; 4e554 ld h, [hl] ld l, a jp [hl] -; 4e564 .dw: ; 4e564 (13:6564) dw .DudeTutorial @@ -9444,15 +8981,12 @@ CatchTutorial:: ; 4e554 ld [hli], a ld [hl], -1 ret -; 4e5da (13:65da) .Dude: ; 4e5da db "DUDE@" -; 4e5df .AutoInput: ; 4e5df db NO_INPUT, $ff ; end -; 4e5e1 INCLUDE "engine/evolution_animation.asm" @@ -9480,13 +9014,11 @@ Function4e881: ; 4e881 call WaitBGMap2 call SetPalettes ret -; 4e8bd .SavingRecordDontTurnOff: ; 0x4e8bd ; SAVING RECORD… DON'T TURN OFF! text_jump UnknownText_0x1bd39e db "@" -; 0x4e8c2 Function4e8c2: ; 4e8c2 call ClearBGPalettes @@ -9519,7 +9051,6 @@ Function4e8c2: ; 4e8c2 call WaitBGMap2 call SetPalettes ret -; 4e906 Function4e906: ; 4e906 ld a, [rSVBK] @@ -9538,7 +9069,6 @@ Function4e906: ; 4e906 pop af ld [rSVBK], a ret -; 4e929 Function4e929: ; mobile function ld h, b @@ -9546,7 +9076,6 @@ Function4e929: ; mobile function call Function4e930 ld c, a ret -; 4e930 Function4e930: ; 4e930 ld a, [hli] @@ -9585,7 +9114,6 @@ Function4e930: ; 4e930 add hl, bc ld a, [hl] ret -; 4e95d MaleTrainers: ; 4e95d db BURGLAR @@ -9614,7 +9142,6 @@ MaleTrainers: ; 4e95d db BIKER db SCIENTIST MaleTrainersEnd: -; 4e976 FemaleTrainers: ; 4e976 db MEDIUM @@ -9628,7 +9155,6 @@ FemaleTrainers: ; 4e976 db POKEFANF db COOLTRAINERF FemaleTrainersEnd: -; 4e980 INCLUDE "battle/sliding_intro.asm" @@ -9662,7 +9188,6 @@ Function4ea0a: ; 4ea0a ld c, 180 call DelayFrames ret -; 4ea44 CheckBattleScene: ; 4ea44 ; Return carry if battle scene is turned off. @@ -9711,7 +9236,6 @@ CheckBattleScene: ; 4ea44 .off scf ret -; 4ea82 INCLUDE "misc/gbc_only.asm" @@ -9760,12 +9284,10 @@ CopyPkmnToTempMon: ; 5084a .done ret -; 5088b CalcwBufferMonStats: ; 5088b ld bc, wBufferMon jr _TempMonStatsCalculation -; 50890 CalcTempmonStats: ; 50890 ld bc, TempMon @@ -9812,7 +9334,6 @@ _TempMonStatsCalculation: ; 50893 ld [hli], a ld [hl], a ret -; 508d5 GetPkmnSpecies: ; 508d5 ; [MonType] has the type of the Pkmn @@ -9857,7 +9378,6 @@ GetPkmnSpecies: ; 508d5 .done2 ld [CurPartySpecies], a ret -; 5090d INCLUDE "text/types.asm" @@ -9880,7 +9400,6 @@ Function50a28: ; 50a28 cp "@" jr nz, .copy ret -; 50a42 Strings50a42: ; 50a42 ; Untranslated trainer class names from Red. @@ -9953,7 +9472,6 @@ Strings50a42: ; 50a42 .Rocket db "だんいん@" .CooltrainerM db "エりート♂@" .CooltrainerF db "エりート♀@" -; 50b0a DrawPlayerHP: ; 50b0a ld a, $1 @@ -10037,7 +9555,6 @@ DrawHP: ; 50b10 pop hl pop de ret -; 50b7b PrintTempMonStats: ; 50b7b ; Print TempMon's stats at hl, with spacing bc. @@ -10061,7 +9578,6 @@ PrintTempMonStats: ; 50b7b call .PrintStat ld de, TempMonSpeed jp PrintNum -; 50bab .PrintStat: ; 50bab push hl @@ -10070,7 +9586,6 @@ PrintTempMonStats: ; 50b7b ld de, SCREEN_WIDTH * 2 add hl, de ret -; 50bb5 .StatNames: ; 50bb5 db "ATTACK" @@ -10079,7 +9594,6 @@ PrintTempMonStats: ; 50b7b next "SPCL.DEF" next "SPEED" next "@" -; 50bdd GetGender: ; 50bdd ; Return the gender of a given monster (CurPartyMon/CurOTMon/CurWildMon). @@ -10194,7 +9708,6 @@ GetGender: ; 50bdd .Genderless scf ret -; 50c50 ListMovePP: ; 50c50 ld a, [wNumMoves] @@ -10276,7 +9789,6 @@ endr .done ret -; 50cc9 .load_loop: ; 50cc9 ld [hli], a @@ -10285,7 +9797,6 @@ endr dec c jr nz, .load_loop ret -; 50cd0 Function50cd0: ; 50cd0 .asm_50cd0 @@ -10297,7 +9808,6 @@ Function50cd0: ; 50cd0 dec c jr nz, .asm_50cd0 ret -; 50cdb Function50cdb: ; unreferenced predef push hl @@ -10326,7 +9836,6 @@ Function50cdb: ; unreferenced predef .asm_50d09 ret -; 50d0a PlaceStatusString: ; 50d0a push de @@ -10346,11 +9855,9 @@ PlaceStatusString: ; 50d0a ld a, $1 and a ret -; 50d22 FntString: ; 50d22 db "FNT@" -; 50d25 CopyStatusString: ; 50d25 ld a, [de] @@ -10362,7 +9869,6 @@ CopyStatusString: ; 50d25 ld a, [de] ld [hl], a ret -; 50d2e PlaceNonFaintStatus: ; 50d2e push de @@ -10391,14 +9897,12 @@ PlaceNonFaintStatus: ; 50d2e .no_status pop de ret -; 50d5b SlpString: db "SLP@" PsnString: db "PSN@" BrnString: db "BRN@" FrzString: db "FRZ@" ParString: db "PAR@" -; 50d6f ListMoves: ; 50d6f ; List moves at hl, spaced every [Buffer1] tiles. @@ -10453,7 +9957,6 @@ ListMoves: ; 50d6f .done ret -; 50db9 Function50db9: ; 50db9 ld a, [wd263] @@ -10510,7 +10013,6 @@ Function50db9: ; 50db9 ld a, b ld [wd105], a ret -; 50e1b CalcLevel: ; 50e1b ld a, [TempMonSpecies] @@ -10543,7 +10045,6 @@ CalcLevel: ; 50e1b .got_level dec d ret -; 50e47 CalcExpAtLevel: ; 50e47 ; (a/b)*n**3 + c*n**2 + d*n - e @@ -10664,7 +10165,6 @@ CalcExpAtLevel: ; 50e47 adc b ld [hMultiplicand], a ret -; 50eed .LevelSquared: ; 50eed xor a @@ -10674,7 +10174,6 @@ CalcExpAtLevel: ; 50e47 ld [hMultiplicand + 2], a ld [hMultiplier], a jp Multiply -; 50efa GrowthRates: ; 50efa @@ -10695,7 +10194,6 @@ ENDM growth_rate 6, 5, -15, 100, 140 ; Medium Slow growth_rate 4, 5, 0, 0, 0 ; Fast growth_rate 5, 4, 0, 0, 0 ; Slow -; 50f12 _SwitchPartyMons: ld a, [wd0e3] @@ -10892,7 +10390,6 @@ GetUnownLetter: ; 51040 inc a ld [UnownLetter], a ret -; 51077 GetFrontpic: ; 51077 ld a, [CurPartySpecies] @@ -10905,7 +10402,6 @@ GetFrontpic: ; 51077 pop af ld [rSVBK], a ret -; 5108b FrontpicPredef: ; 5108b ld a, [CurPartySpecies] @@ -10921,7 +10417,6 @@ FrontpicPredef: ; 5108b pop af ld [rSVBK], a ret -; 510a5 _GetFrontpic: ; 510a5 push de @@ -10949,7 +10444,6 @@ _GetFrontpic: ; 510a5 call Get2bpp pop hl ret -; 510d7 GetFrontpicPointer: ; 510d7 GLOBAL PicPointers, UnownPicPointers @@ -10979,7 +10473,6 @@ GLOBAL PicPointers, UnownPicPointers call GetFarHalfword pop bc ret -; 51103 Function51103: ; 51103 ld a, $1 @@ -11023,7 +10516,6 @@ Function51103: ; 51103 xor a ld [rVBK], a ret -; 5114f Function5114f: ; 5114f ld hl, wDecompressScratch @@ -11045,7 +10537,6 @@ Function5114f: ; 5114f dec b jr nz, .asm_51161 ret -; 5116c GetBackpic: ; 5116c ld a, [CurPartySpecies] @@ -11099,7 +10590,6 @@ GetBackpic: ; 5116c pop af ld [rSVBK], a ret -; 511c5 FixPicBank: ; 511c5 ; This is a thing for some reason. @@ -11114,7 +10604,6 @@ FixPicBank: ; 511c5 pop bc pop hl ret -; 511d4 .PicsBanks: ; 511d4 db PICS_1 @@ -11160,7 +10649,6 @@ Function511ec: ; 511ec pop de call FarDecompress ret -; 0x5120d GetTrainerPic: ; 5120d ld a, [TrainerClass] @@ -11203,7 +10691,6 @@ GetTrainerPic: ; 5120d ld a, $1 ld [hBGMapMode], a ret -; 5125d DecompressPredef: ; 5125d ; Decompress lz data from b:hl to scratch space at 6:d000, then copy it to address de. @@ -11228,7 +10715,6 @@ DecompressPredef: ; 5125d pop af ld [rSVBK], a ret -; 5127c FixBackpicAlignment: ; 5127c push de @@ -11265,7 +10751,6 @@ FixBackpicAlignment: ; 5127c pop bc pop de ret -; 512ab Function512ab: ; 512ab ld a, b @@ -11317,7 +10802,6 @@ Function512ab: ; 512ab dec c jr nz, .Fill ret -; 512f2 LoadFrontpic: ; 512f2 ld a, [wBoxAlignment] @@ -11347,7 +10831,6 @@ LoadFrontpic: ; 512f2 jr nz, .right_loop pop bc ret -; 51322 Function51322: ; 51322 ld a, BANK(sBoxCount) @@ -11387,7 +10870,6 @@ Function51322: ; 51322 ld b, a callba Functiondcb6 jp CloseSRAM -; 5138b Function5138b: ; 5138b ld hl, PartyCount @@ -11414,7 +10896,6 @@ Function5138b: ; 5138b ld de, wBufferMon call Function513e0 ret -; 513cb Function513cb: ; 513cb inc [hl] @@ -11433,7 +10914,6 @@ Function513cb: ; 513cb ld c, a jr nz, .asm_513d8 ret -; 513e0 Function513e0: ; 513e0 push de @@ -11485,7 +10965,6 @@ Function513e0: ; 513e0 pop hl call CopyBytes ret -; 51424 BaseData:: INCLUDE "data/base_stats.asm" @@ -11506,12 +10985,10 @@ Unknown_53d84: ; unreferenced db $f6, $1e db $ff, $1f db $ff, $20 -; 53d9c UnknownEggPic:: ; 53d9c ; Another egg pic. This is shifted up a few pixels. INCBIN "gfx/misc/unknown_egg.5x5.2bpp.lz" -; 53e2e SECTION "bank19", ROMX, BANK[$19] @@ -11522,7 +10999,6 @@ SECTION "bank20", ROMX, BANK[$20] INCLUDE "engine/player_movement.asm" INCLUDE "engine/engine_flags.asm" -; 80648 INCLUDE "engine/variables.asm" @@ -11554,7 +11030,6 @@ Function88248: ; 88248 ld a, c ld [TrainerClass], a ret -; 88258 MovePlayerPicRight: ; 88258 hlcoord 6, 4 @@ -11600,7 +11075,6 @@ MovePlayerPic: ; 88266 pop bc pop hl jr .loop -; 88297 ShowPlayerNamingChoices: ; 88297 ld hl, ChrisNameMenuHeader @@ -11616,7 +11090,6 @@ ShowPlayerNamingChoices: ; 88297 call CopyNameFromMenu call CloseWindow ret -; 882b5 ChrisNameMenuHeader: ; 882b5 db $40 ; flags @@ -11625,7 +11098,6 @@ ChrisNameMenuHeader: ; 882b5 dw .MaleNames db 1 ; ???? db 0 ; default option -; 882be .MaleNames: ; 882be db $91 ; flags @@ -11638,7 +11110,6 @@ MalePlayerNameArray: ; 882c9 db "JON@" db 2 ; displacement db " NAME @" ; title -; 882e5 KrisNameMenuHeader: ; 882e5 db $40 ; flags @@ -11647,7 +11118,6 @@ KrisNameMenuHeader: ; 882e5 dw .FemaleNames db 1 ; ???? db 0 ; default option -; 882ee .FemaleNames: ; 882ee db $91 ; flags @@ -11660,7 +11130,6 @@ FemalePlayerNameArray: ; 882f9 db "JODI@" db 2 ; displacement db " NAME @" ; title -; 88318 GetPlayerNameArray: ; 88318 This Function is never called ld hl, PlayerName @@ -11673,7 +11142,6 @@ GetPlayerNameArray: ; 88318 This Function is never called .done call InitName ret -; 8832c GetPlayerIcon: ; 8832c ; Get the player icon corresponding to gender @@ -11692,7 +11160,6 @@ GetPlayerIcon: ; 8832c .done ret -; 8833e GetCardPic: ; 8833e ld hl, ChrisCardPic @@ -11711,19 +11178,15 @@ GetCardPic: ; 8833e ld a, BANK(CardGFX) call FarCopyBytes ret -; 88365 (22:4365) ChrisCardPic: ; 88365 INCBIN "gfx/misc/chris_card.5x7.2bpp" -; 88595 KrisCardPic: ; 88595 INCBIN "gfx/misc/kris_card.5x7.2bpp" -; 887c5 CardGFX: ; 887c5 INCBIN "gfx/misc/trainer_card.2bpp" -; 88825 GetPlayerBackpic: ; 88825 ld a, [PlayerGender] @@ -11739,7 +11202,6 @@ GetChrisBackpic: ; 88830 ld c, 7 * 7 predef DecompressPredef ret -; 88840 Function88840: ; 88840 call WaitBGMap @@ -11769,7 +11231,6 @@ Function88840: ; 88840 ld a, $1 ld [hBGMapMode], a ret -; 88874 DrawIntroPlayerPic: ; 88874 ; Draw the player pic at (6,4). @@ -11803,15 +11264,12 @@ DrawIntroPlayerPic: ; 88874 lb bc, 7, 7 predef FillBox ret -; 888a9 ChrisPic: ; 888a9 INCBIN "gfx/misc/chris.7x7.2bpp" -; 88bb9 KrisPic: ; 88bb9 INCBIN "gfx/misc/kris.7x7.2bpp" -; 88ec9 GetKrisBackpic: ; 88ec9 ; Kris's backpic is uncompressed. @@ -11820,15 +11278,12 @@ GetKrisBackpic: ; 88ec9 lb bc, BANK(KrisBackpic), 7 * 7 ; dimensions call Get2bpp ret -; 88ed6 KrisBackpic: ; 88ed6 INCBIN "gfx/misc/kris_back.6x6.2bpp" -; 89116 String_89116: db "-----@" -; 8911c INCLUDE "misc/mobile_22.asm" INCLUDE "event/unown.asm" @@ -11842,7 +11297,6 @@ SECTION "bank23", ROMX, BANK[$23] Predef35: ; 8c000 Predef36: ret -; 8c001 INCLUDE "engine/timeofdaypals.asm" INCLUDE "engine/battle_start.asm" @@ -11854,7 +11308,6 @@ Function8c7c9: ; unreferenced xor a ld [hBGMapMode], a ret -; 8c7d4 INCLUDE "event/field_moves.asm" INCLUDE "event/magnet_train.asm" @@ -11862,7 +11315,6 @@ INCLUDE "event/magnet_train.asm" Function8cf4f: ; 8cf4f call Function3238 ret -; 8cf53 INCLUDE "engine/sprites.asm" @@ -11927,7 +11379,6 @@ TalkToTrainerScript:: ; 0xbe66a loadmemtrainer encountermusic jump StartBattleWithMapTrainerScript -; 0xbe675 SeenByTrainerScript:: ; 0xbe675 loadmemtrainer @@ -11938,7 +11389,6 @@ SeenByTrainerScript:: ; 0xbe675 writepersonxy LAST_TALKED faceperson PLAYER, LAST_TALKED jump StartBattleWithMapTrainerScript -; 0xbe68a StartBattleWithMapTrainerScript: ; 0xbe68a opentext @@ -11953,7 +11403,6 @@ StartBattleWithMapTrainerScript: ; 0xbe68a AlreadyBeatenTrainerScript: scripttalkafter -; 0xbe699 SECTION "bank30", ROMX, BANK[$30] @@ -11975,7 +11424,6 @@ LoadPoisonBGPals: ; cbcdd and a ret nz ret -; cbce5 .LoadPals: ; cbce5 ld a, [hCGB] @@ -12018,11 +11466,9 @@ LoadPoisonBGPals: ; cbcdd call DelayFrames callba _UpdateTimePals ret -; cbd2e TheEndGFX:: ; cbd2e INCBIN "gfx/credits/theend.2bpp" -; cbe2e SECTION "bank33", ROMX, BANK[$33] @@ -12107,7 +11553,6 @@ DisplayCaughtContestMonStats: ; cc000 call GetSGBLayout call SetPalettes ret -; cc0a7 .Health db "HEALTH@" @@ -12120,25 +11565,21 @@ SwitchMonText: ; cc0c2 ; Switch #MON? text_jump UnknownText_0x1c10cf db "@" -; cc0c7 DisplayAlreadyCaughtText: ; cc0c7 call GetPokemonName ld hl, .AlreadyCaughtText jp PrintText -; cc0d0 .AlreadyCaughtText: ; 0xcc0d0 ; You already caught a @ . text_jump UnknownText_0x1c10dd db "@" -; 0xcc0d5 Predef2F: Predef38: Predef39: ; cc0d5 ret -; cc0d6 INCLUDE "battle/anim_commands.asm" @@ -12249,7 +11690,6 @@ Functione0000: ; e0000 call Get2bpp call CloseSRAM ret -; e004e .Copy: ; e004e ld c, $10 @@ -12260,7 +11700,6 @@ Functione0000: ; e0000 dec c jr nz, .loop_copy ret -; e0057 .Decompress: ; e0057 ld hl, wd012 @@ -12283,7 +11722,6 @@ Functione0000: ; e0000 dec d jr nz, .loop_decompress ret -; e0078 .CountSetBit: ; e0078 ld b, 0 @@ -12304,7 +11742,6 @@ Functione0000: ; e0000 dec c jr nz, .loop_count ret -; e008b overworldmaptile EQUS "dw OverworldMap + $10 *" overworldmaprect: MACRO @@ -12321,7 +11758,6 @@ endm Unknown_e008b: ; e008b overworldmaprect 7, 7 -; e00ed Unknown_e00ed: ; Graphics for an unused Game Corner @@ -12330,7 +11766,6 @@ Unknown_e00ed: ret_e00ed: ; e00ed (38:40ed) ; How many coins? ret -; e00ee (38:40ee) INCLUDE "engine/card_flip.asm" INCLUDE "engine/unown_puzzle.asm" @@ -12341,7 +11776,6 @@ SECTION "bank39", ROMX, BANK[$39] CopyrightGFX:: ; e4000 INCBIN "gfx/misc/copyright.2bpp" -; e41d0 INCLUDE "engine/options_menu.asm" INCLUDE "engine/crystal_intro.asm" @@ -12389,7 +11823,6 @@ SECTION "Intro Logo", ROMX, BANK[$42] IntroLogoGFX: ; 109407 INCBIN "gfx/intro/logo.2bpp.lz" -; 109847 INCLUDE "misc/unused_title.asm" @@ -12426,7 +11859,6 @@ _UpdateBattleHUDs: call SetHPPal callba FinishBattleAnim ret -; 17801f (5e:401f) INCLUDE "misc/mobile_5f.asm" @@ -12472,7 +11904,6 @@ SECTION "bank77", ROMX, BANK[$77] UnownFont: ; 1dc000 INCBIN "gfx/misc/unown_font.2bpp" -; 1dc1b0 INCLUDE "misc/printer_77.asm" @@ -12502,7 +11933,6 @@ Function1dd6a9: ; 1dd6a9 call PrintNum pop bc ret -; 1dd6bb PrintHoursMins ; 1dd6bb (77:56bb) ; Hours in b, minutes in c @@ -12549,11 +11979,9 @@ PrintHoursMins ; 1dd6bb (77:56bb) inc hl call PlaceString ret -; 1dd6fc (77:56fc) String_AM: db "AM@" ; 1dd6fc String_PM: db "PM@" ; 1dd6ff -; 1dd702 INCLUDE "engine/diploma.asm" @@ -12562,7 +11990,6 @@ LoadSGBPokedexGFX: ; 1ddf1c ld de, VTiles2 tile $31 call Decompress ret -; 1ddf26 Function1ddf26: ; 1ddf26 (77:5f26) ld hl, LZ_1ddf33 @@ -12570,22 +11997,18 @@ Function1ddf26: ; 1ddf26 (77:5f26) lb bc, BANK(LZ_1ddf33), $3a call DecompressRequest2bpp ret -; 1ddf33 (77:5f33) LZ_1ddf33: ; 1ddf33 INCBIN "gfx/pokedex/sgb.2bpp.lz" -; 1de0d7 LoadQuestionMarkPic: ; 1de0d7 ld hl, .QuestionMarkLZ ld de, sScratch call Decompress ret -; 1de0e1 .QuestionMarkLZ: ; 1de0e1 INCBIN "gfx/pics/questionmark/front.2bpp.lz" -; 1de171 DrawPokedexListWindow: ; 1de171 (77:6171) ld a, $32 @@ -12674,14 +12097,12 @@ DrawPokedexSearchResultsWindow: ; 1de1d1 (77:61d1) hlcoord 0, 12 call PlaceString ret -; 1de23c (77:623c) .esults_D: ; 1de23c ; (SEARCH R) db "ESULTS" ; (### FOUN) next "D!@" -; 1de247 Function1de247: ; 1de247 ld a, [hBGMapAddress] @@ -12714,7 +12135,6 @@ Function1de247: ; 1de247 ld a, h ld [hBGMapAddress + 1], a ret -; 1de27f Bank77_FillColumn: ; 1de27f push de @@ -12726,28 +12146,23 @@ Bank77_FillColumn: ; 1de27f jr nz, .loop pop de ret -; 1de28a _DudeAutoInput_A:: ; 1de28a ld hl, DudeAutoInput_A jr _DudeAutoInput -; 1de28f _DudeAutoInput_RightA: ; 1de28f ld hl, DudeAutoInput_RightA jr _DudeAutoInput -; 1de294 _DudeAutoInput_DownA: ; 1de294 ld hl, DudeAutoInput_DownA jr _DudeAutoInput -; 1de299 _DudeAutoInput: ; 1de299 ld a, BANK(DudeAutoInputs) call StartAutoInput ret -; 1de29f DudeAutoInputs: @@ -12755,7 +12170,6 @@ DudeAutoInput_A: ; 1de29f db NO_INPUT, $50 db A_BUTTON, $00 db NO_INPUT, $ff ; end -; 1de2a5 DudeAutoInput_RightA: ; 1de2a5 db NO_INPUT, $08 @@ -12763,7 +12177,6 @@ DudeAutoInput_RightA: ; 1de2a5 db NO_INPUT, $08 db A_BUTTON, $00 db NO_INPUT, $ff ; end -; 1de2af DudeAutoInput_DownA: ; 1de2af db NO_INPUT, $fe @@ -12777,7 +12190,6 @@ DudeAutoInput_DownA: ; 1de2af db NO_INPUT, $fe db A_BUTTON, $00 db NO_INPUT, $ff ; end -; 1de2c5 Function1de2c5: ; 1de2c5 ld hl, StringBuffer1 @@ -12800,11 +12212,9 @@ Function1de2c5: ; 1de2c5 hlcoord 9, 0 call PlaceString ret -; 1de2e4 PokegearGFX: ; 1de2e4 INCBIN "gfx/misc/pokegear.2bpp.lz" -; 1de5c8 IsMailEuropean: ; 1de5c8 ; return 1 if French @@ -12833,7 +12243,6 @@ IsMailEuropean: ; 1de5c8 ret z ld c, $0 ret -; 1de5e6 ; The regular font. StandardEnglishFont: ; 1de5e6 @@ -12875,7 +12284,6 @@ HandleFrenchGermanMail: ; 1df1e6 dec b jr nz, .loop ret -; 1df203 LireLeCourrierAnglais: DeutenEnglischenPost: ; 1df203 @@ -12908,7 +12316,6 @@ DeutenEnglischenPost: ; 1df203 dec b jr nz, .loop ret -; 1df220 HandleSpanishItalianMail: ; 1df220 LeerCorreosIngleses: @@ -12938,7 +12345,6 @@ LeggiPostaInglese: dec b jr nz, .loop ret -; 1df238 SECTION "Tileset Data 8", ROMX, BANK[TILESETS_8] @@ -12969,7 +12375,6 @@ Function1f4003: ; 1f4003 call CopyBytes call CloseSRAM ret -; 1f4018 Unknown_1f4018: INCBIN "unknown/1f4018.bin" @@ -12983,7 +12388,6 @@ Function1f4dbe: ; 1f4dbe call CopyBytes call CloseSRAM ret -; 1f4dd3 Unknown_1f4dd3: INCBIN "unknown/1f4dd3.bin" @@ -12997,7 +12401,6 @@ Function1f5d9f: ; 1f5d9f call CopyBytes call CloseSRAM ret -; 1f5db4 Unknown_1f5db4: INCBIN "unknown/1f5db4.bin"