Remove unused source files

This commit is contained in:
dannye 2016-06-06 03:22:40 -05:00
parent a070bdcb21
commit a33f356461
23 changed files with 43 additions and 795 deletions

View File

@ -746,7 +746,7 @@ INCLUDE "audio/music/yellowintro.asm"
SECTION "Music 4", ROMX, BANK[AUDIO_4]
INCLUDE "audio/music/surfingpikachu.asm"
INCLUDE "audio/music/yellowunusedsong.asm"
INCLUDE "audio/music/jessieandjames.asm"
INCLUDE "audio/music/meetjessiejames.asm"
INCBIN "audio/unknown_832b9.bin"

View File

@ -3,10 +3,10 @@ Music_SurfingPikachu::
dbw CH1, Music_SurfingPikachu_Ch2
dbw CH2, Music_SurfingPikachu_Ch3
Music_JessieAndJames::
dbw ((3 - 1) << 6) | CH0, Music_JessieAndJames_Ch1
dbw CH1, Music_JessieAndJames_Ch2
dbw CH2, Music_JessieAndJames_Ch3
Music_MeetJessieJames::
dbw ((3 - 1) << 6) | CH0, Music_MeetJessieJames_Ch1
dbw CH1, Music_MeetJessieJames_Ch2
dbw CH2, Music_MeetJessieJames_Ch3
Music_YellowUnusedSong::
dbw ((4 - 1) << 6) | CH0, Music_YellowUnusedSong_Ch1

View File

@ -1,303 +0,0 @@
Music_JessieAndJames_Ch1:
tempo 144
volume 7, 7
duty 3
vibrato 8, 1, 4
notetype 12, 11, 2
octave 3
G# 1
G_ 1
F# 2
F_ 2
E_ 2
D# 2
D_ 2
C# 2
C_ 2
notetype 12, 11, 6
D# 12
C_ 4
.loop
notetype 12, 11, 2
octave 4
D_ 16
rest 12
notetype 12, 11, 4
octave 3
A# 4
rest 16
rest 8
notetype 12, 11, 2
octave 2
A_ 2
octave 3
A# 2
A_ 4
D_ 1
D# 1
D# 2
D# 2
D_ 2
D# 2
D_ 2
D# 2
F_ 2
D_ 1
D# 1
D# 2
D# 2
D_ 2
octave 2
A# 4
notetype 12, 11, 4
octave 3
B_ 4
notetype 12, 11, 2
D_ 1
D# 1
D# 2
D# 2
D_ 2
D# 2
D_ 2
D# 2
F_ 2
D_ 1
D# 1
D# 2
D# 2
D_ 2
octave 2
A# 2
octave 3
B_ 2
notetype 12, 11, 4
A# 4
loopchannel 0, .loop
Music_JessieAndJames_Ch2:
duty 3
vibrato 6, 1, 5
notetype 12, 12, 2
octave 4
D_ 1
C# 1
C_ 2
octave 3
B_ 2
A# 2
A_ 2
G# 2
G_ 2
F# 2
notetype 12, 12, 7
A_ 12
octave 4
C# 4
.loop
notetype 12, 12, 2
octave 3
C# 1
D_ 1
D_ 2
D_ 2
C# 2
D_ 2
C# 2
D_ 2
E_ 2
C# 1
D_ 1
D_ 2
D_ 2
C# 2
octave 2
A_ 4
notetype 12, 12, 5
octave 4
C# 4
notetype 12, 12, 2
D_ 1
octave 3
D_ 1
D_ 2
D_ 2
C# 2
D_ 2
C# 2
D_ 2
E_ 2
C# 1
D_ 1
D_ 2
D_ 2
C# 2
notetype 12, 12, 6
octave 4
D_ 8
notetype 12, 12, 2
D# 6
F_ 4
D# 4
octave 3
A# 2
octave 4
D# 6
F_ 4
D# 2
notetype 12, 12, 5
D_ 4
notetype 12, 12, 2
D# 6
F_ 4
D# 4
octave 3
A# 2
octave 4
D# 4
F_ 4
notetype 12, 12, 5
D# 8
loopchannel 0, .loop
Music_JessieAndJames_Ch3:
notetype 12, 1, 0
rest 16
rest 8
octave 4
D_ 2
octave 3
A_ 2
octave 4
C_ 2
D# 2
.loop
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
A# 2
A_ 2
D# 2
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
A_ 1
rest 1
D_ 1
rest 1
octave 3
A_ 2
octave 4
C_ 2
D_ 2
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
octave 3
A# 1
rest 1
octave 4
C# 1
rest 1
E_ 1
rest 1
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
A# 1
rest 1
D# 1
rest 1
octave 3
A# 1
rest 1
octave 4
C# 1
rest 1
E_ 1
rest 1
loopchannel 0, .loop

View File

@ -1,45 +0,0 @@
SFX_80e91_4_Ch4:
executemusic
tempo 256
volume 7, 7
vibrato 6, 2, 6
duty 2
toggleperfectpitch
notetype 4, 11, 1
octave 3
G# 2
G# 2
G# 2
notetype 12, 11, 3
octave 4
E_ 4
endchannel
SFX_80ea8_4_Ch5:
executemusic
vibrato 8, 2, 7
duty 2
notetype 4, 12, 1
octave 4
E_ 2
E_ 2
E_ 2
notetype 12, 12, 3
B_ 4
endchannel
SFX_80eb8_4_Ch6:
executemusic
notetype 4, 1, 0
octave 4
B_ 1
rest 1
B_ 1
rest 1
B_ 1
rest 1
notetype 12, 1, 0
octave 4
B_ 2
rest 2
endchannel

Binary file not shown.

View File

@ -96,7 +96,7 @@ ENDM
; AUDIO_4
music_const MUSIC_SURFING_PIKACHU, Music_SurfingPikachu
music_const MUSIC_JESSIE_AND_JAMES, Music_JessieAndJames
music_const MUSIC_MEET_JESSIE_JAMES, Music_MeetJessieJames
music_const MUSIC_YELLOW_UNUSED_SONG, Music_YellowUnusedSong
music_const MUSIC_GB_PRINTER, Music_GBPrinter

View File

@ -1,18 +0,0 @@
TitleMons: ; 4588 (1:4588)
; mons on the title screen are randomly chosen from here
db CHARMANDER
db SQUIRTLE
db BULBASAUR
db WEEDLE
db NIDORAN_M
db SCYTHER
db PIKACHU
db CLEFAIRY
db RHYDON
db ABRA
db GASTLY
db DITTO
db PIDGEOTTO
db ONIX
db PONYTA
db MAGIKARP

View File

@ -1,44 +0,0 @@
EvolveTradeMon: ; 17d7d (5:7d7d)
; Verify the TradeMon's species name before
; attempting to initiate a trade evolution.
; The names of the trade evolutions in Blue (JP)
; are checked. In that version, TradeMons that
; can evolve are Graveler and Haunter.
; In localization, this check was translated
; before monster names were finalized.
; Then, Haunter's name was "Spectre".
; Since its name no longer starts with
; "SP", it is prevented from evolving.
; This may have been why Red/Green's trades
; were used instead, where none can evolve.
; This was fixed in Yellow.
ld a, [wInGameTradeReceiveMonName]
; GRAVELER
cp "G"
jr z, .ok
; "SPECTRE" (HAUNTER)
cp "S"
ret nz
ld a, [wInGameTradeReceiveMonName + 1]
cp "P"
ret nz
.ok
ld a, [wPartyCount]
dec a
ld [wWhichPokemon], a
ld a, $1
ld [wForceEvolution], a
ld a, LINK_STATE_TRADING
ld [wLinkState], a
callab TryEvolvingMon
xor a ; LINK_STATE_NONE
ld [wLinkState], a
jp PlayDefaultMusic

View File

@ -1,5 +1,5 @@
; returns whether the player is one tile outside the map in Z
IsPlayerJustOutsideMap: ; 128d8 (4:68d8)
IsPlayerJustOutsideMap: ; e876c (3a:476c)
ld a, [wYCoord]
ld b, a
ld a, [wCurMapHeight]

View File

@ -1,9 +1,15 @@
; this function temporarily makes the starters (and Ivysaur) seen
; so that the full Pokedex information gets displayed in Oak's lab
StarterDex: ; 5c0dc (17:40dc)
ld a, %01001011 ; set starter flags
ld [wPokedexOwned], a
predef ShowPokedexData
xor a ; unset starter flags
ld [wPokedexOwned], a
; updates the types of a party mon (pointed to in hl) to the ones of the mon specified in wd11e
SetPartyMonTypes: ; 5db93 (17:5b93)
call GetPredefRegisters
ld bc, wPartyMon1Type - wPartyMon1 ; $5
add hl, bc
ld a, [wd11e]
ld [wd0b5], a
push hl
call GetMonHeader
pop hl
ld a, [wMonHType1]
ld [hli], a
ld a, [wMonHType2]
ld [hl], a
ret

View File

@ -1,15 +0,0 @@
; updates the types of a party mon (pointed to in hl) to the ones of the mon specified in wd11e
SetPartyMonTypes: ; 5db5e (17:5b5e)
call GetPredefRegisters
ld bc, wPartyMon1Type - wPartyMon1 ; $5
add hl, bc
ld a, [wd11e]
ld [wd0b5], a
push hl
call GetMonHeader
pop hl
ld a, [wMonHType1]
ld [hli], a
ld a, [wMonHType2]
ld [hl], a
ret

View File

@ -1,25 +0,0 @@
UpdateSpriteFacingOffsetAndDelayMovement: ; 13074 (4:7074)
ld h, $c2
ld a, [H_CURRENTSPRITEOFFSET]
add $8
ld l, a
ld a, $7f ; maximum movement delay
ld [hl], a ; c2x8 (movement delay)
dec h
ld a, [H_CURRENTSPRITEOFFSET]
add $9
ld l, a
ld a, [hld] ; c1x9 (facing direction)
ld b, a
xor a
ld [hld], a
ld [hl], a ; c1x8 (walk animation frame)
ld a, [H_CURRENTSPRITEOFFSET]
add $2
ld l, a
ld a, [hl] ; c1x2 (facing and animation table offset)
or b ; or in the facing direction
ld [hld], a
ld a, $2 ; delayed movement status
ld [hl], a ; c1x1 (movement status)
ret

Binary file not shown.

Before

Width:  |  Height:  |  Size: 126 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.0 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 82 B

View File

@ -1665,20 +1665,7 @@ VictoryRoad1Blocks: INCBIN "maps/victoryroad1.blk"
INCLUDE "engine/evolution.asm"
SetPartyMonTypes::
call GetPredefRegisters
ld bc, 5
add hl, bc
ld a, [wd11e]
ld [wd0b5], a
push hl
call GetMonHeader
pop hl
ld a, [wMonHType1]
ld [hli], a
ld a, [wMonHType2]
ld [hl], a
ret
INCLUDE "engine/predefs17.asm"
INCLUDE "engine/hidden_object_functions17.asm"
@ -2154,21 +2141,8 @@ INCBIN "gfx/pikachu/unknown_e7d13.2bpp"
SECTION "bank3A",ROMX,BANK[$3A]
INCLUDE "text/monster_names.asm"
IsPlayerJustOutsideMap: ; e876c (3a:476c)
ld a, [wYCoord]
ld b, a
ld a, [wCurMapHeight]
call Func_e877e
ret z
ld a, [wXCoord]
ld b, a
ld a, [wCurMapWidth]
Func_e877e:
add a
cp b
ret z
inc b
ret
INCLUDE "engine/overworld/is_player_just_outside_map.asm"
INCLUDE "engine/printer.asm"
INCLUDE "engine/diploma_3a.asm"

View File

@ -225,8 +225,8 @@ MtMoon3Script_49e15:
cp $5
ret nz
call StopAllMusic
ld c, BANK(Music_JessieAndJames)
ld a, MUSIC_JESSIE_AND_JAMES
ld c, BANK(Music_MeetJessieJames)
ld a, MUSIC_MEET_JESSIE_JAMES
call PlayMusic
xor a
ld [hJoyHeld], a
@ -361,8 +361,8 @@ MtMoon3Script13:
xor a
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
call StopAllMusic
ld c, BANK(Music_JessieAndJames)
ld a, MUSIC_JESSIE_AND_JAMES
ld c, BANK(Music_MeetJessieJames)
ld a, MUSIC_MEET_JESSIE_JAMES
call PlayMusic
ld a, $ff
ld [wJoyIgnore], a

View File

@ -45,8 +45,8 @@ PokemonTower7Script_60d2a:
SetEvent EVENT_BEAT_POKEMONTOWER_7_TRAINER_1
.asm_60d47
call StopAllMusic
ld c, BANK(Music_JessieAndJames)
ld a, MUSIC_JESSIE_AND_JAMES
ld c, BANK(Music_MeetJessieJames)
ld a, MUSIC_MEET_JESSIE_JAMES
call PlayMusic
xor a
ld [hJoyHeld], a
@ -182,8 +182,8 @@ PokemonTower7Script8:
xor a
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
call StopAllMusic
ld c, BANK(Music_JessieAndJames)
ld a, MUSIC_JESSIE_AND_JAMES
ld c, BANK(Music_MeetJessieJames)
ld a, MUSIC_MEET_JESSIE_JAMES
call PlayMusic
ld a, $ff
ld [wJoyIgnore], a

View File

@ -93,8 +93,8 @@ RocketHideout4Script_455a5:
ld a, $fc
ld [wJoyIgnore], a
call StopAllMusic
ld c, BANK(Music_JessieAndJames)
ld a, MUSIC_JESSIE_AND_JAMES
ld c, BANK(Music_MeetJessieJames)
ld a, MUSIC_MEET_JESSIE_JAMES
call PlayMusic
call UpdateSprites
call Delay3
@ -237,8 +237,8 @@ RocketHideout4Script11:
xor a
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
call StopAllMusic
ld c, BANK(Music_JessieAndJames)
ld a, MUSIC_JESSIE_AND_JAMES
ld c, BANK(Music_MeetJessieJames)
ld a, MUSIC_MEET_JESSIE_JAMES
call PlayMusic
ld a, $ff
ld [wJoyIgnore], a

View File

@ -1,255 +0,0 @@
.xf1f77
ld hl,.ForJust500Text
call PrintText
ld a,MONEY_BOX
ld [wTextBoxID],a
call DisplayTextBoxID
call YesNoChoice
ld a,[wCurrentMenuItem]
and a
jp nz,.PleaseComeAgain
ld hl,$d346 ; yellow d346
ld a,[hli]
or [hl]
inc hl
or [hl]
jr nz,.xf1f9f
.xf1f98
call .xf20ce
jr c,.CantPayWalkDown
jr .xf1ff2
.xf1f9f
xor a
ld [hMoney],a
ld a,$05
ld [hMoney + 1],a
ld a,$00
ld [hMoney + 2],a
call HasEnoughMoney
jr nc,.success
ld hl,.NotEnoughMoneyText
call PrintText
call .xf2077
jr c,.CantPayWalkDown
jr .xf1ff2
.success
xor a
ld [wPriceTemp],a
ld a,$05
ld [wPriceTemp + 1],a
ld a,$00
ld [wPriceTemp + 2],a
ld hl,wPriceTemp + 2
ld de,wPlayerMoney + 2
ld c,3
predef SubBCDPredef
ld a,$b2
call $3736
call $373e
ld a,MONEY_BOX
ld [wTextBoxID],a
call DisplayTextBoxID
ld hl,.MakePaymentText
call PrintText
ld a,30
lb hl, (502 / $100), (502 % $100)
.xf1ff2
ld [wNumSafariBalls],a
ld a,h
ld [wSafariSteps],a
ld a,l
ld [wSafariSteps + 1],a
ld a,D_UP
ld c,3
call SafariZoneEntranceAutoWalk
SetEvent EVENT_IN_SAFARI_ZONE
ResetEventReuseHL EVENT_SAFARI_GAME_OVER
ld a,3
ld [wSafariZoneEntranceCurScript],a
jr .done
.PleaseComeAgain
ld hl,.PleaseComeAgainText
call PrintText
.CantPayWalkDown
ld a,D_DOWN
ld c,1
call SafariZoneEntranceAutoWalk
ld a,4
ld [wSafariZoneEntranceCurScript],a
.done
ret
.ForJust500Text
TX_FAR SafariZoneEntranceText_9e6e4
db "@"
.MakePaymentText
TX_FAR SafariZoneEntranceText_9e747
db $b
TX_FAR _SafariZoneEntranceText_75360
db "@"
.PleaseComeAgainText
TX_FAR _SafariZoneEntranceText_75365
db "@"
.NotEnoughMoneyText
TX_FAR _SafariZoneEntranceText_7536a
db "@"
.SafariZoneEntranceText2
ld hl,.FirstTimeQuestionText
call PrintText
call YesNoChoice
ld a,[wCurrentMenuItem]
and a
ld hl,.RegularText
jr nz,.Explanation
ld hl,.ExplanationText
.Explanation
call PrintText
ret
.FirstTimeQuestionText
TX_FAR _SafariZoneEntranceText_753e6
db "@"
.ExplanationText
TX_FAR _SafariZoneEntranceText_753eb
db "@"
.RegularText
TX_FAR _SafariZoneEntranceText_753f0
db "@"
SafariZoneEntranceAutoWalk:
push af
ld b,0
ld a,c
ld [wSimulatedJoypadStatesIndex],a
ld hl,wSimulatedJoypadStatesEnd
pop af
call FillMemory
jp StartSimulatingJoypadStates
.xf2077
ld hl,wPlayerMoney
ld de,$ff9f
ld bc,3
call $b1 ; yellow $00b1
xor a
ld [$ffa2],a
ld [$ffa3],a
ld a,$17 ; ¥17 per safari ball
ld [$ffa4],a
predef DivideBCDPredef3
ld a,[$ffa4]
call .xf211e
pop af
ld hl,$d346
xor a
ld bc,3
call FillMemory
ld hl,.OhAllRightText
call PrintText_NoCreatingTextBox
ld a,MONEY_BOX
ld a,[$d124]
call DisplayTextBoxID
ld hl,.CantGive30BallsText
call PrintText
pop af
inc a
jr z,.xf20bd
cp 29
jr c,.xf20bf
.xf20bd
ld a,29
.xf20bf
ld hl,$1f6
and a
ret
.OhAllRightText
TX_FAR _SafariZoneLowCostText1
db "@"
.CantGive30BallsText
TX_FAR _SafariZoneLowCostText2
db "@"
.xf20ce
ld hl,$d70c
ld a,[hl]
push af
inc [hl]
ld e,a
ld d,0
ld hl,.lowcosttextpointers
add hl,de
add hl,de
ld a,[hli]
ld h,[hl]
ld l,a
call PrintText
pop af
cp 3
jr z,.next
scf
ret
.next
ld hl,.xf20f6
call $3c46
ld a,1
ld hl,$01f6
and a
ret
.xf20f6
TX_FAR _SafariZoneLowCostText3
db $b
TX_FAR _SafariZoneLowCostText4
db "@"
.lowcosttextpointers
dw .xf210a
dw .xf210f
dw .xf2114
dw .xf2119
dw .xf2119
.xf210a
TX_FAR _SafariZoneLowCostText5
db "@"
.xf210f
TX_FAR _SafariZoneLowCostText6
db "@"
.xf2114
TX_FAR _SafariZoneLowCostText7
db "@"
.xf2119
TX_FAR _SafariZoneLowCostText8
db "@"
.xf211e
push hl
ld c,a
and $f
ld l,a
ld h,0
ld a,c
and $f0
swap a
ld bc,$a
call $3a74
ld a,l
pop hl
ret
.xf2133

View File

@ -62,7 +62,7 @@ Func_f1f77:
ld [wSafariSteps + 1], a
ld a, D_UP
ld c, 3
call SafariZoneEntranceStartSimulatiingJoypadStates
call SafariZoneEntranceStartSimulatingJoypadStates
SetEvent EVENT_IN_SAFARI_ZONE
ResetEventReuseHL EVENT_SAFARI_GAME_OVER
ld a, $3
@ -74,7 +74,7 @@ Func_f1f77:
.deny_entry
ld a, D_DOWN
ld c, 1
call SafariZoneEntranceStartSimulatiingJoypadStates
call SafariZoneEntranceStartSimulatingJoypadStates
ld a, $4
ld [wSafariZoneEntranceCurScript], a
.asm_f2024
@ -123,7 +123,7 @@ Func_f203e:
TX_FAR _SafariZoneEntranceText_753f0
db "@"
SafariZoneEntranceStartSimulatiingJoypadStates:
SafariZoneEntranceStartSimulatingJoypadStates:
push af
ld b, $0
ld a, c

View File

@ -229,8 +229,8 @@ SilphCo11Script_6229c:
SetEventReuseHL EVENT_781
.asm_622c3
call StopAllMusic
ld c, BANK(Music_JessieAndJames)
ld a, MUSIC_JESSIE_AND_JAMES
ld c, BANK(Music_MeetJessieJames)
ld a, MUSIC_MEET_JESSIE_JAMES
call PlayMusic
xor a
ld [hJoyHeld], a
@ -417,8 +417,8 @@ SilphCo11Script12:
xor a
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
call StopAllMusic
ld c, BANK(Music_JessieAndJames)
ld a, MUSIC_JESSIE_AND_JAMES
ld c, BANK(Music_MeetJessieJames)
ld a, MUSIC_MEET_JESSIE_JAMES
call PlayMusic
ld a, $ff
ld [wJoyIgnore], a

View File

@ -1,27 +0,0 @@
_KogaBeforeBattleText:: ; 9e9b1 (27:69b1)
text "KOGA: Fwahahaha!"
para "A mere child like"
line "you dares to"
cont "challenge me?"
para "Very well, I"
line "shall show you"
cont "true terror as a"
cont "ninja master!"
para "You shall feel"
line "the despair of"
cont "poison and sleep"
cont "techniques!"
done
_KogaAfterBattleText:: ; 9ea66 (27:6a66)
text "Humph!"
line "You have proven"
cont "your worth!"
para "Here! Take the"
line "SOULBADGE!"
prompt