ref: a5705b37d4d7474ac0864c02143889e385e4945f
parent: f81fb0ba13af29f3b91e2712ef027eb49c154691
author: IIMarckus <iimarckus@gmail.com>
date: Thu Jan 7 10:55:38 EST 2016
Remove lines that are just address comments.
--- a/main.asm
+++ b/main.asm
@@ -23,11 +23,9 @@
call PlaceString
ld c, 50
jp DelayFrames
-; 4025
.Waiting ; 4025
db "Waiting...!@"
-; 4031
LoadPushOAM:: ; 4031
ld c, hPushOAM - $ff00
@@ -40,7 +38,6 @@
dec b
jr nz, .loop
ret
-; 403f
PushOAM: ; 403f
ld a, Sprites / $100
@@ -51,7 +48,6 @@
jr nz, .loop
ret
PushOAMEnd
-; 4049
INCLUDE "engine/map_objects.asm"
@@ -77,7 +73,6 @@
ld hl, VramState
set 6, [hl]
ret
-; 6473
.Function6473
xor a
@@ -108,7 +103,6 @@
ld [hSCY], a
call Function5958
ret
-; 64b9
.Function64b9: ; 64b9
ld [hBGMapAddress + 1], a
@@ -115,7 +109,6 @@
xor a
ld [hBGMapAddress], a
ret
-; 64bf
Function64bf:: ; 64bf
ld a, [hOAMUpdate]
@@ -136,7 +129,6 @@
call Function2e31
call LoadStandardFont
ret
-; 64db
Function64db: ; 64db
ld a, [rSVBK]
@@ -163,7 +155,6 @@
pop af
ld [rSVBK], a
ret
-; 6508
INCLUDE "engine/learn.asm"
@@ -228,7 +219,6 @@
pop de
pop bc
ret
-; 66cf
.textcommands ; 66cf
; table defining which characters are actually text commands
@@ -242,13 +232,11 @@
db $49, "<TM>" + 1
db "<ROCKET>", "┘" + 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 @@
ld [ScriptVar], a
call GetPokemonName
jp CopyPokemonName_Buffer1_Buffer3
-; 71ac
CheckFirstMonIsEgg: ; 71ac
ld a, [PartySpecies]
@@ -283,7 +270,6 @@
ld [ScriptVar], a
call GetPokemonName
jp CopyPokemonName_Buffer1_Buffer3
-; 71c2
ChangeHappiness: ; 71c2
; Perform happiness action c on CurPartyMon
@@ -356,7 +342,6 @@
ld a, [de]
ld [BattleMonHappiness], a
ret
-; 7221
.Actions
db +5, +3, +2 ; Gained a level
@@ -378,7 +363,6 @@
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 @@
dec c
jr nz, .loop
ret
-; 7282
DaycareStep:: ; 7282
@@ -494,7 +477,6 @@
res 5, [hl]
set 6, [hl]
ret
-; 7305
SpecialGiveShuckle: ; 7305
@@ -567,7 +549,6 @@
db "MANIA@"
SpecialShuckleNick:
db "SHUCKIE@"
-; 737e
SpecialReturnShuckle: ; 737e
callba SelectMonFromParty
@@ -583,7 +564,6 @@
call AddNTimes
; OT ID
-; 00518
ld a, [hli]
cp 00518 / $100
jr nz, .DontReturn
@@ -639,7 +619,6 @@
ld a, $4
ld [ScriptVar], a
ret
-; 73f7
Special_BillsGrandfather: ; 73f7
callba SelectMonFromParty
@@ -654,7 +633,6 @@
xor a
ld [ScriptVar], a
ret
-; 7413
Special_YoungerHaircutBrother: ; 7413
ld hl, Data_YoungerHaircutBrother
@@ -712,7 +690,6 @@
ld a, 1
ld [ScriptVar], a
ret
-; 7459
Data_YoungerHaircutBrother: ; 7459
db $4c, 2, HAPPINESS_YOUNGCUT1 ; 30% chance
@@ -726,7 +703,6 @@
Data_DaisyMassage: ; 746b
db $ff, 2, HAPPINESS_MASSAGE ; 99.6% chance
-; 746e
CopyPokemonName_Buffer1_Buffer3: ; 746e
ld hl, StringBuffer1
@@ -733,12 +709,10 @@
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 @@
call WaitBGMap2
call SetPalettes
ret
-; 8029
GetSpawnCoord: ; 8029
ld a, -1
@@ -795,7 +768,6 @@
ld a, PLAYER
ld [wCenteredObject], a
ret
-; 8071
PlayerObjectTemplate: ; 8071
; A dummy map object used to initialize the player object.
@@ -802,7 +774,6 @@
; 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 @@
add hl, bc
ld [hl], e
ret
-; 808f
PlayerSpawn_ConvertCoords: ; 808f
push bc
@@ -829,7 +799,6 @@
pop bc
call CopyDECoordsToMapObject
ret
-; 80a1
WritePersonXY:: ; 80a1
ld a, b
@@ -847,7 +816,6 @@
call CopyDECoordsToMapObject
and a
ret
-; 80b8
RefreshPlayerCoords: ; 80b8
ld a, [XCoord]
@@ -876,7 +844,6 @@
cp $0
ret nz ; wtf
ret
-; 80e7
CopyObjectStruct:: ; 80e7
call CheckObjectMask
@@ -911,13 +878,11 @@
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 @@
ld a, [hl]
ld [wTempObjectCopyRadius], a
ret
-; 8177
InitializeVisibleSprites: ; 8177
ld bc, MapObjects + OBJECT_LENGTH
@@ -1034,11 +998,9 @@
cp NUM_OBJECTS
jr nz, .loop
ret
-; 81c9
.ret: ; 81c9
ret
-; 81ca
CheckObjectEnteringVisibleRange:: ; 81ca
nop
@@ -1048,7 +1010,6 @@
ld hl, .dw
rst JumpTable
ret
-; 81d6
.dw: ; 81d6
dw .Down
@@ -1055,7 +1016,6 @@
dw .Up
dw .Left
dw .Right
-; 81de
.Up: ; 81de
ld a, [YCoord]
@@ -1112,7 +1072,6 @@
cp NUM_OBJECTS
jr nz, .loop_v
ret
-; 8232
.Left: ; 8232
ld a, [XCoord]
@@ -1169,7 +1128,6 @@
cp NUM_OBJECTS
jr nz, .loop_h
ret
-; 8286
CopyTempObjectToObjectStruct: ; 8286
ld a, [wTempObjectCopyMapObjectIndex]
@@ -1220,7 +1178,6 @@
and a
ret
-; 82d5
.InitYCoord: ; 82d5
ld hl, OBJECT_INIT_Y
@@ -1241,7 +1198,6 @@
add hl, de
ld [hl], a
ret
-; 82f1
.InitXCoord: ; 82f1
ld hl, OBJECT_INIT_X
@@ -1260,7 +1216,6 @@
add hl, de
ld [hl], a
ret
-; 830d
.InitRadius: ; 830d
ld h, a
@@ -1275,7 +1230,6 @@
add hl, de
ld [hl], a
ret
-; 831e
TrainerWalkToPlayer: ; 831e
ld a, [hLastTalked]
@@ -1296,7 +1250,6 @@
ld a, movement_step_end
call AppendToMovementBuffer
ret
-; 8341
.GetPathToPlayer: ; 8341
push de
@@ -1341,7 +1294,6 @@
pop af
call ComputePathToWalkToPlayer
ret
-; 8379
Special_SurfStartStep: ; 8379
call InitMovementBuffer
@@ -1350,7 +1302,6 @@
ld a, movement_step_end
call AppendToMovementBuffer
ret
-; 8388
.GetMovementData: ; 8388
ld a, [PlayerDirection]
@@ -1363,7 +1314,6 @@
add hl, de
ld a, [hl]
ret
-; 839a
.movement_data
slow_step_down
@@ -1370,7 +1320,6 @@
slow_step_up
slow_step_left
slow_step_right
-; 839e
FollowNotExact:: ; 839e
push bc
@@ -1458,7 +1407,6 @@
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 @@
.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 @@
.same_x_and_y
scf
ret
-; 848a
QueueFollowerFirstStep: ; 848a
call .QueueFirstStep
@@ -1580,7 +1526,6 @@
ld a, -1
ld [wFollowerMovementQueueLength], a
ret
-; 849d
.QueueFirstStep
ld a, [wObjectFollow_Leader]
@@ -1627,7 +1572,6 @@
.same_xy
scf
ret
-; 84d9
_Sine:: ; 84d9
; A simple sine function.
@@ -1650,7 +1594,6 @@
xor -1
inc a
ret
-; 84ef
.ApplySineWave: ; 84ef
ld e, a
@@ -1675,13 +1618,11 @@
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 @@
xor a
ld c, a
ret
-; c012
TimeOfDayTable: ; c012
db MORN, 1 << MORN
@@ -1709,7 +1649,6 @@
db NITE, 1 << NITE
db NITE, 1 << NITE
db -1
-; c01b
INCLUDE "engine/specials.asm"
@@ -1892,7 +1831,6 @@
pop de
pop bc
ret
-; c5ba
.PrintYen: ; c5ba
push af
@@ -1908,7 +1846,6 @@
.stop
pop af
ret
-; c5cb
.PrintDigit: ; c5cb (3:45cb)
dec e
@@ -2015,7 +1952,6 @@
.inc
inc hl
ret
-; c658
HealParty: ; c658
xor a
@@ -2040,7 +1976,6 @@
.done
ret
-; c677
HealPartyMon: ; c677
ld a, MON_SPECIES
@@ -2071,7 +2006,6 @@
callba RestoreAllPP
ret
-; c699
ComputeHPBarPixels: ; c699
; bc * (6 * 8) / de
@@ -2123,7 +2057,6 @@
.zero
ld e, 0
ret
-; c6e0
AnimateHPBar: ; c6e0
call WaitBGMap
@@ -2130,7 +2063,6 @@
call _AnimateHPBar
call WaitBGMap
ret
-; c6ea
ClearBuffer1: ; c6ea
xor a
@@ -2138,7 +2070,6 @@
ld bc, 7
call ByteFill
ret
-; c6f5
FieldMoveJumptable: ; c6f5
ld a, [Buffer1]
@@ -2153,7 +2084,6 @@
and $7f
scf
ret
-; c706
GetPartyNick: ; c706
; write CurPartyMon nickname to StringBuffer1-3
@@ -2168,7 +2098,6 @@
ld hl, StringBuffer3
call CopyName2
ret
-; c721
CheckEngineFlag: ; c721
; Check engine flag de
@@ -2183,7 +2112,6 @@
.isset
xor a
ret
-; c731
CheckBadge: ; c731
; Check engine flag a (ENGINE_ZEPHYRBADGE thru ENGINE_EARTHBADGE)
@@ -2194,7 +2122,6 @@
call MenuTextBoxBackup ; push text to queue
scf
ret
-; c73d
.BadgeRequiredText: ; c73d
; Sorry! A new BADGE
@@ -2201,7 +2128,6 @@
; is required.
text_jump _BadgeRequiredText
db "@"
-; c742
CheckPartyMove: ; c742
; Check if a monster in your party has move d.
@@ -2246,19 +2172,16 @@
.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 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; c796
.Jumptable: ; c796 (3:4796)
@@ -2310,13 +2232,11 @@
; 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 @@
.fail
scf
ret
-; c7fe
Script_CutFromMenu: ; c7fe
reloadmappart
@@ -2365,7 +2284,6 @@
callasm CutDownTreeOrGrass
closetext
end
-; 0xc810
CutDownTreeOrGrass: ; c810
ld hl, Buffer3 ; OverworldMapTile
@@ -2388,7 +2306,6 @@
call DelayFrame
call LoadStandardFont
ret
-; c840
CheckOverworldTileArrays: ; c840
; Input: c contains the tile you're facing
@@ -2425,7 +2342,6 @@
.nope
xor a
ret
-; c862
CutTreeBlockPointers: ; c862
; Which tileset are we in?
@@ -2435,7 +2351,6 @@
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 @@
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,28 +2373,23 @@
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
@@ -2488,7 +2396,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; c8b5
.CheckUseFlash: ; c8b5
; Flash
@@ -2515,12 +2422,10 @@
.nozephyrbadge
ld a, $80
ret
-; c8e0
UseFlash: ; c8e0
ld hl, Script_UseFlash
jp QueueScript
-; c8e6
Script_UseFlash: ; 0xc8e6
reloadmappart
@@ -2529,7 +2434,6 @@
callasm BlindingFlash
closetext
end
-; 0xc8f3
UnknownText_0xc8f3: ; 0xc8f3
text_jump UnknownText_0x1c0609
@@ -2540,11 +2444,9 @@
call WaitSFX
ld hl, .BlankText
ret
-; c908
.BlankText: ; 0xc908
db "@"
-; 0xc909
SurfFunction: ; c909
call ClearBuffer1
@@ -2555,7 +2457,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; c91a
.Jumptable: ; c91a (3:491a)
dw .TrySurf
@@ -2615,7 +2516,6 @@
call MenuTextBoxBackup
ld a, $80
ret
-; c983 (3:4983)
SurfFromMenuScript: ; c983
special UpdateTimePals
@@ -2636,27 +2536,22 @@
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 @@
ret z
ld a, PLAYER_SURF
ret
-; c9cb
CheckDirection: ; c9cb
; Return carry if a tile permission prevents you
@@ -2706,7 +2600,6 @@
db FACE_UP
db FACE_LEFT
db FACE_RIGHT
-; c9e7
TrySurfOW:: ; c9e7
; Checking a tile in the overworld.
@@ -2755,7 +2648,6 @@
.quit
xor a
ret
-; ca2c
AskSurfScript: ; ca2c
opentext
@@ -2764,12 +2656,10 @@
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 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; ca4c
.Jumptable
dw .TryFly
dw .DoFly
dw .FailFly
-; ca52
.TryFly: ; ca52
; Fly
@@ -2828,7 +2716,6 @@
call WaitBGMap
ld a, $80
ret
-; ca94
.DoFly: ; ca94
ld hl, .FlyScript
@@ -2835,13 +2722,11 @@
call QueueScript
ld a, $81
ret
-; ca9d
.FailFly: ; ca9d
call FieldMoveFailed
ld a, $82
ret
-; caa3
.FlyScript: ; 0xcaa3
reloadmappart
@@ -2857,7 +2742,6 @@
special WaitSFX
callasm .ReturnFromFly
end
-; 0xcacb
.ReturnFromFly: ; cacb
callba Function561d
@@ -2865,7 +2749,6 @@
call ReplaceKrisSprite
callba LoadOverworldFont
ret
-; cade
WaterfallFunction: ; cade
call .TryWaterfall
@@ -2872,7 +2755,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cae7
.TryWaterfall: ; cae7
; Waterfall
@@ -2891,7 +2773,6 @@
call FieldMoveFailed
ld a, $80
ret
-; cb07
CheckMapCanWaterfall: ; cb07
ld a, [PlayerDirection]
@@ -2907,7 +2788,6 @@
.failed
scf
ret
-; cb1c
Script_WaterfallFromMenu: ; 0xcb1c
reloadmappart
@@ -2924,7 +2804,6 @@
callasm .CheckContinueWaterfall
iffalse .loop
end
-; 0xcb38
.CheckContinueWaterfall: ; cb38
xor a
@@ -2936,18 +2815,15 @@
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 @@
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 @@
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 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cbb2
.DigTable: ; cbb2
dw .CheckCanDig
dw .DoDig
dw .FailDig
-; cbb8
.CheckCanDig: ; cbb8
call GetMapPermission
@@ -3046,7 +2915,6 @@
jr z, .fail
ld a, $1
ret
-; cbd8
.DoDig: ; cbd8
ld hl, wDigWarp
@@ -3068,7 +2936,6 @@
call QueueScript
ld a, $81
ret
-; cc06
.FailDig: ; cc06
ld a, [Buffer2]
@@ -3082,25 +2949,21 @@
.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
@@ -3107,7 +2970,6 @@
special UpdateTimePals
writetext .Text_UsedEscapeRope
jump .UsedDigOrEscapeRopeScript
-; 0xcc35
.UsedDigScript: ; 0xcc35
reloadmappart
@@ -3126,19 +2988,16 @@
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 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cc72
.Jumptable: ; cc72
dw .TryTeleport
dw .DoTeleport
dw .FailTeleport
-; cc78
.TryTeleport: ; cc78
call GetMapPermission
@@ -3178,7 +3035,6 @@
.nope
ld a, $2
ret
-; cc9c
.DoTeleport: ; cc9c
call GetPartyNick
@@ -3186,7 +3042,6 @@
call QueueScript
ld a, $81
ret
-; cca8
.FailTeleport: ; cca8
ld hl, .Text_CantUseHere
@@ -3193,19 +3048,16 @@
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,17 +3075,14 @@
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
@@ -3240,7 +3089,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; ccee
.TryStrength: ; ccee
; Strength
@@ -3248,7 +3096,6 @@
call CheckBadge
jr c, .Failed
jr .UseStrength
-; ccf8
.AlreadyUsing: ; unreferenced
ld hl, .JumpText
@@ -3255,17 +3102,14 @@
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
@@ -3272,7 +3116,6 @@
call QueueScript
ld a, $81
ret
-; cd12
SetStrengthFlag: ; cd12
ld hl, BikeFlags
@@ -3286,7 +3129,6 @@
ld [Buffer6], a
call GetPartyNick
ret
-; cd29
Script_StrengthFromMenu: ; 0xcd29
reloadmappart
@@ -3301,17 +3143,14 @@
writetext .StrengthAllowedItToMoveBoulders
closetext
end
-; 0xcd41
.UsedStrength: ; 0xcd41
text_jump UnknownText_0x1c0774
db "@"
-; 0xcd46
.StrengthAllowedItToMoveBoulders: ; 0xcd46
text_jump UnknownText_0x1c0788
db "@"
-; 0xcd4b
AskStrengthScript:
callasm TryStrengthOW
@@ -3318,15 +3157,12 @@
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 @@
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 @@
.done
ld [ScriptVar], a
ret
-; cd9d
WhirlpoolFunction: ; cd9d
call ClearBuffer1
@@ -3393,13 +3224,11 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cdae
Jumptable_cdae: ; cdae
dw .TryWhirlpool
dw .DoWhirlpool
dw .FailWhirlpool
-; cdb4
.TryWhirlpool: ; cdb4
ld de, ENGINE_GLACIERBADGE
@@ -3417,7 +3246,6 @@
.noglacierbadge
ld a, $80
ret
-; cdca
.DoWhirlpool: ; cdca
ld hl, Script_WhirlpoolFromMenu
@@ -3424,19 +3252,16 @@
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 @@
.failed
scf
ret
-; ce0b
Script_WhirlpoolFromMenu: ; 0xce0b
reloadmappart
@@ -3479,7 +3303,6 @@
callasm DisappearWhirlpool
closetext
end
-; 0xce1d
DisappearWhirlpool: ; ce1d
ld hl, Buffer3
@@ -3497,7 +3320,6 @@
call BufferScreen
call GetMovementPermissions
ret
-; ce3e
TryWhirlpoolOW:: ; ce3e
ld d, WHIRLPOOL
@@ -3520,16 +3342,13 @@
call CallScript
scf
ret
-; ce66
Script_MightyWhirlpool: ; 0xce66
jumptext .MightyWhirlpoolText
-; 0xce69
.MightyWhirlpoolText: ; 0xce69
text_jump UnknownText_0x1c082b
db "@"
-; 0xce6e
Script_AskWhirlpoolOW: ; 0xce6e
opentext
@@ -3538,12 +3357,10 @@
iftrue Script_UsedWhirlpool
closetext
end
-; 0xce78
UnknownText_0xce78: ; 0xce78
text_jump UnknownText_0x1c0864
db "@"
-; 0xce7d
HeadbuttFunction: ; ce7d
call TryHeadbuttFromMenu
@@ -3550,7 +3367,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; ce86
TryHeadbuttFromMenu: ; ce86
call GetFacingTileCoord
@@ -3566,19 +3382,16 @@
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 @@
waitbutton
closetext
end
-; 0xcec9
TryHeadbuttOW:: ; cec9
ld d, HEADBUTT
@@ -3620,7 +3432,6 @@
.no
xor a
ret
-; cedc
AskHeadbuttScript: ; 0xcedc
opentext
@@ -3629,13 +3440,11 @@
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
@@ -3642,7 +3451,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cef4
TryRockSmashFromMenu: ; cef4
call GetFacingObject
@@ -3660,7 +3468,6 @@
call FieldMoveFailed
ld a, $80
ret
-; cf0d
GetFacingObject: ; cf0d
callba CheckFacingObject
@@ -3683,7 +3490,6 @@
.fail
scf
ret
-; cf2e
RockSmashFromMenuScript: ; 0xcf2e
reloadmappart
@@ -3707,7 +3513,6 @@
reloadmapafterbattle
.done
end
-; 0xcf55
MovementData_0xcf55: ; 0xcf55
rock_smash 10
@@ -3716,7 +3521,6 @@
UnknownText_0xcf58: ; 0xcf58
text_jump UnknownText_0x1c08f0
db "@"
-; 0xcf5d
AskRockSmashScript: ; 0xcf5d
callasm HasRockSmash
@@ -3730,19 +3534,16 @@
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 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; cfa5
.FishTable: ; cfa5
dw .TryFish
@@ -3779,7 +3579,6 @@
dw .FishGotSomething
dw .SurfingFish
dw .FailFish
-; cfaf
.TryFish: ; cfaf
ld a, [PlayerState]
@@ -3822,12 +3621,10 @@
.nonibble
ld a, $1
ret
-; cff1
.SurfingFish: ; cff1
ld a, $80
ret
-; cff4
.FishGotSomething: ; cff4
ld a, $1
@@ -3836,7 +3633,6 @@
call QueueScript
ld a, $81
ret
-; d002
.FishNoBite: ; d002
ld a, $2
@@ -3845,7 +3641,6 @@
call QueueScript
ld a, $81
ret
-; d010
.FailFish: ; d010
ld a, $0
@@ -3854,13 +3649,11 @@
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 @@
callasm PutTheRodAway
closetext
end
-; 0xd035
Script_GotABite: ; 0xd035
scall Script_FishCastRod
@@ -3879,7 +3671,6 @@
iffalse .NotFacingUp
applymovement PLAYER, .Movement_FacingUp
jump .FightTheHookedPokemon
-; 0xd046
.NotFacingUp: ; 0xd046
applymovement PLAYER, .Movement_NotFacingUp
@@ -3894,7 +3685,6 @@
startbattle
reloadmapafterbattle
end
-; 0xd05c
.Movement_NotFacingUp: ; d05c
fish_got_bite
@@ -3903,7 +3693,6 @@
fish_got_bite
show_emote
step_end
-; d062
.Movement_FacingUp: ; d062
fish_got_bite
@@ -3913,13 +3702,11 @@
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 @@
.up
ld [ScriptVar], a
ret
-; d07c
Script_FishCastRod: ; 0xd07c
reloadmappart
@@ -3944,12 +3730,10 @@
applymovement PLAYER, MovementData_0xd093
pause 40
end
-; 0xd093
MovementData_0xd093: ; d093
fish_cast_rod
step_end
-; d095
PutTheRodAway: ; d095
xor a
@@ -3959,25 +3743,21 @@
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
@@ -3984,7 +3764,6 @@
and $7f
ld [wFieldMoveSucceeded], a
ret
-; d0bc
.TryBike: ; d0bc
call .CheckEnvironment
@@ -4036,7 +3815,6 @@
call QueueScript
ld a, $1
ret
-; d119
.CheckIfRegistered: ; d119
ld a, [wUsingItemWithSelect]
@@ -4045,7 +3823,6 @@
ld h, d
ld l, e
ret
-; d121
.CheckEnvironment: ; d121
call GetMapPermission
@@ -4067,7 +3844,6 @@
.nope
scf
ret
-; d13e
Script_GetOnBike: ; 0xd13e
reloadmappart
@@ -4078,7 +3854,6 @@
closetext
special ReplaceKrisSprite
end
-; 0xd14e
Script_GetOnBike_Register: ; 0xd14e
writecode VAR_MOVEMENT, PLAYER_BIKE
@@ -4085,7 +3860,6 @@
closetext
special ReplaceKrisSprite
end
-; 0xd156
Functiond156: ; unreferenced
nop
@@ -4103,12 +3877,10 @@
special ReplaceKrisSprite
special PlayMapMusic
end
-; 0xd16b
Script_GetOffBike_Register: ; 0xd16b
writecode VAR_MOVEMENT, PLAYER_NORMAL
jump FinishGettingOffBike
-; 0xd171
UnknownScript_0xd171: ; 0xd171
writetext UnknownText_0xd177
@@ -4115,25 +3887,21 @@
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 @@
call CallScript
scf
ret
-; d1a9
AskCutScript: ; 0xd1a9
opentext
@@ -4168,7 +3935,6 @@
.script_d1b8
closetext
end
-; 0xd1ba
.CheckMap: ; d1ba
xor a
@@ -4178,21 +3944,17 @@
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,7 +3967,6 @@
ld hl, .Pockets
rst JumpTable
ret
-; d1e9
.Pockets: ; d1e9
dw .Item
@@ -4212,24 +3973,20 @@
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 @@
ld c, a
call GetTMHMNumber
jp ReceiveTMHM
-; d20d
_TossItem:: ; d20d
call DoesHLEqualNumItems
@@ -4257,12 +4013,10 @@
dw .KeyItem
dw .Ball
dw .TMHM
-; d228
.Ball ; d228
ld hl, NumBalls
jp RemoveItemFromPocket
-; d22e
.TMHM ; d22e
ld h, d
@@ -4271,22 +4025,18 @@
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 @@
dw .KeyItem
dw .Ball
dw .TMHM
-; d25f
.Ball ; d25f
ld hl, NumBalls
jp CheckTheItem
-; d265
.TMHM ; d265
ld h, d
@@ -4319,22 +4067,18 @@
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 @@
ld a, h
cp NumItems / $100
ret
-; d283
GetPocketCapacity: ; d283
ld c, MAX_ITEMS
@@ -4366,7 +4109,6 @@
.not_pc
ld c, MAX_BALLS
ret
-; d29c
PutItemInPocket: ; d29c
ld d, h
@@ -4443,7 +4185,6 @@
.done
scf
ret
-; d2ff
RemoveItemFromPocket: ; d2ff
ld d, h
@@ -4509,7 +4250,6 @@
.nope
and a
ret
-; d349
CheckTheItem: ; d349
ld a, [CurItem]
@@ -4527,7 +4267,6 @@
.done
and a
ret
-; d35a
ReceiveKeyItem: ; d35a
ld hl, NumKeyItems
@@ -4548,7 +4287,6 @@
.nope
and a
ret
-; d374
TossKeyItem: ; d374
ld a, [wd107]
@@ -4579,7 +4317,6 @@
jr nz, .loop
scf
ret
-; d396
.Toss: ; d396
ld hl, NumKeyItems
@@ -4601,7 +4338,6 @@
ld [NumKeyItems], a
scf
ret
-; d3b1
CheckKeyItems: ; d3b1
ld a, [CurItem]
@@ -4619,7 +4355,6 @@
.done
scf
ret
-; d3c4
ReceiveTMHM: ; d3c4
dec c
@@ -4637,7 +4372,6 @@
.toomany
and a
ret
-; d3d8
TossTMHM: ; d3d8
dec c
@@ -4665,7 +4399,6 @@
.nope
and a
ret
-; d3fb
CheckTMHM: ; d3fb
dec c
@@ -4677,7 +4410,6 @@
ret z
scf
ret
-; d407
GetTMHMNumber:: ; d407
; Return the number of a TM/HM by item id c.
@@ -4698,7 +4430,6 @@
inc a
ld c, a
ret
-; d417
GetNumberedTMHM: ; d417
; Return the item id of a TM/HM by number c.
@@ -4720,7 +4451,6 @@
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 @@
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 @@
jr nz, ItemAttr_ReturnCarry
and a
ret
-; d43d
CheckItemPocket:: ; d43d
; Return the pocket for CurItem in wItemAttributeParamBuffer.
@@ -4749,7 +4477,6 @@
and $f
ld [wItemAttributeParamBuffer], a
ret
-; d448
CheckItemContext: ; d448
; Return the context for CurItem in wItemAttributeParamBuffer.
@@ -4758,7 +4485,6 @@
and $f
ld [wItemAttributeParamBuffer], a
ret
-; d453
CheckItemMenu: ; d453
; Return the menu for CurItem in wItemAttributeParamBuffer.
@@ -4768,7 +4494,6 @@
and $f
ld [wItemAttributeParamBuffer], a
ret
-; d460
GetItemAttr: ; d460
; Get attribute a of CurItem.
@@ -4795,7 +4520,6 @@
pop bc
pop hl
ret
-; d47f
ItemAttr_ReturnCarry: ; d47f
ld a, 1
@@ -4802,7 +4526,6 @@
ld [wItemAttributeParamBuffer], a
scf
ret
-; d486
GetItemPrice: ; d486
; Return the price of CurItem in de.
@@ -4817,7 +4540,6 @@
pop bc
pop hl
ret
-; d497
INCLUDE "engine/player_step.asm"
INCLUDE "engine/anim_hp_bar.asm"
@@ -4838,13 +4560,11 @@
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 @@
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 @@
.cancel
call CloseWindow
ret
-; e46f (3:646f)
.MenuDataHeader: ; 0xe46f
db $40 ; flags
@@ -4904,7 +4621,6 @@
db 17, 19 ; end coords
dw .MenuData2
db 1 ; default option
-; 0xe477
.MenuData2: ; 0xe477
db $80 ; flags
@@ -4912,7 +4628,6 @@
dw .items
dw PlaceMenuStrings
dw .strings
-; 0xe47f
.strings: ; e47f
db "WITHDRAW <PK><MN>@"
@@ -4927,7 +4642,6 @@
dw BillsPC_ChangeBoxMenu
dw BillsPC_MovePKMNMenu
dw BillsPC_SeeYa
-; e4c4
.items: ; e4c4
db 5
@@ -4937,12 +4651,10 @@
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 @@
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 @@
call CloseWindow
and a
ret
-; e512 (3:6512)
Functione512: ; unused
ld a, [PartyCount]
@@ -5001,19 +4710,16 @@
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 @@
.notfainted
and a
ret
-; e559
BillsPC_WithdrawMenu: ; e559 (3:6559)
call LoadStandardMenuDataHeader
@@ -5053,7 +4758,6 @@
call CloseWindow
and a
ret
-; e56d (3:656d)
Functione56d: ; unused
ld a, [PartyCount]
@@ -5067,13 +4771,11 @@
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 @@
call WaitBGMap2
call SetPalettes ; load regular palettes?
ret
-; 0xe5bb
CopyBoxmonToTempMon: ; e5bb
ld a, [CurPartyMon]
@@ -5113,7 +4814,6 @@
call CopyBytes
call CloseSRAM
ret
-; e5d9
Functione5d9: ; unreferenced
ld a, [wCurBox]
@@ -5217,7 +4917,6 @@
.empty_box
call CloseSRAM
ret
-; e66e
.BoxAddrs: ; e66e
dba sBox1
@@ -5234,7 +4933,6 @@
dba sBox12
dba sBox13
dba sBox14
-; e698
GetBreedMon1LevelGrowth: ; e698
ld hl, wBreedMon1Stats
@@ -5249,7 +4947,6 @@
sub b
ld d, a
ret
-; e6b3
GetBreedMon2LevelGrowth: ; e6b3
ld hl, wBreedMon2Stats
@@ -5264,7 +4961,6 @@
sub b
ld d, a
ret
-; e6ce
BugContest_SetCaughtContestMon: ; e6ce
ld a, [wContestMon]
@@ -5285,7 +4981,6 @@
ld hl, .caughttext
call PrintText
ret
-; e6fd
.generatestats: ; e6fd
ld a, [TempEnemyMonSpecies]
@@ -5300,13 +4995,11 @@
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 @@
ld a, e
pop de
ret
-; f9ba (3:79ba)
.WobbleProbabilities: ; f9ba
; catch rate, chance of wobbling / 255
@@ -5399,7 +5091,6 @@
db 240, 251
db 254, 253
db 255, 255
-; f9ea
KnowsMove: ; f9ea
ld a, MON_MOVES
@@ -5421,13 +5112,11 @@
call PrintText
scf
ret
-; fa06
.Text_knows: ; 0xfa06
; knows @ .
text_jump UnknownText_0x1c5ea8
db "@"
-; 0xfa0b
SECTION "bank4", ROMX, BANK[$4]
@@ -5444,7 +5133,6 @@
special ContestReturnMons
.finish
end
-; 0x122ce
INCLUDE "event/itemball.asm"
INCLUDE "engine/healmachineanim.asm"
@@ -5462,7 +5150,6 @@
ld [wParkBallsRemaining], a
callba StartBugContestTimer
ret
-; 135eb
BugCatchingContestBattleScript:: ; 0x135eb
writecode VAR_BATTLETYPE, BATTLETYPE_CONTEST
@@ -5472,7 +5159,6 @@
copybytetovar wParkBallsRemaining
iffalse BugCatchingContestOutOfBallsScript
end
-; 0x135f8
BugCatchingContestOverScript:: ; 0x135f8
playsound SFX_ELEVATOR_END
@@ -5480,7 +5166,6 @@
writetext BugCatchingContestText_BeeepTimesUp
waitbutton
jump BugCatchingContestReturnToGateScript
-; 0x13603
BugCatchingContestOutOfBallsScript: ; 0x13603
playsound SFX_ELEVATOR_END
@@ -5491,19 +5176,16 @@
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 @@
waitbutton
closetext
end
-; 0x13620
.text: ; 0x13620
; REPEL's effect wore off.
text_jump UnknownText_0x1bd308
db "@"
-; 0x13625
HiddenItemScript:: ; 0x13625
opentext
@@ -5530,7 +5210,6 @@
specialsound
itemnotify
jump .finish
-; 0x1363e
.bag_full: ; 0x1363e
buttonsound
@@ -5540,19 +5219,16 @@
.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 @@
.notintable
xor a
ret
-; 13681
.table1
dbw $91, magazinebookshelf
@@ -5599,11 +5274,9 @@
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 @@
dec c
jr nz, .loop
ret
-; 139a8
INCLUDE "event/bug_contest_2.asm"
@@ -5671,7 +5343,6 @@
dw root*root
root set root+1
endr
-; 13d96
SECTION "bank5", ROMX, BANK[$5]
@@ -5720,7 +5391,6 @@
dw StringBuffer1
dw EnemyMonNick
dw BattleMonNick
-; 2400e
INCLUDE "engine/menu.asm"
@@ -5737,7 +5407,6 @@
decoord 1, 14
callba PrintItemDescription
ret
-; 0x244e3
Pokepic:: ; 244e3
ld hl, PokepicMenuDataHeader
@@ -5767,7 +5436,6 @@
predef FillBox
call WaitBGMap
ret
-; 24528
ClosePokepic:: ; 24528
ld hl, PokepicMenuDataHeader
@@ -5782,7 +5450,6 @@
call UpdateSprites
call LoadStandardFont
ret
-; 24547
PokepicMenuDataHeader: ; 0x24547
db $40 ; flags
@@ -5790,7 +5457,6 @@
db 13, 14 ; end coords
dw NULL
db 1 ; default option
-; 0x2454f
LoadObjectMasks: ; 2454f
ld hl, wObjectMasks
@@ -5874,7 +5540,6 @@
pop hl
call PlaceString
ret
-; 0x24ac3
PlaceMenuItemQuantity: ; 0x24ac3
push de
@@ -5895,7 +5560,6 @@
.done
ret
-; 0x24ae8
PlaceMoneyTopRight: ; 24ae8
ld hl, MenuDataHeader_0x24b15
@@ -5921,7 +5585,6 @@
lb bc, PRINTNUM_MONEY | 3, 6
call PrintNum
ret
-; 24b15
MenuDataHeader_0x24b15: ; 0x24b15
db $40 ; flags
@@ -5929,7 +5592,6 @@
db 02, 19 ; end coords
dw NULL
db 1 ; default option
-; 0x24b1d
MenuDataHeader_0x24b1d: ; 0x24b1d
db $40 ; flags
@@ -5937,7 +5599,6 @@
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 @@
hlcoord 13, 1
call PrintNum
ret
-; 24b4e
Special_DisplayMoneyAndCoinBalance: ; 24b4e
hlcoord 5, 0
@@ -5978,7 +5638,6 @@
lb bc, 2, 4
call PrintNum
ret
-; 24b83
MoneyString: ; 24b83
db "MONEY@"
@@ -5986,7 +5645,6 @@
db "COIN@"
ShowMoney_TerminatorString: ; 24b8e
db "@"
-; 24b8f
Function24b8f: ; 24b8f
; unreferenced, related to safari?
@@ -6015,13 +5673,11 @@
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 @@
ld c, $11
call TextBox
ret
-; 24be7
Function24be7: ; 24be7
ld hl, Options
@@ -6074,7 +5729,6 @@
pop af
ld [Options], a
ret
-; 24c43
String24c43: ; 24c43
db "ボール こ@"
@@ -6086,7 +5740,6 @@
db "None@"
String24c5e: ; 24c5e
db "LEVEL@"
-; 24c64
FindApricornsInBag: ; 24c64
; Checks the bag for Apricorns.
@@ -6121,7 +5774,6 @@
ret nz
scf
ret
-; 24c94
.addtobuffer: ; 24c94
push hl
@@ -6133,7 +5785,6 @@
ld [hl], a
pop hl
ret
-; 24ca0
.ApricornBalls: ; 24ca0
db RED_APRICORN, LEVEL_BALL
@@ -6144,7 +5795,6 @@
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 @@
call JoyWaitAorB
call ExitMenu
ret
-; 0x265ee
ProfOaksPCBoot ; 0x265ee
ld hl, OakPCText2
@@ -6173,7 +5822,6 @@
call JoyWaitAorB
call WaitSFX
ret
-; 0x26601
ProfOaksPCRating: ; 0x26601
call Rate
@@ -6185,7 +5833,6 @@
call JoyWaitAorB
call WaitSFX
ret
-; 0x26616
Rate: ; 0x26616
; calculate Seen/Owned
@@ -6210,7 +5857,6 @@
call PrintText
pop de
ret
-; 0x26647
.UpdateRatingBuffers: ; 0x26647
ld hl, StringBuffer3
@@ -6220,7 +5866,6 @@
ld de, wd003
call .UpdateRatingBuffer
ret
-; 0x2665a
.UpdateRatingBuffer: ; 0x2665a
push hl
@@ -6231,7 +5876,6 @@
lb bc, PRINTNUM_RIGHTALIGN | 1, 3
call PrintNum
ret
-; 0x2666b
FindOakRating: ; 0x2666b
; return sound effect in de
@@ -6256,7 +5900,6 @@
ld h, [hl]
ld l, a
ret
-; 0x2667f
OakRatings: ; 0x2667f
oakrating: MACRO
@@ -6388,7 +6031,6 @@
ld e, a
call GetBlockLocation
ret
-; 2709e
LevelUpHappinessMod: ; 2709e
ld a, [CurPartyMon]
@@ -6410,7 +6052,6 @@
.ok
callab ChangeHappiness
ret
-; 270c4
INCLUDE "trainers/dvs.asm"
@@ -6433,7 +6074,6 @@
call LoadStandardMenuDataHeader
call WaitBGMap
jp SetPalettes
-; 27192
ConsumeHeldItem: ; 27192
push hl
@@ -6490,7 +6130,6 @@
pop de
pop hl
ret
-; 271de
.ConsumableEffects: ; 271de
; Consumable items?
@@ -6516,7 +6155,6 @@
db HELD_ESCAPE
db HELD_CRITICAL_UP
db -1
-; 271f4
MoveEffectsPointers: ; 271f4
INCLUDE "battle/moves/move_effects_pointers.asm"
@@ -6528,7 +6166,6 @@
call BuySellToss_InterpretJoypad
ld b, a
ret
-; 27a2d
SECTION "bankA", ROMX, BANK[$A]
@@ -6544,7 +6181,6 @@
ld a, c
and a
ret
-; 29ff8
INCLUDE "engine/wildmons.asm"
@@ -6607,7 +6243,6 @@
add $2
ld [wBattleResult], a
ret
-; 2b995
.CountMonsRemaining: ; 2b995
ld c, 0
@@ -6624,7 +6259,6 @@
dec b
jr nz, .loop
ret
-; 2b9a6
.CalcPercentHPRemaining: ; 2b9a6
ld de, 0
@@ -6668,7 +6302,6 @@
dec c
jr nz, .loop2
ret
-; 2b9e1
.BothSides_CheckNumberMonsAtFullHealth: ; 2b9e1
ld hl, PartyMon1HP
@@ -6688,7 +6321,6 @@
ld a, $1
and a
ret
-; 2ba01
.CheckFaintedOrFullHealth: ; 2ba01
ld d, 3
@@ -6714,15 +6346,12 @@
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 @@
MoveDescriptions:: ; 2cb52
INCLUDE "battle/moves/move_descriptions.asm"
-; 2ed44
GivePokerusAndConvertBerries: ; 2ed44
call ConvertBerriesToBerryJuice
@@ -6855,7 +6483,6 @@
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 @@
pop hl
pop af
ret
-; 2ee18
ShowLinkBattleParticipants: ; 2ee18
; If we're not in a communications room,
@@ -6909,7 +6535,6 @@
call ClearTileMap
call ClearSprites
ret
-; 2ee2f
FindFirstAliveMon: ; 2ee2f
xor a
@@ -6944,7 +6569,6 @@
ld [rWY], a
ld [hMapAnims], a
ret
-; 2ee6c
PlayBattleMusic: ; 2ee6c
@@ -7046,7 +6670,6 @@
pop de
pop hl
ret
-; 2ef18
ClearBattleRAM: ; 2ef18
xor a
@@ -7097,7 +6720,6 @@
ld [hli], a
ld [hl], VBGMap0 / $100
ret
-; 2ef6e
FillBox: ; 2ef6e
; Fill wBoxAlignment-aligned box width b height c
@@ -7155,7 +6777,6 @@
dec b
jr nz, .x2
ret
-; 2ef9f
SECTION "Tileset Data 4", ROMX, BANK[TILESETS_4]
@@ -7192,7 +6813,6 @@
call CopyBytes
pop de
ret
-; 39550
GetOTName: ; 39550
ld hl, OTPlayerName
@@ -7218,7 +6838,6 @@
call CopyBytes
pop de
ret
-; 3957b
GetTrainerAttributes: ; 3957b
ld a, [TrainerClass]
@@ -7238,7 +6857,6 @@
ld a, [hl]
ld [wEnemyTrainerBaseReward], a
ret
-; 3959c
INCLUDE "trainers/attributes.asm"
@@ -7298,7 +6916,6 @@
ld c, 32
call DelayFrames
ret
-; 441fc
.FrameIDs: ; 441fc
; frame ID, duration
@@ -7308,7 +6925,6 @@
db 3, 7
db 4, 7
db -2
-; 44207
DoDexSearchSlowpokeFrame: ; 44207
ld a, [wDexSearchSlowpokeFrame]
@@ -7335,7 +6951,6 @@
ld [de], a
inc de
jr .loop
-; 44228
.SpriteData: ; 44228
dsprite 11, 0, 9, 0, $00, $00
@@ -7348,7 +6963,6 @@
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 @@
hlcoord 2, 11
call FarString
ret
-; 44331
String_44331: ; 44331
db "#@"
-; 44333
GetDexEntryPointer: ; 44333
; return dex entry pointer b:de
@@ -7515,7 +7127,6 @@
pop de
pop hl
ret
-; 44351
.PokedexEntryBanks: ; 44351
@@ -7528,7 +7139,6 @@
db BANK(PokedexEntries2)
db BANK(PokedexEntries3)
db BANK(PokedexEntries4)
-; 44355
GetDexEntryPagePointer: ; 44355
call GetDexEntryPointer ; b:de
@@ -7562,7 +7172,6 @@
ld e, l
pop hl
ret
-; 44378
PokedexDataPointerTable: ; 0x44378
INCLUDE "data/pokedex/entry_pointers.asm"
@@ -7584,7 +7193,6 @@
lb bc, BANK(PackFGFX), 15
call Request2bpp
ret
-; 48e93
PackFGFXPointers: ; 48e93
dw PackFGFX + (15 tiles) * 1
@@ -7591,11 +7199,9 @@
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 @@
.quit
call CloseSubmenu
ret
-; 492a5
.GetMoveTutorMove: ; 492a5
ld a, [ScriptVar]
@@ -7649,7 +7254,6 @@
.thunderbolt
ld a, THUNDERBOLT
ret
-; 492b9
CheckCanLearnMoveTutorMove: ; 492b9
ld hl, .MenuDataHeader
@@ -7697,13 +7301,11 @@
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 @@
.okay
ld [ScriptVar], a
ret
-; 4ae1f
.DoMenu: ; 4ae1f
lb bc, 14, 7
@@ -7768,7 +7369,6 @@
ld [wMenuCursorY], a
scf
ret
-; 4ae5e
Buena_ExitMenu: ; 4ae5e
ld a, [hOAMUpdate]
@@ -7784,7 +7384,6 @@
pop af
ld [hOAMUpdate], a
ret
-; 4ae78
SECTION "bank13", ROMX, BANK[$13]
@@ -7833,7 +7432,6 @@
dec b
jr nz, .loop
ret
-; 4c03f
ScrollBGMapPalettes:: ; 4c03f
ld hl, BGMapBuffer
@@ -7875,7 +7473,6 @@
dec c
jr nz, .loop
ret
-; 4c075
INCLUDE "tilesets/palette_maps.asm"
@@ -7921,7 +7518,6 @@
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 @@
ld a, $3
call .EmptyBank
ret
-; 4cf34
.EmptyBank: ; 4cf34
call GetSRAMBank
@@ -7943,7 +7538,6 @@
call ByteFill
call CloseSRAM
ret
-; 4cf45
SaveMenu_LoadEDTile: ; 4cf45 (13:4f45)
ld a, [hCGB]
@@ -8043,7 +7637,6 @@
.ok
ld c, $0
ret
-; 4d01e
INCLUDE "engine/map_triggers.asm"
@@ -8083,7 +7676,6 @@
dec b
jr nz, .loop
ret
-; 4d188
PhoneRing_LoadEDTile: ; 4d188
ld a, [hCGB]
@@ -8127,7 +7719,6 @@
pop af
ld [hBGMapMode], a
ret
-; 4d1cb
.LoadEDTile: ; 4d1cb
ld [hSPBuffer], sp
@@ -8166,7 +7757,6 @@
ld h, a
ld sp, hl
ret
-; 4d249
Shrink1Pic: ; 4d249
INCBIN "gfx/shrink1.2bpp.lz"
@@ -8173,7 +7763,6 @@
Shrink2Pic: ; 4d2d9
INCBIN "gfx/shrink2.2bpp.lz"
-; 4d319
LinkMonStatsScreen: ; 4d319
ld a, [wMenuCursorY]
@@ -8193,13 +7782,11 @@
callba Function28eff
call WaitBGMap2
ret
-; 4d354
Function4d354: ; 4d354
call WaitBGMap
call WaitBGMap2
ret
-; 4d35b
LinkTextbox2: ; 4d35b
ld h, d
@@ -8230,7 +7817,6 @@
dec b
jr nz, .row
ret
-; 4d37e
.PlaceBorder: ; 4d37e
push hl
@@ -8261,7 +7847,6 @@
call .PlaceRow
ld [hl], "└"
ret
-; 4d3ab
.PlaceRow: ; 4d3ab
ld d, c
@@ -8270,7 +7855,6 @@
dec d
jr nz, .row_loop
ret
-; 4d3b1
_ResetClock: ; 4d3b1
callba BlankScreen
@@ -8304,25 +7888,21 @@
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,7 +7910,6 @@
db 11, 19 ; end coords
dw .NoYes_MenuData2
db 1 ; default option
-; 0x4d415
.NoYes_MenuData2: ; 0x4d415
db $c0 ; flags
@@ -8337,7 +7916,6 @@
db 2 ; items
db "NO@"
db "YES@"
-; 0x4d41e
ClockResetPassword: ; 4d41e
call .CalculatePassword
@@ -8381,13 +7959,11 @@
.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 @@
add hl, de
ld [hl], $61
ret
-; 4d490
.dpadinput: ; 4d490
ld a, b
@@ -8469,7 +8044,6 @@
.wraparound_down
ld [hl], 9
ret
-; 4d4d5
.getcurrentdigit: ; 4d4d5
ld a, [StringBuffer2 + 5]
@@ -8478,7 +8052,6 @@
ld hl, StringBuffer2
add hl, de
ret
-; 4d4e0
.ConvertDecIDToBytes: ; 4d4e0
ld hl, 0
@@ -8503,7 +8076,6 @@
pop hl
add hl, bc
ret
-; 4d50f
.CalculatePassword: ; 4d50f
ld a, BANK(sPlayerData)
@@ -8520,7 +8092,6 @@
call .ComponentFromNumber
call CloseSRAM
ret
-; 4d533
.ComponentFromNumber: ; 4d533
ld a, [hli]
@@ -8532,7 +8103,6 @@
dec c
jr nz, .ComponentFromNumber
ret
-; 4d53e
.ComponentFromString: ; 4d53e
ld a, [hli]
@@ -8546,7 +8116,6 @@
dec c
jr nz, .ComponentFromString
ret
-; 4d54c
_DeleteSaveData: ; 4d54c
callba BlankScreen
@@ -8567,13 +8136,11 @@
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,7 +8148,6 @@
db 11, 19 ; end coords
dw .MenuData2
db 1 ; default option
-; 0x4d58d
.MenuData2: ; 0x4d58d
db $c0 ; flags
@@ -8588,7 +8154,6 @@
db 2 ; items
db "NO@"
db "YES@"
-; 0x4d596
Tilesets::
INCLUDE "tilesets/tileset_headers.asm"
@@ -8663,7 +8228,6 @@
pop hl
ld c, a
ret
-; 4d7fd
GetTrademonFrontpic: ; 4d7fd
ld a, [wOTTrademonSpecies]
@@ -8679,7 +8243,6 @@
pop de
predef FrontpicPredef
ret
-; 4d81e
AnimateTrademonFrontpic: ; 4d81e
ld a, [wOTTrademonSpecies]
@@ -8704,7 +8267,6 @@
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 @@
.HasPokerus
scf
ret
-; 4d87a
Special_CheckForLuckyNumberWinners: ; 4d87a
xor a
@@ -8852,7 +8413,6 @@
jp PrintText
-; 4d939
.CompareLuckyNumberToMonID: ; 4d939
push bc
@@ -8925,7 +8485,6 @@
pop bc
and a
ret
-; 4d99f
.BoxBankAddresses: ; 4d99f
dba sBox1
@@ -8942,19 +8501,16 @@
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 @@
ld a, "@"
ld [StringBuffer3 + 5], a
ret
-; 4d9e5
CheckPartyFullAfterContest: ; 4d9e5
ld a, [wContestMon]
@@ -9052,7 +8607,6 @@
and a
ld [ScriptVar], a
ret
-; 4daa3
.TryAddToBox: ; 4daa3
ld a, BANK(sBoxCount)
@@ -9114,25 +8668,21 @@
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 @@
or b
ld [hl], a
ret
-; 4db83
SetBoxMonCaughtData: ; 4db83
ld a, BANK(sBoxMon1CaughtLevel)
@@ -9180,7 +8729,6 @@
call SetBoxmonOrEggmonCaughtData
call CloseSRAM
ret
-; 4db92
SetGiftBoxMonCaughtData: ; 4db92
push bc
@@ -9191,7 +8739,6 @@
call SetGiftMonCaughtData
call CloseSRAM
ret
-; 4dba3
SetGiftPartyMonCaughtData: ; 4dba3
ld a, [PartyCount]
@@ -9208,7 +8755,6 @@
or b
ld [hl], a
ret
-; 4dbb8
SetEggMonCaughtData: ; 4dbb8 (13:5bb8)
ld a, [CurPartyMon]
@@ -9227,18 +8773,15 @@
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 @@
.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 @@
ld a, c
and a
ret
-; 4dc31
FindGreaterThanThatLevel: ; 4dc31
ld c, $0
@@ -9327,7 +8868,6 @@
ld a, c
and a
ret
-; 4dc56
FindThatSpecies: ; 4dc56
; Find species b in your party.
@@ -9346,7 +8886,6 @@
ld a, $1
and a
ret
-; 4dc67
RetroactivelyIgnoreEggs: ; 4dc67
ld e, -2
@@ -9364,7 +8903,6 @@
.skip_notegg
rlc e
jr .loop
-; 4dc7b
INCLUDE "engine/stats_screen.asm"
@@ -9380,7 +8918,6 @@
ld h, [hl]
ld l, a
jp [hl]
-; 4e564
.dw: ; 4e564 (13:6564)
dw .DudeTutorial
@@ -9444,15 +8981,12 @@
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 @@
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 @@
call WaitBGMap2
call SetPalettes
ret
-; 4e906
Function4e906: ; 4e906
ld a, [rSVBK]
@@ -9538,7 +9069,6 @@
pop af
ld [rSVBK], a
ret
-; 4e929
Function4e929: ; mobile function
ld h, b
@@ -9546,7 +9076,6 @@
call Function4e930
ld c, a
ret
-; 4e930
Function4e930: ; 4e930
ld a, [hli]
@@ -9585,7 +9114,6 @@
add hl, bc
ld a, [hl]
ret
-; 4e95d
MaleTrainers: ; 4e95d
db BURGLAR
@@ -9614,7 +9142,6 @@
db BIKER
db SCIENTIST
MaleTrainersEnd:
-; 4e976
FemaleTrainers: ; 4e976
db MEDIUM
@@ -9628,7 +9155,6 @@
db POKEFANF
db COOLTRAINERF
FemaleTrainersEnd:
-; 4e980
INCLUDE "battle/sliding_intro.asm"
@@ -9662,7 +9188,6 @@
ld c, 180
call DelayFrames
ret
-; 4ea44
CheckBattleScene: ; 4ea44
; Return carry if battle scene is turned off.
@@ -9711,7 +9236,6 @@
.off
scf
ret
-; 4ea82
INCLUDE "misc/gbc_only.asm"
@@ -9760,12 +9284,10 @@
.done
ret
-; 5088b
CalcwBufferMonStats: ; 5088b
ld bc, wBufferMon
jr _TempMonStatsCalculation
-; 50890
CalcTempmonStats: ; 50890
ld bc, TempMon
@@ -9812,7 +9334,6 @@
ld [hli], a
ld [hl], a
ret
-; 508d5
GetPkmnSpecies: ; 508d5
; [MonType] has the type of the Pkmn
@@ -9857,7 +9378,6 @@
.done2
ld [CurPartySpecies], a
ret
-; 5090d
INCLUDE "text/types.asm"
@@ -9880,7 +9400,6 @@
cp "@"
jr nz, .copy
ret
-; 50a42
Strings50a42: ; 50a42
; Untranslated trainer class names from Red.
@@ -9953,7 +9472,6 @@
.Rocket db "だんいん@"
.CooltrainerM db "エりート♂@"
.CooltrainerF db "エりート♀@"
-; 50b0a
DrawPlayerHP: ; 50b0a
ld a, $1
@@ -10037,7 +9555,6 @@
pop hl
pop de
ret
-; 50b7b
PrintTempMonStats: ; 50b7b
; Print TempMon's stats at hl, with spacing bc.
@@ -10061,7 +9578,6 @@
call .PrintStat
ld de, TempMonSpeed
jp PrintNum
-; 50bab
.PrintStat: ; 50bab
push hl
@@ -10070,7 +9586,6 @@
ld de, SCREEN_WIDTH * 2
add hl, de
ret
-; 50bb5
.StatNames: ; 50bb5
db "ATTACK"
@@ -10079,7 +9594,6 @@
next "SPCL.DEF"
next "SPEED"
next "@"
-; 50bdd
GetGender: ; 50bdd
; Return the gender of a given monster (CurPartyMon/CurOTMon/CurWildMon).
@@ -10194,7 +9708,6 @@
.Genderless
scf
ret
-; 50c50
ListMovePP: ; 50c50
ld a, [wNumMoves]
@@ -10276,7 +9789,6 @@
.done
ret
-; 50cc9
.load_loop: ; 50cc9
ld [hli], a
@@ -10285,7 +9797,6 @@
dec c
jr nz, .load_loop
ret
-; 50cd0
Function50cd0: ; 50cd0
.asm_50cd0
@@ -10297,7 +9808,6 @@
dec c
jr nz, .asm_50cd0
ret
-; 50cdb
Function50cdb: ; unreferenced predef
push hl
@@ -10326,7 +9836,6 @@
.asm_50d09
ret
-; 50d0a
PlaceStatusString: ; 50d0a
push de
@@ -10346,11 +9855,9 @@
ld a, $1
and a
ret
-; 50d22
FntString: ; 50d22
db "FNT@"
-; 50d25
CopyStatusString: ; 50d25
ld a, [de]
@@ -10362,7 +9869,6 @@
ld a, [de]
ld [hl], a
ret
-; 50d2e
PlaceNonFaintStatus: ; 50d2e
push de
@@ -10391,7 +9897,6 @@
.no_status
pop de
ret
-; 50d5b
SlpString: db "SLP@"
PsnString: db "PSN@"
@@ -10398,7 +9903,6 @@
BrnString: db "BRN@"
FrzString: db "FRZ@"
ParString: db "PAR@"
-; 50d6f
ListMoves: ; 50d6f
; List moves at hl, spaced every [Buffer1] tiles.
@@ -10453,7 +9957,6 @@
.done
ret
-; 50db9
Function50db9: ; 50db9
ld a, [wd263]
@@ -10510,7 +10013,6 @@
ld a, b
ld [wd105], a
ret
-; 50e1b
CalcLevel: ; 50e1b
ld a, [TempMonSpecies]
@@ -10543,7 +10045,6 @@
.got_level
dec d
ret
-; 50e47
CalcExpAtLevel: ; 50e47
; (a/b)*n**3 + c*n**2 + d*n - e
@@ -10664,7 +10165,6 @@
adc b
ld [hMultiplicand], a
ret
-; 50eed
.LevelSquared: ; 50eed
xor a
@@ -10674,7 +10174,6 @@
ld [hMultiplicand + 2], a
ld [hMultiplier], a
jp Multiply
-; 50efa
GrowthRates: ; 50efa
@@ -10695,7 +10194,6 @@
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 @@
inc a
ld [UnownLetter], a
ret
-; 51077
GetFrontpic: ; 51077
ld a, [CurPartySpecies]
@@ -10905,7 +10402,6 @@
pop af
ld [rSVBK], a
ret
-; 5108b
FrontpicPredef: ; 5108b
ld a, [CurPartySpecies]
@@ -10921,7 +10417,6 @@
pop af
ld [rSVBK], a
ret
-; 510a5
_GetFrontpic: ; 510a5
push de
@@ -10949,7 +10444,6 @@
call Get2bpp
pop hl
ret
-; 510d7
GetFrontpicPointer: ; 510d7
GLOBAL PicPointers, UnownPicPointers
@@ -10979,7 +10473,6 @@
call GetFarHalfword
pop bc
ret
-; 51103
Function51103: ; 51103
ld a, $1
@@ -11023,7 +10516,6 @@
xor a
ld [rVBK], a
ret
-; 5114f
Function5114f: ; 5114f
ld hl, wDecompressScratch
@@ -11045,7 +10537,6 @@
dec b
jr nz, .asm_51161
ret
-; 5116c
GetBackpic: ; 5116c
ld a, [CurPartySpecies]
@@ -11099,7 +10590,6 @@
pop af
ld [rSVBK], a
ret
-; 511c5
FixPicBank: ; 511c5
; This is a thing for some reason.
@@ -11114,7 +10604,6 @@
pop bc
pop hl
ret
-; 511d4
.PicsBanks: ; 511d4
db PICS_1
@@ -11160,7 +10649,6 @@
pop de
call FarDecompress
ret
-; 0x5120d
GetTrainerPic: ; 5120d
ld a, [TrainerClass]
@@ -11203,7 +10691,6 @@
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 @@
pop af
ld [rSVBK], a
ret
-; 5127c
FixBackpicAlignment: ; 5127c
push de
@@ -11265,7 +10751,6 @@
pop bc
pop de
ret
-; 512ab
Function512ab: ; 512ab
ld a, b
@@ -11317,7 +10802,6 @@
dec c
jr nz, .Fill
ret
-; 512f2
LoadFrontpic: ; 512f2
ld a, [wBoxAlignment]
@@ -11347,7 +10831,6 @@
jr nz, .right_loop
pop bc
ret
-; 51322
Function51322: ; 51322
ld a, BANK(sBoxCount)
@@ -11387,7 +10870,6 @@
ld b, a
callba Functiondcb6
jp CloseSRAM
-; 5138b
Function5138b: ; 5138b
ld hl, PartyCount
@@ -11414,7 +10896,6 @@
ld de, wBufferMon
call Function513e0
ret
-; 513cb
Function513cb: ; 513cb
inc [hl]
@@ -11433,7 +10914,6 @@
ld c, a
jr nz, .asm_513d8
ret
-; 513e0
Function513e0: ; 513e0
push de
@@ -11485,7 +10965,6 @@
pop hl
call CopyBytes
ret
-; 51424
BaseData::
INCLUDE "data/base_stats.asm"
@@ -11506,12 +10985,10 @@
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 @@
INCLUDE "engine/player_movement.asm"
INCLUDE "engine/engine_flags.asm"
-; 80648
INCLUDE "engine/variables.asm"
@@ -11554,7 +11030,6 @@
ld a, c
ld [TrainerClass], a
ret
-; 88258
MovePlayerPicRight: ; 88258
hlcoord 6, 4
@@ -11600,7 +11075,6 @@
pop bc
pop hl
jr .loop
-; 88297
ShowPlayerNamingChoices: ; 88297
ld hl, ChrisNameMenuHeader
@@ -11616,7 +11090,6 @@
call CopyNameFromMenu
call CloseWindow
ret
-; 882b5
ChrisNameMenuHeader: ; 882b5
db $40 ; flags
@@ -11625,7 +11098,6 @@
dw .MaleNames
db 1 ; ????
db 0 ; default option
-; 882be
.MaleNames: ; 882be
db $91 ; flags
@@ -11638,7 +11110,6 @@
db "JON@"
db 2 ; displacement
db " NAME @" ; title
-; 882e5
KrisNameMenuHeader: ; 882e5
db $40 ; flags
@@ -11647,7 +11118,6 @@
dw .FemaleNames
db 1 ; ????
db 0 ; default option
-; 882ee
.FemaleNames: ; 882ee
db $91 ; flags
@@ -11660,7 +11130,6 @@
db "JODI@"
db 2 ; displacement
db " NAME @" ; title
-; 88318
GetPlayerNameArray: ; 88318 This Function is never called
ld hl, PlayerName
@@ -11673,7 +11142,6 @@
.done
call InitName
ret
-; 8832c
GetPlayerIcon: ; 8832c
; Get the player icon corresponding to gender
@@ -11692,7 +11160,6 @@
.done
ret
-; 8833e
GetCardPic: ; 8833e
ld hl, ChrisCardPic
@@ -11711,19 +11178,15 @@
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 @@
ld c, 7 * 7
predef DecompressPredef
ret
-; 88840
Function88840: ; 88840
call WaitBGMap
@@ -11769,7 +11231,6 @@
ld a, $1
ld [hBGMapMode], a
ret
-; 88874
DrawIntroPlayerPic: ; 88874
; Draw the player pic at (6,4).
@@ -11803,15 +11264,12 @@
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 @@
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 @@
Predef35: ; 8c000
Predef36:
ret
-; 8c001
INCLUDE "engine/timeofdaypals.asm"
INCLUDE "engine/battle_start.asm"
@@ -11854,7 +11308,6 @@
xor a
ld [hBGMapMode], a
ret
-; 8c7d4
INCLUDE "event/field_moves.asm"
INCLUDE "event/magnet_train.asm"
@@ -11862,7 +11315,6 @@
Function8cf4f: ; 8cf4f
call Function3238
ret
-; 8cf53
INCLUDE "engine/sprites.asm"
@@ -11927,7 +11379,6 @@
loadmemtrainer
encountermusic
jump StartBattleWithMapTrainerScript
-; 0xbe675
SeenByTrainerScript:: ; 0xbe675
loadmemtrainer
@@ -11938,7 +11389,6 @@
writepersonxy LAST_TALKED
faceperson PLAYER, LAST_TALKED
jump StartBattleWithMapTrainerScript
-; 0xbe68a
StartBattleWithMapTrainerScript: ; 0xbe68a
opentext
@@ -11953,7 +11403,6 @@
AlreadyBeatenTrainerScript:
scripttalkafter
-; 0xbe699
SECTION "bank30", ROMX, BANK[$30]
@@ -11975,7 +11424,6 @@
and a
ret nz
ret
-; cbce5
.LoadPals: ; cbce5
ld a, [hCGB]
@@ -12018,11 +11466,9 @@
call DelayFrames
callba _UpdateTimePals
ret
-; cbd2e
TheEndGFX:: ; cbd2e
INCBIN "gfx/credits/theend.2bpp"
-; cbe2e
SECTION "bank33", ROMX, BANK[$33]
@@ -12107,7 +11553,6 @@
call GetSGBLayout
call SetPalettes
ret
-; cc0a7
.Health
db "HEALTH@"
@@ -12120,25 +11565,21 @@
; 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 @@
call Get2bpp
call CloseSRAM
ret
-; e004e
.Copy: ; e004e
ld c, $10
@@ -12260,7 +11700,6 @@
dec c
jr nz, .loop_copy
ret
-; e0057
.Decompress: ; e0057
ld hl, wd012
@@ -12283,7 +11722,6 @@
dec d
jr nz, .loop_decompress
ret
-; e0078
.CountSetBit: ; e0078
ld b, 0
@@ -12304,7 +11742,6 @@
dec c
jr nz, .loop_count
ret
-; e008b
overworldmaptile EQUS "dw OverworldMap + $10 *"
overworldmaprect: MACRO
@@ -12321,7 +11758,6 @@
Unknown_e008b: ; e008b
overworldmaprect 7, 7
-; e00ed
Unknown_e00ed:
; Graphics for an unused Game Corner
@@ -12330,7 +11766,6 @@
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 @@
CopyrightGFX:: ; e4000
INCBIN "gfx/misc/copyright.2bpp"
-; e41d0
INCLUDE "engine/options_menu.asm"
INCLUDE "engine/crystal_intro.asm"
@@ -12389,7 +11823,6 @@
IntroLogoGFX: ; 109407
INCBIN "gfx/intro/logo.2bpp.lz"
-; 109847
INCLUDE "misc/unused_title.asm"
@@ -12426,7 +11859,6 @@
call SetHPPal
callba FinishBattleAnim
ret
-; 17801f (5e:401f)
INCLUDE "misc/mobile_5f.asm"
@@ -12472,7 +11904,6 @@
UnownFont: ; 1dc000
INCBIN "gfx/misc/unown_font.2bpp"
-; 1dc1b0
INCLUDE "misc/printer_77.asm"
@@ -12502,7 +11933,6 @@
call PrintNum
pop bc
ret
-; 1dd6bb
PrintHoursMins ; 1dd6bb (77:56bb)
; Hours in b, minutes in c
@@ -12549,11 +11979,9 @@
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 @@
ld de, VTiles2 tile $31
call Decompress
ret
-; 1ddf26
Function1ddf26: ; 1ddf26 (77:5f26)
ld hl, LZ_1ddf33
@@ -12570,11 +11997,9 @@
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
@@ -12581,11 +12006,9 @@
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,7 +12097,6 @@
hlcoord 0, 12
call PlaceString
ret
-; 1de23c (77:623c)
.esults_D: ; 1de23c
; (SEARCH R)
@@ -12681,7 +12103,6 @@
db "ESULTS<NEXT>"
; (### FOUN)
next "D!@"
-; 1de247
Function1de247: ; 1de247
ld a, [hBGMapAddress]
@@ -12714,7 +12135,6 @@
ld a, h
ld [hBGMapAddress + 1], a
ret
-; 1de27f
Bank77_FillColumn: ; 1de27f
push de
@@ -12726,28 +12146,23 @@
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 @@
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 @@
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 @@
db NO_INPUT, $fe
db A_BUTTON, $00
db NO_INPUT, $ff ; end
-; 1de2c5
Function1de2c5: ; 1de2c5
ld hl, StringBuffer1
@@ -12800,11 +12212,9 @@
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 @@
ret z
ld c, $0
ret
-; 1de5e6
; The regular font.
StandardEnglishFont: ; 1de5e6
@@ -12875,7 +12284,6 @@
dec b
jr nz, .loop
ret
-; 1df203
LireLeCourrierAnglais:
DeutenEnglischenPost: ; 1df203
@@ -12908,7 +12316,6 @@
dec b
jr nz, .loop
ret
-; 1df220
HandleSpanishItalianMail: ; 1df220
LeerCorreosIngleses:
@@ -12938,7 +12345,6 @@
dec b
jr nz, .loop
ret
-; 1df238
SECTION "Tileset Data 8", ROMX, BANK[TILESETS_8]
@@ -12969,7 +12375,6 @@
call CopyBytes
call CloseSRAM
ret
-; 1f4018
Unknown_1f4018:
INCBIN "unknown/1f4018.bin"
@@ -12983,7 +12388,6 @@
call CopyBytes
call CloseSRAM
ret
-; 1f4dd3
Unknown_1f4dd3:
INCBIN "unknown/1f4dd3.bin"
@@ -12997,7 +12401,6 @@
call CopyBytes
call CloseSRAM
ret
-; 1f5db4
Unknown_1f5db4:
INCBIN "unknown/1f5db4.bin"