ref: ef93cdf3133f8773cc2b0064489f4f1f390cb3e1
parent: 1795b9fbae593a6da5c1723d50787871ab698faf
author: IIMarckus <[email protected]>
date: Thu Oct 25 10:43:04 EDT 2012
Improve labels for Elm’s lab.
--- a/main.asm
+++ b/main.asm
@@ -45211,18 +45211,18 @@
end
; 0x78be0
-UnknownScript_0x78be0: ; 0x78be0
+ProfElmScript: ; 0x78be0
faceplayer
loadfont
checkbit1 $0024
iftrue UnknownScript_0x78bee
checkbit1 $0044
- iftrue UnknownScript_0x78e2f
+ iftrue ElmGiveTicketScript
UnknownScript_0x78bee: ; 0x78bee
checkbit1 $007c
iftrue UnknownScript_0x78bfa
checkbit2 $0022
- iftrue UnknownScript_0x78e1c
+ iftrue ElmGiveMasterBallScript
UnknownScript_0x78bfa: ; 0x78bfa
checkbit1 $0056
iftrue UnknownScript_0x78e16
@@ -45232,10 +45232,10 @@
iffalse UnknownScript_0x78c35
writebyte TOGEPI
special $0043
- iftrue UnknownScript_0x78dee
+ iftrue ShowElmTogepiScript
writebyte TOGETIC
special $0043
- iftrue UnknownScript_0x78dee
+ iftrue ShowElmTogepiScript
2writetext UnknownText_0x79a40
closetext
loadmovesprites
@@ -45245,10 +45245,10 @@
UnknownScript_0x78c22: ; 0x78c22
writebyte TOGEPI
special $0043
- iftrue UnknownScript_0x78dee
+ iftrue ShowElmTogepiScript
writebyte TOGETIC
special $0043
- iftrue UnknownScript_0x78dee
+ iftrue ShowElmTogepiScript
2jump UnknownScript_0x78c41
; 0x78c35
@@ -45259,15 +45259,15 @@
iftrue UnknownScript_0x78c22
UnknownScript_0x78c41: ; 0x78c41
checkbit1 $002d ; why are we checking it again?
- iftrue UnknownScript_0x78de8
+ iftrue ElmWaitingEggHatchScript
checkbit2 $001b
- iftrue UnknownScript_0x78de2
+ iftrue ElmAideHasEggScript
checkbit1 $001f
- iftrue UnknownScript_0x78ddc
+ iftrue ElmStudyingEggScript
checkbit1 $001e
- iftrue UnknownScript_0x78da2
+ iftrue ElmAfterTheftScript
checkbit1 $001a
- iftrue UnknownScript_0x78d67
+ iftrue ElmDescribesMrPokemonScript
2writetext UnknownText_0x79375
closetext
loadmovesprites
@@ -45274,10 +45274,10 @@
end
; 0x78c65
-UnknownScript_0x78c65: ; 0x78c65
+LabTryToLeaveScript: ; 0x78c65
spriteface $2, $0
loadfont
- 2writetext UnknownText_0x793a7
+ 2writetext LabWhereGoingText
closetext
loadmovesprites
applymovement $0, MovementData_0x78f70
@@ -45284,9 +45284,9 @@
end
; 0x78c73
-UnknownScript_0x78c73: ; 0x78c73
+CyndaquilPokeBallScript: ; 0x78c73
checkbit1 $001a
- iftrue UnknownScript_0x78d6d
+ iftrue LookAtElmPokeBallScript
spriteface $2, $0
refreshscreen $0
pokepic CYNDAQUIL
@@ -45294,16 +45294,16 @@
closetext
pokepicyesorno
loadfont
- 2writetext UnknownText_0x793c8
+ 2writetext TakeCyndaquilText
yesorno
- iffalse UnknownScript_0x78d2d
+ iffalse DidntChooseStarterScript
disappear $4
setbit1 $001b
- 2writetext UnknownText_0x79487
+ 2writetext ChoseStarterText
keeptextopen
waitbutton
pokenamemem CYNDAQUIL, $0
- 2writetext UnknownText_0x794ad
+ 2writetext ReceivedStarterText
playsound $0002
waitbutton
keeptextopen
@@ -45310,14 +45310,14 @@
givepoke CYNDAQUIL, 5, BERRY, 0
loadmovesprites
checkcode $9
- if_equal $3, UnknownScript_0x78d33
- applymovement $0, MovementData_0x78fa7
- 2jump UnknownScript_0x78d33
+ if_equal $3, ElmDirectionsScript
+ applymovement $0, AfterCyndaquilMovement
+ 2jump ElmDirectionsScript
; 0x78cb5
-UnknownScript_0x78cb5: ; 0x78cb5
+TotodilePokeBallScript: ; 0x78cb5
checkbit1 $001a
- iftrue UnknownScript_0x78d6d
+ iftrue LookAtElmPokeBallScript
spriteface $2, $0
refreshscreen $0
pokepic TOTODILE
@@ -45325,28 +45325,28 @@
closetext
pokepicyesorno
loadfont
- 2writetext UnknownText_0x793f3
+ 2writetext TakeTotodileText
yesorno
- iffalse UnknownScript_0x78d2d
+ iffalse DidntChooseStarterScript
disappear $5
setbit1 $001c
- 2writetext UnknownText_0x79487
+ 2writetext ChoseStarterText
keeptextopen
waitbutton
pokenamemem TOTODILE, $0
- 2writetext UnknownText_0x794ad
+ 2writetext ReceivedStarterText
playsound $0002
waitbutton
keeptextopen
givepoke TOTODILE, 5, BERRY, 0
loadmovesprites
- applymovement $0, MovementData_0x78fab
- 2jump UnknownScript_0x78d33
+ applymovement $0, AfterTotodileMovement
+ 2jump ElmDirectionsScript
; 0x78cf1
-UnknownScript_0x78cf1: ; 0x78cf1
+ChikoritaPokeBallScript: ; 0x78cf1
checkbit1 $001a
- iftrue UnknownScript_0x78d6d
+ iftrue LookAtElmPokeBallScript
spriteface $2, $0
refreshscreen $0
pokepic CHIKORITA
@@ -45354,41 +45354,41 @@
closetext
pokepicyesorno
loadfont
- 2writetext UnknownText_0x7941f
+ 2writetext TakeChikoritaText
yesorno
- iffalse UnknownScript_0x78d2d
+ iffalse DidntChooseStarterScript
disappear $6
setbit1 $001d
- 2writetext UnknownText_0x79487
+ 2writetext ChoseStarterText
keeptextopen
waitbutton
pokenamemem CHIKORITA, $0
- 2writetext UnknownText_0x794ad
+ 2writetext ReceivedStarterText
playsound $0002
waitbutton
keeptextopen
givepoke CHIKORITA, 5, BERRY, 0
loadmovesprites
- applymovement $0, MovementData_0x78fb0
- 2jump UnknownScript_0x78d33
+ applymovement $0, AfterChikoritaMovement
+ 2jump ElmDirectionsScript
; 0x78d2d
-UnknownScript_0x78d2d: ; 0x78d2d
- 2writetext UnknownText_0x7944d
+DidntChooseStarterScript: ; 0x78d2d
+ 2writetext DidntChooseStarterText
closetext
loadmovesprites
end
; 0x78d33
-UnknownScript_0x78d33: ; 0x78d33
+ElmDirectionsScript: ; 0x78d33
spriteface $0, $1
loadfont
- 2writetext UnknownText_0x794c0
+ 2writetext ElmDirectionsText1
closetext
loadmovesprites
addcellnum $4
loadfont
- 2writetext UnknownText_0x795f3
+ 2writetext GotElmsNumberText
playsound $0093
waitbutton
closetext
@@ -45395,12 +45395,12 @@
loadmovesprites
spriteface $2, $2
loadfont
- 2writetext UnknownText_0x79581
+ 2writetext ElmDirectionsText2
closetext
loadmovesprites
spriteface $2, $0
loadfont
- 2writetext UnknownText_0x795db
+ 2writetext ElmDirectionsText3
closetext
loadmovesprites
setbit1 $001a
@@ -45410,16 +45410,16 @@
end
; 0x78d67
-UnknownScript_0x78d67: ; 0x78d67
- 2writetext UnknownText_0x7960d
+ElmDescribesMrPokemonScript: ; 0x78d67
+ 2writetext ElmDescribesMrPokemonText
closetext
loadmovesprites
end
; 0x78d6d
-UnknownScript_0x78d6d: ; 0x78d6d
+LookAtElmPokeBallScript: ; 0x78d6d
loadfont
- 2writetext UnknownText_0x79668
+ 2writetext ElmPokeBallText
closetext
loadmovesprites
end
@@ -45455,27 +45455,27 @@
end
; 0x78d9f
-UnknownScript_0x78d9f: ; 0x78d9f
+ElmAfterTheftDoneScript: ; 0x78d9f
closetext
loadmovesprites
end
; 0x78da2
-UnknownScript_0x78da2: ; 0x78da2
- 2writetext UnknownText_0x796cd
+ElmAfterTheftScript: ; 0x78da2
+ 2writetext ElmAfterTheftText1
checkitem MYSTERY_EGG
- iffalse UnknownScript_0x78d9f
+ iffalse ElmAfterTheftDoneScript
keeptextopen
- 2writetext UnknownText_0x79712
+ 2writetext ElmAfterTheftText2
closetext
takeitem MYSTERY_EGG, 1
- 2call UnknownScript_0x78e3f
- 2writetext UnknownText_0x79739
+ 2call ElmJumpBackScript1
+ 2writetext ElmAfterTheftText3
closetext
- 2call UnknownScript_0x78e53
- 2writetext UnknownText_0x79745
+ 2call ElmJumpBackScript2
+ 2writetext ElmAfterTheftText4
keeptextopen
- 2writetext UnknownText_0x79780
+ 2writetext ElmAfterTheftText5
keeptextopen
setbit1 $001f
setbit2 $0010
@@ -45482,7 +45482,7 @@
domaptrigger GROUP_ROUTE_29, MAP_ROUTE_29, $1
clearbit1 $0715
setbit1 $0714
- 2writetext UnknownText_0x798cf
+ 2writetext ElmAfterTheftText6
closetext
loadmovesprites
dotrigger $6
@@ -45489,44 +45489,44 @@
end
; 0x78ddc
-UnknownScript_0x78ddc: ; 0x78ddc
- 2writetext UnknownText_0x7993c
+ElmStudyingEggScript: ; 0x78ddc
+ 2writetext ElmStudyingEggText
closetext
loadmovesprites
end
; 0x78de2
-UnknownScript_0x78de2: ; 0x78de2
- 2writetext UnknownText_0x7997d
+ElmAideHasEggScript: ; 0x78de2
+ 2writetext ElmAideHasEggText
closetext
loadmovesprites
end
; 0x78de8
-UnknownScript_0x78de8: ; 0x78de8
- 2writetext UnknownText_0x79a1b
+ElmWaitingEggHatchScript: ; 0x78de8
+ 2writetext ElmWaitingEggHatchText
closetext
loadmovesprites
end
; 0x78dee
-UnknownScript_0x78dee: ; 0x78dee
- 2writetext UnknownText_0x79a72
+ShowElmTogepiScript: ; 0x78dee
+ 2writetext ShowElmTogepiText1
closetext
loadmovesprites
showemote $0, $2, 15
setbit1 $0055
loadfont
- 2writetext UnknownText_0x79a8b
+ 2writetext ShowElmTogepiText2
keeptextopen
- 2writetext UnknownText_0x79a9f
+ 2writetext ShowElmTogepiText3
keeptextopen
UnknownScript_0x78e03: ; 0x78e03
- 2writetext UnknownText_0x79b1c
+ 2writetext ElmGiveEverstoneText1
keeptextopen
verbosegiveitem EVERSTONE, 1
iffalse UnknownScript_0x78e1a
- 2writetext UnknownText_0x79b8d
+ 2writetext ElmGiveEverstoneText2
closetext
loadmovesprites
setbit1 $0056
@@ -45541,31 +45541,31 @@
end
; 0x78e1c
-UnknownScript_0x78e1c: ; 0x78e1c
- 2writetext UnknownText_0x79cd0
+ElmGiveMasterBallScript: ; 0x78e1c
+ 2writetext ElmGiveMasterBallText1
keeptextopen
verbosegiveitem MASTER_BALL, 1
- iffalse UnknownScript_0x78e2d
+ iffalse .notdone
setbit1 $007c
- 2writetext UnknownText_0x79d31
+ 2writetext ElmGiveMasterBallText2
closetext
-UnknownScript_0x78e2d: ; 0x78e2d
+.notdone
loadmovesprites
end
; 0x78e2f
-UnknownScript_0x78e2f: ; 0x78e2f
- 2writetext UnknownText_0x79df3
+ElmGiveTicketScript: ; 0x78e2f
+ 2writetext ElmGiveTicketText1
keeptextopen
verbosegiveitem S_S_TICKET, 1
setbit1 $0024
- 2writetext UnknownText_0x79e6f
+ 2writetext ElmGiveTicketText2
closetext
loadmovesprites
end
; 0x78e3f
-UnknownScript_0x78e3f: ; 0x78e3f
+ElmJumpBackScript1: ; 0x78e3f
loadmovesprites
checkcode $9
if_equal $0, UnknownScript_0x78e6d
@@ -45575,7 +45575,7 @@
end
; 0x78e53
-UnknownScript_0x78e53: ; 0x78e53
+ElmJumpBackScript2: ; 0x78e53
loadmovesprites
checkcode $9
if_equal $0, UnknownScript_0x78e67
@@ -45673,7 +45673,7 @@
end
; 0x78ee6
-UnknownScript_0x78ee6: ; 0x78ee6
+ElmsAideScript: ; 0x78ee6
faceplayer
loadfont
checkbit1 $002d
@@ -45713,7 +45713,7 @@
applymovement $0, MovementData_0x78f72
; 0x78f16
-UnknownScript_0x78f16: ; 0x78f16
+MeetCopScript: ; 0x78f16
applymovement $0, MovementData_0x78f74
spriteface $7, $2
loadfont
@@ -45893,7 +45893,7 @@
step_end
; 0x78fa7
-MovementData_0x78fa7: ; 0x78fa7
+AfterCyndaquilMovement: ; 0x78fa7
step_left
step_up
turn_head_up
@@ -45900,7 +45900,7 @@
step_end
; 0x78fab
-MovementData_0x78fab: ; 0x78fab
+AfterTotodileMovement: ; 0x78fab
step_left
step_left
step_up
@@ -45908,7 +45908,7 @@
step_end
; 0x78fb0
-MovementData_0x78fb0: ; 0x78fb0
+AfterChikoritaMovement: ; 0x78fb0
step_left
step_left
step_left
@@ -46014,30 +46014,30 @@
db "#MON battle it!", $57
; 0x793a7
-UnknownText_0x793a7: ; 0x793a7
+LabWhereGoingText: ; 0x793a7
db $0, "ELM: Wait! Where", $4f
db "are you going?", $57
; 0x793c8
-UnknownText_0x793c8: ; 0x793c8
+TakeCyndaquilText: ; 0x793c8
db $0, "ELM: You'll take", $4f
db "CYNDAQUIL, the", $55
db "fire #MON?", $57
; 0x793f3
-UnknownText_0x793f3: ; 0x793f3
+TakeTotodileText: ; 0x793f3
db $0, "ELM: Do you want", $4f
db "TOTODILE, the", $55
db "water #MON?", $57
; 0x7941f
-UnknownText_0x7941f: ; 0x7941f
+TakeChikoritaText: ; 0x7941f
db $0, "ELM: So, you like", $4f
db "CHIKORITA, the", $55
db "grass #MON?", $57
; 0x7944d
-UnknownText_0x7944d: ; 0x7944d
+DidntChooseStarterText: ; 0x7944d
db $0, "ELM: Think it over", $4f
db "carefully.", $51
db "Your partner is", $4f
@@ -46044,13 +46044,13 @@
db "important.", $57
; 0x79487
-UnknownText_0x79487: ; 0x79487
+ChoseStarterText: ; 0x79487
db $0, "ELM: I think", $4f
db "that's a great", $55
db "#MON too!", $57
; 0x794ad
-UnknownText_0x794ad: ; 0x794ad
+ReceivedStarterText: ; 0x794ad
db $0, $52, " received", $4f
db "@"
text_from_ram $d099
@@ -46057,7 +46057,7 @@
db $0, "!", $57
; 0x794c0
-UnknownText_0x794c0: ; 0x794c0
+ElmDirectionsText1: ; 0x794c0
db $0, "MR.#MON lives a", $4f
db "little bit beyond", $51
db "CHERRYGROVE, the", $4f
@@ -46072,7 +46072,7 @@
db "anything comes up!", $57
; 0x79581
-UnknownText_0x79581: ; 0x79581
+ElmDirectionsText2: ; 0x79581
db $0, "If your #MON is", $4f
db "hurt, you should", $51
db "heal it with this", $4f
@@ -46081,17 +46081,17 @@
db "it anytime.", $57
; 0x795db
-UnknownText_0x795db: ; 0x795db
+ElmDirectionsText3: ; 0x795db
db $0, $14, ", I'm", $4f
db "counting on you!", $57
; 0x795f3
-UnknownText_0x795f3: ; 0x795f3
+GotElmsNumberText: ; 0x795f3
db $0, $52, " got ELM's", $4f
db "phone number.", $57
; 0x7960d
-UnknownText_0x7960d: ; 0x7960d
+ElmDescribesMrPokemonText: ; 0x7960d
db $0, "MR.#MON goes", $4f
db "everywhere and", $55
db "finds rarities.", $51
@@ -46100,7 +46100,7 @@
db "not very useful…", $57
; 0x79668
-UnknownText_0x79668: ; 0x79668
+ElmPokeBallText: ; 0x79668
db $0, "It contains a", $4f
db "#MON caught by", $55
db "PROF.ELM.", $57
@@ -46116,7 +46116,7 @@
db "heal your #MON?", $57
; 0x796cd
-UnknownText_0x796cd: ; 0x796cd
+ElmAfterTheftText1: ; 0x796cd
db $0, "ELM: ", $14, ", this", $4f
db "is terrible…", $51
db "Oh, yes, what was", $4f
@@ -46124,17 +46124,17 @@
db "discovery?", $57
; 0x79712
-UnknownText_0x79712: ; 0x79712
+ElmAfterTheftText2: ; 0x79712
db $0, $52, " handed", $4f
db "the MYSTERY EGG to", $55
db "PROF.ELM.", $57
; 0x79739
-UnknownText_0x79739: ; 0x79739
+ElmAfterTheftText3: ; 0x79739
db $0, "ELM: This?", $57
; 0x79745
-UnknownText_0x79745: ; 0x79745
+ElmAfterTheftText4: ; 0x79745
db $0, "But… Is it a", $4f
db "#MON EGG?", $51
db "If it is, it is a", $4f
@@ -46141,7 +46141,7 @@
db "great discovery!", $57
; 0x79780
-UnknownText_0x79780: ; 0x79780
+ElmAfterTheftText5: ; 0x79780
db $0, "ELM: What?!?", $51
db "PROF.OAK gave you", $4f
db "a #DEX?", $51
@@ -46167,7 +46167,7 @@
db "in VIOLET CITY.", $57
; 0x798cf
-UnknownText_0x798cf: ; 0x798cf
+ElmAfterTheftText6: ; 0x798cf
db $0, "…", $14, ". The", $4f
db "road to the", $51
db "championship will", $4f
@@ -46177,7 +46177,7 @@
db "talk to your mom.", $57
; 0x7993c
-UnknownText_0x7993c: ; 0x7993c
+ElmStudyingEggText: ; 0x7993c
db $0, "ELM: Don't give", $4f
db "up! I'll call if", $51
db "I learn anything", $4f
@@ -46184,7 +46184,7 @@
db "about that EGG!", $57
; 0x7997d
-UnknownText_0x7997d: ; 0x7997d
+ElmAideHasEggText: ; 0x7997d
db $0, "ELM: ", $14, "?", $4f
db "Didn't you meet my", $55
db "assistant?", $51
@@ -46197,7 +46197,7 @@
db "catch him there.", $57
; 0x79a1b
-UnknownText_0x79a1b: ; 0x79a1b
+ElmWaitingEggHatchText: ; 0x79a1b
db $0, "ELM: Hey, has that", $4f
db "EGG changed any?", $57
; 0x79a40
@@ -46209,17 +46209,17 @@
db "#MON?", $57
; 0x79a72
-UnknownText_0x79a72: ; 0x79a72
+ShowElmTogepiText1: ; 0x79a72
db $0, "ELM: ", $14, ", you", $4f
db "look great!", $57
; 0x79a8b
-UnknownText_0x79a8b: ; 0x79a8b
+ShowElmTogepiText2: ; 0x79a8b
db $0, "What?", $4f
db "That #MON!?!", $57
; 0x79a9f
-UnknownText_0x79a9f: ; 0x79a9f
+ShowElmTogepiText3: ; 0x79a9f
db $0, "The EGG hatched!", $4f
db "So, #MON are", $55
db "born from EGGS…", $51
@@ -46230,7 +46230,7 @@
db "to be done.", $57
; 0x79b1c
-UnknownText_0x79b1c: ; 0x79b1c
+ElmGiveEverstoneText1: ; 0x79b1c
db $0, "Thanks, ", $14, "!", $4f
db "You're helping", $51
db "unravel #MON", $4f
@@ -46240,7 +46240,7 @@
db "our appreciation.", $57
; 0x79b8d
-UnknownText_0x79b8d: ; 0x79b8d
+ElmGiveEverstoneText2: ; 0x79b8d
db $0, "That's an", $4f
db "EVERSTONE.", $51
db "Some species of", $4f
@@ -46272,7 +46272,7 @@
db "itself.", $57
; 0x79cd0
-UnknownText_0x79cd0: ; 0x79cd0
+ElmGiveMasterBallText1: ; 0x79cd0
db $0, "ELM: Hi, ", $14, "!", $4f
db "Thanks to you, my", $51
db "research is going", $4f
@@ -46282,7 +46282,7 @@
db "appreciation.", $57
; 0x79d31
-UnknownText_0x79d31: ; 0x79d31
+ElmGiveMasterBallText2: ; 0x79d31
db $0, "The MASTER BALL is", $4f
db "the best!", $51
db "It's the ultimate", $4f
@@ -46298,7 +46298,7 @@
db "can, ", $14, "!", $57
; 0x79df3
-UnknownText_0x79df3: ; 0x79df3
+ElmGiveTicketText1: ; 0x79df3
db $0, "ELM: ", $14, "!", $4f
db "There you are!", $51
db "I called because I", $4f
@@ -46310,7 +46310,7 @@
db "#MON in KANTO.", $57
; 0x79e6f
-UnknownText_0x79e6f: ; 0x79e6f
+ElmGiveTicketText2: ; 0x79e6f
db $0, "The ship departs", $4f
db "from OLIVINE CITY.", $51
db "But you knew that", $4f
@@ -46467,9 +46467,9 @@
; xy triggers
db 8
- xy_trigger 1, $6, $4, $0, UnknownScript_0x78c65, $0, $0
- xy_trigger 1, $6, $5, $0, UnknownScript_0x78c65, $0, $0
- xy_trigger 3, $5, $4, $0, UnknownScript_0x78f16, $0, $0
+ xy_trigger 1, $6, $4, $0, LabTryToLeaveScript, $0, $0
+ xy_trigger 1, $6, $5, $0, LabTryToLeaveScript, $0, $0
+ xy_trigger 3, $5, $4, $0, MeetCopScript, $0, $0
xy_trigger 3, $5, $5, $0, UnknownScript_0x78f12, $0, $0
xy_trigger 5, $8, $4, $0, UnknownScript_0x78e7f, $0, $0
xy_trigger 5, $8, $5, $0, UnknownScript_0x78e8e, $0, $0
@@ -46497,11 +46497,11 @@
; people-events
db 6
- person_event $10, 6, 9, $6, $0, 255, 255, $0, 0, UnknownScript_0x78be0, $ffff
- person_event $3c, 13, 6, $3, $0, 255, 255, $90, 0, UnknownScript_0x78ee6, $0701
- person_event $54, 7, 10, $1, $0, 255, 255, $0, 0, UnknownScript_0x78c73, $0640
- person_event $54, 7, 11, $1, $0, 255, 255, $0, 0, UnknownScript_0x78cb5, $0641
- person_event $54, 7, 12, $1, $0, 255, 255, $0, 0, UnknownScript_0x78cf1, $0642
+ person_event $10, 6, 9, $6, $0, 255, 255, $0, 0, ProfElmScript, $ffff
+ person_event $3c, 13, 6, $3, $0, 255, 255, $90, 0, ElmsAideScript, $0701
+ person_event $54, 7, 10, $1, $0, 255, 255, $0, 0, CyndaquilPokeBallScript, $0640
+ person_event $54, 7, 11, $1, $0, 255, 255, $0, 0, TotodilePokeBallScript, $0641
+ person_event $54, 7, 12, $1, $0, 255, 255, $0, 0, ChikoritaPokeBallScript, $0642
person_event $43, 7, 9, $7, $0, 255, 255, $90, 0, $4f1a, $0702
; 0x7a4cc