ref: 321e432e078d6eceeb25843341d0078214a58394
parent: 2ed422c6960cf0ec57c3a336b092c2af06bbc1e8
author: U-Fish-PC\Daniel <corrnondacqb@yahoo.com>
date: Mon Dec 9 05:55:50 EST 2013
Misc clean up
--- a/main.asm
+++ b/main.asm
@@ -261,7 +261,7 @@
dw UndergroundTunnelEntranceRoute6_h ; unused
dw Route7Gate_h
dw UndergroundPathEntranceRoute7_h
- dw $575d
+ dw UndergroundPathEntranceRoute7Copy_h
dw Route8Gate_h
dw UndergroundPathEntranceRoute8_h ;id=80
dw RockTunnelPokecenter_h
@@ -11515,9 +11515,8 @@
db "キャプテン@"
db "プチマスター@"
db "マスター@"
+ db "エクセレント"
-INCBIN "baserom.gbc",$4b09,$4b0f - $4b09
-
; calculates the OAM data for all currently visible sprites and writes it to W_OAMBUFFER
PrepareOAMData: ; 4b0f (1:4b0f)
ld a, [$cfcb]
@@ -11970,7 +11969,8 @@
DiagonalLines: ; 4d85 (1:4d85)
INCBIN "gfx/diagonal_lines.2bpp"
-INCBIN "baserom.gbc",$4da5,$4da6 - $4da5
+Func_4da5: ; 4da5 (1:4da5)
+ ret
Func_4da6: ; 4da6 (1:4da6)
call GBPalNormal
@@ -16563,7 +16563,7 @@
ld a, [W_CURMENUITEMID]
and a
jr nz, .declinedHealing ; if the player chose No
- call Unknown_7078
+ call Func_7078
call LoadScreenTilesFromBuffer1 ; restore screen
ld hl, NeedYourPokemonText
call PrintText
@@ -16618,7 +16618,7 @@
TX_FAR _PokemonCenterFarewellText
db "@"
-Unknown_7078: ; 7078 (1:7078)
+Func_7078: ; 7078 (1:7078)
push hl
ld hl, SafariZoneRestHouses
ld a, [W_CURMAP]
@@ -20779,10 +20779,10 @@
db BANK(DayCareM_h)
db BANK(Route6Gate_h)
db BANK(UndergroundTunnelEntranceRoute6_h)
- db $17 ;FREEZE
+ db BANK(UndergroundTunnelEntranceRoute6_h) ;FREEZE
db BANK(Route7Gate_h)
db BANK(UndergroundPathEntranceRoute7_h)
- db $17 ;FREEZE
+ db BANK(UndergroundPathEntranceRoute7Copy_h) ;FREEZE
db BANK(Route8Gate_h)
db BANK(UndergroundPathEntranceRoute8_h)
db BANK(RockTunnelPokecenter_h)
@@ -20877,7 +20877,7 @@
db BANK(Lab4_h)
db BANK(CinnabarPokecenter_h)
db BANK(CinnabarMart_h)
- db $1D
+ db BANK(CinnabarMart_h)
db BANK(IndigoPlateauLobby_h)
db BANK(CopycatsHouseF1_h)
db BANK(CopycatsHouseF2_h)
@@ -36079,10 +36079,10 @@
dw ViridianCityScript3
ViridianCityScript0: ; 19005 (6:5005)
- call Function1900b
- jp Function1903d
+ call ViridianCityScript_1900b
+ jp ViridianCityScript_1903d
-Function1900b: ; 1900b (6:500b)
+ViridianCityScript_1900b: ; 1900b (6:500b)
ld a, [$d74c]
bit 0, a
ret nz
@@ -36104,12 +36104,12 @@
call DisplayTextID
xor a
ld [H_CURRENTPRESSEDBUTTONS], a
- call Function190cf
+ call ViridianCityScript_190cf
ld a, $3
ld [W_VIRIDIANCITYCURSCRIPT], a
ret
-Function1903d: ; 1903d (6:503d)
+ViridianCityScript_1903d: ; 1903d (6:503d)
ld a, [$d74b]
bit 5, a
ret nz
@@ -36124,7 +36124,7 @@
call DisplayTextID
xor a
ld [H_CURRENTPRESSEDBUTTONS], a
- call Function190cf
+ call ViridianCityScript_190cf
ld a, $3
ld [W_VIRIDIANCITYCURSCRIPT], a
ret
@@ -36149,7 +36149,7 @@
ld a, WEEDLE
ld [W_CUROPPONENT], a
ld a, $2
- ld [W_VIRIDIANCITYCURSCRIPT], a ; XXX what is this
+ ld [W_VIRIDIANCITYCURSCRIPT], a
ret
ViridianCityScript2: ; 1908f (6:508f)
@@ -36184,7 +36184,7 @@
ld [W_VIRIDIANCITYCURSCRIPT], a
ret
-Function190cf: ; 190cf (6:50cf)
+ViridianCityScript_190cf: ; 190cf (6:50cf)
call Func_3486
ld a, $1
ld [$cd38], a
@@ -36293,7 +36293,7 @@
db $08 ; asm
ld hl, UnnamedText_19191
call PrintText
- call Function190cf
+ call ViridianCityScript_190cf
ld a, $3
ld [W_VIRIDIANCITYCURSCRIPT], a
jp TextScriptEnd
@@ -36420,10 +36420,10 @@
ld [W_MUSEUMF1CURSCRIPT], a
ld hl, $d754
res 0, [hl]
- call Function1925e
+ call PewterCityScript_1925e
ret
-Function1925e: ; 1925e (6:525e)
+PewterCityScript_1925e: ; 1925e (6:525e)
ld a, [$d755]
bit 7, a
ret nz
@@ -36642,9 +36642,7 @@
db "@"
PewterCityText13: ; 19400 (6:5400)
-
-UnnamedText_19400: ; 19400 (6:5400)
- TX_FAR _UnnamedText_19400
+ TX_FAR _PewterCityText13
db "@"
PewterCityText4: ; 19405 (6:5405)
@@ -36730,7 +36728,7 @@
ld a, [W_CERULEANCITYCURSCRIPT]
jp CallFunctionInTable
-CeruleanCity_Unknown1948c: ; 1948c (6:548c)
+CeruleanCityScript_1948c: ; 1948c (6:548c)
xor a
ld [W_JOYPADFORBIDDENBUTTONSMASK], a
ld [W_CERULEANCITYCURSCRIPT], a
@@ -36749,7 +36747,7 @@
CeruleanCityScript4: ; 194a7 (6:54a7)
ld a, [W_ISINBATTLE]
cp $ff
- jp z, CeruleanCity_Unknown1948c
+ jp z, CeruleanCityScript_1948c
ld a, $f0
ld [W_JOYPADFORBIDDENBUTTONSMASK], a
ld hl, $d75b
@@ -36840,7 +36838,7 @@
CeruleanCityMovement1: ; 19559 (6:5559)
db $00,$00,$00,$FF
-CeruleanCityFunction1955d: ; 1955d (6:555d)
+CeruleanCityScript_1955d: ; 1955d (6:555d)
ld a,1
ld [$ff8c],a
xor a
@@ -36883,7 +36881,7 @@
xor a
ld [H_CURRENTPRESSEDBUTTONS], a
- call CeruleanCityFunction1955d
+ call CeruleanCityScript_1955d
ld a, $2
ld [W_CERULEANCITYCURSCRIPT], a
ret
@@ -36891,8 +36889,8 @@
CeruleanCityScript2: ; 195b1 (6:55b1)
ld a, [$d057]
cp $ff
- jp z, CeruleanCity_Unknown1948c
- call CeruleanCityFunction1955d
+ jp z, CeruleanCityScript_1948c
+ call CeruleanCityScript_1955d
ld a, $f0
ld [W_JOYPADFORBIDDENBUTTONSMASK], a
ld hl, $d75a
@@ -37992,7 +37990,7 @@
dw SilphCo4Object ; objects
SilphCo4Script: ; 19d0b (6:5d0b)
- call SilphCo4Script_Unknown19d21
+ call SilphCo4Script_19d21
call EnableAutoTextBoxDrawing
ld hl, SilphCo4TrainerHeaders
ld de, SilphCo4ScriptPointers
@@ -38001,14 +37999,14 @@
ld [W_SILPHCO4CURSCRIPT], a
ret
-SilphCo4Script_Unknown19d21: ; 19d21 (6:5d21)
+SilphCo4Script_19d21: ; 19d21 (6:5d21)
ld hl, $d126
bit 5, [hl]
res 5, [hl]
ret z
ld hl, SilphCo4Data19d58
- call SilphCo4Function19d5d
- call SilphCo4Function19d89
+ call SilphCo4Script_19d5d
+ call SilphCo4Script_19d89
ld a, [$d82a]
bit 0, a
jr nz, .asm_19d48
@@ -38031,7 +38029,7 @@
SilphCo4Data19d58: ; 19d58 (6:5d58)
db $06, $02, $04, $06, $ff
-SilphCo4Function19d5d: ; 19d5d (6:5d5d)
+SilphCo4Script_19d5d: ; 19d5d (6:5d5d)
push hl
ld hl, $d73f
ld a, [hli]
@@ -38067,7 +38065,7 @@
ld [$ff00+$e0], a
ret
-SilphCo4Function19d89: ; 19d89 (6:5d89)
+SilphCo4Script_19d89: ; 19d89 (6:5d89)
ld hl, $d82a
ld a, [$ff00+$e0]
and a
@@ -38128,7 +38126,7 @@
db $08 ; asm
ld hl, UnnamedText_19de0 ; $5de0
ld de, UnnamedText_19de5 ; $5de5
- call Unnamed_622f
+ call SilphCo6Script_1a22f
jp TextScriptEnd
UnnamedText_19de0: ; 19de0 (6:5de0)
@@ -38237,7 +38235,7 @@
dw SilphCo5Object ; objects
SilphCo5Script: ; 19f37 (6:5f37)
- call Unnamed_19f4d
+ call SilphCo5Script_19f4d
call EnableAutoTextBoxDrawing
ld hl, SilphCo5TrainerHeaders
ld de, SilphCo5ScriptPointers
@@ -38246,14 +38244,14 @@
ld [W_SILPHCO5CURSCRIPT], a
ret
-Unnamed_19f4d: ; 19f4d (6:5f4d)
+SilphCo5Script_19f4d: ; 19f4d (6:5f4d)
ld hl, $d126
bit 5, [hl]
res 5, [hl]
ret z
ld hl, SilphCo5Coords
- call SilphCo4Function19d5d
- call SilphCo5Function19f9e
+ call SilphCo4Script_19d5d
+ call SilphCo5Script_19f9e
ld a, [$d82c]
bit 0, a
jr nz, .asm_19f74 ; 0x19f63 $f
@@ -38286,7 +38284,7 @@
SilphCo5Coords: ; 19f97 (6:5f97) ; coords?
db $02, $03, $06, $03, $05, $07, $ff
-SilphCo5Function19f9e: ; 19f9e (6:5f9e)
+SilphCo5Script_19f9e: ; 19f9e (6:5f9e)
ld hl, $d82c
ld a, [$ff00+$e0]
and a
@@ -38365,7 +38363,7 @@
db $08 ; asm
ld hl, UnnamedText_1a010 ; $6010
ld de, UnnamedText_1a015 ; $6015
- call Unnamed_622f
+ call SilphCo6Script_1a22f
jp TextScriptEnd
UnnamedText_1a010: ; 1a010 (6:6010)
@@ -38508,7 +38506,7 @@
dw SilphCo6Object ; objects
SilphCo6Script: ; 1a1a9 (6:61a9)
- call Unnamed_1a1bf
+ call SilphCo6Script_1a1bf
call EnableAutoTextBoxDrawing
ld hl, SilphCo6TrainerHeaders
ld de, SilphCo6ScriptPointers
@@ -38517,14 +38515,14 @@
ld [W_SILPHCO6CURSCRIPT], a
ret
-Unnamed_1a1bf: ; 1a1bf (6:61bf)
+SilphCo6Script_1a1bf: ; 1a1bf (6:61bf)
ld hl, $d126
bit 5, [hl]
res 5, [hl]
ret z
ld hl, SilphCo6Coords1
- call SilphCo4Function19d5d
- call Unknown_1a1e6
+ call SilphCo4Script_19d5d
+ call SilphCo6Script_1a1e6
ld a, [$d82e]
bit 7, a
ret nz
@@ -38538,7 +38536,7 @@
db $06, $02
db $ff
-Unknown_1a1e6: ; 1a1e6 (6:61e6)
+SilphCo6Script_1a1e6: ; 1a1e6 (6:61e6)
ld a, [$ff00+$e0]
and a
ret z
@@ -38593,7 +38591,7 @@
db $ff
-Unnamed_622f: ; 1a22f (6:622f)
+SilphCo6Script_1a22f: ; 1a22f (6:622f)
ld a, [$d838]
bit 7, a
jr nz, .asm_1a238 ; 0x1a234 $2
@@ -38608,7 +38606,7 @@
db $08 ; asm
ld hl, UnnamedText_1a24a
ld de, UnnamedText_1a24f
- call Unnamed_622f
+ call SilphCo6Script_1a22f
jp TextScriptEnd
UnnamedText_1a24a: ; 1a24a (6:624a)
@@ -38623,7 +38621,7 @@
db $08 ; asm
ld hl, UnnamedText_1a261
ld de, UnnamedText_1a266
- call Unnamed_622f
+ call SilphCo6Script_1a22f
jp TextScriptEnd
UnnamedText_1a261: ; 1a261 (6:6261)
@@ -38638,7 +38636,7 @@
db $08 ; asm
ld hl, UnnamedText_1a278
ld de, UnnamedText_1a27d
- call Unnamed_622f
+ call SilphCo6Script_1a22f
jp TextScriptEnd
UnnamedText_1a278: ; 1a278 (6:6278)
@@ -38653,7 +38651,7 @@
db $08 ; asm
ld hl, UnnamedText_1a28f
ld de, UnnamedText_1a294
- call Unnamed_622f
+ call SilphCo6Script_1a22f
jp TextScriptEnd
UnnamedText_1a28f: ; 1a28f (6:628f)
@@ -38668,7 +38666,7 @@
db $08 ; asm
ld hl, UnnamedText_1a2a6
ld de, UnnamedText_1a2ab
- call Unnamed_622f
+ call SilphCo6Script_1a22f
jp TextScriptEnd
UnnamedText_1a2a6: ; 1a2a6 (6:62a6)
@@ -39033,31 +39031,35 @@
db $C0, $03
db $FF
+; XXX why would this function want to return on POKEMONTOWER_7?
Func_1a5e7: ; 1a5e7 (6:65e7)
ld a, [W_CURMAP] ; $d35e
- cp $94
+ cp POKEMONTOWER_7
ret z
- ld hl, Unknown_1a605 ; $6605
+ ld hl, RivalIDs ; $6605
ld a, [W_ENGAGEDTRAINERCLASS]
ld b, a
-.asm_1a5f4
+.loop
ld a, [hli]
cp $ff
- jr z, .asm_1a5fd
+ jr z, .notRival
cp b
ret z
- jr .asm_1a5f4
-.asm_1a5fd
+ jr .loop
+.notRival
ld a, [$cf13]
ld [H_DOWNARROWBLINKCNT2], a ; $FF00+$8c
jp SetSpriteMovementBytesToFF
-Unknown_1a605: ; 1a605 (6:6605)
-INCBIN "baserom.gbc",$1a605,$1a609 - $1a605
+RivalIDs: ; 1a605 (6:6605)
+ db SONY1 + $c8
+ db SONY2 + $c8
+ db SONY3 + $c8
+ db $ff
Func_1a609: ; 1a609 (6:6609)
push de
- ld hl, Unknown_1a62c ; $662c
+ ld hl, TilesetArray_1a62c ; $662c
ld a, [W_CURMAPTILESET] ; $d367
ld de, $3
call IsInArray
@@ -39082,9 +39084,68 @@
and a
ret
-Unknown_1a62c: ; 1a62c (6:662c)
-INCBIN "baserom.gbc",$1a62c,$1a672 - $1a62c
+TilesetArray_1a62c: ; 1a62c (6:662c)
+ db $00
+ dw UnknownTilesetData1a654
+ db $03
+ dw UnknownTilesetData1a657
+ db $02
+ dw UnknownTilesetData1a659
+ db $08
+ dw UnknownTilesetData1a65b
+ db $09
+ dw UnknownTilesetData1a65d
+ db $0a
+ dw UnknownTilesetData1a65d
+ db $0c
+ dw UnknownTilesetData1a65d
+ db $0d
+ dw UnknownTilesetData1a65f
+ db $12
+ dw UnknownTilesetData1a661
+ db $13
+ dw UnknownTilesetData1a665
+ db $14
+ dw UnknownTilesetData1a669
+ db $16
+ dw UnknownTilesetData1a66b
+ db $17
+ dw UnknownTilesetData1a66f
+ db $ff
+UnknownTilesetData1a654: ; 1a654 (6:6654)
+ db $1B,$58,$00
+
+UnknownTilesetData1a657: ; 1a657 (6:6657)
+ db $3a,$00
+
+UnknownTilesetData1a659: ; 1a659 (6:6659)
+ db $5e,$00
+
+UnknownTilesetData1a65b: ; 1a65b (6:665b)
+ db $54,$00
+
+UnknownTilesetData1a65d: ; 1a65d (6:665d)
+ db $3b,$00
+
+UnknownTilesetData1a65f: ; 1a65f (6:665f)
+ db $1e,$00
+
+UnknownTilesetData1a661: ; 1a661 (6:6661)
+ db $1c,$38,$1a,$00
+
+UnknownTilesetData1a665: ; 1a665 (6:6665)
+ db $1a,$1c,$53,$00
+
+UnknownTilesetData1a669: ; 1a669 (6:6669)
+ db $34,$00
+
+UnknownTilesetData1a66b: ; 1a66b (6:666b)
+ db $43,$58,$1b,$00
+
+UnknownTilesetData1a66f: ; 1a66f (6:666f)
+ db $3b,$1b,$00
+
Func_1a672: ; 1a672 (6:6672)
ld a, [$d736]
bit 6, a
@@ -39101,7 +39162,7 @@
ld c, a
ld a, [$cfc6]
ld d, a
- ld hl, Unknown_1a6cf ; $66cf
+ ld hl, DataTable_1a6cf ; $66cf
.asm_1a691
ld a, [hli]
cp $ff
@@ -39143,8 +39204,16 @@
call PlaySound
ret
-Unknown_1a6cf: ; 1a6cf (6:66cf)
-INCBIN "baserom.gbc",$1a6cf,$1a6f0 - $1a6cf
+DataTable_1a6cf: ; 1a6cf (6:66cf)
+ db $00,$2C,$37,$80
+ db $00,$39,$36,$80
+ db $00,$39,$37,$80
+ db $08,$2C,$27,$20
+ db $08,$39,$27,$20
+ db $0C,$2C,$0D,$10
+ db $0C,$2C,$1D,$10
+ db $0C,$39,$0D,$10
+ db $FF
Func_1a6f0: ; 1a6f0 (6:66f0)
ld hl, $8ff0
@@ -40080,7 +40149,7 @@
ret nz
; define which team rival uses, and fight it
- ld a, SONY1 + 200
+ ld a, SONY1 + $C8
ld [W_CUROPPONENT], a
ld a, [W_RIVALSTARTER]
cp SQUIRTLE
@@ -40217,7 +40286,7 @@
ld a, $15
ld [$ff00+$8c], a
call DisplayTextID
- call Unknown_1d02b
+ call Func_1d02b
ld a, $2a
ld [$cc4d], a
ld a, $15
@@ -40382,7 +40451,7 @@
ld [$cf96], a
jp RemoveItemFromInventory
-Unknown_1d02b: ; 1d02b (7:502b)
+Func_1d02b: ; 1d02b (7:502b)
ld a, $7c
ld [$ff00+$eb], a
ld a, $8
@@ -41820,7 +41889,7 @@
NameRaterScript: ; 1da12 (7:5a12)
jp EnableAutoTextBoxDrawing
-Unknown_1da15: ; 1da15 (7:5a15)
+Func_1da15: ; 1da15 (7:5a15)
call PrintText
call YesNoChoice
ld a, [$cc26]
@@ -41827,7 +41896,7 @@
and a
ret
-Unknown_1da20: ; 1da20 (7:5a20)
+Func_1da20: ; 1da20 (7:5a20)
ld hl, $d273
ld bc, $000b
ld a, [$cf92]
@@ -41863,7 +41932,7 @@
db $8
call SaveScreenTilesToBuffer2
ld hl, UnnamedText_1dab3
- call Unknown_1da15
+ call Func_1da15
jr nz, .asm_1daae ; 0x1da60 $4c
ld hl, UnnamedText_1dab8
call PrintText
@@ -41879,11 +41948,11 @@
pop af
jr c, .asm_1daae ; 0x1da80 $2c
call GetPartyMonName2
- call Unknown_1da20
+ call Func_1da20
ld hl, UnnamedText_1dad1
jr c, .asm_1daa8 ; 0x1da8b $1b
ld hl, UnnamedText_1dabd
- call Unknown_1da15
+ call Func_1da15
jr nz, .asm_1daae ; 0x1da93 $19
ld hl, UnnamedText_1dac2
call PrintText
@@ -42724,7 +42793,7 @@
ld a, $2
ld [$ff00+$8c], a
call DisplayTextID
- call Unknown_1e0a1
+ call Func_1e0a1
ld a, $1
ld [W_ROUTE6GATECURSCRIPT], a
ret
@@ -42749,7 +42818,7 @@
ld [W_ROUTE6GATECURSCRIPT], a
ret
-Unknown_1e0a1: ; 1e0a1 (7:60a1)
+Func_1e0a1: ; 1e0a1 (7:60a1)
ld hl, $d730
set 7, [hl]
ld a, $80
@@ -82705,7 +82774,7 @@
db "@"
Route25Script: ; 515cb (14:55cb)
- call Unknown_515e1
+ call Route25Script_515e1
call EnableAutoTextBoxDrawing
ld hl, Route25TrainerHeaders
ld de, Route25ScriptPointers
@@ -82714,7 +82783,7 @@
ld [W_ROUTE25CURSCRIPT], a
ret
-Unknown_515e1: ; 515e1 (14:55e1)
+Route25Script_515e1: ; 515e1 (14:55e1)
ld hl, $d126
bit 6, [hl]
res 6, [hl]
@@ -84305,7 +84374,7 @@
dw Mansion4Object ; objects
Mansion4Script: ; 523b9 (14:63b9)
- call Unknown_523cf
+ call Mansion4Script_523cf
call EnableAutoTextBoxDrawing
ld hl, Mansion4TrainerHeader0
ld de, Mansion4ScriptPointers
@@ -84314,7 +84383,7 @@
ld [W_MANSION4CURSCRIPT], a
ret
-Unknown_523cf: ; 523cf (14:63cf)
+Mansion4Script_523cf: ; 523cf (14:63cf)
ld hl, $d126
bit 5, [hl]
res 5, [hl]
@@ -93337,6 +93406,7 @@
INCBIN "maps/pewterpokecenter.blk"
UndergroundTunnelEntranceRoute7Blocks: ; 5c080 (17:4080)
+UndergroundTunnelEntranceRoute7CopyBlocks: ; 5c080 (17:4080)
UndergroundTunnelEntranceRoute6Blocks: ; 5c080 (17:4080)
UndergroundTunnelEntranceRoute5Blocks: ; 5c080 (17:4080)
INCBIN "maps/undergroundtunnelentranceroute5.blk"
@@ -96373,8 +96443,23 @@
EVENT_DISP $4, $7, $4
EVENT_DISP $4, $4, $4 ; UNDERGROUND_PATH_WE
-INCBIN "baserom.gbc",$5d75d,$5d773 - $5d75d
+UndergroundPathEntranceRoute7Copy_h: ; 5d75d (17:575d)
+ db $0c ; tileset
+ db PATH_ENTRANCE_ROUTE_7_HEIGHT, PATH_ENTRANCE_ROUTE_7_WIDTH ; dimensions (y, x)
+ dw UndergroundTunnelEntranceRoute7CopyBlocks, UndergroundPathEntranceRoute7CopyTextPointers, UndergroundPathEntranceRoute7CopyScript ; blocks, texts, scripts
+ db $00 ; connections
+ dw UndergroundPathEntranceRoute7CopyObject ; objects
+
+UndergroundPathEntranceRoute7CopyScript: ; 5d769 (17:5769)
+ ld a, $12
+ ld [$d365], a
+ ret
+
+UndergroundPathEntranceRoute7CopyTextPointers: ; 5d76f (17:576f)
+ dw UnnamedText_5d773
+ dw UnnamedText_5d77d
+
UnnamedText_5d773: ; 5d773 (17:5773)
TX_FAR _UnnamedText_5d773
db "@"
@@ -96391,8 +96476,25 @@
TX_FAR _UnnamedText_5d782
db "@"
-INCBIN "baserom.gbc",$5d787,$5d7af - $5d787
+UndergroundPathEntranceRoute7CopyObject: ; 5d787 (17:5787)
+ db $a ; border tile
+ db $3 ; warps
+ db $7, $3, $5, $ff
+ db $7, $4, $5, $ff
+ db $4, $4, $0, UNDERGROUND_PATH_WE
+
+ db $0 ; signs
+
+ db $2 ; people
+ db SPRITE_GIRL, $2 + 4, $3 + 4, $ff, $ff, $1 ; person
+ db SPRITE_FAT_BALD_GUY, $4 + 4, $2 + 4, $ff, $ff, $2 ; person
+
+ ; warp-to
+ EVENT_DISP $4, $7, $3
+ EVENT_DISP $4, $7, $4
+ EVENT_DISP $4, $4, $4 ; UNDERGROUND_PATH_WE
+
SilphCo9_h: ; 0x5d7af to 0x5d7bb (12 bytes) (id=233)
db $16 ; tileset
db SILPH_CO_9F_HEIGHT, SILPH_CO_9F_WIDTH ; dimensions (y, x)
@@ -106166,7 +106268,7 @@
xor a
ld [H_AUTOBGTRANSFERENABLED],a
call SaveScreenTilesToBuffer1
- call Unknown_74183
+ call Func_74183
; display the next monster from CreditsMons
ld hl,$CD3E
@@ -106183,27 +106285,27 @@
call GetMonHeader
call LoadFrontSpriteByMonIndex
ld hl,$980C
- call Unknown_74164
+ call Func_74164
xor a
ld [H_AUTOBGTRANSFERENABLED],a
call LoadScreenTilesFromBuffer1
ld hl,$9800
- call Unknown_74164
+ call Func_74164
ld a,$A7
ld [$FF4B],a
ld hl,$9C00
- call Unknown_74164
- call Unknown_74183
+ call Func_74164
+ call Func_74183
ld a,$FC
ld [$FF47],a
ld bc,7
.next
- call Unknown_74140
+ call Func_74140
dec c
jr nz,.next
ld c,$14
.next2
- call Unknown_74140
+ call Func_74140
ld a,[$FF4B]
sub 8
ld [$FF4B],a
@@ -106232,7 +106334,7 @@
db NIDOKING
db PARASECT
-Unknown_74140: ; 74140 (1d:4140)
+Func_74140: ; 74140 (1d:4140)
ld h, b
ld l, $20
call Func_74152
@@ -106259,7 +106361,7 @@
Unknown_74160: ; 74160 (1d:4160)
INCBIN "baserom.gbc",$74160,$74164 - $74160
-Unknown_74164: ; 74164 (1d:4164)
+Func_74164: ; 74164 (1d:4164)
ld a, l
ld [H_AUTOBGTRANSFERDEST], a ; $FF00+$bc
ld a, h
@@ -106283,7 +106385,7 @@
ld a, $7e
jp FillMemory
-Unknown_74183: ; 74183 (1d:4183)
+Func_74183: ; 74183 (1d:4183)
FuncCoord 0, 4 ; $c3f0
ld hl, Coord
ld bc, $c8
@@ -106298,7 +106400,7 @@
FuncCoord 9, 6 ; $c421
ld hl, Coord
push hl
- call Unknown_74183
+ call Func_74183
pop hl
.asm_7419b
ld a, [de]
@@ -106368,7 +106470,7 @@
.asm_74201
ld c, $10
call DelayFrames
- call Unknown_74183
+ call Func_74183
pop de
ld de, TheEndGfx
ld hl, $9600
@@ -106669,7 +106771,7 @@
inc hl
jr nz, .asm_74824 ; 0x74845 $dd
ld a, [$d361]
- call Unknown_7486b
+ call Func_7486b
cp d
jr nc, .asm_74824 ; 0x7484e $d4
ld a, [$d361]
@@ -106677,7 +106779,7 @@
cp d
jr c, .asm_74824 ; 0x74856 $cc
ld a, [$d362]
- call Unknown_7486b
+ call Func_7486b
cp e
jr nc, .asm_74824 ; 0x7485f $c3
ld a, [$d362]
@@ -106687,7 +106789,7 @@
scf
ret
-Unknown_7486b: ; 7486b (1d:486b)
+Func_7486b: ; 7486b (1d:486b)
sub $5
cp $f0
ret c
@@ -107558,7 +107660,7 @@
ld hl, UnnamedText_74fd3
jp PrintText
.asm_74f54
- call Unknown_74fe7
+ call Func_74fe7
ld a, [$FF00+$db]
ld b, a
ld c, 1
@@ -107621,7 +107723,7 @@
TX_FAR _UnnamedText_74fe2
db "@"
-Unknown_74fe7: ; 74fe7 (1d:4fe7)
+Func_74fe7: ; 74fe7 (1d:4fe7)
ld hl, VendingPrices
ld a, [$cc26]
add a
@@ -108663,7 +108765,7 @@
bit 6, [hl]
res 6, [hl]
push hl
- call nz, CinnabarGymScript_Unknown75772
+ call nz, CinnabarGymScript_75772
pop hl
bit 5, [hl]
res 5, [hl]
@@ -108671,7 +108773,7 @@
ld hl, $D79B
res 7, [hl]
ret
-CinnabarGymScript_Unknown75772: ; 75772 (1d:5772)
+CinnabarGymScript_75772: ; 75772 (1d:5772)
ld hl, Gym7CityName
ld de, Gym7LeaderName
jp LoadGymLeaderAndCityName
@@ -108681,7 +108783,7 @@
Gym7LeaderName: ; 7578b (1d:578b)
db "BLAINE@"
-Unknown_75792: ; 75792 (1d:5792)
+CinnabarGymScript_75792: ; 75792 (1d:5792)
xor a
ld [W_JOYPADFORBIDDENBUTTONSMASK], a
ld [W_CINNABARGYMCURSCRIPT], a
@@ -108689,7 +108791,7 @@
ld [$da38], a
ret
-Unknown_757a0: ; 757a0 (1d:57a0)
+CinnabarGymScript_757a0: ; 757a0 (1d:57a0)
ld a, [H_DOWNARROWBLINKCNT2] ; $FF00+$8c
ld [W_TRAINERHEADERFLAGBIT], a
ret
@@ -108739,7 +108841,7 @@
ld [$ff00+$8c], a
jp DisplayTextID
-Unknown_757f1: ; 757f1 (1d:57f1)
+Func_757f1: ; 757f1 (1d:57f1)
ld a, $10
jp Predef ; indirect jump to HandleBitArray (f666 (3:7666))
@@ -108746,13 +108848,13 @@
CinnabarGymScript2: ; 757f6 (1d:57f6)
ld a, [$d057]
cp $ff
- jp z, Unknown_75792
+ jp z, CinnabarGymScript_75792
ld a, [W_TRAINERHEADERFLAGBIT]
ld [$ff00+$db], a
ld c, a
ld b, $2
ld hl, $d79a
- call Unknown_757f1
+ call Func_757f1
ld a, c
and a
jr nz, .asm_7581b ; 0x7580e $b
@@ -108766,13 +108868,13 @@
ld c, a
ld b, $1
ld hl, $d79a
- call Unknown_757f1
+ call Func_757f1
ld a, [W_TRAINERHEADERFLAGBIT]
sub $2
ld c, a
ld b, $1
ld hl, $d79c
- call Unknown_757f1
+ call Func_757f1
call Func_3ead
xor a
ld [W_JOYPADFORBIDDENBUTTONSMASK], a
@@ -108785,7 +108887,7 @@
CinnabarGymScript3: ; 7584a (1d:584a)
ld a, [$d057]
cp $ff
- jp z, Unknown_75792
+ jp z, CinnabarGymScript_75792
ld a, $f0
ld [W_JOYPADFORBIDDENBUTTONSMASK], a
Unknown_75857: ; 75857 (1d:5857)
@@ -108819,7 +108921,7 @@
set 0, [hl]
ld hl, $d126
set 5, [hl]
- jp Unknown_75792
+ jp CinnabarGymScript_75792
CinnabarGymTextPointers: ; 7589f (1d:589f)
dw CinnabarGymText1
@@ -108909,7 +109011,7 @@
CinnabarGymText2: ; 75939 (1d:5939)
db $08 ; asm
- call Unknown_757a0
+ call CinnabarGymScript_757a0
ld a, [$d79a]
bit 2, a
jr nz, .asm_46bb4 ; 0x75942
@@ -108938,7 +109040,7 @@
CinnabarGymText3: ; 7596e (1d:596e)
db $08 ; asm
- call Unknown_757a0
+ call CinnabarGymScript_757a0
ld a, [$d79a]
bit 3, a
jr nz, .asm_4b406 ; 0x75977
@@ -108967,7 +109069,7 @@
CinnabarGymText4: ; 759a3 (1d:59a3)
db $08 ; asm
- call Unknown_757a0
+ call CinnabarGymScript_757a0
ld a, [$d79a]
bit 4, a
jr nz, .asm_c0673 ; 0x759ac
@@ -108996,7 +109098,7 @@
CinnabarGymText5: ; 759d8 (1d:59d8)
db $08 ; asm
- call Unknown_757a0
+ call CinnabarGymScript_757a0
ld a, [$d79a]
bit 5, a
jr nz, .asm_5cfd7 ; 0x759e1
@@ -109025,7 +109127,7 @@
CinnabarGymText6: ; 75a0d (1d:5a0d)
db $08 ; asm
- call Unknown_757a0
+ call CinnabarGymScript_757a0
ld a, [$d79a]
bit 6, a
jr nz, .asm_776b4 ; 0x75a16
@@ -109054,7 +109156,7 @@
CinnabarGymText7: ; 75a42 (1d:5a42)
db $08 ; asm
- call Unknown_757a0
+ call CinnabarGymScript_757a0
ld a, [$d79a]
bit 7, a
jr nz, .asm_2f755 ; 0x75a4b
@@ -109083,7 +109185,7 @@
CinnabarGymText8: ; 75a77 (1d:5a77)
db $08 ; asm
- call Unknown_757a0
+ call CinnabarGymScript_757a0
ld a, [$d79b]
bit 0, a
jr nz, .asm_d87be ; 0x75a80
@@ -109392,7 +109494,7 @@
dw Lab4Text1
dw Lab4Text2
-Unknown_75d38: ; 75d38 (1d:5d38)
+Func_75d38: ; 75d38 (1d:5d38)
xor a
ld [$cd37], a
ld de, $cc5b
@@ -109435,7 +109537,7 @@
jr nz, .asm_75d96 ; 0x75d72 $22
ld hl, UnnamedText_75dc6
call PrintText
- call Unknown_75d38
+ call Func_75d38
ld a, [$cd37]
and a
jr z, .asm_75d8d ; 0x75d81 $a
@@ -110586,7 +110688,7 @@
ld b, BANK(Func_73b3f)
ld hl, Func_73b3f
call Bankswitch
- call Unknown_765e5
+ call Func_765e5
pop bc
jr c, .second
ld hl, $CD41
@@ -110605,11 +110707,12 @@
call ClearScreen
call GoPAL_SET_CF1C
jp GBPalNormal
-Unknown_765e5: ; 765e5 (1d:65e5)
+
+Func_765e5: ; 765e5 (1d:65e5)
ld c, 6
.third
push bc
- call Unknown_76610
+ call Func_76610
call WaitForTextScrollButtonPress
ld a, [H_CURRENTPRESSEDBUTTONS]
bit 1, a
@@ -110630,8 +110733,9 @@
.fifth
pop bc
scf
- ret
-Unknown_76610: ; 76610 (1d:6610)
+ ret
+
+Func_76610: ; 76610 (1d:6610)
call GBPalWhiteOutWithDelay3
call ClearScreen
ld hl, $CC5B
@@ -127755,7 +127859,7 @@
db "You absolutely", $55
db "have to go!", $57
-_UnnamedText_19400: ; a4ac6 (29:4ac6)
+_PewterCityText13: ; a4ac6 (29:4ac6)
db $0, "It's right here!", $4f
db "You have to pay", $55
db "to get in, but", $55
--
⑨