D/P Map Scripts
Ganix / Cryo / whatevs
Format:
(ID) INTERNAL_NAME FRIENDLY_NAME
SCRIPT ORDER:
Script 1
Script 2
...
SCRIPTS:
Script 1:
ScriptCmds
...
FUNCTIONS:
Func 1:
ScriptCmds
...
-------------------------------------------------------------------------
(0) EVERYTHING EVERYTHING
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Lockall
Message 9 "\v0101\z0000 used
DoubleSlap!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
End
Script 3:
00A2
Message 12 "\v0101\z0000 used
Comet Punch!"
FriendBT 94
CloseMsgOnKeyPress
02BB
WarpLastElevator
Releaseall
End
FUNCTIONS:
Func 1:
00A2
Message 12 "\v0101\z0000 used
Comet Punch!"
FriendBT 94
CloseMsgOnKeyPress
02BB
WarpLastElevator
Releaseall
End
Func 2:
CloseMsgOnKeyPress
Releaseall
End
(1) NOTHING NOTHING
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(2) UG UG
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
DeactWireless
ChangeOwPosition 1 72 104
ChangeOwPosition 2 424 87
ChangeOwPosition 3 200 185
ChangeOwPosition 4 335 264
ChangeOwPosition 8 175 279
ChangeOwPosition 9 424 439
ChangeOwPosition 10 87 456
ChangeOwPosition 11 311 358
ChangeOwPosition 0 232 87
ChangeOwPosition 5 328 151
ChangeOwPosition 6 232 215
ChangeOwPosition 7 232 298
ChangeOwPosition 12 279 328
ChangeOwPosition 13 279 456
ChangeOwPosition 14 183 392
ChangeOwPosition 15 279 245
ChangeOwPosition 17 40 471
ChangeOwPosition 18 471 72
ChangeOwPosition 19 471 471
ChangeOwPosition 20 40 72
End
Script 2:
If 16592 0
CheckLR 1 func_1
End
Script 3:
UndergroundFunction2 0
Jump func_2
Script 4:
UndergroundFunction2 0
Jump func_3
Script 5:
UndergroundFunction2 27
Jump func_4
Script 6:
Applymovement 16 mov_1
Waitmovement
UndergroundId? 3
UndergroundFunction2 91
0030
UndergroundStart
Applymovement 16 mov_2
Waitmovement
Fanfare 1584
Applymovement 16 mov_3
Waitmovement
Removepeople 16
Setvar 16592 1
Setflag 2450
End
FUNCTIONS:
Func 1:
CheckHiroPosition 16384 16385
Setvalue 16384 1
SetOwPosition 16 16384 1 16385 1
End
Func 2:
UndergroundFunction 1 32780
Copyvar 32772 32780
Copyvar 32776 32780
If 32776 65531
CheckLR 1 func_5
If 32776 65532
CheckLR 1 func_6
If 32776 65533
CheckLR 1 func_7
If 32776 65535
CheckLR 1 func_8
Jump func_9
Func 3:
UndergroundFunction 0 32780
Copyvar 32772 32780
Copyvar 32776 32780
If 32776 65531
CheckLR 1 func_10
If 32776 65532
CheckLR 1 func_11
If 32776 65533
CheckLR 1 func_12
If 32776 65535
CheckLR 1 func_8
Jump func_13
Func 4:
UndergroundFunction 2 32780
Copyvar 32772 32780
Copyvar 32776 32780
If 32776 65532
CheckLR 1 func_14
If 32776 65535
CheckLR 1 func_8
Jump func_15
Func 5:
UndergroundFunction2 5
Jump func_16
Func 6:
UndergroundFunction2 3
Jump func_16
Func 7:
UndergroundFunction2 4
Jump func_16
Func 8:
UndergroundFunction2 9
Jump func_17
Func 9:
0030
Jump func_16
Func 10:
UndergroundFunction2 5
Jump func_18
Func 11:
UndergroundFunction2 3
Jump func_18
Func 12:
UndergroundFunction2 4
Jump func_18
Func 13:
0030
Jump func_18
Func 14:
UndergroundFunction2 3
Jump func_19
Func 15:
0030
Jump func_19
Func 16:
0030
UndergroundFunction2 8
Jump func_2
Func 17:
0030
UndergroundStart
End
Func 18:
0030
UndergroundFunction2 8
Jump func_3
Func 19:
0030
UndergroundFunction2 8
Jump func_4
(3) C01 Jubilife City
SCRIPT ORDER:
Script 1
Script 2
Script 6
Script 8
Script 7
Script 9
Script 10
Script 12
Script 14
Script 11
Script 13
Script 3
Script 4
Script 23
Script 24
Script 25
Script 21
Script 22
Script 5
Script 26
Script 27
Script 15
Script 16
Script 17
Script 18
Script 19
Script 20
SCRIPTS:
Script 1:
If 16503 3
CheckLR1 4 func_1
Checkgender 16384
If 16384 0
CheckLR 1 func_2
If 16384 1
CheckLR 1 func_3
End
Script 2:
Lockall
CheckHiroPosition 32772 32773
If 32772 173
CheckLR 1 func_4
If 32772 174
CheckLR 1 func_5
If 32772 175
CheckLR 1 func_6
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 0 32780
If 32780 1
CheckLR 1 func_7
Message 10 "Jubilife City’s built on land they
carved out of a mountain.
The people and Pokémon of
Oreburgh City helped out with
that undertaking."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 72 "Past here is the GTS, which stands
for Global Trade Station.
Trading Pokémon means connecting
with friends, both old and new.
That’s awesome!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Lockall
CheckHiroPosition 32772 32773
If 32773 779
CheckLR 1 func_8
If 32773 780
CheckLR 1 func_9
If 32773 781
CheckLR 1 func_10
End
Script 6:
Lockall
CheckHiroPosition 32772 32773
If 32773 757
CheckLR 1 func_11
If 32773 758
CheckLR 1 func_12
If 32773 759
CheckLR 1 func_13
If 32773 760
CheckLR 1 func_14
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 0 32780
If 32780 1
CheckLR 1 func_15
Checkflag 243
CheckLR 1 func_16
Goto func_17
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Lockall
CheckHiroPosition 32768 32769
If 32768 173
CheckLR 1 func_18
If 32768 174
CheckLR 1 func_19
If 32768 175
CheckLR 1 func_20
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 59 "The way you look...
You’re obviously a Trainer!
Can you tell me what type of Pokémon
you like?"
Multi3 29 11 0 0 32780
ChooseWirePokeBCastle 17921 11520
Script 10:
Fanfare 1500
Lockall
Faceplayer
Message 63 "Did you see me on TV?
I was in an interview!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Faceplayer
Message 67 "Hiya, where’d you come from?
...
Twinleaf Town, huh...
It’s a nice place. Quiet and all.
Jubilife City is a big place, so it
might be a bit of a shock to you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 12:
Fanfare 1500
Lockall
Faceplayer
Message 64 "When you walk with your Pokémon,
they gradually grow friendlier."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
Fanfare 1500
Lockall
Faceplayer
Message 68 "Hello, Trainer!
Do you know much about Pokémon?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_21
If 32780 1
CheckLR 1 func_22
End
Script 14:
Fanfare 1500
Lockall
Faceplayer
Message 65 "OK, set six Poké Balls in my
belt...
Yeah, that’ll do it. At most, you
can have six Pokémon with you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 15:
CallMsgBox 75 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 16:
CallMsgBox 588 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 17:
CallMsgBox 589 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 18:
CallMsgBox 590 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 19:
CallMsgBox 591 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 20:
CallMsgBox 592 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 21:
Lockall
Applymovement 24 mov_1
Applymovement 255 mov_2
Waitmovement
CheckHiroPosition 32772 32773
If 32772 172
CheckLR1 1 func_23
If 32772 173
CheckLR1 1 func_24
If 32772 174
CheckLR1 1 func_25
If 32772 175
CheckLR1 1 func_26
If 32772 176
CheckLR1 1 func_27
Message 21 "Oh, oh, oh?
You call yourself a Pokémon Trainer?
And yet you have no Pokétch?
That is, Pokémon Watch, or Pokétch
for short!
Oh my, you are a rare case
indeed!"
Setvar 16615 2
Message 22 "You see, I invented, and now
manufacture, Pokétches.
Not only that, I’m now conducting
the Pokétch promotional campaign!
All you have to do is find three
clowns in Jubilife City.
If you can find them...
I will gift you with a Pokétch!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 22:
Fanfare 1500
Lockall
Faceplayer
Setvar 32772 0
Goto func_28
If 32772 3
CheckLR 1 func_29
Message 23 "The three clowns will each ask you
a skill-testing question.
The questions will all have to do
with Pokémon.
After all, a Pokétch is a tool for
Pokémon Trainers.
Collect a Coupon from each clown,
then come see me, OK?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 23:
Fanfare 1500
Lockall
Faceplayer
Checkflag 237
CheckLR 1 func_30
Message 27 "Hi! I’m a Pokétch campaign clown!
Let’s roll out my question!
Does a Pokémon grow by defeating
others and gaining Exp. Points?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_31
If 32780 1
CheckLR 1 func_32
End
Script 24:
Fanfare 1500
Lockall
Faceplayer
Checkflag 238
CheckLR 1 func_33
Message 33 "Hi! I’m a Pokétch campaign clown!
Let’s roll out my question!
Just like Pokémon types, the moves
of Pokémon also have types?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_34
If 32780 1
CheckLR 1 func_35
End
Script 25:
Fanfare 1500
Lockall
Faceplayer
If 16615 2
CheckLR 0 func_36
Checkflag 239
CheckLR 1 func_37
Message 39 "Hi! I’m a Pokétch campaign clown!
Let’s roll out my question!
Can a Pokémon hold an item?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_38
If 32780 1
CheckLR 1 func_39
End
Script 26:
Fanfare 1500
Lockall
Faceplayer
Message 73 "I’m trading Pokémon with my buddy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 27:
Fanfare 1500
Lockall
Faceplayer
Message 74 "I made my Pokémon hold an item
before trading it.
That will make the other Trainer
double happy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
ChangeOwPosition 7 176 739
ReleaseOw 7 2
ChangeOwMovement 7 16
Killscript
Func 2:
Setvar 16416 97
End
Func 3:
Setvar 16416 0
End
Func 4:
ChangeOwPosition 7 173 788
Jump func_40
Func 5:
ChangeOwPosition 7 174 788
Jump func_40
Func 6:
ChangeOwPosition 7 175 788
Jump func_40
Func 7:
Message 11 "Hello! Let me ask you, have you paid
a visit to the TV station?
If you’ve never been, you owe it to
yourself to make the trip.
And, if you’ve been there before,
it never hurts to visit again.
After all, you can be a star!
Or at least dream of being one!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Applymovement 27 mov_3
Waitmovement
Message 71 "Past here is the GTS, which stands
for Global Trade Station.
Oh, I’m sorry, you don’t have
any Gym Badges.
The GTS is off-limits if you don’t
have a Gym Badge. Sorry!"
CloseMsgOnKeyPress
Applymovement 27 mov_4
Applymovement 255 mov_5
Waitmovement
Jump func_41
Func 9:
Applymovement 27 mov_6
Waitmovement
Message 71 "Past here is the GTS, which stands
for Global Trade Station.
Oh, I’m sorry, you don’t have
any Gym Badges.
The GTS is off-limits if you don’t
have a Gym Badge. Sorry!"
CloseMsgOnKeyPress
Applymovement 27 mov_7
Applymovement 255 mov_5
Waitmovement
Jump func_41
Func 10:
Applymovement 27 mov_8
Waitmovement
Message 71 "Past here is the GTS, which stands
for Global Trade Station.
Oh, I’m sorry, you don’t have
any Gym Badges.
The GTS is off-limits if you don’t
have a Gym Badge. Sorry!"
CloseMsgOnKeyPress
Applymovement 27 mov_9
Applymovement 255 mov_5
Waitmovement
Jump func_41
Func 11:
Applymovement 255 mov_10
Applymovement 19 mov_11
Waitmovement
Jump func_42
Func 12:
Applymovement 255 mov_10
Applymovement 19 mov_12
Waitmovement
Jump func_42
Func 13:
Applymovement 255 mov_10
Applymovement 19 mov_13
Waitmovement
Jump func_42
Func 14:
Applymovement 255 mov_10
Applymovement 19 mov_14
Waitmovement
Jump func_42
Func 15:
Message 17 "Jubilife City is a big place.
Take your time sightseeing."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 16:
Message 16 "Hello! Yes, you!
You with that cool scarf!
You should have seen the boy that
came running by earlier.
He ran past me so quickly, I couldn’t
even manage a hello."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 17:
Checkflag 241
CheckLR 0 func_43
Checkflag 243
CheckLR 0 func_44
Message 18 "Jubilife City is the love of my life
Words can’t do it justice."
Killscript
Func 18:
Applymovement 16 mov_15
Applymovement 255 mov_16
Waitmovement
Jump func_45
Func 19:
Applymovement 16 mov_15
Applymovement 255 mov_17
Waitmovement
Jump func_45
Func 20:
Applymovement 16 mov_15
Applymovement 255 mov_18
Waitmovement
Jump func_45
Func 21:
Message 69 "Ah, I see!
You are knowledgeable!
I imagine you wouldn’t see the need
to visit the Trainers’ School, then.
But do visit if you have the time.
You may discover something new!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 22:
Message 70 "Oh, you’re not knowledgeable...
But not to worry!\fThere’s the Trainers’ School.
The school will teach you the
basics of Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 23:
Applymovement 24 mov_19
Waitmovement
Killscript
Func 24:
Applymovement 24 mov_20
Waitmovement
Killscript
Func 25:
Applymovement 24 mov_21
Waitmovement
Killscript
Func 26:
Applymovement 24 mov_22
Waitmovement
Killscript
Func 27:
Applymovement 24 mov_23
Waitmovement
Killscript
Func 28:
Checkflag 237
CheckLR1 1 func_46
Checkflag 238
CheckLR1 1 func_46
Checkflag 239
CheckLR1 1 func_46
Killscript
Func 29:
Message 24 "OK, let me count your Coupons!
I’ll use the Pokétch here...
One, two, three!
Bravo! I say, bravo!
In return for these Coupons,
I present you this Pokémon Watch,\for Pokétch for short!"
GiveItem 460 1 32780
GiveItem 461 1 32780
GiveItem 462 1 32780
GivePoketch
Setvar 16503 2
ActPktchAppl 0
ActPktchAppl 1
ActPktchAppl 3
ActPktchAppl 4
Setvarhero 0
Message 25 "\v0103\z0000 received a \vFF00\z0001Pokétch\vFF00\z0000!\v0200\z0001"
Soundfr 1158
Fadedef
Message 26 "You can add apps to your Pokétch
to make it even more versatile!
Touch the Pokétch screen and please
do try it out!"
CloseMsgOnKeyPress
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_47
If 32780 1
CheckLR 1 func_48
If 32780 2
CheckLR 1 func_47
If 32780 3
CheckLR 1 func_47
End
Func 30:
Message 32 "Pokémon grow stronger through
battling.
Some Pokémon even grow into an
entirely different form in a process\fknown as evolution."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 31:
Fanfare 1521
Message 28 "Ding-ding!
You’re absolutely correct!"
Message 30 "Pokémon grow stronger by defeating
other Pokémon in battle.
Some Pokémon even grow into an
entirely different form in a process\fknown as evolution."
Message 31 "Here you go!
Your Pokétch Coupon!"
Setvar 32772 460
Setvar 32773 1
Setflag 237
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Func 32:
Fanfare 1523
Message 29 "Bzzzzt!
That’s the wrong answer..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 33:
Message 38 "If the Pokémon’s type matches its
move’s type, that move is made much\fmore powerful!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 34:
Fanfare 1521
Message 34 "Ding-ding!
You’re absolutely correct!"
Message 36 "If the Pokémon’s type matches its
move’s type, that move is made much\fmore powerful!"
Message 37 "Here you go!
Your Pokétch Coupon!"
Setvar 32772 461
Setvar 32773 1
Setflag 238
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Func 35:
Fanfare 1523
Message 35 "Bzzzzt!
That’s the wrong answer..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 36:
Message 44 "Hi, there. You should stick around.
We’re doing a Pokétch campaign soon.
Before it starts, I think you should
brush up at the Trainers’ School."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 37:
Message 45 "A Pokémon may hold a single item.
Some items become effective as soon
as they are held by Pokémon.
Berries are eaten by Pokémon as
necessary during battle."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 38:
Fanfare 1521
Message 40 "Ding-ding!
You’re absolutely correct!"
Message 42 "A Pokémon may hold a single item.
Some items become effective as soon
as they are held by a Pokémon.
Berries are eaten by Pokémon as
necessary during battle."
Message 43 "Here you go!
Your Pokétch Coupon!"
SetOwPosition 24 174 1 771 1
Setvar 32772 462
Setvar 32773 1
Setflag 239
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Func 39:
Fanfare 1523
Message 41 "Bzzzzt!
That’s the wrong answer..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 40:
Clearflag 408
Addpeople 7
Lock 7
Applymovement 7 mov_24
Waitmovement
Callstd 248 7
Applymovement 7 mov_25
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_49
If 32780 1
CheckLR 1 func_50
End
Func 41:
Releaseall
End
Func 42:
Goto func_51
CloseMsgOnKeyPress
Applymovement 255 mov_26
Applymovement 19 mov_27
Waitmovement
CheckHiroPosition 32772 32773
If 32773 757
CheckLR 1 func_52
If 32773 758
CheckLR 1 func_53
If 32773 759
CheckLR 1 func_54
If 32773 760
CheckLR 1 func_55
End
Func 43:
Message 19 "By the way, have you visited the
Trainers’ School?
Not yet, right?
You really must visit there!"
Killscript
Func 44:
Message 20 "By the way, have you participated
in the Pokétch campaign?
Not yet, right?
You really must try!"
Killscript
Func 45:
Setvarhero 0
Setvaralter 1
Message 46 "Rowan: Ah, \v0103\z0000.
Impeccable timing as always.
These miscreants are babbling utter
nonsense that I just can’t stomach.
Show them some manners, if you will."
Applymovement 17 mov_28
Applymovement 16 mov_29
Waitmovement
Message 47 "Mystery man: Oh, Professor Pokémon,
must you be so difficult?
We are approaching you strictly
as businessmen.
All you must do is provide us with
all your research findings.
In return, we’ll refrain from causing
massive damage to your assistant."
Applymovement 7 mov_30
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_56
If 32780 1
CheckLR 1 func_57
End
Func 46:
Setvalue 32772 1
Killscript
Func 47:
Applymovement 24 mov_31
Applymovement 255 mov_32
Waitmovement
Jump func_58
Func 48:
Applymovement 24 mov_33
Applymovement 255 mov_34
Waitmovement
Jump func_58
Func 49:
Setvaralter 0
Setvarhero 1
Message 0 "Dawn: Hi, \v0103\z0001!
Are you catching Pokémon?"
Checkpartynumber 32780
Setvarnum 0 32780
If 32780 4
CheckLR1 4 func_59
If 32780 3
CheckLR1 3 func_60
Setvarhero 0
Setvarrival 1
Message 4 "In Jubilife City, there’s the Trainers’
School, which... Well, you know.
\v0103\z0000, you should visit it.
You’ll get some tips on Pokémon.
Oh yes, \v0103\z0001 went to the
Trainers’ School earlier.
OK, bye now!"
Jump func_61
Func 50:
Setvaralter 0
Setvarhero 1
Message 5 "Lucas: Hey, \v0103\z0001!
How many Pokémon have you caught?"
Checkpartynumber 32780
Setvarnum 0 32780
If 32780 4
CheckLR1 4 func_62
If 32780 3
CheckLR1 3 func_63
Setvarhero 0
Setvarrival 1
Message 9 "In Jubilife City, there’s the Trainers’
School. Check it out, \v0103\z0000.
Oh yeah, \v0103\z0001 went to the
Trainers’ School earlier.
OK, see you around!
Work hard on your Pokédex!"
Jump func_61
Func 51:
Checkflag 241
CheckLR 0 func_64
Checkflag 243
CheckLR 0 func_65
Message 12 "Jubilife City is the love of my life.
Words can’t do it justice."
Killscript
Func 52:
Applymovement 19 mov_35
Waitmovement
Jump func_66
Func 53:
Applymovement 19 mov_36
Waitmovement
Jump func_66
Func 54:
Applymovement 19 mov_37
Waitmovement
Jump func_66
Func 55:
Applymovement 19 mov_38
Waitmovement
Jump func_66
Func 56:
Setvaralter 0
Setvarhero 1
Message 48 "Dawn: \v0103\z0001!
Let’s battle together and teach
these horrible men a lesson!"
Jump func_67
Func 57:
Setvaralter 0
Setvarhero 1
Message 49 "Lucas: \v0103\z0001!
Join me and battle these guys!"
Jump func_67
Func 58:
Removepeople 24
Setflag 243
Clearflag 533
Releaseall
End
Func 59:
Message 1 "Wow! You’ve already got \v0132\z0000 Pokémon
with you!
At that pace, your Pokédex should
be full in no time at all!"
Killscript
Func 60:
Message 2 "...Um...
I think you’d feel a lot safer if you
were to catch some more."
Killscript
Func 61:
CloseMsgOnKeyPress
Applymovement 7 mov_39
Waitmovement
Removepeople 7
Callstd 249 7
Setvar 16503 1
Releaseall
End
Func 62:
Message 6 "Whoa! You already have \v0132\z0000 Pokémon
with you!"
Killscript
Func 63:
Message 7 "Huh?
I think you should catch some more.
It might be more of a challenge
raising a lot of Pokémon...
But it’s worth it. The more Pokémon
you have, the happier you’ll be."
Killscript
Func 64:
Message 13 "By the way, have you visited the
Trainers’ School?
Not yet, right?
You really must visit there!"
Killscript
Func 65:
Message 15 "By the way, have you participated
in the Pokétch campaign?
Not yet, right?
You really must try!"
Killscript
Func 66:
Releaseall
End
Func 67:
CloseMsgOnKeyPress
Applymovement 7 mov_40
Waitmovement
Goto func_68
DoubleBattle 32772 414 415
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_69
Applymovement 18 mov_41
Waitmovement
Message 50 "Grunt: You leave us no option.
We will retreat for now.
Because Team Galactic is benevolent
to all, we shall leave."
CloseMsgOnKeyPress
Applymovement 17 mov_42
Applymovement 18 mov_43
Waitmovement
Removepeople 17
Removepeople 18
Setflag 442
Applymovement 16 mov_44
Applymovement 7 mov_45
Waitmovement
Setvarhero 0
Message 51 "Rowan: That lot...
They called themselves Team Galactic.
When Pokémon evolve, they seem to
release some type of energy...
However, I believe that it’s a mystic
power far beyond our control.
But Team Galactic seems to be trying
to use that power for something...
Anyway, \v0103\z0000, well done!
You battle quite capably.
The sight of you Trainers and Pokémon
battling together...
I made the right decision in
entrusting you with a Pokédex!"
Applymovement 7 mov_46
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_70
If 32780 1
CheckLR 1 func_71
End
Func 68:
Checkgender 32780
If 32780 0
CheckLR 1 func_72
If 32780 1
CheckLR 1 func_73
End
Func 69:
LostGoPc
Releaseall
End
Func 70:
Setvaralter 0
Setvarhero 1
Message 55 "Dawn: \v0103\z0001, did you know?
The professor studies the evolution
of Pokémon, too.
According to his research, 90% of
all Pokémon are somehow tied\fto evolution!
I guess that means some Pokémon
must undergo startling evolutions.
So, \v0103\z0001...
Let’s keep working on our Pokédex\fproject for the professor!"
Jump func_74
Func 71:
Setvaralter 0
Setvarhero 1
Message 56 "Lucas: \v0103\z0001, did you know
about this?
The professor studies about the
evolution of Pokémon, too.
According to his research, 90% of
all Pokémon are somehow tied\fto evolution!
I guess that means some Pokémon
must undergo weird evolutions.
So, \v0103\z0001...
Let’s keep working on our Pokédex\fproject for the prof!"
Jump func_74
Func 72:
StoreStarter 32780
Setvar 32772 616
If 32780 390
CheckLR 1 func_75
Setvar 32772 617
If 32780 393
CheckLR 1 func_75
Setvar 32772 618
Killscript
Func 73:
StoreStarter 32780
Setvar 32772 613
If 32780 390
CheckLR 1 func_75
Setvar 32772 614
If 32780 393
CheckLR 1 func_75
Setvar 32772 615
Killscript
Func 74:
CloseMsgOnKeyPress
Applymovement 7 mov_47
Applymovement 16 mov_48
Applymovement 255 mov_49
Waitmovement
Jump func_76
Func 75:
Killscript
Func 76:
Removepeople 7
Removepeople 16
Clearflag 438
Setvar 16503 4
Setvar 16505 3
Removepeople 25
Removepeople 26
Removepeople 28
ChangeOwPosition 31 174 750
ChangeOwMovement 31 14
Clearflag 425
Addpeople 31
Lock 31
Applymovement 31 mov_50
Waitmovement
Message 57 "Oh, that was very good!
Nicely done! Truly excellent!
Oh, I beg your pardon, I’m from
Jubilife TV!
I’d like you to have something for
letting me see that smashing battle!"
Goto func_77
Message 58 "Contained within that Fashion Case...
You will find a whole spectrum of chic
Accessories and tasteful Backdrops!
Dress up your Pokémon and watch
their appeal grow!
And, right now the TV station is
offering its facilities so visitors\fcan dress up their Pokémon!
There are also prize giveaways, too!
Please do visit our TV station!"
CloseMsgOnKeyPress
Return 15 32780
Applymovement 31 mov_51
Waitmovement
Removepeople 31
Releaseall
End
Func 77:
Setvar 32772 435
Setvar 32773 1
Callstd 252 7
Setflag 242
Goto func_78
Goto func_78
Goto func_78
Goto func_78
Goto func_78
Goto func_79
Goto func_79
Goto func_79
Goto func_79
Goto func_79
GiveAccessories2 0
Goto func_80
Goto func_80
Killscript
Func 78:
CheckIdPlayer 32780 6
Setvar 32772 0
Setvalue 32772 32780
GiveAccessories 32772 1
Killscript
Func 79:
CheckIdPlayer 32780 6
Setvar 32772 18
Setvalue 32772 32780
GiveAccessories 32772 1
Killscript
Func 80:
CheckIdPlayer 32780 8
Setvar 32772 1
Setvalue 32772 32780
GiveAccessories2 32772
Killscript
(4) C01FS0101 Jubilife City Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 0
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "If you’re catching a Pokémon,
you have to get its HP down.
If you don’t, Poké Balls won’t be
very effective."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I need Potions most of all!
If my Pokémon faints, my eyes grow
dim and I can’t see!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(5) C01GYM0101 Jubilife City GYM
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(6) C01PC0101 Jubilife City Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 32775 3
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "You know how Pokémon have types like
Water, Fire, and Grass?
They say those types have strengths
and weaknesses against other types."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "In the Union Room upstairs, you can
chat and trade with other people.
And that’s not all you can do.
Check it out!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 2 "You can still catch a Pokémon if you
already have six traveling with you.
It automatically gets sent to the PC
network in Pokémon Centers.
Knowing that, I can keep on catching
more and more Pokémon!
It’ll make it more fun to check
the PC in any Pokémon Center!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(7) C01PC0102 Jubilife City Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(8) C01R0101 Jubilife City Pokétch Co.-01
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 1
SCRIPTS:
Script 1:
CheckStatusPhraseBox? 6 16384
If 16384 0
CheckLR 1 func_1
If 16503 2
CheckLR 0 func_1
Clearflag 560
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Hi, hi!
I’m the president of the Pokétch
Company!"
Setbdgfalse 32768
If 32768 0
CheckLR 1 func_2
StorePktchAppl 2 32780
If 32780 0
CheckLR 1 func_3
StorePktchAppl 12 32780
If 32780 0
CheckLR 1 func_4
StorePktchAppl 13 32780
If 32780 0
CheckLR 1 func_5
StorePktchAppl 15 32780
If 32780 0
CheckLR 1 func_6
CheckItem 431 1 32780
If 32780 1
CheckLR 1 func_7
Jump func_8
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 15 "Oh, you can be sure I will keep
developing Pokétch apps.
Just like Pokémon, my Pokétch is
something that evolves!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 16 "Welcome to the Pokétch Company.
We’re actually a family-run business,
so we’re not very impressive."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 560
End
Func 2:
Message 1 "I’m developing a new Pokétch app,
but it’s not quite done.
My guess is that it will be ready
when you get a Gym Badge."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Setbdgfalse 32780
If 32780 1
CheckLR 4 func_9
Jump func_2
Func 4:
Setbdgfalse 32780
If 32780 3
CheckLR 4 func_10
Jump func_11
Func 5:
Setbdgfalse 32780
If 32780 5
CheckLR 4 func_12
Jump func_13
Func 6:
Setbdgfalse 32780
If 32780 7
CheckLR 4 func_14
Jump func_15
Func 7:
Message 14 "So, yup, what to do?
Do you think I should solicit new
Pokétch ideas?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 13 "Yup, all sorts of people will give
you Pokétch apps.
Everyone gets super happy that way!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Message 2 "Hi, hi!
Your patience is rewarded!
I’ve developed a new Pokétch app!"
Setvar 32772 2
Callstd 217 7
Message 3 "That’s the Memo Pad!
It’s... Well, it is what it is!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Message 5 "Hi, hi!
Your patience is rewarded!
I’ve developed another new Pokétch
app!"
Setvar 32772 12
Callstd 217 7
Message 6 "Having a map constantly displayed
is convenient, no?
You can also mark things, so it’s
that much more useful."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Message 4 "I’m developing a new Pokétch app,
but it’s not quite done.
My guess is that it will be ready
when you get three Gym Badges."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
Message 8 "Hi, hi!
Your patience is rewarded!
I’ve developed yet another new
Pokétch app!"
Setvar 32772 13
Callstd 217 7
Message 9 "I think it will be useful to know how
many people are communicating, like\fin the Union Room."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 13:
Message 7 "I’m developing a new Pokétch app,
but it’s not quite done.
My guess is that it will be ready
when you get five Gym Badges."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Message 11 "Hi, hi!
Your patience is rewarded!
I’ve developed still yet another new
Pokétch app!"
Setvar 32772 15
Callstd 217 7
Message 12 "Check type matchups so you can make
all your attacks super effective!
You’ll become stronger than ever!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 15:
Message 10 "I’m developing a new Pokétch app,
but it’s not quite done.
My guess is that it will be ready
when you get seven Gym Badges."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(9) C01R0102 Jubilife City Pokétch Co.-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "We try to think like a Trainer when
we develop new Pokétch apps.
The user’s satisfaction is what
we’re after."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Pokémon Watch!
That’s Pokétch for short.
Say it the long way and...
What does Pokémon stand for again?
Anyway, I’m the father of the
president of the Pokétch Company!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 35 0
Message 2 "CLEFAIRY: Cleffy?"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 417 0
Message 3 "PACHIRISU: Patchii?"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(10) C01R0103 Jubilife City Pokétch Co.-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Do you have a Pokétch?
There’s a girl’s model and a boy’s
model, each in different colors."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "My husband’s the president.
We started out in a small workshop
where he made what he liked.
Now we’re making something that makes
the world happy. Imagine that!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "People everywhere make Pokétch apps.
You’ll be able to get new apps from
surprising sources.
The PCs here have guides on the
various Pokétch apps."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 3 "There are descriptions of Pokétch
apps."
Message 4 "Which Pokétch app would
you like to read about?"
Multi 1 1 0 1 32772
CheckPtchAppl 32780
If 32780 0
CheckLR 1 func_1
Goto func_2
Goto func_3
Goto func_4
Goto func_5
Goto func_6
Goto func_7
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_8
If 32772 2
CheckLR 1 func_9
If 32772 3
CheckLR 1 func_10
If 32772 4
CheckLR 1 func_11
If 32772 5
CheckLR 1 func_12
If 32772 6
CheckLR 1 func_13
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 5 "There are descriptions of Pokétch
apps."
Message 6 "Which Pokétch app would
you like to read about?"
Multi 1 1 0 1 32772
CheckPtchAppl 32780
If 32780 0
CheckLR 1 func_14
Goto func_15
Goto func_16
Goto func_17
Goto func_18
Goto func_19
Goto func_20
Goto func_21
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_22
If 32772 2
CheckLR 1 func_23
If 32772 3
CheckLR 1 func_24
If 32772 4
CheckLR 1 func_25
If 32772 5
CheckLR 1 func_26
If 32772 6
CheckLR 1 func_27
If 32772 7
CheckLR 1 func_28
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 7 "There are descriptions of Pokétch
apps."
Message 8 "Which Pokétch app would you like
to read about?"
Multi 1 1 0 1 32772
CheckPtchAppl 32780
If 32780 0
CheckLR 1 func_29
Goto func_30
Goto func_31
Goto func_32
Goto func_33
Goto func_34
Goto func_35
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_36
If 32772 2
CheckLR 1 func_37
If 32772 3
CheckLR 1 func_38
If 32772 4
CheckLR 1 func_39
If 32772 5
CheckLR 1 func_40
If 32772 6
CheckLR 1 func_41
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 9 "There are descriptions of Pokétch
apps."
Message 10 "Which Pokétch app would you like
to read about?"
Multi 1 1 0 1 32772
CheckPtchAppl 32780
If 32780 0
CheckLR 1 func_42
Goto func_43
Goto func_44
Goto func_45
Goto func_46
Goto func_47
Goto func_48
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_49
If 32772 2
CheckLR 1 func_50
If 32772 3
CheckLR 1 func_51
If 32772 4
CheckLR 1 func_52
If 32772 5
CheckLR 1 func_53
If 32772 6
CheckLR 1 func_54
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_8
If 32772 2
CheckLR 1 func_9
If 32772 3
CheckLR 1 func_10
If 32772 4
CheckLR 1 func_11
If 32772 5
CheckLR 1 func_12
If 32772 6
CheckLR 1 func_13
CloseMsgOnKeyPress
Releaseall
End
Func 2:
StorePktchAppl 0 32780
If 32780 0
CheckLR 1 func_55
ChoiceMulti 233 1
Killscript
Func 3:
StorePktchAppl 11 32780
If 32780 0
CheckLR 1 func_55
ChoiceMulti 237 2
Killscript
Func 4:
StorePktchAppl 23 32780
If 32780 0
CheckLR 1 func_55
ChoiceMulti 234 3
Killscript
Func 5:
StorePktchAppl 20 32780
If 32780 0
CheckLR 1 func_55
ChoiceMulti 250 4
Killscript
Func 6:
StorePktchAppl 24 32780
If 32780 0
CheckLR 1 func_55
ChoiceMulti 249 5
Killscript
Func 7:
StorePktchAppl 16 32780
If 32780 0
CheckLR 1 func_55
ChoiceMulti 254 6
Killscript
Func 8:
Message 11 "The Digital Watch displays the
current time.
Don’t be late for meetings with
your friends!"
Jump func_56
Func 9:
Message 12 "The Analog Watch displays the
current time.
The short hand indicates the hour,
and the long hand shows the minute!"
Jump func_56
Func 10:
Message 14 "The Stopwatch is used for measuring
time precisely.
How quickly can you zip through
the Cycling Road?"
Jump func_56
Func 11:
Message 15 "The Kitchen Timer can count down from
up to 99 minutes, but not precisely.
Set the time with the center button,
then start the countdown."
Jump func_56
Func 12:
Message 13 "The Alarm Clock can be set to sound
every 24 hours.
Set the alarm time with the lower
button. The top button turns it on."
Jump func_56
Func 13:
Message 16 "Use the monthly Calendar to make
a note of important dates.
Touch any date to change its color.
Touch it again to turn it back."
Jump func_56
Func 14:
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_22
If 32772 2
CheckLR 1 func_23
If 32772 3
CheckLR 1 func_24
If 32772 4
CheckLR 1 func_25
If 32772 5
CheckLR 1 func_26
If 32772 6
CheckLR 1 func_27
If 32772 7
CheckLR 1 func_28
CloseMsgOnKeyPress
Releaseall
End
Func 15:
StorePktchAppl 1 32780
If 32780 0
CheckLR 1 func_57
ChoiceMulti 235 1
Killscript
Func 16:
StorePktchAppl 2 32780
If 32780 0
CheckLR 1 func_57
ChoiceMulti 236 2
Killscript
Func 17:
StorePktchAppl 5 32780
If 32780 0
CheckLR 1 func_57
ChoiceMulti 240 3
Killscript
Func 18:
StorePktchAppl 8 32780
If 32780 0
CheckLR 1 func_57
ChoiceMulti 244 4
Killscript
Func 19:
StorePktchAppl 22 32780
If 32780 0
CheckLR 1 func_57
ChoiceMulti 248 5
Killscript
Func 20:
StorePktchAppl 9 32780
If 32780 0
CheckLR 1 func_57
ChoiceMulti 257 6
Killscript
Func 21:
StorePktchAppl 7 32780
If 32780 0
CheckLR 1 func_57
ChoiceMulti 252 7
Killscript
Func 22:
Message 17 "The Calculator can handle up to
ten digits.
It’s perfect for figuring out math
questions that might pop up."
Jump func_58
Func 23:
Message 24 "The Memo Pad is useful for jotting
down a note, or just doodling.
There’s an eraser, too, just in case
you make a mistake."
Jump func_58
Func 24:
Message 19 "The Friendship Checker indicates how
friendly your Pokémon are to you.
Touch the screen. The Pokémon that
like you will come closer."
Jump func_58
Func 25:
Message 20 "The Day-Care Checker shows the
Pokémon you have in the Day Care.
Check and see how your Pokémon are
doing with the Day-Care Couple."
Jump func_58
Func 26:
Message 21 "The Matchup Checker tests the
attraction between Pokémon.
The greater the number of hearts,
the better likelihood of Eggs."
Jump func_58
Func 27:
Message 22 "The Pokémon History keeps track of
the Pokémon you have obtained.
It shows the last twelve kinds of
Pokémon you obtained."
Jump func_58
Func 28:
Message 23 "The Berry Searcher is a map that
shows the locations of Berries.
It indicates the presence of Berries
in areas you have already visited."
Jump func_58
Func 29:
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_36
If 32772 2
CheckLR 1 func_37
If 32772 3
CheckLR 1 func_38
If 32772 4
CheckLR 1 func_39
If 32772 5
CheckLR 1 func_40
If 32772 6
CheckLR 1 func_41
CloseMsgOnKeyPress
Releaseall
End
Func 30:
StorePktchAppl 4 32780
If 32780 0
CheckLR 1 func_59
ChoiceMulti 239 1
Killscript
Func 31:
StorePktchAppl 17 32780
If 32780 0
CheckLR 1 func_59
ChoiceMulti 238 2
Killscript
Func 32:
StorePktchAppl 14 32780
If 32780 0
CheckLR 1 func_59
ChoiceMulti 246 3
Killscript
Func 33:
StorePktchAppl 18 32780
If 32780 0
CheckLR 1 func_59
ChoiceMulti 245 4
Killscript
Func 34:
StorePktchAppl 21 32780
If 32780 0
CheckLR 1 func_59
ChoiceMulti 253 5
Killscript
Func 35:
StorePktchAppl 12 32780
If 32780 0
CheckLR 1 func_59
ChoiceMulti 251 6
Killscript
Func 36:
Message 18 "The Pokémon List indicates the
statuses of your team’s Pokémon.
Touch them to hear their cries.
Their HP bar is also displayed."
Jump func_60
Func 37:
Message 25 "The Dot Artist lets you draw pictures
in a mosaic style.
Touching the same dot makes its
color turn darker."
Jump func_60
Func 38:
Message 29 "The Coin Toss flips a coin that
comes up heads or tails.
If you can’t choose between two
choices, a coin toss might be handy."
Jump func_60
Func 39:
Message 28 "The Roulette features a wheel
that can be written on.
Draw numbers, items, or whatever on
the wheel and give it a spin!"
Jump func_60
Func 40:
Message 26 "The Color Changer changes the
Pokétch’s display color.
Slide the switch to select one
of eight colors."
Jump func_60
Func 41:
Message 27 "The Marking Map lets you mark
intriguing locations.
Drag marks to places on the map
that you want to remember."
Jump func_60
Func 42:
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_49
If 32772 2
CheckLR 1 func_50
If 32772 3
CheckLR 1 func_51
If 32772 4
CheckLR 1 func_52
If 32772 5
CheckLR 1 func_53
If 32772 6
CheckLR 1 func_54
CloseMsgOnKeyPress
Releaseall
End
Func 43:
StorePktchAppl 3 32780
If 32780 0
CheckLR 1 func_61
ChoiceMulti 243 1
Killscript
Func 44:
StorePktchAppl 10 32780
If 32780 0
CheckLR 1 func_61
ChoiceMulti 242 2
Killscript
Func 45:
StorePktchAppl 19 32780
If 32780 0
CheckLR 1 func_61
ChoiceMulti 256 3
Killscript
Func 46:
StorePktchAppl 13 32780
If 32780 0
CheckLR 1 func_61
ChoiceMulti 255 4
Killscript
Func 47:
StorePktchAppl 15 32780
If 32780 0
CheckLR 1 func_61
ChoiceMulti 247 5
Killscript
Func 48:
StorePktchAppl 6 32780
If 32780 0
CheckLR 1 func_61
ChoiceMulti 241 6
Killscript
Func 49:
Message 30 "The Pedometer keeps a count of
the number of steps traveled.
It automatically counts steps.
Touch the button to reset it."
Jump func_62
Func 50:
Message 32 "The Counter is used for counting
things one at a time.
Touch the button and count whatever
needs counting."
Jump func_62
Func 51:
Message 33 "The Trainer Counter tracks the
performance of the Poké Radar.
It shows how often you have met
the same kind of Pokémon in a row."
Jump func_62
Func 52:
Message 34 "The Link Searcher searches for
players on wireless communications.
Touch the screen to get a list of
people using wireless communications."
Jump func_62
Func 53:
Message 35 "The Move Tester checks how effective
moves are by type.
Switch the attacker and defender
types to see what is effective."
Jump func_62
Func 54:
Message 31 "The Dowsing Machine searches for
hidden or obscured items.
Touch the radar screen. If there is
an item nearby, it will respond."
Jump func_62
Func 55:
Killscript
Func 56:
Message 4 "Which Pokétch app would
you like to read about?"
Multi 1 1 0 1 32772
CheckPtchAppl 32780
If 32780 0
CheckLR 1 func_1
Goto func_2
Goto func_3
Goto func_4
Goto func_5
Goto func_6
Goto func_7
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_8
If 32772 2
CheckLR 1 func_9
If 32772 3
CheckLR 1 func_10
If 32772 4
CheckLR 1 func_11
If 32772 5
CheckLR 1 func_12
If 32772 6
CheckLR 1 func_13
CloseMsgOnKeyPress
Releaseall
End
Func 57:
Killscript
Func 58:
Message 6 "Which Pokétch app would
you like to read about?"
Multi 1 1 0 1 32772
CheckPtchAppl 32780
If 32780 0
CheckLR 1 func_14
Goto func_15
Goto func_16
Goto func_17
Goto func_18
Goto func_19
Goto func_20
Goto func_21
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_22
If 32772 2
CheckLR 1 func_23
If 32772 3
CheckLR 1 func_24
If 32772 4
CheckLR 1 func_25
If 32772 5
CheckLR 1 func_26
If 32772 6
CheckLR 1 func_27
If 32772 7
CheckLR 1 func_28
CloseMsgOnKeyPress
Releaseall
End
Func 59:
Killscript
Func 60:
Message 8 "Which Pokétch app would you like
to read about?"
Multi 1 1 0 1 32772
CheckPtchAppl 32780
If 32780 0
CheckLR 1 func_29
Goto func_30
Goto func_31
Goto func_32
Goto func_33
Goto func_34
Goto func_35
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_36
If 32772 2
CheckLR 1 func_37
If 32772 3
CheckLR 1 func_38
If 32772 4
CheckLR 1 func_39
If 32772 5
CheckLR 1 func_40
If 32772 6
CheckLR 1 func_41
CloseMsgOnKeyPress
Releaseall
End
Func 61:
Killscript
Func 62:
Message 10 "Which Pokétch app would you like
to read about?"
Multi 1 1 0 1 32772
CheckPtchAppl 32780
If 32780 0
CheckLR 1 func_42
Goto func_43
Goto func_44
Goto func_45
Goto func_46
Goto func_47
Goto func_48
ChoiceMulti 258 0
CloseMulti
If 32772 1
CheckLR 1 func_49
If 32772 2
CheckLR 1 func_50
If 32772 3
CheckLR 1 func_51
If 32772 4
CheckLR 1 func_52
If 32772 5
CheckLR 1 func_53
If 32772 6
CheckLR 1 func_54
CloseMsgOnKeyPress
Releaseall
End
(11) C01R0201 Jubilife City Jubilife TV-01
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 1
Script 9
Script 10
Script 11
Script 12
Script 13
Script 14
Script 15
Script 16
Script 17
SCRIPTS:
Script 1:
Checkflag 2735
CheckLR 1 func_1
0024 371
0024 370
0024 369
0024 460
0024 368
0024 465
0024 431
Setflag 625
Setflag 626
Setflag 627
Setflag 628
Setflag 629
Setflag 630
Setflag 631
Setflag 632
CheckPokemart 16384
If 16384 0
CheckLR 1 func_2
If 16384 1
CheckLR 1 func_3
If 16384 2
CheckLR 1 func_4
If 16384 3
CheckLR 1 func_5
If 16384 4
CheckLR 1 func_6
If 16384 5
CheckLR 1 func_7
If 16384 6
CheckLR 1 func_8
End
Script 2:
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Why don’t you try dressing up your
Pokémon now?
We have a Fitting Room on
the second floor.
Dress up your Pokémon nicely with
Accessories!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
If 16626 0
CheckLR 5 func_9
Checkflag 2729
CheckLR 1 func_10
Message 4 "This is the Pokémon Lottery Corner.
If your drawn number matches the
ID No. of any of your Pokémon,
starting with the far right digit,
you will receive a fabulous gift.
Would you like to draw a Pokémon
Loto Ticket?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_11
Jump func_12
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 21 "They keep records of things like
how many battles you’ve won in a row,
or how many Pokémon you’ve caught.
You can check everyone’s records
up on the third floor."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 22 "I’m going to get commercials shown
on TV.
They’ll attract more customers to
the department store."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
ClearTrainerId 371
CheckLR 1 func_13
Message 24 "More than singing!
More than dancing!
I love Pokémon!
So, shall we battle?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_14
Message 25 "I’ll let you join my fan club if you
can beat me!"
CloseMsgOnKeyPress
TrainerBattle 371 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_15
SetTrainerId 371
Setflag 2735
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
ClearTrainerId 370
CheckLR 1 func_16
Message 28 "I’m working on a story.
Can you battle me?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_17
Message 29 "Join me for a live report!"
CloseMsgOnKeyPress
TrainerBattle 370 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_15
SetTrainerId 370
Setflag 2735
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Faceplayer
ClearTrainerId 369
CheckLR 1 func_18
Message 32 "I’ve spotted a charismatic Trainer!
Is it OK to go for the scoop?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_19
Message 33 "As a professional cameraman, I always
go for the best shot!"
CloseMsgOnKeyPress
TrainerBattle 369 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_15
SetTrainerId 369
Setflag 2735
Releaseall
End
Script 12:
Fanfare 1500
Lockall
Faceplayer
ClearTrainerId 460
CheckLR 1 func_20
Message 36 "Are we all ready to have some fun?
I sure am! Aren’t you having fun?!
Let’s make it fun! OK?!"
Yesnobox 32780
If 32780 1
CheckLR 1 func_21
Message 37 "OK, how shall we do this?
Shall we do something fantastical?"
CloseMsgOnKeyPress
TrainerBattle 460 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_15
SetTrainerId 460
Setflag 2735
Releaseall
End
Script 13:
Fanfare 1500
Lockall
Faceplayer
ClearTrainerId 368
CheckLR 1 func_22
CheckPokePartyHealth 32780 6
If 32780 2
CheckLR 4 func_23
Message 40 "Two Pokémon! If you had two Pokémon,
we’d get a great shot here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 14:
Fanfare 1500
Lockall
Faceplayer
ClearTrainerId 368
CheckLR 1 func_24
CheckPokePartyHealth 32780 6
If 32780 2
CheckLR 4 func_25
Message 45 "Oh, no. What we really want to see
is you in action with two Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 15:
Fanfare 1500
Lockall
Faceplayer
ClearTrainerId 465
CheckLR 1 func_26
Message 50 "Po-Po-Pokémon!
I want to become more like
a PIKACHU! Will you battle me?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_27
Message 51 "Pi-pikachu!"
CloseMsgOnKeyPress
TrainerBattle 465 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_15
SetTrainerId 465
Setflag 2735
Releaseall
End
Script 16:
Fanfare 1500
Lockall
Faceplayer
ClearTrainerId 431
CheckLR 1 func_28
Message 54 "Come on, let’s show off our Pokémon!
Let’s do battle, kiddo!"
Yesnobox 32780
If 32780 1
CheckLR 1 func_29
Message 55 "Your spirit’s vibes... I can feel
you’ve got rock in your veins!"
CloseMsgOnKeyPress
TrainerBattle 431 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_15
SetTrainerId 431
Setflag 2735
Releaseall
End
Script 17:
Fanfare 1500
Lockall
Faceplayer
Message 23 "The Trainers that gather over there
are looking for battles.
That corner used to be for karaoke,
but now it’s all battling!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 625
Setflag 626
Setflag 627
Setflag 628
Setflag 629
Setflag 630
Setflag 631
Setflag 632
CheckPokemart 16384
If 16384 0
CheckLR 1 func_2
If 16384 1
CheckLR 1 func_3
If 16384 2
CheckLR 1 func_4
If 16384 3
CheckLR 1 func_5
If 16384 4
CheckLR 1 func_6
If 16384 5
CheckLR 1 func_7
If 16384 6
CheckLR 1 func_8
End
Func 2:
Clearflag 625
End
Func 3:
Clearflag 626
End
Func 4:
Clearflag 627
End
Func 5:
Clearflag 628
End
Func 6:
Clearflag 629
Clearflag 630
End
Func 7:
Clearflag 631
End
Func 8:
Clearflag 632
End
Func 9:
Setvarhero 0
Message 19 "\v0103\z0000?
Yes, I’ve been expecting you.
This is the prize we’ve been holding
for you. Here you go!"
Copyvar 32770 16626
Jump func_30
Func 10:
Message 5 "You’ve already drawn a Loto Ticket
today. Please come back tomorrow."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Setflag 2729
Message 7 "Please draw a Loto Ticket.
..."
CheckLotoNumber 32768
SetvarIdNumber 0 32768 2 5
Message 8 "Your Loto Ticket number is \v0136\z0000.
Now, let’s see if it matches the
ID No. of any of your Pokémon."
CompareLotoNumber 32769 32770 32771 32768
If 32770 0
CheckLR 1 func_31
If 32770 1
CheckLR 1 func_32
If 32771 0
CheckLR 1 func_33
Jump func_34
Func 12:
Message 6 "Oh. I see.
Please do visit us again."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 13:
Message 27 "Well, that’s me and my Pokémon!
I hope you’ll support us!
Just so you know, our latest single
is called “Jigglin’ Pokémon Wub!”"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Message 26 "Aww... That’s heartbreaking...
I’m an Idol, too..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 15:
LostGoPc
Releaseall
End
Func 16:
Message 31 "Interviews are about taking the
initiative."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 17:
Message 30 "Press coverage denied...
But you’re so intriguing!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 18:
Message 35 "The lively expressions on you and
your Pokémon’s faces...
It makes for some great TV!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 19:
Message 34 "That’s a downer...
I thought I’d found a Trainer and
Pokémon who’d shine on camera."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 20:
Message 39 "A clown’s makeup is a face that’s
crying while laughing.
It defines what we do!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 21:
Message 38 "Oh, how shall I say this...?
It makes me all lonely, I say..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 22:
Message 44 "I’d like to take that footage and
have it broadcast worldwide."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 23:
Message 41 "Oh! You’re ready for a battle
with us?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_35
Message 42 "You’re live on camera, but try
to act natural, OK?"
CloseMsgOnKeyPress
TrainerBattle 368 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_15
SetTrainerId 368
Setflag 2735
Releaseall
End
Func 24:
Message 49 "I lost but I’m totally thrilled!
We made a wonderful spectacle!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 25:
Message 46 "Giggle!
Will you have a battle with us?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_36
Message 47 "We’ll check you out thoroughly as
a Trainer!"
CloseMsgOnKeyPress
TrainerBattle 368 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_15
SetTrainerId 368
Setflag 2735
Releaseall
End
Func 26:
Message 53 "I need to get more into the
character of a Pokémon..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 27:
Message 52 "Pikachu!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 28:
Message 57 "Rock is about your spirit!
Battling is about spirit, too!\fThat’s why a battle is rock!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 29:
Message 56 "Now, that is so lame.
You have to let your passion burn!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 30:
Copyvar 32776 32770
If 32776 2
CheckLR 1 func_37
If 32776 3
CheckLR 1 func_38
If 32776 4
CheckLR 1 func_39
If 32776 5
CheckLR 1 func_40
End
Func 31:
Message 11 "I’m sorry.
You didn’t get a match..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 32:
Checkflag 276
CheckLR 1 func_31
Setvar 32772 1
CheckAccessories2 32772 32780
If 32780 0
CheckLR 1 func_41
Setvalue 32772 1
If 32772 13
CheckLR 3 func_42
Setflag 276
Jump func_31
Func 33:
Setvarpokenick 0 32769
Message 9 "Congratulations!
The ID No. of your team’s
\v0101\z0000 matches your Loto\fTicket number!"
Jump func_43
Func 34:
SetvarIdPokeBoxes 0 32769
Message 10 "Congratulations!
The ID No. of your PC-boxed
\v0101\z0000 matches your Loto\fTicket number!"
Jump func_43
Func 35:
Message 43 "OK, that’s how it is, huh.
Can’t do anything about that."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 36:
Message 48 "Oh, too bad!
I wanted to check out your Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 37:
Setvar 32771 51
Jump func_44
Func 38:
Setvar 32771 216
Jump func_44
Func 39:
Setvar 32771 29
Jump func_44
Func 40:
Setvar 32771 1
Jump func_44
Func 41:
Message 12 "The last digit matched, so you
win the fourth prize!"
GiveAccessories2 32772
Message 13 "You gained a new Backdrop for use
in Fitting Rooms."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 42:
CheckAccessories2 32772 32780
If 32780 0
CheckLR 1 func_41
Setvalue 32772 1
If 32772 13
CheckLR 3 func_42
Setflag 276
Jump func_31
Func 43:
Copyvar 32776 32770
If 32776 2
CheckLR 1 func_45
If 32776 3
CheckLR 1 func_46
If 32776 4
CheckLR 1 func_47
If 32776 5
CheckLR 1 func_48
End
Func 44:
Copyvar 32772 32771
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_49
Callstd 252 7
Jump func_50
Func 45:
Message 14 "The last two digits matched, so you
win the third prize!"
Jump func_30
Func 46:
Message 15 "The last three digits matched, so you
win the second prize!"
Jump func_30
Func 47:
Message 16 "The last four digits matched, so you
win the first prize!"
Jump func_30
Func 48:
Message 17 "Oh, my goodness, all five digits
matched!
You’ve won the jackpot prize!
This is just so incredible!
...Oh, I’m sorry! Your prize!
I got carried away there.
Here you go!"
Jump func_30
Func 49:
Copyvar 16626 32770
Message 18 "...Oh?
You seem to have no room for this.
Please make room in your Bag and
then let me know."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 50:
Setvar 16626 0
Message 20 "Please do visit again."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(12) C01R0202 Jubilife City Jubilife TV-02
SCRIPT ORDER:
Script 2
Script 3
Script 1
SCRIPTS:
Script 1:
CheckStatusPhraseBox? 9 16384
If 16384 0
CheckLR 1 func_1
Clearflag 563
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I don’t know what to do.
What Accessories will go well with
my dress today?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 317
CheckLR 1 func_2
StoreStarter 32780
If 32780 387
CheckLR1 1 func_3
If 32780 390
CheckLR1 1 func_4
If 32780 393
CheckLR1 1 func_5
Copyvar 16650 32772
CheckPokeParty2 1024 11392
0100
Setvar 32773 1
Callstd 223 7
Setflag 317
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 563
End
Func 2:
SetvarAccessories 0 16650
Message 2 "That’s a \v011F\z0000!
I hope you get into collecting
Accessories for your Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Setvar 32772 92
Killscript
Func 4:
Setvar 32772 93
Killscript
Func 5:
Setvar 32772 94
Killscript
(13) C01R0203 Jubilife City Jubilife TV-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The Group Ranking Room is the one
closest to the stairs.
The room on the opposite side
is the Global Ranking Room."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I just realized something!
It’s going to be great!
If I trade lots of Pokémon, I’ll get
a better chance at winning the
Pokémon Lottery!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Records are fine things.
They tell you the history of stuff.
You can really sense the dramatic
stories behind all those numbers!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Hey, there!
How’s it going?
I’m a TV producer here.
Are you watching TV?
So, let me ask you.
Will you tell me your opinion on TV?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_1
Jump func_2
FUNCTIONS:
Func 1:
Fadescreen 6 1 0 0
Resetscreen
CloseMsgOnKeyPress
StorePhraseBox2W 0 32780 32768 32769
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 0
CheckLR 1 func_2
Message 4 "Oh, yeah?
That’s interesting.
Moving right along, what feedback
can you give me about TV?"
Fadescreen 6 1 0 0
Resetscreen
CloseMsgOnKeyPress
StorePhraseBox2W 0 32780 32770 32771
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 0
CheckLR 1 func_2
CheckPhraseBoxImput2 32780 32768 32769 32770 32771
If 32780 255
CheckLR 1 func_3
If 32780 0
CheckLR 1 func_3
Jump func_4
Func 2:
Message 6 "Oh, all right.
I can understand how busy it must
get for you.
It’d be cool if you could answer my
questions when you’ve got time.
See you again!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
ComparePhraseBoxImput 32780 32768 32769 32770 32771
If 32780 0
CheckLR 1 func_5
Jump func_6
Func 4:
Message 7 "...Oh?
The fact that you know that phrase
tells me you’re someone in the know.
You’re a Trainer, right?
I’ll pull some strings for you.
I think I can swing a deal to get you
a new wallpaper for your PC Boxes.
Make sure you keep your channel
tuned to Jubilife TV."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 5 "Oh, yeah?
That’s interesting.
Thanks for answering my questions.
I’ll file it away for reference.
Keep your channel tuned to
Jubilife TV!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 8 "...Oh?
The fact that you know that phrase
tells me you’re someone in the know.
You’re a Trainer, right?
I’ll pull some strings for you.
I think I can swing a deal so you
can receive a Mystery Gift.
Make sure you keep your channel
tuned to Jubilife TV."
Waitbutton
ActMisteryGift
CloseMsgOnKeyPress
Releaseall
End
(14) C01R0204 Jubilife City Jubilife TV-04
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Your exploits are fantastic!
With our TV station, we can tell
the whole world about you!
It’s merely one of many possibilities!
Harrumph!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "“Participation for all” is our TV
network’s motto."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(15) C01R0205 Jubilife City Jubilife TV-05
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 13
Script 14
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Setvar 32775 0
Checkflag 136
CheckLR1 0 func_1
If 16385 0
CheckLR 1 func_2
If 16385 1
CheckLR 1 func_3
End
Script 2:
Fanfare 1500
Lockall
CheckDress 0 32780
If 32780 0
CheckLR 1 func_4
Fadescreen 6 1 0 0
Resetscreen
DisplayDressedPokemon 0 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 3:
Fanfare 1500
Lockall
CheckDress 1 32780
If 32780 0
CheckLR 1 func_4
Fadescreen 6 1 0 0
Resetscreen
DisplayDressedPokemon 1 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 4:
Fanfare 1500
Lockall
CheckDress 2 32780
If 32780 0
CheckLR 1 func_4
Fadescreen 6 1 0 0
Resetscreen
DisplayDressedPokemon 2 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 5:
Fanfare 1500
Lockall
CheckDress 3 32780
If 32780 0
CheckLR 1 func_4
Fadescreen 6 1 0 0
Resetscreen
DisplayDressedPokemon 3 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 6:
Fanfare 1500
Lockall
CheckDress 4 32780
If 32780 0
CheckLR 1 func_4
Fadescreen 6 1 0 0
Resetscreen
DisplayDressedPokemon 4 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 7:
Fanfare 1500
Lockall
CheckDress 5 32780
If 32780 0
CheckLR 1 func_4
Fadescreen 6 1 0 0
Resetscreen
DisplayDressedPokemon 5 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 8:
Fanfare 1500
Lockall
CheckDress 6 32780
If 32780 0
CheckLR 1 func_4
Fadescreen 6 1 0 0
Resetscreen
DisplayDressedPokemon 6 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 9:
Fanfare 1500
Lockall
CheckDress 7 32780
If 32780 0
CheckLR 1 func_4
Fadescreen 6 1 0 0
Resetscreen
DisplayDressedPokemon 7 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 10:
Fanfare 1500
Lockall
CheckDress 8 32780
If 32780 0
CheckLR 1 func_4
Fadescreen 6 1 0 0
Resetscreen
DisplayDressedPokemon 8 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 11:
Fanfare 1500
Lockall
CheckDress 9 32780
If 32780 0
CheckLR 1 func_4
Fadescreen 6 1 0 0
Resetscreen
DisplayDressedPokemon 9 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 12:
Fanfare 1500
Lockall
CheckDress 10 32780
If 32780 0
CheckLR 1 func_4
Fadescreen 6 1 0 0
Resetscreen
DisplayDressedPokemon 10 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 13:
Fanfare 1500
Lockall
Faceplayer
Message 16 "They display photos from Trainers
you been mixin’ records with, right?
I hope you collect yerself some good
photos of dressed-up Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 14:
Fanfare 1500
Lockall
Faceplayer
Message 17 "I won a new Backdrop from the
Pokémon Lottery downstairs."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvar 32775 1
Killscript
Func 2:
Message 1 "Ooh, your Pokémon are so very
charming! How enchanting!
They’re so charming I will even hang
a picture of one right beside me!
I’m only doing this especially for
you! Exciting, don’t you think?
Dress up your Pokémon in my boudoir
and make it a sight to behold!
I will snap a photo when you’re done.
You will do this, won’t you?"
Jump func_5
Func 3:
Message 11 "If you dress up any Pokémon again,
the photo here will be changed.
Would you like to dress up
a Pokémon, dearie?"
Jump func_5
Func 4:
Message 15 "It’s a photo frame."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Yesnobox 32780
If 32780 0
CheckLR 1 func_6
If 32780 1
CheckLR 1 func_7
End
Func 6:
Message 3 "Ooh, ooh, yes! How nice!
Let’s not delay!
Should I explain to you how to dress
up your Pokémon?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_8
If 32780 1
CheckLR 1 func_9
End
Func 7:
Message 2 "Oh, you silly thing...
Where’s your sense of adventure?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 6 "You have a Fashion Case, don’t you?
Ah, oui, wonderful!
Just choose the Accessories and put
them on your Pokémon.
When you’re done, I will snap a photo
and put it up beside me!
If you mix your records with others,
you can get their photos, too!
I think it will be much easier if
you will just try!"
Jump func_10
Func 9:
Checkpartynumber 32780
If 32780 1
CheckLR 1 func_11
If 32780 1
CheckLR 5 func_12
End
Func 10:
Yesnobox 32780
If 32780 0
CheckLR 1 func_9
If 32780 1
CheckLR 1 func_7
End
Func 11:
Setvar 16386 0
Jump func_13
Func 12:
Message 4 "Ooh, choose which Pokémon you want
to dress up."
Waitbutton
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
ChsPokemenu
StorePokeMenu2 16386
Callend
Fadescreen 6 1 1 0
Resetscreen
If 16386 255
CheckLR 1 func_7
CheckPokeEgg 16386 32780
If 32780 0
CheckLR 1 func_14
Jump func_13
Func 13:
Message 5 "Teheheh...
I hope you will dress it up adorably!"
CloseMsgOnKeyPress
CheckFacePosition 32774
If 32774 0
CheckLR 1 func_15
If 32774 2
CheckLR 1 func_16
If 32774 3
CheckLR 1 func_17
End
Func 14:
Message 13 "Ooh, non, non, non! That’s an Egg!
It’s too young to be dressing up!"
Jump func_12
Func 15:
Applymovement 0 mov_1
Waitmovement
Applymovement 255 mov_2
Waitmovement
Jump func_18
Func 16:
Applymovement 0 mov_3
Waitmovement
Applymovement 255 mov_4
Waitmovement
Jump func_18
Func 17:
Applymovement 0 mov_5
Waitmovement
Applymovement 255 mov_6
Waitmovement
Jump func_18
Func 18:
Setflag 136
Fadescreen 6 1 0 0
Resetscreen
DressPokemon 16386 32773 32775
Callend
Applymovement 255 mov_7
Waitmovement
Fadescreen 6 1 1 0
Resetscreen
If 32774 0
CheckLR 1 func_19
If 32774 2
CheckLR 1 func_20
If 32774 3
CheckLR 1 func_21
End
Func 19:
Applymovement 255 mov_8
Waitmovement
Applymovement 0 mov_9
Waitmovement
Jump func_22
Func 20:
Applymovement 255 mov_8
Waitmovement
Applymovement 0 mov_10
Waitmovement
Jump func_22
Func 21:
Applymovement 255 mov_8
Waitmovement
Applymovement 0 mov_11
Waitmovement
Jump func_22
Func 22:
If 32773 0
CheckLR 1 func_23
Setvar 16385 1
Message 7 "Ooh, nice work!
Let’s display the photo right away!\fOh, but it needs to have a title!"
Waitbutton
CloseMsgOnKeyPress
Jump func_24
Func 23:
Message 10 "Oh... You came out without doing
anything... How disappointing."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 24:
Fadescreen 6 1 0 0
Resetscreen
StorePhraseBox1W 0 32780 32772
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 0
CheckLR 1 func_25
StorePhotoName 32772
SetvarPhraseBox1W 0 32772
Message 8 "\v011C\z0000...
Ooh, yes, yes! I get it now!
Your aesthetics shine through!"
Waitbutton
Applymovement 0 mov_12
Waitmovement
Message 14 "I put your photo up right here.
It just looks so perfect there!"
Waitbutton
CloseMsgOnKeyPress
Applymovement 0 mov_13
Waitmovement
Releaseall
End
Func 25:
Message 9 "Oh, non, non, non!
It will be forlorn without a title."
Waitbutton
CloseMsgOnKeyPress
Jump func_24
(16) C01R0206 Jubilife City Jubilife TV-06
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
ShowRecordList 0
Releaseall
End
Script 2:
Fanfare 1500
Lockall
ShowRecordList 1
Releaseall
End
Script 3:
Fanfare 1500
Lockall
ShowRecordList 2
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Someone broke my Pokémon-catching
record!
I’ll reclaim my record and regain
my place in the standings!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 1 "My name isn’t on the rankings?
What kind of nonsense is that?!
...It’s because I’ve never taken
part in a Contest.
I bet it’d feel great if I could
be number one here!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 2 "I really don’t win many battles...
But it doesn’t get me down.
I’m trying for the world record
at Pokémon fishing!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Sorry, I’m still fine-tuning this
thingy here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(17) C01R0207 Jubilife City Jubilife TV-07
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
ShowRecordList 3
Releaseall
End
Script 2:
Fanfare 1500
Lockall
ShowRecordList 4
Releaseall
End
Script 3:
Fanfare 1500
Lockall
ShowRecordList 5
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 0 "You can see the rankings of people
in your group here.
It makes me try even harder ’cause
I can’t stand losing to my friends!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 1 "These rankings are nifty!
I’m going to make a group and
compete with all my best friends!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Sorry, I’m still fine-tuning this
thingy here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(18) C01R0208 Jubilife City Jubilife TV-08
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckFloor 16590
Copyvar 32776 16590
If 32776 0
CheckLR 1 func_1
If 32776 1
CheckLR 1 func_2
If 32776 2
CheckLR 1 func_3
If 32776 3
CheckLR 1 func_4
End
FUNCTIONS:
Func 1:
Setvarnum 0 4
Jump func_5
Func 2:
Setvarnum 0 3
Jump func_5
Func 3:
Setvarnum 0 2
Jump func_5
Func 4:
Setvarnum 0 1
Jump func_5
Func 5:
StartLift 276 16590 44
(19) C01R0301 Jubilife City R3-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Pokémon are wonderful, deeply
mysterious creatures.
But to Trainers, it seems the only
thing that matters is battling!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Hello there, Trainer!
If you get stumped and don’t know
what to do...
Talk to people!
Talk to everyone you see!
Go places!
Go wherever you can!
You’ll find many new places by
doing just that."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(20) C01R0302 Jubilife City R3-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Did you know?
Some kinds of Pokémon evolve when
they get stronger from battling!
When they evolve, they can take on
completely different forms!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Evolution makes Pokémon just that
much more fascinating."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(21) C01R0303 Jubilife City R3-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "When I give my Pokémon nicknames,
it’s like they’re my very own.
It gives me a warm and fuzzy feeling!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(22) C01R0304 Jubilife City R3-04
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(23) C01R0401 Jubilife City R4-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(24) C01R0501 Jubilife City R5-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Isn’t my Pokétch quite fetching?
A Trainer would be simply lost without
a Pokétch, after all."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 1 "PIKACHU: Piika pi!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 417 0
Message 2 "PACHIRISU: Pachipachii?"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 191
CheckLR 1 func_1
Setvaritem 0 217
Message 3 "Oh, your Pokémon is quite adorable!
Here, try making it hold this
\v0108\z0000."
Setvar 32772 217
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 191
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 4 "A Pokémon holding that Quick Claw can
sometimes attack first, even if it\fis normally a little bit slow.
There are other items that are only
useful when given to a Pokémon.
Try finding other items that you can
make your Pokémon hold.
...I sound like I’m a teacher or
something."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(25) C01R0502 Jubilife City R5-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I like making my Pokémon use their
attacks.
Sometimes, when they get stronger,
they learn new moves.
Those new moves keep things fresh
and are a fun distraction for me!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Did you buy some Heal Balls at the
Poké Mart?
A Heal Ball completely heals the
Pokémon it captures on the spot.
That means you can catch a Pokémon
and have it battle-ready right away.
Of course, if your team has six
Pokémon in it, it won’t do any good."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(26) C01R0503 Jubilife City R5-03
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I can trade Pokémon around the world
using Nintendo WFC...
Just hearing that name gets my heart
racing!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "The world you can reach with
Nintendo WFC...
I can’t tell if it’s huge or small."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(27) C01R0504 Jubilife City R5-04
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 126
CheckLR 1 func_1
Message 0 "You managed to come out here?
That takes focus!
For someone like you, this
\v0108\z0000 might be perfect.
Let a Pokémon hold it, yah?"
Setvar 32772 230
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 126
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "There are items that are useful only
when they’re held by Pokémon.
Try finding other items like that
and spice up your adventure!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(28) C01R0601 Jubilife City GTS-01
SCRIPT ORDER:
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 2
Script 1
SCRIPTS:
Script 1:
If 16597 6
CheckLR1 1 func_1
End
Script 2:
Lockall
Goto func_2
Releaseall
End
Script 3:
End
Script 4:
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
StorePokeNumParty 32780
If 32780 1
CheckLR 1 func_3
Checkflag 195
CheckLR 1 func_4
Setflag 195
Message 0 "Welcome! This is the Global Trade
Station, or GTS for short.
We enable the trading of Pokémon with
people worldwide over Nintendo WFC.
Would you like to do a global
Pokémon trade?"
Jump func_5
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 10 "That’s a big globe, eh?
Where do I live on it now?
Let’s see if I can point it out..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 11 "They say if you communicate with
someone, their location is
recorded on this giant globe."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 12 "All I need to do is leave a Pokémon
here to trade.
Who knows, it might be traded while
I’m asleep tonight."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 13 "You can easily trade Pokémon with
Pokémon fans around the world.
Isn’t that something?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
Message 14 "You can register where you live on
this giant globe.
Once you do, your location will
be displayed to anyone you
communicate with."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Faceplayer
Message 15 "Is Nintendo WFC something even I
can use easily?
If it is really that easy, I’d love
to trade Pokémon, too!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
RemovePeople2 255
Killscript
Func 2:
PrpDoorAnm 0 0 12 2 77
Goto func_6
AddPeople2 255
Applymovement 255 mov_1
Waitmovement
Goto func_7
PrpDoorAnm 0 0 12 4 77
Goto func_6
Applymovement 255 mov_2
Waitmovement
Goto func_7
Setvar 16597 0
Killscript
Func 3:
Callstd 56 35
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 1 "Hello!
Welcome to the GTS!
Would you like to do a global
Pokémon trade over Nintendo WFC?"
Jump func_5
Func 5:
Multi 1 1 0 1 32780
Txtscrpmulti 129 0
Txtscrpmulti 128 1
Txtscrpmulti 130 2
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_8
If 32776 1
CheckLR 1 func_9
If 32776 2
CheckLR 1 func_10
Jump func_10
Func 6:
Opendoor 77
Waitaction 77
Killscript
Func 7:
Closedoor 77
Waitaction 77
Waitclose 77
Killscript
Func 8:
CheckPartyNumberUnion 32780
If 32780 2
CheckLR 0 func_11
Jump func_12
Func 9:
Message 2 "You may trade Pokémon one of two
ways at the GTS.
You may offer a Pokémon for trade,
or search among offered Pokémon.
Should I describe things in greater
detail?"
Jump func_13
Func 10:
Setvar 16597 0
Message 6 "Please do visit again."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Message 9 "...Uh-oh!
You only have one Pokémon with you.
If you wish to use the GTS, you must
have at least two Pokémon with you.
Please come back with more Pokémon
on your team."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
Checkpartynumber 32780
If 32780 6
CheckLR 1 func_14
Jump func_15
Func 13:
Multi 1 1 0 1 32780
Txtscrpmulti 131 0
Txtscrpmulti 132 1
Txtscrpmulti 133 2
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_16
If 32776 1
CheckLR 1 func_17
If 32776 2
CheckLR 1 func_18
Jump func_18
Func 14:
CheckBoxesNumber 32780
If 32780 0
CheckLR 1 func_19
Jump func_15
Func 15:
Callstd 214 7
Copyvar 32780 16384
If 32780 0
CheckLR 1 func_10
HealPkmn
Setvar 16597 6
Message 7 "I hope you enjoy your visit
to the GTS!"
CloseMsgOnKeyPress
Applymovement 255 mov_3
Waitmovement
PrpDoorAnm 0 0 12 4 77
Goto func_6
Applymovement 255 mov_4
Waitmovement
Goto func_7
PrpDoorAnm 0 0 12 2 77
Goto func_6
Applymovement 255 mov_5
Waitmovement
RemovePeople2 255
Applymovement 255 mov_6
Waitmovement
Goto func_7
Fadescreen 6 1 0 0
Resetscreen
02B2
StartWfc 32780
Copyvar 32772 32780
StoreWfcStatus 32772 32780
If 32780 0
CheckLR 1 func_20
Callend
Fadescreen 6 1 1 0
Resetscreen
Goto func_2
Releaseall
End
Func 16:
Message 3 "You will be asked to put up the
Pokémon you are offering to trade.
At that time, you will be asked what
Pokémon you would like in return.
If another player offers your desired
Pokémon in return for your offered\fPokémon, the trade will go through.
Should I explain anything else?"
Jump func_13
Func 17:
Message 4 "You may search among the Pokémon
that are offered by other Trainers.
They will all identify what Pokémon
their Trainers want back in return.
If you find one that you want, you
must provide us with the kind of\fPokémon wanted in return.
Should I explain anything else?"
Jump func_13
Func 18:
Message 5 "Would you like to make a global
Pokémon trade?"
Jump func_5
Func 19:
Message 8 "Wow... Uh-oh!
I’m sorry, but your team and all
your PC Boxes are full.
If you wish to use the GTS, you must
have room on your team or in\fa PC Box."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 20:
Callend
Fadescreen 6 1 1 0
Resetscreen
Goto func_2
Jump func_10
(29) C01R0701 Jubilife City Trainers’ School-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Setvarhero 0
Setvarrival 1
Message 0 "\v0103\z0001: Hey, \v0103\z0000!
Did you come to study, too?
I went ahead and memorized everything
that was up on the blackboard.
After all, it’s the Trainer’s job to
avoid having their precious Pokémon
hurt in battle, right?
So, \v0103\z0000, what brings you?
Huh?
You’ve got something for me?"
Soundfr 1158
Setvarhero 0
Message 1 "\v0103\z0000 delivered the Parcel."
Fadedef
GiveItem 459 1 32780
Setvarhero 0
Setvarrival 1
Message 2 "\v0103\z0001: So, what is this...?
Score!
It’s a Town Map!
Huh?!
Why are there two in here?
I like it a lot, but I don’t need two.
Here, \v0103\z0000, you take one!"
Setvar 32772 442
Setvar 32773 1
Callstd 252 7
Setvarrival 1
Message 3 "\v0103\z0001: Hmm...
Well, according to the Town Map,
I guess Oreburgh City is where
I should be going next.
There’s a Gym, so it’d be perfect for
raising the Pokémon I just caught.
Well, I’m on the road to becoming
the greatest Trainer of all time!
See you around!"
CloseMsgOnKeyPress
CheckFacePosition 32780
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_1
If 32776 2
CheckLR 1 func_2
Jump func_3
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 4 "You just became a Trainer, did you?
You should look up topics that you’re
not familiar with."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 6 "We learned about Pokémon types
today. Umm...
Grass is weak to Fire,
Fire is weak to Water, and
Water is weak to Grass!
I think that’s how it goes!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 8 "I wrote an essay in my notebook on
what makes a true Pokémon Trainer."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 7 "Pokémon are smart enough to use
items they’re holding.
But they won’t know what to do with
man-made items like Potions and
Antidotes."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
End
Script 8:
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Checkflag 274
CheckLR 1 func_4
Checkflag 268
CheckLR 1 func_5
Message 9 "Doing it is the best way to learn!
Can we get a battle with you?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_6
If 32780 1
CheckLR 1 func_7
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
Checkflag 269
CheckLR 1 func_8
Message 15 "I just became friends with my
Pokémon.
I’m not sure if we can do this
properly, but may we battle?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_9
If 32780 1
CheckLR 1 func_10
End
Script 11:
Fanfare 1500
Lockall
Message 20 "The blackboard lists status changes
that may affect Pokémon in battle."
Jump func_11
Script 12:
Fanfare 1500
Lockall
Message 27 "It’s a notebook filled with writing.
Let’s see...
Pokémon are to be caught using
Poké Balls.
Up to six Pokémon can accompany
a Trainer.
A Trainer is someone who catches
Pokémon, raises them, and battles
with them.
A Trainer’s mission is to defeat the
strong Trainers who await challengers
in Pokémon Gyms."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Applymovement 1 mov_1
Applymovement 255 mov_2
Waitmovement
Jump func_12
Func 2:
Applymovement 1 mov_3
Applymovement 255 mov_4
Waitmovement
Jump func_12
Func 3:
Applymovement 1 mov_3
Applymovement 255 mov_4
Waitmovement
Jump func_12
Func 4:
Message 14 "A Technical Machine, or TM for short,
contains a Pokémon move.
Using a TM, you can instantly teach
its move to a Pokémon.
But remember--a TM is good for one
use only. Don’t waste it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Checkflag 269
CheckLR 1 func_13
Message 12 "It’s hard to win if you don’t have
some Pokémon to choose from."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 10 "Go!
My Pokémon, go!"
CloseMsgOnKeyPress
TrainerBattle 342 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_14
Setflag 268
Checkflag 269
CheckLR 1 func_13
Checkflag 269
CheckLR 0 func_15
End
Func 7:
Message 11 "Aww! But battling is the best way
to learn about Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 18 "Do you think we would have done
better if I used Potions?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Message 16 "I need to try the things I learned
before I forget them!"
CloseMsgOnKeyPress
TrainerBattle 345 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_16
Setflag 269
Checkflag 268
CheckLR 1 func_17
Checkflag 268
CheckLR 0 func_18
End
Func 10:
Message 17 "Boo!
Where’s your sense of adventure?
Don’t be shy about talking to people
and getting into battles!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Message 21 "Which would you like to read about?"
Multi 7 2 0 1 32780
Txtscrpmulti 0 0
Txtscrpmulti 1 1
Txtscrpmulti 2 2
Txtscrpmulti 3 3
Txtscrpmulti 4 4
Txtscrpmulti 5 5
Multirow 2
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_19
If 32776 1
CheckLR 1 func_20
If 32776 2
CheckLR 1 func_21
If 32776 3
CheckLR 1 func_22
If 32776 4
CheckLR 1 func_23
Jump func_24
Func 12:
Fanfare 1539
Removepeople 1
WaitFanfare 1539
Setvar 16615 1
Setflag 241
Clearflag 532
Clearflag 531
Releaseall
End
Func 13:
Message 13 "Whew! You’re really good!
We’ve been studying every day, but
we were no match at all!
You’d be able to use this Technical
Machine properly. Here you go!"
Setvar 32772 337
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_25
Callstd 252 7
Setflag 274
Jump func_4
Func 14:
LostGoPc
Releaseall
End
Func 15:
Message 12 "It’s hard to win if you don’t have
some Pokémon to choose from."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 16:
LostGoPc
Releaseall
End
Func 17:
Checkflag 274
CheckLR 1 func_18
Message 19 "We were actually confident that we
would do pretty good.
But I’m completely impressed by how
tough you are.
If you’d like, talk to my friend and
get a Technical Machine from him."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 18:
Message 18 "Do you think we would have done
better if I used Potions?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 19:
Message 22 "If a Pokémon is poisoned, it will
steadily lose HP.
The effects of poison remain after
a battle.
A poisoned Pokémon’s HP will drop
while it is traveling.
Heal a poisoning using an Antidote."
Jump func_11
Func 20:
Message 23 "If a Pokémon becomes paralyzed,
its Speed stat drops.
In addition, it may not be able to
move while it is in battle.
Paralysis remains after battle.
Cure it using a Parlyz Heal."
Jump func_11
Func 21:
Message 24 "If a Pokémon falls asleep, it will be
unable to attack.
The Pokémon may wake up on its own,
but if a battle ends while it is\fsleeping, it will stay asleep.
Wake it up using an Awakening."
Jump func_11
Func 22:
Message 25 "A burn reduces the Attack stat and
steadily reduces the victim’s HP.
A burn lingers after battle.
Cure a burn using a Burn Heal."
Jump func_11
Func 23:
Message 26 "If a Pokémon is frozen, it becomes
completely helpless.
The Pokémon may thaw out on its own,
but if a battle ends while it is\ffrozen, it will stay frozen.
Thaw it out using an Ice Heal."
Jump func_11
Func 24:
CloseMsgOnKeyPress
Releaseall
End
Func 25:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(30) C01R0801 Jubilife City R8-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I got my PIKACHU through a trade
from somewhere in the world.
He grows quickly, his level’s high,
but he doesn’t listen to me...
It’s not always easy, but he’s still
my irreplaceable partner!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 1 "PIKACHU: Pikapikapikaaah!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "If everyone around the world had
Pokémon...
Then everyone around the world could
communicate!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(31) C01R0901 Jubilife City R9-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(32) C01R1001 Jubilife City R10-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(33) C02 Canalave City
SCRIPT ORDER:
Script 1
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 13
Script 14
Script 15
Script 16
Script 17
Script 18
Script 19
Script 20
Script 22
Script 21
Script 23
Script 24
Script 2
SCRIPTS:
Script 1:
If 16632 2
CheckLR1 1 func_1
If 16632 3
CheckLR1 1 func_2
Goto func_3
If 16384 0
CheckLR1 1 func_4
If 16384 1
CheckLR1 1 func_5
If 16504 1
CheckLR1 1 func_6
If 16504 2
CheckLR1 1 func_6
If 16504 4
CheckLR1 1 func_7
If 16504 5
CheckLR1 1 func_8
Checkgender 16384
If 16384 0
CheckLR 1 func_9
If 16384 1
CheckLR 1 func_10
End
Script 2:
Goto func_3
If 16384 0
CheckLR1 1 func_4
End
Script 3:
Lockall
CheckHiroPosition 32772 32773
If 32773 723
CheckLR 1 func_11
If 32773 724
CheckLR 1 func_12
If 32773 725
CheckLR 1 func_13
If 32773 726
CheckLR 1 func_14
If 32773 727
CheckLR 1 func_15
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "\v0103\z0000: Yeah, yeah, you’re just
a bit better than me, as usual.
But listen up!
Let me tell you who’s going to take
on the Pokémon League and become
the Champion.
You guessed right!
It’s going to be me!
Anyways, you should be able to
take the Gym Leader here.
Hurry up and go make the challenge!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Lockall
Setvarrival 0
Setvarhero 1
Message 2 "\v0103\z0000: Hey! That’s the Mine
Badge! Good going!
You’re tough enough to consider
becoming the Pokémon Champ.
Of course, I’m tougher, so it’s
not going to actually happen.
Anyways, \v0103\z0001, come with
me to the library."
CloseMsgOnKeyPress
Applymovement 11 mov_1
Applymovement 255 mov_2
Waitmovement
Removepeople 11
Setvar 16504 3
Setvar 16562 1
Releaseall
End
Script 6:
Lockall
Applymovement 13 mov_3
Waitmovement
Message 3 "Rowan: !
...That tremor...
That wasn’t a natural occurrence."
CloseMsgOnKeyPress
Clearflag 466
Addpeople 14
Lock 14
Applymovement 14 mov_4
Waitmovement
Message 4 "Hey, hey! Old dude and kids!
Something big just happened!
They’re saying there was a huge
explosion at Lake Valor!
\vFF01\z00C8Ka-boom!!\vFF01\z0064
\vFF01\z00C8\vFF01\z0064Like that!"
CloseMsgOnKeyPress
Applymovement 14 mov_5
Waitmovement
Removepeople 14
Applymovement 11 mov_6
Waitmovement
Setvarrival 0
Message 5 "\v0103\z0000: Gramps!
I’m going to the lake!
I have a bad feeling about this!"
CloseMsgOnKeyPress
Applymovement 11 mov_7
Waitmovement
Removepeople 11
Applymovement 13 mov_8
Waitmovement
Setvarrival 0
Setvarhero 1
Message 6 "Rowan: !
...That \v0103\z0000...
Can’t sit still...
\v0103\z0001, I’m worried about
Lake Valor.
But I have no idea what is taking
place. You must find out!
But before you go, let me stress:
don’t get in over your head.
We will try to join you as soon as
we inspect Lake Verity."
CloseMsgOnKeyPress
Applymovement 12 mov_9
Waitmovement
Return 15 32780
Checkgender 32780
If 32780 0
CheckLR 1 func_16
Jump func_17
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 11 "Rowan: Hmm...
What is taking place at Lake
Valor... You must find out!
But before you go, let me stress:
don’t get in over your head.
We will try to join you as soon as
we inspect Lake Verity."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Checkgender 32780
If 32780 0
CheckLR 1 func_18
Jump func_19
Script 9:
Fanfare 1500
Lockall
Faceplayer
Checkflag 168
CheckLR 1 func_20
Message 12 "What’s up?
Your clothes look damp.
Were you swimming at the beach
right by Sandgem Town?"
Jump func_21
Script 10:
Fanfare 1500
Lockall
Faceplayer
Checkflag 168
CheckLR 1 func_22
Message 14 "Welcome to Canalave City, the Canal
City!
In the old days, this port used to
be a hub of cargo transportation."
Jump func_21
Script 11:
Fanfare 1500
Lockall
Faceplayer
Checkflag 168
CheckLR 1 func_23
Message 16 "I’m going to study at the library.
I love reading.
I love how reading takes me to places
far away in time and space."
Jump func_21
Script 12:
Fanfare 1500
Lockall
Faceplayer
Checkflag 168
CheckLR 1 func_24
Message 18 "My PSYDUCK is very close to me.
It can use the move Return!"
Jump func_21
Script 13:
Fanfare 1500
Lockall
Faceplayer
Checkflag 168
CheckLR 1 func_25
Cryfr 54 0
Message 20 "PSYDUCK: Gua?"
Jump func_21
Script 14:
Fanfare 1500
Lockall
Faceplayer
Checkflag 168
CheckLR 1 func_26
Message 22 "The Gym Leader and Trainers of this Gym
often go out to Iron Island.
They not only train their Pokémon,
but they work out as well."
Jump func_21
Script 15:
CallMsgBox 33 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 16:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 34 32780
Callstd 208 7
End
Script 17:
CallMsgBox 547 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 18:
CallMsgBox 548 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 19:
CallMsgBox 549 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 20:
Goto func_3
If 16384 0
CheckLR 1 func_27
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 39 32780
Callstd 208 7
End
Script 21:
Fanfare 1500
Lockall
Message 40 "The door is tightly shut.
It appears impossible to open."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 22:
Fanfare 1500
Lockall
Faceplayer
CheckFacePosition 32772
Faceplayer
If 16646 2
CheckLR 1 func_28
Message 24 "Do you wanna set sail?"
Multi 1 1 0 1 32780
Txtscrpmulti 213 0
Checkflag 307
CheckLR1 1 func_29
Checkflag 316
CheckLR1 1 func_30
Txtscrpmulti 218 4
CloseMulti
If 32780 0
CheckLR 1 func_31
If 32780 1
CheckLR 1 func_32
If 32780 2
CheckLR 1 func_33
If 32780 3
CheckLR 1 func_34
Jump func_34
Script 23:
CheckItem 453 1 32780
If 32780 1
CheckLR 1 func_35
Message 28 "I’ve lost my love of sailing since my
son fell into that horrid nightmare...
I need the Lunar Wing from Fullmoon
Island to awaken him!
Would you go to Fullmoon Island for me?
If not for me, then for my son?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_36
If 32780 1
CheckLR 1 func_37
End
Script 24:
Lockall
Applymovement 16 mov_10
Waitmovement
Message 32 "You’ve been asleep for a long,
long time... What happened to you?
And what were you doing here?
No one’s lived here for fifty years."
CloseMsgOnKeyPress
Applymovement 16 mov_11
Waitmovement
Removepeople 16
ChangeOwPosition 16 45 750
ReleaseOw 16 2
ChangeOwMovement 16 16
Addpeople 16
Setvar 16632 4
Releaseall
End
FUNCTIONS:
Func 1:
Setvar 16632 0
Killscript
Func 2:
ChangeOwPosition 16 55 716
ReleaseOw 16 3
ChangeOwMovement 16 17
Killscript
Func 3:
Checkflag 344
CheckLR 1 func_38
Checkflag 2404
CheckLR 0 func_38
CheckNatPokedexStatus 2 16384
If 16384 0
CheckLR 1 func_38
CheckItem 454 1 16384
If 16384 0
CheckLR 1 func_38
UnkFunct2 0 16384
If 16384 0
CheckLR 1 func_38
Checkflag 300
CheckLR 0 func_38
Setvar 16384 1
Killscript
Func 4:
SetTileLocked 0 58 713
SetTilePassable 5 59 712
Killscript
Func 5:
Clearflag 606
Killscript
Func 6:
ChangeOwPosition 11 39 733
ReleaseOw 11 0
ChangeOwMovement 11 14
Killscript
Func 7:
ChangeOwPosition 11 37 721
ReleaseOw 11 1
ChangeOwMovement 11 15
Killscript
Func 8:
Setflag 465
Setflag 467
Setvar 16504 6
Killscript
Func 9:
Setvar 16416 97
End
Func 10:
Setvar 16416 0
End
Func 11:
ChangeOwPosition 11 38 723
Jump func_39
Func 12:
ChangeOwPosition 11 38 724
Jump func_39
Func 13:
ChangeOwPosition 11 38 725
Jump func_39
Func 14:
ChangeOwPosition 11 38 726
Jump func_39
Func 15:
ChangeOwPosition 11 38 727
Jump func_39
Func 16:
Setvarhero 0
Message 7 "Dawn: ...\v0103\z0000, you’ll be OK,
won’t you?"
Jump func_40
Func 17:
Message 8 "Lucas: Lake Valor...
I wonder what happened?"
Jump func_40
Func 18:
Message 9 "Dawn: We’re going off to Lake Verity
first...
Don’t do anything rash if something
does happen."
Jump func_41
Func 19:
Message 10 "Lucas: We’re going to investigate
Lake Verity before we join you.
Don’t try to be a hero if anything
crazy happens."
Jump func_41
Func 20:
Message 13 "The tremor earlier...
It didn’t feel like an earthquake.
It felt more like an explosion."
Jump func_21
Func 21:
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 22:
Message 15 "What was that tremor?
I thought Mt. Coronet erupted!"
Jump func_21
Func 23:
Message 17 "An explosion at Lake Valor?
But there isn’t anything there?"
Jump func_21
Func 24:
Message 19 "E-even PS-PSYDUCK’s Future Sight
couldn’t foretell that tremor!"
Jump func_21
Func 25:
Cryfr 54 0
Message 21 "PSYDUCK: Gua! Gua! Gwa?
Guaa! Guuagwa?!"
Jump func_21
Func 26:
Message 23 "I’m flabbergasted!"
Jump func_21
Func 27:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 38 32780
Callstd 208 7
End
Func 28:
CheckItem 453 1 32780
If 32780 1
CheckLR 1 func_35
Message 28 "I’ve lost my love of sailing since my
son fell into that horrid nightmare...
I need the Lunar Wing from Fullmoon
Island to awaken him!
Would you go to Fullmoon Island for me?
If not for me, then for my son?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_36
If 32780 1
CheckLR 1 func_37
End
Func 29:
Txtscrpmulti 214 1
Killscript
Func 30:
Txtscrpmulti 215 2
Killscript
Func 31:
Goto func_42
If 32772 1
CheckLR1 1 func_43
If 32772 3
CheckLR1 1 func_44
If 32772 0
CheckLR1 1 func_45
ShipAnm 771 288 100 502
Releaseall
End
Func 32:
Goto func_42
If 32772 1
CheckLR1 1 func_43
If 32772 3
CheckLR1 1 func_44
If 32772 0
CheckLR1 1 func_45
ShipAnm 515 260 39 277
Releaseall
End
Func 33:
Goto func_42
If 32772 1
CheckLR1 1 func_43
If 32772 3
CheckLR1 1 func_44
If 32772 0
CheckLR1 1 func_45
ShipAnm 771 320 152 277
Releaseall
End
Func 34:
Message 26 "You just tell me whenever you need
to set sail!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 35:
Message 31 "That Lunar Wing...
Please! Take it to my son..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 36:
Message 29 "We’re both counting on you!
Only you can awaken my son from his
awful nightmare...
Please, I need the Lunar Wing from
Fullmoon Island to awaken him!"
CloseMsgOnKeyPress
Jump func_32
Func 37:
Message 30 "Do you need to get ready?
I’ll be waiting here.
We’re desperate for your help."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 38:
Setvar 16384 0
Killscript
Func 39:
ChangeOwMovement 11 17
Clearflag 464
Addpeople 11
Callstd 250 7
Applymovement 11 mov_12
Waitmovement
Setvarrival 0
Setvarhero 1
Message 0 "\v0103\z0000: Whoops!
Hey, \v0103\z0001!
You’re going to challenge the Gym
Leader up past here, eh?
Someone should check to see if you’re
ready for this challenge!
That someone is me!
With my brand-new Gym Badge!"
CloseMsgOnKeyPress
StoreStarter 32780
If 32780 387
CheckLR 1 func_46
If 32780 390
CheckLR 1 func_47
Jump func_48
Func 40:
Waitbutton
CloseMsgOnKeyPress
Setvar 16504 5
Clearflag 434
Clearflag 403
Clearflag 689
Releaseall
End
Func 41:
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 42:
Message 25 "Anchors aweigh!"
CloseMsgOnKeyPress
Applymovement 16 mov_13
Waitmovement
Fanfare 1539
Applymovement 16 mov_14
Waitmovement
Killscript
Func 43:
Applymovement 255 mov_15
Waitmovement
Fanfare 1539
Applymovement 255 mov_14
Waitmovement
Killscript
Func 44:
Applymovement 255 mov_16
Waitmovement
Fanfare 1539
Applymovement 255 mov_14
Waitmovement
Killscript
Func 45:
Applymovement 255 mov_17
Waitmovement
Fanfare 1539
Applymovement 255 mov_14
Waitmovement
Killscript
Func 46:
TrainerBattle 477 0
Jump func_49
Func 47:
TrainerBattle 478 0
Jump func_49
Func 48:
TrainerBattle 476 0
Jump func_49
Func 49:
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_50
Setvarrival 0
Message 1 "\v0103\z0000: Yeah, yeah, you’re just
a bit better than me, as usual.
But listen up!
Let me tell you who’s going to take
on the Pokémon League and become\fthe Champion.
You guessed right!
It’s going to be me!
Anyways, you should be able to
take the Gym Leader here.
Hurry up and go make the challenge!"
CloseMsgOnKeyPress
Applymovement 11 mov_18
Waitmovement
Removepeople 11
Setvar 16504 1
Releaseall
End
Func 50:
Setflag 464
LostGoPc
Releaseall
End
(34) C02FS0101 Canalave City Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 16
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Setvaritem 0 24
Message 0 "A Poké Ball that makes it easy to
catch the same kinds of Pokémon...
Well, that’s the Repeat Ball!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Setvaritem 0 57
Message 1 "What should I buy for an outing to
Iron Island, I wonder?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(35) C02GYM0101 Canalave City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
CanalaveGymFunction
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 5 32780
If 32780 1
CheckLR 1 func_1
DeActivateLeader 9 35 0 0 0
Message 0 "Ah!
That’s Oreburgh’s Gym Badge!
I see, I see!
You’ve defeated my son.
But that’s no surprise.
He still has much to learn.
In place of my son Roark, I, Byron,
will take your challenge!"
CloseMsgOnKeyPress
TrainerBattle 250 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
Message 1 "You were strong enough to take down
my prized team of Pokémon.
In recognition of that power,
I give you this: the Mine Badge!"
Setvarhero 0
Message 2 "\v0103\z0000 received
the Mine Badge from Byron!"
Soundfr 1161
Fadedef
Setbdgtrue 5
MainEvent 23
SetTrainerId 232
SetTrainerId 256
SetTrainerId 257
SetTrainerId 279
SetTrainerId 283
SetTrainerId 314
SetTrainerId 367
DeActivateLeader 10 35 250 0 0
Clearflag 464
Clearflag 470
Clearflag 468
Clearflag 469
Setvar 16504 2
Setflag 438
Message 3 "Having the Mine Badge enables you to
use the hidden move Strength anytime
outside of battle.
And you now have six Gym Badges.
That means all Pokémon up to Lv. 70
will obey you without question.
Here!
Take this, too!"
Jump func_3
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 5 32780
If 32780 1
CheckLR 1 func_4
Message 6 "Hey, there!
Champ-to-be!
The Gym Leader here uses Steel-type
Pokémon.
Steel-type Pokémon have high Defense,
so you’d have to hit them hard!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Checkbadge 5 32780
If 32780 1
CheckLR 1 func_5
Setvarrival 0
Setvarrival 1
Message 8 "Canalave City Pokémon Gym
Leader: Byron
Certified Trainers:
\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Checkflag 146
CheckLR 0 func_3
Setvarrival 1
Message 5 "Gwahahahaha!
The Sinnoh region is vast!
Tough Trainers like you and
\v0103\z0001 crop up constantly\fto challenge the old guard!
With more young Trainers like my son
and you two taking charge, the\ffuture of Pokémon is bright!
But I’m not stepping aside just yet!
I merely need to rededicate myself
to training on Iron Island."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
LostGoPc
Releaseall
End
Func 3:
Setvar 32772 418
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_6
Callstd 252 7
Setflag 146
Setvaritem 0 32772
Setvaratkitem 1 32772
Message 4 "That \v0108\z0000 contains the move
\v0106\z0001.
If it hits, it may also lower the
target’s Special Defense."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Setvarhero 0
Message 7 "Oh! \v0103\z0000!
You’ve beaten the Gym Leader!
Good going!
That makes it six Gym Badges!
I tell you what, you’re really turning
into one fine Trainer.
If you were to say you’re going to
try to become the Pokémon Champ...
No one’d laugh at you now!
I’m in your corner, kiddo!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Setvarrival 0
Setvarhero 1
Setvarrival 2
Message 9 "Canalave City Pokémon Gym
Leader: Byron
Certified Trainers:
\v0103\z0000\f\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(36) C02PC0101 Canalave City Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 32775 1
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The same kinds of Pokémon can
sometimes have different abilities.
Maybe I ought to raise two with
different natures."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I can’t use the hidden move Strength
until I beat Byron, the Gym Leader.
I already got the Strength HM from
the Lost Tower on Route 209, also..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 2 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(37) C02PC0102 Canalave City Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(38) C02R0101 Canalave City Canalave Library-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 168
CheckLR 1 func_1
Message 0 "Hello.
This is the Canalave Library.
Please keep quiet while you’re on
the premises."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Checkflag 168
CheckLR 1 func_2
Message 2 "..."
Faceplayer
Message 3 "What is it? Please don’t disturb
me when I’m reading."
CloseMsgOnKeyPress
Applymovement 1 mov_1
Waitmovement
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 5 "The ceiling-high bookshelves are
crammed with books."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Message 6 "The shelves are lined with books
worn from being read by many people."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "H-hello!
This is the Canalave Library.
Please keep quiet while you’re on
the premises.
It certainly wasn’t me who screamed,
\vFF01\z00C8“Gyaaah!!”\vFF01\z0064
\vFF01\z00C8\vFF01\z0064or shouted,
\vFF01\z00C8“Help meee!!”\vFF01\z0064
\vFF01\z00C8\vFF01\z0064No, really, that wasn’t me
screaming!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Faceplayer
Message 4 "I’ve been asking people not to
disturb me while I’m reading...
I shouldn’t even have bothered...
I’m all agitated now!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(39) C02R0102 Canalave City Canalave Library-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 168
CheckLR 1 func_1
Message 0 "The books on the third floor are
easy to read.
The ones down here are all too tough
for me to understand..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Message 2 "The ceiling-high bookshelves are
crammed with books."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 3 "The shelves are lined with books
worn from being read by many."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Message 4 "Please refrain from bringing food
or beverages into the library."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "I looked up a book called
“Surviving Disasters” right away!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(40) C02R0103 Canalave City Canalave Library-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
SCRIPTS:
Script 1:
Checkgender 16384
If 16384 0
CheckLR 1 func_1
If 16384 1
CheckLR 1 func_2
End
Script 2:
Lockall
Setvarrival 0
Setvarhero 1
Message 0 "\v0103\z0000: Hey, \v0103\z0001!
Over here! This way!"
CloseMsgOnKeyPress
Applymovement 4 mov_1
Applymovement 255 mov_2
Waitmovement
CheckHiroPosition 32772 32773
Lockcam 32772 32773
Applymovement 241 mov_3
Waitmovement
Return 30 32780
Setvarrival 0
Setvarhero 1
Message 1 "\v0103\z0000: OK, gramps!
I brought \v0103\z0001 like I said!
All right, I’ll be outta here!"
CloseMsgOnKeyPress
Applymovement 4 mov_4
Waitmovement
Setvarhero 0
Message 2 "Rowan: ...
...
...
...
...
..."
Setvarrival 0
Message 3 "\v0103\z0000: ...OK...
I get it..."
CloseMsgOnKeyPress
Applymovement 4 mov_5
Waitmovement
Return 10 32780
Setvarhero 0
Message 4 "Rowan: Hm! Everyone’s here finally.
\v0103\z0000, everyone, listen.
You may have forgotten already, but
I study the evolution of Pokémon."
CloseMsgOnKeyPress
Applymovement 2 mov_6
Waitmovement
Message 5 "But the more I study, the more
mysteries appear and multiply.
Pokémon that evolve, and those that
don’t...
What makes them different from each
other?
Do those that are immature as living
beings evolve to ones more mature?
If so, what do we make of the
legendary Pokémon that don’t evolve?
Are we to assume that the legendary
Pokémon are complete as creatures?"
CloseMsgOnKeyPress
Applymovement 2 mov_7
Waitmovement
Message 6 "This is where you three come in.
In the three lakes of Sinnoh, there
are said to be mirage Pokémon.
If we can obtain data on them,
it may shed some light on how the
process of Pokémon evolution works.
I need help from each one of you
on this grand undertaking.
Help me find these Pokémon that are
considered to be mirages."
Setvarrival 0
Message 7 "\v0103\z0000: What are you saying?
I didn’t get no Pokédex!"
Message 8 "Rowan: ...And who was it that bolted
from the lab before I had a chance
to give you a Pokédex?
But that’s water under the bridge!
Seeing Pokémon with your own eyes
is important for you in becoming
a better Trainer, too."
Checkgender 32780
If 32780 0
CheckLR 1 func_3
Jump func_4
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 168
CheckLR 1 func_5
Message 21 "Every book contains someone’s
memories of various places and times.
Libraries aren’t just buildings where
books are kept, you know.
They’re where different places
and times are gathered together."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 168
CheckLR 1 func_6
Message 23 "Someone’s always checked out the
book I want to read..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Message 25 "This book is titled “Sinnoh
Myth.” Want to read it?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_7
If 32780 1
CheckLR 1 func_8
End
Script 6:
Fanfare 1500
Lockall
Message 28 "This book is titled “Sinnoh Region’s
Mythology.” Want to read it?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_9
If 32780 1
CheckLR 1 func_10
End
Script 7:
Fanfare 1500
Lockall
Message 31 "This book is titled “Sinnoh’s
Myth.” Want to read it?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_11
If 32780 1
CheckLR 1 func_12
End
Script 8:
Fanfare 1500
Lockall
Message 34 "This book is titled “Veilstone’s
Myth.” Want to read it?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_13
If 32780 1
CheckLR 1 func_14
End
Script 9:
Fanfare 1500
Lockall
Message 39 "This ancient book is titled “The
Original Story.” Want to read it?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_15
If 32780 1
CheckLR 1 func_16
End
Script 10:
Fanfare 1500
Lockall
Message 44 "This book is titled “A Horrific
Myth.” Want to read it?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_17
If 32780 1
CheckLR 1 func_18
End
Script 11:
Fanfare 1500
Lockall
Message 47 "This book is titled “Sinnoh Folk
Stories.”"
Message 48 "Which story would you like to read?"
Multi 1 1 0 1 32780
ChoiceMulti 259 0
ChoiceMulti 260 1
ChoiceMulti 261 2
ChoiceMulti 262 3
CloseMulti
If 32780 0
CheckLR 1 func_19
If 32780 1
CheckLR 1 func_20
If 32780 2
CheckLR 1 func_21
Jump func_22
Script 12:
Fanfare 1500
Lockall
Message 53 "On this floor, you will find many
books on the myths and legends of
the Sinnoh region."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvar 16416 97
End
Func 2:
Setvar 16416 0
End
Func 3:
Setvarhero 0
Message 9 "Dawn: You can count on me!
It will help with my Pokédex, too.
\v0103\z0000, you’ll go too,
won’t you?"
Jump func_23
Func 4:
Setvarhero 0
Message 10 "Lucas: You bet, Professor!
This will add to the Pokédex
database and help advance your\fresearch."
Jump func_23
Func 5:
Message 22 "W-was that an earthquake?
I didn’t imagine it?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 24 "I’m feeling wobbly...
Even though the tremor has ended,
my knees still feel like jelly..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 27 "“Sinnoh Myth”
Betray not your anger, lest ??? will
come.
Weep not with sorrow, or ??? will
draw near.
When joy and enjoyment come natural
as the very air, that is happiness.
Let such be blessed by the hand
of Master ???.
Those words were spoken often
as customary."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Setvarhero 0
Message 26 "\v0103\z0000 put the book back."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Message 30 "“Sinnoh Region’s Mythology”
Long ago, when Sinnoh had just been
made, Pokémon and humans led\fseparate lives.
That is not to say they did not help
each other. No, indeed they did.
They supplied each other with goods,
and supported each other.
A Pokémon proposed to the others
to always be ready to help humans.
It asked that Pokémon be ready to
appear before humans always.
Thus, to this day, Pokémon appear
to us if we venture into tall grass."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Setvarhero 0
Message 29 "\v0103\z0000 put the book back."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Message 33 "“Sinnoh’s Myth”
Three Pokémon there were.
Into the lakes they dove.
Deep, deep, drawing no breath.
Deeper, deeper they dove.
Into suffocating depths they dove.
Deeper, then deepest they alight.
From the lake floor they rise.
Bearing with them the power to make
vast lands, they rise again."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
Setvarhero 0
Message 32 "\v0103\z0000 put the book back."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 13:
Message 36 "“Veilstone’s Myth”
A young man, callow and foolish in
innocence, came to own a sword.
With it, he smote Pokémon, which gave
sustenance, with carefree abandon.
Those not taken as food, he
discarded, with no afterthought.
The following year, no Pokémon
appeared. Larders grew bare.
...Would you like to keep reading?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_14
Message 37 "The young man, seeking the missing
Pokémon, journeyed afar.
Long did he search. And far and wide,
too, until one he did find.
Asked he, “Why do you hide?”
To which the Pokémon replied...
“If you bear your sword to bring
harm upon us, with claws and\ffangs, we will exact a toll.
“From your kind we will take our
toll, for it must be done.
“Done it must be to guard ourselves
and for it, I apologize.”
...Would you like to keep reading?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_14
Message 38 "To the skies, the young man shouted
his dismay.
“In having found the sword, I have
lost so much.
“Gorged with power, I grew blind
to Pokémon being alive.
“I will never fall savage again.
This sword I denounce and forsake.
“I plead for forgiveness,
for I was but a fool.”
So saying, the young man hurled the
sword to the ground, snapping it.
Seeing this, the Pokémon disappeared
to a place beyond seeing..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Setvarhero 0
Message 35 "\v0103\z0000 put the book back."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 15:
Message 41 "In the beginning, there was only
a churning turmoil of chaos.
At the heart of chaos, where all
things became one, appeared an Egg.
Having tumbled from the vortex, the
Egg gave rise to the Original One.
...Would you like to keep reading?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_16
Message 42 "From itself, two beings the Original
One did make.
Time started to spin.
Space began to expand.
From itself again, three living things
the Original One did make.
...Would you like to keep reading?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_16
Message 43 "The two beings wished, and from them,
matter came to be.
The three living things wished, and
from them, spirit came to be.
The world created, the Original One
took to unyielding sleep..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 16:
Setvarhero 0
Message 40 "\v0103\z0000 put the book back."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 17:
Message 46 "Look not into the Pokémon’s eyes.
In but an instant, you’ll have no
recollection of who you are.
Return home, but how?
When there is nothing to remember?
Dare not touch the Pokémon’s body.
In but three short days, all emotions
will drain away.
Above all, above all, harm not
the Pokémon.
In a scant five days, the offender
will grow immobile in entirety."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 18:
Setvarhero 0
Message 45 "\v0103\z0000 put the book back."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 19:
Message 50 "“Sinnoh Folk Story 1”
Pick clean the bones of Pokémon
caught in the sea or stream.
Thank them for the meals they
provide, and pick their bones clean.
When the bones are as clean as can
be, set them free in the water from\fwhich they came.
The Pokémon will return, fully
fleshed, and it begins anew."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 20:
Message 51 "“Sinnoh Folk Story 2”
There lived a Pokémon in a forest.
In the forest, the Pokémon shed its
hide to sleep as a human.
Awakened, the human dons the
Pokémon hide to roam villages."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 21:
Message 52 "“Sinnoh Folk Story 3”
There once were Pokémon that
became very close to humans.
There once were humans and Pokémon
that ate together at the same table.
It was a time when there existed no
differences to distinguish the two."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 22:
Setvarhero 0
Message 49 "\v0103\z0000 put the book back."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 23:
Message 11 "Rowan: Hm! I would have made all of
you go regardless... Anyway.
Now, there are three lakes.
Fortuitously, there are three of you.
You should therefore split up and
investigate the lakes individually."
CloseMsgOnKeyPress
Applymovement 2 mov_8
Applymovement 3 mov_9
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_24
Jump func_25
Func 24:
Message 12 "Rowan: Dawn, you go to Lake Verity."
Setvaralter 0
Message 13 "Dawn: Will do!"
Jump func_26
Func 25:
Message 14 "Rowan: Lucas, you go to Lake Verity."
Setvaralter 0
Message 15 "Lucas: Yes, sir!"
Jump func_26
Func 26:
CloseMsgOnKeyPress
Applymovement 2 mov_10
Applymovement 3 mov_11
Waitmovement
Setvarrival 0
Message 16 "Rowan: \v0103\z0000, I want you to
investigate Lake Acuity.
That would take you almost to
Snowpoint City.
The road there is harsh. I need
a tough Trainer to go."
CloseMsgOnKeyPress
Applymovement 4 mov_12
Waitmovement
Message 17 "\v0103\z0000: Uh... Yeah, of course!
Gramps, you know how to call it!\fYou can tell I’m the hotness!"
CloseMsgOnKeyPress
Applymovement 4 mov_13
Waitmovement
Setvarhero 0
Message 18 "Rowan: And that leaves \v0103\z0000
with Lake Valor.
The lake is between Veilstone
and Pastoria, if memory serves..."
CloseMsgOnKeyPress
WaitFanfare 1500
CmrBmpEffect 1
Message 19 "Rowan: ...
...Has it stopped?
Are all of you unharmed?
Let’s go outside, but be careful.
I’m concerned about the city."
CloseMsgOnKeyPress
Applymovement 3 mov_14
Applymovement 4 mov_15
Applymovement 2 mov_16
Applymovement 241 mov_17
Waitmovement
Removepeople 4
Removepeople 3
Zoomcam?
Applymovement 255 mov_18
Waitmovement
Message 20 "Rowan: \v0103\z0001, hurry along.
But beware of aftershocks."
CloseMsgOnKeyPress
Fanfare2 1500
Applymovement 2 mov_19
Waitmovement
Fanfare 1539
Removepeople 2
Fanfare2 1539
Setvar 16504 4
Setvar 16562 2
Setflag 168
Setflag 460
Clearflag 465
Clearflag 467
Clearflag 464
Releaseall
End
(41) C02R0201 Canalave City R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 201
CheckLR 1 func_1
Message 1 "Hello, Trainer!
This is something I found.
It was mixed in with a load of cargo
from another country.
It’s not anything that I can use,
so I think you should take it."
Setvar 32772 375
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Callstd 252 7
Setflag 201
Jump func_1
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Somewhere beyond the sea...
There are other lands populated by
Pokémon and Trainers."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "You know how Pokémon have their
own abilities?
Well, the move Skill Swap exchanges
the user’s ability with that of its\ftarget Pokémon.
How you use Skill Swap is a measure
of your expertise as a Trainer."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(42) C02R0301 Canalave City R3-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 1
CheckLR 1 func_1
Message 0 "Um...
Who did you say I was again?
...
...
Oh, yes, I remember now!
I’m the Move Deleter!"
Setflag 1
Jump func_1
FUNCTIONS:
Func 1:
Message 1 "You’ve come to make me force your
Pokémon to forget some moves?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_2
If 32780 1
CheckLR 1 func_3
End
Func 2:
Message 2 "Which Pokémon should forget a move?"
CloseMsgOnKeyPress
Jump func_4
Func 3:
Message 3 "Remember me if there are moves that
need to be forgotten."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Fadescreen 6 1 0 0
Resetscreen
ChsPokemenu
StorePokeMenu2 32770
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32770 255
CheckLR 1 func_3
CheckPokeEgg 32770 32769
If 32769 0
CheckLR 1 func_5
CheckMoveNumDelete 32780 32770
If 32780 1
CheckLR 1 func_6
Message 6 "OK, then.
Which move should be forgotten?"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
StorePokeDelete 32770
StoreMoveDelete 32769
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32769 255
CheckLR 1 func_2
SetvarMoveDelete 0 32770 32769
Message 7 "Hm! The move \v0106\z0000?
Should that move be forgotten?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_7
If 32780 1
CheckLR 1 func_2
End
Func 5:
Message 5 "What? That’s an Egg.
No Egg should know any moves."
CloseMsgOnKeyPress
Jump func_4
Func 6:
Message 4 "That Pokémon knows only one move,
so it can’t be forgotten..."
CloseMsgOnKeyPress
Jump func_4
Func 7:
StoreDeleteMove 32770 32769
Message 8 "It worked perfectly!
Your Pokémon has forgotten the move
\v0106\z0000 completely."
Soundfr 1165
Fadedef
Waitbutton
CloseMsgOnKeyPress
End
(43) C02R0401 Canalave City R4-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setflag 607
Checkflag 344
CheckLR 0 func_1
End
Script 2:
Lockall
Return 30 32780
Message 0 "...Welcome...
...
...Kekeke...
We’ve had a reservation for you.
We’ve held it a long time..."
CloseMsgOnKeyPress
Applymovement 0 mov_1
Applymovement 255 mov_2
Waitmovement
Return 15 32780
Setvarhero 0
Message 1 "\v0103\z0000 lay down on the bed
as if bidden there..."
CloseMsgOnKeyPress
Fanfare 1590
Setflag 316
Setflag 607
Setvar 16632 2
Fadescreen 6 3 0 0
Resetscreen
Fadescreen 6 3 1 0
Resetscreen
Fadescreen 6 3 0 0
Resetscreen
Fadescreen 6 3 1 0
Resetscreen
Fadescreen 6 6 0 0
Resetscreen
Return 120 32780
Warp 320 0 152 277 1
Fadescreen 6 6 1 0
Resetscreen
Releaseall
End
Script 3:
Lockall
Goto func_2
DarkraiFunction 33 58 714
Soundfr 1166
Fadedef
Setvarhero 0
Message 2 "\v0103\z0000 awakened!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Checkflag 2404
CheckLR 1 func_3
End
Func 2:
Checkflag 344
CheckLR 1 func_4
Setvar 16632 0
Killscript
Func 3:
CheckNatPokedexStatus 2 16384
If 16384 1
CheckLR 1 func_5
End
Func 4:
Setvar 16632 3
Killscript
Func 5:
CheckItem 454 1 16384
If 16384 1
CheckLR 1 func_6
End
Func 6:
UnkFunct2 0 16384
If 16384 1
CheckLR 1 func_7
End
Func 7:
Checkflag 300
CheckLR 1 func_8
End
Func 8:
If 16632 2
CheckLR 4 func_9
Clearflag 607
Setvar 16632 1
End
Func 9:
End
(44) C02R0501 Canalave City R5-01
SCRIPT ORDER:
Script 1
Script 3
Script 2
SCRIPTS:
Script 1:
If 16646 0
CheckLR 1 func_1
If 16646 3
CheckLR1 1 func_2
If 16646 1
CheckLR1 4 func_3
End
Script 2:
Copyvar 32776 16646
If 32776 1
CheckLR 1 func_4
If 32776 2
CheckLR 1 func_4
If 32776 3
CheckLR 1 func_5
Fanfare 1500
Lockall
Faceplayer
Message 8 "Our boy has too much energy!
I wish he’d be a little quieter."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
If 16646 1
CheckLR 1 func_6
If 16646 2
CheckLR 1 func_6
If 16646 3
CheckLR 1 func_7
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’m going to be a Sailor like my
daddy!
He’s a real man among men!
Even the sea doesn’t scare him!
Oh, but a Gym Leader’d be cool, too!
Byron is so awesome!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Checkflag 300
CheckLR 1 func_8
0166 16384
If 16384 0
CheckLR 1 func_8
CheckNatPokedexStatus 2 16384
If 16384 0
CheckLR 1 func_8
Setvar 16646 1
Goto func_3
End
Func 2:
Setvar 16646 0
Killscript
Func 3:
ChangeOwPosition 0 8 6
ReleaseOw 0 1
ChangeOwMovement 0 0
ChangeOwPosition 1 9 6
ReleaseOw 1 2
Killscript
Func 4:
Fanfare 1500
Lockall
Faceplayer
Message 9 "I never thought our boy would fall
into this endless nightmare...
It’s happened in the past in
Canalave...
There were people who never woke
up from their nightmares..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Fanfare 1500
Lockall
Faceplayer
Message 10 "Thank you! We can’t thank you
enough, but thank you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Checkflag 307
CheckLR 0 func_9
Checkflag 287
CheckLR 0 func_10
CheckItem 453 1 32780
If 32780 0
CheckLR 1 func_10
Fanfare 1500
Lockall
Setflag 300
Setvar 16646 3
GiveItem 453 1 32780
Setvarhero 0
Message 2 "The little boy is thrashing about
in his sleep.
\v0103\z0000’s Lunar Wing began
to glow...
The boy’s sleeping face became
untroubled and serene!"
Message 3 "The little boy woke up!"
Soundfr 1166
Fadedef
CloseMsgOnKeyPress
Return 15 32780
Goto func_11
Message 5 "Oh, my gosh!
You’re awake!
Oh, my son...
I... I don’t know what to say..."
Goto func_12
Message 6 "Thank you!
We’ll never forget you!"
Goto func_13
Message 7 "Seeing you back to normal makes
me feel great!
I’ve regained my spirit as a Sailor!
Come sail with me later!"
CloseMsgOnKeyPress
Goto func_14
Releaseall
End
Func 7:
Fanfare 1500
Lockall
Faceplayer
Message 4 "I couldn’t wake up...
I saw it...
It was a scary dream...
It was a dark place...\fAnd there was a dark Pokémon...
But, Daddy, Mommy...
I could always hear your voices..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
End
Func 9:
Setflag 307
Setvar 16646 2
Jump func_10
Func 10:
Fanfare 1500
Lockall
Message 1 "The little boy is thrashing about
in his sleep.
He appears to be in torment...
He is muttering something...
“DAR...
DARK...is watching...me...”"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Fanfare 1539
WaitFanfare 1539
Clearflag 633
Addpeople 2
Return 5 32780
Applymovement 1 mov_1
Applymovement 0 mov_1
Applymovement 255 mov_1
Waitmovement
Applymovement 2 mov_2
Waitmovement
Applymovement 255 mov_3
Waitmovement
Applymovement 2 mov_4
Waitmovement
Applymovement 255 mov_5
Waitmovement
Killscript
Func 12:
Applymovement 2 mov_6
Waitmovement
Killscript
Func 13:
Applymovement 2 mov_7
Waitmovement
Killscript
Func 14:
Applymovement 255 mov_1
Applymovement 2 mov_8
Waitmovement
Setflag 633
Removepeople 2
Fanfare 1539
WaitFanfare 1539
Killscript
(45) C03 Oreburgh City
SCRIPT ORDER:
Script 1
Script 2
Script 9
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 10
Script 11
Script 12
Script 13
Script 14
Script 15
Script 16
Script 17
Script 18
Script 19
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 138
CheckLR 1 func_1
Setvarrival 0
Setvarhero 1
Message 0 "\v0103\z0000: Hunh?
Oh, it’s you, \v0103\z0001!
You finally got here?
You’re slow like always.
You’re so slow, the Gym Leader’s
long gone now.
He said he had to go... Uh...
Oh, yeah, to Oreburgh Mine!
I got my Badge already, so it’s no
big deal to me, but..."
Waitbutton
Setflag 138
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 0 32780
If 32780 1
CheckLR 1 func_2
Checkflag 122
CheckLR 1 func_3
Message 8 "Is that guy in front of the Gym
your friend?
He’s sort of twitchy and impatient."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Lockall
Clearflag 410
ChangeOwMovement 3 16
ReleaseOw 3 2
CheckHiroPosition 32772 32773
If 32773 748
CheckLR 1 func_4
If 32773 749
CheckLR 1 func_5
If 32773 750
CheckLR 1 func_6
Jump func_7
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 17 "Up ahead there’s a huge mountain
that towers above everything.
It divides Sinnoh into two distinct
halves."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 20 "These vents exchange the hot air
down below with the fresh air outside.
Looking down them gives me the urge
to start yelling into ’em! Hello!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Checkflag 265
CheckLR 1 func_8
Message 21 "There’s no question. This is hard,
hard work.
But working alongside Pokémon...
It gives me a boost somehow.
Here, take one of these."
Setvar 32772 26
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_9
Callstd 252 7
Setflag 265
Jump func_8
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 23 "This pile of dirty sand is called
a slag heap.
It’s the waste from sorting coal."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 24 "Chop, chop, MACHOP!
Chop, chop away on rocks! ~♫"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Lockall
CheckHiroPosition 32772 32773
If 32773 748
CheckLR 1 func_10
If 32773 749
CheckLR 1 func_11
If 32773 750
CheckLR 1 func_12
Jump func_13
Script 10:
Fanfare 1500
Lockall
Faceplayer
Message 25 "TMs are single use only, but HMs
can be used over and over.
It’s tricky trying to decide which
Pokémon should learn what moves."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Faceplayer
Checkflag 122
CheckLR 1 func_14
Message 14 "The Gym Leader went off to work in
the mine."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 12:
Fanfare 1500
Lockall
Faceplayer
Message 18 "Have you seen the vents?
They release steam from down below."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
Fanfare 1500
Lockall
Faceplayer
Message 16 "Everyone’s proud of the mine.
They’re digging for coal under the
sea as we speak...
It’s amazing how they do it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 14:
Fanfare 1500
Lockall
Faceplayer
Message 26 "When I run around with my Running
Shoes on, it feels like I’m the center
of attention!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 15:
CallMsgBox 28 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 16:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 29 32780
Callstd 208 7
End
Script 17:
CallMsgBox 542 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 18:
CallMsgBox 543 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 19:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 66 0
Message 27 "MACHOP: Macho! Chopo!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvarrival 0
Message 1 "\v0103\z0000: I told you, the Gym
Leader isn’t here.
If you want to take the Gym
challenge, you’d better go down to\fthe mine and ask him.
But, boy, a Gym Leader is in a
different class of toughness.
Even I’m feeling run down."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 10 "Can I see your Trainer Case?
It’s got the Gym Badge you just
won, right?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 9 "Oh, hi, you’re back!
The Gym Leader’s waiting for you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
ChangeOwPosition 3 271 748
Addpeople 3
Applymovement 255 mov_1
Applymovement 3 mov_2
Waitmovement
Jump func_15
Func 5:
ChangeOwPosition 3 271 749
Addpeople 3
Applymovement 255 mov_1
Applymovement 3 mov_2
Waitmovement
Jump func_15
Func 6:
ChangeOwPosition 3 271 750
Addpeople 3
Applymovement 255 mov_1
Applymovement 3 mov_2
Waitmovement
Jump func_15
Func 7:
ChangeOwPosition 3 271 751
Addpeople 3
Applymovement 255 mov_1
Applymovement 3 mov_2
Waitmovement
Jump func_15
Func 8:
Message 22 "Feeling hale and hearty puts a smile
on my face. And that makes me happy."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Applymovement 255 mov_3
Applymovement 4 mov_4
Waitmovement
Jump func_16
Func 11:
Applymovement 255 mov_3
Applymovement 4 mov_5
Waitmovement
Jump func_16
Func 12:
Applymovement 255 mov_3
Applymovement 4 mov_6
Waitmovement
Jump func_16
Func 13:
Applymovement 255 mov_3
Applymovement 4 mov_7
Waitmovement
Jump func_16
Func 14:
Message 15 "The Gym Leader is young, but he’s
the mine’s safety supervisor.
He’s an expert in more than just one
field!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 15:
Fanfare 1538
Message 2 "\vFF01\z00C8Thud!!\vFF01\z0064"
CloseMsgOnKeyPress
Callstd 250 7
Setvarrival 0
Setvarhero 1
Message 3 "\v0103\z0000: Whoops! \v0103\z0001!
You got the Gym Badge, huh?
Eterna City is the next place with
a Gym that gives away Badges, right?"
CloseMsgOnKeyPress
Applymovement 3 mov_8
Waitmovement
Message 4 "So, yeah, I went to Route 207, but
you can’t go there without a Bicycle.
I made my team battle and toughened
them up, so it wasn’t a waste."
Applymovement 3 mov_9
Waitmovement
Message 5 "So, I’m going back to Jubilife City.
Next stop, the Eterna Gym Badge!
Ten seconds before I dash!
Nine...
Bah! Who’s got time to count?!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32773 748
CheckLR 1 func_17
If 32773 749
CheckLR 1 func_18
If 32773 750
CheckLR 1 func_19
Jump func_20
Func 16:
Message 6 "Howdy, Trainer!
If you don’t have a single Gym Badge,
other Trainers will look down on\fyou like you’re a total noob, right?
So, I’ll show you where the town’s
Pokémon Gym is."
CloseMsgOnKeyPress
Callstd 0 8
CheckHiroPosition 32772 32773
If 32773 748
CheckLR 1 func_21
If 32773 749
CheckLR 1 func_22
If 32773 750
CheckLR 1 func_23
If 32773 751
CheckLR 1 func_24
End
Func 17:
Applymovement 255 mov_10
Applymovement 3 mov_11
Waitmovement
Jump func_25
Func 18:
Applymovement 255 mov_12
Applymovement 3 mov_13
Waitmovement
Jump func_25
Func 19:
Applymovement 255 mov_14
Applymovement 3 mov_15
Waitmovement
Jump func_25
Func 20:
Applymovement 255 mov_16
Applymovement 3 mov_17
Waitmovement
Jump func_25
Func 21:
Applymovement 255 mov_18
Applymovement 4 mov_19
Waitmovement
Jump func_26
Func 22:
Applymovement 255 mov_20
Applymovement 4 mov_21
Waitmovement
Jump func_26
Func 23:
Applymovement 255 mov_22
Applymovement 4 mov_23
Waitmovement
Jump func_26
Func 24:
Applymovement 255 mov_24
Applymovement 4 mov_25
Waitmovement
Jump func_26
Func 25:
Fanfare 1539
Removepeople 3
Callstd 251 7
Setvar 16505 3
Releaseall
End
Func 26:
Message 7 "Huh?
There’s someone there."
Waitbutton
CloseMsgOnKeyPress
Callstd 1 8
Setvar 16505 1
Releaseall
End
(46) C03FS0101 Oreburgh City Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 1
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The Badges that Pokémon Gyms give
you are a measure of a Trainer’s
worth.
By getting more Badges, you get to
buy more items in Poké Marts."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "The Poké Mart girls are so pretty,
they leave me tongue tied.
They sell all sorts of great items,
so I get even more flustered..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(47) C03GYM0101 Oreburgh City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 0 32780
If 32780 1
CheckLR 1 func_1
DeActivateLeader 9 47 0 0 0
Message 0 "Welcome!
This is the Oreburgh Pokémon Gym!
I’m Roark, the Gym Leader!
I’m but one Trainer who decided to
walk proudly with Rock-type Pokémon!
As the Gym Leader, I need to see
your potential as a Trainer.
And, I’ll need to see the toughness
of the Pokémon that battle with you!"
CloseMsgOnKeyPress
TrainerBattle 246 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
Message 1 "This is embarrassing...
I went and lost to a Trainer who
didn’t have a single Gym Badge...
But that’s tough. You were strong,
and I was weak. That’s all there is.
According to Pokémon League rules,
I have to give you our Gym Badge
since you’ve beaten me, the Leader.
Here’s your official Pokémon League
Coal Badge."
Setvarhero 0
Message 2 "\v0103\z0000 received
the Coal Badge from Roark!"
Soundfr 1161
Fadedef
SetTrainerId 244
SetTrainerId 245
Setbdgtrue 0
MainEvent 23
SetTrainerId 244
SetTrainerId 245
Setflag 605
Setvar 16624 1
Setvar 16505 2
DeActivateLeader 10 47 246 0 0
Setvar 16503 3
Clearflag 408
Clearflag 443
Clearflag 442
Setflag 438
Message 3 "Having that Coal Badge means your
Pokémon can now use the hidden move
Rock Smash outside of battle.
You should also take this, too."
Jump func_3
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 0 32780
If 32780 1
CheckLR 1 func_4
Message 6 "Howdy!
How’s it going, Champ-to-be?
That’s what I said to a really
impatient boy earlier, too.
The Gym Leader is a user of
Rock-type Pokémon.
Well, listen. Rock-type Pokémon
really hate water, all right?
They’re also weak to Grass-type
moves.
Gee, they sure have weaknesses!
But don’t think it will be easy.
You don’t get to be a Gym Leader
without covering for weaknesses.
Going after a Rock-type Pokémon
with a Fire-type Pokémon won’t be
easy, either.
That’s all the advice I can give.
Thanks for listening!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Checkbadge 0 32780
If 32780 1
CheckLR 1 func_5
Setvarrival 0
Setvarrival 1
Message 8 "Oreburgh Pokémon Gym
Leader: Roark
Certified Trainers:
\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Checkflag 117
CheckLR 0 func_3
Message 5 "In this region of Sinnoh, there are
seven other Gym Leaders.
I should warn you--they’re a lot
tougher than I am!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
LostGoPc
Releaseall
End
Func 3:
Setvar 32772 403
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_6
Callstd 252 7
Setflag 117
Setvaritem 0 32772
Setvaratkitem 1 32772
Message 4 "That \v0108\z0000 contains
the move Stealth Rock.
It’s a move that inflicts damage on
foes that switch into battle.
Incidentally, a TM will teach its move
to a Pokémon instantly.
But a TM will break when you use it,
so make certain you want a Pokémon\fto learn that move."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Setvarhero 0
Message 7 "Oh! \v0103\z0000!
You’ve taken care of the Gym Leader!
So, did my advice come in handy
or what?
If my advice was useful, it’d be
great if you’d become my fan!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Setvarrival 0
Setvarhero 1
Setvarrival 2
Message 9 "Oreburgh Pokémon Gym
Leader: Roark
Certified Trainers:
\v0103\z0000\f\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(48) C03PC0101 Oreburgh City Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 32775 3
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Yay! I got a Pal Pad at the
Pokémon Wi-Fi Club downstairs!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Switch on the PC at any Pokémon
Center and connect to the
Pokémon Storage System.
That’s all you need to do to store
or bring out your Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 112
CheckLR 1 func_1
Message 2 "Hmmm...
What is your favorite kind of
Trainer? Can you tell me?"
Jump func_2
FUNCTIONS:
Func 1:
SetvarWi-fisprite 0
Message 7 "Hello! You’ve been mistaken for
\v010E\z0000, haven’t you?
But I think you can also pass for
a different kind of Trainer.
So, how about telling me what kind of
Trainer that you like?"
Jump func_2
Func 2:
Message 3 "Which kind of Trainer would you like
to be?"
OpenWi-fiSprite
Multi 1 1 0 1 32780
Txtscrpmulti 50 0
Txtscrpmulti 51 1
Txtscrpmulti 52 2
Txtscrpmulti 53 3
Txtscrpmulti 43 4
CloseMulti
Copyvar 32772 32780
Copyvar 32776 32780
If 32776 4
CheckLR 1 func_3
If 32776 65534
CheckLR 1 func_3
StoreWi-fiSprite 32772 32773
CheckPokeCastle 1280 52864 2
Message 4 "\v010E\z0000 is the kind of
Trainer you want to be?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_4
Jump func_2
Func 3:
Message 6 "OK, then I’ll just talk to you later!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
CheckPokeCastle 1280 11392 1280
Setflag 112
029C 32772 32773
ActWi-fiSprite 32773
Jump func_3
(49) C03PC0102 Oreburgh City Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(50) C03R0101 Oreburgh City R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "There are eight Gym Leaders in
the Sinnoh region.
The objective for Trainers is
to get Gym Badges from them all."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "A Gym Leader isn’t just like any
Trainer you meet.
I’d take as many Pokémon as possible
if I were you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 4 "Roark lets us train our Pokémon in
the mine."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(51) C03R0102 Oreburgh City R1-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Giving nicknames to Pokémon is
the way to go.
It makes you feel as if they’re your
very own."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "But he named our PSYDUCK “Yellow”
just because of its color...
I don’t understand the logic behind
that at all."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 192
CheckLR 1 func_1
Setvaritem 0 13
Message 2 "Are you catching Pokémon?
Here, take this if you’d like."
Setvar 32772 13
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 192
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 54 0
Message 4 "Yellow: Duuuck?"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 3 "The Dusk Ball is a Poké Ball designed
for use in darkness.
It works better if you use it at
night or in a cave."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(52) C03R0103 Oreburgh City R1-03
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 124
CheckLR 1 func_1
Setvaritem 0 238
Message 0 "Do you make your Pokémon hold items?
If you’d like, let one hold this
\v0108\z0000."
Setvar 32772 238
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 124
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 54 0
Message 2 "PSYDUCK: Duuuck?"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvaritem 0 238
Message 1 "That \v0108\z0000 intensifies the
power of Rock-type moves.
Unfortunately, none of my Pokémon
can use Rock-type moves, so..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(53) C03R0104 Oreburgh City R1-04
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Hahaha!
I’m gonna swipe your Flag!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I set some nasty Traps!
Catch me if you can!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Thanks to the Gym Leader, we can
play underground."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(54) C03R0201 Oreburgh City R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 133
CheckLR 1 func_1
Message 0 "Listen, listen. Do you have a Pokémon
called MACHOP?
Would you be willing to trade your
MACHOP for my ABRA?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_2
Jump func_3
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 5 "A Pokémon obtained in a trade
grows quickly.
But if a Pokémon grows too much,
it will often ignore the Trainer.
Of course, it won’t matter if you
have lots of Gym Badges."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 4 "Thanks to Pokémon, I got to be
friends with you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
TradeChosenPoke
StorePokeMenu2 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 255
CheckLR 1 func_3
SetTradeId 0
Copyvar 32772 32780
CheckPokeEgg 32772 32773
CheckPokeTrade 32780
If2 32773 32780
CheckLR 5 func_4
TradeChsPoke 32772
StopTrade
Setflag 133
Message 1 "Be nice to my ABRA!
I’ll be sure to look after your
MACHOP in return!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 3 "Oh, OK...
Well, I can’t make you trade me.
But if you change your mind,
I’ll be right here waiting!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
StopTrade
Message 2 "What I asked for was a MACHOP..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(55) C03R0202 Oreburgh City R2-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "All Pokémon have a special power
called an ability."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "How my Pokémon and I are alike...
It’s not anything I can explain
easily."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 193
CheckLR 1 func_1
CheckPokeParty 32780 41
If 32780 0
CheckLR 1 func_2
Message 3 "The view is good from up here, but
it’s a pain going out.
If you don’t mind, how about showing
me a Pokémon called ZUBAT?
Oh! That Pokémon!
That’s a ZUBAT!
Wow, that’s cool...
It’s so cute...
That does it!
I’ll go out and catch Pokémon, too!
Thank you, my friend!
This is a token of my thanks!"
Setvar 32772 14
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_3
Setflag 193
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 4 "Yeah, there are so many kinds of
Pokémon out in the world.
I want to see them all now!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 2 "The view is good from up here, but
it’s a pain going out.
If you don’t mind, how about showing
me a Pokémon called ZUBAT?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(56) C03R0203 Oreburgh City R2-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "During the daytime, everyone goes off
to the mine.
At night, everyone’s at home
getting some well-deserved rest."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "We’ll keep digging coal.
The world needs energy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Everyone, including lots of Pokémon,
dug the big underground maze!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(57) C03R0204 Oreburgh City R2-04
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(58) C03R0301 Oreburgh City R3-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Roark is a user of Rock-type
Pokémon.
Don’t you think Rock-type Pokémon
are nice? I like how lumpy they are!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Roark is our town’s Gym Leader.
He may be young, but he keeps the
mine running safely and efficiently."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(59) C03R0401 Oreburgh City Mining Museum-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 13
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Hello! Welcome to the Oreburgh
Mining Museum!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 1
CheckLR 1 func_1
Message 1 "Hello, hello!
How are you?
I study Pokémon Fossils!
Me! Right here and now!"
Checkflag 121
CheckLR 0 func_2
If 16564 0
CheckLR 5 func_3
CheckActFossil 32768
If 32768 0
CheckLR 1 func_4
Message 2 "You have a Fossil for me, yes?
Shall I turn it into a Pokémon?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_5
If 32768 1
CheckLR 1 func_6
Setvar 32769 0
CheckItem 103 1 32780
Setvalue 32769 32780
CheckItem 101 1 32780
Setvalue 32769 32780
CheckItem 102 1 32780
Setvalue 32769 32780
CheckItem 99 1 32780
Setvalue 32769 32780
CheckItem 100 1 32780
Setvalue 32769 32780
CheckItem 104 1 32780
Setvalue 32769 32780
CheckItem 105 1 32780
Setvalue 32769 32780
If 32769 1
CheckLR 1 func_6
Setvar 32772 0
Setvar 32773 0
Multi 1 1 0 1 32771
If 32773 0
CheckLR1 1 func_7
If 32773 1
CheckLR1 1 func_8
If 32773 2
CheckLR1 1 func_9
If 32773 3
CheckLR1 1 func_10
If 32773 4
CheckLR1 1 func_11
If 32773 5
CheckLR1 1 func_12
If 32773 6
CheckLR1 1 func_13
If 32780 0
CheckLR 1 func_14
If 32772 0
CheckLR1 1 func_15
If 32772 1
CheckLR1 1 func_16
If 32772 2
CheckLR1 1 func_17
If 32772 3
CheckLR1 1 func_18
If 32772 4
CheckLR1 1 func_19
If 32772 5
CheckLR1 1 func_20
If 32772 6
CheckLR1 1 func_21
Copyvar 32774 32773
Setvalue 32774 156
ChoiceMulti 32774 32772
Jump func_22
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 13 "Whoa! So this is coal?
I never expected something this big!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 14 "Wow! The Pokémon that carried this
must be terribly strong!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 15 "Well, how about that!
The Oreburgh Mine extends
under the seafloor!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Message 16 "How Coal Is Made 1
“In a time long before history,
vegetative matter was swept along
by rain and rivers. It came to be
buried under the ground.”"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Message 17 "How Coal Is Made 2
“The buried plant matter was
forced ever deeper under the ground
due to tremors and fissures caused
by the shifting landmasses.”"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Message 18 "How Coal Is Made 3
“Deep under the ground, the
plant matter was subjected to heavy
pressure and the heat of magma.
It gradually turned into coal.”"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Message 19 "Samples of coal from different regions
are displayed."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Message 20 "The box contains categorized samples
of coal."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Message 21 "Different kinds of lamps are
displayed.
They appear to have been worn
on someone’s head while underground."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 12:
Fanfare 1500
Lockall
Message 22 "Badly scarred wooden tools are
displayed.
They apparently dug out coal using
these tools in the olden days."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
Fanfare 1500
Lockall
Message 23 "The everyday items and tools of
past mine workers are displayed."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 1
Message 6 "I am in the process of extracting
your Pokémon from a Fossil.
You go outside, yes, please. Now!
Time alone is what I now need. NOW!!!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 12 "On the verge of a breakthrough,
I am, to achieve extraction from\fFossils.
From Fossils I can extract Pokémon,
but not yet, not yet."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Setvarpokestored 0 16564 0 0
Message 7 "You were gone too long!
You kept us waiting! Unacceptable!
This is your \v0100\z0000!
You be good to it, OK!"
Checkpartynumber 32780
If 32780 6
CheckLR 1 func_23
Setvarpokestored 1 16564 0 0
Setvarhero 0
Soundfr 1158
Message 8 "\v0103\z0000 received
the \v0100\z0001!"
Fadedef
GivePokemon 16564 20 0 32780
Setvar 16564 0
Message 9 "Give a nickname to the \v0100\z0001
you received?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_24
If 32780 1
CheckLR 1 func_25
End
Func 4:
Message 11 "If it is a Fossil that you obtain,
bring it to me if you must."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 5 "You don’t wish that I extract any
Pokémon from a Fossil. Fine, then!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
CompareItemPokeFossil? 32770 32772 1
CheckItemChosen 16564 32770
GiveItem 32770 1 32780
Jump func_1
Func 7:
Setvar 16384 103
CheckItem 16384 1 32780
Killscript
Func 8:
Setvar 16384 101
CheckItem 16384 1 32780
Killscript
Func 9:
Setvar 16384 102
CheckItem 16384 1 32780
Killscript
Func 10:
Setvar 16384 99
CheckItem 16384 1 32780
Killscript
Func 11:
Setvar 16384 100
CheckItem 16384 1 32780
Killscript
Func 12:
Setvar 16384 104
CheckItem 16384 1 32780
Killscript
Func 13:
Setvar 16384 105
CheckItem 16384 1 32780
Killscript
Func 14:
Setvalue 32773 1
Jump func_26
Func 15:
Copyvar 16385 16384
Killscript
Func 16:
Copyvar 16386 16384
Killscript
Func 17:
Copyvar 16387 16384
Killscript
Func 18:
Copyvar 16388 16384
Killscript
Func 19:
Copyvar 16389 16384
Killscript
Func 20:
Copyvar 16390 16384
Killscript
Func 21:
Copyvar 16391 16384
Killscript
Func 22:
Setvalue 32772 1
Setvalue 32773 1
If2 32772 32769
CheckLR 5 func_26
ChoiceMulti 44 32772
CloseMulti
If 32771 255
CheckLR 1 func_5
If2 32771 16384
CheckLR 1 func_5
If 32771 0
CheckLR1 1 func_27
If 32771 1
CheckLR1 1 func_28
If 32771 2
CheckLR1 1 func_29
If 32771 3
CheckLR1 1 func_30
If 32771 4
CheckLR1 1 func_31
If 32771 5
CheckLR1 1 func_32
If 32771 6
CheckLR1 1 func_33
CheckItemChosen 16564 32770
If 16564 0
CheckLR 1 func_5
GiveItem 32770 1 32780
Jump func_1
Func 23:
Message 10 "But, no, I cannot do this!
You have too many Pokémon with you!
I must hold it for you, so come back,
you, and take it away, please."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 24:
CloseMsgOnKeyPress
Checkpartynumber 16384
Copyvalue 16384 1
Fadescreen 6 1 0 0
Resetscreen
ChoosePokeNick 16384 32780
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 25:
CloseMsgOnKeyPress
Releaseall
End
Func 26:
If 32773 0
CheckLR1 1 func_7
If 32773 1
CheckLR1 1 func_8
If 32773 2
CheckLR1 1 func_9
If 32773 3
CheckLR1 1 func_10
If 32773 4
CheckLR1 1 func_11
If 32773 5
CheckLR1 1 func_12
If 32773 6
CheckLR1 1 func_13
If 32780 0
CheckLR 1 func_14
If 32772 0
CheckLR1 1 func_15
If 32772 1
CheckLR1 1 func_16
If 32772 2
CheckLR1 1 func_17
If 32772 3
CheckLR1 1 func_18
If 32772 4
CheckLR1 1 func_19
If 32772 5
CheckLR1 1 func_20
If 32772 6
CheckLR1 1 func_21
Copyvar 32774 32773
Setvalue 32774 156
ChoiceMulti 32774 32772
Jump func_22
Func 27:
Copyvar 32770 16385
Killscript
Func 28:
Copyvar 32770 16386
Killscript
Func 29:
Copyvar 32770 16387
Killscript
Func 30:
Copyvar 32770 16388
Killscript
Func 31:
Copyvar 32770 16389
Killscript
Func 32:
Copyvar 32770 16390
Killscript
Func 33:
Copyvar 32770 16391
Killscript
(60) C03R0501 Oreburgh City R5-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Have you ever seen or heard about
differently colored Pokémon?
For instance, a regular PIKACHU has
a yellow body, correct?
Well, the different-colored PIKACHU
has a sort of orange body."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "You know how Pokémon have different
natures like we have personalities?
I don’t think it’s surprising to see
Pokémon in different colors."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 2 "PIKACHU: Pikaaah!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(61) C03R0601 Oreburgh City R6-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Hiya! Your Pokémon could use some
toughening up.
Why not try training in
the Oreburgh Mine?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I always have a rotten time trying
to decide which moves my Pokémon
should learn."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "You remind me so much of the time
I got my first Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(62) C03R0602 Oreburgh City R6-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The Oreburgh Mine is operated
with the utmost care.
We avoid causing any damage to
the natural habitats of Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 266
CheckLR 1 func_1
Message 1 "Wow... Your Pokémon’s eyes are
twinkling brightly!
Seeing that makes me happy!
Here, I want you to have this!"
Setvar 32772 3
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Callstd 252 7
Setflag 266
Jump func_1
Script 3:
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 4 "The whole system of taking the coal
out of the mine is automated.
There’s nothing backbreaking about
it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "You know how Pokémon stay inside
their Poké Balls?
I try to think about what would be
the best Poké Balls for them."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(63) C03R0603 Oreburgh City R6-03
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The coal mine here’s fully automated.
Coal mining was brutally hard in the
old days, but not anymore!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "You remind me so much of the time
I got my first Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(64) C03R0701 Oreburgh City R7-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "You’re taking a tour of our coal
mine?
Wonderful!
That’s excellent of you.
It’s always good to learn about new
things and broaden your horizons!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(65) C04 Eterna City
SCRIPT ORDER:
Script 12
Script 13
Script 14
Script 15
Script 2
Script 4
Script 3
Script 5
Script 16
Script 17
Script 18
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 19
Script 20
Script 21
Script 1
Script 22
Script 23
SCRIPTS:
Script 1:
CheckItem 450 1 16384
If 16384 0
CheckLR 1 func_1
CheckItem 428 1 16384
If 16384 1
CheckLR 1 func_1
Setvar 16660 0
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 10 "If you’re visiting Eterna, you need to
get yourself a Bicycle and take a
ride down the Cycling Road."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 11 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 129
CheckLR 1 func_2
Message 6 "Since that Team Galactic building went
up, the city’s atmosphere has gotten
all creepy and tense.
I don’t know what those people are
doing up in that place..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Checkflag 129
CheckLR 1 func_3
Message 8 "My friend said Team Galactic took his
favorite Pokémon away.
I don’t think he’s telling the truth.
Team Galactic looks so cool.
They don’t look like common thugs."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
CallMsgBox 21 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 7:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 22 32780
Callstd 208 7
End
Script 8:
CallMsgBox 535 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 9:
CallMsgBox 536 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 10:
CallMsgBox 537 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 11:
CallMsgBox 538 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 12:
Lockall
CheckHiroPosition 32772 32773
If 32773 523
CheckLR 1 func_4
If 32773 524
CheckLR 1 func_5
If 32773 525
CheckLR 1 func_6
End
Script 13:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Hey! You there, kid!
Stay away from that Pokémon statue!
Team Galactic is conducting an
official investigation here!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 14:
Fanfare 1500
Lockall
Faceplayer
Message 4 "Hey, you! Yeah, you, Trainer!
Errr...
It’s OK. Never mind. You look tough.
I won’t take... Um, I’ll just let you
keep your Pokémon. Carry on!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 15:
Fanfare 1500
Lockall
Faceplayer
Message 5 "Have you seen our building?
Team Galactic is so stinking rich
that we can have one built instantly!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 16:
Fanfare 1500
Lockall
Faceplayer
Message 12 "They say this is an old city.
It doesn’t look it, though.
Not with all these tall buildings."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 17:
Fanfare 1500
Lockall
Faceplayer
Message 13 "Eterna City’s not anything like it
was before, way back in the day."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 18:
Fanfare 1500
Lockall
Faceplayer
Message 14 "They say this is a Pokémon that lived
long, long ago."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 19:
StoreMtCoronet? 32780
If 32780 10
CheckLR 1 func_7
Fanfare 1500
Lockall
Message 28 "There is some writing on the
Pokémon statue...
...birth of PAL...
...creator of parallel dimensions...
Alive, yet not alive...
...rifts in space...
To arrive in the same univer...
...the blessing of PAL...
The text is barely legible and
has faded completely in places..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 20:
If 16660 0
CheckLR 1 func_8
Fanfare 1500
Lockall
Faceplayer
Message 17 "Going underground with the Explorer
Kit is a blast, isn’t it?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 21:
Lockall
CheckHiroPosition 32772 32773
If 32772 303
CheckLR1 1 func_9
If 32772 304
CheckLR1 1 func_10
If 32772 305
CheckLR1 1 func_11
If 32772 306
CheckLR1 1 func_12
If 32772 307
CheckLR1 1 func_13
Applymovement 255 mov_1
Waitmovement
Message 15 "Oh, don’t tell me you don’t have
an Explorer Kit?
You should have a word with the man
next door to the Pokémon Center."
CloseMsgOnKeyPress
If 32772 303
CheckLR1 1 func_14
If 32772 304
CheckLR1 1 func_15
If 32772 305
CheckLR1 1 func_16
If 32772 306
CheckLR1 1 func_17
If 32772 307
CheckLR1 1 func_18
Applymovement 255 mov_2
Waitmovement
Releaseall
End
Script 22:
Fanfare 1500
Lockall
Faceplayer
Checkflag 130
CheckLR 0 func_19
If 16524 1
CheckLR 4 func_19
Message 19 "Oh, wow!
You got a Bicycle!
You can ride down Cycling Road
and end up in Hearthome City.
It’s a fast and fun ride.
You should check it out!"
Waitbutton
CloseMsgOnKeyPress
Applymovement 30 mov_3
Waitmovement
Releaseall
End
Script 23:
Lockall
CheckHiroPosition 32772 32773
If 32773 532
CheckLR1 1 func_20
If 32773 533
CheckLR1 1 func_21
If 32773 534
CheckLR1 1 func_22
Applymovement 255 mov_4
Waitmovement
Message 18 "Oh, wow!
You got a Bicycle!
You can ride down Cycling Road
and end up in Hearthome City.
It’s a fast and fun ride.
You should check it out!"
CloseMsgOnKeyPress
If 32773 532
CheckLR1 1 func_23
If 32773 533
CheckLR1 1 func_24
If 32773 534
CheckLR1 1 func_25
Releaseall
End
FUNCTIONS:
Func 1:
Setvar 16660 1
End
Func 2:
Message 7 "With Team Galactic gone, what’s going
to happen to their building?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 9 "Do you use Bike stands?
It looks so cool to hop off your Bike
and then lean on it. It looks so smooth!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
ChangeOwPosition 12 312 523
Jump func_26
Func 5:
ChangeOwPosition 12 312 524
Jump func_26
Func 6:
ChangeOwPosition 12 312 525
Jump func_26
Func 7:
Fanfare 1500
Lockall
Message 27 "There is some writing on the
Pokémon statue...
...creation of DIA...
...giver of time...
In laughter, there is tears...
And, likewise...
The same time flows...
...the blessing of DIA...
The text is barely legible and
has faded completely in places..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Fanfare 1500
Lockall
Faceplayer
Message 16 "Oh, don’t tell me you don’t have
an Explorer Kit?
You should have a word with the man
next door to the Pokémon Center."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Applymovement 28 mov_5
Waitmovement
Killscript
Func 10:
Applymovement 28 mov_6
Waitmovement
Killscript
Func 11:
Applymovement 28 mov_7
Waitmovement
Killscript
Func 12:
Applymovement 28 mov_8
Waitmovement
Killscript
Func 13:
Applymovement 28 mov_9
Waitmovement
Killscript
Func 14:
Killscript
Func 15:
Applymovement 28 mov_10
Waitmovement
Killscript
Func 16:
Applymovement 28 mov_11
Waitmovement
Killscript
Func 17:
Applymovement 28 mov_12
Waitmovement
Killscript
Func 18:
Applymovement 28 mov_13
Waitmovement
Killscript
Func 19:
Message 20 "It feels great riding a Bike with the
wind in your face, doesn’t it?"
Waitbutton
CloseMsgOnKeyPress
Applymovement 30 mov_3
Waitmovement
Releaseall
End
Func 20:
Applymovement 30 mov_14
Waitmovement
Killscript
Func 21:
Applymovement 30 mov_15
Waitmovement
Killscript
Func 22:
Applymovement 30 mov_16
Waitmovement
Killscript
Func 23:
Applymovement 30 mov_17
Applymovement 255 mov_18
Waitmovement
Killscript
Func 24:
Applymovement 30 mov_19
Applymovement 255 mov_18
Waitmovement
Killscript
Func 25:
Applymovement 30 mov_20
Applymovement 255 mov_18
Waitmovement
Killscript
Func 26:
Clearflag 414
Addpeople 12
Applymovement 12 mov_21
Waitmovement
Setvarhero 0
Message 0 "Oh, is that a Pokédex?
You must be helping Professor Rowan?
What’s your name?
...
OK, hello, \v0103\z0000.
I’ll be sure to remember that name!
My name is Cynthia.
I’m a Trainer just like you.
I’ve been studying Pokémon mythology
lately, just out of curiosity."
CloseMsgOnKeyPress
Applymovement 12 mov_22
Waitmovement
Message 1 "Here in Eterna City, there is a
statue of an ancient Pokémon.
According to myth, it was an
extremely powerful Pokémon.
Who knows? You may encounter
something like it while you’re\ftraveling with your Pokédex.
Try using this.
It should help you on your way."
Setvar 32772 420
Setvar 32773 1
Callstd 252 7
Message 2 "Cynthia: Remember, the hidden move
Cut can be used in the field.
It will let you go places that were
previously inaccessible to you.
That’s important for filling up your
Pokédex, right?
Then luck be with you, young Trainer!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32773 523
CheckLR 1 func_27
If 32773 524
CheckLR 1 func_28
If 32773 525
CheckLR 1 func_29
End
Func 27:
Applymovement 12 mov_23
Applymovement 255 mov_24
Waitmovement
Jump func_30
Func 28:
Applymovement 12 mov_23
Applymovement 255 mov_24
Waitmovement
Jump func_30
Func 29:
Applymovement 12 mov_25
Applymovement 255 mov_26
Waitmovement
Jump func_30
Func 30:
Removepeople 12
Setvar 16506 1
Releaseall
End
(66) C04FS0101 Eterna City Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 3
Releaseall
End
Script 3:
Setvaritem 0 26
Setvaritem 1 330
Fanfare 1500
Lockall
Faceplayer
Message 0 "If you get more Gym Badges, the Poké
Marts will offer you better items."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Let me tell you something. I got into
a bad situation in Eterna Forest.
From now on, I’m not going anywhere
without an Escape Rope."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(67) C04GYM0101 Eterna City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Gardenia: At my Gym, no one gets to
battle with the Gym Leader--me--until
they’ve beaten all the other Trainers.
I’ll be waiting for you in the back.
Good luck, challenger!"
CloseMsgOnKeyPress
Return 15 32780
Applymovement 1 mov_1
Waitmovement
Fanfare 1539
Removepeople 1
WaitFanfare 1539
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 1 32780
If 32780 1
CheckLR 1 func_1
Message 1 "Hey, there!
How’s it going, Champ-to-be?
Actually, that’s what I said to some
boy who zipped in here earlier, too!
The Gym Leader, Gardenia, is a user
of Grass-type Pokémon.
It should be obvious, but Grass-type
Pokémon really hate fire.
Oh, wait a second. I should tell you
about the Gym itself first.
You can’t challenge the Gym Leader
until you find and beat all the Gym’s
Trainers who’ve hidden themselves.
It’s a bit challenging, but just think
of it as good training and go for it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Checkbadge 1 32780
If 32780 1
CheckLR 1 func_2
Setvarrival 0
Setvarrival 1
Message 3 "Eterna City Pokémon Gym
Leader: Gardenia
Certified Trainers:
\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvarhero 0
Message 2 "Oh! \v0103\z0000!
You’ve beaten the Gym Leader!
Your Pokémon look much tougher than
when they went in, too!
At least that’s how I see it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Setvarrival 0
Setvarhero 1
Setvarrival 2
Message 4 "Eterna City Pokémon Gym
Leader: Gardenia
Certified Trainers:
\v0103\z0000\f\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(68) C04GYM0102 Eterna City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
If 16558 3
CheckLR 1 func_1
If 16558 2
CheckLR 1 func_2
If 16558 1
CheckLR 1 func_3
If 16558 0
CheckLR 1 func_4
End
Script 2:
Checkflag 142
CheckLR 1 func_5
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 1 32780
If 32780 1
CheckLR 1 func_6
DeActivateLeader 9 68 0 0 0
Message 0 "You kept me waiting!
I’m Eterna’s Gym Leader, Gardenia,
the Grass-type master!
When I first saw you, I was convinced
you’d find your way to me.
My hunch was right on the money.
You have a winning aura about you.
So, anyway, this will be fun.
Let’s have our battle!"
CloseMsgOnKeyPress
TrainerBattle 315 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_7
Message 1 "I might’ve said it before, but you’re
really tough!
Wasn’t it hard for you to raise your
Pokémon to be so good?
I guess that’s a measure of how much
you love your Pokémon.
In recognition of that, I proudly
grant you this!"
Setvarhero 0
Message 2 "\v0103\z0000 received
the Forest Badge from Gardenia!"
Soundfr 1161
Fadedef
Setbdgtrue 1
MainEvent 23
SetTrainerId 259
SetTrainerId 260
SetTrainerId 324
SetTrainerId 348
DeActivateLeader 10 68 315 0 0
Clearflag 416
Message 3 "With the Forest Badge, your Pokémon
can use the hidden move Cut outside
of battle.
Now that you have two Gym Badges,
all Pokémon you received in trades
will obey you up to Lv. 30.
I’ve also got something else.
It’s a gift from me!"
Jump func_8
Script 4:
Fanfare 1500
Lockall
Faceplayer
If 16558 1
CheckLR 4 func_9
Message 6 "How did you know where to find me?
Let’s have our battle!"
CloseMsgOnKeyPress
TrainerBattle 324 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_7
Message 7 "OK, the next Trainer is at the end,
past the two boulders...I think."
Waitbutton
Setvar 16558 1
Clearflag 418
Addpeople 1
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
If 16558 2
CheckLR 4 func_10
Setvar 32775 1
Goto func_11
Message 8 "My Grass-type Pokémon can dole out
some serious special attacks...
I won’t let you win...easily!"
CloseMsgOnKeyPress
TrainerBattle 259 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_7
Clearflag 419
Addpeople 2
Message 9 "Oh, that’s right...
A hint about the next Trainer...
In the middle of three trees.
That’s it for my hint. Good luck."
Waitbutton
Setvar 16558 2
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
If 16558 3
CheckLR 4 func_12
Setvar 32775 2
Goto func_11
Message 10 "Even when you try to conceal it, you
can’t hide the aroma of flowers."
CloseMsgOnKeyPress
TrainerBattle 260 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_7
Clearflag 420
Addpeople 3
Message 11 "Your next opponent is beside four
flowers."
Waitbutton
Setvar 16558 3
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
If 16558 4
CheckLR 4 func_13
Setvar 32775 3
Goto func_11
Message 12 "Giggle! You found me!
Of course I’ll battle you!"
CloseMsgOnKeyPress
Setflag 142
TrainerBattle 348 0
Clearflag 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_7
Message 13 "Giggle! There’s only our Gym Leader
left. Go on, don’t be afraid!"
Waitbutton
Setvar 16558 4
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 421
End
Func 2:
Setflag 420
Setflag 421
End
Func 3:
Setflag 419
Setflag 420
Setflag 421
End
Func 4:
Setflag 418
Setflag 419
Setflag 420
Setflag 421
End
Func 5:
Clearflag 421
Addpeople 0
Clearflag 142
End
Func 6:
Checkflag 116
CheckLR 0 func_8
Message 5 "Yup! If there’s one thing I can tell
about you, it’s this!
You and your Pokémon are gonna get
even tougher, and I mean seriously!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
LostGoPc
Releaseall
End
Func 8:
Setvar 32772 413
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_14
Callstd 252 7
Setflag 116
Setvaritem 0 32772
Setvaratkitem 1 32772
Message 4 "That \v0108\z0000 contains
the move \v0106\z0001.
It’s one of my favorite moves.
The heavier the foe, the more
damage this move will cause."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Message 7 "OK, the next Trainer is at the end,
past the two boulders...I think."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Message 9 "Oh, that’s right...
A hint about the next Trainer...
In the middle of three trees.
That’s it for my hint. Good luck."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
CheckFacePosition 32780
If 32780 0
CheckLR1 1 func_15
If 32780 1
CheckLR1 1 func_16
If 32780 2
CheckLR1 1 func_17
If 32780 3
CheckLR1 1 func_18
Killscript
Func 12:
Message 11 "Your next opponent is beside four
flowers."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 13:
Message 13 "Giggle! There’s only our Gym Leader
left. Go on, don’t be afraid!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 15:
ChangeOwMovement 32775 15
ReleaseOw 32775 1
Killscript
Func 16:
ChangeOwMovement 32775 14
ReleaseOw 32775 0
Killscript
Func 17:
ChangeOwMovement 32775 17
ReleaseOw 32775 3
Killscript
Func 18:
ChangeOwMovement 32775 16
ReleaseOw 32775 2
Killscript
(69) C04PC0101 Eterna City Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Setvar 32775 3
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "When a Pokémon faints, it just means
it doesn’t have the power to battle.
But it can still use hidden moves
outside of battle!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 129
CheckLR 1 func_1
Message 2 "Team Galactic took my Pokémon away.
They took other people’s, too.
Something should be done, but Team
Galactic creeps everyone out...
What are they doing to my Pokémon?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 427 0
Message 4 "BUNEARY: Bunbun!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
If 16384 1
CheckLR 1 func_2
StorePktchAppl 5 32780
If 32780 0
CheckLR 1 func_3
CheckFirstPokeParty 32768
Setvarpoke 0 32768
Message 7 "Hi, you cute little Trainer!
What kinds of Pokémon are with you?
Oh, your \v0100\z0000..."
StoreHappyPoke 32780 32768
If 32780 120
CheckLR 4 func_4
If 32780 70
CheckLR 4 func_5
Jump func_6
FUNCTIONS:
Func 1:
Message 3 "I got my Pokémon back!
I’m so happy, I feel like riding my Bike
down Cycling Road together with it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 6 "If you spend enough time with them,
all Pokémon will open up to you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 5 "Hi, you cute little Trainer!
What kinds of Pokémon are with you?
This Pokétch app will show how
close your Pokémon feel to you."
Setvar 16384 1
Setvar 32772 5
Callstd 217 7
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 8 "It seems to like you.
It must be happy being with you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 9 "It’s becoming comfortable around
you, I think."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 10 "Hmm...
It needs to get used to you more."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(70) C04PC0102 Eterna City Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Multi Battles are the ultimate in
pulse-pounding action!
You won’t know how exciting they are
until you’ve actually experienced one!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(71) C04R0101 Eterna City Cycle Shop-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 130
CheckLR 1 func_1
Message 0 "Thanks for rescuing me!
This is something to show my thanks!
It’s the latest model Bicycle!
You must take it. I insist!"
Setvar 32772 450
Setvar 32773 1
Callstd 252 7
Setflag 130
ActBike? 9
If 16667 0
CheckLR 1 func_2
Jump func_1
Script 2:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 35 0
Message 2 "CLEFAIRY: Pip piih!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 129
CheckLR 1 func_3
Message 3 "The manager’s gone off to the Team
Galactic building and hasn’t returned.
I wonder what’s holding him up?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Message 5 "There is a manual on the latest
model Bicycle.
Third gear for steering.
Fourth gear for all-out speed!
Change gears with the B Button for
exhilarating cycling!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Message 6 "There’s a catalog on Bikes...
Mach Bike--a folding Bike built solely
for blazing speed!
Acro Bike--a folding Bike designed for
stunts like jumps and wheelies!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "It’s the latest model, so I’ll read
the operating manual to you.
“Press the B Button to shift up
or down.”
In third gear, you can’t go all that
fast, but it’s easier to control.
In fourth gear, it gets harder to
steer and stop, but it’s fast!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Setvar 16667 1
Jump func_1
Func 3:
Message 4 "What was Team Galactic trying to do
with other people’s Pokémon?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(72) C04R0201 Eterna City R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Welcome to Team Galactic. Are you
here to donate your Pokémon?
What? You’re not?
Then kindly get off our property!
Do we have to bring the pain like we
did with the Cycle Shop manager?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Team Galactic isn’t interested in the
world. Our gaze is beyond the stars!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(73) C04R0202 Eterna City R2-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Team Galactic is working hard to find
new energy sources for the future!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "We are conducting research on new
forms of energy!
We want to harness the mysterious
power of Pokémon and use it as energy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(74) C04R0203 Eterna City R2-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Ordinary people like you can’t
understand Team Galactic’s grand
designs!
Come to think of it... I don’t even
know what’s going on..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(75) C04R0204 Eterna City R2-04
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Applymovement 2 mov_1
Waitmovement
Message 0 "Eh? Did you want something?
How silly of me to even ask.
You want to free the Pokémon.
Yeah, that’s gonna happen!"
CloseMsgOnKeyPress
TrainerBattle 406 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_1
Message 1 "Well, aren’t you tough...?
It’s OK, though. Our official Pokémon-
statue investigation is finished.
Mars has collected energy from
the Valley Windworks.
We’re pretty much finished here.
I’ll let you in on one little thing.
Our boss is researching the myths
of ancient Pokémon.
With the power of mythical Pokémon,
he will become the ruler of Sinnoh...
I suggest you keep out of Team
Galactic’s affairs from now on.
This is your last warning!"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Removepeople 0
Fadescreen 6 1 1 0
Resetscreen
Return 15 32780
CheckFacePosition 32772
If 32772 0
CheckLR 1 func_2
If 32772 1
CheckLR 1 func_3
If 32772 2
CheckLR 1 func_4
If 32772 3
CheckLR 1 func_5
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 35 0
Message 2 "CLEFAIRY: Pi..."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 427 0
Message 5 "BUNEARY: Myun..."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 129
CheckLR 1 func_6
Message 3 "What is it with this Team Galactic?
Why did they take our Pokémon?
What are they trying to accomplish?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
LostGoPc
Releaseall
End
Func 2:
Applymovement 2 mov_2
Applymovement 255 mov_3
Waitmovement
Jump func_7
Func 3:
Applymovement 2 mov_4
Applymovement 255 mov_5
Waitmovement
Jump func_7
Func 4:
Applymovement 2 mov_6
Waitmovement
Jump func_7
Func 5:
Applymovement 2 mov_7
Applymovement 255 mov_8
Waitmovement
Jump func_7
Func 6:
Message 4 "I got my CLEFAIRY back, and it’s all
thanks to you!
But that Team Galactic...
They said, “Clefairy came from
space. Hand it over!”
Their logic baffles me still.
It’s like they are from space!
Anyway, they’re gone now.
Thank you very much!
I can’t thank you enough right now,
but cruise by my Cycle Shop, OK?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 4 "I got my CLEFAIRY back, and it’s all
thanks to you!
But that Team Galactic...
They said, “Clefairy came from
space. Hand it over!”
Their logic baffles me still.
It’s like they are from space!
Anyway, they’re gone now.
Thank you very much!
I can’t thank you enough right now,
but cruise by my Cycle Shop, OK?"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Setflag 539
Setflag 129
Clearflag 432
Clearflag 542
Clearflag 540
Removepeople 2
Removepeople 1
Removepeople 3
Fadescreen 6 1 1 0
Resetscreen
Setflag 2439
Releaseall
End
(76) C04R0301 Eterna City R3-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Hello, hello!
I am the official Name Rater!
Want me to rate the nicknames of
your Pokémon?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_1
Jump func_2
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 134
CheckLR 1 func_3
Message 9 "Excuse me, but do you got that
Pokémon named BUIZEL?
Wanna trade it for my CHATOT?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_4
Jump func_5
Script 3:
Fanfare 1500
Lockall
Faceplayer
CheckTime 32780
If 32780 4
CheckLR 1 func_6
Jump func_7
FUNCTIONS:
Func 1:
Message 1 "Which Pokémon’s nickname should
I critique?"
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
ChsPokemenu
StorePokeMenu2 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 255
CheckLR 1 func_2
Copyvar 32773 32780
CheckPokeEgg 32773 32780
If 32780 0
CheckLR 1 func_8
ComparePokeNick 32773 32780
If 32780 1
CheckLR 1 func_9
Setvarpokenick 0 32773
Message 2 "\v0101\z0000, is it?
That’s a decent nickname!
But would you like to give it
an even better name?
How about it?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_10
Jump func_2
Func 2:
Message 5 "I see.
Please come visit again."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 13 "Did that CHATOT I traded you totally
learn that Chatter move?
It will mimic your speech if you use
that move outside of battle."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
TradeChosenPoke
StorePokeMenu2 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 255
CheckLR 1 func_5
SetTradeId 1
Copyvar 32772 32780
CheckPokeEgg 32772 32773
CheckPokeTrade 32780
If2 32773 32780
CheckLR 5 func_11
TradeChsPoke 32772
StopTrade
Setflag 134
Message 10 "Yes! So awesome! A BUIZEL!
I so promise I’ll be good to it!
Oh yeah, CHATOT can learn some human
speech pretty quickly.
Try out its move Chatter.
You’ll totally see what I mean."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 12 "Oh, OK. Totally got it.
It’s all right if you don’t want to.
But if you change your mind,
let’s totally trade some Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 15 "I’m...building...superintendent...
...maintain...24-hour watch... Zzz..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 14 "Hi! I’m the building superintendent.
I maintain a vigilant 24-hour watch!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 8 "Now, now. That is merely an Egg!
An Egg can go by no other name!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Setvarpokenick 0 32773
Message 7 "\v0101\z0000, is it?
That is a truly impeccable name!
Take good care of \v0101\z0000!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Message 3 "Ah, good. Then, what shall the new
nickname be?"
0030
CloseMsgOnKeyPress
Setvar 32780 0
Fadescreen 6 1 0 0
Resetscreen
ChoosePokeNick 32773 32780
Fadescreen 6 1 1 0
Resetscreen
If 32780 1
CheckLR 1 func_12
StorePokeNickname 32773
Setvarpokenick 0 32773
Message 4 "Done! From now on, this Pokémon
shall be known as \v0101\z0000!
It is a better name than before!
How fortunate for you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
StopTrade
Message 11 "What I totally want is a BUIZEL..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
Setvarpokenick 0 32773
Message 6 "Done! From now on, this Pokémon
shall be known as \v0101\z0000!
It looks no different from before,
and yet, this is vastly superior!
How fortunate for you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(77) C04R0302 Eterna City R3-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 194
CheckLR 1 func_1
Message 0 "I’ve had this TM Recycle for such
a long time now.
It’s not anything that I have much
use for these days.
I do hope you’ll put it to good
use, young Trainer."
Setvar 32772 394
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 194
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Gardenia, our Gym Leader, goes out
to Eterna Forest every so often.
I always wonder what she does there."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Folks like me have a long history
we can look back on.
Young people like you have only the
future to look forward to."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(78) C04R0303 Eterna City R3-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I gathered up a lot of Berries, so
I’m trading them in for Accessories.
I’m this close to being ready for
the Contests in Hearthome City."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Badges from Gyms, or Contest wins...
There’s more than just one way to
be a winner, it seems.
Here’s hoping you’ll find something
in which you can be the victor."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Hahaha! I’ve got you now!
I’m gonna take your Flag!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 3 "You can’t catch me!
I set some Traps!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(79) C04R0304 Eterna City R3-04
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 118
CheckLR 1 func_1
Message 0 "I’ve had this TM Recycle for such
a long time now.
It’s not anything that I have much
use for these days.
I do hope you’ll put it to good
use, young Trainer."
Setvar 32772 331
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 118
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Folks like me have a long history
we can look back on.
Young people like you have only the
future to look forward to."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(80) C04R0401 Eterna City R4-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Checkflag 267
CheckLR1 1 func_1
CheckItem 450 1 16620
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Learn how to shift gears, and you’ll
be able to ride anywhere."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Lockall
Applymovement 1 mov_1
Waitmovement
Message 1 "You need a Bicycle to go out on
Cycling Road!"
CloseMsgOnKeyPress
Applymovement 255 mov_2
Waitmovement
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 267
CheckLR 1 func_2
Setvarhero 0
Setvaralter 1
Checkgender 16384
If 16384 0
CheckLR 1 func_3
Jump func_4
FUNCTIONS:
Func 1:
Setflag 576
Killscript
Func 2:
Message 6 "A Pokémon holding an Exp. Share
will be given some of the Exp. Points\ffrom battle.
It will get Exp. Points even if it
didn’t actually battle.
I would say an Exp. Share is quite
useful for raising weak Pokémon.
Also, a Pokémon you get in a trade
may disobey you if it is too high\fin level.
Don’t worry, though. It will obey if
you have enough Gym Badges."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 3 "\v0103\z0000, long time, no see!
Oh? You look puzzled.
You’re wondering who I am.
I’m Professor Rowan’s assistant and
\v0103\z0001’s father.
I’ve come a long way to help you on
your adventure at the professor’s\fbehest.
\v0103\z0000, let me ask you,
how many Pokémon have you met?"
Jump func_5
Func 4:
Message 4 "\v0103\z0000, long time, no see!
Oh? You look puzzled.
You’re wondering who I am.
I’m Professor Rowan’s assistant and
\v0103\z0001’s father.
I’ve come a long way to help you on
your adventure at the professor’s\fbehest.
\v0103\z0000, let me ask you,
how many Pokémon have you met?"
Jump func_5
Func 5:
StoreTotPokemonSeen 32772
Setvarnum 1 32772
If 32772 35
CheckLR 0 func_6
Message 5 "Oh, my!
You’ve met \v0134\z0001 Pokémon!
Wonderful! Yes, bravo!
Professor Rowan should be delighted!
Here is something for you!"
Setvar 32772 216
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_7
Setflag 267
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 7 "You’ve met only \v0134\z0001 Pokémon?
Hmm...
You’ve got to find at least 35.
If you can’t, it will be tough to
complete the Sinnoh Pokédex."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(81) C04R0501 Eterna City R5-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Welcome to the Herb Shop, home of
effective yet inexpensive medicine."
FreezeMsgBox
Pokemart1 4
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Herbal meds work most impressively.
But your Pokémon won’t like them.
They’re horribly bitter and smelly!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Someone ought to invent herbal
medicine that isn’t bitter.
That would be a medical breakthrough!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(82) C04R0601 Eterna City R6-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 281
CheckLR 1 func_1
Setvarhero 0
Message 0 "Oak: Ah, it’s you! Good to see you!
How is your Pokédex coming along?
Capturing every kind of Pokémon is
no easy feat, I’ll grant you that.
But I’m sure you can accomplish it!"
CloseMsgOnKeyPress
Applymovement 0 mov_1
Waitmovement
Message 1 "Oak: Ah, yes!
An acquaintance from Kanto has sent
me something quite interesting.
I think you’d make better use of it
than I ever could."
Setvar 32772 252
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Callstd 252 7
Setflag 281
Message 2 "I understand there is a Pokémon that
evolves when it is traded while holding
that Up-Grade."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Callstd 224 38
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(83) C04R0701 Eterna City R7-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Eterna came to be long ago in honor
of ancient Pokémon.
Though many things have changed,
what is important has not.
I hope it remains that way forever
more..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Have you seen the Pokémon statue?
When I was a wee child, it used to be
the centerpiece of many festivals..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(84) C04R0801 Eterna City R8-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
If 16566 9
CheckLR 4 func_1
Checkflag 275
CheckLR 1 func_2
Checkflag 121
CheckLR 1 func_3
Message 0 "I am! I am the first to have gone
underground and dug some tunnels.
You can call me the Underground Man.
Everyone else does.
I’ll make a gift of this to you.
You hold up your end of the deal
and put it to good use!"
Setvar 32772 428
Setvar 32773 1
Callstd 252 7
Setflag 121
Clearflag 273
Message 1 "My gift to you, the Explorer Kit,
will instantly take you underground!
You need only to use it, and you
will be down in the tunnels!
The Underground is a different world
where you can do this, that,
and the other thing, too!
Let me mentor you into becoming
a full-fledged spelunker!
Will you take on that challenge?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_4
Setflag 275
Jump func_2
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 36 "The underground tunnels go
everywhere!
Grab your friends and let’s play
together using DS Wireless
Communications!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 189
CheckLR 1 func_5
Setflag 189
Message 37 "Let’s dig up some Treasure!
I’m from Oreburgh.
I work at the mining museum there.
I got advice from the Underground
Man on digging up Treasure and Spheres.
Before I get digging, let me share
his advice with you.
While you’re digging, you may uncover
dark rocks.
They are very hard! If you keep
hitting them, the wall will collapse.
Don’t forget that, and you’ll be
digging up Treasure in no time!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Message 39 "New and on sale!
Underground Radar!
The upper radar screen indicates
possible Treasure locations.
The lower Touch Radar indicates
precise locations!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Message 40 "There is a book titled “Shortcut
to the Underground.”"
Jump func_6
FUNCTIONS:
Func 1:
Message 33 "You have been outstanding! There
really is nothing left to teach you.
From now on, you are the spelunking
master!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
If 16566 0
CheckLR 1 func_7
If 16566 1
CheckLR 1 func_8
If 16566 2
CheckLR 1 func_9
If 16566 3
CheckLR 1 func_10
If 16566 4
CheckLR 1 func_11
If 16566 5
CheckLR 1 func_12
If 16566 6
CheckLR 1 func_13
If 16566 7
CheckLR 1 func_14
If 16566 8
CheckLR 1 func_15
Jump func_1
Func 3:
Message 2 "Let me mentor you as you become
a full-fledged spelunker!
Will you take on that challenge?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_4
Setflag 275
Jump func_2
Func 4:
Message 3 "I had hoped to teach a youngster
like you about the many charms of\fthe underground tunnels...
But I can’t force you to accept my
proposal if you’re not inclined.
Sigh...
I get so lonely sometimes..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 38 "Oh, you’d like more advice on digging
up Treasure and Spheres?
Well, your Explorer Kit contains
a sledgehammer and a pickax.
Choose either of these tools and
touch the lower screen to dig.
You get to keep the stuff you fully
uncover before the wall collapses.
Don’t forget, the dark rocks are
impossible to break.
If you hit them too often, the wall
will collapse.
Don’t forget that, and you’ll be
digging up Treasure in no time!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 41 "Which page would you like to read?"
Multi 1 1 0 1 32780
Txtscrpmulti 180 0
Txtscrpmulti 181 1
Txtscrpmulti 182 2
Txtscrpmulti 183 3
Txtscrpmulti 184 4
Txtscrpmulti 12 5
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_16
If 32776 1
CheckLR 1 func_17
If 32776 2
CheckLR 1 func_18
If 32776 3
CheckLR 1 func_19
If 32776 4
CheckLR 1 func_20
Jump func_21
Func 7:
Checkflag 273
CheckLR 0 func_22
Checkflag 2414
CheckLR 0 func_23
Setvar 16566 1
Clearflag 273
Message 6 "Hm! I see that you’ve gone down to
the underground tunnels!
Well done!
Take these as rewards!"
Setvar 32772 1
Setvar 32773 1
Callstd 221 7
Setvar 32772 23
Setvar 32773 1
Callstd 221 7
Setvar 32772 28
Setvar 32773 1
Callstd 221 7
Message 7 "Those are called Traps.
They’re triggered when stepped on.
The Underground is a place where
you can go with your friends.
You might try setting those Traps
when you’re down there with others.
Now, what should I assign you next..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Checkflag 273
CheckLR 0 func_24
Checkflag 2415
CheckLR 0 func_25
Setvar 16566 2
Clearflag 273
Message 10 "Ah! You dug up what I was looking for!
Good job on finding it!
Well done, indeed!
Take these as your reward!"
Setvar 32772 1
Setvar 32773 1
Callstd 222 7
Setvar 32772 3
Setvar 32773 1
Callstd 222 7
Setvar 32772 4
Setvar 32773 1
Callstd 222 7
Message 11 "Dig in the walls of the underground
tunnels to unearth hidden stuff.
Fossils and Stones can be dug up and
brought out from down under.
Spheres, which are gems, cannot be
brought out, but they can be\fexchanged for goods down there.
Now, what should I assign you
next...?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Checkflag 273
CheckLR 0 func_26
Checkflag 2416
CheckLR 0 func_27
Setvar 16566 3
Clearflag 273
Message 14 "Good, good!
You’ve buried your Spheres!
The next time you go underground,
they should have grown bigger!
Just don’t forget where you’ve buried
your Spheres!
Anyway, well done!
This is your reward!"
Setvar 32772 33
Setvar 32773 1
Callstd 221 7
Message 15 "You may have seen them already, but
there are Sphere collectors.
They wander about in the underground
tunnels seeking Spheres.
They’ll happily trade you items for
big Spheres.
Now, what shall I assign you next...?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Checkflag 273
CheckLR 0 func_28
Checkflag 2417
CheckLR 0 func_29
Setvar 16566 4
Clearflag 273
Message 18 "Ah, you’ve made your Secret Base!
Excellent!
I thought I might have been asking
too much of you, but you did it!
Well done!
Take these as your reward!"
Setvar 32772 11
Setvar 32773 1
Callstd 254 7
Setvar 32772 9
Setvar 32773 1
Callstd 254 7
Setvar 32772 17
Setvar 32773 1
Callstd 254 7
Setvar 32772 113
Setvar 32773 1
Callstd 254 7
Message 19 "Incidentally, a Digger Drill can
be used only once.
If you wish to move your Secret
Base, you will need to obtain another\fDigger Drill.
You can trade a Sphere for one
underground.
What should I make you do next..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Checkflag 273
CheckLR 0 func_30
Checkflag 2418
CheckLR 0 func_31
Setvar 16566 5
Clearflag 273
Clearflag 252
Message 22 "Ah! You’ve even managed to decorate
your Secret Base!
I knew I recognized a spelunker
in you!
Don’t forget to close the door when
you’re decorating!
We don’t want any visitors getting
hurt by walking in on you!
Also, if you want to place goods
you’ve received, store them in the\fPC first.
Anyways, well done!
This is your reward!"
Goto func_32
Message 23 "There are ways of collecting more
decoration goods.
You can grow Spheres you’ve found
and trade them for goods.
It’s also possible to obtain goods
from friends."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
Checkflag 273
CheckLR 0 func_33
Checkflag 2419
CheckLR 0 func_34
Checkflag 252
CheckLR1 1 func_35
Checkflag 252
CheckLR1 0 func_36
Setvar 32772 81
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 254 7
Setvar 16566 6
Clearflag 273
Clearflag 252
Message 28 "There really is nothing else that
I can teach you.
If you wish to put away more Big
Boulders or put out more goods,\fkeep capturing more Flags.
Become the spelunking master for me!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 13:
StoreUndTime? 32780
If 32780 3
CheckLR 0 func_38
Checkflag 252
CheckLR1 1 func_35
Checkflag 252
CheckLR1 0 func_39
Setvar 32772 82
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setvar 16566 7
Clearflag 252
CloseMsgOnKeyPress
Releaseall
End
Func 14:
StoreUndTime? 32780
If 32780 10
CheckLR 0 func_38
Checkflag 252
CheckLR1 1 func_35
Checkflag 252
CheckLR1 0 func_40
Setvar 32772 83
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setvar 16566 8
Clearflag 252
CloseMsgOnKeyPress
Releaseall
End
Func 15:
StoreUndTime? 32780
If 32780 50
CheckLR 0 func_38
Checkflag 252
CheckLR1 1 func_35
Checkflag 252
CheckLR1 0 func_41
Setvar 32772 84
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setvar 16566 9
Clearflag 252
CloseMsgOnKeyPress
Releaseall
End
Func 16:
Message 42 "Flags: A Flag can be found in every
Secret Base.
Capture a friend’s Flag and take it
to your own Secret Base to make\fimprovements to it!
Find your friends’ Secret Bases and
capture their Flags!"
Jump func_6
Func 17:
Message 43 "Spheres: In the underground tunnels,
you can dig up pretty stones that\fare called Spheres.
There are people underground that
treat Spheres like money.
Trade them your Spheres in exchange
for decoration goods and other items.
These Spheres also have the strange
property of growing if they are\fburied in the ground."
Jump func_6
Func 18:
Message 44 "Traps: There are Traps that can be
put down in the underground tunnels.
There are many kinds of Traps for
unwary Trainers under the ground.
Some Traps need to be blown away.
Some need to be removed by touch."
Jump func_6
Func 19:
Message 45 "Goods: These are furniture and
decorative items for Secret Bases.
Collect goods by exchanging Spheres for
them, or by getting gifts from friends!"
Jump func_6
Func 20:
Message 46 "Treasure: These are rare items that
appear while digging underground.
They can be taken out of the
Underground if placed in your Bag\fwhile in the tunnels.
Dig around all over and find
Treasure!"
Jump func_6
Func 21:
CloseMsgOnKeyPress
Releaseall
End
Func 22:
Setflag 273
Message 4 "Hm!
Well said, my young friend!
I will teach you by assigning missions.
First, go underground!
Going underground is quite easy.
Simply use your Explorer Kit.
If you accomplish that, I will give
you your next test."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 23:
Message 5 "You’ve not gone underground yet?
To get down to the underground
tunnels, you need only to use your\fExplorer Kit.
But you need to be outside. It can’t
be used indoors or in a cave.
Now, off you go!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 24:
Setflag 273
Message 8 "How was it in the underground
tunnels?
Big and empty, I would think.
But that’s only because you are
a novice spelunker!
There are many hidden things down there
that are not visible to the eye.
For my next test, I want you to dig
up some Treasure or Spheres for me.
While underground, check the Radar
for yellow spots.
Go to such a location and search
for Treasure using the Touch Screen."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 25:
Message 9 "You’ve not located any Treasure
or Spheres yet?
Listen. Check the Radar and go to
any yellow spot that’s shown.
Next, use the Touch Screen to
identify places to dig.
Try to get right on top of a yellow
spot on the Radar, OK?
Once you are right in front of it,
press the A Button!
Now, off you go on your search!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 26:
Setflag 273
Message 12 "My tests aren’t over yet!
Next, let’s use some Spheres!
The Spheres one can find underground
are very peculiar.
When buried in the ground, they grow
daily, a little bit at a time.
I want you to go bury these strange
Spheres in the underground tunnels.
That is my latest test!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 27:
Message 13 "You’ve not buried the Spheres yet?
You’re afraid of losing them?
Have no fear! Spheres are easily
buried and just as easily dug up.
Don’t be afraid. Go bury those
Spheres like I’ve said.
Just don’t forget where you’ve buried
them--the Underground is huge!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 28:
Setflag 273
Message 16 "Have you grown weary of repeatedly
going back to the Underground?
Well, it’s not over yet!
Next up is your Secret Base!
That’s right, I will teach you how to
make your own Secret Base!
All you need is the Digger Drill
I gave you earlier.
Simply go underground and use the
Digger Drill wherever you like.
That will instantly make you your
very own Secret Base!
So, your next assignment is: go make
your own Secret Base!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 29:
Message 17 "Hm? You don’t know how to use
the Digger Drill?
OK, I’ll admit this test may have
been a little tricky for you.
All you need to do is find the
Digger Drill among your Traps.
Then, face a wall and use the Digger
Drill. That’s all it takes.
Do that and you’ll have your Secret
Base before you can say...
\vFF01\z00C8Boo!\vFF01\z0064
No, seriously though!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 30:
Setflag 273
Message 20 "Hm! You’ve stuck it out to the end!
This is my final test.
You’ve made yourself a Secret Base,
but it’s totally empty, is it not?
Not to worry! You can decorate your
own Secret Base as you see fit!
So! For my final test, I want you to
decorate your Secret Base.
Use furniture and interior goods
to give your Secret Base character!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 31:
Message 21 "Ah, have I finally managed to stump
you?
Perhaps you’ve left your Secret
Base’s door open?
You see, the underground tunnels are
visited by many Trainers.
It wouldn’t do to have someone
barge in on you while you’re working\fon your Secret Base.
Don’t forget to close the door while
you’re redecorating!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 32:
StoreStarter 32780
If 32780 390
CheckLR 1 func_42
If 32780 387
CheckLR 1 func_43
Jump func_44
Func 33:
Setflag 273
Message 24 "I’ve taught you all I know, but if
you insist, there is one more thing\fI should tell you.
The Secret Base you’ve made has Big
Boulders that get in the way, yes?
There is actually a way of moving
those boulders aside...
However, the task may be dangerous
for you now.
I suppose I could tell you how when
you get better as a spelunker..."
Goto func_45
Message 25 "...Hm! However, you are someone I’d
recognized as a born spelunker...
Fine! I will tell you, but only
because you’re exceptional!
You know that you may go underground
with your friends, correct?
That means your friends are certain
to have Secret Bases of their own.
Now, this is what you must do:
First, find a friend’s Secret Base.
Next, go to the PC and steal your
friend’s Flag.
Then, run back to your Secret Base
and take the Flag to your PC!
If you can do that, I will permit
you to move boulders."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 34:
Message 26 "Ah! My spelunker!
Are you spelunking with your friends?
It’s a hundred times more fun to play
with friends underground!
If you manage to steal a Flag from
a friend’s Secret Base, you be sure\fto come show me!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 35:
Message 35 "Hm!
This belongs to you!"
Killscript
Func 36:
Message 27 "Wait! Don’t tell me!
You’ve captured a Flag?
Excellent! You should already be
capable of moving Big Boulders\finside your Secret Base!
You can shunt aside a boulder by
storing it like furniture.
Anyways, well done!
This is your reward!"
Killscript
Func 37:
Setflag 252
Message 34 "Oh? Your underground PC appears
to be full.
Discard a decorative item or two,
then come see me again."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 38:
Message 29 "So, my spelunker, are you going
underground with your friends?
The underground tunnels are vast.
They can be a place where you meet
many others like you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 39:
Message 30 "Ah, you’ve captured three Flags!
Well done!
Take this as your reward!"
Killscript
Func 40:
Message 31 "Ah, you’ve captured ten Flags!
Well done!
Take this as your reward!"
Killscript
Func 41:
Message 32 "Oh! Oh! My goodness!
You’ve captured fifty Flags!
Fantastic!
Take this as your reward!"
Killscript
Func 42:
Setvar 32772 101
Setvar 32773 1
Callstd 254 7
Killscript
Func 43:
Setvar 32772 102
Setvar 32773 1
Callstd 254 7
Killscript
Func 44:
Setvar 32772 103
Setvar 32773 1
Callstd 254 7
Killscript
Func 45:
CheckHiroPosition 32772 32773
If 32772 5
CheckLR 1 func_46
If 32772 7
CheckLR 1 func_47
If 32773 4
CheckLR 1 func_48
Jump func_49
Func 46:
Applymovement 2 mov_1
Waitmovement
Killscript
Func 47:
Applymovement 2 mov_2
Waitmovement
Killscript
Func 48:
Applymovement 2 mov_3
Waitmovement
Killscript
Func 49:
Applymovement 2 mov_4
Waitmovement
Killscript
(85) C04R0901 Eterna City R9-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(86) C05 Hearthome City
SCRIPT ORDER:
Script 1
Script 2
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 13
Script 14
Script 15
Script 16
Script 17
Script 18
Script 19
Script 20
Script 21
Script 22
Script 23
Script 24
Script 25
Script 26
Script 27
Script 28
Script 29
Script 30
Script 31
Script 32
Script 33
Script 3
SCRIPTS:
Script 1:
End
Script 2:
Lockall
CheckHiroPosition 32772 32773
ChangeOwPosition 23 32772 726
Clearflag 549
Addpeople 23
Lock 23
Callstd 250 7
Applymovement 23 mov_1
Waitmovement
Setvarrival 0
Setvarhero 1
Message 4 "\v0103\z0000: Ta-daah!
Kept me waiting again, \v0103\z0001!
Let’s see how much tougher you and
I have gotten, right here and now!
Hey, you’re a Trainer now. You’re
expected to be ready for a battle.
No whining! No waiting!
Let’s get the show started!"
CloseMsgOnKeyPress
StoreStarter 32780
If 32780 387
CheckLR 1 func_1
If 32780 390
CheckLR 1 func_2
Jump func_3
Script 3:
Lockall
ChangeOwPosition 23 463 726
Clearflag 549
Callstd 250 7
CheckHiroPosition 32772 32773
If 32773 724
CheckLR1 1 func_4
If 32773 725
CheckLR1 1 func_5
If 32773 726
CheckLR1 1 func_6
If 32773 727
CheckLR1 1 func_7
If 32773 728
CheckLR1 1 func_8
If 32773 729
CheckLR1 1 func_9
Setvarrival 0
Setvarhero 1
Message 4 "\v0103\z0000: Ta-daah!
Kept me waiting again, \v0103\z0001!
Let’s see how much tougher you and
I have gotten, right here and now!
Hey, you’re a Trainer now. You’re
expected to be ready for a battle.
No whining! No waiting!
Let’s get the show started!"
CloseMsgOnKeyPress
StoreStarter 32780
If 32780 387
CheckLR 1 func_10
If 32780 390
CheckLR 1 func_11
Jump func_12
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 6 "You’re kidding! They found an Egg at
the Day Care in Solaceon Town?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 7 "I hear they found Eggs in the Johto
region, too."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Checkflag 251
CheckLR 1 func_13
Message 26 "Hi, hi.
Do you want a Pokémon Egg?
They found this at the Day Care in
Solaceon Town...
Want to take it?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_14
If 32780 1
CheckLR 1 func_15
End
Script 7:
Lockall
Applymovement 19 mov_2
Waitmovement
Message 8 "Cynthia: I’m so glad to see you!
You’re not very easy to track down.
My grandma told me about what took
place in Celestic Town.
Thanks for what you did in the ruins!"
CloseMsgOnKeyPress
Applymovement 19 mov_3
Waitmovement
Return 15 32780
Message 9 "But that Team Galactic...
I thought they were just an
eccentric bunch of freaks...
You know, talking about how they’re
going to make a new universe and all.
And that weird way they dress, too.
I thought they were harmless.
It appears as if they’re a lot more
trouble than I thought...
I mean, stealing and hoarding
Pokémon... That’s just plain wrong."
CloseMsgOnKeyPress
Applymovement 19 mov_4
Waitmovement
Message 10 "By the way, did you find the ruins
interesting at all?
If you did, you may want to visit the
library in Canalave City.
They have some ancient books that
you might find interesting.
It may also be of help to the
completion of your Pokédex.
I think you ought to go there.
OK, bye-bye for now!"
CloseMsgOnKeyPress
Return 15 32780
Applymovement 19 mov_5
Waitmovement
Removepeople 19
Setvar 16593 2
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 11 "You’re a Trainer, are you?
You’ve got two choices of challenges,
either the Gym or a Contest, right?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 12 "I was given the HM Strength at
the Lost Tower.
The Lost Tower is on Route 209 on
the way to Solaceon Town."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
Message 14 "There are just so many Accessories
to dress up Pokémon with.
I can’t decide what I should use."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Faceplayer
Message 16 "I used a Water Stone on my Pokémon,
and it evolved!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 12:
Fanfare 1500
Lockall
Faceplayer
Message 24 "I went for a stroll in Amity Square
with my PACHIRISU today.
We came across a Pokémon feather
while we walked.
Do you think it’d make my PACHIRISU
look any cuter?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 417 0
Message 25 "PACHIRISU: Kyukyuuh!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 14:
Fanfare 1500
Lockall
Faceplayer
Checkflag 1
CheckLR 1 func_16
Message 17 "I’m visiting here all the way from
the Hoenn region.
I had been hoping to find the Contest
Hall, but being new, I lost my way.
Fortunately, the local people very
kindly led me to my destination.
I was impressed by their kindness and
generosity to a complete stranger.
Now, may I offer you the courtesy
of showing you to the Contest Hall?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_17
Message 18 "Ah.
Please follow me."
CloseMsgOnKeyPress
Return 15 32780
CheckFacePosition 32772
If 32772 0
CheckLR 1 func_18
If 32772 1
CheckLR 1 func_19
If 32772 2
CheckLR 1 func_20
If 32772 3
CheckLR 1 func_21
End
Script 15:
Fanfare 1500
Lockall
Faceplayer
Message 22 "When I take my baby out in his stroller,
I see the town in a different way.
I notice things like stairs and bumps
in the sidewalk."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 16:
Fanfare 1500
Lockall
Faceplayer
Message 15 "I get to see Pokémon all day long,
but there sure are many kinds.
How many are there now?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 17:
Fanfare 1500
Lockall
Message 23 "Apapapu!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 18:
Fanfare 1500
Lockall
Faceplayer
Message 31 "They call me Mr. Goods.
No one knows my real name.
No, not even I do...
I dedicate myself to seeking rarities.
It’s what I live for."
Message 32 "Hm!
Hmhmhmhm?!"
Checkflag 330
CheckLR 0 func_22
Checkflag 331
CheckLR 0 func_22
Checkflag 332
CheckLR 0 func_22
Checkflag 333
CheckLR 0 func_22
Checkflag 334
CheckLR 0 func_22
Checkflag 335
CheckLR 0 func_22
Checkflag 336
CheckLR 0 func_22
Checkflag 337
CheckLR 0 func_22
Checkflag 338
CheckLR 0 func_22
Checkflag 339
CheckLR 0 func_22
Checkflag 340
CheckLR 0 func_22
Setflag 347
Jump func_23
Script 19:
Fanfare 1500
Lockall
Faceplayer
Message 54 "I can feel the baby stroller getting
heavier each and every day.
I wonder what kind of Pokémon my
child will become friends with first?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 20:
Fanfare 1500
Lockall
Message 55 "Papa! Mama!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 21:
Fanfare 1500
Lockall
Faceplayer
Message 56 "I lived in total seclusion up in
the mountains for thirty years!
I’m going to clean up some Contests
with a dance move I came up with!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 22:
Fanfare 1500
Lockall
Faceplayer
Message 57 "I’d like to live in Hearthome when
I get married.
But my boyfriend wants to live in
Veilstone ’cause of its Game Corner..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 23:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Oh, I’m so sorry!
Please excuse me.
Are you entering a Contest?
Tehehe... Enjoy yourself, please!
Incidentally, Fantina, the Hearthome
Gym Leader, also happens to be
a Contest expert.
And you may ask yourself, how do
I know this? Well, I am Fantina!
You may challenge me, but not yet!
You must become much stronger.
Then, you may challenge me!"
CloseMsgOnKeyPress
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_24
Checkflag 1
CheckLR 1 func_25
Jump func_26
Script 24:
Lockall
Applymovement 255 mov_6
Waitmovement
CheckHiroPosition 32772 32773
If 32773 725
CheckLR 1 func_27
If 32773 726
CheckLR 1 func_28
If 32773 727
CheckLR 1 func_29
If 32773 728
CheckLR 1 func_30
If 32773 729
CheckLR 1 func_31
End
Script 25:
CallMsgBox 58 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 26:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 59 32780
Callstd 208 7
End
Script 27:
CallMsgBox 572 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 28:
CallMsgBox 573 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 29:
CallMsgBox 318 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 30:
CallMsgBox 319 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 31:
CallMsgBox 576 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 32:
CallMsgBox 577 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 33:
CallMsgBox 578 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
TrainerBattle 471 0
Jump func_32
Func 2:
TrainerBattle 472 0
Jump func_32
Func 3:
TrainerBattle 470 0
Jump func_32
Func 4:
ChangeOwMovement 23 14
ReleaseOw 23 0
Addpeople 23
Lock 23
Applymovement 23 mov_7
Applymovement 255 mov_8
Waitmovement
Killscript
Func 5:
ChangeOwMovement 23 14
ReleaseOw 23 0
Addpeople 23
Lock 23
Applymovement 23 mov_9
Applymovement 255 mov_8
Waitmovement
Killscript
Func 6:
ChangeOwMovement 23 16
ReleaseOw 23 2
Addpeople 23
Lock 23
Applymovement 23 mov_10
Waitmovement
Killscript
Func 7:
ChangeOwMovement 23 15
ReleaseOw 23 1
Addpeople 23
Lock 23
Applymovement 23 mov_11
Applymovement 255 mov_12
Waitmovement
Killscript
Func 8:
ChangeOwMovement 23 15
ReleaseOw 23 1
Addpeople 23
Lock 23
Applymovement 23 mov_13
Applymovement 255 mov_12
Waitmovement
Killscript
Func 9:
ChangeOwMovement 23 15
ReleaseOw 23 1
Addpeople 23
Lock 23
Applymovement 23 mov_14
Applymovement 255 mov_12
Waitmovement
Killscript
Func 10:
TrainerBattle 471 0
Jump func_33
Func 11:
TrainerBattle 472 0
Jump func_33
Func 12:
TrainerBattle 470 0
Jump func_33
Func 13:
Message 28 "This is what I heard about Eggs.
If you take that Egg and travel
with energetic Pokémon, it’ll hatch.
I remember someone announced that...
Professor Elm of Johto maybe?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Checkpartynumber 32780
If 32780 6
CheckLR 1 func_34
Soundfr 1158
Message 27 "Here you go!"
Fadedef
GiveEgg 440 9
Setflag 251
Jump func_13
Func 15:
Message 30 "All right, then. I’ll just keep waiting
for someone to take care of this Egg.
Oh? Wait a minute. If I wait around,
will the Egg hatch for me?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 16:
Message 20 "It makes me happy knowing I’ve
helped another person."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 17:
Message 21 "Oh, I do apologize.
I should mind my own business."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 18:
Applymovement 0 mov_15
Applymovement 255 mov_16
Waitmovement
Jump func_35
Func 19:
Applymovement 0 mov_15
Applymovement 255 mov_17
Waitmovement
Jump func_35
Func 20:
Applymovement 0 mov_15
Applymovement 255 mov_18
Waitmovement
Jump func_35
Func 21:
Applymovement 0 mov_19
Applymovement 255 mov_20
Waitmovement
Jump func_35
Func 22:
Checkflag 330
CheckLR 1 func_36
Checkflag 2444
CheckLR 0 func_36
Message 40 "Oh!
How impressive!
Your adventure has gone global in
scale, has it?
For a Trainer like you, I have just
the thing!"
Setvar 32772 46
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setflag 330
CloseMsgOnKeyPress
Releaseall
End
Func 23:
Message 34 "I was going to give you something,
but I just gave a rare thing away.
I’ll find something else for you,
so just talk to me some other time."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 24:
Applymovement 35 mov_21
Waitmovement
Jump func_38
Func 25:
Applymovement 35 mov_22
Waitmovement
Jump func_38
Func 26:
Applymovement 35 mov_23
Waitmovement
Jump func_38
Func 27:
ChangeOwPosition 34 471 725
ChangeOwPosition 33 471 725
Jump func_39
Func 28:
ChangeOwPosition 34 471 726
ChangeOwPosition 33 471 726
Jump func_39
Func 29:
ChangeOwPosition 34 471 727
ChangeOwPosition 33 471 727
Jump func_39
Func 30:
ChangeOwPosition 34 471 728
ChangeOwPosition 33 471 728
Jump func_39
Func 31:
ChangeOwPosition 34 471 729
ChangeOwPosition 33 471 729
Jump func_39
Func 32:
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_40
Setvarrival 0
Setvarhero 1
Message 5 "\v0103\z0000: Waaaagh!
You KO’d my team again?!
This messes up my dream of becoming
the greatest Trainer ever...
No! I just need to get tougher and
keep winning. One day...
That’s it! I’m going to challenge
the Veilstone Gym next!
See you around, \v0103\z0001!
You’ll be blown away by how much
tougher I’ll be next time we meet!"
CloseMsgOnKeyPress
Return 15 32780
Applymovement 23 mov_24
Waitmovement
Removepeople 23
Setvar 16507 2
Releaseall
End
Func 33:
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_40
Setvarrival 0
Setvarhero 1
Message 5 "\v0103\z0000: Waaaagh!
You KO’d my team again?!
This messes up my dream of becoming
the greatest Trainer ever...
No! I just need to get tougher and
keep winning. One day...
That’s it! I’m going to challenge
the Veilstone Gym next!
See you around, \v0103\z0001!
You’ll be blown away by how much
tougher I’ll be next time we meet!"
CloseMsgOnKeyPress
Return 15 32780
CheckHiroPosition 32772 32773
If 32773 724
CheckLR1 1 func_41
If 32773 725
CheckLR1 1 func_42
If 32773 726
CheckLR1 1 func_43
If 32773 727
CheckLR1 1 func_44
If 32773 728
CheckLR1 1 func_45
If 32773 729
CheckLR1 1 func_46
Removepeople 23
Setvar 16507 2
Releaseall
End
Func 34:
Message 29 "Hold up. You don’t seem to have
enough room for the Egg."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 35:
Setflag 1
Message 19 "This is the Contest Hall.
Please, do go inside."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 36:
Checkflag 331
CheckLR 1 func_47
Setbdgfalse 32780
If 32780 8
CheckLR 0 func_47
Message 41 "Oh!
How impressive!
You’ve conquered all the Gyms,
have you?
For a Trainer like you, I have just
the thing!"
Setvar 32772 47
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setflag 331
CloseMsgOnKeyPress
Releaseall
End
Func 37:
Message 37 "Oh? Your underground PC appears
to be full.
I’ll hold your gift until you make
room for it. Tell me when, OK?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 38:
Removepeople 35
Releaseall
End
Func 39:
Clearflag 602
Clearflag 603
Addpeople 34
Addpeople 33
Applymovement 33 mov_25
Waitmovement
Cryfr 427 0
WaitCry
Applymovement 34 mov_26
Waitmovement
Message 0 "Oh, thank goodness that you happened
to be there!
If it weren’t for you, who knows how
far away my BUNEARY could have run..."
Message 1 "Baby BUNEARY, back into the Poké
Ball you go!"
Cryfr 427 0
WaitCry
Removepeople 33
Message 2 "I’m Keira!
I’m a Pokémon Contest Judge.
Please drop by the Contest Hall
so I can thank you properly!"
CloseMsgOnKeyPress
Applymovement 34 mov_27
Waitmovement
Removepeople 34
Setvar 16630 1
Releaseall
End
Func 40:
Setflag 549
LostGoPc
Releaseall
End
Func 41:
Applymovement 23 mov_28
Applymovement 255 mov_29
Waitmovement
Killscript
Func 42:
Applymovement 23 mov_30
Applymovement 255 mov_29
Waitmovement
Killscript
Func 43:
Applymovement 23 mov_31
Waitmovement
Killscript
Func 44:
Applymovement 23 mov_32
Applymovement 255 mov_33
Waitmovement
Killscript
Func 45:
Applymovement 23 mov_34
Applymovement 255 mov_33
Waitmovement
Killscript
Func 46:
Applymovement 23 mov_35
Applymovement 255 mov_33
Waitmovement
Killscript
Func 47:
Checkflag 332
CheckLR 1 func_48
Checkflag 2410
CheckLR 0 func_48
Message 42 "Oh!
How impressive!
You’ve finally conquered the Master
Rank of the Cute Contest!
For a Trainer like you, I have just
the thing!"
Setvar 32772 72
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setflag 332
CloseMsgOnKeyPress
Releaseall
End
Func 48:
Checkflag 333
CheckLR 1 func_49
Checkflag 2408
CheckLR 0 func_49
Message 43 "Oh!
How impressive!
You’ve finally conquered the Master
Rank of the Cool Contest!
For a Trainer like you, I have just
the thing!"
Setvar 32772 73
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setflag 333
CloseMsgOnKeyPress
Releaseall
End
Func 49:
Checkflag 334
CheckLR 1 func_50
Checkflag 2409
CheckLR 0 func_50
Message 44 "Oh!
How impressive!
You’ve finally conquered the Master
Rank of the Beauty Contest!
For a Trainer like you, I have just
the thing!"
Setvar 32772 74
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setflag 334
CloseMsgOnKeyPress
Releaseall
End
Func 50:
Checkflag 335
CheckLR 1 func_51
Checkflag 2412
CheckLR 0 func_51
Message 45 "Oh!
How impressive!
You’ve finally conquered the Master
Rank of the Tough Contest!
For a Trainer like you, I have just
the thing!"
Setvar 32772 75
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setflag 335
CloseMsgOnKeyPress
Releaseall
End
Func 51:
Checkflag 336
CheckLR 1 func_52
Checkflag 2411
CheckLR 0 func_52
Message 46 "Oh!
How impressive!
You’ve finally conquered the Master
Rank of the Smart Contest!
For a Trainer like you, I have just
the thing!"
Setvar 32772 76
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setflag 336
CloseMsgOnKeyPress
Releaseall
End
Func 52:
Checkflag 337
CheckLR 1 func_53
CheckMasterRank 32780
If 32780 100
CheckLR 0 func_53
Message 47 "Oh!
How impressive!
You’ve met so very many people
in the underground tunnels!
For a Trainer like you, I have just
the thing!"
Setvar 32772 77
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setflag 337
CloseMsgOnKeyPress
Releaseall
End
Func 53:
Checkflag 338
CheckLR 1 func_54
CheckUgPeopleNum 32780
If 32780 100
CheckLR 0 func_54
Message 48 "Oh!
How impressive!
You’ve given away many items to
people while underground!
For a Trainer like you, I have just
the thing!"
Setvar 32772 78
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setflag 338
CloseMsgOnKeyPress
Releaseall
End
Func 54:
Checkflag 339
CheckLR 1 func_55
CheckUgFossilNum 32780
If 32780 100
CheckLR 0 func_55
Message 49 "Oh!
How impressive!
You’ve dug up so many Fossils in
the underground tunnels!
For a Trainer like you, I have just
the thing!"
Setvar 32772 79
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setflag 339
CloseMsgOnKeyPress
Releaseall
End
Func 55:
Checkflag 340
CheckLR 1 func_56
CheckUgTrapsNum 32780
If 32780 100
CheckLR 0 func_56
Message 50 "Oh!
How impressive!
You’ve set many Traps in the
underground tunnels!
For a Trainer like you, I have just
the thing!"
Setvar 32772 80
Setvar 32773 1
CheckUndPcStatus 32772 32773 32780
If 32780 0
CheckLR 1 func_37
Callstd 220 7
Setflag 340
CloseMsgOnKeyPress
Releaseall
End
Func 56:
Jump func_57
Func 57:
Message 39 "I’ll find something rare for you,
so talk to me some other time."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(87) C05FS0101 Hearthome City Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 5
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’d like to buy the item Revive, but
they won’t sell it to someone with
only two Gym Badges..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I’ve heard there are Accessories
to be found.
Someone told me that you can find
some in Amity Square."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(88) C05GYM0101 Hearthome City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Setvar 16384 0
HearthromeGymFunction
Checkflag 2445
CheckLR 0 func_1
End
Script 2:
Setvar 16384 1
End
Script 3:
HearthromeGymFunction2
End
Script 4:
Fanfare 1500
Lockall
Message 0 "Question: 3 plus 5 plus 7 is?
Answer: ←2 ↑16 →15"
Fanfare 1591
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Checkflag 165
CheckLR 0 func_2
Checkbadge 4 32780
If 32780 1
CheckLR 1 func_3
Message 5 "Hey, there!
How’s it going, Champ-to-be?
The Gym Leader here is a user of
Ghost-type Pokémon.
Beware, Normal-type moves have no
effect at all on ghosts!
It’s as if they weren’t there!
But you’ll have to see for yourself.
Go get ’em, challenger!
I believe in you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Checkbadge 4 32780
If 32780 1
CheckLR 1 func_4
Setvarrival 0
Setvarrival 1
Message 7 "Hearthome City Pokémon Gym
Leader: Fantina
Certified Trainers:
\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvar 16384 1
End
Func 2:
Checkflag 163
CheckLR 1 func_5
Setflag 163
Message 3 "Hey, there!
How’s it going, Trainer?
You being here tells me you’re going
to challenge the Gym Leader.
Well... I hate to break it to
you, but that’s impossible.
You’re questioning why, and the
answer is: she’s not here.
Come back another time, OK?
I’ll be right here waiting."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Setvarhero 0
Message 6 "Oh! \v0103\z0000!
You’ve beaten the Gym Leader!
There seems to be no end to how
tough you are getting!
At least that’s how I see it!
...You do realize I say that to
everyone, right?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Setvarrival 0
Setvarhero 1
Setvarrival 2
Message 8 "Hearthome City Pokémon Gym
Leader: Fantina
Certified Trainers:
\v0103\z0000\f\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 4 "So, where’s the Gym Leader, you ask.
I can’t precisely say, but I have a
hunch that she’ll return one day...
But only after you visit other
places, I think.
Hey, I’m sorry I’m not useful to you.
My advice giving needs work..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(89) C05GYM0102 Hearthome City GYM
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(90) C05GYM0103 Hearthome City GYM
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(91) C05GYM0104 Hearthome City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
HearthromeGymFunction
End
Script 2:
HearthromeGymFunction2
End
Script 3:
Lockall
Fanfare 1572
Message 1 "Correct!
Congratulations!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Message 0 "Question: 12 plus 28 is?
Answer: ←30 ↑40 →50"
Fanfare 1591
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(92) C05GYM0105 Hearthome City GYM
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(93) C05GYM0106 Hearthome City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
HearthromeGymFunction
End
Script 2:
HearthromeGymFunction2
End
Script 3:
Lockall
Fanfare 1572
Message 1 "Correct!
Congratulations!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Message 0 "Question: 3 times 13 is?
Answer: ←39 ↑93 →33"
Fanfare 1591
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(94) C05GYM0107 Hearthome City GYM
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(95) C05GYM0108 Hearthome City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
HearthromeGymFunction
End
Script 2:
HearthromeGymFunction2
End
Script 3:
Lockall
Fanfare 1572
Message 1 "Correct!
Congratulations!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Message 0 "Question: The first room’s answer?
Answer: ←2 ↑16 →15"
Fanfare 1591
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(96) C05GYM0109 Hearthome City GYM
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(97) C05GYM0110 Hearthome City GYM
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(98) C05GYM0111 Hearthome City GYM
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(99) C05GYM0112 Hearthome City GYM
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(100) C05GYM0113 Hearthome City GYM
SCRIPT ORDER:
Script 1
Script 6
Script 7
Script 8
Script 10
Script 94
Script 65
Script 116
Script 111
Script 45
Script 18
Script 97
Script 100
Script 50
Script 43
Script 23
Script 105
Script 98
Script 90
Script 69
Script 2
Script 56
Script 76
Script 60
Script 53
Script 57
Script 77
Script 61
Script 48
Script 58
Script 78
Script 62
Script 42
Script 59
Script 79
Script 63
Script 3
Script 85
Script 112
Script 113
Script 46
Script 21
Script 96
Script 20
Script 4
Script 19
Script 68
Script 12
Script 115
Script 114
Script 47
Script 22
Script 71
Script 104
Script 54
Script 55
Script 40
Script 44
Script 73
Script 74
Script 75
Script 81
Script 82
Script 83
Script 84
Script 86
Script 41
Script 80
Script 5
Script 87
Script 108
Script 49
Script 17
Script 103
Script 117
Script 92
Script 110
Script 93
Script 99
Script 67
Script 70
Script 7
Script 95
Script 66
Script 91
Script 72
Script 51
Script 106
Script 88
Script 118
Script 109
Script 102
Script 101
Script 119
Script 52
Script 107
Script 89
Script 9
Script 24
Script 25
Script 26
Script 27
Script 13
Script 28
Script 29
Script 30
Script 31
Script 14
Script 32
Script 33
Script 34
Script 35
Script 15
Script 36
Script 37
Script 38
Script 39
Script 16
Script 64
Script 11
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
If 32780 2
CheckLR 1 func_3
If 32780 3
CheckLR 1 func_4
End
Script 2:
Applymovement 0 mov_1
Waitmovement
Jump func_5
Script 3:
Script 4:
Script 5:
Clearflag 456
Setvar 16593 1
Message 3 "That Badge will let you use the
hidden move Surf outside of battle.
Also, you can make use of this
Technical Machine.
That is what I think."
Jump func_6
Script 6:
Setvar 32772 392
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_7
Callstd 252 7
Setflag 125
Setvaritem 0 32772
Setvaratkitem 1 32772
Message 4 "That \v0108\z0000...
It contains \v0106\z0001.
A very startling move it is.
Its hits turn critical often!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Checkflag 125
CheckLR 0 func_6
Message 5 "Five Gym Badges...
But you must not forget this.
There are many other Trainers.
Strong Trainers, too.
There are many more in Sinnoh.
Have patience! You must become
stronger, one at a time."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
End
Script 10:
LostGoPc
Releaseall
End
Script 11:
Script 12:
Script 13:
Script 14:
Script 15:
Script 16:
Script 17:
Script 18:
Script 19:
Script 20:
Script 21:
Script 22:
Script 23:
Script 24:
Script 25:
Script 26:
Script 27:
Script 28:
Script 29:
Script 30:
Script 31:
Script 32:
Script 33:
Script 34:
Script 35:
Script 36:
Script 37:
Script 38:
Script 39:
Script 40:
Script 41:
Script 42:
Script 43:
Script 44:
Script 45:
Script 46:
Script 47:
Script 48:
Script 49:
Script 50:
Script 51:
Script 52:
Script 53:
Script 54:
Script 55:
Script 56:
Script 57:
Script 58:
Script 59:
Script 60:
Script 61:
Script 62:
Script 63:
Script 64:
Script 65:
Script 66:
Script 67:
Script 68:
Script 69:
Script 70:
Script 71:
Script 72:
Script 73:
Script 74:
Script 75:
Script 76:
Script 77:
Script 78:
Script 79:
Script 80:
Script 81:
Script 82:
Script 83:
Script 84:
Script 85:
Script 86:
Script 87:
Script 88:
Script 89:
Script 90:
Script 91:
Script 92:
Script 93:
Script 94:
Script 95:
Script 96:
Script 97:
Script 98:
Script 99:
Script 100:
Script 101:
Script 102:
Script 103:
Script 104:
Script 105:
Script 106:
Script 107:
Script 108:
Script 109:
Script 110:
Script 111:
Script 112:
Script 113:
Script 114:
Script 115:
Script 116:
Script 117:
Script 118:
Script 119:
FUNCTIONS:
Func 1:
Applymovement 0 mov_2
Waitmovement
Jump func_5
Func 2:
Applymovement 0 mov_3
Waitmovement
Jump func_5
Func 3:
Applymovement 0 mov_4
Waitmovement
Jump func_5
Func 4:
Applymovement 0 mov_1
Waitmovement
Jump func_5
Func 5:
Checkbadge 4 32780
If 32780 1
CheckLR 1 func_8
DeActivateLeader 9 100 0 0 0
Message 0 "\vFF01\z00C8Ohohoho!!\vFF01\z0064
Finally, you have arrived!
Since I came to this country, always
I try to learn new things.
They hold Contests in this city?
I say to myself, enfin, I will excel.
That is why I dress this way.
C’est une performance!
Also, I study Pokémon very much.
I have come to be Gym Leader.
And, uh, so it shall be that you
challenge me.
But I shall win.
That is what a Gym Leader does, non?"
CloseMsgOnKeyPress
TrainerBattle 318 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_9
Message 1 "I am dumbfounded!
So very, very strong!
You, your Pokémon, so strong!
Your power is admirable!
I shall honor it with this Gym Badge!"
Setvarhero 0
Message 2 "\v0103\z0000 received
the Relic Badge from Fantina!"
Soundfr 1161
Fadedef
Setbdgtrue 4
MainEvent 23
SetTrainerId 266
SetTrainerId 280
SetTrainerId 284
SetTrainerId 325
SetTrainerId 330
SetTrainerId 340
SetTrainerId 343
SetTrainerId 357
DeActivateLeader 10 100 318 0 0
Clearflag 456
Setvar 16593 1
Message 3 "That Badge will let you use the
hidden move Surf outside of battle.
Also, you can make use of this
Technical Machine.
That is what I think."
Jump func_6
Func 6:
Setvar 32772 392
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_7
Callstd 252 7
Setflag 125
Setvaritem 0 32772
Setvaratkitem 1 32772
Message 4 "That \v0108\z0000...
It contains \v0106\z0001.
A very startling move it is.
Its hits turn critical often!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Checkflag 125
CheckLR 0 func_6
Message 5 "Five Gym Badges...
But you must not forget this.
There are many other Trainers.
Strong Trainers, too.
There are many more in Sinnoh.
Have patience! You must become
stronger, one at a time."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
LostGoPc
Releaseall
End
(101) C05PC0101 Hearthome City Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 32775 0
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Have you checked out the GTS
in Jubilife City?
It uses the Nintendo Wi-Fi Connection!
I can’t explain it, but it’s wicked!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Hello, do you have a Poffin Case?
If you haven’t got one, you really
must visit the Pokémon Fan Club."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 165
CheckLR 1 func_1
Message 3 "They’re saying that Gym Leader
Fantina’s not around.
Heh! She must’ve heard I’m around
and chickened out!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 4 "Yeah, so the Gym Leader came back,
and I challenged her.
...She wiped the floor with us.
I have to heal up my team now..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(102) C05PC0102 Hearthome City Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(103) C05R0101 Hearthome City R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "There are the Contests!
Then, we have the Amity Square!
We have visitors from all over, so we
need to keep the city looking nice!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "People all over the world follow
Pokémon Contests.
What should I do?
I could captivate the whole world!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(104) C05R0102 Hearthome City R1-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 140
CheckLR 1 func_1
Setvaritem 0 253
Message 0 "I have something for your Pokémon
to hold. Take this \v0108\z0000."
Setvar 32772 253
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 140
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 35 0
Message 2 "CLEFAIRY: Pippi!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvaritem 0 253
Message 1 "The Pokémon that’s holding the
\v0108\z0000 will regain HP\fa little by inflicting damage.
It was given to me when I was on
vacation, but I already had one."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(105) C05R0103 Hearthome City R1-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Lockall
Applymovement 255 mov_1
Waitmovement
CheckFloor 16590
Copyvar 32776 16590
If 32776 1
CheckLR 1 func_1
If 32776 0
CheckLR 1 func_2
End
FUNCTIONS:
Func 1:
Setvar 32772 0
Goto func_3
Fadescreen 6 1 0 0
Resetscreen
Warp 104 0 18 3 1
Fadescreen 6 1 1 0
Resetscreen
End
Func 2:
Setvar 32772 1
Goto func_3
Fadescreen 6 1 0 0
Resetscreen
Warp 103 0 18 3 1
Fadescreen 6 1 1 0
Resetscreen
End
Func 3:
WaitFanfare 1500
StoreElevatorDirection 32772 4
Applymovement 255 mov_2
Waitmovement
Fanfare 1539
Killscript
(106) C05R0201 Hearthome City R2-01
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 6
Script 1
SCRIPTS:
Script 1:
CheckStatusPhraseBox? 4 16384
If 16384 0
CheckLR 1 func_1
Clearflag 558
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 141
CheckLR 1 func_2
Message 0 "Hello, hello!
How, I say, do you do?
I am the Pokémon Fan Club Chairman!
Indeed, yes I am!
When you wish to treat your Pokémon
to a treat, what, I say, do you do?
If I may say so, and I will, I feed
Poffins to my Pokémon!
And why, I say, would I do that?
Because the giving of Poffins is
a way of expressing your love!
For example! If I were to give a
Sweet Poffin, the Pokémon eating it
would become more cute!
For example! A Spicy Poffin will add
to the coolness of a Pokémon!
In such ways I say that Poffins have
nothing but goodness for Pokémon!
Therefore!
I declare this Poffin Case to be
a gift from me to you!"
Setvar 32772 449
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_3
Callstd 252 7
Setflag 141
Message 1 "I urge you to fill it with Poffins
and be generous in dispensing them
to your Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
CheckFirstPokeParty 32768
Setvarpokenick 0 32768
Message 3 "Welcome to the Pokémon Fan Club!
Oh, your \v0100\z0000..."
StoreHappyPoke 32780 32768
If 32780 255
CheckLR 4 func_4
If 32780 200
CheckLR 4 func_5
If 32780 150
CheckLR 4 func_6
If 32780 100
CheckLR 4 func_7
If 32780 50
CheckLR 4 func_8
If 32780 1
CheckLR 4 func_9
Jump func_10
Script 4:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 54 0
Message 11 "PSYDUCK: Gua gwah?!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 427 0
Message 12 "BUNEARY: Kukuuh."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 35 0
Message 13 "CLEFAIRY: Pip piiih!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 558
End
Func 2:
Message 2 "Nationwide, there are other fan
clubs, but we are number one!
And why are we number one?
Because I brag more than anyone!
But now I can’t brag as much...
People started complaining, so
I’ve had to curtail my bragging..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 4 "It simply adores you!
Why, I feel like I’m intruding!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 5 "It’s very friendly toward you.
I can tell you treat it kindly."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 6 "It’s quite friendly to you.
It must be happy being with you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 7 "It’s warming up to you.
That’s my impression."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 8 "It’s feeling neutral toward you.
It’s up to you to change that."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Message 9 "Hmm...
It seems to dislike you a little."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Message 10 "Oh, my... I think this one really
hasn’t taken too kindly to you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(107) C05R0301 Hearthome City R3-01
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 1
SCRIPTS:
Script 1:
CheckStatusPhraseBox? 13 16384
If 16384 0
CheckLR 1 func_1
Clearflag 567
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "In Amity Square, you may go for
a stroll with a cute Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "My PIKACHU seems delighted to be out
of its Poké Ball for a walk outside.
I can tell because its cheeks are
twitching like crazy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 2 "PIKACHU: Pikappi!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 567
End
(108) C05R0401 Hearthome City R4-01
SCRIPT ORDER:
Script 2
Script 3
Script 1
SCRIPTS:
Script 1:
CheckStatusPhraseBox? 13 16384
If 16384 0
CheckLR 1 func_1
Clearflag 567
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "You can take a cute Pokémon out for
a stroll in Amity Square."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I’m appalled!
They refused entry to my Pokémon!
Oh, my poor GYARADOS and STEELIX!
This is discrimination!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 567
End
(109) C05R0501 Hearthome City R5-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Hearthome City is a great place.
Every year, it gets voted the most
desirable place to live in Sinnoh."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "If you say Hearthome City, I only
say this: Pokémon Contests!
I’m going to enter my darling
Pokémon in them!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 35 0
Message 2 "CLEFAIRY: Pippii?!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(110) C05R0601 Hearthome City R6-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "There’s a wrecked stone pillar up
ahead.
I wonder what it is?
It’s got me very curious."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(111) C05R0701 Hearthome City R7-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The Contests are interesting, but the
ruins of Solaceon Town are as well..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "As a cameraman, it makes me happy
to see all sorts of Pokémon involved
in Contests."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "I traveled a long way to take part
in these Contests."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 4 "I’ve given my Pokémon lots of Poffins.
I’m confident that we’ll win our share
of Contests."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(112) C05R0801 Hearthome City R8-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Well, now, you’re a Trainer?
That makes you both papa and mama
to your Pokémon.
You know how having Pokémon around
leads to new discoveries?
It’s the same for parents and kids.
I’m always learning from my kids."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Message 1 "Kuufu fuu!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Babies and Pokémon get along
perfectly together.
When babies take naps, Pokémon go
to sleep right next to them."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 3 "When I get bigger, I’m going to be
a Trainer, too!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 4 "When I grow up, I want to become
a Pokémon coordinator."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 5 "...My sisters get all the attention.
No one even notices me."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 6 "Oh, wow, you’re a Pokémon Trainer.
Having lots of Pokémon around is
a lot of responsibility.
But that also comes with a lot
of fun!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 7 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 8 "PIKACHU: Pikapii?"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(113) C05R0802 Hearthome City R8-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "All my grandchildren are clamoring
for Pokémon of their own.
It may be tricky to manage it, but
it will brighten up the mood more."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Oh, no, there are no stairs in
this house. It’s easier that way.
The lack of stairs makes it easy for
the little Pokémon to get about."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "A world in which people are
compassionate to others...
That’s all that matters to me."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Hearthome is a kid-friendly city,
they say, but I disagree.
Hearthome is friendly to kids,
grown-ups, and Pokémon too."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(114) C05R0803 Hearthome City R8-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Lockall
Applymovement 255 mov_1
Waitmovement
CheckFloor 16590
Copyvar 32776 16590
If 32776 1
CheckLR 1 func_1
If 32776 0
CheckLR 1 func_2
End
FUNCTIONS:
Func 1:
Setvar 32772 0
Goto func_3
Fadescreen 6 1 0 0
Resetscreen
Warp 113 0 18 3 1
Fadescreen 6 1 1 0
Resetscreen
End
Func 2:
Setvar 32772 1
Goto func_3
Fadescreen 6 1 0 0
Resetscreen
Warp 112 0 18 3 1
Fadescreen 6 1 1 0
Resetscreen
End
Func 3:
WaitFanfare 1500
StoreElevatorDirection 32772 4
Applymovement 255 mov_2
Waitmovement
Fanfare 1539
Killscript
(115) C05R0901 Hearthome City R9-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 305
CheckLR 1 func_1
Checkflag 2430
CheckLR 1 func_2
Setflag 2430
Message 0 "Hiya!
Oh, you’re a Trainer!
That means you’re using Pokémon
Boxes! I love meeting end users!
Oh, what’s up?
Why that astonished look?
Oh, right, sorry!
There I go running my mouth again!
My name’s Bebe!
You know the PC Pokémon Boxes?
I’m the system administrator!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 9 "Bebe: That EEVEE I gave you,
I got it from a good mate in Johto.
Who knows how many EEVEE he’s raised
over the years."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR 1 func_3
Message 1 "Bebe: My buddy Bill developed the
basic storage system.
I tinkered with it here and there
to make it easier for me to use."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Checkflag 306
CheckLR 1 func_4
Setflag 306
Message 2 "Bebe: Hiya! Been a long time!
How’s it going? Using the PC Boxes?
Oh? Now lookie here, that’s a National
Pokédex I’m seeing. Good for you!
You’ll be using my Boxes like crazy
if you’re using that now.
Well, I always thought a good Trainer
ought to juggle Boxes smartly, though\fI shouldn’t be the one to say so.
Oh yeah, do you want a Pokémon named
EEVEE?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_5
Jump func_6
Func 4:
Message 3 "Bebe: So, do you want that EEVEE
that I’ve got?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_5
Jump func_6
Func 5:
Checkpartynumber 32780
If 32780 6
CheckLR 1 func_7
Message 4 "Bebe: Here you go!
Now, you be good to it."
Setvarhero 0
Soundfr 1158
Message 5 "\v0103\z0000 obtained
an EEVEE!"
Fadedef
GivePokemon 133 5 0 32780
Setflag 305
Message 6 "Would you like to give a nickname
to the EEVEE that Bebe gave you?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_8
If 32780 1
CheckLR 1 func_9
End
Func 6:
Message 8 "Bebe: Oh, OK...
Guess I’ll have to raise it myself."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 7 "Bebe: Here you go!
Wait, I can’t do that! You can’t
take any more Pokémon with you!
Right about now, my Pokémon Boxes
come in handy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
CloseMsgOnKeyPress
Checkpartynumber 16384
Copyvalue 16384 1
Fadescreen 6 1 0 0
Resetscreen
ChoosePokeNick 16384 32780
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 9:
CloseMsgOnKeyPress
Releaseall
End
(116) C05R1001 Hearthome City R10-01
SCRIPT ORDER:
Script 3
Script 4
Script 5
Script 2
Script 1
SCRIPTS:
Script 1:
CheckStatusPhraseBox? 11 16384
If 16384 0
CheckLR1 1 func_1
End
Script 2:
CheckStatusPhraseBox? 11 16384
If 16384 0
CheckLR 5 func_2
Checkflag 565
CheckLR1 0 func_1
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Hi!
Let’s get cooking!
Here’s my advice on cooking tasty
Poffins for your Pokémon crew!
In the beginning, while it’s still
a batter, swirl it gently and avoid
spillage.
When it starts to harden, churn it
fast in big circles!
At the end, make a wish for it to
turn scrumptious and whirl it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Have you got some Berries?
To make delicious Poffins, the key
ingredient is a rare Berry.
And, the more cooks you have,
the more delicious the Poffin!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Eating good food makes people and
Pokémon more energetic and happy.
In that sense, we’re exactly alike."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 565
Killscript
Func 2:
Checkflag 565
CheckLR 1 func_3
Clearflag 565
End
Func 3:
Clearflag 565
Addpeople 4
End
(117) C05R1101 Hearthome City R11-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 13
Script 14
SCRIPTS:
Script 1:
Lockall
Applymovement 6 mov_1
Waitmovement
Message 0 "Keira: Oh! My hero!"
CloseMsgOnKeyPress
Applymovement 5 mov_2
Waitmovement
Setvarhero 0
Message 1 "Mom: Oh, hi, \v0103\z0000."
CloseMsgOnKeyPress
Applymovement 255 mov_3
Waitmovement
Message 2 "Keira: Wait! No! Really?!
Johanna is your mom?
So you might be a Contest star?!"
Setvarhero 0
Message 3 "Mom: Oh, I don’t know about that.
I’ve never spoken to \v0103\z0000
about Contests.
I’m surprised you two know each
other, though."
Message 4 "Keira: Oh, yes, that’s right!
I need to thank you for earlier.
Please take this Accessory."
Setvar 32772 49
Setvar 32773 1
Callstd 255 7
Message 5 "Keira: Put that Accessory on your
Pokémon before a Contest.
It will lend a nice touch of
sophistication and glamour.
I’m a Contest Judge, so come join us
for a different kind of fun.
If you’re unsure of yourself,
we also offer practice sessions."
Message 6 "OK, Johanna, I’ll see you!"
CloseMsgOnKeyPress
Applymovement 6 mov_4
Applymovement 5 mov_5
Applymovement 255 mov_6
Waitmovement
Removepeople 6
Setvar 16631 1
Applymovement 5 mov_7
Applymovement 255 mov_8
Waitmovement
Setvarhero 0
Message 7 "Mom: Were you surprised to see me,
\v0103\z0000?
I got bored, so I came out to
Hearthome for a little vacation.
I’m just as surprised to see you
here, my dear!
But are you serious about entering
Contests? Not dressed that way!
When your Pokémon is all dressed up,
you can’t be dressed your usual way.
Put this on for a little glamour."
CloseMsgOnKeyPress
Soundfr 1158
Checkgender 32780
If 32780 0
CheckLR 1 func_1
Jump func_2
Script 2:
End
Script 3:
End
Script 4:
End
Script 5:
End
Script 6:
Fanfare 1500
Lockall
CheckContestWin 0 32780
If 32780 0
CheckLR 1 func_3
Fadescreen 6 1 0 0
Resetscreen
DisplayContestPokemon 0 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 7:
Fanfare 1500
Lockall
CheckContestWin 1 32780
If 32780 0
CheckLR 1 func_3
Fadescreen 6 1 0 0
Resetscreen
DisplayContestPokemon 1 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 8:
Fanfare 1500
Lockall
CheckContestWin 2 32780
If 32780 0
CheckLR 1 func_3
Fadescreen 6 1 0 0
Resetscreen
DisplayContestPokemon 2 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 9:
Fanfare 1500
Lockall
CheckContestWin 3 32780
If 32780 0
CheckLR 1 func_3
Fadescreen 6 1 0 0
Resetscreen
DisplayContestPokemon 3 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 10:
Fanfare 1500
Lockall
CheckContestWin 4 32780
If 32780 0
CheckLR 1 func_3
Fadescreen 6 1 0 0
Resetscreen
DisplayContestPokemon 4 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Faceplayer
Message 20 "A Pokémon fed Poffins does
better in Visual Evaluations.
I’d better learn how to cook
delicious Poffins at the Poffin House!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 12:
Fanfare 1500
Lockall
Faceplayer
Message 21 "A Contest has three parts: Visual!
Dance! And Acting!
The Contestants get graded in those
categories, dohoho!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
Fanfare 1500
Lockall
Faceplayer
Message 22 "They put up photos of the winners!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 14:
Fanfare 1500
Lockall
Faceplayer
Checkflag 345
CheckLR 0 func_4
Checkflag 346
CheckLR 0 func_5
Message 17 "Like everything else, the basics are
important.
It takes practice to win Contests!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 8 "\v0103\z0000 obtained
a Tuxedo!"
Jump func_6
Func 2:
Message 9 "\v0103\z0000 obtained
a Dress!"
Jump func_6
Func 3:
Message 26 "It’s a frame to display a photo in."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Setflag 345
CheckItem 449 1 32780
If 32780 0
CheckLR 1 func_7
Message 12 "You’re going to enter Contests?
And, yup, you have a Poffin Case.
Let me gift you with this fabulously
wonderful Poffin!"
CheckPoffinCaseStatus 32780
If 32780 0
CheckLR 1 func_8
Goto func_9
Setflag 346
Message 15 "Feed that Poffin to a Pokémon you’re
going to enter in Contests.
Oh, and a word of advice.
Go take a run at the Contests!
The best way to get ready is to
get some practice first.
You can take practice sessions at
the counter on the right."
CloseMsgOnKeyPress
Goto func_10
Releaseall
End
Func 5:
CheckItem 449 1 32780
If 32780 0
CheckLR 1 func_11
Message 12 "You’re going to enter Contests?
And, yup, you have a Poffin Case.
Let me gift you with this fabulously
wonderful Poffin!"
CheckPoffinCaseStatus 32780
If 32780 0
CheckLR 1 func_12
Goto func_9
Setflag 346
Message 16 "Feed that Poffin to a Pokémon you’re
going to enter in Contests.
Oh, and a word of advice for you.
Go take a run at the Contests!
However, the best way to get ready
is to get some practice first.
You can take practice sessions at
the counter on the right."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Fadedef
Message 10 "Mom: I’m sure it will look good
on you. After all, I chose it.
Go enjoy the Contests, honey!
Contests will give you a different
look at the many charms of Pokémon.
It should be an eye-opening
experience for you. Bye now!"
CloseMsgOnKeyPress
Return 15 32780
Applymovement 255 mov_9
Applymovement 5 mov_10
Waitmovement
Fanfare 1539
Removepeople 5
WaitFanfare 1539
Setflag 548
Setvar 16507 1
Setflag 2424
Setvar 16619 1
Releaseall
End
Func 7:
Message 11 "You’re going to enter Contests?
But I don’t see a Poffin Case.
It could be tough for you to win
Contests without it.
But if you’re determined to enter,
don’t let me stop you.
It wouldn’t hurt to get in some
practice at the counter on the right."
CloseMsgOnKeyPress
Goto func_10
Releaseall
End
Func 8:
Message 19 "Oh, no.
Your Poffin Case is full.\fI’ll give it to you another time.
Oh, and a word of advice.
Go take a run at the Contests!
However, the best way to get ready
is to get some practice first.
You can take practice sessions at
the counter on the right."
CloseMsgOnKeyPress
Goto func_10
Releaseall
End
Func 9:
CheckPoffinItem 32780 7740 7710 10270 78 1158
Setvarhero 0
Message 13 "\v0103\z0000 received
a Mild Poffin!"
Fadedef
Message 14 "The Mild Poffin was put away
in the Poffin Case."
Killscript
Func 10:
CheckFacePosition 32780
If 32780 2
CheckLR 1 func_13
Applymovement 9 mov_11
Waitmovement
Killscript
Func 11:
Message 17 "Like everything else, the basics are
important.
It takes practice to win Contests!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
Message 18 "Oh, no.
Your Poffin Case’s full."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 13:
Applymovement 9 mov_12
Waitmovement
Killscript
(118) C05R1102 Hearthome City R11-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(119) C05R1201 Hearthome City R12-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "And there do I see my father.
My son. My life.
And there do I see nature.
Pokémon. The world."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "The art of crafting things fatigues
one’s spirit.
When the spirit is healed, the desire
to make something returns.
It is such a wondrous cycle."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "When people and Pokémon join hands,
everyone’s happy.
It makes everyone come together.
It could even make the world one!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 3 "That people are lonely is only natural.
It gives me compassion for others.
It’s what makes me look forward to
a better tomorrow.
But there are still moments of
fondness for the past.
Though, time can heal some sadness..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 4 "There are still words that not everyone
can describe...
The words are “love” and “joy.”"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 5 "Pokémon... People... It’s only natural
that we are all so very different.
Make sure that you never judge
a Pokémon on if it’s weak or strong.
You must always look for the good
inside of them. That’s what counts!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(120) C06 Pastoria City
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 10
Script 11
Script 12
Script 7
Script 8
Script 9
Script 13
Script 14
Script 15
Script 16
SCRIPTS:
Script 1:
Checkflag 258
CheckLR 1 func_1
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 8 "Here where I am standing, I’m
smack-dab in the middle of town."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 9 "I study rare Pokémon that appear
only in the Great Marsh."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 10 "Some Trainers deliberately prevent
their Pokémon from evolving.
They wait until the Pokémon levels up
and learns certain moves."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 11 "I’m visiting the area because I
wanted to see the Great Marsh.
I’m staying at the lakeside hotel."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 3 32780
If 32780 1
CheckLR 1 func_2
Message 12 "Pastoria’s Gym Leader is like...
Breathtaking... In a weird way.
It’s hard to explain.
You’ll know what I mean, though."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Checkflag 296
CheckLR 1 func_3
StoreStarter 32780
If 32780 387
CheckLR1 1 func_4
If 32780 390
CheckLR1 1 func_5
If 32780 393
CheckLR1 1 func_6
SetvarAccessories 0 32772
Message 16 "You’re just like a totally impatient
boy I met earlier.
Just like you, he was very close with
his Pokémon.
Hey, thanks for making me smile!
This might put a smile on your face.
Try dressing up a Pokémon with
this \v011F\z0000."
Setvar 32773 1
Callstd 223 7
Setflag 296
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 18 "Someone in the Great Marsh offered
me a Hidden Machine, but I declined.
I don’t need it ’cause the Gym
Leader will do Defog for us
if we ever need it in this city."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 19 "Have you been to the Pokémon
Mansion?
The owner, Mr. Backlot, likes to brag
about his rare Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
Message 14 "The Great Marsh keeps the weather
cool in the summertime.
This is a good town for Water-type
Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 35 0
Message 15 "CLEFAIRY: Fiiih?!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 12:
Fanfare 1500
Lockall
Checkflag 258
CheckLR 1 func_7
Checkflag 257
CheckLR 1 func_8
Message 0 "Grr... The package hasn’t arrived
from the Veilstone warehouse yet...
I have to wait here until then?
I’m going batty from this wait...
Oh, man, I wish I could do something
that involved lots of explosives!
Yup, this is going to be a smashing
job for Team Galactic..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
CallMsgBox 20 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 14:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 21 32780
Callstd 208 7
End
Script 15:
CallMsgBox 534 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 16:
CallMsgBox 535 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
ChangeOwPosition 21 637 812
ReleaseOw 21 3
ChangeOwMovement 21 17
End
Func 2:
Message 13 "Wasn’t the Pastoria Gym Leader
kind of breathtaking in a weird way?
But don’t judge him by the way
he looks and acts.
I hear he uses the prize money to
help people and Pokémon in trouble."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 17 "Someone gave me a Berry, so I
planted it and grew some more.
Then, I took the Berries and cooked
them into Poffins.
All the work is worth it when I see
how happy they make my Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Setvar 32772 93
Killscript
Func 5:
Setvar 32772 94
Killscript
Func 6:
Setvar 32772 92
Killscript
Func 7:
Faceplayer
Message 4 "Gweh!
Persistent pest!
If our plan works, our boss’s dream
comes closer to fruition!
Our boss’s ideal world is going
to be created!
So, I’m not going to waste my time
on a nobody like you!
I’m telling you now, don’t you come
chasing after me!"
CloseMsgOnKeyPress
CheckFacePosition 32780
If 32780 2
CheckLR 1 func_9
If 32780 3
CheckLR 1 func_10
If 32780 0
CheckLR 1 func_11
Jump func_12
Func 8:
Checkbadge 3 32780
If 32780 0
CheckLR 1 func_13
Message 2 "Hahah! The package finally came from
the Veilstone warehouse!
So, now it’s my job to deliver this
to the lake!
This is an important mission.
No failure allowed!
No making boo-boos like wandering
off into the Great Marsh!"
Faceplayer
Applymovement 21 mov_1
Waitmovement
Message 3 "You were eavesdropping!
I was just talking loudly to myself!
If I wasn’t in a hurry, I’d pulverize
you with my Pokémon!
But I have to get on my way to the
lake ASAP! So, you’re lucky! I’m out!
Oh, and listen up, you!
Don’t you dare follow me!"
CloseMsgOnKeyPress
CheckFacePosition 32780
If 32780 2
CheckLR 1 func_14
Jump func_15
Func 9:
Setvar 32775 2
Applymovement 21 mov_2
Applymovement 255 mov_3
Waitmovement
Jump func_16
Func 10:
Setvar 32775 3
Applymovement 21 mov_4
Waitmovement
Jump func_16
Func 11:
Setvar 32775 0
Applymovement 21 mov_4
Applymovement 255 mov_5
Waitmovement
Jump func_16
Func 12:
Setvar 32775 1
Applymovement 21 mov_4
Applymovement 255 mov_6
Waitmovement
Jump func_16
Func 13:
Faceplayer
Message 1 "Grr...
This is so annoying...
What is it, you? Oh, some kid with
only three Gym Badges.
Little buggers like you should know
to stay out of Team Galactic’s way!
...Now, this package from Veilstone...
Where should I set it off...?
Yup, this is going to be a smashing
job for Team Galactic..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Applymovement 21 mov_7
Waitmovement
Jump func_17
Func 15:
Applymovement 21 mov_8
Waitmovement
Jump func_17
Func 16:
Fanfare 1539
Removepeople 21
Return 15 32780
Clearflag 455
Addpeople 22
Callstd 250 7
If 32775 2
CheckLR1 1 func_18
If 32775 3
CheckLR1 1 func_19
If 32775 0
CheckLR1 1 func_20
If 32775 1
CheckLR1 1 func_21
Applymovement 255 mov_9
Waitmovement
Setvarrival 0
Setvarhero 1
Message 5 "\v0103\z0000: Whoops!
Hehehe! I’m not always going to plow
into you every time we meet!
So how’s it going, \v0103\z0001?
Buffing up your Pokémon, eh?
I’ll test you and your Pokémon out
to see how buff and tough you are!"
CloseMsgOnKeyPress
StoreStarter 32780
If 32780 387
CheckLR 1 func_22
If 32780 390
CheckLR 1 func_23
Jump func_24
Func 17:
SetOwPosition 21 637 1 812 3
Setflag 258
Releaseall
End
Func 18:
Applymovement 22 mov_10
Waitmovement
Killscript
Func 19:
Applymovement 22 mov_11
Waitmovement
Killscript
Func 20:
Applymovement 22 mov_12
Waitmovement
Killscript
Func 21:
Applymovement 22 mov_13
Waitmovement
Killscript
Func 22:
TrainerBattle 474 0
Jump func_25
Func 23:
TrainerBattle 475 0
Jump func_25
Func 24:
TrainerBattle 473 0
Jump func_25
Func 25:
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_26
Setvarrival 0
Setvarhero 1
Message 6 "\v0103\z0000: Heh, yeah, maybe you
did get a bit tougher since last time.
That even shocked me a bit, so yeah,
I got beat ’cause I was careless.
So, hey, what was that Team Galactic
guy all freaking out about?
I don’t know what he’s up to, but
you should chase him down!
If you’re not a Pokémon, and you run
like that... You’re a bad guy.
All right, \v0103\z0001!
Next time, I’m not holding back!"
CloseMsgOnKeyPress
If 32775 2
CheckLR 1 func_27
If 32775 3
CheckLR 1 func_28
If 32775 0
CheckLR 1 func_29
If 32775 1
CheckLR 1 func_30
End
Func 26:
Clearflag 554
Setflag 455
LostGoPc
Releaseall
End
Func 27:
Applymovement 22 mov_14
Applymovement 255 mov_15
Waitmovement
Jump func_31
Func 28:
Applymovement 22 mov_16
Applymovement 255 mov_17
Waitmovement
Jump func_31
Func 29:
Applymovement 22 mov_18
Applymovement 255 mov_19
Waitmovement
Jump func_31
Func 30:
Applymovement 22 mov_20
Applymovement 255 mov_21
Waitmovement
Jump func_31
Func 31:
Fanfare 1539
Removepeople 22
Setflag 259
Releaseall
End
(121) C06FS0101 Pastoria City Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 7
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The Pokémon CROAGUNK is the city’s
official mascot.
CROAGUNK sure is purdy--we’re hopin’
it’ll get popular ’round the world."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Put Seals on the Capsule, then put
it on a Poké Ball...
And done! Another Poké Ball made by
me! It’s one of a kind!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Message 2 "It’s a wood carving of the Pokémon
CROAGUNK.
Even though it’s made of wood, it
looks like it’s seeping poison..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(122) C06GYM0101 Pastoria City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
Setvar 16385 0
Setvar 16386 1
Setvar 16387 0
PastoriaCityFunction
End
Script 2:
PastoriaCityFunction2
Setvar 16385 1
Setvar 16386 0
Setvar 16387 0
End
Script 3:
PastoriaCityFunction2
Setvar 16385 0
Setvar 16386 1
Setvar 16387 0
End
Script 4:
PastoriaCityFunction2
Setvar 16385 0
Setvar 16386 0
Setvar 16387 1
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 3 32780
If 32780 1
CheckLR 1 func_1
DeActivateLeader 9 122 0 0 0
Message 0 "Welcome!
I don’t get challenged very often!
The glory you are now beholding is
the Pastoria Gym Leader!
That’s right, I’m Crasher Wake!
My Pokémon were toughened up by
stormy white waters!
They’ll take everything you can throw
at them and then pull you under!
Victory will be ours!
Come on, let’s get it done!"
CloseMsgOnKeyPress
TrainerBattle 316 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
Message 1 "It seems the undertow pulled me
under...
But I had a great time battling
with you!
You’ve earned this!"
Setvarhero 0
Message 2 "\v0103\z0000 received
the Fen Badge from Wake!"
Soundfr 1161
Fadedef
Setbdgtrue 3
MainEvent 23
SetTrainerId 293
SetTrainerId 339
SetTrainerId 401
SetTrainerId 483
SetTrainerId 497
SetTrainerId 498
DeActivateLeader 10 122 316 0 0
Setvar 16508 1
Message 3 "You need that Fen Badge to use the
hidden move Defog outside of battle.
This is a special reward from me in
recognition of your team’s power."
Jump func_3
Script 6:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 3 32780
If 32780 1
CheckLR 1 func_4
Message 6 "The Gym Leader Wake... Uh, I mean
Crasher Wake, is a master of
Water-type Pokémon.
I’d say you’ve got guts if you try
to face down Water types with Fire-
or Ground-type Pokémon!
But that part I’ll leave up to you!
Go and have some good battles!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Checkbadge 3 32780
If 32780 1
CheckLR 1 func_5
Setvarrival 0
Setvarrival 1
Message 8 "Pastoria City Pokémon Gym
Leader: Crasher Wake
Certified Trainers:
\v0103\z0000"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Checkflag 156
CheckLR 0 func_3
Message 5 "The styles of battling and winning
are as widely varied as Trainers are.
Do you want to know how I battle?
I battle so I can say I had fun at\fthe end, whether I win or lose!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
LostGoPc
Releaseall
End
Func 3:
Setvar 32772 382
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_6
Callstd 252 7
Setflag 156
Setvaritem 0 32772
Setvaratkitem 1 32772
Message 4 "That \v0108\z0000 contains the
move \v0106\z0001.
It inflicts double the damage on
targets with less than half their\fHP left.
Use it to end battles decisively!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Setvarhero 0
Message 7 "Oh! \v0103\z0000!
You’ve beaten the Gym Leader!
So, how was it?
Did you enjoy your battle against
Wake... I mean Crasher Wake?
Sure, winning is important, but
don’t forget to have fun, too!
I think Wake... I mean Crasher Wake,
showed you what I mean by fun."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Setvarrival 0
Setvarhero 1
Setvarrival 2
Message 9 "Pastoria City Pokémon Gym
Leader: Crasher Wake
Certified Trainers:
\v0103\z0000\f\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(123) C06PC0101 Pastoria City Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setvar 32775 0
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The Great Marsh is vast!
How vast is it, you ask?
Take a look from the Observatory
and you can see for yourself!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Pastoria’s Great Marsh was once
a part of the sea.
The seawater drained away over time,
leaving the huge marshland.
That’s why they say there are rare
Pokémon that you can only see here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(124) C06PC0102 Pastoria City Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I derive so much pleasure from
working on drawings with others...
It shows me that I’m not alone.
It heartens me a great deal."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(125) C06R0101 Pastoria City R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
SCRIPTS:
Script 1:
End
Script 2:
Lockall
Applymovement 255 mov_1
Waitmovement
CheckHiroPosition 16384 16385
If 16384 5
CheckLR1 1 func_1
ShowMoney 20 2
Message 0 "Welcome to the Great Marsh, the home
of Pastoria’s Safari Game!
All you can catch for just $500!
Would you like to play a Safari Game?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_2
If 32780 1
CheckLR 1 func_3
End
Script 3:
Lockall
Message 9 "You still have time left. Are you sure
you want to exit the Great Marsh?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_4
If 32780 1
CheckLR 1 func_5
End
Script 4:
Lockall
Applymovement 255 mov_2
Waitmovement
Setvar 16602 0
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 12 "Welcome to the Great Marsh!
Is this your first Safari Game?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_6
If 32780 1
CheckLR 1 func_7
End
FUNCTIONS:
Func 1:
Applymovement 255 mov_3
Waitmovement
Killscript
Func 2:
CheckBoxesNumber 32780
If 32780 0
CheckLR 5 func_8
Checkpartynumber 32780
If 32780 6
CheckLR 1 func_9
Message 1 "That will be $500, please."
CheckMoney 32780 500 0
If 32780 0
CheckLR 1 func_10
Fanfare 1604
TakeMoney 500 0
UpdateMoney
Message 2 "Here are your Safari Balls."
Setvarhero 0
Message 3 "\v0103\z0000 received
30 Safari Balls."
Message 4 "We’ll let you know when your game
is over.
Until then, enjoy yourself, please!
Off you go on your wild excursion!"
CloseMsgOnKeyPress
HideMoney
CheckHiroPosition 32772 32773
If 32772 4
CheckLR 1 func_11
If 32772 5
CheckLR 1 func_12
End
Func 3:
CloseMsgOnKeyPress
HideMoney
Applymovement 255 mov_4
Waitmovement
Releaseall
End
Func 4:
Message 10 "OK.
I’ll relieve you of your remaining
Safari Balls.
Thank you for playing.
We hope to see you again."
CloseMsgOnKeyPress
Applymovement 255 mov_2
Waitmovement
Setvar 16602 0
GreatMarshFunction? 1
Releaseall
End
Func 5:
CloseMsgOnKeyPress
Applymovement 255 mov_5
Waitmovement
Fadescreen 6 1 0 0
Resetscreen
Warp 509 0 68 116 0
Fadescreen 6 1 1 0
Resetscreen
End
Func 6:
Message 13 "When you enter the Great Marsh, you
start with 30 Safari Balls.
That’s the only kind of Ball you’re
allowed to use in the Safari Game.
The game is over when you run out of
Safari Balls, or when you’ve walked\f500 steps.
Please do enjoy the untamed nature
of the Great Marsh!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 14 "I see.
Enjoy your Safari Game!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 1 "That will be $500, please."
CheckMoney 32780 500 0
If 32780 0
CheckLR 1 func_10
Fanfare 1604
TakeMoney 500 0
UpdateMoney
Message 2 "Here are your Safari Balls."
Setvarhero 0
Message 3 "\v0103\z0000 received
30 Safari Balls."
Message 4 "We’ll let you know when your game
is over.
Until then, enjoy yourself, please!
Off you go on your wild excursion!"
CloseMsgOnKeyPress
HideMoney
CheckHiroPosition 32772 32773
If 32772 4
CheckLR 1 func_11
If 32772 5
CheckLR 1 func_12
End
Func 9:
HideMoney
Message 7 "I’m sorry, you don’t have enough
room to catch any more Pokémon."
CloseMsgOnKeyPress
Applymovement 255 mov_4
Waitmovement
Releaseall
End
Func 10:
Message 6 "You don’t have enough money.
Sorry."
CloseMsgOnKeyPress
HideMoney
Applymovement 255 mov_4
Waitmovement
Releaseall
End
Func 11:
Applymovement 255 mov_6
Waitmovement
Jump func_13
Func 12:
Applymovement 255 mov_7
Waitmovement
Jump func_13
Func 13:
Setvar 16602 1
GreatMarshFunction? 0
WarpMapElevator 125 2 5 2 1
Fanfare 1539
Fadescreen 6 1 0 0
Resetscreen
Warp 509 0 68 116 0
Fadescreen 6 1 1 0
Resetscreen
End
(126) C06R0102 Pastoria City R1-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
ShowMoney 20 2
Message 0 "It’s a pair of binoculars...
Put $100 in it?"
Yesnobox 32780
CloseMsgOnKeyPress
If 32780 0
CheckLR 1 func_1
HideMoney
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Tell me I’m not imagining this...
The Great Marsh’s Pokémon seem to be
different from the ones yesterday..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Use a pair of binoculars to look out
over the Great Marsh.
You can see what kinds of Pokémon
can be caught, and where they are."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 4 "There are shuttle trains in the
marsh called Quick Trams.
You should take those if you’re going
to a deeper area in the marsh."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 5 "When you’re walking on the bog,
you sometimes sink right in...
I get so flustered trying to get out,
I have no luck catching anything."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
CheckMoney 32780 100 0
If 32780 0
CheckLR 1 func_2
TakeMoney 100 0
UpdateMoney
HideMoney
Gmbynocule
Releaseall
End
Func 2:
Message 1 "Not enough money..."
Waitbutton
CloseMsgOnKeyPress
HideMoney
Releaseall
End
(127) C06R0201 Pastoria City R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2723
CheckLR 1 func_1
Message 0 "I’ve been hiking all around the
Sinnoh region.
I love planting Berries wherever
I go.
I’ll give you a Berry, too.
Please plant it somewhere."
CheckIdPlayer 32772 17
Setvalue 32772 184
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 2723
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 2 "My sister gathers Berries every day!
Please come visit again!
We cook the Berries, too!
We mix them up! They’re yummy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Planting Berries is good for
Pokémon.
It provides them with more things
to eat in the wild."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(128) C06R0301 Pastoria City R3-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Hmmm... BURMY are an
interesting example...
They hint at how the environment can
shape people’s personality."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 284
CheckLR 1 func_1
Message 1 "You know about BURMY and how
they come in different forms?
Do you have all forms of that there
BURMY?"
CheckCoombeEvent 32780
If 32780 0
CheckLR 1 func_2
If 32780 1
CheckLR 1 func_3
If 32780 2
CheckLR 1 func_3
Message 4 "Cool! That’s all the different kinds
of BURMY! I feel giddy!
Since I feel so giddy, take this!
Go ahead, take it!"
Setvar 32772 215
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_4
Setflag 284
Callstd 252 7
Jump func_1
FUNCTIONS:
Func 1:
Message 6 "You’re good!
You’d make an awesome Bug Maniac!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 2 "Aww, you don’t even have a single
BURMY?
You don’t like ’em?
They’re kind of mooshy and cute!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 3 "Hmm...
It’d be cool if you had all the
different-looking BURMY."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 5 "Whoops, your Bag is crammed full!
I’ll give this to you later."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(129) C06R0401 Pastoria City R4-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
ShowBTowerSome? 4
005D
Checkflag 233
CheckLR 0 func_1
CheckItem 93 1 32780
If 32780 0
CheckLR 1 func_2
Jump func_3
FUNCTIONS:
Func 1:
Setflag 233
Message 0 "Everyone calls me the Pokémon
Move Maniac. I prefer Move Tutor.
I know every move that Pokémon learn
while they’re leveling up, and I can\fteach Pokémon those moves.
I can teach a move to a Pokémon
of yours if you’d like.
I’ll do it if you’ll trade me
a Heart Scale."
CheckItem 93 1 32780
If 32780 0
CheckLR 1 func_2
Jump func_3
Func 2:
Message 2 "If any of your Pokémon needs to learn a
move, come back with a Heart Scale."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 1 "Oh! That’s it! That’s an honest-to-
goodness Heart Scale!
Let me guess, you want me to teach
one of your Pokémon a move?"
Message 3 "Which Pokémon needs tutoring?"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
ChsPokemenu
StorePokeMenu2 32773
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32773 255
CheckLR 1 func_2
CheckPokeEgg 32773 32780
If 32780 0
CheckLR 1 func_4
CheckMoveRemember 32780 32773
If 32780 0
CheckLR 1 func_5
Message 4 "Which move should I teach?"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
StorePokeRemember 32773
StoreRememberMove 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 255
CheckLR 1 func_2
GiveItem 93 1 32780
Setvarhero 3
Message 16 "\v0103\z0003 handed over
\v0108\z0004 in exchange."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 6 "Hunh?
Don’t you think it’d be tough for
an Egg to learn a move?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 5 "Sorry...
There isn’t any move I can teach
that Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(130) C06R0501 Pastoria City R5-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "In the Great Marsh, they use Quick
Trams on rails for transportation.
They prevent damage to the Great
Marsh’s ecosystem."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 54 0
Message 1 "PSYDUCK: Gwah?!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(131) C06R0601 Pastoria City R6-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckFirstPokeParty 32768
Checkflag 320
CheckLR 0 func_1
Checkflag 321
CheckLR 0 func_1
Checkflag 322
CheckLR 0 func_1
Checkflag 323
CheckLR 0 func_1
Checkflag 324
CheckLR 0 func_1
Message 10 "I’m out of scarves to give you!
I’m out of things to say, too!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 11 "My brother’s girlfriend is the
Massage Girl in Veilstone City.
They stay in touch by having Pokémon
hold Mail for each other."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 417 0
Message 12 "PACHIRISU: Suuu pasuu!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 0 "Howdy, there!
Let me examine your Pokémon to see
if it’s worthy of a scarf!"
Message 1 "Hmhm...
I see..."
Goto func_2
If 32780 1
CheckLR 1 func_3
Goto func_4
If 32780 1
CheckLR 1 func_5
Goto func_6
If 32780 1
CheckLR 1 func_7
Goto func_8
If 32780 1
CheckLR 1 func_9
Goto func_10
If 32780 1
CheckLR 1 func_11
Message 2 "This isn’t what I had hoped to see...
I can’t lie to you, so I’ll just have
to tell it to you straight.
This Pokémon’s not bad, but it’s not
good, either. It’s just so-so.
If you want to improve this one’s
condition, feed it some more Poffins!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Checkflag 320
CheckLR 1 func_12
0281 32768 0 32780
If 32780 200
CheckLR 0 func_12
Setvar 32780 1
Killscript
Func 3:
Setvar 32772 260
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_13
Setvarpoke 0 32768
Setvaritem 1 260
Message 4 "Your \v0100\z0000’s looking good!
I’d say it’s pretty impressive!
I’ll tell you what, I’ll give you
this \v0108\z0001!"
Callstd 252 7
Setflag 320
Message 5 "The Red Scarf stands for passion!
Let a Pokémon hold it to give it
an edge in Cool Contests."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Checkflag 321
CheckLR 1 func_14
0281 32768 1 32780
If 32780 200
CheckLR 0 func_14
Setvar 32780 1
Killscript
Func 5:
Setvar 32772 261
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_13
Setvarpoke 0 32768
Setvaritem 1 261
Message 4 "Your \v0100\z0000’s looking good!
I’d say it’s pretty impressive!
I’ll tell you what, I’ll give you
this \v0108\z0001!"
Callstd 252 7
Setflag 321
Message 6 "The Blue Scarf represents the
vastness of the sea!
Let a Pokémon hold it to give it
an edge in Beauty Contests."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Checkflag 322
CheckLR 1 func_15
0281 32768 2 32780
If 32780 200
CheckLR 0 func_15
Setvar 32780 1
Killscript
Func 7:
Setvar 32772 262
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_13
Setvarpoke 0 32768
Setvaritem 1 262
Message 4 "Your \v0100\z0000’s looking good!
I’d say it’s pretty impressive!
I’ll tell you what, I’ll give you
this \v0108\z0001!"
Callstd 252 7
Setflag 322
Message 7 "The Pink Scarf represents charm!
Let a Pokémon hold it to give it
an edge in Cute Contests."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Checkflag 323
CheckLR 1 func_16
0281 32768 3 32780
If 32780 200
CheckLR 0 func_16
Setvar 32780 1
Killscript
Func 9:
Setvar 32772 263
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_13
Setvarpoke 0 32768
Setvaritem 1 263
Message 4 "Your \v0100\z0000’s looking good!
I’d say it’s pretty impressive!
I’ll tell you what, I’ll give you
this \v0108\z0001!"
Callstd 252 7
Setflag 323
Message 8 "The Green Scarf represents the
spring breeze!
Let a Pokémon hold it to give it
an edge in Smart Contests."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Checkflag 324
CheckLR 1 func_17
0281 32768 4 32780
If 32780 200
CheckLR 0 func_17
Setvar 32780 1
Killscript
Func 11:
Setvar 32772 264
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_13
Setvarpoke 0 32768
Setvaritem 1 264
Message 4 "Your \v0100\z0000’s looking good!
I’d say it’s pretty impressive!
I’ll tell you what, I’ll give you
this \v0108\z0001!"
Callstd 252 7
Setflag 324
Message 9 "The Yellow Scarf stands for
toughness!
Let a Pokémon hold it to give it
an edge in Tough Contests."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
Setvar 32780 0
Killscript
Func 13:
Message 3 "Your Pokémon is growing up really
good. My hat’s off to you.
I was going to give you a scarf,
but your Bag’s full."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Setvar 32780 0
Killscript
Func 15:
Setvar 32780 0
Killscript
Func 16:
Setvar 32780 0
Killscript
Func 17:
Setvar 32780 0
Killscript
(132) C07 Veilstone City
SCRIPT ORDER:
Script 1
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 13
Script 14
Script 15
Script 16
Script 17
Script 2
Script 3
Script 18
Script 19
Script 20
Script 21
Script 22
Script 23
Script 24
Script 25
Script 26
Script 27
Script 28
Script 29
Script 30
SCRIPTS:
Script 1:
If 16666 2
CheckLR1 4 func_1
Checkgender 16384
If 16384 0
CheckLR 1 func_2
If 16384 1
CheckLR 1 func_3
End
Script 2:
Lockall
Applymovement 6 mov_1
Waitmovement
Callstd 248 7
CheckHiroPosition 32772 32773
If 32772 681
CheckLR1 1 func_4
If 32772 682
CheckLR1 1 func_5
If 32772 683
CheckLR1 1 func_6
If 32772 684
CheckLR1 1 func_7
Checkgender 32772
If 32772 0
CheckLR1 1 func_8
If 32772 1
CheckLR1 1 func_9
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 681
CheckLR1 1 func_10
If 32772 682
CheckLR1 1 func_11
If 32772 683
CheckLR1 1 func_12
If 32772 684
CheckLR1 1 func_13
Removepeople 6
Callstd 249 7
Setvar 16629 1
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkgender 32772
If 32772 0
CheckLR 1 func_14
If 32772 1
CheckLR 1 func_15
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 25 "Yeah, Team Galactic is hiding all sorts
of good stuff in their warehouse.
I hear they even have a Hidden
Machine in there!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 32 "Do you know where one might find
a Coin Case?
I heard that there’s a clown giving
’em away, but..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 26 "The Game Corner is dangerous!
Why is it dangerous?
It’s so fun, I lose track of time!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 27 "I got a TM as a prize from the
Game Corner.
I used it on my Pokémon right away!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 29 "Maylene is Veilstone’s Gym Leader.
Wake’s the Gym Leader in Pastoria.
Then, there’s Fantina in Hearthome...
They’re all way too tough.
I can’t even come close to them."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 33 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
Checkflag 204
CheckLR 1 func_16
Message 34 "Veilstone is the city of stone.
We even have meteorites!
This has nothing to do with anything,
but take this Technical Machine!"
Setvar 32772 390
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_17
Callstd 252 7
Setflag 204
Jump func_16
Script 11:
Fanfare 1500
Lockall
Faceplayer
Message 30 "I came to this city just so I could
go shopping at the department store.
But with all these rock walls around,
this place feels kind of cold."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 12:
Fanfare 1500
Lockall
Faceplayer
Message 31 "I bought a new parasol.
But I don’t want it to get rained on,
so I watch the TV weather reports."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
Lockall
Applymovement 7 mov_2
Applymovement 255 mov_3
Waitmovement
Message 4 "Grunt 1: Hey, you!
Yeah, you!
This is Team Galactic’s warehouse!
It ain’t no playground for kids!"
CloseMsgOnKeyPress
Applymovement 7 mov_4
Applymovement 255 mov_5
Waitmovement
Releaseall
End
Script 14:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 2 32780
If 32780 1
CheckLR 1 func_18
Message 5 "Grunt 1: Hey, you!
Yeah, you!
This is Team Galactic’s warehouse!
It ain’t no playground for kids!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 15:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 2 32780
If 32780 1
CheckLR 1 func_19
Message 6 "Grunt 2: This is the awesome Team
Galactic’s awesome warehouse!
A little kid like you should be playing
at the Pokémon Gym.
After all, the Gym Leader happens to
be a kid just like you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 16:
Fanfare 1500
Lockall
Message 22 "There!
Would you look at those antennae?
I don’t know what they do, but those
are some mighty impressive antennae!"
CloseMsgOnKeyPress
Faceplayer
Applymovement 24 mov_6
Waitmovement
Message 23 "Hey!
It’s you!
I bet you don’t remember me, but
I sure remember you!
Because of you, they took my CLEFAIRY
away...
My partner called it quits and went
back to his old country...
I don’t know anything about any
Storage Key!"
CloseMsgOnKeyPress
Clearflag 1224
Addpeople 23
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_20
If 32780 1
CheckLR 1 func_21
If 32780 2
CheckLR 1 func_22
If 32780 3
CheckLR 1 func_23
End
Script 17:
Fanfare 1500
Lockall
Faceplayer
Message 24 "We have the Hidden Machine that teaches
Fly stored in the warehouse.
They said I can use it if I show them
that I deserve it."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 18:
CallMsgBox 41 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 19:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 42 32780
Callstd 208 7
End
Script 20:
CallMsgBox 555 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 21:
CallMsgBox 556 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 22:
CallMsgBox 557 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 23:
CallMsgBox 558 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 24:
CallMsgBox 559 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 25:
CallMsgBox 560 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 26:
Fanfare 1500
Lockall
ActDeoxisFormChange
CheckDeoxis 32780
If 32780 0
CheckLR 1 func_24
ChangeFormDeoxis 3
Cryfr 386 0
Message 37 "Touching the meteorite boosted
the Speed of a certain Pokémon."
Waitbutton
WaitCry
CloseMsgOnKeyPress
Releaseall
End
Script 27:
Fanfare 1500
Lockall
ActDeoxisFormChange
CheckDeoxis 32780
If 32780 0
CheckLR 1 func_24
ChangeFormDeoxis 2
Cryfr 386 0
Message 38 "Touching the meteorite heightened
the defensive capabilities of
a certain Pokémon."
Waitbutton
WaitCry
CloseMsgOnKeyPress
Releaseall
End
Script 28:
Fanfare 1500
Lockall
ActDeoxisFormChange
CheckDeoxis 32780
If 32780 0
CheckLR 1 func_24
ChangeFormDeoxis 1
Cryfr 386 0
Message 39 "Touching the meteorite heightened
the offensive capabilities of
a certain Pokémon."
Waitbutton
WaitCry
CloseMsgOnKeyPress
Releaseall
End
Script 29:
Fanfare 1500
Lockall
ActDeoxisFormChange
CheckDeoxis 32780
If 32780 0
CheckLR 1 func_24
ChangeFormDeoxis 0
Cryfr 386 0
Message 40 "Touching the meteorite balanced out
the attributes of a certain Pokémon."
Waitbutton
WaitCry
CloseMsgOnKeyPress
Releaseall
End
Script 30:
Lockall
Applymovement 6 mov_7
Waitmovement
Checkgender 32772
If 32772 0
CheckLR1 1 func_25
If 32772 1
CheckLR1 1 func_26
CloseMsgOnKeyPress
Applymovement 6 mov_8
Waitmovement
Removepeople 6
Goto func_1
Clearflag 454
Addpeople 6
Setvar 16666 2
Releaseall
End
FUNCTIONS:
Func 1:
ChangeOwPosition 6 696 596
ChangeOwMovement 6 17
ReleaseOw 6 3
Killscript
Func 2:
Setvar 16416 97
End
Func 3:
Setvar 16416 0
End
Func 4:
Applymovement 6 mov_9
Waitmovement
Killscript
Func 5:
Applymovement 6 mov_10
Waitmovement
Killscript
Func 6:
Applymovement 6 mov_11
Waitmovement
Killscript
Func 7:
Applymovement 6 mov_12
Waitmovement
Killscript
Func 8:
Setvarhero 0
Message 2 "Dawn: \v0103\z0000, are you going
to take the Gym challenge?
Gee, you keep getting tougher and
tougher, don’t you?
Me? Well, I went shopping at the
department store, and...
I mean, well, of course I’ve been
working on my Pokédex, but...
I’ll catch you later!"
Killscript
Func 9:
Setvarhero 0
Message 3 "Lucas: Hey! \v0103\z0000, are you
going to take on the Gym Leader?
Wow, you just keep getting tougher
and tougher.
Me? Well, I took a look in the
Game Corner, and...
I mean, yeah, of course I’ve been
working on my Pokédex, but...
Anyways, keep it up!
I’ll see you around!"
Killscript
Func 10:
Applymovement 6 mov_13
Applymovement 255 mov_14
Waitmovement
Killscript
Func 11:
Applymovement 6 mov_13
Applymovement 255 mov_14
Waitmovement
Killscript
Func 12:
Applymovement 6 mov_15
Applymovement 255 mov_16
Waitmovement
Killscript
Func 13:
Applymovement 6 mov_15
Applymovement 255 mov_16
Waitmovement
Killscript
Func 14:
Setvarhero 0
Message 12 "Dawn: Hi, \v0103\z0000!
Please, can you help me?
I dropped my Pokédex by accident,
and Team Galactic found it.
Now they won’t give it back.
Please, I need your help.\fTeam up and battle with me!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_27
Jump func_28
Func 15:
Setvarhero 0
Message 17 "Lucas: Hey! \v0103\z0000!
Listen, I need your help...
I dropped my Pokédex by accident,
and Team Galactic found it.
Now they won’t give it back.
Please, I need you to help me.
Will you team up with me to take
them on?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_29
Jump func_30
Func 16:
Message 35 "If someone uses Embargo on your
Pokémon, it becomes impossible to\fuse any items on it.
Anyway, enjoy your visit to Veilstone,
the city of...well, stone."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 17:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 18:
Message 7 "Grunt 1: What? Now you’ve brought
your buddy along so you can get your\fPokédex back?
We’ll be just as happy to send both
of you crying home to your mommies!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 19:
Message 8 "Grunt 2: You’re trying to get the
Pokédex back from us?
Not when we, Team Galactic, can make
so much better use of it!
But, OK, guarding the warehouse
does get boring!
We’ll take you on two-on-two!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 20:
Applymovement 255 mov_17
Applymovement 24 mov_18
Waitmovement
Jump func_31
Func 21:
Applymovement 24 mov_18
Waitmovement
Jump func_31
Func 22:
Applymovement 255 mov_19
Applymovement 24 mov_20
Waitmovement
Jump func_31
Func 23:
Applymovement 255 mov_21
Applymovement 24 mov_18
Waitmovement
Jump func_31
Func 24:
Message 36 "It’s a mysterious meteorite that
fell from the stars..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 25:
Setvarhero 0
Message 0 "Dawn: Hi, \v0103\z0000!
Please, can you help me?
I dropped my Pokédex by accident,
and Team Galactic found it.
Now they won’t give it back.
Please, I need your help.
I’ll be waiting in front of the
warehouses. Please come!"
Killscript
Func 26:
Setvarhero 0
Message 1 "Lucas: Hey! \v0103\z0000!
Listen, I need your help...
I dropped my Pokédex by accident,
and Team Galactic found it.
Now they won’t give it back.
Please, I need you to help me.
I’ll be waiting in front of the
warehouses. Please come!"
Killscript
Func 27:
Message 13 "Dawn: You and your Pokémon together
with me and my Pokémon...
United like this, our dream team
has no chance of losing!
I’m not letting those bad people get
away with their dirty deeds!"
Jump func_32
Func 28:
Message 14 "Dawn: I’ll be waiting.
Please get ready and come quickly."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 29:
Message 18 "Lucas: You and your Pokémon together
with me and my Pokémon...
Our dream team’s not going to lose.
Not with the way we work together!
I’m not letting those criminals get
away with this!"
Jump func_32
Func 30:
Message 19 "Lucas: I’ll be waiting!
Get ready and come quick!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 31:
Removepeople 24
Releaseall
End
Func 32:
CloseMsgOnKeyPress
CheckFacePosition 32780
If 32780 3
CheckLR1 1 func_33
If 32780 1
CheckLR1 1 func_34
If 32780 0
CheckLR1 1 func_35
Goto func_36
DoubleBattle 32772 848 849
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_37
Message 9 "Grunt 1: Aww, that stinks!
Our Pokémon are chumps!
We should get new ones from
headquarters.
Humph! Who cares about some
Pokédex anyways?
Team Galactic’s going to own
all the Pokémon in the world...\fNo, in the universe!"
CheckHiroPosition 32772 32773
If 32773 595
CheckLR1 1 func_38
If 32773 597
CheckLR1 1 func_39
Message 10 "There! Take it!
Take your Pokédex!"
CloseMsgOnKeyPress
Return 15 32780
CheckHiroPosition 32772 32773
If 32773 595
CheckLR1 1 func_40
If 32773 597
CheckLR1 1 func_41
Removepeople 7
Message 11 "Grunt 2: Those things we had in
the warehouse’ve already been moved\fto Pastoria City anyway...
So, we’ll say “You’ll get yours!”
And run like the grunts we are."
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32773 595
CheckLR1 1 func_42
If 32773 597
CheckLR1 1 func_43
Removepeople 20
Checkgender 32772
If 32772 0
CheckLR1 1 func_44
If 32772 1
CheckLR1 1 func_45
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32773 595
CheckLR1 1 func_46
If 32773 597
CheckLR1 1 func_47
Return 10 32780
Setvarhero 0
Checkgender 32772
If 32772 0
CheckLR1 1 func_48
If 32772 1
CheckLR1 1 func_49
CloseMsgOnKeyPress
Return 15 32780
Applymovement 6 mov_22
Applymovement 255 mov_23
Waitmovement
Jump func_50
Func 33:
Applymovement 6 mov_24
Applymovement 255 mov_25
Waitmovement
Killscript
Func 34:
Applymovement 6 mov_26
Applymovement 255 mov_27
Waitmovement
Killscript
Func 35:
Applymovement 6 mov_28
Applymovement 255 mov_29
Waitmovement
Killscript
Func 36:
Checkgender 32780
If 32780 0
CheckLR 1 func_51
If 32780 1
CheckLR 1 func_52
End
Func 37:
LostGoPc
Releaseall
End
Func 38:
Applymovement 20 mov_30
Waitmovement
Killscript
Func 39:
Applymovement 7 mov_30
Waitmovement
Killscript
Func 40:
Applymovement 7 mov_31
Waitmovement
Killscript
Func 41:
Applymovement 7 mov_31
Waitmovement
Killscript
Func 42:
Applymovement 20 mov_32
Waitmovement
Killscript
Func 43:
Applymovement 20 mov_32
Waitmovement
Killscript
Func 44:
Message 15 "Dawn: What’s going on?
Why is Team Galactic out in the
streets like they own the place?"
Killscript
Func 45:
Message 20 "Lucas: What’s going on here?
Why is Team Galactic out in the
streets like they own the place?"
Killscript
Func 46:
Applymovement 6 mov_33
Applymovement 255 mov_34
Waitmovement
Killscript
Func 47:
Applymovement 6 mov_35
Applymovement 255 mov_36
Waitmovement
Killscript
Func 48:
Message 16 "Dawn: \v0103\z0000, thank you,
sincerely.
If Professor Rowan ever finds out that
I lost my Pokédex...
Eewww...
I don’t want to think about it.
So, \v0103\z0000, what are you going
to do now?
I’m thinking of going to Pastoria
City now.
The Great Marsh there is home to
many kinds of Pokémon."
Killscript
Func 49:
Message 21 "Lucas: \v0103\z0000, thanks,
honestly.
If Professor Rowan ever hears that
I lost my Pokédex...
Oh, man, that’s something I do not
want to think about!
So, \v0103\z0000, what are your
plans now?
I’m going off to Pastoria City.
The Great Marsh there has all kinds
of Pokémon."
Killscript
Func 50:
Setflag 257
Removepeople 6
Releaseall
End
Func 51:
StoreStarter 32780
Setvar 32772 625
If 32780 390
CheckLR 1 func_53
Setvar 32772 626
If 32780 393
CheckLR 1 func_53
Setvar 32772 624
Killscript
Func 52:
StoreStarter 32780
Setvar 32772 622
If 32780 390
CheckLR 1 func_53
Setvar 32772 623
If 32780 393
CheckLR 1 func_53
Setvar 32772 621
Killscript
Func 53:
Killscript
(133) C07GYM0101 Veilstone City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
VeilstoneGymFunction
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 2 32780
If 32780 1
CheckLR 1 func_1
DeActivateLeader 9 133 0 0 0
Message 0 "Hello.
I’m pleased to meet you.
I’m Maylene, and I’m the Gym
Leader.
I don’t really know what it means to
be strong, or how I got to be the
Gym Leader.
But I will do the best I can as the
Gym Leader.
I take battling very seriously.
Whenever you’re ready!"
CloseMsgOnKeyPress
TrainerBattle 317 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
Message 1 "...OK.
You win.
That was a tough loss.
I learned a lot from it.
Please, accept this Gym Badge."
Setvarhero 0
Message 2 "\v0103\z0000 received
the Cobble Badge from Maylene."
Soundfr 1161
Fadedef
Setbdgtrue 2
MainEvent 23
SetTrainerId 309
SetTrainerId 310
SetTrainerId 311
SetTrainerId 312
DeActivateLeader 10 133 317 0 0
Clearflag 454
Setvar 16509 1
Setvar 16666 1
Message 3 "Um...
I should explain about that Badge.
If you have that official Pokémon
League Badge, you can use the hidden
move Fly outside of battle.
Oh, and please take this as well."
Jump func_3
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 2 32780
If 32780 1
CheckLR 1 func_4
Message 6 "Hey, there!
How’s it going, Champ-to-be?
The Gym Leader is a user of
Fighting-type Pokémon.
She’d be a terror against Normal-type
Pokémon.
But! And it’s a big but!
Just between you and me...
Maylene, the Gym Leader, said Flying-
and Psychic-type Pokémon could be
real trouble for her!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Checkbadge 2 32780
If 32780 1
CheckLR 1 func_5
Setvarrival 0
Setvarrival 1
Message 8 "Veilstone City Pokémon Gym
Leader: Maylene
Certified Trainers:
\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Checkflag 157
CheckLR 0 func_3
Setvarhero 0
Message 5 "Gee, I’m hungry...
Oh, sorry, it’s nothing.
I didn’t say anything.
\v0103\z0000, I can’t explain what
it means to be strong.
I don’t know how much effort goes
into being strong...
But being with Pokémon lets us
keep making the effort, doesn’t it?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
LostGoPc
Releaseall
End
Func 3:
Setvar 32772 387
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_6
Callstd 252 7
Setflag 157
Setvaritem 0 32772
Setvaratkitem 1 32772
Message 4 "That \v0108\z0000 contains
the move \v0106\z0001.
Um... That move inflicts damage,
and it robs the target’s HP."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Setvarhero 0
Message 7 "Oh! \v0103\z0000!
You’ve beaten the Gym Leader!
Of course, I thought you’d win."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Setvarrival 0
Setvarhero 1
Setvarrival 2
Message 9 "Veilstone City Pokémon Gym
Leader: Maylene
Certified Trainers:
\v0103\z0000\f\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(134) C07PC0101 Veilstone City Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setvar 32775 0
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Setvaratkitem 0 422
Message 0 "If you use the hidden move Fly,
you’ll be instantly whisked to any
town you’ve visited before."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Maylene, the Gym Leader, is a cute
little girl.
But don’t let her looks fool you.
Even grown-ups have trouble with her."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(135) C07PC0102 Veilstone City Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(136) C07R0101 Veilstone City R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 13
Script 14
Script 15
Script 16
Script 17
Script 18
Script 19
Script 20
Script 21
SCRIPTS:
Script 1:
Setvar 32772 0
Jump func_1
Script 2:
Setvar 32772 1
Jump func_1
Script 3:
Setvar 32772 2
Jump func_1
Script 4:
Setvar 32772 3
Jump func_1
Script 5:
Setvar 32772 4
Jump func_1
Script 6:
Setvar 32772 5
Jump func_1
Script 7:
Setvar 32772 6
Jump func_1
Script 8:
Setvar 32772 7
Jump func_1
Script 9:
Setvar 32772 8
Jump func_1
Script 10:
Setvar 32772 9
Jump func_1
Script 11:
Setvar 32772 10
Jump func_1
Script 12:
Setvar 32772 11
Jump func_1
Script 13:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Welcome to the Veilstone Game Corner!"
CheckItem 444 1 32780
If 32780 0
CheckLR 1 func_2
Checkflag 304
CheckLR 1 func_3
CheckRecordCasino 32780
If 32780 0
CheckLR 1 func_3
Setvar 32772 391
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_3
Jump func_4
Script 14:
Fanfare 1500
Lockall
Faceplayer
Message 11 "I’ll explain how the slot machines
work at this Game Corner.
During regular play, you should
stop the reels from the left.
During the bonus round, watch
where CLEFAIRY points and stop
the reels in that order."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 15:
Fanfare 1500
Lockall
Faceplayer
CheckItem 444 1 32780
If 32780 0
CheckLR 1 func_5
Checkflag 302
CheckLR 1 func_6
CheckCoinsCasino 32780 20 0
If 32780 0
CheckLR 1 func_6
Setflag 302
GiveCoins 20
Setvarhero 0
Message 13 "I’ve been winning a ton today.
Here, take some Coins!
\v0103\z0000 received 20 Coins
from the man.
\v0103\z0000 put the Coins away in
the Coin Case."
Waitbutton
Fanfare 1604
WaitFanfare 1604
CloseMsgOnKeyPress
Releaseall
End
Script 16:
Fanfare 1500
Lockall
Faceplayer
CheckItem 444 1 32780
If 32780 0
CheckLR 1 func_7
Checkflag 303
CheckLR 1 func_8
CheckCoinsCasino 32780 50 0
If 32780 0
CheckLR 1 func_8
Setflag 303
GiveCoins 50
Setvarhero 0
Message 16 "Woohoo! CLEFAIRY! Look!
Yeahah! It’s a carnival!
Let me share some of my joy with
you!
\v0103\z0000 received 50 Coins
from the man.
\v0103\z0000 put the Coins away in
the Coin Case."
Waitbutton
Fanfare 1604
WaitFanfare 1604
CloseMsgOnKeyPress
Releaseall
End
Script 17:
Fanfare 1500
Lockall
Faceplayer
Message 18 "I want Coins, of course, but
setting records is hot, too!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 18:
Fanfare 1500
Lockall
Faceplayer
Message 19 "When a Poké Ball appears, it’s a
chance to line up slot marks.
Replays and PIKACHU line up even if
you don’t make an effort.
But you need to aim for better marks,
like Poké Balls and Moon Stones."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 19:
Fanfare 1500
Lockall
Faceplayer
Message 20 "A friend in my group scored a ton
of Coins here.
I’m going to challenge him!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 20:
Fanfare 1500
Lockall
Faceplayer
Message 21 "Sigh...
Nothing’s going my way today...
Are you a Trainer?
Did you battle the Gym Leader?
She happens to be my daughter.
She’s some kind of tough!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 21:
If 16448 999
CheckLR 2 func_9
Setvarnum 0 16448
Fanfare 1500
Lockall
Message 22 "Shoot for 10!
Line up those bonus rounds!
If you accomplish the feat of completing
10 uninterrupted bonus rounds,
please go to the counter.
You will be presented with a fabulous
prize!
The current record sits at
\v0134\z0000 straight bonus rounds!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Fanfare 1500
Lockall
CheckItem 444 1 32780
If 32780 0
CheckLR 1 func_10
Fadescreen 6 1 0 0
Resetscreen
DeActivateLeader 16 0 0 0 0
Pokecasino 32772
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 2:
Message 1 "Did you want some Coins for the
slots?
Oh, I’m sorry, you don’t have
a Coin Case to hold your Coins."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
ShowCoins 20 2
ShowMoney 20 7
Message 2 "Did you want some game Coins?
It’s $1000 for 50 Coins.
Would you like some?"
Multi 1 1 0 1 32780
Txtscrpmulti 125 0
Txtscrpmulti 126 1
Txtscrpmulti 127 2
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_11
If 32776 1
CheckLR 1 func_12
Jump func_13
Func 4:
Message 7 "Ten straight bonus rounds on
the slots! That’s amazing!
I would say you had an explosion
of good luck!
So, please take this Technical Machine
as a memento!"
Callstd 252 7
Setflag 304
Message 8 "Please keep playing the slots for
another explosion of good luck!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 12 "Hey, kid, if you want to play here,
you need a Coin Case.
I think the young man next door
had one."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 14 "Listen, when CLEFAIRY appears, that’s
your chance to line up sevens.
Line those babies up and you’re into
the bonus round!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 15 "Woohoo! CLEFAIRY! Look at it!
It’s driving me bananas!
Oh, if only you had a Coin Case!
Then you’d know what fun this is!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 17 "Woohoo! CLEFAIRY! It’s adorable!
Just seeing it gets my pulse racing!
Oh, let me impart a piece of advice
to you!
If the moon turns red, you don’t
want to get a replay because it\fmakes CLEFAIRY tired!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Setvarnum 0 999
Fanfare 1500
Lockall
Message 22 "Shoot for 10!
Line up those bonus rounds!
If you accomplish the feat of completing
10 uninterrupted bonus rounds,\fplease go to the counter.
You will be presented with a fabulous
prize!
The current record sits at
\v0134\z0000 straight bonus rounds!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Message 10 "You can’t play if you don’t have
a Coin Case."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
CheckMoney 32780 1000 0
If 32780 0
CheckLR 1 func_14
CheckCoinsCasino 32780 50 0
If 32780 0
CheckLR 1 func_15
TakeMoney 1000 0
GiveCoins 50
UpdateCoins
UpdateMoney
Fanfare 1604
WaitFanfare 1604
Message 3 "Thank you very much!
Here are your Coins!"
Return 30 32780
Jump func_16
Func 12:
CheckMoney 32780 10000 0
If 32780 0
CheckLR 1 func_14
CheckCoinsCasino 32780 500 0
If 32780 0
CheckLR 1 func_15
TakeMoney 10000 0
GiveCoins 500
UpdateCoins
UpdateMoney
Fanfare 1604
WaitFanfare 1604
Message 3 "Thank you very much!
Here are your Coins!"
Return 30 32780
Jump func_16
Func 13:
Message 6 "Oh... You don’t need Coins, then?
Please come again!"
Waitbutton
CloseMsgOnKeyPress
HideCoins
HideMoney
Releaseall
End
Func 14:
Message 4 "Um... You don’t appear to have
enough money..."
Waitbutton
CloseMsgOnKeyPress
HideCoins
HideMoney
Releaseall
End
Func 15:
Message 5 "Oh?
Your Coin Case is full."
Waitbutton
CloseMsgOnKeyPress
HideCoins
HideMoney
Releaseall
End
Func 16:
Message 2 "Did you want some game Coins?
It’s $1000 for 50 Coins.
Would you like some?"
Multi 1 1 0 1 32780
Txtscrpmulti 125 0
Txtscrpmulti 126 1
Txtscrpmulti 127 2
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_11
If 32776 1
CheckLR 1 func_12
Jump func_13
(137) C07R0201 Veilstone City R2-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Welcome to the fabulous Veilstone
Department Store."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "This department store knows how to
ensure customer satisfaction.
They really look after you once you
become a regular customer."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "I like the formal air of a luxury
department store."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 8
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 9
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Message 5 "Discover a new you!
Veilstone Department Store"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Message 6 "1F: Trainers’ Zone
2F: Battle Collection
3F: TM Corner
4F: Poké Dolls & Goods
5F: Rooftop Plaza"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Checkflag 297
CheckLR 1 func_1
StoreStarter 32780
If 32780 387
CheckLR1 1 func_2
If 32780 390
CheckLR1 1 func_3
If 32780 393
CheckLR1 1 func_4
Copyvar 16647 32772
CheckPokeParty2 1024 11392
0300
Setvar 32773 1
Callstd 223 7
Setflag 297
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
SetvarAccessories 0 16647
Message 4 "It’s a \v011F\z0000.
It will give your Pokémon a
different look for Contests."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Setvar 32772 94
Killscript
Func 3:
Setvar 32772 92
Killscript
Func 4:
Setvar 32772 93
Killscript
(138) C07R0202 Veilstone City R2-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckFirstTimeVShop 32780
If 32780 1
CheckLR 1 func_1
Message 0 "Hello.
May I help you with anything?"
Multi 1 1 0 1 32780
Txtscrpmulti 229 1
Txtscrpmulti 228 0
CloseMulti
If 32780 1
CheckLR 1 func_2
Jump func_3
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 7 "Where can I find matching dresses for
myself and my dear Pokémon?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 8 "I’m going to give an HP Up to
my KRICKETOT.
This is going to raise its HP, huh?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
StorePktchAppl 10 32780
If 32780 1
CheckLR 1 func_4
Message 9 "We’re giving away a Pokétch app for
free as a promotion.
I can give you the Counter app
over the counter. Would you like it?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_5
Message 10 "OK, here you go.
Go forth and count!"
Setvar 32772 10
Callstd 217 7
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 10
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 11
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Message 13 "1F: Trainers’ Zone
2F: Battle Collection
3F: TM Corner
4F: Poké Dolls & Goods
5F: Rooftop Plaza"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvarhero 0
Message 1 "Hello, \v0103\z0000.
May I help you with anything?"
Multi 1 1 0 1 32780
Txtscrpmulti 229 0
Txtscrpmulti 228 1
CloseMulti
If 32780 0
CheckLR 5 func_3
CheckIdPlayer 32780 4
If 32780 0
CheckLR 1 func_2
If 32780 1
CheckLR 1 func_6
If 32780 2
CheckLR 1 func_7
Jump func_8
Func 2:
Message 3 "Would you care for a Protein?
It’s a drink that boosts Attack."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 2 "Please enjoy yourself."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 11 "I hope that Counter app I gave you
is useful."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 12 "You’re not interested? I’ll be here
if you change your mind."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 4 "May I suggest a Carbos? It’s a drink
that boosts the base Speed stat."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 5 "When you need to make sure attacks hit
the target hard... Dire Hit is for you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 6 "If your Pokémon has trouble with aim,
try treating it to an X Accuracy."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(139) C07R0203 Veilstone City R2-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckFirstTimeVShop 32780
If 32780 1
CheckLR 1 func_1
Message 0 "Hello.
May I help you with anything?"
Multi 1 1 0 1 32780
Txtscrpmulti 229 1
Txtscrpmulti 228 0
CloseMulti
If 32780 1
CheckLR 1 func_2
Jump func_3
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 7 "A friend traded me a MACHOKE using
DS Wireless Communications.
But instead of a MACHOKE, I got
a different Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 8 "I wrote some secrets in my Mail
as a reminder...
If someone reads it...
I’m in deep trouble."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 12
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 13
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Message 9 "1F: Trainers’ Zone
2F: Battle Collection
3F: TM Corner
4F: Poké Dolls & Goods
5F: Rooftop Plaza"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvarhero 0
Message 1 "Hello, \v0103\z0000.
May I help you with anything?"
Multi 1 1 0 1 32780
Txtscrpmulti 229 0
Txtscrpmulti 228 1
CloseMulti
If 32780 0
CheckLR 5 func_3
RandomTextStored 32780 4
If 32780 0
CheckLR 1 func_2
If 32780 1
CheckLR 1 func_4
If 32780 2
CheckLR 1 func_5
Jump func_6
Func 2:
Message 3 "False Swipe makes wild Pokémon easier
to catch.
Many customers have confided that to
me recently."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 2 "Please enjoy yourself."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 4 "For Fire-type Pokémon, may I suggest
Fire Blast?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 5 "The move Protect is the perfect
solution for dodging attacks.
Please be aware that overuse can
result in failure."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 6 "When it is raining, the accuracy
of Thunder becomes precise.
Please do be careful about
the weather."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(140) C07R0204 Veilstone City R2-04
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckFirstTimeVShop 32780
If 32780 1
CheckLR 1 func_1
Message 0 "Hello.
May I help you with anything?"
Multi 1 1 0 1 32780
Txtscrpmulti 229 1
Txtscrpmulti 228 0
CloseMulti
If 32780 1
CheckLR 1 func_2
Jump func_3
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 7 "If you encounter a wild Pokémon,
chuck a Quick Ball right off the bat!
If it’s taking a long time to catch,
the situation calls for a Timer Ball!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 8 "That boy doesn’t have any Pokémon,
but he says he’s training his image!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart2 0
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart2 1
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Message 9 "1F: Trainers’ Zone
2F: Battle Collection
3F: TM Corner
4F: Poké Dolls & Goods
5F: Rooftop Plaza"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvarhero 0
Message 1 "Hello, \v0103\z0000.
May I help you with anything?"
Multi 1 1 0 1 32780
Txtscrpmulti 229 0
Txtscrpmulti 228 1
CloseMulti
If 32780 0
CheckLR 5 func_3
CheckIdPlayer 32780 4
If 32780 0
CheckLR 1 func_2
If 32780 1
CheckLR 1 func_4
If 32780 2
CheckLR 1 func_5
Jump func_6
Func 2:
Message 3 "The Yellow Cushion is popular for its
perfect balance of soft and firm."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 2 "Please enjoy yourself."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 4 "You would be surprised at how many
customers buy Cupboards."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 5 "The BUIZEL Doll is very popular due
to its nautical image."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 6 "Let me think... The MANTYKE Doll has
been a hot seller recently."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(141) C07R0205 Veilstone City R2-05
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’ve had enough of shopping for
a while.
I’ll grab a drink and unwind a bit."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I’ve shopped here loyally for years.
Now they consider me a regular! Ha!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 261
CheckLR 1 func_1
Message 2 "Ah, young Pokémon Trainer...
As your senior in life, let me make
a gift of this Sticky Barb!"
Setvar 32772 288
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Callstd 252 7
Setflag 261
Jump func_1
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 4 "Two buff guys standing side by side.
That’s all. What? What’s the problem?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Message 5 "1F: Trainers’ Zone
2F: Battle Collection
3F: TM Corner
4F: Poké Dolls & Goods
5F: Rooftop Plaza"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Message 6 "It’s a Vending Machine.
Which drink would you like?"
ShowMoney 20 2
Jump func_3
FUNCTIONS:
Func 1:
Message 3 "That Sticky Barb is a hold item.
If the Pokémon holding it is hit...
The Sticky Barb sticks to the foe
and inflicts damage!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Multi 1 1 0 1 32768
Txtscrpmulti 219 0
Txtscrpmulti 220 1
Txtscrpmulti 221 2
Txtscrpmulti 222 3
CloseMulti
Copyvar 32776 32768
If 32776 0
CheckLR 1 func_4
If 32776 1
CheckLR 1 func_5
If 32776 2
CheckLR 1 func_6
Message 10 "Decided not to buy a drink."
Jump func_7
Func 4:
Setvar 32769 30
Jump func_8
Func 5:
Setvar 32769 31
Jump func_8
Func 6:
Setvar 32769 32
Jump func_8
Func 7:
Waitbutton
CloseMsgOnKeyPress
HideMoney
Releaseall
End
Func 8:
If 32768 0
CheckLR1 1 func_9
If 32768 1
CheckLR1 1 func_10
If 32768 2
CheckLR1 1 func_11
If 32780 0
CheckLR 1 func_12
CheckStoreItem 32769 1 32780
If 32780 0
CheckLR 1 func_13
If 32768 0
CheckLR1 1 func_14
If 32768 1
CheckLR1 1 func_15
If 32768 2
CheckLR1 1 func_16
UpdateMoney
Setvaritem 0 32769
Fanfare 1559
Setvaritem 0 32769
Message 7 "Clang!
A can of \v0108\z0000 dropped
down."
Copyvar 32772 32769
Setvar 32773 1
Callstd 252 7
CheckIdPlayer 32780 64
If 32780 0
CheckLR 5 func_17
CheckStoreItem 32769 1 32780
If 32780 0
CheckLR 1 func_13
Fanfare 1559
Setvaritem 0 32769
Message 8 "Clang!
Bonus! Another can of \v0108\z0000
dropped down."
Copyvar 32772 32769
Setvar 32773 1
Callstd 252 7
Jump func_17
Func 9:
CheckMoney 32780 200 0
Killscript
Func 10:
CheckMoney 32780 300 0
Killscript
Func 11:
CheckMoney 32780 350 0
Killscript
Func 12:
Message 9 "Not enough money..."
Jump func_7
Func 13:
Callstd 225 7
CloseMsgOnKeyPress
HideMoney
Releaseall
End
Func 14:
TakeMoney 200 0
Killscript
Func 15:
TakeMoney 300 0
Killscript
Func 16:
TakeMoney 350 0
Killscript
Func 17:
Message 6 "It’s a Vending Machine.
Which drink would you like?"
Jump func_3
(142) C07R0206 Veilstone City R2-06
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckFloor 16590
Copyvar 32776 16590
If 32776 0
CheckLR 1 func_1
If 32776 1
CheckLR 1 func_2
If 32776 2
CheckLR 1 func_3
If 32776 3
CheckLR 1 func_4
If 32776 4
CheckLR 1 func_5
End
FUNCTIONS:
Func 1:
Setvarnum 0 5
Jump func_6
Func 2:
Setvarnum 0 4
Jump func_6
Func 3:
Setvarnum 0 3
Jump func_6
Func 4:
Setvarnum 0 2
Jump func_6
Func 5:
Setvarnum 0 1
Jump func_6
Func 6:
StartLift 276 16590 44
(143) C07R0301 Veilstone City R3-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 350
CheckLR 1 func_1
If 16595 2
CheckLR 4 func_2
If 16562 2
CheckLR 4 func_3
Message 0 "Whoa, whoa, whoa! What have we here?
You are so not Team Galactic!
And you’re a little kid to boot!
Those things we made with the energy
we took from the Valley Windworks
are already in Pastoria City.
Huh?
That’s not what this is about?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckItem 463 1 32780
If 32780 1
CheckLR 1 func_4
Message 4 "The rust-encrusted door is locked.
It appears to take a special key."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 3 "Whoa, whoa, whoa!
What’s going on here?
All my fellow Team Galactic members
have disappeared!
But nobody relieved me from guarding
the warehouse, so I’m staying put!
Huh?
That’s not what this is about?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 2 "Whoa, whoa, whoa! Hold it there!
Do you have the key?
I don’t know if you do or not, but
a Storage Key is safe with our guard\fin front of the HQ.
Huh?
That’s not what this is about?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 1 "Whoa, whoa, whoa! What have we here?
You are so not Team Galactic!
And you’re a little kid!
Ummm... Are you maybe a visitor?
If you’re a visitor, you can get to
our HQ by taking those stairs.
Huh?
That’s not what this is about?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 5 "The rust-encrusted door is locked.
It appears to take a special key.
Use the Storage Key?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_5
If 32780 1
CheckLR 1 func_6
End
Func 5:
Setflag 270
GiveItem 463 1 32780
Setvarhero 0
Message 6 "\v0103\z0000 inserted and turned the
Storage Key.
The rusty door creaked open!
The Storage Key snapped off inside
the keyhole..."
Waitbutton
WaitFanfare 1500
Fanfare 1544
Applymovement 3 mov_1
Applymovement 4 mov_2
Waitmovement
Removepeople 3
Removepeople 4
CloseMsgOnKeyPress
Releaseall
End
Func 6:
CloseMsgOnKeyPress
Releaseall
End
(144) C07R0401 Veilstone City R4-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Setvar 16385 19
Message 0 "Welcome!
You may exchange your Coins for
fabulous prizes here!"
ShowCoins 21 1
Jump func_1
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 8 "I love words like “walk-off,
grand-slam home run.”"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 9 "They have prizes I really want, but
it’d be tough saving up the Coins."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Which prize would you like?"
Goto func_2
If 32780 65534
CheckLR 1 func_3
If2 32780 16385
CheckLR 1 func_3
ChsPrizeCasino 32780 32768 32769
If 32768 328
CheckLR1 0 func_4
If 32768 328
CheckLR1 4 func_5
Yesnobox 32780
If 32780 1
CheckLR 1 func_1
CheckCoinsCasino 32780 32769
If 32780 0
CheckLR 1 func_6
CheckStoreItem 32768 1 32780
If 32780 0
CheckLR 1 func_7
Message 4 "Here you go!"
TakeItem 32768 1 32780
TakeCoinsCasino 32769 119
Fanfare 1604
WaitFanfare 1604
Jump func_1
Func 2:
Setvar 32776 0
Setvar 32777 0
Multi3 1 1 0 1 32780
ChsPrizeCasino 32776 32768 32769
Setvaritem 0 32768
SetvarIdNumber 1 32769 1 5
Txtmsgscrpmulti 168 255 32776
Setvalue 32776 1
If2 32776 16385
CheckLR 0 func_8
Txtmsgscrpmulti 169 255 32776
CloseMulti4
Killscript
Func 3:
Message 7 "Oh, is that so?
Please come back with some Coins!"
Waitbutton
CloseMsgOnKeyPress
HideCoins
Releaseall
End
Func 4:
Setvaritem 0 32768
Message 2 "So your choice is
the \v0108\z0000?"
Killscript
Func 5:
Setvaritem 0 32768
Setvaratkitem 1 32768
Message 3 "So your choice is \v0108\z0000:
\v0106\z0001?"
Killscript
Func 6:
Message 5 "You don’t have enough Coins."
Jump func_1
Func 7:
Setvaritem 0 32768
Message 6 "There isn’t any room available for
that \v0108\z0000."
Jump func_1
Func 8:
ChsPrizeCasino 32776 32768 32769
Setvaritem 0 32768
SetvarIdNumber 1 32769 1 5
Txtmsgscrpmulti 168 255 32776
Setvalue 32776 1
If2 32776 16385
CheckLR 0 func_8
Txtmsgscrpmulti 169 255 32776
CloseMulti4
Killscript
(145) C07R0501 Veilstone City R5-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 188
CheckLR 1 func_1
Message 0 "You there.
Watch this Coin."
Message 1 "Spin, spin, spin, spin, spin..."
CloseMsgOnKeyPress
CheckFacePosition 32780
If 32780 2
CheckLR 1 func_2
If 32780 0
CheckLR 1 func_3
If 32780 3
CheckLR 1 func_4
If 32780 1
CheckLR 1 func_5
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 6 "There are many magicians in the world.
You know, the performance artists?
Don’t you think, that maybe, say,
five percent are actually psychics?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 5 "Me, I am but a tearful clown.
Though I smile, I cry inside."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Applymovement 0 mov_1
Waitmovement
Jump func_6
Func 3:
Applymovement 0 mov_2
Waitmovement
Jump func_6
Func 4:
Applymovement 0 mov_3
Waitmovement
Jump func_6
Func 5:
Applymovement 0 mov_4
Waitmovement
Jump func_6
Func 6:
Message 2 "Now, which hand is that Coin in?
My left or right?"
Multi 1 1 0 0 32768
Txtscrpmulti 174 0
Txtscrpmulti 175 1
CloseMulti
CheckIdPlayer 32780 2
If 32780 0
CheckLR 1 func_7
Message 4 "Bravo!
A winner is you!
For our winner, I have here...
A Coin Case!"
Setvar 32772 444
Setvar 32773 1
Setflag 188
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 3 "Boo!
Poor show!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(146) C07R0601 Veilstone City R6-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "A myth says that Mt. Coronet parted
Sinnoh into halves.
Seeing the Pokémon SHELLOS makes me
think maybe the myth is real."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "If there are people who desire to
see them, Pokémon will appear in
many different guises."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 427 0
Message 2 "BUNEARY: Nii nii!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(147) C07R0701 Veilstone City R7-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Team Galactic’s building bugs me...
I can’t sleep with it looming over me."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Those thorny things on the
building... Are they fashionable?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(148) C07R0801 Veilstone City R8-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2732
CheckLR 1 func_1
Message 0 "Oh, looking a little tired?
...Oh, no, not you.
I meant your Pokémon.
If you’d like, I can give a massage
to a Pokémon. Would you like that?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_2
Message 1 "Which one needs a little love?"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
ChsPokemenu
StorePokeMenu2 16384
Callend
Fadescreen 6 1 1 0
Resetscreen
If 16384 255
CheckLR 1 func_2
CheckPokeEgg 16384 32780
If 32780 0
CheckLR 1 func_3
Message 3 "Giggle... OK, let’s get started.
OK, sweetie, just relax..."
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Fanfare 1634
WaitFanfare 1634
Fadescreen 6 1 1 0
Resetscreen
Setvarpokenick 0 16384
Message 4 "\v0100\z0000 looks dreamily
content..."
Setflag 2732
StoreHappyStatus 3 16384
CheckMassage 32772
If 32772 65535
CheckLR 1 func_4
Message 7 "When I was massaging your Pokémon,
I found this."
Setvar 32773 1
Callstd 255 7
Jump func_4
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 9 "My sister’s boyfriend is the Scarf
Guy in Pastoria City.
They send Mail to each other by
letting Pokémon deliver it."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 417 0
Message 10 "PACHIRISU: Pachi chiii!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 8 "Oh? You want me to show you how to
massage Pokémon?
Tehehe...
It’s a secret, of course!
Come back again tomorrow!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 2 "Oh!
Hey, I’m not doing anything shady..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 6 "That’s silly! I’d break that Egg
if I tried to massage it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 5 "Drop by again tomorrow if you’d like."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(149) C07R0901 Veilstone City R9-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 263
CheckLR 1 func_1
Message 1 "I wanted to go to Celestic Town, but
there were some Pokémon in the way."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "There was a group of Pokémon blocking
the way up to Celestic Town.
I think they’re gone now."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(150) C08 Sunyshore City
SCRIPT ORDER:
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 2
Script 3
Script 11
Script 12
Script 13
Script 14
Script 15
Script 16
Script 17
Script 18
Script 19
Script 1
SCRIPTS:
Script 1:
If 16510 0
CheckLR 1 func_1
End
Script 2:
Lockall
Setvar 16510 2
Applymovement 9 mov_1
Waitmovement
CheckHiroPosition 32772 32773
If 32772 853
CheckLR 1 func_2
If 32772 854
CheckLR 1 func_3
If 32772 855
CheckLR 1 func_4
If 32772 856
CheckLR 1 func_5
If 32772 857
CheckLR 1 func_6
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 154
CheckLR 1 func_7
Message 8 "Jasmine: ...This city makes me feel
at home somehow.
It’s next to the sea, and there’s
a lighthouse..."
Checkbadge 7 32780
If 32780 0
CheckLR 1 func_8
Goto func_9
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Lockall
CheckHiroPosition 32772 32773
If 32773 790
CheckLR 1 func_10
If 32773 791
CheckLR 1 func_11
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 10 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 16 "Whatever the environment, people
and Pokémon adapt to live there.
That’s what we all do to survive."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 11 "That giant rock...
Isn’t it really a Pokémon?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 13 "The Gym Leader uses too much
electricity!
He needs to think about the city’s
power needs, too!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 14 "The city uses a lot of electricity,
especially the lighthouse and
the Gym.
They finally decided to turn all
the roads inside the city into giant
solar panels.
Sunyshore is the Sunshine City, so
the system works perfectly."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
Message 15 "This is a major port town.
And...
It’s the gateway to the Pokémon
League."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
CallMsgBox 17 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 12:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 18 32780
Callstd 208 7
End
Script 13:
CallMsgBox 531 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 14:
CallMsgBox 532 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 15:
CallMsgBox 533 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 16:
CallMsgBox 534 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 17:
CallMsgBox 535 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 18:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
CheckPokemart 32780
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_12
If 32776 1
CheckLR 1 func_13
If 32776 2
CheckLR 1 func_14
If 32776 3
CheckLR 1 func_15
If 32776 4
CheckLR 1 func_16
If 32776 5
CheckLR 1 func_17
If 32776 6
CheckLR 1 func_18
End
Script 19:
Fanfare 1500
Lockall
Faceplayer
Checkflag 354
CheckLR 1 func_19
Message 2 "Flint: Yo! Hiya!
He hasn’t come back yet.
When he does, you know what you’ve
gotta do.
Give him a battle that’s so hot, it
will reignite his passion for battling!
I’m counting on you, hotshot!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
ChangeOwPosition 18 841 790
ChangeOwMovement 18 16
ReleaseOw 18 2
End
Func 2:
Applymovement 9 mov_2
Waitmovement
Jump func_20
Func 3:
Applymovement 9 mov_3
Waitmovement
Jump func_20
Func 4:
Applymovement 9 mov_4
Waitmovement
Jump func_20
Func 5:
Applymovement 9 mov_5
Waitmovement
Jump func_20
Func 6:
Applymovement 9 mov_6
Waitmovement
Jump func_20
Func 7:
Message 9 "Jasmine: ...I came from very far away
because I wanted to get stronger.
On the way, I met all sorts of
people with their Pokémon...
They all looked like they were having
fun. I felt happy seeing it."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 5 "Oh, if you don’t have the Gym Badge,
you’ll be forced to turn back."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Message 6 "Oh, that’s this town’s Gym Badge.
You must be very good.
...Er...um...
P-please take this, too."
Setvar 32772 426
Setvar 32773 1
Callstd 252 7
Setflag 154
Message 7 "...That Hidden Machine...
It contains Waterfall.
If you use it, you can get to
the Pokémon League.
...Um... I... I don’t know how
I should say this, but good luck."
Killscript
Func 10:
Applymovement 18 mov_7
Waitmovement
Jump func_21
Func 11:
Applymovement 18 mov_8
Waitmovement
Jump func_21
Func 12:
Pokemart3 0
Jump func_22
Func 13:
Pokemart3 1
Jump func_22
Func 14:
Pokemart3 2
Jump func_22
Func 15:
Pokemart3 3
Jump func_22
Func 16:
Pokemart3 4
Jump func_22
Func 17:
Pokemart3 5
Jump func_22
Func 18:
Pokemart3 6
Jump func_22
Func 19:
Message 3 "Flint: Yo! Hiya!
He’s finally come back!
He seemed to be feeling upbeat, too.
I have a hunch that he recognized
your toughness right away.
I bet he’s getting excited over
the thought of battling you.
Remember what you have to do,
hotshot.
Give him a battle that’s so hot, it
will reignite his passion for battling!
All right, hotshot! I’ll be waiting at
the Pokémon League!"
CloseMsgOnKeyPress
Return 15 32780
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_23
If 32780 2
CheckLR 1 func_24
If 32780 3
CheckLR 1 func_25
End
Func 20:
Setflag 181
Message 4 "...Er...um... M-my name is Jasmine,
and I’m a Gym Leader.
Oh, I’m sorry, not the Gym Leader
of this town...
I’m a Gym Leader in the Johto
region...
...Er...um...
It would be nice if you knew about\fthe Johto region..."
Checkbadge 7 32780
If 32780 0
CheckLR 1 func_26
Goto func_9
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 21:
Message 0 "Yo!
Fellow Trainer!
Your Pokémon are secure inside their
Poké Balls, but there’s no masking\fthat aura of serious toughness!
Oops, sorry, I should introduce
myself.
The name’s Flint! I’m one of
the Pokémon League’s Elite Four!"
CloseMsgOnKeyPress
Applymovement 18 mov_9
Waitmovement
Return 15 32780
Applymovement 18 mov_10
Waitmovement
Message 1 "I just had this idea.
Maybe you can pull it off.
It’s about this town’s Gym Leader.
He’s really lost his enthusiasm lately
because there’ve been so few good\fchallengers worth his time.
He’s been so bored, he spends all his
time renovating the Gym.
And then the blackout happened...
That sure didn’t help lift his mood.
You know where I’m going with this,
don’t you?
I need you to give him a battle
that’s so hot, it will reignite his\fpassion for battling.
I’m counting on you, hotshot!"
CloseMsgOnKeyPress
Return 15 32780
Applymovement 18 mov_11
Waitmovement
Removepeople 18
Return 1 32780
ChangeOwPosition 18 845 748
ChangeOwMovement 18 15
ReleaseOw 18 1
Clearflag 599
Addpeople 18
Setvar 16510 1
Releaseall
End
Func 22:
Releaseall
End
Func 23:
Applymovement 18 mov_12
Applymovement 255 mov_13
Waitmovement
Jump func_27
Func 24:
Applymovement 18 mov_14
Applymovement 255 mov_15
Waitmovement
Jump func_27
Func 25:
Applymovement 18 mov_14
Applymovement 255 mov_13
Waitmovement
Jump func_27
Func 26:
Message 5 "Oh, if you don’t have the Gym Badge,
you’ll be forced to turn back."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 27:
Removepeople 18
Releaseall
End
(151) C08PC0101 Sunyshore City Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 32775 0
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I once dreamed of becoming a Gym
Leader...
Though that dream never came true,
I got to live with Pokémon all
this time.
It’s been a blessed life."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 7 32780
If 32780 1
CheckLR 1 func_1
Message 1 "Wow, you’re really cool!
You have seven Gym Badges!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Sunyshore is situated on a narrow
spit of land bordered by the sea and
mountains.
To make up for the lack of space,
the city built solar panels to use for
power as well as for roads.
It’s a place where nature, Pokémon,
and people are as one!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "Wow! You’re awesomely cool!
You have all eight Gym Badges!
Now, you have to challenge the
Pokémon League!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(152) C08PC0102 Sunyshore City Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(153) C08FS0101 Sunyshore City Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 17
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’ve heard about the Victory Road
which leads to the Pokémon League.
The word is the road is harsh and
harrowing.
I’d better load up on as many items
and medicine as I can carry..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "You can buy Seals for decorating
Poké Balls at the Sunyshore Market.
Use those Seals in a cool way, and
your Pokémon will be impressed."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(154) C08GYM0101 Sunyshore City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 16384 0
SunishoreGymFunction 0 2
Script 2:
SunishoreGymFunction2 0 2
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 7 32780
If 32780 1
CheckLR 1 func_1
Message 0 "Hey, there!
How’s it going, Champ-to-be?
Let me check out your Trainer Case.
Let’s see how many Badges you have.
One, two, three...
Whoa! Wow! You’ve already got seven!
That means if you can beat this Gym
Leader, you’re on your way to the
Pokémon League next.
That also means this is the last time
I get to give you advice.
This is it, kiddo!
Listen carefully...one last time!
The Gym Leader here is a master of
Electric-type Pokémon!
That’s all I have to say.
The rest is up to you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Checkbadge 7 32780
If 32780 1
CheckLR 1 func_2
Message 2 "Sunyshore City Pokémon Gym
Leader: Volkner"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvarhero 0
Message 1 "Oh! \v0103\z0000!
Did you beat the Gym Leader?\fWell, of course you did!
But, you know what?
You haven’t made it in my mind yet!
Do you know why?
Because you and your Pokémon are
capable of achieving so much more!
But, I am proud of you!
Eight Sinnoh Badges!\fWay to go, kiddo!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
If 16623 1
CheckLR 4 func_3
Setvarhero 0
Setvarrival 1
Message 3 "Sunyshore City Pokémon Gym
Leader: Volkner
Certified Trainers:\f\v0103\z0000"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Setvarhero 0
Setvarrival 1
Message 4 "Sunyshore City Pokémon Gym
Leader: Volkner
Certified Trainers:\f\v0103\z0000\f\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(155) C08GYM0102 Sunyshore City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 16384 0
SunishoreGymFunction 1 2
Script 2:
SunishoreGymFunction2 0 2
Script 3:
SunishoreGymFunction2 1 2
Script 4:
End
FUNCTIONS:
None
(156) C08GYM0103 Sunyshore City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 16384 0
SunishoreGymFunction 2 2
Script 2:
SunishoreGymFunction2 0 2
Script 3:
SunishoreGymFunction2 2 2
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 7 32780
If 32780 1
CheckLR 1 func_1
DeActivateLeader 9 156 0 0 0
Message 0 "...All right, challenger.
It’s not often, but some Trainers
manage to come and challenge me.
But they’ve all been boring battles.
I didn’t break a sweat beating them.
...Sigh...
I’m Volkner, the Gym Leader.
They say I’m the top Gym Leader in
Sinnoh, but...
Anyway, I guess we’d better get this
done.
I hope you’re the Trainer who’ll make
me remember how fun it is to battle!"
CloseMsgOnKeyPress
TrainerBattle 320 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
Message 1 "...Hehehe.
Hahahah!
...That was the most fun I’ve had
in a battle since...I don’t know when!
It’s also made me excited to know
you and your team will keep battling
to greater heights!
This is your eighth Gym Badge.
You’ve earned this!"
Setvarhero 0
Message 2 "\v0103\z0000 received
the Beacon Badge from Volkner."
Soundfr 1161
Fadedef
Setbdgtrue 7
MainEvent 23
SetTrainerId 281
SetTrainerId 285
SetTrainerId 301
SetTrainerId 302
SetTrainerId 303
SetTrainerId 331
SetTrainerId 341
SetTrainerId 344
DeActivateLeader 10 156 246 0 0
Message 3 "That Beacon Badge lets you use
the hidden move Waterfall even when
you’re not in a battle.
Waterfall happens to be key if you’re
going to the Pokémon League.
Also, because you’ve collected all
eight Badges, any Pokémon at any
level will now obey you without fail.
I want you to take this, too."
Jump func_3
FUNCTIONS:
Func 1:
Checkflag 182
CheckLR 0 func_3
Message 5 "Your next step is the Pokémon
League challenge.
It’s time for you to cross the sea
and win your way through the\fgauntlet that is Victory Road.
Demonstrate to the Pokémon League
your mastery of your team.
Against you, even the Elite Four will
be pushed to fend off your challenge!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
LostGoPc
Releaseall
End
Func 3:
Setvar 32772 384
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_4
Callstd 252 7
Setflag 182
Setvaritem 0 32772
Setvaratkitem 1 32772
Message 4 "What’s inside that \v0108\z0000
is the move \v0106\z0001.
It may raise Special Attack if it
lands. It’s pretty hot."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(157) C08R0101 Sunyshore City R1-01
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 7
Script 1
Script 43
Script 45
Script 60
Script 59
Script 14
Script 23
Script 16
Script 98
Script 112
Script 104
Script 89
Script 49
Script 70
Script 84
Script 32
Script 33
Script 19
Script 99
Script 111
Script 36
Script 113
Script 105
Script 88
Script 100
Script 85
Script 38
Script 47
Script 50
Script 86
Script 39
Script 48
Script 44
Script 46
Script 35
Script 90
Script 56
Script 114
Script 101
Script 110
Script 69
Script 71
Script 81
Script 27
Script 34
Script 116
Script 76
Script 9
Script 57
Script 66
Script 40
Script 17
Script 109
Script 106
Script 26
Script 15
Script 103
Script 72
Script 55
Script 51
Script 5
Script 107
Script 28
Script 13
Script 65
Script 83
Script 42
Script 24
Script 21
Script 87
Script 73
Script 64
Script 52
Script 6
Script 108
Script 29
Script 11
Script 94
Script 77
Script 54
Script 95
Script 78
Script 61
Script 96
Script 79
Script 63
Script 97
Script 80
Script 115
Script 102
Script 67
Script 93
Script 92
Script 30
Script 12
Script 10
Script 82
Script 31
Script 25
Script 20
Script 75
Script 74
Script 62
Script 53
Script 8
Script 22
Script 37
Script 91
Script 58
Script 68
Script 41
Script 18
SCRIPTS:
Script 1:
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckFirstPokeParty 32768
CheckRibbon 32780 0 24
If 32780 1
CheckLR 1 func_1
Setvarpoke 0 32768
Message 0 "Oh?
Your \v0100\z0000..."
CheckHappyRibbon 32780 32768
If 32780 510
CheckLR 0 func_2
Message 1 "It worked stupendously hard,
didn’t it?
As its reward, please give it this
Effort Ribbon."
GiveRibbon 32768 24
Soundfr 1155
Setvarhero 1
Message 2 "\v0103\z0001 received
the Effort Ribbon."
Fadedef
Setvarpoke 0 32768
Message 3 "\v0103\z0001 put the Effort Ribbon
on \v0100\z0000."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 6 "Sunyshore Market is best known for
its big selection of Seals."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
CheckItem 434 1 32780
If 32780 0
CheckLR 1 func_3
Message 7 "Ah, please, allow me a little of your
time, if you will. You won’t regret it."
Callstd 227 7
FreezeMsgBox
Goto func_4
Releaseall
End
Script 5:
Pokemart3 0
Killscript
Script 6:
Pokemart3 4
Killscript
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 9 "See the Seal Merchant there?"
CheckPokemart 16384
If 16384 0
CheckLR 1 func_5
If 16384 1
CheckLR 1 func_5
If 16384 2
CheckLR 1 func_5
If 16384 3
CheckLR 1 func_5
Jump func_6
Script 8:
Message 10 "He didn’t have the Seals I wanted
today... Maybe tomorrow, I guess."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Script 10:
Script 11:
Script 12:
Script 13:
Script 14:
Script 15:
Script 16:
Script 17:
Script 18:
Script 19:
Script 20:
Script 21:
Script 22:
Script 23:
Script 24:
Script 25:
Script 26:
Script 27:
Script 28:
Script 29:
Script 30:
Script 31:
Script 32:
Script 33:
Script 34:
Script 35:
Script 36:
Script 37:
Script 38:
Script 39:
Script 40:
Script 41:
Script 42:
Script 43:
Script 44:
Script 45:
Script 46:
Script 47:
Script 48:
Script 49:
Script 50:
Script 51:
Script 52:
Script 53:
Script 54:
Script 55:
Script 56:
Script 57:
Script 58:
Script 59:
Script 60:
Script 61:
Script 62:
Script 63:
Script 64:
Script 65:
Script 66:
Script 67:
Script 68:
Script 69:
Script 70:
Script 71:
Script 72:
Script 73:
Script 74:
Script 75:
Script 76:
Script 77:
Script 78:
Script 79:
Script 80:
Script 81:
Script 82:
Script 83:
Script 84:
Script 85:
Script 86:
Script 87:
Script 88:
Script 89:
Script 90:
Script 91:
Script 92:
Script 93:
Script 94:
Script 95:
Script 96:
Script 97:
Script 98:
Script 99:
Script 100:
Script 101:
Script 102:
Script 103:
Script 104:
Script 105:
Script 106:
Script 107:
Script 108:
Script 109:
Script 110:
Script 111:
Script 112:
Script 113:
Script 114:
Script 115:
Script 116:
FUNCTIONS:
Func 1:
Setvarpoke 0 32768
Message 5 "Oh! That Effort Ribbon looks
good on your \v0100\z0000!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 4 "It needs to work a little harder.
If it does, I’ll give your Pokémon
something nice."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 8 "Ah, please, allow me a little of your
time, if you will. You won’t regret it.
...Oh, but, no, no, no!
You have no Seal Case?
You must return to the town with the
ruins and obtain a Seal Case!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
CheckPokemart 32780
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_7
If 32776 1
CheckLR 1 func_8
If 32776 2
CheckLR 1 func_9
If 32776 3
CheckLR 1 func_10
If 32776 4
CheckLR 1 func_11
If 32776 5
CheckLR 1 func_12
If 32776 6
CheckLR 1 func_13
End
Func 5:
Message 10 "He didn’t have the Seals I wanted
today... Maybe tomorrow, I guess."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 11 "He came through with different Seals
today! Just what I wanted to see!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Pokemart3 6
Killscript
Func 8:
Pokemart3 0
Killscript
Func 9:
Pokemart3 1
Killscript
Func 10:
Pokemart3 2
Killscript
Func 11:
Pokemart3 3
Killscript
Func 12:
Pokemart3 4
Killscript
Func 13:
Pokemart3 5
Killscript
(158) C08R0201 Sunyshore City R2-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2724
CheckLR 1 func_1
Checkflag 2727
CheckLR 1 func_2
Checkflag 247
CheckLR 0 func_3
CheckFirstPokeParty 32770
Goto func_4
If 32780 1
CheckLR 1 func_5
Jump func_6
FUNCTIONS:
Func 1:
Jump func_7
Func 2:
Message 1 "Starting tomorrow, please visit and
tell me stories about your travels."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Setflag 247
Setflag 2727
Message 0 "Julia: Oh, hello.
You’re quite the nifty Trainer.
My husband is a Sailor, and he’s off
working somewhere far away.
I long for the day he comes back
to me.
All that waiting gets to be very
boring every day, though...
I know! How about you visit me and
tell me stories every so often?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
CheckPokemart 32780
If 32780 0
CheckLR 1 func_8
If 32780 1
CheckLR 1 func_9
If 32780 2
CheckLR 1 func_10
If 32780 3
CheckLR 1 func_11
If 32780 4
CheckLR 1 func_12
If 32780 5
CheckLR 1 func_13
Jump func_14
Func 5:
Setvarpoke 1 32770
Message 8 "Julia: Hello!
Oh, this is the \v0100\z0001 I gave
a Ribbon to before.
I’ve got lots of Ribbons--you should
bring other Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
CheckPokemart 32780
If 32780 0
CheckLR 1 func_15
If 32780 1
CheckLR 1 func_16
If 32780 2
CheckLR 1 func_17
If 32780 3
CheckLR 1 func_18
If 32780 4
CheckLR 1 func_19
If 32780 5
CheckLR 1 func_20
Jump func_21
Func 7:
Message 7 "Julia: Please tell me another story
tomorrow."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
CheckRibbon 32780 32770 65
Killscript
Func 9:
CheckRibbon 32780 32770 59
Killscript
Func 10:
CheckRibbon 32780 32770 60
Killscript
Func 11:
CheckRibbon 32780 32770 61
Killscript
Func 12:
CheckRibbon 32780 32770 62
Killscript
Func 13:
CheckRibbon 32780 32770 63
Killscript
Func 14:
CheckRibbon 32780 32770 64
Killscript
Func 15:
Message 20 "Julia: Oh, hello! You’re on your
adventure even though it’s Sunday!
When I was younger, I remember that
every day was like an adventure.
It was always fun. I loved the people
around me... I was happy.
Oh, but I’m happy now, too.
I love my life with my husband.\fIt’s just a different kind of happy.
So, what makes you happy?"
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
StorePhraseBox1W 0 32780 32768
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 0
CheckLR 1 func_22
SetvarPhraseBox1W 0 32768
Message 21 "You love \v011C\z0000?
...
Ufufu... That says something about
you. It puts a smile on my face!"
Setflag 2724
GiveRibbon 32770 65
SetvarRibbon 3 65
Jump func_23
Func 16:
Message 2 "Julia: Today is Monday!
It’s time to get going on a brand-new
week.
Is there a story that might help
me perk up?
Maybe a story about getting splashed
with water..."
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
StorePhraseBox1W 0 32780 32768
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 0
CheckLR 1 func_22
SetvarPhraseBox1W 0 32768
Message 3 "\v011C\z0000 splashed with water...
...
That sounds refreshing!
It’s made me feel awake!"
Setflag 2724
GiveRibbon 32770 59
SetvarRibbon 3 59
Jump func_23
Func 17:
Message 10 "Julia: Today is Tuesday!
The first date I went on with my
husband was on Tuesday, too.
I remember my heart thumping like
I was scared, and I guess I was.
Do you know any story that would
scare me like that?
Like something that jumps out
from hiding?"
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
StorePhraseBox1W 0 32780 32768
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 0
CheckLR 1 func_22
SetvarPhraseBox1W 0 32768
Message 11 "One mean \v011C\z0000 that bursts
out from a closet?\f...
Yikes!
That would be scary!"
Setflag 2724
GiveRibbon 32770 60
SetvarRibbon 3 60
Jump func_23
Func 18:
Message 12 "Julia: Sigh...
I gained a little weight...
This dress that my husband bought
for me is too tight now...
This makes me feel sad...
Misery does love company.
Something that would make me cry?"
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
StorePhraseBox1W 0 32780 32768
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 0
CheckLR 1 func_22
SetvarPhraseBox1W 0 32768
Message 13 "A tearful \v011C\z0000...
...
Sniffle... That is so sad...
I feel desolate, even!"
Setflag 2724
GiveRibbon 32770 61
SetvarRibbon 3 61
Jump func_23
Func 19:
Message 14 "Julia: It’s Thursday already?
I lost track of time!
My favorite magazine comes out today.
I’d better go buy it quick!
Do you know a story about being
absentminded?
Like getting your shoes backward?"
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
StorePhraseBox1W 0 32780 32768
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 0
CheckLR 1 func_22
SetvarPhraseBox1W 0 32768
Message 15 "The \v011C\z0000 had shoes
on the wrong feet?
...
Ahahaha! That is so silly!
How is it possible to be that
absentminded?"
Setflag 2724
GiveRibbon 32770 62
SetvarRibbon 3 62
Jump func_23
Func 20:
Message 16 "Julia: Today is Friday!
My meager cooking repertoire is
about to run out!
Do you know a story that would
help me get my thoughts in order?
Like a story about numbers adding
up perfectly?"
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
StorePhraseBox1W 0 32780 32768
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 0
CheckLR 1 func_22
SetvarPhraseBox1W 0 32768
Message 17 "You went \v011C\z0000
shopping and paid $777 including tax?
That is a nice number to ring up.
It just has a good look to it.
It’s sure helped me clear my head!"
Setflag 2724
GiveRibbon 32770 63
SetvarRibbon 3 63
Jump func_23
Func 21:
Message 18 "Julia: Yawn...
Today’s Saturday...\fI’m feeling lazy and sleepy...
I wish I had a pillow...
But what kind of a pillow?"
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
StorePhraseBox1W 0 32780 32768
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 0
CheckLR 1 func_22
SetvarPhraseBox1W 0 32768
Message 19 "\v011C\z0000 snuggle pillow...
...
It... It surprisingly may give me
a good night’s sleep!
I wonder if I can buy one somewhere."
Setflag 2724
GiveRibbon 32770 64
SetvarRibbon 3 64
Jump func_23
Func 22:
Message 9 "Julia: Oh...
You couldn’t think up anything?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 23:
Setvarpoke 1 32770
Setvarhero 2
Message 4 "Thank you!
Please give this to your Pokémon."
Soundfr 1155
Message 5 "\v0103\z0002 received
the \v0127\z0003."
Fadedef
Message 6 "\v0103\z0002 put
the \v0127\z0003\fon \v0100\z0001."
Jump func_7
(159) C08R0301 Sunyshore City R3-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Have you gone underground lately?
Depending on where you go down,
you end up in different places.
That’s why I use my Explorer Kit
in as many places as I can."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "The Spheres found in the underground
tunnels are like gems.
You can obtain goodies by trading
the Spheres away."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "If you bury Spheres, they grow
a little every day.
They’re really weird that way.
Oh, right! I’d better dig mine up!
I forgot I had some buried!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Get Flags from your friends to make
your Secret Base better.
Try to hide your Secret Base, and
get good at ferreting out your
friend’s bases."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 4 "Go underground and have fun down
there. Make it an adventure!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 5 "Some underground Traps need to be
defused by touch or by using the
microphone!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 6 "The Underground Man in Eterna and
Byron of Canalave are related.
Add Byron’s son Roark, and you have
a trio of dedicated diggers."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(160) C08R0401 Sunyshore City R4-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’d heard that Team Galactic was
up to no good.
But here in Sunyshore, we’ve never
even seen any of them around."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "A long time ago, there was a boy
named Cyrus who lived here.
He seemed to shun others, and he
preferred the company of machines.
He was a brilliant student, I recall.
I often wonder what became of him."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(161) C08R0501 Sunyshore City R5-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(162) C08R0601 Sunyshore City R6-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(163) C08R0701 Sunyshore City R7-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
If 16565 1
CheckLR 4 func_1
Setvar 16565 1
Message 0 "That glaringly bright and cool thing
you have!
It’s undoubtedly a Pokétch!
They’re awesome, yeah?
I got OK’d by the Pokétch Company
to develop original Pokétch apps.
Hey, you’re a Trainer, right?
Can you do me a favor?
You’ve got Pokémon with different
natures, right? May I see them?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
StorePktchAppl 18 32780
If 32780 1
CheckLR 1 func_2
StorePktchAppl 17 32780
If 32780 1
CheckLR 1 func_3
StorePktchAppl 16 32780
If 32780 1
CheckLR 1 func_4
Jump func_5
Func 2:
Message 7 "Someday, Pokétch apps may outnumber
all the species of Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
CheckPokeNature 32768 24
If 32768 255
CheckLR 5 func_6
Message 3 "What am I in the mood to see now...
I’d like to see a Pokémon with
a Quirky nature."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
CheckPokeNature 32768 14
If 32768 255
CheckLR 5 func_7
Message 2 "What am I in the mood to see now...
I’d like to see a Pokémon with
a Naive nature."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
CheckPokeNature 32768 12
If 32768 255
CheckLR 5 func_8
Message 1 "What am I in the mood to see now...
I’d like to see a Pokémon with
a Serious nature."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
CheckPokeEgg 32768 32769
Setvarpoke 0 32768
Message 6 "Yep! Your \v0100\z0000 has
a Quirky nature all right!
Thanks! I’ll give you this
Roulette app for your Pokétch."
Setvar 32772 18
Callstd 217 7
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
CheckPokeEgg 32768 32769
Setvarpoke 0 32768
Message 5 "Yep! Your \v0100\z0000 has
a Naive nature all right!
Thanks! I’ll give you this
Dot Artist app for your Pokétch."
Setvar 32772 17
Callstd 217 7
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
CheckPokeEgg 32768 32769
Setvarpoke 0 32768
Message 4 "Yep! Your \v0100\z0000 has
a Serious nature all right!
Thanks! I’ll give you this
Calendar app for your Pokétch."
Setvar 32772 16
Callstd 217 7
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(164) C08R0801 Sunyshore City R8-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 4 "The Vista Lighthouse represents
safety and protection to us Sailors."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 5 "I love how far away you can see with
the binoculars.
I’m going to go that far away with
my Pokémon one day!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Setvarhero 0
Message 3 "\v0103\z0000 took a look through
the binoculars."
CloseMsgOnKeyPress
LgCstlView
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 0 "...
...
...So, you’re the latest challenger
up against the Sunyshore Gym..."
Message 1 "All right, I’ve decided!
If I find you to be weak, I’m going
to challenge the Pokémon League.
I’m all done with renovating the
Gym, so I don’t need to be here.
More than anything, I want to have
battles that can thrill me again."
Message 2 "As the toughest Gym Leader in Sinnoh,
I’m going to unleash everything in
my arsenal on you."
CloseMsgOnKeyPress
Return 15 32780
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_1
If 32780 2
CheckLR 1 func_2
If 32780 3
CheckLR 1 func_3
End
FUNCTIONS:
Func 1:
Applymovement 2 mov_1
Applymovement 255 mov_2
Waitmovement
Jump func_4
Func 2:
Applymovement 2 mov_3
Applymovement 255 mov_4
Waitmovement
Jump func_4
Func 3:
Applymovement 2 mov_3
Waitmovement
Jump func_4
Func 4:
PrpDoorAnm 0 0 6 9 77
Opendoor 77
Waitaction 77
Applymovement 2 mov_5
Waitmovement
Closedoor 77
Waitaction 77
Waitclose 77
Removepeople 2
Setflag 354
Releaseall
End
(165) C09 Snowpoint City
SCRIPT ORDER:
Script 1
Script 3
Script 2
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
SCRIPTS:
Script 1:
If 16511 1
CheckLR 4 func_1
End
Script 2:
Lockall
Applymovement 6 mov_1
Waitmovement
Message 0 "Only the chosen may enter
the Snowpoint Temple.
I’m sorry, but you will have to
leave."
CloseMsgOnKeyPress
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR 1 func_2
Jump func_3
Script 3:
Fanfare 1500
Lockall
Faceplayer
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR 1 func_4
Jump func_5
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 4 "Cynthia sent word to me.
You’re working on a Pokédex,
aren’t you?
There should be many rare Pokémon
in the temple.
Enjoy your exploring!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 5 "Brrr... This snowbound town is
always freezing cold.
But the spirits of the Trainers and
their Pokémon burn hot and bright.
Especially the Gym Leader."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 6 "Ewww, aren’t you cold with just
that scarf? Yikes!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 9 "Candice is teaching me about Pokémon.
She says I have to start by making
friends with Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
If 16511 1
CheckLR 4 func_6
Message 7 "You’re going to the Snowpoint Temple?
You know you’re not allowed to go in?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 14 "There’s nothing here!
And that’s what makes us unique."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
CallMsgBox 15 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 11:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 16 32780
Callstd 208 7
End
Script 12:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2404
CheckLR 0 func_7
Message 10 "What is it? Do you want to sail
to the Battle Zone?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_8
If 32780 1
CheckLR 1 func_9
End
FUNCTIONS:
Func 1:
Setflag 529
End
Func 2:
Checkflag 2404
CheckLR 0 func_3
Jump func_10
Func 3:
Applymovement 6 mov_2
Applymovement 255 mov_3
Waitmovement
Releaseall
End
Func 4:
Checkflag 2404
CheckLR 0 func_5
If 16511 0
CheckLR 1 func_11
Message 2 "The temple is said to have been
built in ancient times.
It pays homage to the Pokémon
of rock, ice, and steel that shape\fthe land.
So it is told."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 1 "Only the chosen may enter
the Snowpoint Temple.
I’m sorry, but you will have to
leave."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 8 "You’re going to the Snowpoint Temple?
Some awesome Pokémon are there!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 13 "A great Trainer recognized by
the Pokémon League...
I look forward to carrying someone
like that on this ship!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 11 "Aye, aye, then!
Let’s set sail!"
CloseMsgOnKeyPress
Goto func_12
Goto func_13
ShipAnm 2 188 623 434
Releaseall
End
Func 9:
Message 12 "What is it?
The Battle Zone’s rough to get to.
The sea around it is always roiling
with choppy waves.
You can’t go there using Surf,
that’s for sure."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Goto func_14
Releaseall
End
Func 11:
Message 0 "Only the chosen may enter
the Snowpoint Temple.
I’m sorry, but you will have to
leave."
CloseMsgOnKeyPress
Goto func_14
Releaseall
End
Func 12:
Applymovement 8 mov_4
Waitmovement
Fanfare 1539
Applymovement 8 mov_5
Waitmovement
Killscript
Func 13:
Applymovement 255 mov_6
Waitmovement
Fanfare 1539
Applymovement 255 mov_5
Waitmovement
Killscript
Func 14:
Return 30 32780
Clearflag 529
Addpeople 7
Applymovement 7 mov_7
Waitmovement
Message 3 "Candice: It’s OK!
You can let that person in."
CloseMsgOnKeyPress
Applymovement 255 mov_8
Applymovement 6 mov_9
Waitmovement
Setvar 16511 1
Message 4 "Cynthia sent word to me.
You’re working on a Pokédex,
aren’t you?
There should be many rare Pokémon
in the temple.
Enjoy your exploring!"
Waitbutton
CloseMsgOnKeyPress
Killscript
(166) C09FS0101 Snowpoint City Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 15
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’m using Technical Machines to teach
moves to my Pokémon.
I’m trying for different mixes of
moves in different types.
I hear the Elite Four of the Pokémon
League are way tougher than any
Gym Leader."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "If your Pokémon gets frozen, it will
thaw out after a while.
But if I were you, I’d keep some
Ice Heals around."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(167) C09GYM0101 Snowpoint City GYM
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Checkflag 235
CheckLR 1 func_1
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 6 32780
If 32780 1
CheckLR 1 func_2
DeActivateLeader 9 167 0 0 0
Message 0 "You want to challenge Candice?
Sure thing!
I was waiting for someone tough!
But I should tell you, I’m tough
because I know how to focus.
Pokémon, fashion, romance...
It’s all about focus!
I’ll show you just what I mean.
Get ready to lose!"
CloseMsgOnKeyPress
TrainerBattle 319 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_3
Message 1 "Wow! You’re great!
You’ve earned my respect!
I think your focus and will bowled
us over totally.
Oh, that’s right!
I’m supposed to give you this!"
Setvarhero 0
Message 2 "\v0103\z0000 received
the Icicle Badge from Candice."
Soundfr 1161
Fadedef
Setbdgtrue 6
MainEvent 23
SetTrainerId 268
SetTrainerId 269
SetTrainerId 827
SetTrainerId 270
SetTrainerId 271
SetTrainerId 828
DeActivateLeader 10 167 319 0 0
Setflag 477
Message 3 "That Icicle Badge I just gave you?
Because you have it, you can use the
hidden move Rock Climb anytime, even
when you’re not in a battle.
Oh, and take this, too."
Jump func_4
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 6 32780
If 32780 1
CheckLR 1 func_5
Message 6 "Hey, there!
How’s it going, Champ-to-be?
Do you see the big snowballs placed
here and there?
You need to slide on the ice with
enough momentum to crush them.
The Gym Leader is a user of
Ice-type Pokémon.
Melt her defenses with scorching-
hot Fire-type moves!
It’s all about focus with this Gym.
Bear down and focus!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Checkbadge 6 32780
If 32780 1
CheckLR 1 func_6
Setvarrival 0
Setvarrival 1
Message 8 "Snowpoint City Pokémon Gym
Leader: Candice
Certified Trainers:
\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 529
End
Func 2:
Checkflag 158
CheckLR 0 func_4
Message 5 "Do you think I should try to act
more like an Ice-type Gym Leader?
Like, do you think I should be more
cool and distant?
That sort of thing I have trouble
with."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
LostGoPc
Releaseall
End
Func 4:
Setvar 32772 399
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_7
Callstd 252 7
Setflag 158
Setvaritem 0 32772
Setvaratkitem 1 32772
Message 4 "\v0108\z0000 contains the move
\v0106\z0001.
If the user takes damage, the move’s
power is doubled!
Can you imagine what sort of focus
you’d need to pull it off?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Setvarhero 0
Message 7 "Oh! \v0103\z0000!
You’ve beaten the Gym Leader!
You were more focused than her,
and your Pokémon picked up on it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Setvarrival 0
Setvarhero 1
Setvarrival 2
Message 9 "Snowpoint City Pokémon Gym
Leader: Candice
Certified Trainers:
\v0103\z0000\f\v0103\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(168) C09PC0101 Snowpoint City Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 32775 0
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "You know how there are many Ice-type
Pokémon around Snowpoint City?
I wonder if they also live in the temple?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Sound gets swallowed up by the snow.
That’s why it’s very quiet here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 54 0
Message 2 "PSYDUCK: Gaga guwawa!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(169) C09PC0102 Snowpoint City Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(170) C09R0101 Snowpoint City R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 244
CheckLR 1 func_1
Message 0 "I love how my girl has so much
vivacity and charm."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 244
CheckLR 1 func_2
Message 2 "By any chance, do you have a Pokémon
called MEDICHAM?
If you do, would you like to trade
your MEDICHAM for my HAUNTER?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_3
Jump func_4
FUNCTIONS:
Func 1:
Message 1 "Thanks to you, my girl’s been in
a really happy mood."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 6 "Thanks to Pokémon, we got to be
friends, didn’t we?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
TradeChosenPoke
StorePokeMenu2 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 255
CheckLR 1 func_4
SetTradeId 2
Copyvar 32772 32780
CheckPokeEgg 32772 32773
CheckPokeTrade 32780
If2 32773 32780
CheckLR 5 func_5
TradeChsPoke 32772
StopTrade
Setflag 244
Message 3 "Haha! Did my HAUNTER turn into
something else? Just kidding!
I made it hold something that
prevents it from evolving.
Please treat my HAUNTER nicely!
I’ll be good to your MEDICHAM, too!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 5 "It’s OK if you don’t want to.
But if you change your mind, let’s
trade Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
StopTrade
Message 4 "What I asked for was a MEDICHAM...?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(171) C09R0201 Snowpoint City R2-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2733
CheckLR 1 func_1
027F 32780
If 32780 1
CheckLR 1 func_2
Message 0 "Hello, hello. Would you like to hear
a trendy saying?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_3
027D 32780 0
If 32780 65535
CheckLR 1 func_2
Setflag 2733
Message 1 "Very well...
The trendy thing to say for you
would be...
\v011C\z0000!
That’s a trendy sort of thing
to say."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 3 "I hope you’ll use trendy sayings
in a trendy way."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 4 "Hello, hello. Are you using trendy
sayings?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 2 "Oh, come on now. With an attitude like
that, you’ll fall behind the times!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(172) C10 Pokémon League
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
CallMsgBox 257 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 2:
CallMsgBox 514 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 3:
Fanfare 1500
Lockall
Message 0 "Pokémon League
The Pinnacle of Trainerdom!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(173) C10PC0101 Pokémon League Pokemon Center
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 1
Script 5
Script 6
SCRIPTS:
Script 1:
Setflag 2496
End
Script 2:
Setvar 32775 0
Callstd 210 7
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 18
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Victory Road...
It lives up to that lofty name..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 1 "...It broke me once, but that only
added to my resolve!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(174) C10PC0102 Pokémon League Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(175) C10R0101 Pokémon League R1-01
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 1
Script 6
Script 7
SCRIPTS:
Script 1:
Setflag 2548
Setflag 672
Setflag 673
Setflag 674
Setflag 675
Clearflag 676
Clearflag 677
Clearflag 678
Clearflag 679
Clearflag 176
Clearflag 177
Clearflag 178
Clearflag 179
Checkflag 175
CheckLR 1 func_1
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 175
CheckLR 1 func_2
Message 2 "Let me confirm that you are qualified
to challenge the Pokémon League.
So! Let us examine the Gym Badges
you gathered from Sinnoh.
Oreburgh City’s Coal Badge!
Eterna City’s Forest Badge!
Veilstone City’s Cobble Badge!
Pastoria City’s Fen Badge!
Hearthome City’s Relic Badge!
Canalave City’s Mine Badge!
Snowpoint City’s Icicle Badge!
And...
Sunyshore City’s Beacon Badge!"
CloseMsgOnKeyPress
Soundfr 1161
Fadedef
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_3
If 32780 2
CheckLR 1 func_4
If 32780 3
CheckLR 1 func_5
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 18
Releaseall
End
Script 5:
Lockall
Clearflag 571
Addpeople 5
Callstd 250 7
CheckHiroPosition 32772 32773
If 32772 10
CheckLR 1 func_6
If 32772 11
CheckLR 1 func_7
If 32772 12
CheckLR 1 func_8
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 5 "Your Pokémon are so calm even though
they’re going up against the Elite
Four.
I like how they’re so loose and
relaxed."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Setvar 32775 3
Callstd 210 7
End
FUNCTIONS:
Func 1:
ChangeOwPosition 0 12 3
End
Func 2:
Message 4 "You will be facing the Elite Four
of the Pokémon League.
If you can’t beat all four of them
in a row, you have to start from\fthe first one again."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Applymovement 0 mov_1
Waitmovement
Jump func_9
Func 4:
Applymovement 0 mov_2
Waitmovement
Jump func_9
Func 5:
Applymovement 0 mov_3
Waitmovement
Jump func_9
Func 6:
Applymovement 5 mov_4
Waitmovement
Jump func_10
Func 7:
Applymovement 5 mov_5
Waitmovement
Jump func_10
Func 8:
Applymovement 5 mov_6
Waitmovement
Jump func_10
Func 9:
Setflag 175
Message 3 "Very well!
Trainer, you’ve indeed collected
all the Gym Badges of Sinnoh!
Demonstrate the power that brought
you here and go for glory!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Applymovement 255 mov_7
Waitmovement
Setvarrival 0
Message 0 "\v0103\z0000: Hold it!
Don’t go off without me!
You’re challenging the Pokémon
League, aren’t you?
That’s why I’m here, too.
Let’s see who’s more worthy of making
the challenge with a battle!"
CloseMsgOnKeyPress
StoreStarter 32780
If 32780 387
CheckLR 1 func_11
If 32780 390
CheckLR 1 func_12
Jump func_13
Func 11:
TrainerBattle 480 0
Jump func_14
Func 12:
TrainerBattle 481 0
Jump func_14
Func 13:
TrainerBattle 479 0
Jump func_14
Func 14:
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_15
Setvarrival 0
Setvarhero 1
Message 1 "\v0103\z0000: I guess I’m not ready
for the Pokémon League if I’m losing\fto you!
Darn it!
You watch, though!
I’ll get tougher and win my way
through the Pokémon League!
Because I’m going to become the
Champion, the toughest Trainer!
\v0103\z0001! You’d better not
lose to anyone before me!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 10
CheckLR 1 func_16
If 32772 11
CheckLR 1 func_17
If 32772 12
CheckLR 1 func_18
End
Func 15:
Setflag 571
LostGoPc
Releaseall
End
Func 16:
Applymovement 5 mov_8
Waitmovement
Jump func_19
Func 17:
Applymovement 5 mov_9
Waitmovement
Jump func_19
Func 18:
Applymovement 5 mov_10
Waitmovement
Jump func_19
Func 19:
Fanfare 1539
Removepeople 5
WaitFanfare 1539
Setvar 16623 1
Releaseall
End
(176) C10R0102 Pokémon League R1-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setvar 16384 0
ElevIrAnm
CheckElevPosition 16385
If 16385 0
CheckLR 1 func_1
End
Script 2:
Setvar 16384 1
End
Script 3:
StopElevAnm
Setvar 16384 1
End
FUNCTIONS:
Func 1:
Setvar 16384 1
End
(177) C10R0103 Pokémon League R1-03
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 176
CheckLR 1 func_1
StoreLeagueTrainer 261
Message 0 "Hello!
Welcome to the Pokémon League!
I’m Aaron of the Elite Four.
It’s good to meet you.
Oh, I should explain, I’m a huge fan
of bug Pokémon.
Bug Pokémon are nasty-mean, and yet
they’re beautiful, too...
Would you like to know why I take
on challengers here, in this room?
It’s because I want to become
perfect, just like my bug Pokémon!
OK! Let me take you on!"
CloseMsgOnKeyPress
TrainerBattle 261 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
Setflag 176
Fanfare 1562
Removepeople 2
DeActivateLeader 11 261 0 0 0
Message 1 "I lost with the most beautiful and
toughest of the bug Pokémon...
We lost because I wasn’t good
enough...
That’s it! Back to training camp!
Let’s hear it for me!
No... That was wrong... Anyway...
Go on to the next room!
Three Trainers are waiting for you.
They’re all tougher than me."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Lockall
Applymovement 255 mov_1
Waitmovement
Fanfare 1562
Clearflag 672
Addpeople 1
Setvar 16385 1
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "Go on, go to the next room.
I’m going to become a top-level
Trainer who can’t be outclassed with\fmy beautiful and tough bug Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
LostGoPc
Releaseall
End
(178) C10R0104 Pokémon League R1-04
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setvar 16384 0
ElevIrAnm
CheckElevPosition 16385
If 16385 0
CheckLR 1 func_1
End
Script 2:
Setvar 16384 1
End
Script 3:
StopElevAnm
Setvar 16384 1
End
FUNCTIONS:
Func 1:
Setvar 16384 1
End
(179) C10R0105 Pokémon League R1-05
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 177
CheckLR 1 func_1
StoreLeagueTrainer 262
Message 0 "Well, well.
You’re quite the adorable Trainer,
but you’ve also got a spine.
Ahaha!
I’m Bertha.
I have a preference for Ground-type
Pokémon.
Well, would you show this old lady
how much you’ve learned?"
CloseMsgOnKeyPress
TrainerBattle 262 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
Setflag 177
Fanfare 1562
Removepeople 2
DeActivateLeader 11 262 0 0 0
Message 1 "You’re quite something, youngster.
I like how you and your Pokémon
earned the win by working as one.
That’s what makes you so strong.
Ahahaha! I think that you can
go as far as you want."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Lockall
Applymovement 255 mov_1
Waitmovement
Fanfare 1562
Clearflag 673
Addpeople 1
Setvar 16385 1
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "The Trainer in the next room is a
much more formidable opponent.
You really must have your wits
about you.
However, I think you can go as far
as you desire. Ahahaha!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
LostGoPc
Releaseall
End
(180) C10R0106 Pokémon League R1-06
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setvar 16384 0
ElevIrAnm
CheckElevPosition 16385
If 16385 0
CheckLR 1 func_1
End
Script 2:
Setvar 16384 1
End
Script 3:
StopElevAnm
Setvar 16384 1
End
FUNCTIONS:
Func 1:
Setvar 16384 1
End
(181) C10R0107 Pokémon League R1-07
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 178
CheckLR 1 func_1
StoreLeagueTrainer 263
Message 0 "Yo, Trainer!
You had me counting the days on my
fingers waiting for you to come.
I heard from Volkner what you
did in Sunyshore.
You managed to light a fire in that
guy’s heart again.
How could you not expect me to look
forward to seeing you in battle?"
CloseMsgOnKeyPress
TrainerBattle 263 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
Setflag 178
Fanfare 1562
Removepeople 1
DeActivateLeader 11 263 0 0 0
Message 2 "...
...
...
...
...
...
...Whew...
...Burnt right down to cinders..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Lockall
Applymovement 255 mov_1
Waitmovement
Fanfare 1562
Clearflag 674
Addpeople 2
Setvar 16385 1
Releaseall
End
FUNCTIONS:
Func 1:
Message 3 "...
...
...
...
...
...
...Keep going..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
LostGoPc
Releaseall
End
(182) C10R0108 Pokémon League R1-08
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setvar 16384 0
ElevIrAnm
CheckElevPosition 16385
If 16385 0
CheckLR 1 func_1
End
Script 2:
Setvar 16384 1
End
Script 3:
StopElevAnm
Setvar 16384 1
End
FUNCTIONS:
Func 1:
Setvar 16384 1
End
(183) C10R0109 Pokémon League R1-09
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 179
CheckLR 1 func_1
StoreLeagueTrainer 264
Message 0 "Ah, you timed your arrival well.
I’ve just finished reading a book,
you see.
Allow me to introduce myself.
I am Lucian.
I am a user of the Psychic type.
I must say, you’ve already proven
yourself to be outstanding
by coming this far.
They say I am the toughest of the
Elite Four.
I’m afraid I will have to go all out
against you to live up to that
reputation."
CloseMsgOnKeyPress
TrainerBattle 264 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
Setflag 179
Fanfare 1562
Removepeople 1
DeActivateLeader 11 264 0 0 0
Message 1 "Congratulations.
You’ve now beaten the Elite Four.
However, that doesn’t mean you’re
done with the Pokémon League.
There remains the Champion.
I should warn you--the Champion is
far stronger than the Elite Four.
Now, go on. Step through the
doorway to your final battle."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Lockall
Applymovement 255 mov_1
Waitmovement
Fanfare 1562
Clearflag 675
Addpeople 2
Setvar 16385 1
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "I’ll be reading books until the next
challenger arrives.
That will calm my nerves, so that
I may deal with all situations without\fpanicking."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
LostGoPc
Releaseall
End
(184) C10R0110 Pokémon League R1-10
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setvar 16384 0
ElevIrAnm
CheckElevPosition 16385
If 16385 0
CheckLR 1 func_1
End
Script 2:
Setvar 16384 1
End
Script 3:
StopElevAnm
Setvar 16384 1
End
FUNCTIONS:
Func 1:
Setvar 16384 1
End
(185) C10R0111 Pokémon League R1-11
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
ElevIrAnm
End
Script 2:
Applymovement 255 mov_1
Waitmovement
StoreLeagueTrainer 267
Checkflag 2404
CheckLR1 0 func_1
Checkflag 2404
CheckLR1 1 func_2
CloseMsgOnKeyPress
Setflag 2443
TrainerBattle 267 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_3
Message 1 "Cynthia: That was excellent.
Truly, an outstanding battle.
You gave the support your Pokémon
needed to maximize their power.
And you guided them with certainty
to secure victory.
You have both passion and
calculating coolness.
Together, you and your Pokémon
can overcome any challenge
that may come your way.
Those are the impressions I got
from our battle.
I’m glad I got to take part in the
crowning of Sinnoh’s new Champion!"
Setflag 180
DeActivateLeader 12 267 0 0 0
Message 2 "Come with me.
We’ll take the lift."
CloseMsgOnKeyPress
Applymovement 0 mov_2
Waitmovement
Applymovement 255 mov_3
Waitmovement
Applymovement 0 mov_4
Waitmovement
Return 30 32780
StopElevAnm
Return 30 32780
Setflag 600
Setflag 601
Applymovement 255 mov_5
Waitmovement
Fanfare 1539
Fadescreen 6 1 0 0
Resetscreen
Warp 186 0 5 23 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
FUNCTIONS:
Func 1:
Message 0 "Cynthia: Have you been keeping well?
Thank you for Mt. Coronet.
I’m truly grateful.
Together, you and your Pokémon
overcame all the challenges you\ffaced, however difficult.
It means that you’ve triumphed
over any personal weaknesses, too.
The power you learned...
I can feel it emanating from you.
But that’s enough talk.
Let’s get on with why you’re here.
As the Pokémon League Champion,
I accept your challenge!"
Killscript
Func 2:
Message 9 "Cynthia: One look at you tells
me many things about you.
Together, you and your Pokémon
overcame all the challenges you\ffaced, however difficult.
It means that you’ve triumphed over
any personal weaknesses, too.
The power you learned...
I can feel it from you.
That’s enough talking.
Let’s get on with why you’re here.
I, Cynthia, accept your challenge as
the Pokémon League Champion!
There won’t be any letup from me!"
Killscript
Func 3:
Clearflag 2443
LostGoPc
Releaseall
End
(186) C10R0112 Pokémon League R1-12
SCRIPT ORDER:
Script 1
Script 1
SCRIPTS:
Script 1:
Lockall
Applymovement 255 mov_1
Waitmovement
ChangeOwPosition 0 6 14
Clearflag 600
Addpeople 0
Lock 0
Applymovement 0 mov_2
Applymovement 255 mov_3
Waitmovement
Message 0 "Cynthia: The room ahead is the Hall
of Fame..."
CloseMsgOnKeyPress
ChangeOwPosition 1 4 14
Clearflag 601
Addpeople 1
Lock 1
Applymovement 1 mov_4
Waitmovement
Applymovement 255 mov_5
Waitmovement
Setvarhero 0
Message 1 "Rowan: \v0103\z0000!
Your last battle was splendid!"
CloseMsgOnKeyPress
Applymovement 0 mov_6
Waitmovement
Message 2 "Cynthia: Oh, hello, Professor Rowan."
Setvarhero 0
Message 3 "Rowan: Hm!
A child I enlisted for my Pokédex
project has come this far...
It’s only natural that I come and
witness the child’s crowning glory.
\v0103\z0000!
I shouldn’t call you a child anymore.
You’ve grown into a real Champion!"
Applymovement 0 mov_7
Waitmovement
Message 4 "Cynthia: Professor, you still enjoy
the enthusiasm kids bring to
your research, don’t you?"
Checkgender 32780
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
End
FUNCTIONS:
Func 1:
Setvarhero 0
Message 5 "\v0103\z0000, step this way,
please."
Jump func_3
Func 2:
Setvarhero 0
Message 6 "\v0103\z0000, step this way,
please."
Jump func_3
Func 3:
Message 7 "Professor Rowan, I need you over
here, as well."
CloseMsgOnKeyPress
Applymovement 0 mov_8
Applymovement 1 mov_9
Applymovement 255 mov_10
Waitmovement
Fanfare 1539
Fadescreen 6 1 0 0
Resetscreen
Warp 187 0 8 15 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
(187) C10R0113 Pokémon League R1-13
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Lockall
Applymovement 255 mov_1
Waitmovement
Applymovement 1 mov_2
Waitmovement
CheckFirstTimeChampion 32780
If 32780 0
CheckLR1 1 func_1
If 32780 0
CheckLR1 5 func_2
CloseMsgOnKeyPress
Applymovement 1 mov_3
Applymovement 0 mov_4
Waitmovement
Return 15 32780
Checkgender 32780
If 32780 0
CheckLR 1 func_3
If 32780 1
CheckLR 1 func_4
End
FUNCTIONS:
Func 1:
Message 0 "Rowan: It’s been a long while since
I last entered this room..."
Message 2 "Cynthia: If your last time here was
when I became Champion, then yes,\fthat would be quite a long time ago."
Killscript
Func 2:
Message 1 "Rowan: No matter how many times
I come here, I always find myself\fstanding up straighter than usual."
Message 3 "Cynthia: It’s a natural reaction,
Professor.
This room is a legacy to the hopes,
dreams, and struggles of Pokémon\fand their Trainers to excel."
Killscript
Func 3:
Setvarhero 0
Message 4 "Cynthia: \v0103\z0000, welcome
to the Hall of Fame."
Jump func_5
Func 4:
Setvarhero 0
Message 5 "Cynthia: \v0103\z0000, welcome
to the Hall of Fame."
Jump func_5
Func 5:
CloseMsgOnKeyPress
Applymovement 255 mov_5
Applymovement 1 mov_6
Applymovement 0 mov_7
Waitmovement
Message 6 "Your names will be recorded for
posterity here.
What you are leaving are the memories
of your adventure so far.
It’s time to record your names.
You and your Pokémon.
Remember, your Pokémon are partners
that grew with you through\fmany challenging battles.
This machine will make a permanent
record of your achievement."
CloseMsgOnKeyPress
Setflag 2434
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR1 1 func_6
If 16628 0
CheckLR1 1 func_7
Checkpartynumber 32780
CheckElevLgAnm 32780
Fadescreen 6 3 0 0
Resetscreen
MainEvent 24
RandomEvent? 46
Goto func_8
EndGame
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 6:
ShayminAnm 2 1
Killscript
Func 7:
Setvar 16628 1
Killscript
Func 8:
Clearflag 495
Clearflag 2443
Checkflag 351
CheckLR1 0 func_9
Checkflag 288
CheckLR1 0 func_10
Checkflag 283
CheckLR1 0 func_11
Checkflag 294
CheckLR1 0 func_12
Checkflag 295
CheckLR1 0 func_13
If 16655 0
CheckLR1 1 func_14
Clearflag 405
Killscript
Func 9:
Setvar 16536 5
StoreFurniture 16536
Clearflag 482
Killscript
Func 10:
Checkflag 293
CheckLR 0 func_15
Clearflag 507
Setvar 16542 1
Killscript
Func 11:
CheckNatPokedexStatus 2 32780
If 32780 0
CheckLR 1 func_16
Clearflag 609
Killscript
Func 12:
Clearflag 510
Killscript
Func 13:
Clearflag 511
Killscript
Func 14:
Setvar 16655 1
Killscript
Func 15:
Killscript
Func 16:
Killscript
(188) C11 Fight Area
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 9
Script 10
Script 11
Script 12
Script 13
Script 14
Script 8
Script 15
Script 1
Script 16
Script 17
SCRIPTS:
Script 1:
If 16542 1
CheckLR 4 func_1
End
Script 2:
Lockall
Applymovement 7 mov_1
Waitmovement
Applymovement 255 mov_2
Waitmovement
Setvarrival 0
Setvarhero 1
Message 0 "\v0103\z0000: Oh, hey, \v0103\z0001!
What took you so long?
I’m fining you $100 million!
Listen up. I’m going to become
the greatest Trainer ever.
That’s why I’m here--to toughen
up myself and my Pokémon!"
CloseMsgOnKeyPress
Applymovement 8 mov_3
Applymovement 7 mov_4
Waitmovement
Message 1 "Hehehe! Sorry!
I couldn’t help overhearing that.
But the greatest Trainer ever?!
That’s going to be really tough.
Because you’re talking about me!
To prove that, I’m going to the
volcano right now.
You look puzzled. You really don’t
know anything, do you?
All right, I’ll tell you.
This is the Battle Zone, OK?
At the far end, there’s a volcano.
And deep inside the volcano, there’s
supposed to be a treasure."
Applymovement 7 mov_5
Waitmovement
Setvarrival 0
Setvarhero 1
Message 2 "\v0103\z0000: So?
What’s the big deal?
If I find that treasure first, that’ll
make me the greatest Trainer ever?
That’s what I’ll do, \v0103\z0001!
And you too, stranger!
I’m gonna get the treasure first!
But before that, I’m going to the
Battle Tower! See ya!"
CloseMsgOnKeyPress
Applymovement 7 mov_6
Applymovement 8 mov_7
Waitmovement
Removepeople 7
Message 3 "That guy...
He can’t stay still, can he?"
CloseMsgOnKeyPress
Applymovement 8 mov_8
Waitmovement
Message 4 "Anyways, howdy, I’m Buck.
Sheesh, that punk can’t beat me.
So, do you know that zippity-doodah
of a Trainer?
You should chase after that guy
and tell him not to underestimate
the volcano.
Oh, but you know what?
You’d better shape up at the
Battle Tower first, too.
I don’t like your chances of getting
to the volcano, otherwise.
Be seeing you!"
CloseMsgOnKeyPress
Applymovement 8 mov_9
Waitmovement
Removepeople 8
Setvar 16513 1
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 7 "The way the Battle Tower looms...
It really is a wall that stands
before every Trainer."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 8 "I’ve battled many Trainers over
the years.
I’ve gained some confidence in my
skill levels, too.
But the world is still a huge place.
It’s not easy to win in life!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 9 "Because of the volcano, the land
around here is craggy.
The rough terrain and all the ups
and downs make it hard to hike."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 10 "The Pokémon League’s Elite Four
come here sometimes!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 11 "Your Pokémon are from Sinnoh,
aren’t they?
They’re not what we’re used to
seeing around here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 12 "There’s no end to becoming tough!
I just made that up, but it sounds
kind of cool, huh?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 16 "Whenever I go to a new place, I get
excited over what I might discover.
But places I’ve visited before...
Even those places thrill me with
new discoveries!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
Setvaritem 0 447
Checkflag 107
CheckLR 1 func_2
Message 17 "Hmm!
A Super Rod is really good!
Wouldn’t you agree?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_3
Message 18 "Hmm!
We’re of identical minds!
Hmm!
Take this \v0108\z0000!"
Setvar 32772 447
Setvar 32773 1
Callstd 252 7
Setflag 107
Message 19 "Wherever there’s water, try your
luck at fishing."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
CallMsgBox 22 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 12:
CallMsgBox 279 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 13:
CallMsgBox 280 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 14:
Fanfare 1500
Lockall
Faceplayer
Faceplayer
CheckFacePosition 32772
Message 13 "What’s up? Do you want to sail to
Snowpoint City?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_4
If 32780 1
CheckLR 1 func_5
End
Script 15:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2738
CheckLR 1 func_6
Setvarrival 0
Setvarhero 1
Message 25 "\v0103\z0000: Hey, \v0103\z0001!
You’re not the only one who’s getting
tougher, you know!
I’ll prove it to you!
Get ready to battle!"
CloseMsgOnKeyPress
StoreStarter 32780
If 32780 387
CheckLR 1 func_7
If 32780 390
CheckLR 1 func_8
Jump func_9
Script 16:
Fanfare 1500
Lockall
Faceplayer
Message 5 "Howdy, Trainer!
You have a Pokédex, do you?
I bet the person who gave you that
is waiting for you to fill that
Pokédex completely."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 17:
Fanfare 1500
Lockall
Faceplayer
Message 6 "Howdy, Trainer!
You have a Pokédex, do you?
Here’s my advice: go out and
challenge other Trainers!
They’ll often have different Pokémon,
so your Pokédex should fill up fast!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 497
If 16654 1
CheckLR 4 func_10
End
Func 2:
Message 21 "What’s that?
Any advice for fishing?
Well, I’ll tell you.
It’s all about the rod and technique!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 20 "Don’t you like to fish?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 14 "Aye, right!
It’s anchors aweigh, then!"
CloseMsgOnKeyPress
Goto func_11
If 32772 1
CheckLR1 1 func_12
If 32772 3
CheckLR1 1 func_13
If 32772 2
CheckLR1 1 func_14
ShipAnm 1 165 356 246
Releaseall
End
Func 5:
Message 15 "Oh, right. You’d rather just fly
everywhere in some big hurry."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Setvarrival 0
Setvarhero 1
Message 26 "\v0103\z0000: ...!
It’s OK, though.
\v0103\z0001, the tougher you get,
the tougher we can get, too.
There’s no end to Pokémon.
That’s what I’m saying, \v0103\z0001."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
CheckFirstTimeChampion 32780
If 32780 20
CheckLR 0 func_15
If 32780 20
CheckLR 4 func_16
End
Func 8:
CheckFirstTimeChampion 32780
If 32780 20
CheckLR 0 func_17
If 32780 20
CheckLR 4 func_18
End
Func 9:
CheckFirstTimeChampion 32780
If 32780 20
CheckLR 0 func_19
If 32780 20
CheckLR 4 func_20
End
Func 10:
CheckPokemart 16384
If 16384 0
CheckLR 1 func_21
If 16384 6
CheckLR 1 func_21
End
Func 11:
Applymovement 18 mov_10
Waitmovement
Fanfare 1539
Applymovement 18 mov_11
Waitmovement
Killscript
Func 12:
Applymovement 255 mov_12
Waitmovement
Fanfare 1539
Applymovement 255 mov_11
Waitmovement
Killscript
Func 13:
Applymovement 255 mov_13
Waitmovement
Fanfare 1539
Applymovement 255 mov_11
Waitmovement
Killscript
Func 14:
Applymovement 255 mov_14
Waitmovement
Fanfare 1539
Applymovement 255 mov_11
Waitmovement
Killscript
Func 15:
TrainerBattle 838 0
Jump func_22
Func 16:
TrainerBattle 841 0
Jump func_22
Func 17:
TrainerBattle 839 0
Jump func_22
Func 18:
TrainerBattle 842 0
Jump func_22
Func 19:
TrainerBattle 837 0
Jump func_22
Func 20:
TrainerBattle 840 0
Jump func_22
Func 21:
ChangeOwPosition 7 658 430
ChangeOwMovement 7 15
ReleaseOw 7 1
Clearflag 497
End
Func 22:
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_23
Setflag 2738
Jump func_6
Func 23:
LostGoPc
Releaseall
End
(189) C11PC0101 Fight Area Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 32775 0
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The Battle Tower’s as tough as they
say...
It’s no cakewalk, that’s for sure."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "The best Trainers from around the
country...
No, the best Trainers from around
the world gather here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 2 "To toughen myself!
To toughen my Pokémon!
For that alone, I have come!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(190) C11PC0102 Fight Area Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(191) C11FS0101 Fight Area Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 213
CheckLR 1 func_1
Message 0 "What items should Pokémon hold?
It’s an important question.
Here’s something else to think
about."
Setvar 32772 232
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Callstd 252 7
Setflag 213
Jump func_1
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 2 "An item that guarantees you won’t
ever lose a battle...
They don’t sell anything like that."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Now, which Pokémon will you give
that Scope Lens to...?
Did I just add to your worries?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(192) C11R0101 Fight Area R1-01
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 1
SCRIPTS:
Script 1:
Setflag 2533
End
Script 2:
Lockall
Setvar 16659 1
Setflag 686
Setflag 687
Goto func_1
Message 0 "Welcome to the Battle Park!
It’s your first time, isn’t it?
Please step this way."
CloseMsgOnKeyPress
Goto func_2
Message 1 "Since this is your first visit, you
need to be given a Point Card.
Point Cards are used only in
the Battle Park.
Here you go."
Setvar 32772 432
Setvar 32773 1
Callstd 252 7
Message 2 "If you need information on the Point
Card, please ask the receptionist
next to me.
I’m the one to ask if you need any
information on the facilities here
in the Battle Park.
For information on the battle rules
used at the Battle Park, please ask
the receptionist across from me."
Message 17 "Good luck!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Welcome to the Battle Park!
If you need any information on the
facilities, I’m the one to ask."
Message 4 "What would you like me to explain?"
Multi2 31 9 0 1 32780
ChooseWirePokeBCastle 16897 5120
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 8 "Welcome to the Battle Park!
I can explain how the Point Card and
the BP (Battle Points) work."
Message 9 "What would you like me to explain?"
Multi2 31 11 0 1 32780
ChooseWirePokeBCastle 16897 5888
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 12 "Welcome to the Battle Park!
I can give you a rundown of the
battle rules that are used at
the Battle Tower."
Message 13 "What would you like me to explain?"
Multi2 31 9 0 1 32780
ChooseWirePokeBCastle 16897 6400
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 18 "Welcome to the Battle Park!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 28 "The Battle Tower’s up ahead.
I wonder what kind of Trainers
are waiting there?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Applymovement 1 mov_1
Applymovement 0 mov_1
Applymovement 5 mov_1
Applymovement 2 mov_1
Applymovement 3 mov_1
Waitmovement
Killscript
Func 2:
Applymovement 1 mov_2
Applymovement 0 mov_2
Applymovement 5 mov_3
Applymovement 2 mov_2
Applymovement 3 mov_3
Applymovement 255 mov_4
Waitmovement
Killscript
(193) C11R0201 Fight Area R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The Survival Area’s past here.
Stark Mountain is this way, too."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I should catch me some wicked
Pokémon for the Battle Tower."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(194) C11R0301 Fight Area R3-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Even from here, we could see the
peak of Mt. Coronet.
Most people didn’t notice what
happened up there, but I did.
But I don’t know what took place
exactly, or anything like that."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Everyone’s fanatical about
battling."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(195) C11R0401 Fight Area R4-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The Battle Zone used to attract only
the hardiest of the Trainers.
They were considered eccentric for
gathering at a place like this.
It’s hard to believe how much it’s
changed since then.
Places like the Fight Area and the
Survival Area just seemed to spring
up overnight."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "He was one of those early eccentrics
who were around during the early days
of the Battle Zone. Well, I was too."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 255 0
Message 2 "TORCHIC: Chiic chic!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(196) C11R0501 Fight Area R5-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(197) D01 Oreburgh Mine
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(198) D01R0101 Oreburgh Mine R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setflag 2498
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Everyone that works in the coal mine
keeps their own Pokémon with them.
You may be challenged to battles!
Hahaha!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "There were Pokémon that looked just
like rocks! They sure surprised me!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(199) D01R0102 Oreburgh Mine R1-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Jump func_1
Script 2:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 66 0
Message 2 "MACHOP: Maaacho!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 66 0
Message 3 "MACHOP: Chopchop!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 66 0
Message 4 "MACHOP: Chopmacho!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 5 "I met these MACHOP on Route 207.
They’ve now become my most trusted
partners!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Applymovement 0 mov_1
Waitmovement
Jump func_2
Func 2:
Message 0 "OK, stand back and watch this.
Using the hidden move Rock Smash,
a boulder blocking your way..."
CloseMsgOnKeyPress
HmEffect 2 32773
Return 10 32780
Removepeople 1
Return 1 32780
If 32773 0
CheckLR 1 func_3
Faceplayer
Message 1 "Fallen boulders need to be smashed
so they’re out of the way.
If you could get the Badge from
the Gym in town, you’d be able\fto do this too.
Of course, you’d have to beat the
Gym Leader first. That’d be me!"
CloseMsgOnKeyPress
Jump func_4
Func 3:
Return 1 32780
If 32773 0
CheckLR 1 func_3
Faceplayer
Message 1 "Fallen boulders need to be smashed
so they’re out of the way.
If you could get the Badge from
the Gym in town, you’d be able\fto do this too.
Of course, you’d have to beat the
Gym Leader first. That’d be me!"
CloseMsgOnKeyPress
Jump func_4
Func 4:
Applymovement 0 mov_2
Waitmovement
Jump func_5
Func 5:
Removepeople 0
Setflag 122
Setflag 410
Releaseall
End
(200) D02 Valley Windworks
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 1
SCRIPTS:
Script 1:
End
Script 2:
If 16591 2
CheckLR1 1 func_1
Checkflag 271
CheckLR1 1 func_2
Checkflag 271
CheckLR1 0 func_3
If 16521 2
CheckLR 0 func_4
Checkflag 2728
CheckLR 1 func_4
CheckPokemart 16384
If 16384 5
CheckLR 5 func_4
Jump func_5
Script 3:
Checkflag 271
CheckLR1 1 func_2
Checkflag 271
CheckLR1 0 func_3
Checkflag 142
CheckLR 1 func_6
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Don’t you dare go into the Valley
Windworks.
I got ordered to keep everyone out
if they’re not part of Team Galactic.
You’re giving me a look that makes
me think you’re gonna try to get in.
OK, then.
You’ll have to battle me for it!"
CloseMsgOnKeyPress
TrainerBattle 843 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_7
Message 1 "Isn’t that just great.
Getting owned by some kid.
But you can’t do a thing if I lock
myself in with my Works Key!
That’s right, the other Works Key’s
not here!
My cohorts in the flower patch
have the only other one!
Hahaha! In that sense, I’m no
longer the loser!"
CloseMsgOnKeyPress
Applymovement 0 mov_1
Waitmovement
PrpDoorAnm 7 20 19 14 77
Opendoor 77
Waitaction 77
Applymovement 0 mov_2
Waitmovement
Closedoor 77
Waitaction 77
Waitclose 77
Message 2 "Ker-chunk!"
Removepeople 0
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Checkflag 159
CheckLR 1 func_8
Message 3 "It’s locked from inside!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
CallMsgBox 519 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Cryfr 425 0
Message 6 "Floooooon!"
CloseMsgOnKeyPress
WaitCry
Setflag 142
WildBattle2 425 22 31 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_9
Setflag 2728
Releaseall
End
FUNCTIONS:
Func 1:
Setvar 16591 3
Killscript
Func 2:
SetTileLocked 1 243 650
Killscript
Func 3:
SetTilePassable 0 243 650
Killscript
Func 4:
Setflag 553
End
Func 5:
Clearflag 553
End
Func 6:
Setflag 553
Removepeople 4
Clearflag 142
End
Func 7:
LostGoPc
Releaseall
End
Func 8:
Setvaritem 0 438
Message 4 "It’s locked from inside!
Use the Works Key?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_10
Setflag 271
Goto func_2
SetTilePassable 0 243 654
Message 5 "Ker-chunk!
The door to Valley Windworks opened!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
LostGoPc
Releaseall
End
Func 10:
CloseMsgOnKeyPress
Releaseall
End
(201) D02R0101 Valley Windworks R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Setflag 2499
If 16521 2
CheckLR 4 func_1
End
Script 2:
Lockall
Message 0 "What?! No way!
You have the key?
Locking the door was meaningless!
I am the loser in this after all!
This is no time for self-pity!
I’ve got to alert the Commander!"
CloseMsgOnKeyPress
Applymovement 0 mov_1
Waitmovement
Removepeople 0
Setvar 16591 1
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "My Pokémon can’t battle anymore.
They’re gonna take away my Pokémon
for messing this one up...
Humph! Just you wait!
Our Commander will smoosh you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Lockall
CheckHiroPosition 32772 32773
If 32773 6
CheckLR 1 func_2
If 32773 7
CheckLR 1 func_3
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
If 16591 3
CheckLR 4 func_4
Message 8 "Papa: Oh, yes, a balloon Pokémon
appears in front of the windworks.
It’s always a certain day of the
week, but I’m not sure which day.
Could its appearance have something
to do with this windworks
using wind-generated energy?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
If 16591 3
CheckLR 4 func_5
Message 7 "Little girl: Thank you, Trainer!
You made those bad people go away!
I think the balloon Pokémon will
come visiting again!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
ChangeOwPosition 5 21 5
ReleaseOw 5 2
ChangeOwMovement 5 16
ChangeOwPosition 2 18 4
ReleaseOw 2 1
ChangeOwMovement 2 15
End
Func 2:
Applymovement 1 mov_2
Waitmovement
Jump func_6
Func 3:
Applymovement 1 mov_3
Waitmovement
Jump func_6
Func 4:
Message 9 "The Valley Windworks uses turbines
to capture energy from winds driven\ffrom the mountains in this canyon.
We produce energy from the power of
nature itself. It’s quite wonderful."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 10 "If the balloon Pokémon came,
the wind would blow it away!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 2 "I’m one of Team Galactic’s three
Commanders.
We’ve been trying to create a new
world that’s better than this one...
But people have shown little
understanding about what we do.
You don’t understand either, do you?
It’s a little saddening...
So, let’s have a battle to decide
what we should do next.
If I win, you leave.
If you win, we, Team Galactic, will
leave!"
CloseMsgOnKeyPress
TrainerBattle 295 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_7
Message 3 "Oops!
I messed that one up!
That’s all right, though.
I quite enjoyed our battle.
I guess it’s time to say good-bye
and leave for the time being!"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Removepeople 1
Removepeople 6
Removepeople 3
Removepeople 4
Setflag 452
Setflag 448
Setvar 16521 2
Setflag 2728
Fadescreen 6 1 1 0
Resetscreen
CheckHiroPosition 32772 32773
If 32773 6
CheckLR 1 func_8
If 32773 7
CheckLR 1 func_9
End
Func 7:
LostGoPc
Releaseall
End
Func 8:
Applymovement 2 mov_4
Waitmovement
Jump func_10
Func 9:
Applymovement 2 mov_5
Waitmovement
Jump func_10
Func 10:
Message 4 "Team Galactic...
They were saying they had to gather
Pokémon and energy no matter what.
It was for creating a new universe,
or so they claimed.
Nothing they said made any sort
of sense to me.
I can’t tell you how grateful
I am for saving me.
I can finally see my little daughter
again!"
CloseMsgOnKeyPress
Setflag 534
Clearflag 535
ChangeOwMovement 5 16
Addpeople 5
Lock 5
CheckHiroPosition 32772 32773
If 32773 6
CheckLR 1 func_11
If 32773 7
CheckLR 1 func_12
End
Func 11:
Applymovement 5 mov_6
Applymovement 2 mov_7
Waitmovement
Jump func_13
Func 12:
Applymovement 5 mov_8
Applymovement 2 mov_9
Waitmovement
Jump func_13
Func 13:
Message 5 "Little girl: Papa!
Yuck! Papa, you’re stinky!
Go shower now, stinky!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32773 6
CheckLR 1 func_14
If 32773 7
CheckLR 1 func_15
End
Func 14:
Applymovement 2 mov_10
Waitmovement
Jump func_16
Func 15:
Applymovement 2 mov_11
Waitmovement
Jump func_16
Func 16:
Message 6 "Papa: Oh, sorry! Ahaha!
They had me working nonstop!"
Message 7 "Little girl: Thank you, Trainer!
You made those bad people go away!
I think the balloon Pokémon will
come visiting again!"
Waitbutton
CloseMsgOnKeyPress
Setvar 16591 2
Setflag 2440
Releaseall
End
(202) D03 Eterna Forest
SCRIPT ORDER:
Script 1
Script 3
Script 4
Script 2
SCRIPTS:
Script 1:
Setflag 2500
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 298
CheckLR 1 func_1
Setvar 32772 95
SetvarAccessories 0 32772
Message 0 "Oh, are you collecting Accessories?
I’ve got something for you."
Setvar 32773 1
Callstd 223 7
Setflag 298
CloseMsgOnKeyPress
Releaseall
End
Script 3:
CallMsgBox 514 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 4:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 3 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
Message 1 "I collect Berries and trade them for
Accessories in Floaroma Town.
I sometimes worry for days on end
about what Accessories I should be\fputting on my Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(203) D03R0101 Eterna Forest R1-01
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 1
SCRIPTS:
Script 1:
Checkflag 227
CheckLR 0 func_1
End
Script 2:
Lockall
RideBike 0
CheckHiroPosition 32772 32773
If 32772 28
CheckLR 1 func_2
If 32772 29
CheckLR 1 func_3
End
Script 3:
Lockall
StopFollow
Followhero 0 15
Continuefollow 0 0
Applymovement 0 mov_1
Waitmovement
Message 4 "Cheryl: Oh? Are you going back?
I’ll wait here for you, then."
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 28
CheckLR 1 func_4
If 32772 29
CheckLR 1 func_5
End
Script 4:
Lockall
Applymovement 0 mov_2
Applymovement 255 mov_3
Waitmovement
Setvarhero 0
Message 5 "Cheryl: Oh! There’s the exit!
I’m so relieved... We finally got here.
I would’ve never been able to get
through this by myself.
Thank you so much, \v0103\z0000!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32773 34
CheckLR 1 func_6
If 32773 35
CheckLR 1 func_7
If 32773 36
CheckLR 1 func_8
If 32773 37
CheckLR 1 func_9
If 32773 38
CheckLR 1 func_10
Jump func_11
Script 5:
Lockall
Setvarhero 0
Releaseall
End
Script 6:
Lockall
Setvarhero 0
Releaseall
End
Script 7:
Lockall
Setvar 16589 1
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 7 "My Pokémon got poisoned, and now
it can’t battle.
I knew I should’ve loaded up on
Antidotes at the Poké Mart!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 9 "Gardenia: Hiya! Were you intrigued
by the rumors going around, too?"
CloseMsgOnKeyPress
Applymovement 24 mov_4
Waitmovement
Message 10 "You know, people’ve been talking
about the ghost Pokémon of the Old
Chateau.
I’ve been hearing rumors about
sinister shadows, too."
Faceplayer
Message 11 "I should check it out myself, but
going in there is...
...Well, you know, being that I’m
a Gym Leader, I’m always busy.
So, since I’m so busy, I can’t go in.
It’s not because I’m s-scared!
S-so, good luck with your
investigation!"
CloseMsgOnKeyPress
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_12
If 32780 1
CheckLR 1 func_13
If 32780 2
CheckLR 1 func_14
If 32780 3
CheckLR 1 func_15
End
Script 10:
CallMsgBox 524 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 11:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 13 32780
Callstd 208 7
End
Script 12:
Fanfare 1500
Lockall
Message 8 "The rock is covered in moss.
It feels pleasantly cool."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvar 16561 0
End
Func 2:
Applymovement 0 mov_5
Waitmovement
Jump func_16
Func 3:
Applymovement 0 mov_6
Waitmovement
Jump func_16
Func 4:
Applymovement 0 mov_7
Waitmovement
Jump func_17
Func 5:
Applymovement 0 mov_8
Waitmovement
Jump func_17
Func 6:
Applymovement 0 mov_9
Applymovement 255 mov_10
Waitmovement
Jump func_18
Func 7:
Applymovement 0 mov_11
Applymovement 255 mov_12
Waitmovement
Jump func_18
Func 8:
Applymovement 0 mov_13
Applymovement 255 mov_14
Waitmovement
Jump func_18
Func 9:
Applymovement 0 mov_15
Applymovement 255 mov_16
Waitmovement
Jump func_18
Func 10:
Applymovement 0 mov_17
Applymovement 255 mov_18
Waitmovement
Jump func_18
Func 11:
Applymovement 0 mov_19
Applymovement 255 mov_20
Waitmovement
Jump func_18
Func 12:
Applymovement 24 mov_21
Waitmovement
Jump func_19
Func 13:
Applymovement 24 mov_22
Waitmovement
Jump func_19
Func 14:
Applymovement 24 mov_22
Waitmovement
Jump func_19
Func 15:
Applymovement 24 mov_22
Waitmovement
Jump func_19
Func 16:
Checkflag 139
CheckLR1 0 func_20
Checkflag 139
CheckLR1 1 func_21
Setvarhero 0
Soundfr 1153
Message 1 "\v0103\z0000 decided to go with
Cheryl!"
Fadedef
Setflag 139
Setvar 16561 1
Message 2 "Cheryl: I’ll keep your Pokémon
in perfect health."
Waitbutton
CloseMsgOnKeyPress
Setvar 16447 608
StartFollow
Followhero 0 48
Continuefollow 0 256
Releaseall
End
Func 17:
Setvar 16561 0
Releaseall
End
Func 18:
Fanfare 1539
StopFollow
Removepeople 0
WaitFanfare 1539
Setflag 227
Setvar 16561 2
Releaseall
End
Func 19:
Removepeople 24
Releaseall
End
Func 20:
Setvarhero 0
Message 0 "Hello, my name’s Cheryl.
And you are...?
OK, so your name is \v0103\z0000.
I’m sincerely glad to meet you.
\v0103\z0000, may I ask a big favor
of you?
I want to get through this forest,
but I’m afraid of doing it alone.
I’ve heard that there is a sinister
group of people called Team Galactic\fabout.
I think there’d be safety in numbers.
Please, may I go through with you?"
Killscript
Func 21:
Setvarhero 0
Message 3 "Cheryl: Oh, hi, \v0103\z0000!
I’ve been waiting like I said.
Let’s get through this forest
together."
Killscript
(204) D04 Fuego Ironworks
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
CallMsgBox 512 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(205) D04R0101 Fuego Ironworks R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2501
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 312
CheckLR 1 func_1
Message 0 "Mr. Fuego: Well, hello!
It’s not often I get a visitor here.
I tried to make the ironworks run
better with the moving floor tiles.
But no one was happy about it! They
said the moving floor made them dizzy!
But you don’t want to listen to me
whine. Here’s a souvenir!"
Setvar 32772 82
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 312
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Mr. Fuego: My ironworks would be
nothing if there were no iron.
That’s why I’m always thankful for
nature supplying me with iron."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(206) D05 Mt. Coronet
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(207) D05R0101 Mt. Coronet R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
End
Script 2:
Lockall
Applymovement 255 mov_1
Applymovement 6 mov_2
Waitmovement
Message 0 "According to one theory, Mt. Coronet
is where the Sinnoh region began."
CloseMsgOnKeyPress
Applymovement 6 mov_3
Applymovement 255 mov_4
Waitmovement
Message 1 "...In a newly created world...
A world where only time flowed and
space expanded...
There should have been no strife."
Applymovement 6 mov_5
Waitmovement
Message 2 "But what became of that world?
Because the human spirit is weak
and incomplete, strife has spread...
This world is being ruined by it...
I find the state of things to
be deplorable..."
CloseMsgOnKeyPress
Applymovement 255 mov_6
Applymovement 6 mov_7
Waitmovement
Removepeople 6
Setvar 16534 1
Releaseall
End
FUNCTIONS:
None
(208) D05R0102 Mt. Coronet R1-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Message 0 "There appears to be a cave painting
from an ancient time..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(209) D05R0103 Mt. Coronet R1-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(210) D05R0104 Mt. Coronet R1-04
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(211) D05R0105 Mt. Coronet R1-05
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(212) D05R0106 Mt. Coronet R1-06
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(213) D05R0107 Mt. Coronet R1-07
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(214) D05R0108 Mt. Coronet R1-08
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(215) D05R0109 Mt. Coronet R1-09
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(216) D05R0110 Mt. Coronet R1-10
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’m hopelessly lost!
Please don’t pay attention to
a lowly grunt without any Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Applymovement 16 mov_1
Waitmovement
Releaseall
End
FUNCTIONS:
None
(217) D05R0111 Mt. Coronet R1-11
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(218) D05R0112 Mt. Coronet R1-12
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "There’s no way of getting to the
peak of Mt. Coronet from this side!
Uh-oh... Was I supposed to go up
from the Hearthome City side?
I can’t get up to the peak from
the Eterna City side?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(219) D05R0113 Mt. Coronet R1-13
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(220) D05R0114 Mt. Coronet R1-14
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 5
Script 9
Script 4
Script 12
Script 13
Script 10
Script 11
Script 6
Script 7
Script 8
Script 14
SCRIPTS:
Script 1:
Setflag 2503
Goto func_1
Goto func_2
Goto func_3
Goto func_4
Checkgender 16384
If 16384 0
CheckLR 1 func_5
If 16384 1
CheckLR 1 func_6
End
Script 2:
Checkflag 190
CheckLR 0 func_7
SetvarMtCoronet? 2 16384
Checkflag 142
CheckLR 1 func_8
End
Script 3:
Lockall
Applymovement 0 mov_1
Applymovement 3 mov_2
Waitmovement
StorePokePartyDefeated 32780
If 32780 0
CheckLR 5 func_9
Message 1 "Something huge is going to happen,
I think...maybe. Right?
Don’t meddle around! Of course,
you’re going to, aren’t you?
That’s why the two of us will team up
to take you down to the ground!
Oh, but you have only one Pokémon?
Scram, then!"
CloseMsgOnKeyPress
Applymovement 255 mov_3
Waitmovement
Applymovement 0 mov_4
Applymovement 3 mov_5
Waitmovement
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
If 16536 0
CheckLR 5 func_10
StorePokePartyDefeated 32780
If 32780 0
CheckLR 1 func_11
Message 0 "Something huge is going to happen,
I think...maybe. Right?
Don’t meddle around! Of course,
you’re going to, aren’t you?
That’s why the two of us will team up
to take you down to the ground!"
CloseMsgOnKeyPress
TrainerBattle 521 527
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_12
Setvar 16536 1
Message 2 "Well, that was just pathetic...
We’re just gonna let you pass so you
can get pulverized by our bosses!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Lockall
RemovePeople2 5
Release 5
CheckHiroPosition 32768 32769
Lockcam 32768 32769
Goto func_13
Waitmovement
Setvar 32773 3
Setvar 32774 4
Goto func_14
Message3 32772
CloseMsgOnKeyPress
SwitchMusic 0 60
Applymovement 1 mov_6
Waitmovement
Applymovement 241 mov_7
Waitmovement
005D
SetvarMtCoronet? 0 32780
Return 162 32780
PlaySound 1144
SetvarMtCoronet? 1 32780
If 32780 0
CheckLR 1 func_15
SetvarMtCoronet? 2 32780
Applymovement 241 mov_8
Waitmovement
Setvar 32773 5
Setvar 32774 6
Goto func_14
Message3 32772
0058 49921 258
Fadescreen 6 1 0 0
Resetscreen
Zoomcam?
CloseMsgOnKeyPress
Warp 220 0 31 25 3
RemovePeople2 255
SetvarMtCoronet? 7 32780
Fadescreen 6 1 1 0
PlaySound 1145
Resetscreen
Return 90 32780
Fadescreen 6 1 0 0
Resetscreen
Warp 200 0 240 660 3
RemovePeople2 255
SetvarMtCoronet? 8 32780
Fadescreen 6 1 1 0
Resetscreen
Return 90 32780
Fadescreen 6 1 0 0
Resetscreen
Warp 86 0 479 692 2
RemovePeople2 255
SetvarMtCoronet? 9 32780
Fadescreen 6 1 1 0
Resetscreen
Return 90 32780
Fadescreen 6 1 0 0
Resetscreen
Setflag 190
Warp 220 0 32768 32769 0
AddPeople2 255
Lockcam 32768 32769
Goto func_13
Waitmovement
Fadescreen 6 1 1 0
Resetscreen
0058 49920 2
Setvar 32773 7
Setvar 32774 8
Goto func_14
Message3 32772
CloseMsgOnKeyPress
Applymovement 241 mov_7
Waitmovement
Setvar 32773 483
Setvar 32774 484
Goto func_14
Cryfr 32772 0
Setvar 32773 9
Setvar 32774 10
Goto func_14
Message3 32772
WaitCry
CloseMsgOnKeyPress
Applymovement 241 mov_8
Waitmovement
Message 11 "Boss: This world cannot be molded
into the ultimate world I seek!
It’s far easier to create an entirely
new world than to change this one!
A new world in which I am the ruler
of all things! I shall become a deity!"
0030
CloseMsgOnKeyPress
Goto func_16
Waitmovement
Zoomcam?
Setvar 16536 2
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 19 "Jupiter: What’s the matter?
Don’t tell me you’re shaking?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 17 "Mars: Well, hotshot?
Now what?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Lockall
Message 16 "Mars: You don’t think you can just
run off now, do you?"
CloseMsgOnKeyPress
Applymovement 255 mov_9
Waitmovement
Releaseall
End
Script 9:
Lockall
Goto func_17
Message 12 "Mars: There’s no need to rush.
I can understand you want to battle
our boss real bad, but you’ll have
to go through me first.
After all, you’ve made me look bad
more times than I care to remember!"
Message 13 "Jupiter: And I’ll be next.
You might be tough, but this time,
the gloves are coming off!"
CloseMsgOnKeyPress
Goto func_18
Setvarrival 0
Message 14 "\v0103\z0000: Hold on one second!
Don’t you start the party without
me!"
Message 15 "Jupiter: Humph!
Well, if it isn’t the little boy who
ran off crying at Lake Acuity!
Did you get any tougher since then?
We’ll beat you two-on-two!"
CloseMsgOnKeyPress
Goto func_19
DoubleBattle 32772 528 407
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_20
Goto func_21
Setvarrival 0
Setvarhero 1
Message 20 "\v0103\z0000: ...Heh.
My Pokémon are tough, right?
I can get even tougher!
...But, you know, that’s it for us.
We’ve hit the wall...
\v0103\z0001, I’ll help you with
this!"
Soundfr 1166
Fadedef
HealPkmn
Message 21 "\v0103\z0000 fully healed
\v0103\z0001’s Pokémon!"
Message 22 "\v0103\z0000: Hey, \v0103\z0001!
This is it! It’s your show now!"
0030
CloseMsgOnKeyPress
SetOwsFollow 255 1
Applymovement 6 mov_10
Waitmovement
Removepeople 6
Jump func_22
Script 10:
Lockall
Setvarhero 0
Setvar 32773 38
Setvar 32774 38
Goto func_14
Message3 32772
CloseMsgOnKeyPress
Applymovement 255 mov_11
Waitmovement
Releaseall
End
Script 11:
Lockall
Goto func_23
Waitmovement
Setvar 32773 483
Setvar 32774 484
Goto func_14
Cryfr 32772 0
Setvar 32773 32
Setvar 32774 33
Goto func_14
Message3 32772
0030
WaitCry
CloseMsgOnKeyPress
Setvar 32773 483
Setvar 32774 484
Goto func_14
Setflag 142
WildBattle2 32772 47 31 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_24
CheckWildBattle2 32780
If 32780 1
CheckLR 1 func_25
Setflag 351
Jump func_26
Script 12:
If 16536 3
CheckLR 5 func_27
Fanfare 1500
Lockall
Faceplayer
Setvarhero 0
Setvarrival 1
Goto func_28
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
If 16536 3
CheckLR 5 func_29
Fanfare 1500
Lockall
Faceplayer
Setvarhero 0
Setvar 32773 36
Setvar 32774 37
Goto func_14
Message3 32772
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 14:
Lockall
Goto func_23
Waitmovement
Setvar 32773 483
Setvar 32774 484
Goto func_14
Cryfr 32772 0
Setvar 32773 32
Setvar 32774 33
Goto func_14
Message3 32772
0030
WaitCry
CloseMsgOnKeyPress
Setvar 32773 483
Setvar 32774 484
Goto func_14
Setflag 142
WildBattle2 32772 47 31 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_30
Setvar 16536 4
CheckWildBattle2 32780
If 32780 1
CheckLR 1 func_31
Setflag 351
Releaseall
End
FUNCTIONS:
Func 1:
StoreFurniture 16536
If 16536 0
CheckLR 1 func_32
If 16536 1
CheckLR 1 func_32
If 16536 2
CheckLR 1 func_33
If 16536 3
CheckLR 1 func_34
If 16536 4
CheckLR 1 func_35
If 16536 5
CheckLR 1 func_36
Killscript
Func 2:
Setvar 16417 154
StoreMtCoronet? 16384
If 16384 10
CheckLR 1 func_37
Setvar 16417 155
Killscript
Func 3:
StoreMtCoronet? 16384
If 16384 10
CheckLR 1 func_38
Setflag 1023
Killscript
Func 4:
0166 16384
If 16384 0
CheckLR 1 func_39
CheckNatPokedexStatus 2 16384
If 16384 0
CheckLR 1 func_39
CheckItem 455 1 16384
If 16384 0
CheckLR 1 func_39
UnkFunct2 2 16384
If 16384 0
CheckLR 1 func_39
Checkflag 286
CheckLR 1 func_39
Setvar 16664 1
Killscript
Func 5:
Setvar 16416 97
End
Func 6:
Setvar 16416 0
End
Func 7:
Checkflag 142
CheckLR 1 func_8
End
Func 8:
Setflag 482
Removepeople 5
Clearflag 142
End
Func 9:
Message 0 "Something huge is going to happen,
I think...maybe. Right?
Don’t meddle around! Of course,
you’re going to, aren’t you?
That’s why the two of us will team up
to take you down to the ground!"
CloseMsgOnKeyPress
TrainerBattle 521 527
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_12
Setvar 16536 1
Message 2 "Well, that was just pathetic...
We’re just gonna let you pass so you
can get pulverized by our bosses!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Message 2 "Well, that was just pathetic...
We’re just gonna let you pass so you
can get pulverized by our bosses!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Message 1 "Something huge is going to happen,
I think...maybe. Right?
Don’t meddle around! Of course,
you’re going to, aren’t you?
That’s why the two of us will team up
to take you down to the ground!
Oh, but you have only one Pokémon?
Scram, then!"
CloseMsgOnKeyPress
Releaseall
End
Func 12:
LostGoPc
Releaseall
End
Func 13:
CheckHiroPosition 32772 32773
Copyvar 32776 32772
If 32776 29
CheckLR 1 func_40
If 32776 30
CheckLR 1 func_41
If 32776 31
CheckLR 1 func_42
If 32776 32
CheckLR 1 func_43
If 32776 33
CheckLR 1 func_44
Killscript
Func 14:
StoreMtCoronet? 32780
Copyvar 32772 32773
If 32780 10
CheckLR 1 func_45
Copyvar 32772 32774
Killscript
Func 15:
SetvarMtCoronet? 1 32780
If 32780 0
CheckLR 1 func_15
SetvarMtCoronet? 2 32780
Applymovement 241 mov_8
Waitmovement
Setvar 32773 5
Setvar 32774 6
Goto func_14
Message3 32772
0058 49921 258
Fadescreen 6 1 0 0
Resetscreen
Zoomcam?
CloseMsgOnKeyPress
Warp 220 0 31 25 3
RemovePeople2 255
SetvarMtCoronet? 7 32780
Fadescreen 6 1 1 0
PlaySound 1145
Resetscreen
Return 90 32780
Fadescreen 6 1 0 0
Resetscreen
Warp 200 0 240 660 3
RemovePeople2 255
SetvarMtCoronet? 8 32780
Fadescreen 6 1 1 0
Resetscreen
Return 90 32780
Fadescreen 6 1 0 0
Resetscreen
Warp 86 0 479 692 2
RemovePeople2 255
SetvarMtCoronet? 9 32780
Fadescreen 6 1 1 0
Resetscreen
Return 90 32780
Fadescreen 6 1 0 0
Resetscreen
Setflag 190
Warp 220 0 32768 32769 0
AddPeople2 255
Lockcam 32768 32769
Goto func_13
Waitmovement
Fadescreen 6 1 1 0
Resetscreen
0058 49920 2
Setvar 32773 7
Setvar 32774 8
Goto func_14
Message3 32772
CloseMsgOnKeyPress
Applymovement 241 mov_7
Waitmovement
Setvar 32773 483
Setvar 32774 484
Goto func_14
Cryfr 32772 0
Setvar 32773 9
Setvar 32774 10
Goto func_14
Message3 32772
WaitCry
CloseMsgOnKeyPress
Applymovement 241 mov_8
Waitmovement
Message 11 "Boss: This world cannot be molded
into the ultimate world I seek!
It’s far easier to create an entirely
new world than to change this one!
A new world in which I am the ruler
of all things! I shall become a deity!"
0030
CloseMsgOnKeyPress
Goto func_16
Waitmovement
Zoomcam?
Setvar 16536 2
Releaseall
End
Func 16:
CheckHiroPosition 32772 32773
Copyvar 32776 32772
If 32776 29
CheckLR 1 func_46
If 32776 30
CheckLR 1 func_47
If 32776 31
CheckLR 1 func_48
If 32776 32
CheckLR 1 func_49
If 32776 33
CheckLR 1 func_50
Killscript
Func 17:
CheckHiroPosition 32772 32773
Copyvar 32776 32772
If 32776 30
CheckLR 1 func_51
If 32776 31
CheckLR 1 func_52
If 32776 32
CheckLR 1 func_53
Killscript
Func 18:
Clearflag 483
CheckHiroPosition 32772 32773
Copyvar 32776 32772
If 32776 30
CheckLR 1 func_54
If 32776 31
CheckLR 1 func_55
If 32776 32
CheckLR 1 func_56
Killscript
Func 19:
StoreStarter 32780
Setvar 32772 620
If 32780 390
CheckLR 1 func_57
Setvar 32772 619
If 32780 387
CheckLR 1 func_57
Setvar 32772 607
Killscript
Func 20:
Setvar 16536 1
Clearflag 190
LostGoPc
Releaseall
End
Func 21:
CheckHiroPosition 32772 32773
Copyvar 32776 32772
If 32776 30
CheckLR 1 func_58
If 32776 31
CheckLR 1 func_59
If 32776 32
CheckLR 1 func_60
Killscript
Func 22:
Lockall
SetOwsFollow 255 0
CheckHiroPosition 32772 32773
Lockcam 32772 32773
Goto func_61
SetvarMtCoronet? 3 32780
Clearflag 190
SetvarMtCoronet? 4 32780
Return 30 32780
Fanfare 1529
Return 90 32780
Setvar 32773 23
Setvar 32774 24
Goto func_14
Message3 32772
CloseMsgOnKeyPress
Return 60 32780
PlaySound 1065
Return 90 32780
Message 25 "Boss: ...Wh-what?!"
Return 60 32780
Clearflag 492
Addpeople 9
Cryfr 480 0
Message 26 "UXIE: Piiih!"
WaitCry
Clearflag 493
Addpeople 10
Cryfr 481 0
Message 27 "MESPRIT: Piiih!"
WaitCry
Clearflag 494
Addpeople 11
Cryfr 482 0
Message 28 "AZELF: Piiih!"
WaitCry
CloseMsgOnKeyPress
SetvarMtCoronet? 5 32780
Return 30 32780
Fanfare 1530
SetvarMtCoronet? 6 32780
If 32780 0
CheckLR 1 func_62
Return 60 32780
Removepeople 9
Return 30 32780
Removepeople 11
Return 30 32780
Removepeople 10
Return 30 32780
Goto func_63
CheckHiroPosition 32772 32773
ChangeOwPosition 10 32772 31
Clearflag 493
Addpeople 10
Cryfr 481 0
WaitCry
Return 60 32780
Removepeople 10
SwitchMusic 0 60
Return 30 32780
Restart
Message 29 "Boss: ...!
The Red Chain!
It crumbled away to nothing?!
But why?
Why would MESPRIT, the Pokémon of
Lake Verity, appear by your side?
But never mind that!
It’s all destroyed!\fMy galaxy is gone!
...I won’t allow this...
I will capture those three again
and craft another Red Chain!
But before I even think about that,
I’m going to completely crush you!"
0030
CloseMsgOnKeyPress
TrainerBattle 404 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_64
Restart
Setvar 32773 30
Setvar 32774 31
Goto func_14
Message3 32772
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Removepeople 0
Removepeople 3
Removepeople 4
Removepeople 2
Removepeople 1
Fadescreen 6 1 1 0
Resetscreen
Setflag 2438
Jump func_65
Func 23:
CheckHiroPosition 32772 32773
Copyvar 32776 32772
If 32776 30
CheckLR 1 func_66
If 32776 31
CheckLR 1 func_67
If 32776 32
CheckLR 1 func_68
Killscript
Func 24:
LostGoPc
Releaseall
End
Func 25:
Setvar 32773 34
Setvar 32774 35
Goto func_14
Message3 32772
0030
CloseMsgOnKeyPress
Goto func_69
Applymovement 8 mov_12
Applymovement 7 mov_13
Waitmovement
SetOwsFollow 255 1
Setvarhero 1
Message 41 "Rowan: \v0103\z0001!
I don’t know how...
You were magnificent.
Truly, you were incredible.
I’ve lived for sixty years, but I’ve
never been thrilled like this!"
Setvarhero 1
Setvar 32773 43
Setvar 32774 42
Goto func_70
Message3 32772
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
Lockcam 32772 32773
Applymovement 7 mov_14
Waitmovement
Applymovement 7 mov_15
Applymovement 255 mov_15
Waitmovement
SetOwsFollow 8 1
Message 44 "Rowan: No one has the right to take
away anyone’s future or anyone’s\fworld..."
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Warp 220 0 31 52 1
SetOwPosition 7 32 10 51 1
SetOwPosition 8 30 10 51 1
Clearflag 509
Clearflag 510
Clearflag 511
Setflag 2433
Setflag 491
Clearflag 688
Setflag 350
Setflag 691
Setflag 685
Setvar 16536 4
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 26:
Goto func_69
Applymovement 8 mov_12
Applymovement 7 mov_13
Waitmovement
SetOwsFollow 255 1
Setvarhero 1
Message 41 "Rowan: \v0103\z0001!
I don’t know how...
You were magnificent.
Truly, you were incredible.
I’ve lived for sixty years, but I’ve
never been thrilled like this!"
Setvarhero 1
Setvar 32773 43
Setvar 32774 42
Goto func_70
Message3 32772
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
Lockcam 32772 32773
Applymovement 7 mov_14
Waitmovement
Applymovement 7 mov_15
Applymovement 255 mov_15
Waitmovement
SetOwsFollow 8 1
Message 44 "Rowan: No one has the right to take
away anyone’s future or anyone’s\fworld..."
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Warp 220 0 31 52 1
SetOwPosition 7 32 10 51 1
SetOwPosition 8 30 10 51 1
Clearflag 509
Clearflag 510
Clearflag 511
Setflag 2433
Setflag 491
Clearflag 688
Setflag 350
Setflag 691
Setflag 685
Setvar 16536 4
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 27:
Checkgender 32780
If 32780 0
CheckLR 1 func_71
If 32780 1
CheckLR 1 func_72
End
Func 28:
Setvar 32773 40
Setvar 32774 39
Goto func_70
Message3 32772
Killscript
Func 29:
Setvarhero 0
Fanfare 1500
Lockall
Faceplayer
Message 45 "Rowan: \v0103\z0000, I’ll be looking
forward to seeing your Pokédex.
Go wherever you’ve never visited
before.
That way, you should see Pokémon
you haven’t yet seen."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 30:
LostGoPc
Releaseall
End
Func 31:
Setvar 32773 34
Setvar 32774 35
Goto func_14
Message3 32772
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 32:
Setflag 484
Setflag 485
Setflag 483
Setflag 492
Setflag 493
Setflag 494
Killscript
Func 33:
Killscript
Func 34:
ChangeOwPosition 7 30 32
ChangeOwPosition 8 32 32
Killscript
Func 35:
Setflag 484
Setflag 485
Setflag 483
Killscript
Func 36:
Setflag 484
Setflag 485
Clearflag 482
Killscript
Func 37:
Killscript
Func 38:
Setflag 1025
Killscript
Func 39:
Killscript
Func 40:
Applymovement 241 mov_16
Killscript
Func 41:
Applymovement 241 mov_17
Killscript
Func 42:
Applymovement 241 mov_18
Killscript
Func 43:
Applymovement 241 mov_19
Killscript
Func 44:
Applymovement 241 mov_20
Killscript
Func 45:
Killscript
Func 46:
Applymovement 241 mov_21
Killscript
Func 47:
Applymovement 241 mov_22
Killscript
Func 48:
Applymovement 241 mov_23
Killscript
Func 49:
Applymovement 241 mov_24
Killscript
Func 50:
Applymovement 241 mov_25
Killscript
Func 51:
SetOwsFollow 255 2
Applymovement 4 mov_26
Applymovement 2 mov_27
Waitmovement
Killscript
Func 52:
SetOwsFollow 255 3
Applymovement 4 mov_28
Applymovement 2 mov_29
Waitmovement
Killscript
Func 53:
SetOwsFollow 255 3
Applymovement 4 mov_30
Applymovement 2 mov_31
Waitmovement
Killscript
Func 54:
ChangeOwPosition 6 31 40
Addpeople 6
Applymovement 6 mov_32
Waitmovement
SetOwsFollow 6 3
Killscript
Func 55:
ChangeOwPosition 6 30 40
Addpeople 6
Applymovement 6 mov_32
Waitmovement
SetOwsFollow 6 2
Killscript
Func 56:
ChangeOwPosition 6 31 40
Addpeople 6
Applymovement 6 mov_32
Waitmovement
SetOwsFollow 6 2
Killscript
Func 57:
Killscript
Func 58:
SetOwsFollow 255 3
SetOwsFollow 6 2
Killscript
Func 59:
SetOwsFollow 255 2
SetOwsFollow 6 3
Killscript
Func 60:
SetOwsFollow 255 2
SetOwsFollow 6 3
Killscript
Func 61:
CheckHiroPosition 32772 32773
Copyvar 32776 32772
If 32776 30
CheckLR 1 func_73
If 32776 31
CheckLR 1 func_74
If 32776 32
CheckLR 1 func_75
Killscript
Func 62:
SetvarMtCoronet? 6 32780
If 32780 0
CheckLR 1 func_62
Return 60 32780
Removepeople 9
Return 30 32780
Removepeople 11
Return 30 32780
Removepeople 10
Return 30 32780
Goto func_63
CheckHiroPosition 32772 32773
ChangeOwPosition 10 32772 31
Clearflag 493
Addpeople 10
Cryfr 481 0
WaitCry
Return 60 32780
Removepeople 10
SwitchMusic 0 60
Return 30 32780
Restart
Message 29 "Boss: ...!
The Red Chain!
It crumbled away to nothing?!
But why?
Why would MESPRIT, the Pokémon of
Lake Verity, appear by your side?
But never mind that!
It’s all destroyed!\fMy galaxy is gone!
...I won’t allow this...
I will capture those three again
and craft another Red Chain!
But before I even think about that,
I’m going to completely crush you!"
0030
CloseMsgOnKeyPress
TrainerBattle 404 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_64
Restart
Setvar 32773 30
Setvar 32774 31
Goto func_14
Message3 32772
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Removepeople 0
Removepeople 3
Removepeople 4
Removepeople 2
Removepeople 1
Fadescreen 6 1 1 0
Resetscreen
Setflag 2438
Jump func_65
Func 63:
CheckHiroPosition 32772 32773
Copyvar 32776 32772
If 32776 30
CheckLR 1 func_76
If 32776 31
CheckLR 1 func_77
If 32776 32
CheckLR 1 func_78
Killscript
Func 64:
Setvar 16536 1
LostGoPc
Releaseall
End
Func 65:
Return 90 32780
Goto func_79
Clearflag 484
Addpeople 7
Clearflag 485
Addpeople 8
Applymovement 7 mov_33
Applymovement 8 mov_34
Waitmovement
SetOwsFollow 255 1
Setvarhero 0
Setvar 32773 36
Setvar 32774 37
Goto func_14
Message3 32772
0030
Setvarhero 0
Setvarrival 1
Goto func_28
Waitbutton
CloseMsgOnKeyPress
Applymovement 255 mov_35
Waitmovement
Setvar 16536 3
Releaseall
End
Func 66:
Applymovement 255 mov_36
Killscript
Func 67:
Applymovement 255 mov_37
Killscript
Func 68:
Applymovement 255 mov_38
Killscript
Func 69:
CheckHiroPosition 32772 32773
Setvalue 32773 8
Copyvar 32776 32772
If 32776 30
CheckLR 1 func_80
If 32776 31
CheckLR 1 func_81
If 32776 32
CheckLR 1 func_82
Killscript
Func 70:
Checkgender 32780
Copyvar 32772 32773
If 32780 1
CheckLR 1 func_83
Copyvar 32772 32774
Killscript
Func 71:
Fanfare 1500
Lockall
Faceplayer
Message 46 "Dawn: ...You know, that Pokémon was
extraordinary, wasn’t it?
Was it really the Pokémon that
created the Sinnoh region...?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 72:
Fanfare 1500
Lockall
Faceplayer
Message 47 "Lucas: ...You know, that Pokémon was
extraordinary, wasn’t it?
Was it really the Pokémon that
created the Sinnoh region...?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 73:
Applymovement 241 mov_39
Waitmovement
Killscript
Func 74:
Applymovement 241 mov_40
Waitmovement
Killscript
Func 75:
Applymovement 241 mov_41
Waitmovement
Killscript
Func 76:
Applymovement 241 mov_42
Waitmovement
Killscript
Func 77:
Applymovement 241 mov_43
Waitmovement
Killscript
Func 78:
Applymovement 241 mov_44
Waitmovement
Killscript
Func 79:
CheckHiroPosition 32772 32773
Copyvar 32776 32772
If 32776 30
CheckLR 1 func_84
If 32776 31
CheckLR 1 func_85
If 32776 32
CheckLR 1 func_86
Killscript
Func 80:
SetOwPosition 7 30 10 32773 0
SetOwPosition 8 31 10 32773 0
Killscript
Func 81:
SetOwPosition 7 31 10 32773 0
SetOwPosition 8 32 10 32773 0
Killscript
Func 82:
SetOwPosition 7 32 10 32773 0
SetOwPosition 8 31 10 32773 0
Killscript
Func 83:
Killscript
Func 84:
ChangeOwPosition 7 30 40
ChangeOwPosition 8 31 40
Killscript
Func 85:
ChangeOwPosition 7 30 40
ChangeOwPosition 8 32 40
Killscript
Func 86:
ChangeOwPosition 7 31 40
ChangeOwPosition 8 32 40
Killscript
(221) D05R0115 Mt. Coronet R1-15
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(222) D06 Great Marsh
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(223) D06R0101 Great Marsh R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(224) D07 Solaceon Ruins
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(225) D07R0101 Solaceon Ruins R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Unownmsgbox 0
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(226) D07R0102 Solaceon Ruins R1-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2505
End
Script 2:
Fanfare 1500
Lockall
Unownmsgbox 0
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(227) D07R0103 Solaceon Ruins R1-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(228) D07R0104 Solaceon Ruins R1-04
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(229) D07R0105 Solaceon Ruins R1-05
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "There’s something really weird
about these ruins...
That’s why I like coming here,
but...
Come to my house after.
I’ll give you some neat Seals."
CloseMsgOnKeyPress
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
If 32780 2
CheckLR 1 func_3
If 32780 3
CheckLR 1 func_4
End
FUNCTIONS:
Func 1:
Applymovement 0 mov_1
Waitmovement
Jump func_5
Func 2:
Applymovement 0 mov_2
Waitmovement
Jump func_5
Func 3:
Applymovement 0 mov_1
Waitmovement
Jump func_5
Func 4:
Applymovement 0 mov_1
Waitmovement
Jump func_5
Func 5:
Fanfare 1539
Removepeople 0
Fanfare2 1539
Clearflag 572
Releaseall
End
(230) D07R0106 Solaceon Ruins R1-06
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(231) D07R0107 Solaceon Ruins R1-07
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(232) D07R0108 Solaceon Ruins R1-08
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(233) D07R0109 Solaceon Ruins R1-09
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(234) D07R0110 Solaceon Ruins R1-10
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(235) D07R0111 Solaceon Ruins R1-11
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(236) D07R0112 Solaceon Ruins R1-12
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(237) D07R0113 Solaceon Ruins R1-13
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(238) D07R0114 Solaceon Ruins R1-14
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(239) D07R0115 Solaceon Ruins R1-15
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(240) D07R0116 Solaceon Ruins R1-16
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Unownmsgbox 0
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(241) D07R0117 Solaceon Ruins R1-17
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(242) D07R0118 Solaceon Ruins R1-18
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(243) D09 Victory Road
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(244) D09R0101 Victory Road R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
SCRIPTS:
Script 1:
Setflag 2506
Checkflag 2404
CheckLR 0 func_1
CheckNatPokedexStatus 2 16384
If 16384 0
CheckLR 1 func_1
Setflag 668
End
Script 2:
End
Script 3:
End
Script 4:
End
Script 5:
End
Script 6:
End
Script 7:
End
Script 8:
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Let me size you up...
You’re going to become even tougher.
You’ll meet many, many Pokémon.
That’s what you should be thinking.
Eventually, the world will grow
bigger to you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
End
(245) D09R0102 Victory Road R1-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(246) D09R0103 Victory Road R1-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(247) D09R0104 Victory Road R1-04
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 1
SCRIPTS:
Script 1:
Checkflag 230
CheckLR 0 func_1
End
Script 2:
Lockall
RideBike 0
Applymovement 28 mov_1
Waitmovement
CheckHiroPosition 32772 32773
If 32773 55
CheckLR 1 func_2
If 32773 56
CheckLR 1 func_3
If 32773 57
CheckLR 1 func_4
If 32773 58
CheckLR 1 func_5
If 32773 59
CheckLR 1 func_6
If 32773 60
CheckLR 1 func_7
End
Script 3:
Lockall
Applymovement 255 mov_2
Applymovement 28 mov_3
Waitmovement
Message 4 "Marley: ...You’re going back...
Too bad... Bye-bye..."
CloseMsgOnKeyPress
Setvar 16528 0
StopFollow
Followhero 28 14
CheckHiroPosition 32772 32773
If 32773 55
CheckLR 1 func_8
If 32773 56
CheckLR 1 func_9
If 32773 57
CheckLR 1 func_10
If 32773 58
CheckLR 1 func_11
If 32773 59
CheckLR 1 func_12
If 32773 60
CheckLR 1 func_13
End
Script 4:
Lockall
StopFollow
Followhero 28 14
Applymovement 255 mov_4
Applymovement 28 mov_5
Waitmovement
Message 5 "Marley: ...Oh! This is it.
There’s a stone tablet ahead...
I wanted to see the Pokémon that
visits it, that’s all...
...I appreciate your escorting me...
...Just a little..."
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 51
CheckLR 1 func_14
If 32772 52
CheckLR 1 func_15
If 32772 53
CheckLR 1 func_16
If 32772 54
CheckLR 1 func_17
End
FUNCTIONS:
Func 1:
Setvar 16528 0
End
Func 2:
Applymovement 28 mov_6
Waitmovement
Jump func_18
Func 3:
Applymovement 28 mov_7
Waitmovement
Jump func_18
Func 4:
Applymovement 28 mov_8
Waitmovement
Jump func_18
Func 5:
Applymovement 28 mov_9
Waitmovement
Jump func_18
Func 6:
Applymovement 28 mov_10
Waitmovement
Jump func_18
Func 7:
Applymovement 28 mov_11
Waitmovement
Jump func_18
Func 8:
Applymovement 28 mov_12
Waitmovement
Jump func_19
Func 9:
Applymovement 28 mov_13
Waitmovement
Jump func_19
Func 10:
Applymovement 28 mov_14
Waitmovement
Jump func_19
Func 11:
Applymovement 28 mov_15
Waitmovement
Jump func_19
Func 12:
Applymovement 28 mov_16
Waitmovement
Jump func_19
Func 13:
Applymovement 28 mov_17
Waitmovement
Jump func_19
Func 14:
Applymovement 255 mov_18
Applymovement 28 mov_19
Waitmovement
Jump func_20
Func 15:
Applymovement 255 mov_18
Applymovement 28 mov_20
Waitmovement
Jump func_20
Func 16:
Applymovement 255 mov_18
Applymovement 28 mov_21
Waitmovement
Jump func_20
Func 17:
Applymovement 255 mov_22
Applymovement 28 mov_23
Waitmovement
Jump func_20
Func 18:
Setvarhero 0
Checkflag 223
CheckLR1 0 func_21
Checkflag 223
CheckLR1 1 func_22
Setvarhero 0
Soundfr 1153
Message 1 "\v0103\z0000 decided to go with
Marley!"
Fadedef
Setflag 223
Setvar 16528 1
Message 2 "Marley: ...Pokémon shouldn’t be
hurt... I’ll heal them..."
Waitbutton
CloseMsgOnKeyPress
Setvar 16447 610
StartFollow
Followhero 28 48
Releaseall
End
Func 19:
Releaseall
End
Func 20:
Removepeople 28
Setflag 230
Setvar 16528 2
Releaseall
End
Func 21:
Message 0 "...I’m Marley.
...You are?
Oh... \v0103\z0000, will you help me,
please?
I want to get through this tunnel.
Will you let me go with you?"
Killscript
Func 22:
Message 3 "Marley: ...You took so long...
Please, don’t make me wait...
I felt a little forlorn waiting..."
Killscript
(248) D09R0105 Victory Road R1-05
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(249) D09R0106 Victory Road R1-06
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(250) D10 Pal Park
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(251) D10R0101 Pal Park R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Setflag 2507
End
Script 2:
Fanfare 1500
Lockall
Message2 9
Return 30 32780
Message2 10
Fanfare 1501
Return 30 32780
Message2 11
Fanfare 1501
Return 30 32780
Message2 12
Fanfare 1501
Return 30 32780
Message2 13
Fanfare 1603
Return 30 32780
StopGreatMarsh 0
Setvar 16627 1
Setflag 2453
PlaySound 1069
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Fanfare 1521
Setvarhero 0
Message 5 "Ding-dong!
Congratulations!
\v0103\z0000 has successfully
caught the stocked Pokémon!"
PlaySound 1002
Soundfr 1158
Fadedef
CloseMsgOnKeyPress
Releaseall
Setvar 16627 1
Goto func_1
End
Script 4:
Fanfare 1500
Lockall
Message 8 "Would you like to retire?"
Yesnobox 32780
CloseMsgOnKeyPress
If 32780 0
CheckLR 1 func_2
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Goto func_3
CloseMsgOnKeyPress
If 32780 0
CheckLR 1 func_4
Setvar 16627 2
Releaseall
Goto func_1
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Goto func_3
CloseMsgOnKeyPress
If 32780 0
CheckLR 1 func_5
Setvar 16627 2
Releaseall
Goto func_1
End
FUNCTIONS:
Func 1:
StopGreatMarsh 1
Fadescreen 6 1 0 0
Resetscreen
Warp 393 0 7 7 1
Fadescreen 6 1 1 0
Resetscreen
Killscript
Func 2:
Setvar 16627 2
Releaseall
Goto func_1
End
Func 3:
Message 0 "You haven’t caught all your
Pokémon yet, but...
Would you like to retire from your
Catching Show?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_6
Checkgender 32780
If 32780 1
CheckLR 1 func_7
Setvarhero 0
Message 2 "That’s the spirit, \v0103\z0000!
I like how you don’t give up!"
Waitbutton
Setvar 32780 0
Killscript
Func 4:
Applymovement 255 mov_1
Waitmovement
Releaseall
End
Func 5:
Applymovement 0 mov_2
Waitmovement
Releaseall
End
Func 6:
Message 1 "I see...
I’m disappointed that you dropped
out. Make up for it next time!"
Setvar 32780 1
Killscript
Func 7:
Setvarhero 0
Message 3 "That’s the spirit, \v0103\z0000!
I like how you don’t give up!"
Waitbutton
Setvar 32780 0
Killscript
(252) D11 Amity Square
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(253) D11R0101 Amity Square R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 4
Script 3
Script 4
Script 5
Script 5
Script 5
Script 5
Script 5
Script 5
Script 5
Script 5
Script 5
Script 5
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 13
Script 14
Script 15
SCRIPTS:
Script 1:
Setflag 2508
Setflag 512
Setflag 513
Setflag 585
Setflag 586
Setflag 587
Setflag 588
Setflag 589
Setflag 590
Setflag 591
Setflag 592
Setflag 593
End
Script 2:
Lockall
Setvar 32769 1
Applymovement 255 mov_1
Waitmovement
Jump func_1
Script 3:
Lockall
Setvar 32769 2
Applymovement 255 mov_2
Waitmovement
Jump func_1
Script 4:
Lockall
Fadescreen 6 1 0 0
Resetscreen
StopFollow
Copyvar 32776 16538
If 32776 25
CheckLR 1 func_2
If 32776 255
CheckLR 1 func_3
If 32776 35
CheckLR 1 func_4
If 32776 54
CheckLR 1 func_5
If 32776 417
CheckLR 1 func_6
If 32776 425
CheckLR 1 func_7
If 32776 427
CheckLR 1 func_8
If 32776 440
CheckLR 1 func_9
If 32776 39
CheckLR 1 func_10
If 32776 300
CheckLR 1 func_11
If 32776 285
CheckLR 1 func_12
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Setvarpokenick 0 16541
0216 32780
If 32780 200
CheckLR 4 func_13
Jump func_14
Script 6:
Setvar 16394 0
Jump func_15
Script 7:
Setvar 16394 1
Jump func_15
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 23 "Those are ruins from a time long,
long ago."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 425 0
Message 24 "DRIFLOON: Foon!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
Message 25 "I come here with my HAPPINY
every single day!
I can let it run free without any
worries at all."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Faceplayer
Message 26 "HAPPINY appears to be drowsy."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 12:
Fanfare 1500
Lockall
Faceplayer
Message 27 "Ooh, I just can’t believe it!
I’m so overjoyed with my PIKACHU!
Wherever I go, my PIKACHU follows
me without hesitation!
Ahaha! It’s just the two of us!
Woohoo!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 28 "PIKACHU: Pikka pika!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 14:
Fanfare 1500
Lockall
Faceplayer
Message 29 "You should talk to your Pokémon.
It can occasionally find things."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 15:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 35 0
Message 30 "There is something shiny in CLEFAIRY’s
hands..."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR 1 func_16
Jump func_17
Func 2:
Removepeople 5
Jump func_18
Func 3:
Removepeople 6
Jump func_18
Func 4:
Removepeople 15
Jump func_18
Func 5:
Removepeople 16
Jump func_18
Func 6:
Removepeople 17
Jump func_18
Func 7:
Removepeople 18
Jump func_18
Func 8:
Removepeople 19
Jump func_18
Func 9:
Removepeople 20
Jump func_18
Func 10:
Removepeople 21
Jump func_18
Func 11:
Removepeople 22
Jump func_18
Func 12:
Removepeople 23
Jump func_18
Func 13:
Copyvar 32768 16539
StartAmity?
Goto func_19
If 32768 0
CheckLR 1 func_20
Jump func_21
Func 14:
CheckIdPlayer 32780 9
If 32780 0
CheckLR 1 func_22
If 32780 1
CheckLR 1 func_23
If 32780 2
CheckLR 1 func_24
If 32780 3
CheckLR 1 func_25
If 32780 4
CheckLR 1 func_26
If 32780 5
CheckLR 1 func_27
If 32780 6
CheckLR 1 func_28
If 32780 7
CheckLR 1 func_29
Jump func_30
Func 15:
Fanfare 1500
Lockall
Faceplayer
Setvarpokenick 0 16541
CheckIdPlayer 32780 6
If 32780 0
CheckLR1 1 func_31
If 32780 1
CheckLR1 1 func_32
If 32780 2
CheckLR1 1 func_33
If 32780 3
CheckLR1 1 func_34
If 32780 4
CheckLR1 1 func_35
If 32780 5
CheckLR1 1 func_36
If 16394 0
CheckLR 1 func_37
Jump func_38
Func 16:
Setvar 16384 1
CheckPokeParty 32780 25
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 35
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 54
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 417
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 425
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 427
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 440
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 39
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 255
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 300
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 285
If 32780 1
CheckLR 1 func_39
Message 1 "In Amity Square, you may go for
a stroll with a cute Pokémon. Okey?
The permitted Pokémon are: PIKACHU,
CLEFAIRY, PSYDUCK, PACHIRISU,
HAPPINY, BUNEARY, and DRIFLOON,
JIGGLYPUFF, TORCHIC, SKITTY,\fand SHROOMISH.
Please do come back with one!
Okey?"
CloseMsgOnKeyPress
Applymovement 255 mov_3
Waitmovement
Releaseall
End
Func 17:
Setvar 16384 0
CheckPokeParty 32780 25
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 35
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 54
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 417
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 425
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 427
If 32780 1
CheckLR 1 func_39
CheckPokeParty 32780 440
If 32780 1
CheckLR 1 func_39
Message 0 "In Amity Square, you may go for
a stroll with a cute Pokémon.
The permitted Pokémon are: PIKACHU,
CLEFAIRY, PSYDUCK, PACHIRISU,\fHAPPINY, BUNEARY, and DRIFLOON.
Please do come back with one!"
CloseMsgOnKeyPress
Applymovement 255 mov_3
Waitmovement
Releaseall
End
Func 18:
Fadescreen 6 1 1 0
Resetscreen
Setvar 16537 0
Message 6 "Are you feeling refreshed?
Please come again! Okey?"
CloseMsgOnKeyPress
Applymovement 255 mov_3
Waitmovement
Releaseall
End
Func 19:
CheckIdPlayer 32780 5
If 32780 0
CheckLR1 1 func_40
If 32780 0
CheckLR1 5 func_41
0217 16540 16538
Jump func_42
Func 20:
Copyvar 32772 16543
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_43
Cryfr 16538 0
Message 22 "Oh?
\v0101\z0000 is holding something!"
WaitCry
SetvarAmityPokemon 1 32772
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Func 21:
Copyvar 32772 16540
Setvar 32773 1
CheckAccessories 32772 32773 32780
If 32780 0
CheckLR 1 func_44
Cryfr 16538 0
Message 22 "Oh?
\v0101\z0000 is holding something!"
WaitCry
SetvarAmityPokemon 2 32772
Callstd 223 7
CloseMsgOnKeyPress
Releaseall
End
Func 22:
Setvarpokenick 0 16541
Cryfr 16538 0
Message 13 "\v0101\z0000 is happily keeping up."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 23:
Setvarpokenick 0 16541
Cryfr 16538 0
Message 14 "\v0101\z0000 appears to be very
happy."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 24:
Setvarpokenick 0 16541
Cryfr 16538 0
Message 15 "\v0101\z0000 appears to be feeling
good."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 25:
Setvarpokenick 0 16541
Cryfr 16538 0
Message 16 "\v0101\z0000 is looking endearingly
at you."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 26:
Setvarpokenick 0 16541
Cryfr 16538 0
Message 17 "\v0101\z0000 is picking at the ground
for some reason..."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 27:
Setvarpokenick 0 16541
Cryfr 16538 0
Message 18 "\v0101\z0000 almost tripped!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 28:
Setvarpokenick 0 16541
Cryfr 16538 0
Message 19 "\v0101\z0000 is skipping happily."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 29:
Setvarpokenick 0 16541
Cryfr 16538 0
Message 20 "\v0101\z0000 seems to be so happy
it can’t keep still."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 30:
Setvarpokenick 0 16541
Cryfr 16538 0
Message 21 "\v0101\z0000 seems to be enjoying
the walk."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 31:
Message 7 "Your \v0101\z0000 looks quite pleased
following you around.
It really is adorable!"
Killscript
Func 32:
Message 8 "Okey? The owner of Amity Square?
I’m sure the owner is somewhere on
the grounds.
Seeing Trainers with their Pokémon
makes our owner happy."
Killscript
Func 33:
Message 9 "You may find useful items on the ground.
They’re quite small, however.
Your Pokémon may find them.
You should try talking to your
Pokémon every so often. Okey?"
Killscript
Func 34:
Message 10 "Are you enjoying your stroll?
You should try talking to your
Pokémon. It will be happy you did."
Killscript
Func 35:
Message 11 "It makes me happy seeing all the
cute Pokémon and their kind\fTrainers."
Killscript
Func 36:
Message 12 "You may spend all the time you
like in Amity Square. Okey?"
Killscript
Func 37:
Waitbutton
CloseMsgOnKeyPress
Applymovement 0 mov_4
Waitmovement
Releaseall
End
Func 38:
Waitbutton
CloseMsgOnKeyPress
Applymovement 1 mov_5
Waitmovement
Releaseall
End
Func 39:
Setvar 16394 0
Checkpartynumber 16395
Setvar 16396 0
CheckPokeEgg 16394 32780
If 32780 0
CheckLR 1 func_45
If 16384 0
CheckLR1 1 func_46
If 16384 1
CheckLR1 1 func_47
If 32780 0
CheckLR 1 func_45
Setvarpokenick 0 16394
If 16396 0
CheckLR 1 func_48
Jump func_49
Func 40:
Setvar 16539 0
Killscript
Func 41:
Setvar 16539 1
Killscript
Func 42:
CheckIdPlayer 32780 100
If 32780 20
CheckLR 0 func_50
If 32780 35
CheckLR 0 func_51
If 32780 50
CheckLR 0 func_52
If 32780 65
CheckLR 0 func_53
If 32780 72
CheckLR 0 func_54
If 32780 79
CheckLR 0 func_55
If 32780 86
CheckLR 0 func_56
If 32780 93
CheckLR 0 func_57
Jump func_58
Func 43:
Copyvar 32772 16540
Setvar 32773 1
CheckAccessories 32772 32773 32780
If 32780 0
CheckLR 1 func_14
Jump func_59
Func 44:
Copyvar 32772 16543
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_14
Jump func_60
Func 45:
Setvalue 16394 1
Copyvalue 16395 1
If 16395 0
CheckLR 5 func_61
Message 5 "I see. Please come back if you happen
to have a change of heart. Okey?"
CloseMsgOnKeyPress
Applymovement 255 mov_3
Waitmovement
Releaseall
End
Func 46:
CheckPokeEgg 16394 32780
If 32780 25
CheckLR 1 func_62
If 32780 35
CheckLR 1 func_62
If 32780 54
CheckLR 1 func_62
If 32780 417
CheckLR 1 func_62
If 32780 425
CheckLR 1 func_62
If 32780 427
CheckLR 1 func_62
If 32780 440
CheckLR 1 func_62
Setvar 32780 0
Killscript
Func 47:
CheckPokeEgg 16394 32780
If 32780 25
CheckLR 1 func_62
If 32780 35
CheckLR 1 func_62
If 32780 54
CheckLR 1 func_62
If 32780 417
CheckLR 1 func_62
If 32780 425
CheckLR 1 func_62
If 32780 427
CheckLR 1 func_62
If 32780 440
CheckLR 1 func_62
If 32780 39
CheckLR 1 func_62
If 32780 255
CheckLR 1 func_62
If 32780 300
CheckLR 1 func_62
If 32780 285
CheckLR 1 func_62
Setvar 32780 0
Killscript
Func 48:
Setvalue 16396 1
Message 2 "In Amity Square, you may go for
a stroll with a cute Pokémon.
Okey? Would you like to go for
a stroll with your \v0101\z0000?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_63
Jump func_45
Func 49:
Setvalue 16396 1
Message 4 "Oh, okey? Then you would rather go
for a stroll with your \v0101\z0000?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_63
Jump func_45
Func 50:
Setvar 16543 176
Killscript
Func 51:
Setvar 16543 175
Killscript
Func 52:
Setvar 16543 177
Killscript
Func 53:
Setvar 16543 178
Killscript
Func 54:
Setvar 16543 179
Killscript
Func 55:
Setvar 16543 180
Killscript
Func 56:
Setvar 16543 181
Killscript
Func 57:
Setvar 16543 182
Killscript
Func 58:
Setvar 16543 183
Killscript
Func 59:
Cryfr 16538 0
Message 22 "Oh?
\v0101\z0000 is holding something!"
WaitCry
SetvarAmityPokemon 2 32772
Callstd 223 7
CloseMsgOnKeyPress
Releaseall
End
Func 60:
Cryfr 16538 0
Message 22 "Oh?
\v0101\z0000 is holding something!"
WaitCry
SetvarAmityPokemon 1 32772
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Func 61:
CheckPokeEgg 16394 32780
If 32780 0
CheckLR 1 func_45
If 16384 0
CheckLR1 1 func_46
If 16384 1
CheckLR1 1 func_47
If 32780 0
CheckLR 1 func_45
Setvarpokenick 0 16394
If 16396 0
CheckLR 1 func_48
Jump func_49
Func 62:
Setvar 32780 1
Killscript
Func 63:
HealPkmn
Fadescreen 6 1 0 0
Resetscreen
Copyvar 16541 16394
CheckPokeEgg 16394 16538
Copyvar 32776 16538
If 32776 25
CheckLR 1 func_64
If 32776 255
CheckLR 1 func_65
If 32776 35
CheckLR 1 func_66
If 32776 54
CheckLR 1 func_67
If 32776 417
CheckLR 1 func_68
If 32776 425
CheckLR 1 func_69
If 32776 427
CheckLR 1 func_70
If 32776 440
CheckLR 1 func_71
If 32776 39
CheckLR 1 func_72
If 32776 300
CheckLR 1 func_73
If 32776 285
CheckLR 1 func_74
Fadescreen 6 1 1 0
Resetscreen
End
Func 64:
Setvar 32770 5
Clearflag 512
Jump func_75
Func 65:
Setvar 32770 6
Clearflag 513
Jump func_75
Func 66:
Setvar 32770 15
Clearflag 585
Jump func_75
Func 67:
Setvar 32770 16
Clearflag 586
Jump func_75
Func 68:
Setvar 32770 17
Clearflag 587
Jump func_75
Func 69:
Setvar 32770 18
Clearflag 588
Jump func_75
Func 70:
Setvar 32770 19
Clearflag 589
Jump func_75
Func 71:
Setvar 32770 20
Clearflag 590
Jump func_75
Func 72:
Setvar 32770 21
Clearflag 591
Jump func_75
Func 73:
Setvar 32770 22
Clearflag 592
Jump func_75
Func 74:
Setvar 32770 23
Clearflag 593
Jump func_75
Func 75:
Addpeople 32770
If 32769 1
CheckLR1 1 func_76
If 32769 2
CheckLR1 1 func_77
Fadescreen 6 1 1 0
Resetscreen
Setvar 16537 1
StartAmity?
Goto func_19
SetvarAmityPokemon 0 16541
Message 3 "Please do enjoy your time together,
just the two of you! Okey?"
CloseMsgOnKeyPress
Applymovement 255 mov_6
Applymovement 32770 mov_6
Waitmovement
StartFollow
Followhero 32770 48
Releaseall
End
Func 76:
SetOwPosition 32770 12 2 47 2
Killscript
Func 77:
SetOwPosition 32770 51 2 47 3
Killscript
(254) D12R0101 Ravaged Path R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setflag 2509
End
FUNCTIONS:
None
(255) D13 Floaroma Meadow
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(256) D13R0101 Floaroma Meadow R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Setflag 2510
End
Script 2:
Lockall
Goto func_1
TrainerBattle 296 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
Goto func_3
TrainerBattle 297 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
Goto func_4
Setflag 2441
Releaseall
End
Script 3:
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 10 "Honey can attract Pokémon if it’s
slathered on a tree and left a while.
Would you like to buy some Honey
for a mere $100?"
ShowMoney 20 2
Yesnobox 32780
If 32780 1
CheckLR 1 func_5
CheckMoney 32780 100 0
If 32780 0
CheckLR 1 func_6
Setvar 32772 94
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_7
TakeMoney 100 0
UpdateMoney
Callstd 252 7
HideMoney
CloseMsgOnKeyPress
Releaseall
End
Script 5:
CallMsgBox 271 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Setvar 32772 438
Setvar 32773 1
Callstd 252 7
CloseMsgOnKeyPress
Setflag 159
Removepeople 3
Releaseall
End
FUNCTIONS:
Func 1:
Message 0 "Grunt 1: Enough arguing!
Hand over that sweet Honey!"
Message 1 "Grunt 2: Do as we say!
Team Galactic will have that Honey!
We must have it to attract Pokémon
in great numbers!"
Applymovement 0 mov_1
Applymovement 1 mov_1
Waitmovement
Message 2 "Grunt 1: Hey! This kid is a witness!
What’ll we do?"
Message 3 "Grunt 2: We don’t need the brat
running off to get help...
The solution’s simple!
We ensure the brat stays quiet!"
CloseMsgOnKeyPress
Killscript
Func 2:
LostGoPc
Releaseall
End
Func 3:
Applymovement 0 mov_2
Waitmovement
Message 4 "Grunt 1: This is so lame...
They’re going to dock my pay!"
CloseMsgOnKeyPress
Applymovement 0 mov_3
Waitmovement
Message 5 "Grunt 2: I’m up next!
Heheheh...
Battling you right after my cohort
weakened you gives me the edge!"
CloseMsgOnKeyPress
Killscript
Func 4:
Message 6 "Grunt 1: This brat’s tough!
Like, really, really tough!
Tougher than I can put into words,
and I know a lot of words!
We’re done for here... Let’s get back
to the Valley Windworks."
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Removepeople 0
Removepeople 1
Setvar 16617 1
Fadescreen 6 1 1 0
Resetscreen
Clearflag 444
Addpeople 3
Applymovement 2 mov_4
Waitmovement
Removepeople 3
Message 7 "Oh, what’s this thing?
They seem to have forgotten it...
It’s a Works Key...
It must be for the Valley Windworks!
It’s of no use to me.
You may as well have it."
Setvar 32772 438
Setvar 32773 1
Callstd 252 7
Setflag 159
Message 8 "Thank you!
You surely saved me.
Those goons were trying to rob me
of my sweet, sweet Honey.
They sure were weird, though.
You saw how they were dressed.
What they were saying didn’t make
a whole lot of sense, either.
Oh! I need to thank you!
Will you take this as my thanks?"
Setvar 32772 94
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_8
Callstd 252 7
Message 9 "If you slather that Honey on
a sweet-smelling tree, it might\fattract Pokémon."
Jump func_9
Func 5:
Message 14 "Oopsy!
Well, come again."
Waitbutton
HideMoney
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 13 "Oopsy!
You don’t have enough money."
Waitbutton
HideMoney
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 12 "Oopsy!
You can’t hold any more."
Waitbutton
HideMoney
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Callstd 225 7
Message 12 "Oopsy!
You can’t hold any more."
Setflag 160
Waitbutton
CloseMsgOnKeyPress
Killscript
Func 9:
Setflag 160
Waitbutton
CloseMsgOnKeyPress
Killscript
(257) D13R0102 Floaroma Meadow R1-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The flowers that grow in the fields
here are special.
Do you see how they’re more vivid
than flowers elsewhere in Sinnoh?
You can thank Pokémon for that."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "If you put Honey on a tree, check
back later to see if it’s rustling.
If it is, it’s quite often a rare
Pokémon.
It gets my hopes up if I see that
happening."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(258) D14R0101 Oreburgh Gate R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setflag 2511
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 0 32780
If 32780 0
CheckLR 1 func_1
Message 2 "Oh! Good golly!
That’s Oreburgh City’s Gym Badge!
All right! Now you can use the hidden
move Rock Smash on small boulders!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Lockall
Applymovement 10 mov_1
Applymovement 255 mov_2
Waitmovement
Message 0 "Oh, lookie there!
You’ve got a Pokétch!
Hmm... You’re still a pretty new
Trainer, aren’t you?
But it’s all good! You’re a new
fellow friend of Pokémon!
So, let me make a gift of this
Hidden Machine to you!"
Setvar 32772 425
Setvar 32773 1
Callstd 252 7
Goto func_2
Message 1 "That Hidden Machine, or HM for short,
contains the hidden move Rock Smash.
A Pokémon learning Rock Smash can
smash small boulders in the field.
But the Trainer has to have
the Gym Badge from Oreburgh City.
If you don’t have that Badge, you
can’t make a Pokémon use the hidden
move Rock Smash outside of battle."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Checkflag 147
CheckLR 1 func_3
Message 0 "Oh, lookie there!
You’ve got a Pokétch!
Hmm... You’re still a pretty new
Trainer, aren’t you?
But it’s all good! You’re a new
fellow friend of Pokémon!
So, let me make a gift of this
Hidden Machine to you!"
Setvar 32772 425
Setvar 32773 1
Callstd 252 7
Goto func_2
Jump func_3
Func 2:
Setflag 147
Setvar 16531 2
Killscript
Func 3:
Message 1 "That Hidden Machine, or HM for short,
contains the hidden move Rock Smash.
A Pokémon learning Rock Smash can
smash small boulders in the field.
But the Trainer has to have
the Gym Badge from Oreburgh City.
If you don’t have that Badge, you
can’t make a Pokémon use the hidden\fmove Rock Smash outside of battle."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(259) D14R0102 Oreburgh Gate R1-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Do you see those bumps on the
ground?
It feels awesome taking those fast
on a Bicycle."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(260) D15 Fullmoon Island
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2512
ShayminAnm 0 1
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckFacePosition 32772
CheckItem 453 1 32780
If 32780 1
CheckLR 1 func_1
Message 1 "Should we sail back to Canalave?"
Yesnobox 32780
CloseMsgOnKeyPress
If 32780 0
CheckLR 1 func_2
Jump func_3
FUNCTIONS:
Func 1:
Message 0 "That Pokémon you met was the
Lunar Pokémon...
I’ve heard tales of it flying from
place to place throughout Sinnoh.
Oh! That sparkle...
So, that’s the Lunar Wing...
Thank you... That will wake my son
from the nightmare..."
CloseMsgOnKeyPress
Jump func_2
Func 2:
Goto func_4
If 32772 1
CheckLR1 1 func_5
If 32772 3
CheckLR1 1 func_6
If 32772 0
CheckLR1 1 func_7
ShipAnm 512 33 44 750
Releaseall
End
Func 3:
Message 3 "All right, then. Tell me if you’d like
to return to Canalave."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Applymovement 0 mov_1
Waitmovement
Fanfare 1539
Applymovement 0 mov_2
Waitmovement
Killscript
Func 5:
Applymovement 255 mov_3
Waitmovement
Fanfare 1539
Applymovement 255 mov_2
Waitmovement
Killscript
Func 6:
Applymovement 255 mov_4
Waitmovement
Fanfare 1539
Applymovement 255 mov_2
Waitmovement
Killscript
Func 7:
Applymovement 255 mov_5
Waitmovement
Fanfare 1539
Applymovement 255 mov_2
Waitmovement
Killscript
(261) D15R0101 Fullmoon Island R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
End
Script 2:
Lockall
Fanfare 1500
WaitFanfare 1500
Pokepic 488 1
0030
Hidepic
Cryfr 488 0
CheckFacePosition 32780
If 32780 0
CheckLR1 1 func_1
Release 0
CresseliaAnm 0 6 8
Lock 0
Setflag 621
Removepeople 0
Clearflag 1078
Addpeople 1
ActSwarmPoke 1
Setflag 287
Message 0 "The Pokémon flew off somewhere...
There is something sparkling where
the Pokémon once was..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
ChangeOwPosition 1 16 14
Applymovement 0 mov_1
Waitmovement
Killscript
(262) D16 Stark Mountain
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2513
End
Script 2:
CallMsgBox 512 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(263) D16R0101 Stark Mountain R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setflag 2514
Checkflag 219
CheckLR1 1 func_1
If 16542 1
CheckLR 4 func_2
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
If 16542 1
CheckLR 4 func_3
Checkflag 219
CheckLR 1 func_4
Setflag 219
Setvarrival 0
Setvarhero 1
Message 0 "\v0103\z0000: Darn it!
What was that all about?!
Oh, hey, \v0103\z0001.
That Buck guy wiped us!
Oh, man... There’s always tough
Trainers around everywhere.
But you know? Losing means I have
room to become even tougher.
That’s why there’s the Battle Tower
in the Battle Zone."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Lockall
Applymovement 14 mov_1
Waitmovement
Setvarrival 0
Setvarhero 1
Message 0 "\v0103\z0000: Darn it!
What was that all about?!
Oh, hey, \v0103\z0001.
That Buck guy wiped us!
Oh, man... There’s always tough
Trainers around everywhere.
But you know? Losing means I have
room to become even tougher.
That’s why there’s the Battle Tower
in the Battle Zone."
CloseMsgOnKeyPress
Applymovement 14 mov_2
Waitmovement
Removepeople 14
Releaseall
End
Script 4:
Setvarrival 0
Setvarhero 1
Message 2 "\v0103\z0000: Hey, \v0103\z0001!
Are you still raising your Pokémon?
Me? You need to ask? Of course I am.
They’re my partners!
I’m going to rule at the Battle Tower
with them.
I’ll prove how strong we’ve become
and totally shock the guy there."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 503
Killscript
Func 2:
Setflag 503
If 16654 1
CheckLR 4 func_5
End
Func 3:
Setvarrival 0
Setvarhero 1
Message 2 "\v0103\z0000: Hey, \v0103\z0001!
Are you still raising your Pokémon?
Me? You need to ask? Of course I am.
They’re my partners!
I’m going to rule at the Battle Tower
with them.
I’ll prove how strong we’ve become
and totally shock the guy there."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Setvarrival 0
Message 1 "\v0103\z0000: Darn it!
I’m still choked up from losing.
But you know? Losing means I have
room to become even tougher.
That’s why there’s the Battle Tower
in the Battle Zone."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
CheckPokemart 16384
If 16384 1
CheckLR 1 func_6
If 16384 2
CheckLR 1 func_6
If 16384 3
CheckLR 1 func_6
If 16384 4
CheckLR 1 func_6
If 16384 5
CheckLR 1 func_6
End
Func 6:
Clearflag 503
End
(264) D16R0102 Stark Mountain R1-02
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 6
Script 1
SCRIPTS:
Script 1:
If 16532 2
CheckLR 0 func_1
End
Script 2:
Lockall
RideBike 0
Applymovement 14 mov_1
Waitmovement
Setvarhero 0
Checkflag 221
CheckLR1 0 func_2
Checkflag 221
CheckLR1 1 func_3
Setvarhero 0
Soundfr 1153
Message 1 "\v0103\z0000 decided to go with
Buck!"
Fadedef
Setflag 221
Setvar 16532 1
Message 2 "Buck: You won’t regret teaming up!
I’ll keep your Pokémon healthy!"
Waitbutton
CloseMsgOnKeyPress
Setvar 16447 611
StartFollow
Followhero 14 48
Releaseall
End
Script 3:
Lockall
Applymovement 14 mov_2
Applymovement 255 mov_3
Waitmovement
Message 4 "Buck: Whoa, wait up!
I can’t go on by myself if you leave
me now.
Well, if you gotta go, you gotta go.
I’ll stick around here for you."
CloseMsgOnKeyPress
Setvar 16532 0
StopFollow
Followhero 14 15
Applymovement 14 mov_4
Waitmovement
Releaseall
End
Script 4:
Lockall
StopFollow
Followhero 14 15
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_4
Jump func_5
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 6 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 7 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvar 16532 0
End
Func 2:
Message 0 "Buck: Hey!
\v0103\z0000, right?
Your zippity little buddy challenged
me to a battle earlier.
Yeah, I owned the little dude.
Made sure he was taught a lesson.
But I don’t know if I could beat
him again the next time.
Seriously, you’re bound to run into
tough Trainers wherever you go!
Anyway, I found out about this place,
but the Pokémon here are tough...
What do you say we team up and
go together?"
Killscript
Func 3:
Message 3 "Buck: So, yeah, the Pokémon here
are tough...
What do you say we team up and
go together?"
Killscript
Func 4:
Applymovement 14 mov_5
Applymovement 255 mov_6
Waitmovement
Jump func_6
Func 5:
Applymovement 14 mov_7
Applymovement 255 mov_6
Waitmovement
Jump func_6
Func 6:
Applymovement 14 mov_8
Waitmovement
Setvarhero 0
Message 5 "Buck: There we go!
There’s the exit!
My instincts tell me the volcano’s
treasure is just ahead of us.
See you around, \v0103\z0000!
You might be the toughest besides me!"
CloseMsgOnKeyPress
Applymovement 14 mov_9
Waitmovement
WaitFanfare 1500
Fanfare 1539
Removepeople 14
WaitFanfare 1539
Setvar 16532 2
Releaseall
End
(265) D16R0103 Stark Mountain R1-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
SCRIPTS:
Script 1:
Copyvar 16384 16542
If 16542 1
CheckLR1 4 func_1
Goto func_2
End
Script 2:
Checkflag 142
CheckLR 1 func_3
End
Script 3:
Lockall
Applymovement 2 mov_1
Waitmovement
Setvarhero 1
Message 0 "Buck: Heheh!
Check this out, \v0103\z0001!
This is the Magma Stone, the treasure
of Stark Mountain!
Since I found it, that makes me the
greatest Trainer out of everyone!
Thanks, you all helped it happen!"
Applymovement 2 mov_2
Waitmovement
Message 1 "Buck: Oof!"
CloseMsgOnKeyPress
Removepeople 3
WaitFanfare 1500
Fanfare 1628
CmrBmpEffect 0
Fanfare2 1628
Applymovement 2 mov_1
Waitmovement
Message 2 "Buck: Whoa! Wow!
Hehehe! That was wicked!
The volcano’s in shock from that!
It might be so shocked, it’ll erupt!
Nah, that can’t happen!
See ya, \v0103\z0001!
Say hi to that zippity Trainer buddy!"
CloseMsgOnKeyPress
Applymovement 2 mov_3
Applymovement 255 mov_4
Waitmovement
Removepeople 2
Setvar 16542 1
Setflag 214
Clearflag 500
Releaseall
End
Script 4:
Setvarhero 1
Fanfare 1500
Lockall
Faceplayer
Message 2 "Buck: Whoa! Wow!
Hehehe! That was wicked!
The volcano’s in shock from that!
It might be so shocked, it’ll erupt!
Nah, that can’t happen!
See ya, \v0103\z0001!
Say hi to that zippity Trainer buddy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Lockall
Fanfare 1500
WaitFanfare 1500
Checkflag 215
CheckLR1 0 func_4
Setvar 16542 2
Cryfr 485 0
Message 3 "Gwogobo gwobobobo!"
CloseMsgOnKeyPress
Setflag 142
WildBattle2 485 70 31 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_5
CheckTrainerStatus2 32780
If 32780 1
CheckLR 1 func_6
Setflag 288
Setflag 2435
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 505
Killscript
Func 2:
Checkflag 288
CheckLR 1 func_7
0166 16384
If 16384 0
CheckLR 1 func_7
CheckNatPokedexStatus 2 16384
If 16384 0
CheckLR 1 func_7
Checkflag 293
CheckLR 0 func_7
If 16542 1
CheckLR 5 func_7
Clearflag 507
Killscript
Func 3:
Setflag 507
Removepeople 1
Clearflag 142
End
Func 4:
Setflag 215
Killscript
Func 5:
Setvar 16542 1
LostGoPc
Releaseall
End
Func 6:
Message 4 "HEATRAN disappeared into
the volcano..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Setflag 507
Killscript
(266) D17 Sendoff Spring
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(267) D17R0101 Sendoff Spring Turnback Cave-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(268) D17R0102 Sendoff Spring Turnback Cave-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2516
Goto func_1
CheckTurnBack 16651 16652
End
Script 2:
Checkflag 289
CheckLR 1 func_2
Fanfare 1500
Lockall
Message 0 "...Past three pillars...
to the sleeping...
...before 30 is surpassed..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvar 16651 0
Setvar 16652 0
Killscript
Func 2:
Fanfare 1500
Lockall
Message 1 "...Past three pillars...
offer up...to the...\f...before 30 is surpassed..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(269) D17R0103 Sendoff Spring Turnback Cave-03
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Goto func_1
CheckTurnBack 16651 16652
End
Script 2:
Fanfare 1500
Lockall
Copyvar 32772 16651
Copyvar 32773 16652
Setvarnum 0 32772
Setvarnum 1 32773
Message 0 "\v0133\z0000
\v0133\z0001"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvalue 16651 1
Setvalue 16652 1
Killscript
(270) D17R0104 Sendoff Spring Turnback Cave-04
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 1
SCRIPTS:
Script 1:
Checkflag 289
CheckLR1 0 func_1
End
Script 2:
Checkflag 142
CheckLR 1 func_2
End
Script 3:
Lockall
Fanfare 1500
WaitFanfare 1500
Cryfr 487 0
Message 0 "...Bishaan!"
CloseMsgOnKeyPress
Setflag 142
WildBattle2 487 70 31 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_3
CheckTrainerStatus2 32780
If 32780 1
CheckLR 1 func_4
Setflag 289
Setflag 622
Clearflag 662
Releaseall
End
Script 4:
Fanfare 1500
Lockall
If 16652 3
CheckLR 1 func_5
If 16652 15
CheckLR 0 func_6
Setvar 32772 90
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_7
Callstd 224 7
CloseMsgOnKeyPress
Removepeople 1
Clearflag 662
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Message 2 "This is...
That where life sparkles...
That where life has faded...
A place where two worlds overlap..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 662
Killscript
Func 2:
Setflag 622
Removepeople 0
Clearflag 142
End
Func 3:
LostGoPc
Clearflag 622
Releaseall
End
Func 4:
Message 1 "GIRATINA disappeared..."
Waitbutton
CloseMsgOnKeyPress
Clearflag 622
Releaseall
End
Func 5:
Setvar 32772 325
Jump func_8
Func 6:
Setvar 32772 106
Jump func_8
Func 7:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_7
Callstd 224 7
CloseMsgOnKeyPress
Removepeople 1
Clearflag 662
Releaseall
End
(271) D17R0105 Sendoff Spring Turnback Cave-05
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Goto func_1
CheckTurnBack 16651 16652
End
FUNCTIONS:
Func 1:
Setvalue 16652 1
Killscript
(272) D17R0106 Sendoff Spring Turnback Cave-06
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Goto func_1
CheckTurnBack 16651 16652
End
FUNCTIONS:
Func 1:
Setvalue 16652 1
Killscript
(273) D17R0107 Sendoff Spring Turnback Cave-07
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Goto func_1
CheckTurnBack 16651 16652
End
FUNCTIONS:
Func 1:
Setvalue 16652 1
Killscript
(274) D18 Flower Paradise
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setflag 2517
End
Script 2:
Checkflag 142
CheckLR 1 func_1
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Cryfr 492 0
Message 0 "Kyuu uuhn."
CloseMsgOnKeyPress
Setflag 142
WildBattle2 492 30 31 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
CheckWildBattle2 32780
If 32780 1
CheckLR 1 func_3
Setflag 291
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 623
Removepeople 0
Clearflag 142
End
Func 2:
LostGoPc
Clearflag 623
Releaseall
End
Func 3:
Message 1 "SHAYMIN disappeared among
the flowers..."
Waitbutton
CloseMsgOnKeyPress
Clearflag 623
Releaseall
End
(275) D18R0101 Flower Paradise R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(276) D19A D19A
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(277) D19B D19B
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(278) D20R0101 Snowpoint Temple R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setflag 2518
End
FUNCTIONS:
None
(279) D20R0102 Snowpoint Temple R1-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(280) D20R0103 Snowpoint Temple R1-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(281) D20R0104 Snowpoint Temple R1-04
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(282) D20R0105 Snowpoint Temple R1-05
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(283) D20R0106 Snowpoint Temple R1-06
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Checkflag 142
CheckLR 1 func_1
End
Script 2:
Lockall
Fanfare 1500
WaitFanfare 1500
Checkflag 282
CheckLR 1 func_2
CheckRegi 32780
If 32780 0
CheckLR 1 func_3
Setflag 282
Setvarhero 0
Message 1 "It’s a statue of a Pokémon.
It seems to exude power...
\v0103\z0000 read the engraved
writing...
A body of rock.
A body of ice.
A body of steel.
When gathers the three Pokémon,
the king shall appear.
...
..."
CloseMsgOnKeyPress
Release 0
RegigigasAnm 0 8
SwithMusic2 3
Nop
Lock 0
Jump func_2
FUNCTIONS:
Func 1:
Setflag 609
Removepeople 0
Clearflag 142
End
Func 2:
Message 2 "...Zut zutt!"
CloseMsgOnKeyPress
Cryfr 486 0
WaitCry
Setflag 142
WildBattle2 486 70 31 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_4
CheckTrainerStatus2 32780
If 32780 1
CheckLR 1 func_5
Setflag 283
Releaseall
End
Func 3:
Setvarhero 0
Message 0 "It’s a statue of a Pokémon.
It seems to exude power...
\v0103\z0000 read the engraved
writing...
A body of rock.
A body of ice.
A body of steel.
When gathers the three Pokémon,
the king shall appear."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
LostGoPc
Releaseall
End
Func 5:
Message 3 "REGIGIGAS disappeared from view..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(284) D21R0101 Wayward Cave R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Setflag 2519
Checkflag 228
CheckLR 0 func_1
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
RideBike 0
If 16529 1
CheckLR 4 func_2
Setvarhero 0
Checkflag 224
CheckLR1 0 func_3
Checkflag 224
CheckLR1 1 func_4
Setvarhero 0
Soundfr 1153
Message 1 "\v0103\z0000 decided to go with
Mira!"
Fadedef
Setflag 224
Setvar 16529 1
Message 2 "Mira: I’ll keep your Pokémon healthy
all the time!"
Waitbutton
CloseMsgOnKeyPress
Setvar 16447 612
StartFollow
Followhero 4 48
Releaseall
End
Script 3:
End
Script 4:
Lockall
StopFollow
Followhero 4 16
CheckFacePosition 32780
If 32780 2
CheckLR 1 func_5
Jump func_6
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 6 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 7 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvar 16529 0
End
Func 2:
If 16610 2
CheckLR 4 func_7
If 16610 1
CheckLR 1 func_8
Setvarhero 0
Message 9 "Mira: I like helpful Pokémon moves
like Growl and Minimize.
Those kinds of moves are my
favorites."
Jump func_9
Func 3:
Message 0 "I’m Mira...
I was catching Pokémon, and then
I got lost...
I’m so scared...
Please!
Please take me to the exit!"
Killscript
Func 4:
Message 3 "Trainer, your name is \v0103\z0000?
My name is Mira.
I like your name!"
Killscript
Func 5:
Applymovement 255 mov_1
Applymovement 4 mov_2
Waitmovement
Jump func_10
Func 6:
Applymovement 255 mov_3
Applymovement 4 mov_4
Waitmovement
Jump func_10
Func 7:
Setvarhero 0
Message 11 "Mira: \v0103\z0000, did you get to be
so good because you’re always with\fyour Pokémon?
Yes! That has to be it!
Mira will try like you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 10 "Mira: This cave...
It’s so easy to get confused.
Do you know where we are?"
Jump func_9
Func 9:
Setvalue 16610 1
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Setvarhero 0
Message 5 "Mira: Oh! There’s the exit!
I want to get tougher so I
won’t be such a scaredy-cat.
\v0103\z0000, bye-bye!
Thank you!"
CloseMsgOnKeyPress
CheckFacePosition 32780
If 32780 3
CheckLR 1 func_11
Jump func_12
Func 11:
Applymovement 255 mov_5
Applymovement 4 mov_6
Waitmovement
Jump func_13
Func 12:
Applymovement 255 mov_7
Applymovement 4 mov_8
Waitmovement
Jump func_13
Func 13:
Removepeople 4
Setflag 228
Setvar 16529 2
Releaseall
End
(285) D21R0102 Wayward Cave R1-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(286) D22R0101 Ruin Maniac Cave R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2520
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckRuinManiac 32780
If 32780 10
CheckLR 4 func_1
Message 0 "Everyone calls me the Ruin Maniac.
I don’t care what they call me.
I’ll just keep on chipping away at
the rock wall little by little.
Do you know why? I’m a Ruin Maniac
who is fascinated by the UNOWN.
I know it’s a little sudden, but
how about you and me have a race?
You go and catch the UNOWN,
and I’ll keep digging away.
We’ll have a race to see who can
get done faster."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Everyone calls me the Ruin Maniac.
I don’t care what they call me.
I’ll just go on chipping away at
the rock wall little by little.
Do you know why? I’m a Ruin Maniac
who is fascinated by the UNOWN.
Well, I need to bear down and dig
through the bedrock now.
I want to search out some rare
UNOWN.
It’s going to be messy.
You’d better go outside."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(287) D23R0101 Trophy Garden R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(288) D24 Iron Island
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2522
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckFacePosition 32772
Faceplayer
Message 0 "Do you want to sail somewhere?"
Yesnobox 32780
CloseMsgOnKeyPress
If 32780 0
CheckLR 1 func_1
Jump func_2
FUNCTIONS:
Func 1:
Message 1 "Aye, aye!
Anchors aweigh!"
CloseMsgOnKeyPress
Goto func_3
If 32772 1
CheckLR1 1 func_4
If 32772 2
CheckLR1 1 func_5
ShipAnm 512 33 44 750
Releaseall
End
Func 2:
Message 2 "You just go on and tell me whenever
you want to set sail again!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Applymovement 0 mov_1
Waitmovement
Fanfare 1539
Applymovement 0 mov_2
Waitmovement
Killscript
Func 4:
Applymovement 255 mov_3
Waitmovement
Fanfare 1539
Applymovement 255 mov_2
Waitmovement
Killscript
Func 5:
Applymovement 255 mov_4
Waitmovement
Fanfare 1539
Applymovement 255 mov_2
Waitmovement
Killscript
(289) D24R0101 Iron Island R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setflag 2523
End
FUNCTIONS:
None
(290) D24R0102 Iron Island R1-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(291) D24R0103 Iron Island R1-03
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
ElevIrAnm
End
Script 2:
StopElevAnm
End
FUNCTIONS:
None
(292) D24R0104 Iron Island R1-04
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(293) D24R0105 Iron Island R1-05
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 7
Script 8
Script 9
Script 6
SCRIPTS:
Script 1:
ElevIrAnm
Checkflag 229
CheckLR 0 func_1
End
Script 2:
StopElevAnm
End
Script 3:
Lockall
RideBike 0
CheckHiroPosition 32772 32773
If 32773 2
CheckLR1 1 func_2
If 32773 3
CheckLR1 1 func_3
Setvarhero 0
Checkflag 225
CheckLR1 0 func_4
Checkflag 225
CheckLR1 1 func_5
Setvarhero 0
Soundfr 1153
Message 1 "\v0103\z0000 decided to go with
Riley!"
Fadedef
Setflag 225
Setvar 16530 1
Message 2 "Riley: If your Pokémon get hurt,
I’ll heal them up."
Waitbutton
CloseMsgOnKeyPress
Setvar 16447 609
StartFollow
Followhero 4 48
Releaseall
End
Script 4:
Lockall
Applymovement 255 mov_1
Applymovement 4 mov_2
Waitmovement
Message 4 "Riley: ...Are you going back?
I’ll be hanging around here.
It would be good if you came back."
CloseMsgOnKeyPress
Setvar 16530 0
StopFollow
Followhero 4 16
CheckHiroPosition 32772 32773
If 32773 2
CheckLR1 1 func_6
If 32773 3
CheckLR1 1 func_7
Releaseall
End
Script 5:
End
Script 6:
Lockall
StopFollow
Followhero 4 16
CheckHiroPosition 32772 32773
If 32773 40
CheckLR1 1 func_8
If 32773 41
CheckLR1 1 func_9
Message 5 "Riley: I get it now. You’re
responsible for agitating the Pokémon.
I don’t care what good reason you
may have, but I don’t want you
bringing any trouble into my mine."
CloseMsgOnKeyPress
Applymovement 5 mov_3
Waitmovement
Message 6 "Grunt 1: We’re Team Galactic!
We’ll take all the Pokémon we want!
Isn’t that right, partner?"
CloseMsgOnKeyPress
Applymovement 6 mov_4
Waitmovement
Message 7 "Grunt 2: You said it, brother!
So that’s what we’re gonna do!
We’re abducting all the Pokémon from
this rusted-out Iron Island!"
CloseMsgOnKeyPress
Applymovement 4 mov_5
Waitmovement
Setvarhero 0
Message 8 "Riley: To share in all the joys and
all the sorrows...
That is how all the Trainers and
Pokémon live in Sinnoh!
I won’t allow anyone to defy that
code of ethics!
Come on, \v0103\z0000!
This is one battle we can’t lose!"
CloseMsgOnKeyPress
StartFollow
TrainerBattle 835 836
StopFollow
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_10
Applymovement 5 mov_6
Waitmovement
Message 9 "Grunt 1: Stop! I said stop!
Your combination is so sick!
The both of you, and your Pokémon...
Let’s beat it, partner!"
CloseMsgOnKeyPress
Applymovement 6 mov_7
Waitmovement
Message 10 "Grunt 2: You said it, brother!
We don’t even know what Team
Galactic’s big plan is anyway!"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Removepeople 5
Removepeople 6
Fadescreen 6 1 1 0
Resetscreen
CheckHiroPosition 32772 32773
If 32773 40
CheckLR1 1 func_11
If 32773 41
CheckLR1 1 func_12
Goto func_13
02B6 4 1
Releaseall
End
Script 7:
End
Script 8:
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Checkflag 226
CheckLR 1 func_14
If 16530 2
CheckLR 1 func_15
If 16611 4
CheckLR 4 func_16
If 16611 3
CheckLR 1 func_17
If 16611 2
CheckLR 1 func_18
If 16611 1
CheckLR 1 func_19
Setvarhero 0
Message 18 "Riley: Haha, I’d have to agree.
People training here would be those
with too much time on their hands."
Jump func_20
FUNCTIONS:
Func 1:
If 16530 2
CheckLR 1 func_21
Setvar 16530 0
End
Func 2:
Applymovement 4 mov_8
Waitmovement
Killscript
Func 3:
Applymovement 4 mov_9
Waitmovement
Killscript
Func 4:
Message 0 "...You are?
OK, you’re \v0103\z0000.
I’m Riley.
I’m a Trainer, and yes, it is a bit
odd that I would be training here.
If you’d like, we could team up.
The wild Pokémon here are restless."
Killscript
Func 5:
Message 3 "Riley: Hi, \v0103\z0000.
Let’s team up.\fThe Pokémon seem to be restless."
Killscript
Func 6:
Applymovement 4 mov_10
Waitmovement
Killscript
Func 7:
Applymovement 4 mov_11
Waitmovement
Killscript
Func 8:
Applymovement 4 mov_12
Applymovement 255 mov_13
Waitmovement
Killscript
Func 9:
Applymovement 4 mov_14
Applymovement 255 mov_15
Waitmovement
Killscript
Func 10:
LostGoPc
Releaseall
End
Func 11:
Applymovement 4 mov_16
Applymovement 255 mov_17
Waitmovement
Killscript
Func 12:
Applymovement 4 mov_18
Applymovement 255 mov_19
Waitmovement
Killscript
Func 13:
Message 11 "Riley: Thanks.
You really helped me out.
Listen, I have a Pokémon Egg
here.
Would you take it with you?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_22
If 32780 1
CheckLR 1 func_23
End
Func 14:
Goto func_13
02B6 4 1
Releaseall
End
Func 15:
Message 15 "Riley: Spending time with you was
very enjoyable.
I intend to test my skills in other
places from now on.
Let’s meet again!
Take care on the way out."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 16:
Message 22 "Riley: What’s going on here, though?
The native Pokémon are restless...
I don’t like this...
Let’s hurry."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 17:
Message 21 "Riley: Imagine what it would be like
for a Steel-type Pokémon user to\fbattle a Steel type.
Would that be like battling yourself,
I wonder?
I mean, it’s a lot harder to defeat
one’s self than anyone else."
Jump func_20
Func 18:
Message 20 "Riley: Have you met Byron?
The Leader of Canalave Gym?
He’s asked me to become a Gym Leader,
but there’s his son Roark to consider."
Jump func_20
Func 19:
Message 19 "Riley: This used to be a fairly
thriving ore mine once upon a time.
I guess the steel ore’s played out.
There’s only Pokémon here now."
Jump func_20
Func 20:
Setvalue 16611 1
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 21:
ChangeOwPosition 4 19 41
ChangeOwMovement 4 17
ReleaseOw 4 3
End
Func 22:
Checkpartynumber 32780
If 32780 6
CheckLR 1 func_24
Message 12 "Riley: Thanks!
I’d like you to show the Pokémon
that’s inside the Egg all sorts\fof new places."
GiveEgg 447 10
Setflag 515
Clearflag 226
Goto func_25
Message 15 "Riley: Spending time with you was
very enjoyable.
I intend to test my skills in other
places from now on.
Let’s meet again!
Take care on the way out."
Waitbutton
CloseMsgOnKeyPress
Killscript
Func 23:
Message 14 "Riley: I hope you’ll accept it as
a token of our friendship."
Jump func_13
Func 24:
Setflag 226
Setvar 16530 2
Message 13 "Riley: Thank you...
But you don’t have room to take
another Pokémon.
All right, then.
I’ll wait here for you."
Waitbutton
CloseMsgOnKeyPress
Killscript
Func 25:
Setflag 229
Setvar 16530 2
Killscript
(294) D24R0106 Iron Island R1-06
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
ElevIrAnm
End
Script 2:
StopElevAnm
End
Script 3:
End
FUNCTIONS:
None
(295) D25R0101 Old Chateau R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2524
End
Script 2:
Fanfare 1500
Lockall
Message 0 "...It appears as if it is glaring..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(296) D25R0102 Old Chateau R1-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
0292 10 16384
If 16384 1
CheckLR 1 func_1
Setflag 665
End
Script 2:
Lockall
Applymovement 255 mov_1
Applymovement 0 mov_2
Waitmovement
Setflag 665
Removepeople 0
Setvar 16656 0
Releaseall
End
FUNCTIONS:
Func 1:
Clearflag 665
Setvar 16656 1
End
(297) D25R0103 Old Chateau R1-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(298) D25R0104 Old Chateau R1-04
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(299) D25R0105 Old Chateau R1-05
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(300) D25R0106 Old Chateau R1-06
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Checkflag 329
CheckLR 1 func_1
Checkflag 2736
CheckLR 1 func_1
0166 32780
If 32780 0
CheckLR 1 func_1
CheckNatPokedexStatus 2 32780
If 32780 0
CheckLR 1 func_1
CheckTime 32780
If 32780 3
CheckLR 0 func_1
Message 1 "Inside the TV...
There appears to be a Pokémon?...
The Pokémon appears as if it will come
out. Want to thump the TV?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_2
Setvarhero 0
Message 2 "\v0103\z0000 thumped the TV set!"
CloseMsgOnKeyPress
Cryfr 479 0
WaitCry
Setflag 2736
Wildbattle 479 15
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_3
CheckWildBattle2 32780
If 32780 1
CheckLR 1 func_4
Setflag 329
Releaseall
End
FUNCTIONS:
Func 1:
Message 0 "The TV has an oddly malevolent feel...
It’s as if it is staring..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
CloseMsgOnKeyPress
Releaseall
End
Func 3:
LostGoPc
Releaseall
End
Func 4:
Message 3 "ROTOM disappeared into the TV set..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(301) D25R0107 Old Chateau R1-07
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(302) D25R0108 Old Chateau R1-08
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
0292 25 16384
If 16384 1
CheckLR 1 func_1
Setflag 666
End
Script 2:
Lockall
Applymovement 1 mov_1
Waitmovement
Setflag 666
Removepeople 1
Setvar 16657 0
Releaseall
End
FUNCTIONS:
Func 1:
Clearflag 666
Setvar 16657 1
End
(303) D25R0109 Old Chateau R1-09
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(304) D25R1001 Old Chateau R10-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(305) D26R0101 Galactic HQ R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 7
Script 8
Script 6
SCRIPTS:
Script 1:
Setflag 2525
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 350
CheckLR 1 func_1
Message 0 "Welcome.
This is Team Galactic Headqu...
I’m sorry, this is the Galactic
Veilstone Building.
Cosmic energy for the win!
Wouldn’t it be wonderful if we
could harness that boundless energy?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 350
CheckLR 1 func_2
Message 4 "We, Team Galactic, will take everything
that can be taken!
We will eliminate everything that is
not needed!
That is Team Galactic’s policy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 350
CheckLR 1 func_3
Message 6 "You’re too young for us...
You can join us when you’re older."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Checkflag 350
CheckLR 1 func_4
Message 2 "Team Galactic conducts R&D; around
the clock here.
We focus on the development of new
energy resources."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 8 "Saturn: So, it’s you...
I’ve heard about you and what took
place at the Spear Pillar.
What our boss really wanted...
Even I don’t know that.
His confident manner of speaking...
His logical words...
I think people just became so
enthralled by him.
I allowed myself to believe his words
because I wanted to see the world
he intended to make.
I’ve been left in charge of this
HQ building and the remnants of
the membership...
The decision on what Team Galactic
should do rests with me...
But I’ve learned that extremism
is never the solution..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
CheckItem 440 1 32780
If 32780 1
CheckLR 1 func_5
Message 9 "The door is locked.
A special key is needed."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Message 12 "The Team Galactic credo!
Everything belongs to Team Galactic!
Look beyond the world--space will
become Team Galactic’s!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Welcome.
This is Team Galactic Headqu...
I’m sorry, this is the Galactic
Veilstone Building.
We have no public events planned
at this time."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 5 "We, Team Galactic, will take everything
that can be taken!
We will eliminate everything that is
not needed!
That is Team Galactic’s policy!
At least it used to be.
There’s nothing left now..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 7 "I wonder where our boss went..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 3 "This is where we, Team Galactic, work.
What are we supposed to do?
I’m not sure how, but we’re supposed
to chase our dream.
Our dream of making a wonderful
new world!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 10 "The door is locked.
A special key is needed.
Use the Galactic Key?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_6
If 32780 1
CheckLR 1 func_7
End
Func 6:
Setvarhero 0
Message 11 "The door opened."
Waitbutton
WaitFanfare 1500
Fanfare 1544
Applymovement 5 mov_1
Applymovement 6 mov_2
Waitmovement
Setflag 578
Removepeople 5
Removepeople 6
CloseMsgOnKeyPress
Releaseall
End
Func 7:
CloseMsgOnKeyPress
Releaseall
End
(306) D26R0102 Galactic HQ R1-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Message 0 "It’s a bed...
Want to take a rest?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_1
Jump func_2
Script 2:
Fanfare 1500
Lockall
Message 3 "Team Galactic Nap Room
Ensure the bed is unoccupied
before getting into it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 4 "Team Galactic TV Room
State-of-the-art audio & video
system for member use only!
Onward to a new universe!
Team Galactic!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Message 5 "The Team Galactic credo!
Everything belongs to Team Galactic!
Look beyond the world--space will
become Team Galactic’s!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Message 6 "There is a notice tacked on to
the kitchen sink.
“Health and prosperity through
the partaking of favorite foods!”
Foul, unidentifiable substances are
caked around the sink..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Message 7 "There is a notice taped on to
the refrigerator.
“Drink all you wish and gain the
energy to move us forward!”
The refrigerator is filled with murky,
sinister drinks and nothing else..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvarhero 0
Message 1 "\v0103\z0000 quickly fell asleep
in the bed..."
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Soundfr 1166
Fadedef
HealPkmn
Fadescreen 6 1 1 0
Resetscreen
Setvarhero 0
Message 2 "\v0103\z0000 and the Pokémon
became fully healed from the rest!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
CloseMsgOnKeyPress
Releaseall
End
(307) D26R0103 Galactic HQ R1-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The locked doors only open with
a special key.
Now, if I was a comedy relief sort
of bad guy, I’d tell you...
But I really don’t know!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckItem 440 1 32780
If 32780 1
CheckLR 1 func_1
Message 1 "The door is locked.
A special key is needed."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 4 "The Team Galactic credo!
Everything belongs to Team Galactic!
Look beyond the world--space will
become Team Galactic’s!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "The door is locked.
A special key is needed.
Use the Galactic Key?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_2
If 32780 1
CheckLR 1 func_3
End
Func 2:
Setvarhero 0
Message 3 "The door opened."
Waitbutton
WaitFanfare 1500
Fanfare 1544
Applymovement 5 mov_1
Applymovement 6 mov_2
Waitmovement
Setflag 579
Removepeople 5
Removepeople 6
CloseMsgOnKeyPress
Releaseall
End
Func 3:
CloseMsgOnKeyPress
Releaseall
End
(308) D26R0104 Galactic HQ R1-04
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Lockall
Applymovement 0 mov_1
Waitmovement
Message 0 "Boss: ...I see. You must be the
Trainer I’ve been hearing about.
The foolhardy one that’s trying to
stand up to Team Galactic.
Although I’d hardly expected to
see that the Trainer is a mere child.
I’d heard that our Commanders had
a rough time with you..."
CloseMsgOnKeyPress
Applymovement 0 mov_2
Waitmovement
Message 1 "I know why you’re here, I can sense
it in you.
It’s about UXIE, MESPRIT, and AZELF,
correct? You want to save them...
I no longer have any need for them.
I am finished with them.
If your heart aches to save them,
go right ahead, I could care less.
It will save me the trouble of
disposing of them.
But, I must say...
You are a remarkable specimen.
Those Pokémon have nothing to do
with you, do they not?
But still you came to rescue them
out of pity?
Such pitifully useless emotions...
It’s illogical and irrational.
Pity and compassion are products of
the weak and lacking human heart.
You were compelled to come here by
such vacuous sentimentality!
I will make you regret paying
heed to your heart!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 8
CheckLR 1 func_1
If 32772 9
CheckLR 1 func_2
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckItem 440 1 32780
If 32780 1
CheckLR 1 func_3
Message 5 "The door is locked.
A special key is needed."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 8 "Team Galactic Warp Panels!
The green warp panel returns you
to the ground floor.
Onward to a new universe!
-Team Galactic"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Message 9 "Team Galactic Report"
Jump func_4
FUNCTIONS:
Func 1:
Applymovement 0 mov_3
Waitmovement
Jump func_5
Func 2:
Applymovement 0 mov_4
Waitmovement
Jump func_5
Func 3:
Message 6 "The door is locked.
A special key is needed.
Use the Galactic Key?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_6
If 32780 1
CheckLR 1 func_7
End
Func 4:
Message 10 "Which report would you like to read?"
Multi 1 1 0 1 32780
ChoiceMulti 267 0
ChoiceMulti 268 1
ChoiceMulti 269 2
ChoiceMulti 270 3
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_8
If 32776 1
CheckLR 1 func_9
If 32776 2
CheckLR 1 func_10
Jump func_11
Func 5:
TrainerBattle 403 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_12
Message 2 "Boss: I see.
You are indeed strong.
And the basis of your power is your
compassion toward Pokémon.
...How wasteful...
Such emotions are but mere illusions.
And, like all illusions, they fade
over time until death banishes them\fforever.
That is why I have abandoned all
emotions as useless sentimentality.
...But that doesn’t matter. I doubt
you will ever understand my position.
That said, I recognize that you are
strong and courageous to come alone.
This is your reward."
Setvar 32772 1
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 1
CheckLR1 1 func_13
Message 3 "Boss: The Master Ball is the ultimate
Poké Ball.
It will unfailingly catch any Pokémon
in the wild.
But it is not anything that I require.
Unlike you Trainers, I do not make
Pokémon my friends or partners.
Unlike other Team Galactic members,
I don’t use Pokémon as tools.
Instead, I make the power of Pokémon
my own."
CloseMsgOnKeyPress
Applymovement 0 mov_5
Waitmovement
Message 4 "If you wish to save the Pokémon from
the lakes, take the warp panel ahead.
I am off to Mt. Coronet.
That’s correct. Mt. Coronet.
Where you and I first met.
I will ascend the mountain to its
peak and put an end to everything...
No. I will bring about a new beginning
for everything..."
CloseMsgOnKeyPress
Applymovement 0 mov_6
Waitmovement
Removepeople 0
Setvar 16598 1
Releaseall
End
Func 6:
Setvarhero 0
Message 7 "The door opened."
Waitbutton
WaitFanfare 1500
Fanfare 1544
Applymovement 1 mov_7
Applymovement 2 mov_8
Waitmovement
Setflag 580
Removepeople 1
Removepeople 2
CloseMsgOnKeyPress
Releaseall
End
Func 7:
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 11 "Some say the universe originated
from a massive explosion.
Similarly, Sinnoh is thought to have
been formed by an explosion in\fancient times.
Needless to say, the explosion came
from the power of a Pokémon.
The Pokémon must have been the
mythical creature considered\fa deity by the ancients.
Our aim is not to capture the
mythical Pokémon, but to obtain its\fpower...
The PC entry ends there..."
Jump func_4
Func 9:
Message 12 "The mythical Pokémon...
According to myths, the Pokémon
created Sinnoh with its power.
However, capturing the Pokémon with
a Poké Ball prevents it from using\fits full power...
But with the Red Chain, the Pokémon
can be shackled, and its power can\fbe used without restraint...
The PC entry ends there..."
Jump func_4
Func 10:
Message 13 "The Red Chain...
The Pokémon of the three lakes and
Mt. Coronet are somehow connected.
Capturing the Pokémon of the lakes
will free the Pokémon of Mt. Coronet.
From the Pokémon of the lakes,
crystals can be extracted to create\fa Red Chain.
Using that Red Chain, the mythical
Pokémon can be summoned and shackled\fto do as we command...
The PC entry ends there..."
Jump func_4
Func 11:
CloseMsgOnKeyPress
Releaseall
End
Func 12:
LostGoPc
Releaseall
End
Func 13:
Callstd 252 7
Killscript
(309) D26R0105 Galactic HQ R1-05
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’m a Team Galactic member.
But I don’t even have a Pokémon!
I’m the gruntiest of the grunts!
It’s my fault, though. I still don’t
know how the warp panels connect."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(310) D26R0106 Galactic HQ R1-06
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Team Galactic will set free all
Pokémon, all of nature!
Uwahahaha! Team Galactic will then
own it all!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I’ve been with Team Galactic for five
years.
I haven’t gotten a promotion yet..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
CheckItem 440 1 32780
If 32780 1
CheckLR 1 func_1
Message 2 "The door is locked.
A special key is needed."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 3 "The door is locked.
A special key is needed.
Use the Galactic Key?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_2
If 32780 1
CheckLR 1 func_3
End
Func 2:
Setvarhero 0
Message 4 "The door opened."
Waitbutton
WaitFanfare 1500
Fanfare 1544
Applymovement 6 mov_1
Applymovement 7 mov_2
Waitmovement
Setflag 581
Removepeople 6
Removepeople 7
CloseMsgOnKeyPress
Releaseall
End
Func 3:
CloseMsgOnKeyPress
Releaseall
End
(311) D27R0101 Lake Verity R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
Checkgender 16384
If 16384 0
CheckLR 1 func_1
If 16384 1
CheckLR 1 func_2
End
Script 2:
Checkflag 142
CheckLR 1 func_3
End
Script 3:
Lockall
StopFollow
Applymovement 5 mov_1
Applymovement 255 mov_2
Waitmovement
Setvarrival 0
Message 0 "\v0103\z0000: What’s going on...?"
CloseMsgOnKeyPress
Lockcam 46 53
Applymovement 241 mov_3
Waitmovement
Return 15 32780
Checkgender 32780
If 32780 0
CheckLR 1 func_4
Jump func_5
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 184
CheckLR 1 func_6
Setflag 184
Setvarhero 0
Message 26 "Rowan: Hmmm...
No legendary Pokémon, nothing out
of the ordinary...
\v0103\z0000, how was Lake Valor?
Anything to report?
What? You’re just going there now?
You’ve got to move faster than that!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Checkgender 32780
If 32780 0
CheckLR 1 func_7
Jump func_8
Script 6:
End
Script 7:
End
FUNCTIONS:
Func 1:
Setvar 16416 97
End
Func 2:
Setvar 16416 0
End
Func 3:
Setflag 429
Removepeople 3
Removepeople 2
Clearflag 142
End
Func 4:
Message 3 "Professor, there isn’t anything out
of the ordinary on the other side,\feither!"
Jump func_9
Func 5:
Message 4 "Professor, there’s nothing out of the
ordinary on the other side, either!"
Jump func_9
Func 6:
Setvarhero 0
Message 27 "Rowan: \v0103\z0000, how was Lake
Valor? Anything to report?
What? You’re just going there now?
You’ve got to move faster than that!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Setvarhero 0
Message 28 "Dawn: \v0103\z0000, how was
Lake Valor?
There’s nothing wrong here.
The lake hasn’t changed at all.
We haven’t found a legendary
Pokémon, either, though..."
Jump func_10
Func 8:
Setvarhero 0
Message 29 "Lucas: Hiya, \v0103\z0000!
How’s Lake Valor?
There’s nothing wrong here.
The lake is ordinary, as usual.
There’s no legendary Pokémon,
either..."
Jump func_10
Func 9:
Message 5 "Professor: Hmm...
I may have been mistaken...
Something appears to be different
than it was before, but...
Fine! It’s enough that we have
seen the lake."
Applymovement 0 mov_4
Waitmovement
Setvaralter 0
Message 6 "\v0103\z0000, we’re leaving."
CloseMsgOnKeyPress
Applymovement 0 mov_5
Applymovement 1 mov_6
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_11
Jump func_12
Func 10:
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Setvaralter 0
Message 7 "Dawn: Professor, how are you enjoying
being back in Sinnoh?
After being away for four years,
it must be exciting again?"
Jump func_13
Func 12:
Setvaralter 0
Message 8 "Lucas: Professor, you’ve been gone
for four years now.
How are you enjoying being back in
Sinnoh?"
Jump func_13
Func 13:
Message 9 "Professor: ...Hm.
There is one thing I can say.
There are many rare kinds of Pokémon
in Sinnoh.
The region should serve us very well
in regard to our studies."
CloseMsgOnKeyPress
Return 30 32780
Clearflag 404
Addpeople 4
Applymovement 0 mov_7
Applymovement 1 mov_8
Applymovement 5 mov_9
Applymovement 255 mov_10
Applymovement 241 mov_11
Waitmovement
Zoomcam?
Message 10 "Professor: Excuse me.
Let us pass, please."
CloseMsgOnKeyPress
Applymovement 0 mov_12
Waitmovement
Applymovement 1 mov_13
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_14
Jump func_15
Func 14:
Setvaralter 0
Message 11 "Dawn: I beg your pardon...
We’ll be on our way."
Jump func_16
Func 15:
Setvaralter 0
Message 12 "Lucas: Sorry, folks."
Jump func_16
Func 16:
CloseMsgOnKeyPress
Applymovement 1 mov_14
Waitmovement
Fanfare 1539
Removepeople 0
Removepeople 1
Return 50 32780
Applymovement 5 mov_15
Waitmovement
Setvarrival 0
Message 13 "\v0103\z0000: What was that about?
Those two..."
CloseMsgOnKeyPress
Return 30 32780
Applymovement 5 mov_16
Waitmovement
Return 30 32780
Setvarhero 0
Message 14 "Huh? \v0103\z0000!
Let’s go check this out!"
CloseMsgOnKeyPress
Applymovement 5 mov_17
Waitmovement
Return 15 32780
Message 15 "...
...
What’s that?
Don’t go into the tall grass?
No problem, no problem!
We won’t be in there long enough
for a wild Pokémon to come out."
CloseMsgOnKeyPress
Applymovement 5 mov_18
Applymovement 255 mov_19
Waitmovement
Message 16 "It’s...
A briefcase?
Those people forgot it here.
What are we supposed to do with it?
We can try to deliver it, but who are
they? I heard them say professor..."
CloseMsgOnKeyPress
Stop 1070
PlaySound 1140
Clearflag 429
Addpeople 3
Addpeople 2
Fanfare 1609
Applymovement 3 mov_20
Applymovement 2 mov_21
Waitmovement
Cryfr 396 0
Applymovement 5 mov_22
Applymovement 255 mov_23
Waitmovement
Message 17 "Waaah!
Po-Pokémon?!"
Applymovement 5 mov_24
Waitmovement
Setvarhero 0
Message 18 "What’s going on?!"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
ChooseStarter
BattleStarter
Callend
Fadescreen 6 1 1 0
Resetscreen
StoreStarter 32768
GivePokemon 32768 5 0 32780
Setflag 142
Starterbattle 396 2 31 142
Jump func_17
Func 17:
Applymovement 5 mov_25
Applymovement 255 mov_26
Waitmovement
HealPkmn
Setvarrival 0
Setvarstrhero 1
Setvarstrrival 2
Message 19 "\v0103\z0000: Fwaaah!
Your \v0100\z0001 totally rocked!
But my \v0100\z0002 was way tougher
than yours!
...They were other people’s
Pokémon, though...
But we had to use them...
They won’t mind, will they?"
CloseMsgOnKeyPress
Clearflag 434
ChangeOwPosition 1 47 51
Addpeople 1
Lock 1
Callstd 248 7
Applymovement 1 mov_27
Applymovement 5 mov_28
Applymovement 255 mov_29
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_18
Jump func_19
Func 18:
Setvaralter 0
Message 20 "Dawn: Oh! There’s the briefcase!
The professor would have been furious
if I’d lost it..."
CloseMsgOnKeyPress
Applymovement 1 mov_30
Waitmovement
Message 21 "Dawn: Huh?
Oh, no!
Did you...
Did you use the Pokémon in here?
You did?! Oh, my gosh!
What’s the professor going to say...?
...This is so not good...
I’ll take this briefcase for now."
Jump func_20
Func 19:
Message 22 "Lucas: Whew! You found the briefcase?
The professor would’ve gone through
the roof if he knew I forgot it here."
CloseMsgOnKeyPress
Applymovement 1 mov_30
Waitmovement
Message 23 "Lucas: Hunh?
Whaaaat?!
Did you guys...
Did you use these Pokémon?!
Oh, man... How am I gonna explain
this to the professor?
...This briefcase is the professor’s,
so I’ll take it, OK?"
Jump func_20
Func 20:
CloseMsgOnKeyPress
Applymovement 1 mov_31
Waitmovement
Removepeople 4
Return 15 32780
Applymovement 1 mov_32
Applymovement 5 mov_33
Applymovement 255 mov_34
Waitmovement
Removepeople 1
Callstd 249 7
Setvarrival 0
Message 24 "\v0103\z0000: What was that about?"
CloseMsgOnKeyPress
Applymovement 5 mov_35
Applymovement 255 mov_36
Waitmovement
Setvarhero 0
Message 25 "I don’t know what’s going on.
\v0103\z0000, let’s get out of here.
My Pokémon got hurt from that
battle.
If we get attacked by another
Pokémon, we might be in trouble."
CloseMsgOnKeyPress
Clearflag 406
Clearflag 407
Setvar 16533 1
Setvar 16514 2
Clearflag 435
Setvar 16518 2
Setvar 16548 3
Applymovement 5 mov_37
Applymovement 255 mov_38
Waitmovement
Fanfare 1539
Fadescreen 6 1 0 0
Resetscreen
Warp 334 0 81 842 1
Fadescreen 6 1 1 0
Resetscreen
End
(312) D27R0102 Lake Verity R1-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
Checkflag 186
CheckLR1 1 func_1
Checkflag 186
CheckLR1 0 func_2
If 16535 0
CheckLR1 1 func_3
Checkgender 16384
If 16384 0
CheckLR 1 func_4
If 16384 1
CheckLR 1 func_5
End
Script 2:
End
Script 3:
Fanfare 1500
Lockall
Checkflag 186
CheckLR 1 func_6
Applymovement 5 mov_1
Waitmovement
Message 6 "Rowan: How dare you!
You misguided thugs!"
Faceplayer
Checkgender 32780
If 32780 0
CheckLR 1 func_7
Jump func_8
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 186
CheckLR 1 func_9
Checkgender 32780
If 32780 0
CheckLR 1 func_10
Jump func_11
Script 5:
Lockall
Applymovement 5 mov_2
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_12
Jump func_13
Script 6:
Fanfare 1500
Lockall
Faceplayer
Applymovement 6 mov_3
Waitmovement
Message 13 "Mars: That face...!
It brings back bad memories!
I’m talking about the windworks!
I caught a whole lot of trouble
for that little incident.
What’s with that look on your face?
You do remember me, don’t you?
Fine, whatever.
I’ll tell you who I am again!
I’m Mars, one of Team Galactic’s
Commanders.
So, what is it? Are you some
lovey-dovey couple to the rescue?
Not a chance! Not even a teeny one!
You’re all going down!"
CloseMsgOnKeyPress
TrainerBattle 405 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_14
Message 14 "I lost again...
So, first the windworks, and now
Lake Verity that I owe you for!
This shouldn’t be happening to Team
Galactic’s Commander...
...Calm down, Mars...
I’ve done my part in all of this...
My mission was to transport the
lake’s Pokémon to our HQ...
...That’s right! I accomplished my
mission without a problem!"
Message 15 "Team! We’re pulling out!
The boss is waiting at the HQ!"
Message 16 "The Pokémon of the three lakes are
connected somehow.
Thanks to Saturn’s grandstanding at
Lake Valor, a cavern appeared here.
It was the cavern where the Pokémon
MESPRIT slept.
MESPRIT appeared, too, probably to
go help its friends.
That worked out well for us.
It was super easy to catch.
So, now we’ve got them all:
MESPRIT, “the Being of Emotion.”
AZELF, “the Being of Willpower.”
UXIE, “the Being of Intelligence.”
Now that we have them all...
You can look forward to what plans
Team Galactic has for them!"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Removepeople 7
Removepeople 8
Removepeople 0
Removepeople 1
Removepeople 2
Removepeople 3
Setflag 2446
Applymovement 6 mov_4
Applymovement 255 mov_5
Waitmovement
SetOwPosition 5 53 1 39 3
Fadescreen 6 1 1 0
Resetscreen
Setflag 186
Clearflag 472
Clearflag 594
Setvar 16595 1
Setvarrival 0
Message 17 "Rowan: I see...
This also occurred at Lake Valor...
Another legendary Pokémon was taken
away by Team Galactic...
Both of you went up against
full-fledged criminals...
The fact that you’re unharmed is
reason enough to celebrate.
...But what about Lake Acuity?
Is \v0103\z0000 safe?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Message 10 "Ow! Ouch!
What’s with this old-timer?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
ChangeOwPosition 5 50 37
ChangeOwMovement 5 16
ReleaseOw 5 2
ChangeOwPosition 6 50 39
ChangeOwMovement 6 16
ReleaseOw 6 2
Killscript
Func 2:
ChangeOwPosition 5 46 51
ChangeOwMovement 5 15
ReleaseOw 5 1
Killscript
Func 3:
ChangeOwPosition 5 46 50
ChangeOwMovement 5 14
ReleaseOw 5 0
Killscript
Func 4:
Setvar 16416 97
End
Func 5:
Setvar 16416 0
End
Func 6:
Faceplayer
Setvarhero 0
Setvarrival 1
Message 18 "Rowan: \v0103\z0000, I need you to
go to Lake Acuity right away.
I’m worried about \v0103\z0001."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Setvarhero 0
Message 7 "\v0103\z0000!
Dawn needs your help!"
Jump func_15
Func 8:
Setvarhero 0
Message 9 "\v0103\z0000!
Lucas needs your help!"
Jump func_15
Func 9:
Checkgender 32780
If 32780 0
CheckLR 1 func_16
Jump func_17
Func 10:
Setvarhero 0
Message 11 "Dawn: \v0103\z0000!
It’s T-Team Galactic!\fOh no! The Pokémon of the lake..."
Jump func_18
Func 11:
Setvarhero 0
Message 12 "Lucas: It’s Team Galactic!
They took the Pokémon of the lake..."
Jump func_18
Func 12:
Setvarhero 0
Message 4 "Rowan: Ah, \v0103\z0000!
What timing!
Those Team Galactic scoundrels are
after the legendary Pokémon!
You’ve got to help Dawn!"
Jump func_19
Func 13:
Setvarhero 0
Message 5 "Rowan: Ah, \v0103\z0000!
What timing!
Those Team Galactic scoundrels are
after the legendary Pokémon!
\v0103\z0000, help us!
You’ve got to help Lucas!"
Jump func_19
Func 14:
LostGoPc
Releaseall
End
Func 15:
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 16:
Setvarhero 0
Message 19 "Dawn: \v0103\z0000, what is Team
Galactic up to?
Are the abducted Pokémon of the
lakes going to be OK?"
Jump func_20
Func 17:
Setvarhero 0
Message 20 "Lucas: \v0103\z0000, what’s Team
Galactic up to?
They’d better not harm the Pokémon
they took from the lakes..."
Jump func_20
Func 18:
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 19:
Setvar 16535 1
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 20:
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(313) D27R0103 Lake Verity R1-03
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2527
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Pokepic 481 0
0030
Hidepic
Cryfr 481 0
Message 0 "Kyauun."
CloseMsgOnKeyPress
Setflag 509
Removepeople 0
Return 8 32780
Clearflag 509
Addpeople 0
Return 8 32780
Setflag 509
Removepeople 0
Return 8 32780
Clearflag 509
Addpeople 0
Return 8 32780
Setflag 509
Removepeople 0
Return 8 32780
Clearflag 509
Addpeople 0
Return 8 32780
Setflag 509
Removepeople 0
ActSwarmPoke 0
Message 1 "MESPRIT flew off somewhere..."
CloseMsgOnKeyPress
Return 30 32780
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
If 32780 2
CheckLR 1 func_3
If 32780 3
CheckLR 1 func_4
End
FUNCTIONS:
Func 1:
ChangeOwPosition 1 12 22
Jump func_5
Func 2:
ChangeOwPosition 1 12 20
Jump func_5
Func 3:
ChangeOwPosition 1 13 21
Jump func_5
Func 4:
ChangeOwPosition 1 11 21
Jump func_5
Func 5:
Clearflag 692
Addpeople 1
Applymovement 1 mov_1
Waitmovement
Applymovement 255 mov_2
Waitmovement
Setvarhero 0
Message 2 "Rowan: ...
...
\v0103\z0000, that was MESPRIT,
wasn’t it?
You’ve accomplished what I’d asked
you to do at the Canalave Library...
I asked you to get data on the
Pokémon of the lake, and you did.
But it didn’t provide any answers
about the mysteries of evolution.
I still don’t know why some Pokémon
evolve and others don’t.
Ultimately, it only deepened the
mystery.
But having mysteries to solve...
That adds to my enjoyment!"
CloseMsgOnKeyPress
Applymovement 1 mov_3
Waitmovement
Setvarhero 0
Message 3 "\v0103\z0000, why don’t you chase
after MESPRIT?
To me, it seemed as if it wanted to
play with you.
If you were to use the Pokétch app
Marking Map, you’d be able to\ftrack the movements of Pokémon."
StorePktchAppl 12 32780
If 32780 0
CheckLR1 1 func_6
Setvarhero 0
Message 5 "Go on, \v0103\z0000.
I’m sure that you will keep meeting
countless Pokémon and people.
Those encounters will keep thrilling
you in their own special ways.
I hope you’ll enjoy that experience!
Take care, \v0103\z0000."
CloseMsgOnKeyPress
Applymovement 1 mov_4
Waitmovement
Removepeople 1
Releaseall
End
Func 6:
Message 4 "What?
You don’t have the Marking Map?
...You should occasionally pay visits
to the Pokétch Company, you know."
Killscript
(314) D28R0101 Lake Valor R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "What do you want?
Are you one of those nitwits we
fooled into guarding the entrance?
Bah, it doesn’t matter who you are.
It’s too late to make any difference.
Things are going to get really
interesting now.
All the legendary Pokémon are going
to be brought to our HQ in Veilstone!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Even Team Galactic has no use for
MAGIKARP! Worthless, all of them!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Hahaha!
Next stop, Lake Verity!
The closest civilization is that hick
town called Twinleaf!
We can roll in there completely
unopposed!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 129 11
Message 3 "A MAGIKARP is weakly flopping about..."
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(315) D28R0102 Lake Valor R1-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(316) D28R0103 Lake Valor R1-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setflag 2529
Checkflag 350
CheckLR 0 func_1
Checkflag 350
CheckLR 1 func_2
End
Script 2:
Setflag 2529
Checkflag 142
CheckLR1 1 func_3
Checkflag 350
CheckLR 0 func_1
Checkflag 350
CheckLR 1 func_2
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Cryfr 482 0
Message 3 "Kyuuun..."
CloseMsgOnKeyPress
Setflag 142
WildBattle2 482 50 31 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_4
CheckTrainerStatus2 32780
If 32780 1
CheckLR 1 func_5
Setflag 294
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Message 0 "The mission is proceeding without
a hitch. The boss should be pleased.
Everything is for everyone, and
for the good of Team Galactic!"
CloseMsgOnKeyPress
Faceplayer
Applymovement 1 mov_1
Waitmovement
Return 30 32780
Message 1 "I recognize your face!
You’re the child who raided the Team
Galactic building in Eterna!
Humph! Jupiter should be ashamed of
herself, being beaten by a child.
But anything and anyone that opposes
Team Galactic must be crushed!
Even the very thought of opposition
will not be tolerated!"
CloseMsgOnKeyPress
TrainerBattle 408 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_6
Message 2 "Gah! Even I, a Commander, only
managed to buy us time?
But that’s fine.
A child like you will never be able to
stem the flow of time!
Team Galactic will get the three
legendary Pokémon of the lakes!
With their power, we will create an
entirely new universe!
By now, Mars should have captured
the Pokémon of Lake Verity..."
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Removepeople 1
Setflag 318
Setflag 2436
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
FUNCTIONS:
Func 1:
SetTilePassable 1 10 29
End
Func 2:
SetTilePassable 0 10 29
End
Func 3:
Setflag 510
Removepeople 0
Clearflag 142
Killscript
Func 4:
LostGoPc
Releaseall
End
Func 5:
Message 4 "AZELF disappeared deep into
the cavern..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
LostGoPc
Releaseall
End
(317) D29R0101 Lake Acuity R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 169
CheckLR 1 func_1
Setflag 169
Setvarrival 0
Message 0 "\v0103\z0000: What are you doing?
You’re not supposed to be here.
There’s nothing here anyway.
If anything were to happen, it’s in
my good hands.
I’ve got my trusty Pokémon with me
for one.
And more than anything, I’m tough,
and you know it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvarrival 0
Message 1 "\v0103\z0000: What’d I say?
I told you I’ll be OK by myself.
If you haven’t gone yet, go
challenge the Sunyshore Gym.
I have a feeling things are going
to keep getting tougher.
It could be rough if you don’t
collect up some Gym Badges."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(318) D29R0102 Lake Acuity R1-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Lockall
CheckHiroPosition 32772 32773
Lockcam 32772 32773
Applymovement 241 mov_1
Waitmovement
Return 15 32780
Applymovement 2 mov_2
Waitmovement
Setvarrival 0
Message 0 "\v0103\z0000: !
You’re not getting away with this,
Team Galactic!"
CloseMsgOnKeyPress
Applymovement 1 mov_3
Waitmovement
Message 1 "Jupiter: Oh?
Are you finished already?
Your Pokémon aren’t bad, but you’re
laughably weak.
You honestly thought you could save
the Pokémon of the lake?
And become the Pokémon Champion?
Dream on, little kid.
But, eww, it’s so cold here.
Let’s go back to the Veilstone HQ."
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 14
CheckLR1 1 func_1
If 32772 15
CheckLR1 1 func_2
Zoomcam?
Message 2 "Oh? Don’t I know you?
We met in Eterna City.
Listen. Team Galactic is going to do
something huge for everyone’s sake.
That’s why you should keep out of
Team Galactic’s way.
Don’t come whining about poor Pokémon
and other trivial junk like that.
Don’t waste your time coming to our
HQ in Veilstone.
Now, if you’ll excuse me."
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 14
CheckLR1 1 func_3
If 32772 15
CheckLR1 1 func_4
Fanfare 1539
Removepeople 1
WaitFanfare 1539
CheckHiroPosition 32772 32773
If 32772 14
CheckLR1 1 func_5
If 32772 15
CheckLR1 1 func_6
Applymovement 2 mov_4
Waitmovement
Setvarrival 0
Message 3 "\v0103\z0000: ...
...
Yeah, that’s right!
I couldn’t do anything against Team
Galactic!"
CloseMsgOnKeyPress
Applymovement 2 mov_5
Waitmovement
Message 4 "That Pokémon called UXIE...
It was suffering..."
CloseMsgOnKeyPress
Return 30 32780
Applymovement 2 mov_4
Waitmovement
Message 5 "I’m going to get tougher...
It’s not about winning or losing...
That’s not good enough...
I have to be stronger..."
CloseMsgOnKeyPress
Applymovement 2 mov_6
Applymovement 255 mov_7
Waitmovement
Fanfare 1539
Removepeople 2
WaitFanfare 1539
Setflag 2447
Clearflag 577
Setflag 594
Setvar 16595 2
Clearflag 438
Setflag 434
Setflag 403
Setflag 683
Setflag 682
Clearflag 168
Releaseall
End
FUNCTIONS:
Func 1:
Applymovement 1 mov_8
Applymovement 241 mov_9
Waitmovement
Applymovement 255 mov_10
Waitmovement
Killscript
Func 2:
Applymovement 1 mov_11
Applymovement 241 mov_9
Waitmovement
Killscript
Func 3:
Applymovement 1 mov_12
Waitmovement
Killscript
Func 4:
Applymovement 1 mov_13
Waitmovement
Killscript
Func 5:
Applymovement 255 mov_14
Waitmovement
Killscript
Func 6:
Applymovement 255 mov_15
Waitmovement
Killscript
(319) D29R0103 Lake Acuity R1-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setflag 2531
End
Script 2:
Checkflag 142
CheckLR 1 func_1
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Cryfr 480 0
Message 0 "Kyouuuun!"
CloseMsgOnKeyPress
Setflag 142
WildBattle2 480 50 31 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
CheckTrainerStatus2 32780
If 32780 1
CheckLR 1 func_3
Setflag 295
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 511
Removepeople 0
Clearflag 142
End
Func 2:
LostGoPc
Releaseall
End
Func 3:
Message 1 "UXIE disappeared deep into its
cavern..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(320) D30 Newmoon Island
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2532
ShayminAnm 1 1
Clearflag 663
Checkflag 344
CheckLR1 0 func_1
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckFacePosition 32772
Message 0 "Should we sail back to Canalave?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_2
Jump func_3
FUNCTIONS:
Func 1:
If 16632 2
CheckLR 5 func_4
Setflag 663
Killscript
Func 2:
Message 1 "Aye, aye!
Anchors aweigh!"
CloseMsgOnKeyPress
Goto func_5
If 32772 1
CheckLR1 1 func_6
If 32772 2
CheckLR1 1 func_7
If 32772 0
CheckLR1 1 func_8
ShipAnm 512 33 44 750
Releaseall
End
Func 3:
Message 2 "All right, then. Tell me if you’d like
to return to Canalave."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Killscript
Func 5:
Applymovement 0 mov_1
Waitmovement
Fanfare 1539
Applymovement 0 mov_2
Waitmovement
Killscript
Func 6:
Applymovement 255 mov_3
Waitmovement
Fanfare 1539
Applymovement 255 mov_2
Waitmovement
Killscript
Func 7:
Applymovement 255 mov_4
Waitmovement
Fanfare 1539
Applymovement 255 mov_2
Waitmovement
Killscript
Func 8:
Applymovement 255 mov_5
Waitmovement
Fanfare 1539
Applymovement 255 mov_2
Waitmovement
Killscript
(321) D30R0101 Newmoon Island R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
End
Script 2:
Checkflag 142
CheckLR 1 func_1
End
Script 3:
Lockall
Fanfare 1500
WaitFanfare 1500
Message 0 "...
..."
CloseMsgOnKeyPress
Setflag 142
WildBattle2 491 40 31 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_2
CheckWildBattle2 32780
If 32780 1
CheckLR 1 func_3
Setflag 344
Setflag 607
If 16632 2
CheckLR 1 func_4
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 606
Removepeople 0
Clearflag 142
End
Func 2:
LostGoPc
Releaseall
End
Func 3:
Message 1 "DARKRAI disappeared into the murky
darkness..."
CloseMsgOnKeyPress
Jump func_5
Func 4:
Return 30 32780
Fadescreen 6 3 0 0
Resetscreen
Fadescreen 6 3 1 0
Resetscreen
Fadescreen 6 3 0 0
Resetscreen
Fadescreen 6 3 1 0
Resetscreen
Fadescreen 6 6 0 0
Resetscreen
Return 120 32780
Warp 43 0 8 6 1
Fadescreen 6 6 1 0
Resetscreen
Releaseall
End
Func 5:
Setflag 607
If 16632 2
CheckLR 1 func_4
Releaseall
End
(322) D31 Battle Tower
SCRIPT ORDER:
Script 1
Script 2
Script 11
Script 12
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
SCRIPTS:
Script 1:
Lockall
CheckHiroPosition 32772 32773
If 32772 23
CheckLR1 1 func_1
If 32772 24
CheckLR1 1 func_2
If 32772 25
CheckLR1 1 func_3
If 32772 26
CheckLR1 1 func_4
Clearflag 660
Addpeople 11
Lock 11
Applymovement 11 mov_1
Applymovement 255 mov_2
Waitmovement
Fanfare 1538
Setvarhero 1
Message 0 "\vFF01\z00C8Thud!!\vFF01\z0064"
CloseMsgOnKeyPress
Return 30 32780
Applymovement 11 mov_3
Waitmovement
Message 1 "What the..."
CloseMsgOnKeyPress
Applymovement 11 mov_4
Waitmovement
Message 2 "Whoops, sorry about that!
I was in a rush."
Applymovement 11 mov_5
Waitmovement
Message 3 "Oh, wait a second...
Aren’t you...
You’re \v0103\z0001 from Twinleaf!
Wow, that brings back memories!
So, if you’re here, he can’t be far
behind...
This should be fun.
See you!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 23
CheckLR1 1 func_5
If 32772 24
CheckLR1 1 func_6
If 32772 25
CheckLR1 1 func_7
If 32772 26
CheckLR1 1 func_8
Removepeople 11
Clearflag 661
Addpeople 12
Lock 12
Applymovement 12 mov_1
Applymovement 255 mov_2
Waitmovement
Fanfare 1538
Setvarrival 0
Setvarhero 1
Message 4 "\vFF01\z00C8Thud!!\vFF01\z0064"
CloseMsgOnKeyPress
Return 30 32780
If 16542 1
CheckLR1 0 func_9
If 16542 1
CheckLR1 4 func_10
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 23
CheckLR1 1 func_11
If 32772 24
CheckLR1 1 func_12
If 32772 25
CheckLR1 1 func_13
If 32772 26
CheckLR1 1 func_14
Removepeople 12
Setvar 16654 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 6 "\v0103\z0000: What the...
Oh, hey, \v0103\z0001!
You came to the Battle Tower too,
huh?
I decided I’ll see how I measure up
for my quest to be the greatest!
But that guy you were just talking
to...
...Nah, it’s all right!
I got here on my own power.
It won’t take long before I see him.
See ya, \v0103\z0001!
I’m going to toughen up here!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 9 "In the Battle Rooms, the seventh
Trainer you face is the room’s boss.
You’ll need to stay focused if you
want to win!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Message 10 "If you get a big win streak at the
Battle Tower, you get to battle
some real superstars."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 11 "Mwahahaha! We earned a lot of BP
at the Battle Tower.
Now I can exchange them for
loads of prizes!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Message 12 "Aah."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 13 "I’m a babysitting Trainer!
I’m off to the Multi Battle Rooms
with my beloved son!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 14 "I heard that the world’s best
gather here for battles.
This is my chance to get global
fame and recognition!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 15 "The types of Pokémon!
The moves to be taught and used!
The items to be held!
To become number one here, there is
no detail that can be overlooked!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
Message 16 "I’d love to hook up with a Beauty
for the Multi Battle Rooms."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
CallMsgBox 519 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 12:
CallMsgBox 520 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
ChangeOwPosition 11 23 41
ChangeOwPosition 12 23 40
Killscript
Func 2:
ChangeOwPosition 11 24 41
ChangeOwPosition 12 24 40
Killscript
Func 3:
ChangeOwPosition 11 25 41
ChangeOwPosition 12 25 40
Killscript
Func 4:
ChangeOwPosition 11 26 41
ChangeOwPosition 12 26 40
Killscript
Func 5:
Applymovement 11 mov_6
Applymovement 255 mov_7
Waitmovement
Killscript
Func 6:
Applymovement 11 mov_6
Applymovement 255 mov_7
Waitmovement
Killscript
Func 7:
Applymovement 11 mov_8
Applymovement 255 mov_9
Waitmovement
Killscript
Func 8:
Applymovement 11 mov_8
Applymovement 255 mov_9
Waitmovement
Killscript
Func 9:
Message 5 "\v0103\z0000: What the...
Oh, hey, \v0103\z0001!
You came to the Battle Tower too,
huh?
I decided I’ll see how I measure up
before going to Stark Mountain.
But that guy you were just talking
to...
...Nah, it’s all right!
I got here on my own power.\fIt won’t take long before I see him.
See ya, \v0103\z0001!
I’m going to toughen up here!"
Killscript
Func 10:
Message 6 "\v0103\z0000: What the...
Oh, hey, \v0103\z0001!
You came to the Battle Tower too,
huh?
I decided I’ll see how I measure up
for my quest to be the greatest!
But that guy you were just talking
to...
...Nah, it’s all right!
I got here on my own power.\fIt won’t take long before I see him.
See ya, \v0103\z0001!
I’m going to toughen up here!"
Killscript
Func 11:
Applymovement 12 mov_6
Applymovement 255 mov_7
Waitmovement
Killscript
Func 12:
Applymovement 12 mov_6
Applymovement 255 mov_7
Waitmovement
Killscript
Func 13:
Applymovement 12 mov_8
Applymovement 255 mov_9
Waitmovement
Killscript
Func 14:
Applymovement 12 mov_8
Applymovement 255 mov_9
Waitmovement
Killscript
(323) D31R0101 Battle Tower R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 12
Script 92
Script 31
Script 27
Script 23
Script 32
Script 19
Script 94
Script 24
Script 3
Script 68
Script 48
Script 60
Script 83
Script 26
Script 6
Script 108
Script 30
Script 16
Script 74
Script 79
Script 50
Script 33
Script 114
Script 93
Script 106
Script 22
Script 14
Script 100
Script 76
Script 61
Script 56
Script 4
Script 112
Script 109
Script 28
Script 124
Script 59
Script 77
Script 53
Script 55
Script 5
Script 103
Script 110
Script 111
Script 29
Script 15
Script 67
Script 105
Script 113
Script 107
Script 25
Script 125
Script 86
Script 115
Script 63
Script 17
Script 38
Script 116
Script 101
Script 18
Script 70
Script 34
Script 88
Script 118
Script 102
Script 78
Script 123
Script 72
Script 82
Script 52
Script 57
Script 75
Script 21
Script 51
Script 117
Script 104
Script 58
Script 95
Script 121
Script 81
Script 62
Script 71
Script 80
Script 122
Script 41
Script 54
Script 42
Script 43
Script 45
Script 35
Script 89
Script 64
Script 119
Script 99
Script 73
Script 40
Script 20
Script 69
Script 49
Script 87
Script 98
Script 96
Script 97
Script 85
Script 39
Script 47
Script 44
Script 46
Script 36
Script 90
Script 65
Script 120
Script 84
Script 37
Script 91
Script 66
Script 13
SCRIPTS:
Script 1:
Setvar 16384 0
Setvar 16385 26
Jump func_1
Script 2:
Setvar 16384 1
Setvar 16385 15
Jump func_1
Script 3:
Fanfare 1500
Lockall
Faceplayer
ShowBPntsbox 277
Message 0 "Welcome to the Exchange Service
Corner!
We can exchange your BP
for fabulous items."
Message 1 "Which prize would you like in
exchange for your BP?"
Goto func_2
If 32780 65534
CheckLR 1 func_3
If2 32780 16385
CheckLR 1 func_3
Copyvar 16387 32780
029B 16384 16387 32768 32769
If 16384 0
CheckLR1 1 func_4
If 16384 1
CheckLR1 1 func_5
Yesnobox 32780
If 32780 1
CheckLR 1 func_6
CheckBPoints 32769 32780
If 32780 0
CheckLR 1 func_7
CheckStoreItem 32768 1 32780
If 32780 0
CheckLR 1 func_8
Message 3 "Here is your prize!"
TakeItem 32768 1 32780
TakeBPoints 32769
UpdateBPointsbox
Jump func_6
Script 4:
Setvaritem 0 32768
Setvaratkitem 1 32768
Message 7 "You’ve chosen \v0108\z0000,
\v0106\z0001. Is that correct?"
Killscript
Script 5:
Message 4 "I’m so sorry...
You don’t have enough BP..."
Jump func_6
Script 6:
Setvar 32776 0
Setvar 32777 0
Multi3 1 1 0 1 32780
029B 16384 32776 32768 32769
Setvaritem 0 32768
SetvarIdNumber 1 32769 1 3
Txtmsgscrpmulti 231 255 32776
Setvalue 32776 1
If2 32776 16385
CheckLR 0 func_9
Txtmsgscrpmulti 232 255 32776
CloseMulti4
Killscript
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 8 "What to get today...
Perhaps a Technical Machine will do."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 9 "What I most care about is the
crushing power of my darling Pokémon.
Are there any prizes that would
help them get more power?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 10 "How’s it going?
If things aren’t going well, why not
grab some prizes here?
It might toughen up your Pokémon
just enough to do better."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
Message 13 "Did you see that little girl with her
grandmother upstairs?
That girl is a little terror in battle.
You never can judge people!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Faceplayer
Message 14 "This building is so grand...
Why does it need to be so?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 12:
Fanfare 1500
Lockall
Message 11 "Gramma, Gramma!
I went and traded!
You can have this, Gramma!"
Message 12 "Oh, what is it, dear?
Oh, a Sludge Bomb...
Why, thank you so much, dear.
You’re such a cute, tough, and kind
girl...
I feel blessed to have a grandchild
like you..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
Script 14:
Script 15:
Script 16:
Script 17:
Script 18:
Script 19:
Script 20:
Script 21:
Script 22:
Script 23:
Script 24:
Script 25:
Script 26:
Script 27:
Script 28:
Script 29:
Script 30:
Script 31:
Script 32:
Script 33:
Script 34:
Script 35:
Script 36:
Script 37:
Script 38:
Script 39:
Script 40:
Script 41:
Script 42:
Script 43:
Script 44:
Script 45:
Script 46:
Script 47:
Script 48:
Script 49:
Script 50:
Script 51:
Script 52:
Script 53:
Script 54:
Script 55:
Script 56:
Script 57:
Script 58:
Script 59:
Script 60:
Script 61:
Script 62:
Script 63:
Script 64:
Script 65:
Script 66:
Script 67:
Script 68:
Script 69:
Script 70:
Script 71:
Script 72:
Script 73:
Script 74:
Script 75:
Script 76:
Script 77:
Script 78:
Script 79:
Script 80:
Script 81:
Script 82:
Script 83:
Script 84:
Script 85:
Script 86:
Script 87:
Script 88:
Script 89:
Script 90:
Script 91:
Script 92:
Script 93:
Script 94:
Script 95:
Script 96:
Script 97:
Script 98:
Script 99:
Script 100:
Script 101:
Script 102:
Script 103:
Script 104:
Script 105:
Script 106:
Script 107:
Script 108:
Script 109:
Script 110:
Script 111:
Script 112:
Script 113:
Script 114:
Script 115:
Script 116:
Script 117:
Script 118:
Script 119:
Script 120:
Script 121:
Script 122:
Script 123:
Script 124:
Script 125:
FUNCTIONS:
Func 1:
Fanfare 1500
Lockall
Faceplayer
ShowBPntsbox 277
Message 0 "Welcome to the Exchange Service
Corner!
We can exchange your BP
for fabulous items."
Message 1 "Which prize would you like in
exchange for your BP?"
Goto func_2
If 32780 65534
CheckLR 1 func_3
If2 32780 16385
CheckLR 1 func_3
Copyvar 16387 32780
029B 16384 16387 32768 32769
If 16384 0
CheckLR1 1 func_4
If 16384 1
CheckLR1 1 func_5
Yesnobox 32780
If 32780 1
CheckLR 1 func_6
CheckBPoints 32769 32780
If 32780 0
CheckLR 1 func_7
CheckStoreItem 32768 1 32780
If 32780 0
CheckLR 1 func_8
Message 3 "Here is your prize!"
TakeItem 32768 1 32780
TakeBPoints 32769
UpdateBPointsbox
Jump func_6
Func 2:
Setvar 32776 0
Setvar 32777 0
Multi3 1 1 0 1 32780
029B 16384 32776 32768 32769
Setvaritem 0 32768
SetvarIdNumber 1 32769 1 3
Txtmsgscrpmulti 231 255 32776
Setvalue 32776 1
If2 32776 16385
CheckLR 0 func_9
Txtmsgscrpmulti 232 255 32776
CloseMulti4
Killscript
Func 3:
Message 6 "Thank you for visiting.
Please visit us again when you have
saved up BP."
Waitbutton
CloseMsgOnKeyPress
HideBPointsbox
Releaseall
End
Func 4:
Setvaritem 0 32768
Message 2 "You’ve chosen the \v0108\z0000.
Is that correct?"
Killscript
Func 5:
Setvaritem 0 32768
Setvaratkitem 1 32768
Message 7 "You’ve chosen \v0108\z0000,
\v0106\z0001. Is that correct?"
Killscript
Func 6:
Message 1 "Which prize would you like in
exchange for your BP?"
Goto func_2
If 32780 65534
CheckLR 1 func_3
If2 32780 16385
CheckLR 1 func_3
Copyvar 16387 32780
029B 16384 16387 32768 32769
If 16384 0
CheckLR1 1 func_4
If 16384 1
CheckLR1 1 func_5
Yesnobox 32780
If 32780 1
CheckLR 1 func_6
CheckBPoints 32769 32780
If 32780 0
CheckLR 1 func_7
CheckStoreItem 32768 1 32780
If 32780 0
CheckLR 1 func_8
Message 3 "Here is your prize!"
TakeItem 32768 1 32780
TakeBPoints 32769
UpdateBPointsbox
Jump func_6
Func 7:
Message 4 "I’m so sorry...
You don’t have enough BP..."
Jump func_6
Func 8:
Setvaritem 0 32768
Message 5 "Sorry, your Bag has no room for
this \v0108\z0000..."
Jump func_6
Func 9:
029B 16384 32776 32768 32769
Setvaritem 0 32768
SetvarIdNumber 1 32769 1 3
Txtmsgscrpmulti 231 255 32776
Setvalue 32776 1
If2 32776 16385
CheckLR 0 func_9
Txtmsgscrpmulti 232 255 32776
CloseMulti4
Killscript
(324) D31R0102 Battle Tower R1-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(325) D31R0103 Battle Tower R1-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(326) D31R0201 Battle Tower R2-01
SCRIPT ORDER:
Script 4
Script 6
Script 5
Script 8
Script 9
Script 3
Script 10
Script 7
Script 11
Script 12
Script 13
Script 14
Script 15
Script 16
Script 17
Script 18
Script 19
Script 20
Script 21
Script 22
Script 23
Script 1
Script 2
SCRIPTS:
Script 1:
If 16600 1
CheckLR1 1 func_1
If 16600 3
CheckLR1 1 func_1
If 16600 255
CheckLR1 1 func_1
StorePeopleIdBTower 16384
If 16384 0
CheckLR 5 func_2
Setflag 519
CheckStatusPhraseBox? 2 16384
If 16384 0
CheckLR 5 func_3
Setflag 556
End
Script 2:
If 16600 1
CheckLR 5 func_4
StorePeopleIdBTower 16384
If 16384 0
CheckLR 5 func_5
If 16384 1
CheckLR 1 func_5
If 16384 2
CheckLR 1 func_5
If 16384 3
CheckLR 1 func_5
End
Script 3:
Lockall
Message 19 "Excuse me!
You didn’t save before you quit your
challenge last time.
Because of that, you have been
disqualified from your challenge!"
CallBTowerFunctions 14 0 32780
If 32780 4
CheckLR 1 func_6
Goto func_7
Message 2 "We hope to see you again!"
Waitbutton
CloseMsgOnKeyPress
Goto func_8
Goto func_9
Releaseall
End
Script 4:
Lockall
Fanfare 1500
ActivateBTower
Message 0 "Welcome to the Battle Tower!
I am your guide to the Single
and Double Battle Rooms."
Message 1 "Would you like to take the
Battle Room challenge?"
Goto func_10
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_11
If 32776 1
CheckLR 1 func_12
If 32776 2
CheckLR 1 func_13
Jump func_13
Script 5:
Lockall
Fanfare 1500
ActivateBTower
CallBTowerFunctions 12 0 32780
If 32780 1
CheckLR 1 func_14
Message 36 "Welcome to the Battle Tower!
I am your guide to the Wi-Fi
Battle Rooms."
CallBTowerFunctions 15 0 32780
If 32780 1
CheckLR 1 func_15
Message 37 "Would you like to take the Wi-Fi
Battle Room challenge?"
Goto func_16
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_17
If 32776 1
CheckLR 1 func_18
If 32776 2
CheckLR 1 func_19
If 32776 3
CheckLR 1 func_13
Jump func_13
Script 6:
Lockall
Fanfare 1500
ActivateBTower
Message 20 "Welcome to the Battle Tower!
I am your guide to the Multi
Battle Rooms."
Message 21 "Would you like to take the Multi
Battle Room challenge?"
Goto func_10
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_20
If 32776 1
CheckLR 1 func_21
If 32776 2
CheckLR 1 func_13
Jump func_13
Script 7:
Lockall
Goto func_22
CallBTowerFunctions 100 0 32780
If 32780 1
CheckLR 1 func_13
Message 56 "Saving...
Don’t turn off the power."
Goto func_23
Jump func_24
Script 8:
Lockall
Goto func_22
CallBTowerFunctions 100 0 32780
If 32780 1
CheckLR 1 func_13
CallBTowerFunctions 35 0 32780
If 32780 1
CheckLR 1 func_25
Message 53 "Thank you for playing!"
CallBTowerFunctions 43 0 32780
Copyvar 16384 32780
Copyvar 32776 16384
If 32776 5
CheckLR 1 func_26
If 32776 4
CheckLR 1 func_27
CallBTowerFunctions 49 0 32780
If 32780 1
CheckLR1 1 func_28
Message 56 "Saving...
Don’t turn off the power."
Goto func_23
CloseMsgOnKeyPress
If 16384 0
CheckLR 1 func_29
Jump func_24
Script 9:
Lockall
Setvar 16600 0
CallBTowerFunctions 4 0 32780
If 32780 0
CheckLR 1 func_30
Message 16 "We’ve been waiting for you!
Before entering a Battle Room, your
progress will be saved.
Saving...
Don’t turn off the power."
StoreBTowerData 1 65535
CallBTowerFunctions 43 0 32780
If 32780 2
CheckLR 1 func_31
Goto func_32
CallBTowerFunctions 5 0 0
Goto func_23
Message 11 "I will now show you to the
Battle Room."
0030
Jump func_33
Script 10:
Fanfare 1500
Lockall
Faceplayer
Setvar 16385 0
StorePrizeNumBTower 16386
Copyvar 32776 16386
If 32776 1
CheckLR 1 func_34
If 32776 2
CheckLR 1 func_35
If 32776 3
CheckLR 1 func_36
If 32776 4
CheckLR 1 func_37
Message 15 "We hope to see you again."
0030
If 16385 1
CheckLR 1 func_38
CloseMsgOnKeyPress
Releaseall
End
Script 11:
End
Script 12:
Setvar 32768 0
Setvar 32769 0
Goto func_39
End
Script 13:
Setvar 32768 0
Setvar 32769 1
Goto func_39
End
Script 14:
Setvar 32768 0
Setvar 32769 2
Goto func_39
End
Script 15:
01E4 32780
If 32780 0
CheckLR 1 func_40
Setvar 32768 1
Setvar 32769 0
Goto func_39
End
Script 16:
Fanfare 1500
Lockall
Faceplayer
Message 74 "Yeah, I used to live in a place
called Hoenn.
There was a place like this back
there, too."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 17:
Fanfare 1500
Lockall
Faceplayer
Message 75 "The Wi-Fi Battle Rooms are full of
surprises.
Can you imagine running into an old
rival who moved far away?
Who knows what cool encounters you’ll
have?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 18:
Fanfare 1500
Lockall
Faceplayer
Message 76 "They profile you on TV if you set
a good record here.
This is my only chance to regain
my glory as an Idol!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 19:
Fanfare 1500
Lockall
Faceplayer
Message 77 "I trained my little guy till we
couldn’t take any more.
He’s going to do a 100-win streak
for sure...
Right, PIKACHU?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 20:
Fanfare 1500
Lockall
Faceplayer
Message 78 "PIKACHU: ..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 21:
Fanfare 1500
Lockall
Faceplayer
Message 79 "Ooh-la-la!
You look tremendously powerful!
Verily, I shall look forward to
engaging you in a battle."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 22:
Fanfare 1500
Lockall
Faceplayer
Message 80 "There are so many tough Trainers
around...
It’s scary, but let’s do our best,
PIKACHU!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 23:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 81 "PIKACHU: Pichuu! Pichuu!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
0266
Killscript
Func 2:
Clearflag 519
Jump func_41
Func 3:
Clearflag 556
End
Func 4:
End
Func 5:
SetOwsFollow 3 2
End
Func 6:
CallBTowerFunctions 9 0 32780
If 32780 0
CheckLR 1 func_24
CallBTowerFunctions 10 0 32780
Copyvar 32768 32780
Setvarnum 0 32768
Message 65 "It’s very unfortunate, but you have
been demoted to Rank \v0133\z0000..."
Jump func_24
Func 7:
CallBTowerFunctions 6 0 0
Goto func_42
Killscript
Func 8:
CloseBTower
Killscript
Func 9:
Setvar 16600 0
Setvar 16603 0
Setvar 16604 0
Setvar 16605 0
Setvar 16601 0
Setvar 16606 0
Setvar 16607 0
Killscript
Func 10:
Multi 31 11 0 1 32780
ChooseWirePokeBCastle 16897 36096
Func 11:
Message 4 "Which Battle Room would you like?
Single or Double?"
Multi 31 11 0 1 32780
ChooseWirePokeBCastle 16897 1536
Func 12:
Message 3 "The Battle Tower’s Single Battle
Rooms are facilities for conducting\fSingle Battles with three Pokémon.
Similarly, the Double Battle Rooms
are facilities for conducting Double\fBattles with four Pokémon.
There are many Battle Rooms in the
Battle Tower for team battles.
In each of the Battle Rooms, seven
Trainers await your challenge.
If you manage to defeat all seven,
you will earn Battle Points (BP).
If you want to interrupt your
challenge, please save the game.
If you don’t save, you will be
disqualified from your challenge."
Jump func_43
Func 13:
Message 2 "We hope to see you again!"
Waitbutton
CloseMsgOnKeyPress
Goto func_8
Goto func_9
Releaseall
End
Func 14:
Message 61 "It’s good to see you back.
Your previous results were not sent
out using Nintendo WFC.
Would you like to send them now?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_44
Goto func_45
If 32780 0
CheckLR 1 func_13
Goto func_46
If 32780 0
CheckLR 5 func_13
Message 60 "Your results were sent out using
Nintendo WFC!"
Jump func_13
Func 15:
Message 37 "Would you like to take the Wi-Fi
Battle Room challenge?"
Goto func_47
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_17
If 32776 1
CheckLR 1 func_18
If 32776 2
CheckLR 1 func_48
If 32776 3
CheckLR 1 func_19
If 32776 4
CheckLR 1 func_13
Jump func_13
Func 16:
Multi 31 9 0 1 32780
ChooseWirePokeBCastle 16897 36096
Func 17:
StoreBTowerData 0 4
Jump func_49
Func 18:
Goto func_45
If 32780 0
CheckLR 1 func_13
CloseMsgOnKeyPress
Setvar 16385 2
Goto func_50
If 32780 0
CheckLR 5 func_13
StoreRankDataWireBTower 32772 32773
Setvarnum 0 32772
SetvarIdNumber 1 32773 2 3
Message 52 "I’ve downloaded the Rank \v0133\z0000, Battle
Room \v0134\z0001’s past leader history.
Please confirm it on the Performance
Monitor next to me."
0030
Jump func_51
Func 19:
Message 38 "The Battle Tower’s Wi-Fi Battle Rooms
are places to conduct battles over\fNintendo Wi-Fi Connection (WFC).
In Wi-Fi Battles, you will be battling
Trainers from around the world over\fNintendo WFC.
Inside the Battle Tower, there are
many Battle Rooms.
In each of the Battle Rooms, seven
Trainers await your challenge.
If you manage to defeat all seven,
you will earn Battle Points.
Depending on how you do, you may
even become the room’s leader!
Also, the Wi-Fi Battle Rooms are
operated on a ranking system.
Trainers will go up in rank if they
keep winning Wi-Fi Battles.
Contrarily, their rankings could go
down if they lose consistently.
To raise your rank, keep winning,
especially against tougher Trainers.
If you want to interrupt your
challenge, please save the game.
If you don’t save, you will be
disqualified from your challenge."
Jump func_52
Func 20:
CallBTowerFunctions 1 2 32780
If 32780 1
CheckLR 1 func_53
BCastleFunctReturn 88 2 0 0
Jump func_51
Func 21:
Message 23 "The Battle Tower’s Multi Battle
Rooms are facilities for conducting\fMulti Battles.
For Multi Battles, you must partner
with a Trainer in the tower and enter\fwith two Pokémon each.
Inside the tower is a room named
the Battle Salon where you can meet\fother Trainers.
There, you must find a Trainer to act
as your partner in the Multi Battles.
Once you have partnered up, you will
be shown to a Multi Battle Room.
In the Multi Battle Room, seven
tag teams await your challenge.
If you manage to defeat all seven
teams, you will earn Battle Points.
If you want to interrupt your
challenge, please save the game.
If you don’t save, you will be
disqualified from your challenge.
Also, if you are in a tag team with
a friend, you may not interrupt your\fchallenge."
Jump func_54
Func 22:
Goto func_9
CallBTowerFunctions 6 0 0
Killscript
Func 23:
Showclocksave
CheckSaveData 32780 398
Fanfare 1563
WaitFanfare 1563
Killscript
Func 24:
Goto func_7
Message 2 "We hope to see you again!"
Waitbutton
CloseMsgOnKeyPress
Goto func_8
Goto func_9
Releaseall
End
Func 25:
CallBTowerFunctions 43 0 32780
Copyvar 16384 32780
If 16384 5
CheckLR 1 func_55
If 16384 0
CheckLR 1 func_56
If 16384 4
CheckLR 1 func_57
CallBTowerFunctions 49 0 32780
If 32780 0
CheckLR 5 func_58
Goto func_59
Message 14 "Saving...
Don’t turn off the power."
Goto func_23
CloseMsgOnKeyPress
Jump func_24
Func 26:
Message 56 "Saving...
Don’t turn off the power."
Goto func_23
CloseMsgOnKeyPress
If 16384 0
CheckLR 1 func_29
Jump func_24
Func 27:
CallBTowerFunctions 9 0 32780
If 32780 1
CheckLR 1 func_60
Jump func_61
Func 28:
Message 73 "Congratulations on achieving your
50-win streak.
Your winning Pokémon team has won
special Ribbons for this feat!"
Soundfr 1155
Fadedef
Killscript
Func 29:
StorePrizeNumBTower 32780
If 32780 0
CheckLR 1 func_24
Message 116 "We look forward to your next visit."
CloseMsgOnKeyPress
Copyvar 16386 32780
Setvar 16385 1
Goto func_62
Jump func_63
Func 30:
Lockall
Message 19 "Excuse me!
You didn’t save before you quit your
challenge last time.
Because of that, you have been
disqualified from your challenge!"
CallBTowerFunctions 14 0 32780
If 32780 4
CheckLR 1 func_6
Goto func_7
Message 2 "We hope to see you again!"
Waitbutton
CloseMsgOnKeyPress
Goto func_8
Goto func_9
Releaseall
End
Func 31:
Goto func_64
CallBTowerFunctions 5 0 0
Goto func_23
CallBTowerFunctions 51 0 32780
Copyvar 16393 32780
Message 32 "I’ll direct you to your
Multi Battle Room now."
0030
Jump func_33
Func 32:
Setvar 16600 255
Setvar 16603 1
Setvar 16604 1
Setvar 16601 2
Killscript
Func 33:
CloseMsgOnKeyPress
CallBTowerFunctions 43 0 32780
Copyvar 32776 32780
If 32776 4
CheckLR 1 func_65
If 32776 5
CheckLR 1 func_65
If 32776 2
CheckLR 1 func_66
If 32776 3
CheckLR 1 func_67
Jump func_68
Func 34:
Setvarnum 0 20
Setvar 32772 85
Jump func_69
Func 35:
Setvarnum 0 50
Setvar 32772 86
Jump func_69
Func 36:
Setvarnum 0 100
Setvar 32772 87
Jump func_69
Func 37:
Message 86 "...Uh-oh... You’ve run out of room
for decoration goods.
Please make room, and come back
for your prize."
Jump func_70
Func 38:
Goto func_7
Jump func_51
Func 39:
Fanfare 1500
Lockall
Fadescreen 6 1 0 0
Resetscreen
BattleRmResult 32768 32769
Callend
Fadescreen 6 1 1 0
Resetscreen
Releaseall
Killscript
Func 40:
Message 114 "There doesn’t appear to be any
data yet..."
CloseMsgOnKeyPress
End
Func 41:
CheckStatusPhraseBox? 2 16384
If 16384 0
CheckLR 5 func_3
Setflag 556
End
Func 42:
CallBTowerFunctions 3 0 0
Killscript
Func 43:
Message 1 "Would you like to take the
Battle Room challenge?"
Goto func_10
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_11
If 32776 1
CheckLR 1 func_12
If 32776 2
CheckLR 1 func_13
Jump func_13
Func 44:
Jump func_52
Func 45:
Callstd 214 7
Copyvar 32780 16384
Killscript
Func 46:
CloseMsgOnKeyPress
Setvar 16385 1
Goto func_50
Killscript
Func 47:
Multi 31 7 0 1 32780
ChooseWirePokeBCastle 16897 36096
Func 48:
StoreBTowerData 0 5
Jump func_49
Func 49:
CallBTowerFunctions 1 0 32780
If 32780 1
CheckLR 1 func_71
BCastleFunctReturn 88 3 0 0
Jump func_51
Func 50:
Fadescreen 6 1 0 0
Resetscreen
StartWfc 16384
CallBTowerFunctions 16 16385 16384
Copyvar 16385 16384
Callend
Fadescreen 6 1 1 0
Resetscreen
Copyvar 32780 16385
Killscript
Func 51:
CloseMsgOnKeyPress
Goto func_8
Goto func_9
Releaseall
End
Func 52:
CallBTowerFunctions 15 0 32780
If 32780 1
CheckLR 1 func_15
Message 37 "Would you like to take the Wi-Fi
Battle Room challenge?"
Goto func_16
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_17
If 32776 1
CheckLR 1 func_18
If 32776 2
CheckLR 1 func_19
If 32776 3
CheckLR 1 func_13
Jump func_13
Func 53:
Message 26 "Would you like to communicate with
a friend and form a tag team?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_72
StoreBTowerData 0 2
Setvar 16385 0
Jump func_73
Func 54:
Message 21 "Would you like to take the Multi
Battle Room challenge?"
Goto func_10
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_20
If 32776 1
CheckLR 1 func_21
If 32776 2
CheckLR 1 func_13
Jump func_13
Func 55:
Message 54 "Congratulations!
You’ve beaten all seven Trainers!"
Jump func_74
Func 56:
CallBTowerFunctions 45 0 32780
If 32780 0
CheckLR 1 func_75
CallBTowerFunctions 46 0 32780
Copyvar 16384 32780
Setvarhero 0
Setvarnum 1 16384
Message 13 "Congratulations!
You’ve beaten the Tower Tycoon!
We present you with these Battle
Points in recognition of your talent!
\v0103\z0000 received
\v0132\z0001 BP!"
CallBTowerFunctions 48 0 32780
If 32780 0
CheckLR 1 func_76
Message 84 "Congratulations on defeating
the Tower Tycoon!
The Pokémon on your team will be
provided with commemorative Ribbons."
Soundfr 1155
Fadedef
Jump func_76
Func 57:
Message 12 "Congratulations!
You’ve beaten all seven Trainers!"
CallBTowerFunctions 46 0 32780
Copyvar 32772 32780
Setvarhero 0
Setvarnum 1 32772
Message 58 "For your 7-win streak, we present
you these Battle Points!
\v0103\z0000 obtained
\v0132\z0001 BP."
Soundfr 1158
Fadedef
CallBTowerFunctions 54 0 32780
If 32780 0
CheckLR 1 func_61
CallBTowerFunctions 10 0 32780
Copyvar 16384 32780
Setvarhero 0
Setvarnum 1 16384
Message 55 "\v0103\z0000, you have also been
promoted to Rank \v0133\z0001!"
CallBTowerFunctions 49 0 32780
If 32780 0
CheckLR 1 func_61
Setvarnum 0 16384
Message 70 "Congratulations on achieving
Rank \v0133\z0000.
Your winning Pokémon team has won
special Ribbons for this feat!"
Soundfr 1155
Fadedef
Jump func_61
Func 58:
Message 12 "Congratulations!
You’ve beaten all seven Trainers!"
CallBTowerFunctions 46 0 32780
Copyvar 32772 32780
Setvarhero 0
Setvarnum 1 32772
Message 58 "For your 7-win streak, we present
you these Battle Points!
\v0103\z0000 obtained
\v0132\z0001 BP."
Soundfr 1158
Fadedef
Message 73 "Congratulations on achieving your
50-win streak.
Your winning Pokémon team has won
special Ribbons for this feat!"
Soundfr 1155
Fadedef
Jump func_74
Func 59:
Message 12 "Congratulations!
You’ve beaten all seven Trainers!"
CallBTowerFunctions 46 0 32780
Copyvar 32772 32780
Setvarhero 0
Setvarnum 1 32772
Message 58 "For your 7-win streak, we present
you these Battle Points!
\v0103\z0000 obtained
\v0132\z0001 BP."
Soundfr 1158
Fadedef
Killscript
Func 60:
CallBTowerFunctions 10 0 32780
Copyvar 32768 32780
Setvarnum 0 32768
Message 65 "It’s very unfortunate, but you have
been demoted to Rank \v0133\z0000..."
Jump func_61
Func 61:
CallBTowerFunctions 11 1 0
Goto func_7
Message 56 "Saving...
Don’t turn off the power."
Goto func_23
Message 57 "Would you like to send these results
using Nintendo WFC?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_13
Goto func_46
If 32780 0
CheckLR 5 func_13
Message 60 "Your results were sent out using
Nintendo WFC!"
Jump func_13
Func 62:
Applymovement 255 mov_1
Waitmovement
Killscript
Func 63:
Copyvar 32776 16386
If 32776 1
CheckLR 1 func_34
If 32776 2
CheckLR 1 func_35
If 32776 3
CheckLR 1 func_36
If 32776 4
CheckLR 1 func_37
Message 15 "We hope to see you again."
0030
If 16385 1
CheckLR 1 func_38
CloseMsgOnKeyPress
Releaseall
End
Func 64:
Setvar 16600 255
Setvar 16603 2
Setvar 16605 1
Setvar 16606 2
Setvar 16607 0
Killscript
Func 65:
Setvar 16386 2
Setvar 16387 15
Goto func_77
Jump func_78
Func 66:
Setvar 16386 1
Setvar 16387 7
Goto func_77
Jump func_79
Func 67:
Setvar 16386 1
Setvar 16387 7
Goto func_77
Jump func_80
Func 68:
Setvar 16386 0
Setvar 16387 11
Goto func_77
Jump func_78
Func 69:
Message 85 "Congratulations on achieving
your \v0134\z0000-win streak!
Please accept this trophy for your
fantastic achievement!"
Setvar 32773 1
Callstd 254 7
Message 15 "We hope to see you again."
Jump func_70
Func 70:
0030
If 16385 1
CheckLR 1 func_38
CloseMsgOnKeyPress
Releaseall
End
Func 71:
Message 8 "Please select the Pokémon you wish
to enter."
Goto func_81
If 32780 0
CheckLR 1 func_13
CallBTowerFunctions 32 0 32780
Copyvar 32776 32780
If 32776 1
CheckLR 1 func_82
If 32776 2
CheckLR 1 func_83
CallBTowerFunctions 43 0 32780
If 32780 4
CheckLR 1 func_84
Goto func_85
CallBTowerFunctions 5 0 0
HealPkmn
Goto func_45
If 32780 0
CheckLR 1 func_24
CallBTowerFunctions 57 0 32780
CallBTowerFunctions 52 0 0
Message 11 "I will now show you to the
Battle Room."
0030
CloseMsgOnKeyPress
CallBTowerFunctions 43 0 32780
Copyvar 32776 32780
If 32776 4
CheckLR 1 func_65
If 32776 5
CheckLR 1 func_65
If 32776 2
CheckLR 1 func_66
If 32776 3
CheckLR 1 func_67
Jump func_68
Func 72:
StoreBTowerData 0 3
Setvar 16385 1
Jump func_73
Func 73:
Message 8 "Please select the Pokémon you wish
to enter."
Goto func_81
If 32780 0
CheckLR 1 func_13
CallBTowerFunctions 32 0 32780
Copyvar 32776 32780
If 32776 1
CheckLR 1 func_82
If 32776 2
CheckLR 1 func_83
If 16385 1
CheckLR 1 func_86
Goto func_87
CallBTowerFunctions 5 0 0
HealPkmn
Goto func_45
If 32780 0
CheckLR 1 func_24
CallBTowerFunctions 57 0 32780
CallBTowerFunctions 52 0 0
Message 35 "I will now show you to the
Battle Salon."
Jump func_33
Func 74:
Message 14 "Saving...
Don’t turn off the power."
Goto func_23
CloseMsgOnKeyPress
Jump func_24
Func 75:
Goto func_59
Message 14 "Saving...
Don’t turn off the power."
Goto func_23
StorePrizeNumBTower 32780
If 32780 0
CheckLR 1 func_24
Message 116 "We look forward to your next visit."
CloseMsgOnKeyPress
Copyvar 16386 32780
Setvar 16385 1
Goto func_62
Jump func_63
Func 76:
Message 14 "Saving...
Don’t turn off the power."
Goto func_23
StorePrizeNumBTower 32780
If 32780 0
CheckLR 1 func_24
Message 116 "We look forward to your next visit."
CloseMsgOnKeyPress
Copyvar 16386 32780
Setvar 16385 1
Goto func_62
Jump func_63
Func 77:
Applymovement 16386 mov_2
Applymovement 255 mov_3
Waitmovement
PrpDoorAnm 0 0 16387 2 77
Opendoor 77
Waitaction 77
Applymovement 16386 mov_4
Applymovement 255 mov_5
Waitmovement
Closedoor 77
Waitaction 77
Waitclose 77
Killscript
Func 78:
Jump func_88
Func 79:
Jump func_88
Func 80:
Setvar 16603 2
Jump func_88
Func 81:
Fadescreen 6 1 0 0
Resetscreen
CloseMsgOnKeyPress
CallBTowerFunctions 30 0 0
Callend
CallBTowerFunctions 31 0 32780
Fadescreen 6 1 1 0
Resetscreen
Killscript
Func 82:
Message 9 "Your Pokémon must all be different."
Jump func_13
Func 83:
Message 10 "Hold items must all be different."
Jump func_13
Func 84:
Goto func_45
If 32780 0
CheckLR 1 func_24
Goto func_85
CallBTowerFunctions 5 0 0
HealPkmn
CloseMsgOnKeyPress
Setvar 16385 0
Goto func_50
If 32780 0
CheckLR 5 func_24
Message 47 "OK. I’ll direct you to your Battle
Room now.
Are you ready?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_33
Message 48 "Would you like to save and
interrupt your challenge?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_89
Setvar 16600 2
CallBTowerFunctions 39 0 0
CloseBTower
Message 56 "Saving...
Don’t turn off the power."
Goto func_23
SetSaveData 30
Fadescreen 6 1 0 0
Resetscreen
CloseMsgOnKeyPress
CallBTowerFunctions 2 0 0
Releaseall
End
Func 85:
Setvar 16600 255
Setvar 16603 1
Setvar 16604 1
Setvar 16601 1
Killscript
Func 86:
Goto func_45
If 32780 0
CheckLR 1 func_24
Message 27 "One Trainer should select
“BECOME LEADER.”
The other Trainer must select
“JOIN GROUP.”"
Multi 30 1 0 1 32780
ChooseWirePokeBCastle 16897 3328
Func 87:
Setvar 16600 255
Setvar 16603 3
Setvar 16605 1
Setvar 16606 1
Setvar 16607 1
Killscript
Func 88:
Fadescreen 6 1 0 0
Resetscreen
Warp 327 0 3 6 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 89:
Message 47 "OK. I’ll direct you to your Battle
Room now.
Are you ready?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_33
Message 48 "Would you like to save and
interrupt your challenge?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_89
Setvar 16600 2
CallBTowerFunctions 39 0 0
CloseBTower
Message 56 "Saving...
Don’t turn off the power."
Goto func_23
SetSaveData 30
Fadescreen 6 1 0 0
Resetscreen
CloseMsgOnKeyPress
CallBTowerFunctions 2 0 0
Releaseall
End
(327) D31R0202 Battle Tower R2-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
If 16603 0
CheckLR1 5 func_1
End
Script 2:
Lockall
Setvar 16384 0
Goto func_2
Jump func_3
Script 3:
Lockall
Setvar 16384 0
Goto func_2
Jump func_4
Script 4:
Lockall
Setvar 16384 1
Goto func_2
Jump func_5
FUNCTIONS:
Func 1:
ActContestMap?
Killscript
Func 2:
Goto func_6
StoreElevatorDirection 16384 3
Goto func_7
Killscript
Func 3:
Fadescreen 6 1 0 0
Resetscreen
Warp 328 0 2 1 1
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 4:
Fadescreen 6 1 0 0
Resetscreen
Warp 329 0 8 3 1
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 5:
Fadescreen 6 1 0 0
Resetscreen
Warp 493 0 8 2 1
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 6:
Applymovement 255 mov_1
Waitmovement
Killscript
Func 7:
Applymovement 0 mov_2
Applymovement 255 mov_3
Waitmovement
Killscript
(328) D31R0203 Battle Tower R2-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
End
Script 2:
If 16604 0
CheckLR1 5 func_1
End
Script 3:
Lockall
Goto func_2
CheckIdPlayer 32780 4
Copyvar 32776 32780
If 32776 1
CheckLR 1 func_3
If 32776 2
CheckLR 1 func_4
If 32776 3
CheckLR 1 func_5
Jump func_6
FUNCTIONS:
Func 1:
RemovePeople2 255
Killscript
Func 2:
PrpDoorAnm 0 0 2 2 77
Opendoor 77
Waitaction 77
Applymovement 0 mov_1
Waitmovement
AddPeople2 255
Applymovement 255 mov_2
Waitmovement
Closedoor 77
Waitaction 77
Waitclose 77
Killscript
Func 3:
Applymovement 0 mov_3
Applymovement 255 mov_4
Waitmovement
Jump func_7
Func 4:
Applymovement 0 mov_5
Applymovement 255 mov_6
Waitmovement
Jump func_7
Func 5:
Applymovement 0 mov_7
Applymovement 255 mov_8
Waitmovement
Jump func_7
Func 6:
Applymovement 0 mov_9
Applymovement 255 mov_10
Waitmovement
Jump func_7
Func 7:
Fadescreen 6 1 0 0
Resetscreen
Warp 330 0 7 6 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
(329) D31R0204 Battle Tower R2-04
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
If 16605 0
CheckLR 1 func_1
StorePokeColosseumLost 16384
If 16384 1
CheckLR 1 func_2
CallBTowerFunctions 55 0 16384
Copyvar 16416 16384
CallBTowerFunctions 55 1 16384
Copyvar 16417 16384
End
Script 2:
If 16605 0
CheckLR1 5 func_3
RemovePeople2 2
RemovePeople2 3
End
Script 3:
Lockall
Goto func_4
Goto func_5
Goto func_6
Fadescreen 6 1 0 0
Resetscreen
Warp 331 0 7 5 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
FUNCTIONS:
Func 1:
End
Func 2:
CallBTowerFunctions 55 0 16384
Copyvar 16417 16384
CallBTowerFunctions 55 1 16384
Copyvar 16416 16384
End
Func 3:
RemovePeople2 255
ChangeHiroCamPosition 8 0 0
Killscript
Func 4:
PrpDoorAnm 0 0 3 2 77
PrpDoorAnm 0 0 14 2 78
Opendoor 77
Opendoor 78
Waitaction 77
Waitaction 78
Applymovement 0 mov_1
Applymovement 1 mov_1
Waitmovement
AddPeople2 2
AddPeople2 3
Applymovement 2 mov_2
Applymovement 3 mov_2
Waitmovement
Closedoor 77
Closedoor 78
Waitaction 77
Waitaction 78
Waitclose 77
Waitclose 78
Killscript
Func 5:
Applymovement 0 mov_3
Applymovement 2 mov_4
Applymovement 1 mov_5
Applymovement 3 mov_6
Waitmovement
Killscript
Func 6:
Applymovement 0 mov_7
Applymovement 1 mov_7
Applymovement 2 mov_8
Applymovement 3 mov_8
Waitmovement
Killscript
(330) D31R0205 Battle Tower R2-05
SCRIPT ORDER:
Script 1
Script 4
Script 5
Script 3
Script 2
SCRIPTS:
Script 1:
If 16601 0
CheckLR 1 func_1
Setflag 489
CallBTowerFunctions 55 0 16384
Copyvar 16416 16384
End
Script 2:
RemovePeople2 255
If 16601 3
CheckLR 1 func_2
End
Script 3:
Setvar 16601 0
Fanfare 1500
Lockall
Faceplayer
Goto func_3
Releaseall
End
Script 4:
Lockall
Setvar 16601 3
CallBTowerFunctions 100 0 32780
If 32780 1
CheckLR 1 func_4
Goto func_5
Jump func_6
Script 5:
Lockall
Setvar 16601 3
CallBTowerFunctions 100 0 32780
If 32780 1
CheckLR 1 func_4
Goto func_5
Goto func_7
Jump func_8
FUNCTIONS:
Func 1:
End
Func 2:
SetOwPosition 2 5 0 6 3
End
Func 3:
CallBTowerFunctions 40 0 0
Goto func_9
SetBCastleFunctionId? 0
0030
CloseMsgOnKeyPress
Goto func_10
CallBTowerFunctions 42 0 0
CheckTrainerLost 32780
Copyvar 32772 32780
Killscript
Func 4:
Return 30 32780
Setvar 16600 1
CallBTowerFunctions 43 0 32780
Copyvar 32776 32780
If 32776 4
CheckLR 1 func_11
If 32776 5
CheckLR 1 func_11
Fadescreen 6 1 0 0
Resetscreen
Warp 326 0 11 6 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 5:
Applymovement 2 mov_1
Waitmovement
Killscript
Func 6:
Goto func_3
If 32772 0
CheckLR 1 func_12
Goto func_13
If 32780 1
CheckLR 1 func_14
Goto func_15
Goto func_16
Goto func_17
Jump func_8
Func 7:
Applymovement 0 mov_2
Applymovement 2 mov_3
Waitmovement
Killscript
Func 8:
CallBTowerFunctions 43 0 32780
If 32780 0
CheckLR 5 func_18
CallBTowerFunctions 36 0 32780
If 32780 20
CheckLR 1 func_19
If 32780 48
CheckLR 1 func_19
Jump func_18
Func 9:
CallBTowerFunctions 41 0 32780
Copyvar 16417 32780
Clearflag 489
Addpeople 1
Applymovement 1 mov_4
Waitmovement
Killscript
Func 10:
Applymovement 2 mov_5
Applymovement 1 mov_6
Waitmovement
Killscript
Func 11:
Fadescreen 6 1 0 0
Resetscreen
Warp 326 0 15 6 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 12:
CallBTowerFunctions 37 0 0
Jump func_4
Func 13:
CallBTowerFunctions 34 0 32780
CallBTowerFunctions 35 0 32780
Killscript
Func 14:
CallBTowerFunctions 38 0 0
Jump func_4
Func 15:
Applymovement 1 mov_7
Waitmovement
Setflag 489
Removepeople 1
Killscript
Func 16:
Applymovement 2 mov_8
Applymovement 0 mov_2
Waitmovement
Killscript
Func 17:
Message 0 "Your Pokémon will be restored to
full health."
Soundfr 1166
Fadedef
HealPkmn
Killscript
Func 18:
CallBTowerFunctions 33 0 32772
Setvarnum 0 32772
Message 1 "You will be facing opponent no. \v0132\z0000.
Are you ready?"
Multi3 21 11 0 0 32780
Txtmsgscrpmulti 146 255 0
Txtmsgscrpmulti 147 255 1
Txtmsgscrpmulti 148 255 2
CloseMulti4
CloseMsgOnKeyPress
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_20
If 32776 1
CheckLR 1 func_21
If 32776 2
CheckLR 1 func_22
Jump func_20
Func 19:
Message 9 "Congratulations on your winning
streak, challenger!
The Tower Tycoon has sent word
that he is impressed with you.
He recognizes your skill, and he’d
like to challenge you to a battle!
Are you ready to battle the Tower
Tycoon?"
Multi3 21 11 0 0 32780
Txtmsgscrpmulti 146 255 0
Txtmsgscrpmulti 147 255 1
Txtmsgscrpmulti 148 255 2
CloseMulti4
CloseMsgOnKeyPress
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_23
If 32776 1
CheckLR 1 func_21
If 32776 2
CheckLR 1 func_22
Jump func_23
Func 20:
Goto func_24
Jump func_6
Func 21:
Message 2 "Would you like to save and
quit the game?"
Yesnobox 32780
CloseMsgOnKeyPress
If 32780 0
CheckLR 1 func_25
Jump func_18
Func 22:
Message 3 "Would you like to cancel your
Battle Room challenge?"
Yesnobox 32780
CloseMsgOnKeyPress
If 32780 0
CheckLR 1 func_26
Jump func_18
Func 23:
Goto func_24
CallBTowerFunctions 40 0 0
Goto func_27
CallBTowerFunctions 36 0 32780
If 32780 48
CheckLR 1 func_28
Setvarhero 0
Setvarrival 1
Message 10 "Hi!
My name’s Palmer.
I remember you from when you were
in Twinleaf, \v0103\z0000.
You were always playing with my son
\v0103\z0001, right?
You’ve grown up since then, and
most impressively, too!
So, I’d like you to show me.
Show me the bond you’ve built
with your Pokémon.
Show me the skill you’ve acquired
as a Trainer!"
CloseMsgOnKeyPress
Goto func_10
CallBTowerFunctions 42 0 0
CheckTrainerLost 32780
Copyvar 32772 32780
If 32772 0
CheckLR 1 func_12
CallBTowerFunctions 36 0 32780
If 32780 48
CheckLR 1 func_29
Message 12 "Bravo!
One day, I imagine my son will come
challenge me just as you have.
That’s something I look forward
to a great deal.
You will become even more skilled,
the very same way your father did.
Keep battling Trainers from around
the world and keep growing greater\fin stature!"
CallBTowerFunctions 44 1 0
CloseMsgOnKeyPress
Goto func_13
Jump func_14
Func 24:
Applymovement 2 mov_9
Applymovement 0 mov_10
Waitmovement
Killscript
Func 25:
Setvar 16600 2
CallBTowerFunctions 39 0 0
CloseBTower
Message 4 "Saving...
Don’t turn off the power."
Showclocksave
CheckSaveData 32780 398
Fanfare 1563
WaitFanfare 1563
Fadescreen 6 1 0 0
Resetscreen
CloseMsgOnKeyPress
CallBTowerFunctions 2 0 0
End
Func 26:
Jump func_12
Func 27:
Setvar 16417 169
Clearflag 489
Addpeople 1
Applymovement 1 mov_11
Waitmovement
Killscript
Func 28:
Message 11 "Palmer: So, you’ve come this far!
As the Tower Tycoon, I’ll have to
give you my best effort.
That’s how the best Trainers show
respect to each other.
By battling all out as dedicated
students of Pokémon!"
Jump func_30
Func 29:
Message 13 "Bravo!
I feel inspired in my heart!
It brings back a memory of that day
long ago...
I went out to the lake with your
father that day...
We were attacked by a wild Pokémon.
We fended it off, but I don’t recall
how. It was that desperate.
That was my first step as
a Trainer.
I wonder if the professor is doing
well?
...That’s enough reminiscing.
My young friend, the world and
your future hold infinite promise.
Go on, you can be all that you
desire!
There is no limit to where you
can go!"
CallBTowerFunctions 44 2 0
Jump func_31
Func 30:
CloseMsgOnKeyPress
Goto func_10
CallBTowerFunctions 42 0 0
CheckTrainerLost 32780
Copyvar 32772 32780
If 32772 0
CheckLR 1 func_12
CallBTowerFunctions 36 0 32780
If 32780 48
CheckLR 1 func_29
Message 12 "Bravo!
One day, I imagine my son will come
challenge me just as you have.
That’s something I look forward
to a great deal.
You will become even more skilled,
the very same way your father did.
Keep battling Trainers from around
the world and keep growing greater\fin stature!"
CallBTowerFunctions 44 1 0
CloseMsgOnKeyPress
Goto func_13
Jump func_14
Func 31:
CloseMsgOnKeyPress
Goto func_13
Jump func_14
(331) D31R0206 Battle Tower R2-06
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
If 16606 0
CheckLR 1 func_1
Setflag 520
Setflag 521
StorePokeColosseumLost 16384
If 16384 1
CheckLR 1 func_2
CallBTowerFunctions 55 0 16384
Copyvar 16416 16384
CallBTowerFunctions 55 1 16384
Copyvar 16417 16384
End
Script 2:
If 16606 0
CheckLR1 5 func_3
If 16606 3
CheckLR 1 func_4
End
Script 3:
Lockall
Setvar 16606 3
Goto func_5
CallBTowerFunctions 43 0 32780
If 32780 3
CheckLR 1 func_6
Jump func_7
Script 4:
Lockall
Setvar 16606 3
Goto func_5
Goto func_8
Jump func_9
FUNCTIONS:
Func 1:
End
Func 2:
CallBTowerFunctions 55 0 16384
Copyvar 16417 16384
CallBTowerFunctions 55 1 16384
Copyvar 16416 16384
End
Func 3:
RemovePeople2 255
ChangeHiroCamPosition 8 0 0
Killscript
Func 4:
SetOwPosition 2 5 0 5 3
SetOwPosition 3 5 0 6 3
Jump func_10
Func 5:
Applymovement 2 mov_1
Applymovement 3 mov_2
Waitmovement
Killscript
Func 6:
Goto func_11
If 32772 0
CheckLR 1 func_12
Goto func_13
If 32780 1
CheckLR 1 func_14
Goto func_15
Goto func_16
Goto func_17
CallBTowerFunctions 33 0 32772
Setvarnum 0 32772
Message 3 "Up next, opponent pair no. \v0132\z0000.
Are you ready?"
Multi3 21 13 0 0 32780
Txtmsgscrpmulti 146 255 0
Txtmsgscrpmulti 148 255 1
CloseMulti4
CloseMsgOnKeyPress
Setvar 16384 0
If 32780 1
CheckLR 1 func_18
Message 7 "Awaiting response from a friend..."
FriendBT2
FriendBT 5
CallBTowerWireFunction 2 16384 482
End
Func 7:
Goto func_19
If 32772 0
CheckLR 1 func_12
Goto func_13
If 32780 1
CheckLR 1 func_14
Goto func_15
Goto func_16
Goto func_17
CallBTowerFunctions 33 0 32772
Setvarnum 0 32772
Message 3 "Up next, opponent pair no. \v0132\z0000.
Are you ready?"
Multi3 21 11 0 0 32780
Txtmsgscrpmulti 146 255 0
Txtmsgscrpmulti 147 255 1
Txtmsgscrpmulti 148 255 2
CloseMulti4
CloseMsgOnKeyPress
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_20
If 32776 1
CheckLR 1 func_21
If 32776 2
CheckLR 1 func_22
Jump func_20
Func 8:
Applymovement 0 mov_3
Applymovement 1 mov_3
Applymovement 2 mov_4
Applymovement 3 mov_4
Waitmovement
Killscript
Func 9:
CallBTowerFunctions 33 0 32772
Setvarnum 0 32772
Message 3 "Up next, opponent pair no. \v0132\z0000.
Are you ready?"
Multi3 21 11 0 0 32780
Txtmsgscrpmulti 146 255 0
Txtmsgscrpmulti 147 255 1
Txtmsgscrpmulti 148 255 2
CloseMulti4
CloseMsgOnKeyPress
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_20
If 32776 1
CheckLR 1 func_21
If 32776 2
CheckLR 1 func_22
Jump func_20
Func 10:
End
Func 11:
CallBTowerFunctions 40 0 0
Goto func_23
Goto func_24
SetBCastleFunctionId? 0
Return 30 32780
CloseMsgOnKeyPress
Goto func_25
SetBCastleFunctionId? 1
Return 30 32780
CloseMsgOnKeyPress
Goto func_26
FriendBT2
FriendBT 4
CallBTowerFunctions 42 0 0
CheckTrainerLost 32780
Copyvar 32772 32780
Killscript
Func 12:
CallBTowerFunctions 37 0 0
Setvar 16384 0
Jump func_27
Func 13:
CallBTowerFunctions 34 0 32780
CallBTowerFunctions 35 0 32780
Killscript
Func 14:
CallBTowerFunctions 38 0 0
Setvar 16384 1
Jump func_27
Func 15:
Applymovement 5 mov_5
Applymovement 4 mov_6
Waitmovement
Setflag 520
Setflag 521
Removepeople 5
Removepeople 4
Killscript
Func 16:
Applymovement 2 mov_7
Applymovement 3 mov_7
Applymovement 0 mov_3
Applymovement 1 mov_3
Waitmovement
Killscript
Func 17:
Message 2 "Your Pokémon will be restored to
full health."
Soundfr 1166
Fadedef
HealPkmn
Killscript
Func 18:
Message 5 "Would you like to cancel your
Battle Room challenge?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_28
Setvar 16384 1
Jump func_29
Func 19:
CallBTowerFunctions 40 0 0
Goto func_23
Goto func_24
SetBCastleFunctionId? 0
0030
CloseMsgOnKeyPress
Goto func_25
SetBCastleFunctionId? 1
0030
CloseMsgOnKeyPress
Goto func_26
CallBTowerFunctions 42 0 0
CheckTrainerLost 32780
Copyvar 32772 32780
Killscript
Func 20:
Goto func_30
Jump func_7
Func 21:
Message 4 "Would you like to save and
quit the game?"
Yesnobox 32780
CloseMsgOnKeyPress
If 32780 0
CheckLR 1 func_31
Jump func_9
Func 22:
Message 5 "Would you like to cancel your
Battle Room challenge?"
Yesnobox 32780
CloseMsgOnKeyPress
If 32780 0
CheckLR 1 func_32
Jump func_9
Func 23:
CallBTowerFunctions 41 0 32780
Copyvar 16418 32780
CallBTowerFunctions 41 1 32780
Copyvar 16419 32780
Clearflag 520
Clearflag 521
Addpeople 5
Addpeople 4
Applymovement 5 mov_8
Applymovement 4 mov_9
Waitmovement
Killscript
Func 24:
Applymovement 5 mov_10
Waitmovement
Killscript
Func 25:
Applymovement 4 mov_10
Waitmovement
Killscript
Func 26:
Applymovement 2 mov_11
Applymovement 3 mov_11
Applymovement 5 mov_12
Applymovement 4 mov_12
Waitmovement
Killscript
Func 27:
CallBTowerFunctions 43 0 32780
If 32780 3
CheckLR 1 func_33
Return 30 32780
Setvar 16600 1
Fadescreen 6 1 0 0
Resetscreen
Warp 326 0 7 6 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 28:
CallBTowerFunctions 33 0 32772
Setvarnum 0 32772
Message 3 "Up next, opponent pair no. \v0132\z0000.
Are you ready?"
Multi3 21 13 0 0 32780
Txtmsgscrpmulti 146 255 0
Txtmsgscrpmulti 148 255 1
CloseMulti4
CloseMsgOnKeyPress
Setvar 16384 0
If 32780 1
CheckLR 1 func_18
Message 7 "Awaiting response from a friend..."
FriendBT2
FriendBT 5
CallBTowerWireFunction 2 16384 482
End
Func 29:
Message 7 "Awaiting response from a friend..."
FriendBT2
FriendBT 5
CallBTowerWireFunction 2 16384 482
End
Func 30:
Applymovement 2 mov_13
Applymovement 3 mov_13
Applymovement 0 mov_14
Applymovement 1 mov_14
Waitmovement
Killscript
Func 31:
Setvar 16600 2
CallBTowerFunctions 39 0 0
CloseBTower
Message 0 "Thank you so much for participating!
Please wait while I save the game.
Don’t turn off the power."
Showclocksave
CheckSaveData 32780 398
Fanfare 1563
WaitFanfare 1563
Fadescreen 6 1 0 0
Resetscreen
CloseMsgOnKeyPress
CallBTowerFunctions 2 0 0
End
Func 32:
Jump func_12
Func 33:
Return 30 32780
Setvar 16600 1
FriendBT2
FriendBT 6
Fadescreen 6 1 0 0
Resetscreen
FriendBT2
FriendBT 8
DeleteEntry
Warp 326 0 7 6 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
(332) DIRECT2 DIRECT2
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
0151
End
FUNCTIONS:
None
(333) DIRECT4 DIRECT4
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
0151
End
FUNCTIONS:
None
(334) L01 Verity Lakefront
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Checkflag 318
CheckLR 0 func_1
Checkflag 318
CheckLR 1 func_2
End
Script 2:
Checkflag 318
CheckLR 0 func_1
Checkflag 318
CheckLR 1 func_2
End
Script 3:
Lockall
Applymovement 242 mov_1
Waitmovement
Setvarrival 0
Message 0 "\v0103\z0000: All right! To the lake!
Let’s find us a red GYARADOS!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 80
CheckLR 1 func_3
If 32772 81
CheckLR 1 func_3
If 32772 82
CheckLR 1 func_3
If 32772 83
CheckLR 1 func_3
If 32772 84
CheckLR 1 func_3
If 32772 85
CheckLR 1 func_3
End
Script 4:
Lockall
StopFollow
Followhero 254 15
Applymovement 254 mov_2
Waitmovement
Setvarrival 0
Message 2 "\v0103\z0000: Hey, hey!
Where do you think you’re going?
We have to go return these
Pokémon..."
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 80
CheckLR 1 func_4
If 32772 81
CheckLR 1 func_4
If 32772 82
CheckLR 1 func_4
If 32772 83
CheckLR 1 func_4
If 32772 84
CheckLR 1 func_4
If 32772 85
CheckLR 1 func_4
End
Script 5:
Lockall
Applymovement 255 mov_3
Applymovement 0 mov_4
Waitmovement
Setvarrival 0
Message 1 "\v0103\z0000: You go ahead...
...I know we have to go return these
Pokémon. They’re not ours.
But I want to spend just a little
more time with this little guy..."
CloseMsgOnKeyPress
Applymovement 0 mov_5
Waitmovement
StartFollow
Followhero 0 48
Continuefollow 0 256
StopFollowhero
Setvar 16514 3
Releaseall
End
Script 6:
CallMsgBox 259 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
SetTilePassable 2 80 840
SetTilePassable 3 81 840
End
Func 2:
SetTilePassable 1 80 840
SetTilePassable 0 81 840
End
Func 3:
Applymovement 255 mov_6
Applymovement 242 mov_7
Waitmovement
Jump func_5
Func 4:
Applymovement 255 mov_8
Applymovement 254 mov_9
Waitmovement
Jump func_6
Func 5:
Setvar 16514 1
Releaseall
Fanfare 1539
Fadescreen 6 1 0 0
Resetscreen
Warp 311 0 46 54 0
Fadescreen 6 1 1 0
Resetscreen
End
Func 6:
StartFollow
Followhero 254 48
Releaseall
End
(335) L01R0101 Verity Lakefront R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvarhero 0
Fanfare 1500
Lockall
Faceplayer
Message 0 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(336) L02 Valor Lakefront
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 7
Script 6
Script 8
Script 9
Script 10
SCRIPTS:
Script 1:
Checkflag 262
CheckLR1 1 func_1
Checkflag 350
CheckLR1 1 func_2
Checkflag 350
CheckLR 0 func_3
Checkflag 350
CheckLR 1 func_4
End
Script 2:
Checkflag 350
CheckLR 0 func_3
Checkflag 350
CheckLR 1 func_4
End
Script 3:
Fanfare 1500
Lockall
Checkflag 262
CheckLR 1 func_5
Message 0 "...Pant...pant...
...Why am I running like this
anyway?!
That new universe that the boss
was talking about...
It’s giving me goose bumps thinking
about it... So, we use this..."
Faceplayer
Applymovement 5 mov_1
Waitmovement
Message 1 "Gweh! You were eavesdropping!
I was only talking to myself!
You’re persistent, too...
I’m pooped out from all the running...
But, I’m not...
Going to battle you..."
CloseMsgOnKeyPress
CheckFacePosition 32772
If 32772 1
CheckLR 1 func_6
If 32772 0
CheckLR 1 func_7
Jump func_8
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 4 "Cynthia: Oh, hello, long time no see!
How is your Pokédex filling up?
I came to research the folklore
about the lake, but...
Well, it doesn’t appear as if the
lake is open to the public now.
Have you heard the folklore about it?
They say there is an island inside
the lake.
And inside that island is a mirage
of a Pokémon.
No one must enter the chamber
of that Pokémon...
Sorry to change the subject, but
have you seen the group of PSYDUCK
on Route 210?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_9
If 32780 1
CheckLR 1 func_10
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 9 "We’ve been asked to keep everyone
out of the lake area.
Reason? I’m not too sure, but
apparently to protect the lake."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 10 "To protect the lake...
It’s nice to know there are still
people worth admiring like that.
I believe his name was Cyrus?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
CheckItem 451 1 32780
If 32780 1
CheckLR 1 func_11
Message 13 "What am I to do...?
I’ve gone and dropped my Suite
Key somewhere again...
The hotel people won’t be happy with
me...
I’m sure I had it when I left the
reception counter earlier..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
CallMsgBox 527 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 12 "Stop, stop!
Yes, you!
Sunyshore City, which is down this
road, had a major blackout!
Crews are working on restoring
power, but the road’s closed now."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Lockall
Applymovement 9 mov_2
Waitmovement
CheckHiroPosition 32768 32769
If 32769 789
CheckLR1 1 func_12
If 32769 790
CheckLR1 1 func_13
If 32769 791
CheckLR1 1 func_14
Applymovement 9 mov_3
Applymovement 255 mov_4
Waitmovement
Message 11 "Stop, stop!
Yes, you!
Sunyshore City, which is down this
road, had a major blackout!
Crews are working on restoring
power, but the road’s closed now."
CloseMsgOnKeyPress
If 32769 789
CheckLR1 1 func_15
If 32769 790
CheckLR1 1 func_16
If 32769 791
CheckLR1 1 func_17
Releaseall
End
FUNCTIONS:
Func 1:
ChangeOwPosition 5 723 769
ReleaseOw 5 0
ChangeOwMovement 5 14
Killscript
Func 2:
Setflag 667
Setvar 16658 1
Killscript
Func 3:
SetTilePassable 5 713 760
SetTilePassable 6 713 761
End
Func 4:
SetTilePassable 3 713 760
SetTilePassable 4 713 761
End
Func 5:
Faceplayer
Message 2 "Aww, no...
You’re still on my tail...?\fThe lake’s within sight...
You leave me no choice...
My Pokémon will KO you..."
CloseMsgOnKeyPress
TrainerBattle 847 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_18
Message 3 "I can’t battle anymore...
I’m running on fumes...
I’ll have to give this to the
Commander...
I wish...
I got to use it at the lake..."
CloseMsgOnKeyPress
CheckFacePosition 32772
If 32772 1
CheckLR 1 func_19
If 32772 0
CheckLR 1 func_20
Jump func_21
Func 6:
Applymovement 5 mov_5
Applymovement 255 mov_6
Waitmovement
Jump func_22
Func 7:
Applymovement 5 mov_7
Waitmovement
Jump func_22
Func 8:
Applymovement 5 mov_7
Applymovement 255 mov_8
Waitmovement
Jump func_22
Func 9:
Message 5 "Cynthia: Yes, that’s right.
By the cafe on Route 210.
You’ve seen that group of PSYDUCK
huddled with their heads in their,\fuh, hands...?"
Jump func_23
Func 10:
Message 6 "Cynthia: You haven’t seen them?
By the cafe on Route 210.
There’s a group of PSYDUCK huddled
with their heads in their, uh,\fhands...?"
Jump func_23
Func 11:
Message 14 "What am I to do...?
I’ve gone and dropped my Suite
Key somewhere again...
Oh!
That’s my Suite Key!
You found it for me?
Oh, that’s sweet of you! Thank you!"
CloseMsgOnKeyPress
GiveItem 451 1 32780
Applymovement 8 mov_9
Waitmovement
PrpDoorAnm 22 24 11 13 77
Opendoor 77
Waitaction 77
Applymovement 8 mov_10
Waitmovement
Removepeople 8
Closedoor 77
Waitaction 77
Waitclose 77
Clearflag 636
Setflag 635
Releaseall
End
Func 12:
Applymovement 9 mov_11
Waitmovement
Killscript
Func 13:
Applymovement 9 mov_12
Waitmovement
Killscript
Func 14:
Applymovement 9 mov_13
Waitmovement
Killscript
Func 15:
Applymovement 9 mov_14
Waitmovement
Killscript
Func 16:
Applymovement 9 mov_15
Waitmovement
Killscript
Func 17:
Applymovement 9 mov_16
Waitmovement
Killscript
Func 18:
LostGoPc
Releaseall
End
Func 19:
Applymovement 5 mov_17
Applymovement 255 mov_18
Waitmovement
Jump func_24
Func 20:
Applymovement 5 mov_19
Waitmovement
Jump func_24
Func 21:
Applymovement 5 mov_19
Applymovement 255 mov_20
Waitmovement
Jump func_24
Func 22:
SetOwPosition 5 723 1 769 0
Setflag 262
Releaseall
End
Func 23:
Message 7 "Anyway, what you should do is use
this medicine on the PSYDUCK.
You’re working on a Pokédex, so it
would be worthwhile for you."
Setvar 32772 464
Setvar 32773 1
Callstd 252 7
Message 8 "Cynthia: I went on a big adventure
with a Pokédex when I was younger.
I hope you get to meet every kind
of Pokémon there is to see.
It may help you with the secret of
the mirage Pokémon.
See you later!"
CloseMsgOnKeyPress
CheckFacePosition 32772
If 32772 1
CheckLR 1 func_25
Jump func_26
Func 24:
Removepeople 5
Clearflag 459
Addpeople 0
Releaseall
End
Func 25:
Applymovement 0 mov_21
Applymovement 255 mov_22
Waitmovement
Jump func_27
Func 26:
Applymovement 0 mov_23
Applymovement 255 mov_24
Waitmovement
Jump func_27
Func 27:
Removepeople 0
Setvar 16515 2
Setflag 183
Releaseall
End
(337) L02R0101 Valor Lakefront Restaurant-01
SCRIPT ORDER:
Script 3
Script 1
Script 2
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 13
Script 14
Script 15
Script 16
Script 17
Script 18
Script 19
Script 20
Script 21
SCRIPTS:
Script 1:
Setflag 2542
CheckTime2 16384
If 16384 9
CheckLR 0 func_1
If 16384 23
CheckLR 4 func_1
Checkflag 2731
CheckLR 0 func_2
End
Script 2:
Lockall
Applymovement 255 mov_1
Waitmovement
Return 20 32780
Message 1 "I am so sorry.
We are now closed.
Please do visit while we are open."
CloseMsgOnKeyPress
Releaseall
Fadescreen 6 1 0 0
Resetscreen
Warp 336 0 706 791 1
Fadescreen 6 1 1 0
Resetscreen
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "At our restaurant, you can enjoy
more than just exquisite dining.
You may also partake in battles.
Bon appetit!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
ClearTrainerId 536
ClearTrainerId 536
CheckLR 1 func_3
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_4
Copyvar 32776 16635
If 32776 0
CheckLR 1 func_5
If 32776 1
CheckLR 1 func_6
If 32776 2
CheckLR 1 func_7
Releaseall
End
Script 5:
Fanfare 1500
Lockall
ClearTrainerId 551
ClearTrainerId 551
CheckLR 1 func_8
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_9
Copyvar 32776 16635
If 32776 0
CheckLR 1 func_10
If 32776 1
CheckLR 1 func_11
If 32776 2
CheckLR 1 func_12
Releaseall
End
Script 6:
Fanfare 1500
Lockall
ClearTrainerId 545
ClearTrainerId 545
CheckLR 1 func_13
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_14
Copyvar 32776 16636
If 32776 0
CheckLR 1 func_15
If 32776 1
CheckLR 1 func_16
If 32776 2
CheckLR 1 func_17
Releaseall
End
Script 7:
Fanfare 1500
Lockall
ClearTrainerId 546
ClearTrainerId 546
CheckLR 1 func_18
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_19
Copyvar 32776 16636
If 32776 0
CheckLR 1 func_20
If 32776 1
CheckLR 1 func_21
If 32776 2
CheckLR 1 func_22
Releaseall
End
Script 8:
Fanfare 1500
Lockall
ClearTrainerId 542
ClearTrainerId 542
CheckLR 1 func_23
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_24
Copyvar 32776 16637
If 32776 0
CheckLR 1 func_25
If 32776 1
CheckLR 1 func_26
If 32776 2
CheckLR 1 func_27
Releaseall
End
Script 9:
Fanfare 1500
Lockall
ClearTrainerId 543
ClearTrainerId 543
CheckLR 1 func_28
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_29
Copyvar 32776 16637
If 32776 0
CheckLR 1 func_30
If 32776 1
CheckLR 1 func_31
If 32776 2
CheckLR 1 func_32
Releaseall
End
Script 10:
Fanfare 1500
Lockall
ClearTrainerId 539
ClearTrainerId 539
CheckLR 1 func_33
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_34
Copyvar 32776 16638
If 32776 0
CheckLR 1 func_35
If 32776 1
CheckLR 1 func_36
If 32776 2
CheckLR 1 func_37
Releaseall
End
Script 11:
Fanfare 1500
Lockall
ClearTrainerId 535
ClearTrainerId 535
CheckLR 1 func_38
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_39
Copyvar 32776 16638
If 32776 0
CheckLR 1 func_40
If 32776 1
CheckLR 1 func_41
If 32776 2
CheckLR 1 func_42
Releaseall
End
Script 12:
Fanfare 1500
Lockall
ClearTrainerId 548
ClearTrainerId 548
CheckLR 1 func_43
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_44
Copyvar 32776 16639
If 32776 0
CheckLR 1 func_45
If 32776 1
CheckLR 1 func_46
If 32776 2
CheckLR 1 func_47
Releaseall
End
Script 13:
Fanfare 1500
Lockall
ClearTrainerId 540
ClearTrainerId 540
CheckLR 1 func_48
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_49
Copyvar 32776 16639
If 32776 0
CheckLR 1 func_50
If 32776 1
CheckLR 1 func_51
If 32776 2
CheckLR 1 func_52
Releaseall
End
Script 14:
Fanfare 1500
Lockall
ClearTrainerId 552
ClearTrainerId 552
CheckLR 1 func_53
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_54
Copyvar 32776 16640
If 32776 0
CheckLR 1 func_55
If 32776 1
CheckLR 1 func_56
If 32776 2
CheckLR 1 func_57
Releaseall
End
Script 15:
Fanfare 1500
Lockall
ClearTrainerId 544
ClearTrainerId 544
CheckLR 1 func_58
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_59
Copyvar 32776 16640
If 32776 0
CheckLR 1 func_60
If 32776 1
CheckLR 1 func_61
If 32776 2
CheckLR 1 func_62
Releaseall
End
Script 16:
Fanfare 1500
Lockall
ClearTrainerId 538
ClearTrainerId 538
CheckLR 1 func_63
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_64
Copyvar 32776 16641
If 32776 0
CheckLR 1 func_65
If 32776 1
CheckLR 1 func_66
If 32776 2
CheckLR 1 func_67
Releaseall
End
Script 17:
Fanfare 1500
Lockall
ClearTrainerId 547
ClearTrainerId 547
CheckLR 1 func_68
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_69
Copyvar 32776 16641
If 32776 0
CheckLR 1 func_70
If 32776 1
CheckLR 1 func_71
If 32776 2
CheckLR 1 func_72
Releaseall
End
Script 18:
Fanfare 1500
Lockall
ClearTrainerId 541
ClearTrainerId 541
CheckLR 1 func_73
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_74
Copyvar 32776 16642
If 32776 0
CheckLR 1 func_75
If 32776 1
CheckLR 1 func_76
If 32776 2
CheckLR 1 func_77
Releaseall
End
Script 19:
Fanfare 1500
Lockall
ClearTrainerId 550
ClearTrainerId 550
CheckLR 1 func_78
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_79
Copyvar 32776 16642
If 32776 0
CheckLR 1 func_80
If 32776 1
CheckLR 1 func_81
If 32776 2
CheckLR 1 func_82
Releaseall
End
Script 20:
Fanfare 1500
Lockall
ClearTrainerId 549
ClearTrainerId 549
CheckLR 1 func_83
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_84
Copyvar 32776 16643
If 32776 0
CheckLR 1 func_85
If 32776 1
CheckLR 1 func_86
If 32776 2
CheckLR 1 func_87
Releaseall
End
Script 21:
Fanfare 1500
Lockall
ClearTrainerId 537
ClearTrainerId 537
CheckLR 1 func_88
CheckPokePartyHealth 32780 6
If 32780 1
CheckLR 1 func_89
Copyvar 32776 16643
If 32776 0
CheckLR 1 func_90
If 32776 1
CheckLR 1 func_91
If 32776 2
CheckLR 1 func_92
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 610
Setflag 611
Setflag 612
Setflag 613
Setflag 614
Setflag 615
Setflag 616
Setflag 617
Setflag 618
Setvar 16644 1
End
Func 2:
Setflag 610
Setflag 611
Setflag 612
Setflag 613
Setflag 614
Setflag 615
Setflag 616
Setflag 617
Setflag 618
0024 536
0024 551
0024 545
0024 546
0024 542
0024 543
0024 539
0024 535
0024 548
0024 540
0024 552
0024 544
0024 538
0024 547
0024 541
0024 550
0024 549
0024 537
Setvar 16644 0
CheckIdPlayer 16385 1
Setvar 16384 5
Setvar 16394 10000
RandomTextStored 16385 9
If 16385 0
CheckLR1 1 func_93
If 16385 1
CheckLR1 1 func_94
If 16385 2
CheckLR1 1 func_95
If 16385 3
CheckLR1 1 func_96
If 16385 4
CheckLR1 1 func_97
If 16385 5
CheckLR1 1 func_98
If 16385 6
CheckLR1 1 func_99
If 16385 7
CheckLR1 1 func_100
If 16385 8
CheckLR1 1 func_101
Copyvalue 16394 1
If 16394 0
CheckLR 1 func_102
If 16384 0
CheckLR 5 func_103
Setflag 2731
End
Func 3:
Copyvar 32776 16635
If 32776 0
CheckLR 1 func_104
If 32776 1
CheckLR 1 func_105
If 32776 2
CheckLR 1 func_106
End
Func 4:
Faceplayer
Message 2 "Before we make our toast, I’d hoped
for a battle...
However, you seem to be short
a Pokémon for that."
Waitbutton
CloseMsgOnKeyPress
Goto func_107
Releaseall
End
Func 5:
Message 4 "With someone as beautiful as you for
my model, I am sure to paint\fa masterpiece!"
Faceplayer
Message 5 "What is it?
Do you wish for a battle?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_108
Jump func_109
Func 6:
Message 12 "There is no price too high for the
sake of my art...
That said, my oh my, these meals
look awfully pricey..."
Faceplayer
Message 13 "What is it?
Are you feeling hungry, too?
Oh, I see, that’s not it!
You wanted a battle!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_108
Jump func_109
Func 7:
Message 20 "The worth of a meal isn’t determined
merely by its flavor.
Presentation, that is, color and
placement, is vital.
In other words, a fine meal can be
likened to the finest work of art..."
Faceplayer
Message 21 "And in Pokémon battles, I also hope
to see beauty.
You do agree with me, yes?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_108
Jump func_109
Func 8:
Copyvar 32776 16635
If 32776 0
CheckLR 1 func_110
If 32776 1
CheckLR 1 func_111
If 32776 2
CheckLR 1 func_112
End
Func 9:
Faceplayer
Message 3 "If you want to have a battle with us,
you’ll need to bring more Pokémon."
Waitbutton
CloseMsgOnKeyPress
Goto func_113
Releaseall
End
Func 10:
Message 8 "He said he’d treat me to a dinner
here if I agreed to model for him.
So, I came along, but I haven’t
made up my mind yet."
Faceplayer
Message 9 "When I can’t decide, I battle
to make the decision!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_114
Jump func_115
Func 11:
Message 16 "I have to slow down on eating these
delicious hors d’oeuvres.
I don’t want to be all bloated by
the time the main dish comes."
Faceplayer
Message 17 "I’d like a light battle to work up
my appetite.
Would you care to join us?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_114
Jump func_115
Func 12:
Message 24 "Today’s main dish is scrumptiously
delicious!
If I can keep eating this food,
I’ll model anytime I can!"
Faceplayer
Message 25 "I feel guilty just eating all
this delicious food like this.
I’ll join in the battle, too!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_114
Jump func_115
Func 13:
Copyvar 32776 16636
If 32776 0
CheckLR 1 func_116
If 32776 1
CheckLR 1 func_117
If 32776 2
CheckLR 1 func_118
End
Func 14:
Faceplayer
Message 28 "If you want to challenge us, bring
some more Pokémon."
Waitbutton
CloseMsgOnKeyPress
Goto func_119
Releaseall
End
Func 15:
Message 30 "Actually, my father happens to be
the chef here."
Faceplayer
Message 31 "What is it? A battle?
Bahaha... You think you can beat me?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_120
Jump func_121
Func 16:
Message 38 "I have to hand it to my father--
these hors d’oeuvres are delicious!"
Faceplayer
Message 39 "...Are you maybe asking me for
a battle?
Well, certainly!
I never back down from a challenge!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_120
Jump func_121
Func 17:
Message 46 "Fufufu, my date’s really enjoying
my dad’s cooking.
She has a dreamy expression after
every bite!"
Faceplayer
Message 47 "I’m feeling great!
Sure, I’ll have a battle with you.
That’s why you approached us, right?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_120
Jump func_121
Func 18:
Copyvar 32776 16636
If 32776 0
CheckLR 1 func_122
If 32776 1
CheckLR 1 func_123
If 32776 2
CheckLR 1 func_124
End
Func 19:
Faceplayer
Message 29 "If you want to battle us, you have
to have at least two Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Goto func_125
Releaseall
End
Func 20:
Message 34 "Oh, my!
Your father is the chef here?
How wonderful!"
Faceplayer
Message 35 "I haven’t told him, but my father
owns the hotel and restaurant...
Oh, but that’s beside the point.
Would you care for a battle?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_126
Jump func_127
Func 21:
Message 42 "Yes! This meal is good enough to
serve at the hotel."
Faceplayer
Message 43 "Please don’t tell my date that my
father owns the restaurant.
I’ll have a battle with you if you
keep your mouth shut."
Yesnobox 32780
If 32780 0
CheckLR 1 func_126
Jump func_127
Func 22:
Message 50 "This succulent flavor!
It reminds me of a world trip I took.
My father and I traveled everywhere
dining at only the best restaurants."
Faceplayer
Message 51 "Eating this fabulous meal has
really lifted my spirits.
Join us for a battle?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_126
Jump func_127
Func 23:
Copyvar 32776 16637
If 32776 0
CheckLR 1 func_128
If 32776 1
CheckLR 1 func_129
If 32776 2
CheckLR 1 func_130
End
Func 24:
Faceplayer
Message 54 "If your intention is to test your
skill on us, I daresay you ought to\fbring at least another Pokémon."
Waitbutton
CloseMsgOnKeyPress
Goto func_131
Releaseall
End
Func 25:
Message 56 "Let me propose a toast to many
more happy years together."
Faceplayer
Message 57 "Since I took my retirement, I’ve been
traveling with my wife.
We both enjoy searching for delicious
dining experiences.
You seem to enjoy battling with
Pokémon. Am I right?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_132
Jump func_133
Func 26:
Message 64 "Hmm!
Now, this is special!
It appears as if it were only grazed
with fire, but in reality, much\fcare has gone into its preparation!"
Faceplayer
Message 65 "When you get to be an accomplished
gourmet like myself, one can tell at\fa glance if a dish is delicious or not.
You would battle against such
a discerning gourmet?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_132
Jump func_133
Func 27:
Message 72 "Hmm!
The chef flambeed this to perfection!
The rich aromas and flavors fill my
mouth with joy!"
Faceplayer
Message 73 "You’re throwing down a challenge
in the middle of our meal?
I would say you’re a very dedicated
Trainer, especially for one so young!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_132
Jump func_133
Func 28:
Copyvar 32776 16637
If 32776 0
CheckLR 1 func_134
If 32776 1
CheckLR 1 func_135
If 32776 2
CheckLR 1 func_136
End
Func 29:
Faceplayer
Message 55 "Oh, you’re offering to do battle
with us? How nice of you.
Unfortunately, you simply cannot
battle us both with just one Pokémon."
Waitbutton
CloseMsgOnKeyPress
Goto func_137
Releaseall
End
Func 30:
Message 60 "To our health, welfare, and to fine
dining! Cheers!"
Faceplayer
Message 61 "A toast before a meal helps stimulate
the appetite, I find.
But that’s neither here nor there.
You wanted a battle, surely?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_138
Jump func_139
Func 31:
Message 68 "These hors d’oeuvres are simply
divine!
They tell me that I can expect the
main course to be fantastic!"
Faceplayer
Message 69 "I thought the main course arrived
already...
You’re a Trainer seeking battle?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_138
Jump func_139
Func 32:
Message 76 "...!
This sauce!
It’s a spicy sauce in Hoenn style
made from grated Cheri Berries!"
Faceplayer
Message 77 "Would you like to sample a bite?
...
Oh, right. Pokémon?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_138
Jump func_139
Func 33:
Copyvar 32776 16638
If 32776 0
CheckLR 1 func_140
If 32776 1
CheckLR 1 func_141
If 32776 2
CheckLR 1 func_142
End
Func 34:
Faceplayer
Message 80 "If you want to battle us, you
have to have two Pokémon."
Waitbutton
CloseMsgOnKeyPress
Goto func_143
Releaseall
End
Func 35:
Message 82 "Alison, um, I, er...
Thank you for coming today...
Should we make a toast?"
Faceplayer
Message 83 "She’s the girl from the Pokémon-
goods shop I go to all the time.
We’re incredibly happy together.
Would you like to battle us?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_144
Jump func_145
Func 36:
Message 90 "If my Pokémon buddies hear I went
on a date with you, Alison...
They’re probably going to hate me
for it..."
Faceplayer
Message 91 "Are you Alison’s fan, too?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_144
Jump func_145
Func 37:
Message 98 "Looks like our main course is here.
Please, enjoy yourself.
I’ve got the bill covered today!"
Faceplayer
Message 99 "I’ll defeat you and collect the
prize money!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_144
Jump func_145
Func 38:
Copyvar 32776 16638
If 32776 0
CheckLR 1 func_146
If 32776 1
CheckLR 1 func_147
If 32776 2
CheckLR 1 func_148
End
Func 39:
Faceplayer
Message 81 "Don’t you have two Pokémon?
We’ll have to battle another time!"
Waitbutton
CloseMsgOnKeyPress
Goto func_149
Releaseall
End
Func 40:
Message 86 "Fufu... Eugene, you act so different
from the way you do at the shop.
You’re surprisingly shy."
Faceplayer
Message 87 "I work at a Pokémon-goods shop
because I love Pokémon.
The job lets me be with Pokémon
all day long.
It naturally made me pretty decent
at battling. Want to try me?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_150
Jump func_151
Func 41:
Message 94 "Sorry? What? Date?
Um... Eugene...
You are a valued customer and all..."
Faceplayer
Message 95 "...Even though I said that, I admit
the invitation was flattering.
So I accepted his invitation.
I’ll let my Pokémon decide for my
fickle heart. Let’s battle?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_150
Jump func_151
Func 42:
Message 102 "Eugene, I think you’re a little
awkward, but you’re very earnest."
Faceplayer
Message 103 "If I team up with my date, it could
be an interesting combination.
I think we could battle in an
intriguing manner. Do you?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_150
Jump func_151
Func 43:
Copyvar 32776 16639
If 32776 0
CheckLR 1 func_152
If 32776 1
CheckLR 1 func_153
If 32776 2
CheckLR 1 func_154
End
Func 44:
Faceplayer
Message 106 "If you have two Pokémon, I’ll take
you on with my mom."
Waitbutton
CloseMsgOnKeyPress
Goto func_155
Releaseall
End
Func 45:
Message 108 "What should I have today?
Juice, ice cream, cake, and, and..."
Faceplayer
Message 109 "Oh, hi, Trainer!
Want to battle Pokémon with us
before we have a yummy dinner?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_156
Jump func_157
Func 46:
Message 116 "Wow, they bring out things one dish
at a time!
It’s not like how it is at home!"
Faceplayer
Message 117 "I do my homework while eating.
I can battle anytime!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_156
Jump func_157
Func 47:
Message 124 "Do mothers and fathers go off to
eat like this?
I mean without taking their kids
along."
Faceplayer
Message 125 "But that’s OK.
It’s way more fun for me to battle
than go eat fancy dinners!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_156
Jump func_157
Func 48:
Copyvar 32776 16639
If 32776 0
CheckLR 1 func_158
If 32776 1
CheckLR 1 func_159
If 32776 2
CheckLR 1 func_160
End
Func 49:
Faceplayer
Message 107 "I’m willing to have a battle with
my son, my pride and joy.
But you must bring more Pokémon
than that."
Waitbutton
CloseMsgOnKeyPress
Goto func_161
Releaseall
End
Func 50:
Message 112 "My dear, Mommy is so proud of you
for doing so well on your test.
You may order anything you like.
It’s your reward, dearest!"
Faceplayer
Message 113 "Did you know? My boy is not only a
genius at school, but he’s also\fa Pokémon prodigy!
Would you like to challenge us and
see?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_162
Jump func_163
Func 51:
Message 120 "This restaurant is the talk of the
town for the delicious food."
Faceplayer
Message 121 "I beg your pardon?
You want a battle now?
Well, that’s all right.
It’s not as if I dislike it."
Yesnobox 32780
If 32780 0
CheckLR 1 func_162
Jump func_163
Func 52:
Message 128 "This is a special occasion, Esteban.
This is to celebrate your great
grades!"
Faceplayer
Message 129 "Oh? A battle, you say?
Well, certainly. Why not?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_162
Jump func_163
Func 53:
Copyvar 32776 16640
If 32776 0
CheckLR 1 func_164
If 32776 1
CheckLR 1 func_165
If 32776 2
CheckLR 1 func_166
End
Func 54:
Faceplayer
Message 132 "My daughter and I always battle
together, none of that one-on-one."
Waitbutton
CloseMsgOnKeyPress
Goto func_167
Releaseall
End
Func 55:
Message 134 "Here’s a toast for Mom.
May she always be healthy!"
Faceplayer
Message 135 "My wife’s in the hospital waiting for
the baby to arrive.
Since I can’t cook, I came here with
my daughter.
How would you like a battle with
us before we eat?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_168
Jump func_169
Func 56:
Message 142 "Wow... Look at these appetizers.
This is just so extravagant."
Faceplayer
Message 143 "I’m no cook, I’ll admit that freely.
But battling Pokémon... There’s
something I’m comfortable with."
Yesnobox 32780
If 32780 0
CheckLR 1 func_168
Jump func_169
Func 57:
Message 150 "Here’s the main dish!"
Faceplayer
Message 151 "What is it?
Did you want to battle with us?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_168
Jump func_169
Func 58:
Copyvar 32776 16640
If 32776 0
CheckLR 1 func_170
If 32776 1
CheckLR 1 func_171
If 32776 2
CheckLR 1 func_172
End
Func 59:
Faceplayer
Message 133 "I can go against you with Papa.
Please bring more Pokémon."
Waitbutton
CloseMsgOnKeyPress
Goto func_173
Releaseall
End
Func 60:
Message 138 "I wonder what Mommy will bring home?
A baby boy? A baby girl?"
Faceplayer
Message 139 "A boy will be a brother, and a girl
will be a sister.
I’m going to be the older sister,
so I should get better at Pokémon!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_174
Jump func_175
Func 61:
Message 146 "Wow!
This food looks really fancy!"
Faceplayer
Message 147 "Papa is a rotten cook, so we can
go out and eat good food like this!
Did you come to this restaurant to
battle Pokémon?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_174
Jump func_175
Func 62:
Message 154 "I wish Mommy were here to eat with
us..."
Faceplayer
Message 155 "Mommy gave me my Pokémon.
Want to see how tough they are?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_174
Jump func_175
Func 63:
Copyvar 32776 16641
If 32776 0
CheckLR 1 func_176
If 32776 1
CheckLR 1 func_177
If 32776 2
CheckLR 1 func_178
End
Func 64:
Faceplayer
Message 158 "Yeah? What’s up?
Did you want to be on TV, too?
Oh, right, sorry!
You wanted to battle!
You’ll be battling the two of us.
You need at least two Pokémon."
Waitbutton
CloseMsgOnKeyPress
Goto func_179
Releaseall
End
Func 65:
Message 160 "Let’s start with a shot of the
drinks as a camera test."
Faceplayer
Message 161 "Hunh? You’re inviting us to battle at
a time like this?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_180
Jump func_181
Func 66:
Message 168 "Hey, these appetizers sure do look
delicious.
Will someone bring me a mist spray
so they look even fresher?"
Faceplayer
Message 169 "Thanks, that was quick!
...Wait, where’s the mist spray?
Oh, you want a battle?
Whatever, then.
I’m up for your challenge!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_180
Jump func_181
Func 67:
Message 176 "Whoa...
So this is the main dish? Yowza!
Let’s get this filming done quick
so I can chow down, too!"
Faceplayer
Message 177 "You’ve been sniffing around a lot...
Are you messing with our filming?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_180
Jump func_181
Func 68:
Copyvar 32776 16641
If 32776 0
CheckLR 1 func_182
If 32776 1
CheckLR 1 func_183
If 32776 2
CheckLR 1 func_184
End
Func 69:
Faceplayer
Message 159 "If you want an autograph, you’ll
have to wait till we finish filming.
Oh, and if you want to battle,
bring two Pokémon, OK?"
Waitbutton
CloseMsgOnKeyPress
Goto func_185
Releaseall
End
Func 70:
Message 164 "Today’s featured drink is freshly
squeezed juice made from ripened\fPecha Berries picked this morning!"
Faceplayer
Message 165 "Pardon?
Pokémon?
OK, a quick one before we do any
filming for the show."
Yesnobox 32780
If 32780 0
CheckLR 1 func_186
Jump func_187
Func 71:
Message 172 "These look fabulous, too.
We need the camera to zoom in more!"
Faceplayer
Message 173 "Please don’t talk to me while we’re
filming!
Oh, actually, hold on.
A Trainer barges in on our fine
dining experience...
I like that!
It adds drama to our story!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_186
Jump func_187
Func 72:
Message 180 "Chomp!
Mmm... This is...
Light, and yet rich flavored...\fIt delectably melts away...\fA hint of an aftertaste, yet crisp...\fNeither too sweet nor too bitter...\fMy words can’t do this justice!"
Faceplayer
Message 181 "It’s not easy trying to describe
food while you’re eating.
But I can battle anytime during
filming!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_186
Jump func_187
Func 73:
Copyvar 32776 16642
If 32776 0
CheckLR 1 func_188
If 32776 1
CheckLR 1 func_189
If 32776 2
CheckLR 1 func_190
End
Func 74:
Faceplayer
Message 184 "I’ll only say this once, so listen
closely. I’ll even say it slowly.
To battle against two Trainers, you
need two or more Pokémon.
Now if you were to bring more
Pokémon, I could consider a battle..."
Waitbutton
CloseMsgOnKeyPress
Goto func_191
Releaseall
End
Func 75:
Message 186 "And another brilliant day on the
markets! A toast to my Lady Luck!"
Faceplayer
Message 187 "Since I’ve been with her, I’ve been
riding a hot streak on the markets.
I’m surfing on a wave of good luck!
You’re sure you want to battle us?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_192
Jump func_193
Func 76:
Message 194 "There’s no need for technique.
You just have to read what’s in your
opponent’s heart."
Faceplayer
Message 195 "When I say “heart,” I don’t mean
what that person’s thinking. It’s\fabout how they want to be perceived.
Do you... Would you like me to think
of you as a tough Trainer?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_192
Jump func_193
Func 77:
Message 202 "Let’s savor this extravagant meal
and think of what it represents.
We can use that as motivation to
keep winning at life!"
Faceplayer
Message 203 "Personally, I think there are two
kinds of people.
Those who face up to challenges
and those who duck and cover.
You’re the type who accepts
challenges, am I right?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_192
Jump func_193
Func 78:
Copyvar 32776 16642
If 32776 0
CheckLR 1 func_194
If 32776 1
CheckLR 1 func_195
If 32776 2
CheckLR 1 func_196
End
Func 79:
Faceplayer
Message 185 "Oh, you’ll have to bring more Pokémon
than that to battle us!"
Waitbutton
CloseMsgOnKeyPress
Goto func_197
Releaseall
End
Func 80:
Message 190 "Ooh! All your stocks went up again?
You haven’t guessed wrong yet!"
Faceplayer
Message 191 "My boyfriend’s a stock market
wizard!
Did you know? Someone that lucky also
happens to make a tough Trainer.
Are you willing to try your luck
against that?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_198
Jump func_199
Func 81:
Message 198 "No, really? Ooeeeh! That is so neat!
How can you tell these things?"
Faceplayer
Message 199 "My boyfriend could tell that deep
down, I’m actually a frightened and\flonely child!
I don’t think I could ever lose with
him. Want to try?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_198
Jump func_199
Func 82:
Message 206 "How can you guess right about
everything all the time?
Do you really have the power of
premonition?"
Faceplayer
Message 207 "I’m convinced that he has some
extrasensory power or something.
I’m teaming up with a guy like that.
Are you sure you want to do this?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_198
Jump func_199
Func 83:
Copyvar 32776 16643
If 32776 0
CheckLR 1 func_200
If 32776 1
CheckLR 1 func_201
If 32776 2
CheckLR 1 func_202
End
Func 84:
Faceplayer
Message 210 "One Pokémon is insufficient if you
want to battle against us."
Waitbutton
CloseMsgOnKeyPress
Goto func_203
Releaseall
End
Func 85:
Message 212 "Hmm... This beverage’s coloration
borders on the positively toxic...
However, my analysis indicates that it
is composed of natural ingredients."
Faceplayer
Message 213 "What is it?
You are?
...
...Oh, yes, a Trainer."
Yesnobox 32780
If 32780 0
CheckLR 1 func_204
Jump func_205
Func 86:
Message 220 "Interesting...
These hors d’oeuvres are fascinating.
Plant fiber 20%, iron 5%, protein 35%.
Curious and curiouser..."
Faceplayer
Message 221 "What is it now? Do you want me to
analyze your skill level?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_204
Jump func_205
Func 87:
Message 228 "By my calculations, the main dish
should have arrived by now.
Perhaps the thermal setting is too
low to prepare the food efficiently?"
Faceplayer
Message 229 "You there!
Let’s battle to consume time!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_204
Jump func_205
Func 88:
Copyvar 32776 16643
If 32776 0
CheckLR 1 func_206
If 32776 1
CheckLR 1 func_207
If 32776 2
CheckLR 1 func_208
End
Func 89:
Faceplayer
Message 211 "If you’d bring two or more Pokémon,
we could have a battle with you."
Waitbutton
CloseMsgOnKeyPress
Goto func_209
Releaseall
End
Func 90:
Message 216 "Oh, dear!
I wish you wouldn’t!
We’re at a fancy restaurant, and you
want to analyze what’s served?"
Faceplayer
Message 217 "Oh, you’re a Trainer?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_210
Jump func_211
Func 91:
Message 224 "Oh, dear, must you go on that way?
It takes the magic out of a meal.
I wish you wouldn’t think about your
research while we’re out eating!"
Faceplayer
Message 225 "My husband never ceases to amaze
me with his dedication to research.
Would you care to have a battle
with us?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_210
Jump func_211
Func 92:
Message 232 "There isn’t any point getting
impatient over the food, dear.
Isn’t this the sort of situation
that you brought your Pokémon for?"
Faceplayer
Message 233 "Oh, what good timing!
Would you join us for a quick
battle?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_210
Jump func_211
Func 93:
Checkflag 610
CheckLR 0 func_212
Clearflag 610
RandomTextStored 16635 3
Copyvalue 16384 1
Killscript
Func 94:
Checkflag 611
CheckLR 0 func_212
Clearflag 611
RandomTextStored 16636 3
Copyvalue 16384 1
Killscript
Func 95:
Checkflag 612
CheckLR 0 func_212
Clearflag 612
RandomTextStored 16637 3
Copyvalue 16384 1
Killscript
Func 96:
Checkflag 613
CheckLR 0 func_212
Clearflag 613
RandomTextStored 16638 3
Copyvalue 16384 1
Killscript
Func 97:
Checkflag 614
CheckLR 0 func_212
Clearflag 614
RandomTextStored 16639 3
Copyvalue 16384 1
Killscript
Func 98:
Checkflag 615
CheckLR 0 func_212
Clearflag 615
RandomTextStored 16640 3
Copyvalue 16384 1
Killscript
Func 99:
Checkflag 616
CheckLR 0 func_212
Clearflag 616
RandomTextStored 16641 3
Copyvalue 16384 1
Killscript
Func 100:
Checkflag 617
CheckLR 0 func_212
Clearflag 617
RandomTextStored 16642 3
Copyvalue 16384 1
Killscript
Func 101:
Checkflag 618
CheckLR 0 func_212
Clearflag 618
RandomTextStored 16643 3
Copyvalue 16384 1
Killscript
Func 102:
Setflag 2731
End
Func 103:
RandomTextStored 16385 9
If 16385 0
CheckLR1 1 func_93
If 16385 1
CheckLR1 1 func_94
If 16385 2
CheckLR1 1 func_95
If 16385 3
CheckLR1 1 func_96
If 16385 4
CheckLR1 1 func_97
If 16385 5
CheckLR1 1 func_98
If 16385 6
CheckLR1 1 func_99
If 16385 7
CheckLR1 1 func_100
If 16385 8
CheckLR1 1 func_101
Copyvalue 16394 1
If 16394 0
CheckLR 1 func_102
If 16384 0
CheckLR 5 func_103
Setflag 2731
End
Func 104:
Message 7 "Though we lost our battle...
A toast to your beauty, that no\fpainting could ever hope to capture!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 105:
Message 15 "My hors d’oeuvres have gone cold..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 106:
Message 23 "The meals prepared here are not
merely tasty, they are also healthy.
Diners need not worry about ruining
their figures eating here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 107:
Applymovement 6 mov_1
Waitmovement
Killscript
Func 108:
CloseMsgOnKeyPress
TrainerBattle 536 551
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 536
SetTrainerId 551
Goto func_107
Copyvar 32776 16635
If 32776 0
CheckLR 1 func_214
If 32776 1
CheckLR 1 func_215
If 32776 2
CheckLR 1 func_216
Releaseall
End
Func 109:
CloseMsgOnKeyPress
Goto func_107
Releaseall
End
Func 110:
Message 11 "I’ve decided to model for him.
That’s given me an appetite!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 111:
Message 19 "The hors d’oeuvres haven’t grown
cold...
These are supposed to be served
chilled!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 112:
Message 27 "The models of great paintings were
often rather plump.
That means I can keep eating without
obsessing over my figure!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 113:
Applymovement 9 mov_2
Waitmovement
Killscript
Func 114:
CloseMsgOnKeyPress
TrainerBattle 536 551
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 536
SetTrainerId 551
Goto func_113
Copyvar 32776 16635
If 32776 0
CheckLR 1 func_217
If 32776 1
CheckLR 1 func_218
If 32776 2
CheckLR 1 func_219
Releaseall
End
Func 115:
CloseMsgOnKeyPress
Goto func_113
Releaseall
End
Func 116:
Message 33 "We’ve lost, but let’s make a toast
to our future together anyway!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 117:
Message 41 "Finally. Now we can go about enjoying
our meal without disruption."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 118:
Message 49 "My prowess as a Trainer isn’t up to
snuff...
It’s not like my father’s scrumptious
cooking..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 119:
Applymovement 2 mov_1
Waitmovement
Killscript
Func 120:
CloseMsgOnKeyPress
TrainerBattle 545 546
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 545
SetTrainerId 546
Goto func_119
Copyvar 32776 16636
If 32776 0
CheckLR 1 func_220
If 32776 1
CheckLR 1 func_221
If 32776 2
CheckLR 1 func_222
Releaseall
End
Func 121:
CloseMsgOnKeyPress
Goto func_119
Releaseall
End
Func 122:
Message 37 "Let’s make a toast to the prosperity
of the restaurant!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 123:
Message 45 "My date did his best, but you were
better than the both of us."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 124:
Message 53 "Your father’s cooking has a very
magical quality to it.
It seems to perk people up with
energy."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 125:
Applymovement 3 mov_2
Waitmovement
Killscript
Func 126:
CloseMsgOnKeyPress
TrainerBattle 545 546
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 545
SetTrainerId 546
Goto func_125
Copyvar 32776 16636
If 32776 0
CheckLR 1 func_223
If 32776 1
CheckLR 1 func_224
If 32776 2
CheckLR 1 func_225
Releaseall
End
Func 127:
CloseMsgOnKeyPress
Goto func_125
Releaseall
End
Func 128:
Message 59 "Well, so much for that. Let’s try to
enjoy the rest of our meal."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 129:
Message 67 "Well, so much for that.
We’ll keep a stiff upper lip and look
forward to enjoying the main course."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 130:
Message 75 "Ah... I’m very satisfied with our
meal and our battle."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 131:
Applymovement 0 mov_1
Waitmovement
Killscript
Func 132:
CloseMsgOnKeyPress
TrainerBattle 542 543
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 542
SetTrainerId 543
Goto func_131
Copyvar 32776 16637
If 32776 0
CheckLR 1 func_226
If 32776 1
CheckLR 1 func_227
If 32776 2
CheckLR 1 func_228
Releaseall
End
Func 133:
CloseMsgOnKeyPress
Goto func_131
Releaseall
End
Func 134:
Message 63 "Gourmet dining in restaurants and
exhilarating Pokémon battles...
There is so much contentment in my
life!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 135:
Message 71 "The hors d’oeuvres were most
excellent!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 136:
Message 79 "Battling is fine, of course.
But for me, I would rather be out
enjoying good meals."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 137:
Applymovement 1 mov_2
Waitmovement
Killscript
Func 138:
CloseMsgOnKeyPress
TrainerBattle 542 543
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 542
SetTrainerId 543
Goto func_137
Copyvar 32776 16637
If 32776 0
CheckLR 1 func_229
If 32776 1
CheckLR 1 func_230
If 32776 2
CheckLR 1 func_231
Releaseall
End
Func 139:
CloseMsgOnKeyPress
Goto func_137
Releaseall
End
Func 140:
Message 85 "Oh, no, I’m sorry we lost.
Alison, you’re not upset?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 141:
Message 93 "Alison, seeing your smiling face...
I can’t tell if these appetizers
are delicious or not!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 142:
Message 101 "My wallet’s empty after paying the
prize money...
Oh, no, it’s OK! No need to worry!
I still have my secret stash of cash!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 143:
Applymovement 17 mov_1
Waitmovement
Killscript
Func 144:
CloseMsgOnKeyPress
TrainerBattle 539 535
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 539
SetTrainerId 535
Goto func_143
Copyvar 32776 16638
If 32776 0
CheckLR 1 func_232
If 32776 1
CheckLR 1 func_233
If 32776 2
CheckLR 1 func_234
Releaseall
End
Func 145:
CloseMsgOnKeyPress
Goto func_143
Releaseall
End
Func 146:
Message 89 "I don’t worry much about winning
or losing.
I keep my Pokémon with me because
I love them!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 147:
Message 97 "You know, it is true what they say.
There is no evil among Pokémon fans!
That goes for you and Eugene!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 148:
Message 105 "The meal was delicious, and our battle
was so much fun.
I really insist that we split the bill."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 149:
Applymovement 10 mov_2
Waitmovement
Killscript
Func 150:
CloseMsgOnKeyPress
TrainerBattle 539 535
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 539
SetTrainerId 535
Goto func_149
Copyvar 32776 16638
If 32776 0
CheckLR 1 func_235
If 32776 1
CheckLR 1 func_236
If 32776 2
CheckLR 1 func_237
Releaseall
End
Func 151:
CloseMsgOnKeyPress
Goto func_149
Releaseall
End
Func 152:
Message 111 "I don’t get it. Grown-ups always have
a toast before eating.
What’s that for?
And I don’t see any bread?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 153:
Message 119 "We’re going to eat this delicious
stuff now. Bye-bye!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 154:
Message 127 "Mom, you gotta make me this at home!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 155:
Applymovement 15 mov_1
Waitmovement
Killscript
Func 156:
CloseMsgOnKeyPress
TrainerBattle 548 540
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 548
SetTrainerId 540
Goto func_155
Copyvar 32776 16639
If 32776 0
CheckLR 1 func_238
If 32776 1
CheckLR 1 func_239
If 32776 2
CheckLR 1 func_240
Releaseall
End
Func 157:
CloseMsgOnKeyPress
Goto func_155
Releaseall
End
Func 158:
Message 115 "I wish to propose a toast.
May my darling Esteban get another
100% on a test!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 159:
Message 123 "Thank you for letting my dear son
experience an invaluable lesson."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 160:
Message 131 "Is the dessert coming soon?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 161:
Applymovement 13 mov_2
Waitmovement
Killscript
Func 162:
CloseMsgOnKeyPress
TrainerBattle 548 540
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 548
SetTrainerId 540
Goto func_161
Copyvar 32776 16639
If 32776 0
CheckLR 1 func_241
If 32776 1
CheckLR 1 func_242
If 32776 2
CheckLR 1 func_243
Releaseall
End
Func 163:
CloseMsgOnKeyPress
Goto func_161
Releaseall
End
Func 164:
Message 137 "The house will be a lot noisier when
the baby comes home with Mommy."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 165:
Message 145 "Let’s get over the sting of this loss
by enjoying this delicious meal!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 166:
Message 153 "Jocelyn, I hope the new baby will be
as kindhearted as you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 167:
Applymovement 11 mov_1
Waitmovement
Killscript
Func 168:
CloseMsgOnKeyPress
TrainerBattle 552 544
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 552
SetTrainerId 544
Goto func_167
Copyvar 32776 16640
If 32776 0
CheckLR 1 func_244
If 32776 1
CheckLR 1 func_245
If 32776 2
CheckLR 1 func_246
Releaseall
End
Func 169:
CloseMsgOnKeyPress
Goto func_167
Releaseall
End
Func 170:
Message 141 "Little babies cry like Pokémon!
Piyaaaah!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 171:
Message 149 "I’ve never eaten anything like this
before."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 172:
Message 157 "Next time, let’s come with everyone.
The baby, too!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 173:
Applymovement 12 mov_2
Waitmovement
Killscript
Func 174:
CloseMsgOnKeyPress
TrainerBattle 552 544
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 552
SetTrainerId 544
Goto func_173
Copyvar 32776 16640
If 32776 0
CheckLR 1 func_247
If 32776 1
CheckLR 1 func_248
If 32776 2
CheckLR 1 func_249
Releaseall
End
Func 175:
CloseMsgOnKeyPress
Goto func_173
Releaseall
End
Func 176:
Message 163 "Oh, man...
Our drinks are lukewarm now."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 177:
Message 171 "Photographing food isn’t easy.
It’s actually very technical."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 178:
Message 179 "Oh, no... Everything’s gone cold while
we were battling..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 179:
Applymovement 5 mov_1
Waitmovement
Killscript
Func 180:
CloseMsgOnKeyPress
TrainerBattle 538 547
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 538
SetTrainerId 547
Goto func_179
Copyvar 32776 16641
If 32776 0
CheckLR 1 func_250
If 32776 1
CheckLR 1 func_251
If 32776 2
CheckLR 1 func_252
Releaseall
End
Func 181:
CloseMsgOnKeyPress
Goto func_179
Releaseall
End
Func 182:
Message 167 "Do you think we should rehearse this
one more time?
Today’s featured drink is freshly
squeezed..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 183:
Message 175 "Darling Darryl, are you ready?
When I take a bite, I want
a close-up of my lips, all right?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 184:
Message 183 "Do you know what the most important
thing is for gourmet reporting?
It’s a...thesauruslike vocabulary!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 185:
Applymovement 4 mov_2
Waitmovement
Killscript
Func 186:
CloseMsgOnKeyPress
TrainerBattle 538 547
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 538
SetTrainerId 547
Goto func_185
Copyvar 32776 16641
If 32776 0
CheckLR 1 func_253
If 32776 1
CheckLR 1 func_254
If 32776 2
CheckLR 1 func_255
Releaseall
End
Func 187:
CloseMsgOnKeyPress
Goto func_185
Releaseall
End
Func 188:
Message 189 "This is just a minor setback.
I can easily make up for this!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 189:
Message 197 "I had a bad feeling about this
Trainer..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 190:
Message 205 "If I had the power of premonition,
I’d be a terror on the markets.
But you know that’s not really
possible."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 191:
Applymovement 7 mov_1
Waitmovement
Killscript
Func 192:
CloseMsgOnKeyPress
TrainerBattle 541 550
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 541
SetTrainerId 550
Goto func_191
Copyvar 32776 16642
If 32776 0
CheckLR 1 func_256
If 32776 1
CheckLR 1 func_257
If 32776 2
CheckLR 1 func_258
Releaseall
End
Func 193:
CloseMsgOnKeyPress
Goto func_191
Releaseall
End
Func 194:
Message 193 "It’s just one loss. We can make that
back with a big win next time!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 195:
Message 201 "It’s amazing that you predicted you
would lose!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 196:
Message 209 "If it’s not premonition, did you...
Maybe come from the future?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 197:
Applymovement 8 mov_2
Waitmovement
Killscript
Func 198:
CloseMsgOnKeyPress
TrainerBattle 541 550
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 541
SetTrainerId 550
Goto func_197
Copyvar 32776 16642
If 32776 0
CheckLR 1 func_259
If 32776 1
CheckLR 1 func_260
If 32776 2
CheckLR 1 func_261
Releaseall
End
Func 199:
CloseMsgOnKeyPress
Goto func_197
Releaseall
End
Func 200:
Message 215 "The results of that battle are
insignificant. Let’s drink up."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 201:
Message 223 "I feel compelled to analyze that
which is unknown to me.
By defining its composition, I feel
reassured in my knowledge."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 202:
Message 231 "They brought the main course while
we were battling...
The calorie content appears to be
alarmingly high."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 203:
Applymovement 14 mov_1
Waitmovement
Killscript
Func 204:
CloseMsgOnKeyPress
TrainerBattle 549 537
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 549
SetTrainerId 537
Goto func_203
Copyvar 32776 16643
If 32776 0
CheckLR 1 func_262
If 32776 1
CheckLR 1 func_263
If 32776 2
CheckLR 1 func_264
Releaseall
End
Func 205:
CloseMsgOnKeyPress
Goto func_203
Releaseall
End
Func 206:
Message 219 "Cheers, dear!
Please don’t start analyzing what
we just drank!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 207:
Message 227 "If you were to ask me, I would
rather not know about what I don’t\funderstand. It’s simpler that way."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 208:
Message 235 "Oh, dear, if we take in too many
calories, we can always work them off\fby battling!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 209:
Applymovement 16 mov_2
Waitmovement
Killscript
Func 210:
CloseMsgOnKeyPress
TrainerBattle 549 537
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_213
SetTrainerId 549
SetTrainerId 537
Goto func_209
Copyvar 32776 16643
If 32776 0
CheckLR 1 func_265
If 32776 1
CheckLR 1 func_266
If 32776 2
CheckLR 1 func_267
Releaseall
End
Func 211:
CloseMsgOnKeyPress
Goto func_209
Releaseall
End
Func 212:
Killscript
Func 213:
LostGoPc
Releaseall
End
Func 214:
Message 7 "Though we lost our battle...
A toast to your beauty, that no\fpainting could ever hope to capture!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 215:
Message 15 "My hors d’oeuvres have gone cold..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 216:
Message 23 "The meals prepared here are not
merely tasty, they are also healthy.
Diners need not worry about ruining
their figures eating here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 217:
Message 11 "I’ve decided to model for him.
That’s given me an appetite!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 218:
Message 19 "The hors d’oeuvres haven’t grown
cold...
These are supposed to be served
chilled!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 219:
Message 27 "The models of great paintings were
often rather plump.
That means I can keep eating without
obsessing over my figure!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 220:
Message 33 "We’ve lost, but let’s make a toast
to our future together anyway!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 221:
Message 41 "Finally. Now we can go about enjoying
our meal without disruption."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 222:
Message 49 "My prowess as a Trainer isn’t up to
snuff...
It’s not like my father’s scrumptious
cooking..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 223:
Message 37 "Let’s make a toast to the prosperity
of the restaurant!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 224:
Message 45 "My date did his best, but you were
better than the both of us."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 225:
Message 53 "Your father’s cooking has a very
magical quality to it.
It seems to perk people up with
energy."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 226:
Message 59 "Well, so much for that. Let’s try to
enjoy the rest of our meal."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 227:
Message 67 "Well, so much for that.
We’ll keep a stiff upper lip and look
forward to enjoying the main course."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 228:
Message 75 "Ah... I’m very satisfied with our
meal and our battle."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 229:
Message 63 "Gourmet dining in restaurants and
exhilarating Pokémon battles...
There is so much contentment in my
life!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 230:
Message 71 "The hors d’oeuvres were most
excellent!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 231:
Message 79 "Battling is fine, of course.
But for me, I would rather be out
enjoying good meals."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 232:
Message 85 "Oh, no, I’m sorry we lost.
Alison, you’re not upset?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 233:
Message 93 "Alison, seeing your smiling face...
I can’t tell if these appetizers
are delicious or not!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 234:
Message 101 "My wallet’s empty after paying the
prize money...
Oh, no, it’s OK! No need to worry!
I still have my secret stash of cash!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 235:
Message 89 "I don’t worry much about winning
or losing.
I keep my Pokémon with me because
I love them!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 236:
Message 97 "You know, it is true what they say.
There is no evil among Pokémon fans!
That goes for you and Eugene!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 237:
Message 105 "The meal was delicious, and our battle
was so much fun.
I really insist that we split the bill."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 238:
Message 111 "I don’t get it. Grown-ups always have
a toast before eating.
What’s that for?
And I don’t see any bread?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 239:
Message 119 "We’re going to eat this delicious
stuff now. Bye-bye!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 240:
Message 127 "Mom, you gotta make me this at home!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 241:
Message 115 "I wish to propose a toast.
May my darling Esteban get another
100% on a test!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 242:
Message 123 "Thank you for letting my dear son
experience an invaluable lesson."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 243:
Message 131 "Is the dessert coming soon?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 244:
Message 137 "The house will be a lot noisier when
the baby comes home with Mommy."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 245:
Message 145 "Let’s get over the sting of this loss
by enjoying this delicious meal!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 246:
Message 153 "Jocelyn, I hope the new baby will be
as kindhearted as you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 247:
Message 141 "Little babies cry like Pokémon!
Piyaaaah!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 248:
Message 149 "I’ve never eaten anything like this
before."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 249:
Message 157 "Next time, let’s come with everyone.
The baby, too!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 250:
Message 163 "Oh, man...
Our drinks are lukewarm now."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 251:
Message 171 "Photographing food isn’t easy.
It’s actually very technical."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 252:
Message 179 "Oh, no... Everything’s gone cold while
we were battling..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 253:
Message 167 "Do you think we should rehearse this
one more time?
Today’s featured drink is freshly
squeezed..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 254:
Message 175 "Darling Darryl, are you ready?
When I take a bite, I want
a close-up of my lips, all right?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 255:
Message 183 "Do you know what the most important
thing is for gourmet reporting?
It’s a...thesauruslike vocabulary!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 256:
Message 189 "This is just a minor setback.
I can easily make up for this!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 257:
Message 197 "I had a bad feeling about this
Trainer..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 258:
Message 205 "If I had the power of premonition,
I’d be a terror on the markets.
But you know that’s not really
possible."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 259:
Message 193 "It’s just one loss. We can make that
back with a big win next time!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 260:
Message 201 "It’s amazing that you predicted you
would lose!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 261:
Message 209 "If it’s not premonition, did you...
Maybe come from the future?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 262:
Message 215 "The results of that battle are
insignificant. Let’s drink up."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 263:
Message 223 "I feel compelled to analyze that
which is unknown to me.
By defining its composition, I feel
reassured in my knowledge."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 264:
Message 231 "They brought the main course while
we were battling...
The calorie content appears to be
alarmingly high."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 265:
Message 219 "Cheers, dear!
Please don’t start analyzing what
we just drank!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 266:
Message 227 "If you were to ask me, I would
rather not know about what I don’t\funderstand. It’s simpler that way."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 267:
Message 235 "Oh, dear, if we take in too many
calories, we can always work them off\fby battling!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(338) L02R0201 Valor Lakefront R2-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 314
CheckLR 1 func_1
Message 0 "Thanks for helping me out.
Here’s something for your trouble!"
Setvar 32772 42
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 314
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "I get careless with the Suite Key
when I get caught up in the scenery\fon my walks."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(339) L02R0301 Valor Lakefront R3-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 1
CheckLR 1 func_1
CheckSinPokedex 32780
If 32780 0
CheckLR 1 func_2
Checkflag 171
CheckLR 0 func_3
CheckNatPokedex 32780
If 32780 0
CheckLR 1 func_3
Jump func_4
FUNCTIONS:
Func 1:
Message 3 "How did you meet all the Pokémon
that filled your Pokédex?
Did you work long and hard to catch
and raise them?
Did you receive them as gifts from
friends?
Maybe you got some in trades from
around the world?
Though everyone’s Pokédexes may
look the same, the stories they\fcontain are all unique."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 0 "Ciao!
I’m the game director!
You’re working on filling
a Pokédex, aren’t you?
It’s awesome that you’re going to
meet lots of Pokémon.
Come show me your Pokédex when
you’ve filled it with tons of entries!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Checkflag 171
CheckLR1 0 func_5
Setflag 171
Setflag 1
Message 1 "Ciao!
I’m the game director!
Your Pokédex is looking great!
You’ve already met every Pokémon
there is to meet in this region.
I’m really impressed!
Let me give you an award!"
Soundfr 1158
Fadedef
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
ShowSinSheet 161
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 4:
Checkflag 172
CheckLR1 0 func_6
Setflag 172
Setflag 1
Message 2 "Ciao!
I’m the game director!
You’ve finally collected all the
Pokémon in the world!
Your Pokédex is completed!
That’s outstanding work!
The effort you went through getting
this Pokédex together...
It’s fantastic! Totally cool!
Thank you very much!
Please allow Game Freak to honor
you with an award!"
Soundfr 1158
Fadedef
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
ShowNatSheet 161
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 5:
MainEvent 26
Killscript
Func 6:
MainEvent 27
Killscript
(340) L03 Acuity Lakefront
SCRIPT ORDER:
Script 2
Script 1
Script 3
Script 4
Script 5
SCRIPTS:
Script 1:
Checkflag 186
CheckLR 0 func_1
Checkflag 186
CheckLR 1 func_2
End
Script 2:
Checkbadge 6 16384
If 16384 1
CheckLR1 1 func_3
Checkflag 186
CheckLR 0 func_1
Checkflag 186
CheckLR 1 func_2
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 6 32780
If 32780 1
CheckLR 1 func_4
Message 0 "We’re here to make sure Snowpoint’s
Gym Leader doesn’t disturb us!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 6 32780
If 32780 1
CheckLR 1 func_5
Message 2 "Standing guard is a very important
assignment!
I’ll make this a success and earn
myself a CLEFAIRY!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
CallMsgBox 260 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
SetTilePassable 2 310 235
SetTilePassable 3 311 235
End
Func 2:
SetTilePassable 0 310 235
SetTilePassable 1 311 235
End
Func 3:
ChangeOwPosition 1 312 240
ChangeOwPosition 2 308 242
Killscript
Func 4:
Message 1 "You’re here to see the lake Pokémon,
too?
You must be bored to fight your
way through the snow to get here..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 3 "The Pokémon of the three lakes
appear to be connected somehow.
When they blew up Lake Valor,
a cavern appeared in the middle of\fthis lake!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(341) L04 L04
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(342) R201 Route 201
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 10
Script 11
Script 12
Script 6
Script 9
Script 7
Script 8
SCRIPTS:
Script 1:
If 16518 2
CheckLR1 1 func_1
Checkgender 16384
If 16384 0
CheckLR 1 func_2
If 16384 1
CheckLR 1 func_3
End
Script 2:
Lockall
Applymovement 2 mov_1
Waitmovement
CheckHiroPosition 32772 32773
If 32772 110
CheckLR 1 func_4
If 32772 111
CheckLR 1 func_5
If 32772 112
CheckLR 1 func_6
If 32772 113
CheckLR 1 func_7
If 32772 114
CheckLR 1 func_7
If 32772 115
CheckLR 1 func_7
End
Script 3:
Lockall
Applymovement 255 mov_2
Applymovement 2 mov_3
Waitmovement
Setvarrival 0
Message 1 "\v0103\z0000: Hey!
Where are you wandering off to?!
That mystery Pokémon on TV!
It’s calling out to me!
Forget about going back home!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 110
CheckLR 1 func_8
If 32772 111
CheckLR 1 func_8
If 32772 112
CheckLR 1 func_8
If 32772 113
CheckLR 1 func_8
If 32772 114
CheckLR 1 func_8
If 32772 115
CheckLR 1 func_8
End
Script 4:
Lockall
Setvarhero 0
Message 2 "Remember what your mother said?
Mom: “\v0103\z0000!
Don’t go into the tall grass!
“Remember, wild Pokémon may attack
you if you’re walking in tall grass.
“It would be OK if you had your
own Pokémon, but...”"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Lockall
CheckHiroPosition 32772 32773
If 32773 853
CheckLR 1 func_9
If 32773 854
CheckLR 1 func_10
If 32773 855
CheckLR 1 func_11
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 11 "Wild Pokémon lurk in tall grass. They
can come bursting out at any time.
So, if you’re wanting to battle wild
Pokémon, just walk in tall grass.
If you want to avoid wild Pokémon,
then stay out of the tall grass."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 14 "That ledge is one way. Jump down
for a shortcut to Twinleaf Town!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Checkflag 144
CheckLR 1 func_12
Message 15 "If your Pokémon’s health--that’s its
HP--is getting low, you should go
home and get some rest."
Jump func_13
Script 9:
Fanfare 1500
Lockall
Faceplayer
Checkflag 108
CheckLR 1 func_14
Message 12 "Hi!
I work at a Pokémon Mart.
Did you know that a Pokémon’s health
is measured by Hit Points (HP)?
If a Pokémon runs out of HP, it
faints and can’t battle anymore.
If a Pokémon’s HP gets low, you
should heal it with a Potion.
Here, let me give you a Potion as
a free sample. First one’s free!
It will automatically go in the
Medicine Pocket of your Bag."
Setvar 32772 17
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_15
Setflag 108
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Script 10:
CallMsgBox 273 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 11:
CallMsgBox 274 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 12:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 19 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
Setflag 435
Killscript
Func 2:
Setvar 16416 97
End
Func 3:
Setvar 16416 0
End
Func 4:
Applymovement 2 mov_4
Waitmovement
Jump func_16
Func 5:
Applymovement 2 mov_5
Waitmovement
Jump func_16
Func 6:
Applymovement 2 mov_6
Waitmovement
Jump func_16
Func 7:
Applymovement 2 mov_7
Waitmovement
Jump func_16
Func 8:
StopFollow
Followhero 2 15
Applymovement 255 mov_8
Applymovement 2 mov_9
Waitmovement
Jump func_17
Func 9:
Applymovement 254 mov_10
Applymovement 5 mov_11
Waitmovement
Setvarrival 0
Message 3 "\v0103\z0000: Hey, it’s those people!
Is that old guy staring at us?"
CloseMsgOnKeyPress
Applymovement 5 mov_12
Applymovement 6 mov_13
Waitmovement
Jump func_18
Func 10:
Applymovement 254 mov_10
Applymovement 5 mov_11
Waitmovement
Setvarrival 0
Message 3 "\v0103\z0000: Hey, it’s those people!
Is that old guy staring at us?"
CloseMsgOnKeyPress
Applymovement 5 mov_14
Applymovement 6 mov_13
Waitmovement
Jump func_18
Func 11:
Applymovement 255 mov_15
Applymovement 254 mov_16
Applymovement 5 mov_11
Waitmovement
Setvarrival 0
Message 3 "\v0103\z0000: Hey, it’s those people!
Is that old guy staring at us?"
CloseMsgOnKeyPress
Applymovement 5 mov_14
Applymovement 6 mov_13
Waitmovement
Jump func_18
Func 12:
Message 16 "If your Pokémon’s health--that’s its
HP--is getting low, you should go\fto a Pokémon Center!"
Jump func_13
Func 13:
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Message 13 "You can find a Pokémon Mart in cities
and most major towns."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 15:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 16:
Setvarrival 0
Message 0 "\v0103\z0000: Hey, you saw that news
report that was on TV, right?
You know, “Search for the Red
GYARADOS! The mysterious appearance\fof the furious Pokémon in a lake!”
That show got me to thinking.
I’ll bet our local lake has a Pokémon
like that in it, too!
So, that’s what we’re gonna do.
We’ll go find a Pokémon like that!"
Waitbutton
CloseMsgOnKeyPress
0164
StartFollow
Followhero 2 48
Continuefollow 2 256
Setflag 400
Setvar 16518 1
Releaseall
End
Func 17:
StartFollow
Followhero 2 48
Releaseall
End
Func 18:
Setvaralter 0
Setvarstrhero 1
Setvarstrrival 2
Message 4 "Professor: Hmm...
I heard from \v0103\z0000 that
you used our Pokémon?\fLet me see them, please.
Hmm...
\v0100\z0001 and \v0100\z0002...
...
Hmm...\fI see...
That’s how it is..."
CloseMsgOnKeyPress
Applymovement 5 mov_17
Waitmovement
Setvaralter 0
Message 5 "\v0103\z0000!
I’m going back to my lab!"
CloseMsgOnKeyPress
If 32773 853
CheckLR 1 func_19
If 32773 854
CheckLR 1 func_20
If 32773 855
CheckLR 1 func_21
If 32773 856
CheckLR 1 func_21
End
Func 19:
Applymovement 5 mov_18
Applymovement 6 mov_19
Waitmovement
Jump func_22
Func 20:
Applymovement 5 mov_18
Applymovement 6 mov_20
Waitmovement
Jump func_22
Func 21:
Applymovement 5 mov_18
Applymovement 6 mov_20
Waitmovement
Jump func_22
Func 22:
Checkgender 32780
If 32780 0
CheckLR 1 func_23
Jump func_24
Func 23:
Setvaralter 0
Message 6 "Dawn: Um... Yes!
Professor, please wait for me!"
CloseMsgOnKeyPress
Applymovement 6 mov_21
Waitmovement
Return 15 32780
Message 7 "I think you should visit our lab
later.
OK, see you!"
Jump func_25
Func 24:
Setvaralter 0
Message 8 "Lucas: Uh... Yeah, of course!
Professor, wait for me!"
CloseMsgOnKeyPress
Applymovement 6 mov_21
Waitmovement
Return 15 32780
Message 9 "You should visit us at our lab later,
I think.
We’ll be seeing you!"
Jump func_25
Func 25:
CloseMsgOnKeyPress
If 32773 853
CheckLR 1 func_26
If 32773 854
CheckLR 1 func_26
If 32773 855
CheckLR 1 func_26
If 32773 856
CheckLR 1 func_26
End
Func 26:
Applymovement 6 mov_22
Waitmovement
Jump func_27
Func 27:
Removepeople 6
Removepeople 5
Setvarrival 0
Setvarhero 1
Message 10 "\v0103\z0000: What was all that
craziness about?
I mean, if he was angry, he could’ve
just yelled at us, or whatever...
And didn’t he want their Pokémon
back...?
\v0103\z0001...
We should go home, too..."
CloseMsgOnKeyPress
Setvar 16518 3
Continuefollow 254 0
StopFollow
Setflag 400
Setflag 435
Setvar 16514 4
Setflag 436
Return 30 32780
Fadescreen 6 3 0 0
Resetscreen
Warp 414 0 2 6 0
Fadescreen 6 3 1 0
Resetscreen
Releaseall
End
(343) R202 Route 202
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Checkgender 16384
If 16384 0
CheckLR 1 func_1
If 16384 1
CheckLR 1 func_2
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 10 "Some Pokémon only appear in the
morning. Some only come out at night.
I’m going to keep waiting right here
till I’ve seen every last one of ’em!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
CallMsgBox 267 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 4:
CallMsgBox 268 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 5:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 13 32780
Callstd 208 7
End
Script 6:
Lockall
Applymovement 3 mov_1
Applymovement 255 mov_2
Waitmovement
CheckHiroPosition 32772 32773
If 32773 825
CheckLR 1 func_3
If 32773 826
CheckLR 1 func_4
If 32773 827
CheckLR 1 func_5
If 32773 828
CheckLR 1 func_6
If 32773 829
CheckLR 1 func_7
End
FUNCTIONS:
Func 1:
Setvar 16416 97
End
Func 2:
Setvar 16416 0
End
Func 3:
Applymovement 3 mov_3
Waitmovement
Jump func_8
Func 4:
Applymovement 3 mov_4
Waitmovement
Jump func_8
Func 5:
Applymovement 3 mov_5
Waitmovement
Jump func_8
Func 6:
Applymovement 3 mov_6
Waitmovement
Jump func_8
Func 7:
Applymovement 3 mov_7
Waitmovement
Jump func_8
Func 8:
Checkflag 143
CheckLR 0 func_9
Checkgender 32780
If 32780 0
CheckLR 1 func_10
If 32780 1
CheckLR 1 func_11
End
Func 9:
Checkgender 32780
If 32780 0
CheckLR 1 func_12
If 32780 1
CheckLR 1 func_13
End
Func 10:
Callstd 248 7
Setvaralter 0
Setvarhero 1
Message 2 "Dawn: Oh, that’s right!
\v0103\z0001, I haven’t shown you
how to catch a Pokémon.
I’ll demonstrate how to catch
one, so just watch me, OK?"
Jump func_14
Func 11:
Callstd 248 7
Setvaralter 0
Setvarhero 1
Message 7 "Lucas: \v0103\z0001, do you know
how to catch a Pokémon?
I’ll demonstrate how to catch
one, so just watch, OK?"
Jump func_14
Func 12:
Setvaralter 0
Setvarhero 1
Checkflag 277
CheckLR1 0 func_15
Checkflag 277
CheckLR1 1 func_16
Jump func_17
Func 13:
Setvaralter 0
Setvarhero 1
Checkflag 277
CheckLR1 0 func_18
Checkflag 277
CheckLR1 1 func_19
Jump func_17
Func 14:
CloseMsgOnKeyPress
Applymovement 3 mov_8
Applymovement 255 mov_9
Waitmovement
Explanationbattle
Applymovement 3 mov_10
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_20
If 32780 1
CheckLR 1 func_21
End
Func 15:
Message 0 "Dawn: \v0103\z0001?!
Did you tell your family that you’re
helping the professor?
...You didn’t, did you?
I know that you’re really eager to
see all kinds of Pokémon.
But you shouldn’t make your mom
worry that you’ve disappeared."
Killscript
Func 16:
Message 1 "Dawn: You should go tell your family
that you’re helping the professor.
The faster the better, too."
Killscript
Func 17:
CloseMsgOnKeyPress
If 32773 825
CheckLR 1 func_22
If 32773 826
CheckLR 1 func_23
If 32773 827
CheckLR 1 func_24
If 32773 828
CheckLR 1 func_25
If 32773 829
CheckLR 1 func_26
End
Func 18:
Message 5 "Lucas: \v0103\z0001?!
Did you tell your family that you’re
helping the professor?
...I bet you didn’t, did you?
I know that you’re eager to
see all kinds of Pokémon.
But you shouldn’t make your mom
worry that you’ve upped and left."
Killscript
Func 19:
Message 6 "Lucas: Why don’t you go tell your
family that the professor asked for\fyour help?
You should do it right away."
Killscript
Func 20:
Setvarhero 0
Message 3 "Dawn: Giggle...
See? Isn’t it neat?
Actually, it’s better to lower your
target’s HP more than I did.
It’s important to get the Pokémon’s
HP down as low as possible.
This is because a healthy Pokémon
is very difficult to catch.
Oh, Pokémon also get easier to catch
if you make them sleep or something\fby using a Pokémon’s move.
OK, \v0103\z0000, to get you
started, I’ll give you five\fPoké Balls!"
Jump func_27
Func 21:
Setvarhero 0
Message 8 "Lucas: And that’s how it’s done.
Actually, I should have lowered the
target’s HP some more.
Yup, the important thing is to lower
the Pokémon’s HP as much as possible.
See, a healthy Pokémon isn’t easy to
catch.
Oh, yeah. They also get easier to
catch if you make one of your\fPokémon put them to sleep or such.
Here, \v0103\z0000, I’ll give you
five Poké Balls to get you started."
Jump func_27
Func 22:
Applymovement 3 mov_11
Applymovement 255 mov_12
Waitmovement
Jump func_28
Func 23:
Applymovement 3 mov_13
Applymovement 255 mov_12
Waitmovement
Jump func_28
Func 24:
Applymovement 3 mov_14
Applymovement 255 mov_12
Waitmovement
Jump func_28
Func 25:
Applymovement 3 mov_15
Applymovement 255 mov_12
Waitmovement
Jump func_28
Func 26:
Applymovement 3 mov_16
Applymovement 255 mov_12
Waitmovement
Jump func_28
Func 27:
Setvar 32772 4
Setvar 32773 5
Callstd 252 7
Checkgender 32780
If 32780 0
CheckLR 1 func_29
If 32780 1
CheckLR 1 func_30
End
Func 28:
Applymovement 3 mov_17
Waitmovement
Setflag 277
Releaseall
End
Func 29:
Setvarhero 0
Message 4 "If you have lots of Pokémon with you,
it will be safer on long trips.
Plus, it will be a lot more fun
having your Pokémon friends along.
OK, I need to get going.
Bye, now!"
Jump func_31
Func 30:
Message 9 "If you have lots of Pokémon with you,
you’ll be able to travel farther.
That way, you’ll have a better shot
at meeting more Pokémon.
See you around!"
Jump func_31
Func 31:
CloseMsgOnKeyPress
Applymovement 3 mov_18
Waitmovement
Removepeople 3
Setvar 16519 1
Releaseall
End
(344) R203 Route 203
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Did you know?
The first Pokémon to appear in
a battle is the one at the top left
of your team list."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 259 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 3:
CallMsgBox 260 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 4:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 5 32780
Callstd 208 7
End
Script 5:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 6 32780
Callstd 208 7
End
Script 6:
Lockall
Callstd 250 7
CheckHiroPosition 32772 32773
If 32773 757
CheckLR 1 func_1
If 32773 758
CheckLR 1 func_2
If 32773 759
CheckLR 1 func_3
If 32773 760
CheckLR 1 func_4
End
FUNCTIONS:
Func 1:
Applymovement 5 mov_1
Waitmovement
Jump func_5
Func 2:
Applymovement 5 mov_2
Waitmovement
Jump func_5
Func 3:
Applymovement 5 mov_3
Waitmovement
Jump func_5
Func 4:
Applymovement 5 mov_4
Waitmovement
Jump func_5
Func 5:
Setvarrival 0
Setvarhero 1
Message 0 "\v0103\z0000: Hey! \v0103\z0001!
Tell me you got a little tougher!
Me? Do you even need to ask?
Of course I got tougher!
Come on!
Let’s battle it out!"
CloseMsgOnKeyPress
StoreStarter 32780
If 32780 387
CheckLR 1 func_6
If 32780 390
CheckLR 1 func_7
Jump func_8
Func 6:
TrainerBattle 248 0
Jump func_9
Func 7:
TrainerBattle 249 0
Jump func_9
Func 8:
TrainerBattle 247 0
Jump func_9
Func 9:
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_10
Setvarrival 0
Message 1 "\v0103\z0000: Waah!
What do you mean I lost?!
Well, that’s it!
That’s the last time I’ll ever lose!
I’m going to be the world’s toughest
Trainer, and you know it!
The first thing to do is take on
the Oreburgh City Pokémon Gym!
I’m gonna toughen up for that,
totally!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32773 757
CheckLR 1 func_11
If 32773 758
CheckLR 1 func_12
If 32773 759
CheckLR 1 func_13
If 32773 760
CheckLR 1 func_14
End
Func 10:
LostGoPc
Releaseall
End
Func 11:
Applymovement 5 mov_5
Waitmovement
Jump func_15
Func 12:
Applymovement 5 mov_6
Waitmovement
Jump func_15
Func 13:
Applymovement 5 mov_7
Waitmovement
Jump func_15
Func 14:
Applymovement 5 mov_8
Waitmovement
Jump func_15
Func 15:
Removepeople 5
Setvar 16520 1
Releaseall
End
(345) R204A Route 204
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "There are boulders blocking the way
inside the cavern...
I think a Pokémon would be able to
break those boulders, though."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 257 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 3:
CallMsgBox 514 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(346) R204B Route 204
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Are you raising different kinds of
Pokémon?
If you only have the same type of
Pokémon, you’ll have a hard time
against types it’s weak to."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 197
CheckLR 1 func_1
Message 1 "Hi, are you the flirty type?
I’m asking you this to make a point.
I teach at the Trainers’ School,
and I’d like to give you a lesson.
But before I do, I’d like you to
have this TM."
Setvar 32772 405
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Callstd 252 7
Setflag 197
Jump func_1
Script 3:
CallMsgBox 259 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
Message 2 "You know how Pokémon have genders?
Like, there are males and females?
Well, the move Captivate only works
against the opposite gender.
For example, it only works when used
by a male Pokémon on a female.
The move sharply lowers the target’s
Special Attack, or Sp. Atk for short.
You also probably know this, but a
TM is good for only one use.
Choose the Pokémon wisely if you
do decide to use it."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(347) R205A Route 205
SCRIPT ORDER:
Script 1
Script 4
Script 5
Script 2
Script 6
Script 7
Script 3
Script 8
Script 9
Script 10
SCRIPTS:
Script 1:
Checkflag 280
CheckLR 1 func_1
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Applymovement 13 mov_1
Waitmovement
Message 3 "We, Team Galactic, are conducting
research in the Eterna Forest!
This is as far as you will go!"
CloseMsgOnKeyPress
Applymovement 12 mov_2
Waitmovement
Goto func_2
Message 5 "Our research involves catching
Pokémon in the flowery meadows of
Floaroma Town.
We are also using the energy of the
Valley Windworks for something.
But that is of no concern to you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Lockall
Applymovement 13 mov_3
Waitmovement
Message 3 "We, Team Galactic, are conducting
research in the Eterna Forest!
This is as far as you will go!"
CloseMsgOnKeyPress
Applymovement 12 mov_4
Waitmovement
Message 4 "Our research involves catching
Pokémon in the flowery meadows of
Floaroma Town.
We are also using the energy of the
Valley Windworks for something.
But that is of no concern to you!"
CloseMsgOnKeyPress
Applymovement 13 mov_5
Applymovement 255 mov_6
Waitmovement
Applymovement 12 mov_7
Waitmovement
Goto func_2
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 6 "Many Poison-type Pokémon make the
Eterna Forest their home.
But I didn’t buy any Antidotes.
What should I do?
Do I press on, or do I go back?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Setflag 280
Message 7 "If you slather sweet Honey on
a sweet-smelling tree...
Pokémon may be attracted by that
sweet scent."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Checkflag 145
CheckLR 1 func_3
Goto func_4
Message 0 "Help, help, Trainer!
Please, can you get my papa for me?
He works at the Valley Windworks.
But the people dressed like spacemen
are mean and won’t let me in..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Lockall
CheckHiroPosition 32772 32773
If 32773 659
CheckLR 1 func_5
If 32773 660
CheckLR 1 func_6
If 32773 661
CheckLR 1 func_7
If 32773 662
CheckLR 1 func_8
If 32773 663
CheckLR 1 func_9
End
Script 8:
CallMsgBox 264 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 9:
CallMsgBox 265 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 10:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 10 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
ChangeOwPosition 31 210 653
End
Func 2:
Setflag 127
Killscript
Func 3:
Message 1 "Please, Trainer! Get my papa from
the Valley Windworks!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Setflag 447
Setflag 145
Setvar 16521 1
Killscript
Func 5:
Applymovement 18 mov_8
Waitmovement
Applymovement 255 mov_9
Waitmovement
Jump func_10
Func 6:
Applymovement 18 mov_10
Waitmovement
Applymovement 255 mov_9
Waitmovement
Jump func_10
Func 7:
Jump func_10
Func 8:
Applymovement 18 mov_11
Waitmovement
Applymovement 255 mov_12
Waitmovement
Jump func_10
Func 9:
Applymovement 18 mov_13
Waitmovement
Applymovement 255 mov_12
Waitmovement
Jump func_10
Func 10:
Goto func_4
Message 0 "Help, help, Trainer!
Please, can you get my papa for me?
He works at the Valley Windworks.
But the people dressed like spacemen
are mean and won’t let me in..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(348) R205AR0101 Route 205 A R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "You seem to be tired...
Rest a while."
Yesnobox 32780
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 3 "You think you can get through the
Eterna Forest by yourself?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Soundfr 1166
Fadedef
HealPkmn
Fadescreen 6 1 1 0
Resetscreen
Message 1 "You and your Pokémon look
completely refreshed!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 2 "Just because you’re young doesn’t
mean you should push yourself."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(349) R205B Route 205
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "To sit back and fish casually...
It’s a grown-up’s hobby."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 257 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 3:
CallMsgBox 258 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(350) R206 Route 206
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 1
SCRIPTS:
Script 1:
RideBike 1
Setvar 16668 0
End
Script 2:
Setflag 2534
End
Script 3:
Checkflag 2452
CheckLR1 1 func_1
0200
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 0 "If I had a Bike, I could zip down
Cycling Road in one gnarly ride!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I heard that there’s a cave, but
I can’t seem to find it."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
CallMsgBox 258 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 7:
CallMsgBox 259 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 8:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 4 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
RideBike2 1
Killscript
(351) R206R0101 Route 206 R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
CheckItem 450 1 16620
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Learn how to shift gears, and you’ll
be able to ride anywhere."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Lockall
Applymovement 0 mov_1
Waitmovement
Message 1 "You need a Bicycle to go out on
Cycling Road!"
CloseMsgOnKeyPress
Applymovement 255 mov_2
Waitmovement
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 299
CheckLR 1 func_1
Setvar 32772 96
SetvarAccessories 0 32772
Message 3 "What’s a Bicycle without this?
You’ve got to have a Flag!
It’s a Pokémon Accessory!"
Setvar 32773 1
Callstd 223 7
Setflag 299
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 4 "Go through Mt. Coronet from here,
and you can get to Hearthome City.
Hearthome is where they hold Pokémon
Contests.
You should dress up your Pokémon for
Contests with your Accessories."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(352) R206R0201 Route 206 R2-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(353) R207 Route 207
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
Checkgender 16384
If 16384 0
CheckLR 1 func_1
If 16384 1
CheckLR 1 func_2
End
Script 2:
Lockall
CheckHiroPosition 32772 32773
If 32772 300
CheckLR 1 func_3
If 32772 301
CheckLR 1 func_4
If 32772 302
CheckLR 1 func_5
If 32772 303
CheckLR 1 func_6
If 32772 304
CheckLR 1 func_7
If 32772 305
CheckLR 1 func_8
If 32772 306
CheckLR 1 func_9
If 32772 307
CheckLR 1 func_10
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 8 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 130
CheckLR 1 func_11
Message 9 "That slope’s too slippery.
You’ll need a Bike to get up.
You don’t have a Bicycle?
There’s a Cycle Shop in Eterna City."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
CallMsgBox 267 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 6:
CallMsgBox 268 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 7:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 13 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
Setvar 16416 97
End
Func 2:
Setvar 16416 0
End
Func 3:
ChangeOwPosition 18 301 716
Goto func_12
Applymovement 18 mov_1
Applymovement 255 mov_2
Waitmovement
Jump func_13
Func 4:
ChangeOwPosition 18 302 716
Goto func_12
Applymovement 18 mov_1
Applymovement 255 mov_2
Waitmovement
Jump func_13
Func 5:
ChangeOwPosition 18 303 716
Goto func_12
Applymovement 18 mov_1
Applymovement 255 mov_2
Waitmovement
Jump func_13
Func 6:
ChangeOwPosition 18 304 716
Goto func_12
Applymovement 18 mov_1
Applymovement 255 mov_2
Waitmovement
Jump func_13
Func 7:
ChangeOwPosition 18 305 716
Goto func_12
Applymovement 18 mov_1
Applymovement 255 mov_2
Waitmovement
Jump func_13
Func 8:
ChangeOwPosition 18 304 716
Goto func_12
Applymovement 18 mov_3
Applymovement 255 mov_4
Waitmovement
Jump func_13
Func 9:
ChangeOwPosition 18 305 716
Goto func_12
Applymovement 18 mov_3
Applymovement 255 mov_4
Waitmovement
Jump func_13
Func 10:
ChangeOwPosition 18 306 716
Goto func_12
Applymovement 18 mov_3
Applymovement 255 mov_4
Waitmovement
Jump func_13
Func 11:
Message 10 "If you change gears on your Bicycle,
you can shoot right up that slope."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
Clearflag 490
Addpeople 18
Lock 18
Callstd 248 7
Killscript
Func 13:
Checkgender 32780
If 32780 0
CheckLR 1 func_14
Jump func_15
Func 14:
Setvarhero 0
Message 0 "Dawn: Hi, \v0103\z0000!
How’s your Pokédex coming along?
Me? I’m somewhere between fantastic
and, uh, hopeless...
But this isn’t about me!
I’ve got something nice for you.
\v0103\z0000, choose which hand
you want."
Multi3 30 13 0 0 32780
ChooseWirePokeBCastle 17921 35072
Func 15:
Setvarhero 0
Message 4 "Lucas: Hey, \v0103\z0000!
How’s your Pokédex coming along?
Me? I’m always doing great!
...I wish...
But that’s not important.
Lately, I’ve been experimenting with
a couple of neat tools.
\v0103\z0000, I’ll share with you.
Choose a hand!"
Multi3 30 13 0 0 32780
ChooseWirePokeBCastle 17921 35072
(354) R208 Route 208
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 5
Script 4
SCRIPTS:
Script 1:
CallMsgBox 258 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 2:
CallMsgBox 259 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 3:
CallMsgBox 516 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 4:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 5 32780
Callstd 208 7
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Checkflag 319
CheckLR 1 func_1
Message 0 "...Don’t say a word.
Just take it."
Setvar 32772 111
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 319
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Go to Route 209!
Go underground!
Listen to the stone pillar!
Talk to people underground!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(355) R208R0101 Route 208 R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setflag 2535
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2720
CheckLR 1 func_1
Message 0 "Everyone seems to call me the Berry
Master.
I hand out Berries daily because
I want people to learn how wonderful
they are.
You’re deserving of one!"
CheckIdPlayer 32772 26
Setvalue 32772 149
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 2720
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
If 16384 1
CheckLR 1 func_3
StorePktchAppl 7 32780
If 32780 1
CheckLR 1 func_4
Message 2 "Are you the forgetful type who
forgets where Berries are planted?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_5
If 32780 1
CheckLR 1 func_6
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 7 "Um... Would you like some Mulch?
If you’re going to grow Berries,
Mulch is a good fertilizer."
ShowMoney 20 2
Multi 1 1 0 1 32780
Txtscrpmulti 223 0
Txtscrpmulti 224 1
Txtscrpmulti 225 2
Txtscrpmulti 226 3
Txtscrpmulti 227 4
CloseMulti
Copyvar 32768 32780
Copyvar 32776 32768
If 32776 0
CheckLR 1 func_7
If 32776 1
CheckLR 1 func_8
If 32776 2
CheckLR 1 func_9
If 32776 3
CheckLR 1 func_10
Message 9 "Um...
Please come again."
Jump func_11
FUNCTIONS:
Func 1:
Message 1 "Berries are gifts of nature.
I encourage you to feed Berries to
Pokémon.
That will make Pokémon happy.
Seeing that, people will be motivated
to plant more Berries.
And that will make Sinnoh a greener,
more natural place."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Setvarobj 0 7
Message 5 "The \v0118\z0000 shows you
where there are ripe Berries\fthat are ready to be picked."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 6 "Certain kinds of Berries need lots
and lots of water."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 3 "Yes, yes, I thought so!
I’m the same way!
I feel a sort of kinship with you!
You can have this Pokétch app!"
Setvar 16384 1
Setvar 32772 7
Callstd 217 7
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 4 "Oh, is that so.
Then you’re OK even if I don’t give
you this nice thing."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Setvar 32769 95
Jump func_12
Func 8:
Setvar 32769 96
Jump func_12
Func 9:
Setvar 32769 97
Jump func_12
Func 10:
Setvar 32769 98
Jump func_12
Func 11:
Waitbutton
CloseMsgOnKeyPress
HideMoney
Releaseall
End
Func 12:
If 32768 0
CheckLR1 1 func_13
If 32768 1
CheckLR1 1 func_14
If 32768 2
CheckLR1 1 func_15
If 32768 3
CheckLR1 1 func_16
If 32780 0
CheckLR 1 func_17
CheckStoreItem 32769 1 32780
If 32780 0
CheckLR 1 func_18
If 32768 0
CheckLR1 1 func_19
If 32768 1
CheckLR1 1 func_20
If 32768 2
CheckLR1 1 func_21
If 32768 3
CheckLR1 1 func_22
UpdateMoney
Fanfare 1604
TakeItem 32769 1 32780
Setvaritem 0 32769
Message 10 "You bought some \v0108\z0000."
Message 8 "That \v0108\z0000...
I made it by mixing high-grade soil
with Pokémon...um...you know...
It will promote healthy Berry growth."
Jump func_11
Func 13:
CheckMoney 32780 200 0
Killscript
Func 14:
CheckMoney 32780 200 0
Killscript
Func 15:
CheckMoney 32780 200 0
Killscript
Func 16:
CheckMoney 32780 200 0
Killscript
Func 17:
Message 12 "Um... You don’t appear to have
enough money..."
Jump func_11
Func 18:
Message 11 "I’m so sorry...
Your Bag appears to be full..."
Jump func_11
Func 19:
TakeMoney 200 0
Killscript
Func 20:
TakeMoney 200 0
Killscript
Func 21:
TakeMoney 200 0
Killscript
Func 22:
TakeMoney 200 0
Killscript
(356) R209 Route 209
SCRIPT ORDER:
Script 2
Script 3
Script 5
Script 6
Script 4
Script 8
Script 9
Script 1
Script 7
SCRIPTS:
Script 1:
CheckTime 16384
If 16384 0
CheckLR 1 func_1
If 16384 1
CheckLR 1 func_2
If 16384 2
CheckLR 1 func_2
If 16384 3
CheckLR 1 func_2
If 16384 4
CheckLR 1 func_2
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Where departed Pokémon sleep...
This is the Lost Tower."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
If 16522 1
CheckLR 1 func_3
CheckItem 111 1 32780
If 32780 0
CheckLR 1 func_4
Message 2 "There is a broken, crumbling tower
made of stone...
There seems to be a spot that would
be a perfect fit for the Odd Keystone.
Would you like to use the Odd
Keystone?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_5
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Setvar 32772 446
ShowBTowerSome? 0
Script 5:
CallMsgBox 275 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 6:
CallMsgBox 276 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 7:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 21 32780
Callstd 208 7
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 17 "Do you jog every morning?
Well, I do!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 18 "When I was jogging the other day,
a wild Pokémon chased after me.
I swear, I ran on top of the water!
I was so freaked out!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Clearflag 651
Clearflag 653
Setflag 650
Setflag 652
End
Func 2:
Clearflag 650
Clearflag 652
Setflag 651
Setflag 653
End
Func 3:
RandomHallowes 32780
If 32780 32
CheckLR 4 func_6
If 32780 29
CheckLR 4 func_7
If 32780 22
CheckLR 4 func_8
If 32780 15
CheckLR 4 func_9
If 32780 8
CheckLR 4 func_10
Jump func_11
Func 4:
Message 1 "There is a broken, crumbling tower
made of stone..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Setvarhero 0
Message 3 "\v0103\z0000 pushed the Odd Keystone
into the stone tower.
The stone tower has been restored!
“Hallowed Tower” is written on it."
Waitbutton
GiveItem 111 1 32780
Setvar 16522 1
CloseMsgOnKeyPress
Releaseall
End
Func 6:
WaitFanfare 1500
Cryfr 442 0
Message 9 "Yulaaah!"
WaitCry
CloseMsgOnKeyPress
Wildbattle 442 25
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_12
Setvar 16522 0
026F
End
Func 7:
Message 8 "It’s the Hallowed Tower.
There is some sort of presence...
It appears ready to emerge!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 7 "It’s the Hallowed Tower.
...Is the tower shaking ever so
slightly?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Message 6 "It’s the Hallowed Tower.
...Is that crying coming from inside
the tower?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Message 5 "It’s the Hallowed Tower.
Its stones appear to have shifted..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Message 4 "It’s the Hallowed Tower.
It appears to have been built
many years ago."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
LostGoPc
Releaseall
End
(357) R209R0101 Route 209 R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setflag 2536
End
FUNCTIONS:
None
(358) R209R0102 Route 209 R1-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(359) R209R0103 Route 209 R1-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(360) R209R0104 Route 209 R1-04
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(361) R209R0105 Route 209 R1-05
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 150
CheckLR 1 func_1
Message 0 "The Lost Tower is where the spirits
of departed Pokémon are put to rest.
Those that enjoyed long lives...
Those whose times were short...
All the departed Pokémon shall
find solace here...
It is good of you to have visited.
Here, take this Hidden Machine."
Setvar 32772 423
Setvar 32773 1
Callstd 252 7
Jump func_1
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 278
CheckLR 1 func_2
Message 3 "Let me make your journey out of this
place less frightening. Take this."
Setvar 32772 224
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_3
Callstd 252 7
Setflag 278
Jump func_2
FUNCTIONS:
Func 1:
Setflag 150
Checkbadge 4 32772
If 32772 0
CheckLR1 1 func_4
If 32772 1
CheckLR1 1 func_5
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 4 "The Cleanse Tag... Let the first
Pokémon in your team hold it.
It will help keep wild Pokémon away
so you can leave unhindered."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 1 "To use that hidden move Strength...
...I’ve forgotten where exactly, but
you must visit a Pokémon Gym."
Killscript
Func 5:
Message 2 "That Fantina...
She’s a hard one to get a read on...
But she is the compassionate sort.
You know, she’s a regular visitor."
Killscript
(362) R210A Route 210
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 1
SCRIPTS:
Script 1:
CheckTime 16384
If 16384 0
CheckLR 1 func_1
If 16384 1
CheckLR 1 func_2
If 16384 2
CheckLR 1 func_2
If 16384 3
CheckLR 1 func_2
If 16384 4
CheckLR 1 func_2
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckItem 464 1 32780
If 32780 1
CheckLR 1 func_3
Message 0 "The PSYDUCK are standing firm.
They aren’t inclined to move at all."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 6 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 199
CheckLR 1 func_4
Message 7 "I’m taking a rest. If I were a bird
Pokémon, it would be a roost. Haha!
Uh... You should rest up, too."
Setvar 32772 378
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_5
Callstd 252 7
Setflag 199
Jump func_4
Script 5:
CallMsgBox 522 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 6:
CallMsgBox 267 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 9 "So long as there’s a road, we’ll
keep on running..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Clearflag 655
Setflag 654
End
Func 2:
Clearflag 654
Setflag 655
End
Func 3:
Message 1 "The PSYDUCK are standing firm.
They aren’t inclined to move.
Would you like to use the SecretPotion?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_6
If 32780 1
CheckLR 1 func_7
End
Func 4:
Message 8 "If they had to keep flying forever,
bird Pokémon would eventually crash."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Setvarhero 0
Setvaritem 1 464
Message 2 "\v0103\z0000 used the
SecretPotion!
The PSYDUCK appear to be cured
of their chronic headache!"
CloseMsgOnKeyPress
Cryfr 54 0
WaitCry
Applymovement 27 mov_1
Applymovement 28 mov_1
Applymovement 26 mov_1
Applymovement 19 mov_1
Waitmovement
Applymovement 27 mov_2
Applymovement 28 mov_3
Applymovement 26 mov_4
Applymovement 19 mov_5
Waitmovement
Removepeople 27
Removepeople 28
Removepeople 26
Removepeople 19
Return 45 32780
CheckHiroPosition 32772 32773
If 32772 560
CheckLR 1 func_8
If 32772 561
CheckLR 1 func_9
End
Func 7:
CloseMsgOnKeyPress
Releaseall
End
Func 8:
ChangeOwPosition 20 560 596
ChangeOwMovement 20 14
Jump func_10
Func 9:
ChangeOwPosition 20 561 596
ChangeOwMovement 20 14
Jump func_10
Func 10:
Clearflag 463
Addpeople 20
Lock 20
Applymovement 20 mov_6
Waitmovement
Applymovement 255 mov_7
Waitmovement
Message 3 "Cynthia: Oh, good. You used the
SecretPotion I gave you.
PSYDUCK are known to suffer from
chronic headaches.
But no one’s been able to figure out
what triggers the headaches.
Oh, yes! Can I ask you a big favor?
I want you to deliver this Old Charm
to my grandma in Celestic Town.
I know there are some rare Pokémon
between here and Celestic Town, so\fit will be worth your while to go."
Yesnobox 32780
If 32780 0
CheckLR 1 func_11
If 32780 1
CheckLR 1 func_12
End
Func 11:
Setvar 32772 439
Setvar 32773 1
Callstd 252 7
Message 4 "Cynthia: My grandma has this sort of
bossy atmosphere about her.
I think you’ll recognize her right
away.
Yes, I’m sure you will. She’s the
elder of Celestic Town.
And the location... Look on your Town
Map. You can’t miss it.
OK, I’m counting on you!
See you again down the road!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 560
CheckLR 1 func_13
If 32772 561
CheckLR 1 func_14
End
Func 12:
Message 5 "I know I’m asking a big favor
of you.
But I really want you to do it.
Will you go to Celestic Town for me?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_11
If 32780 1
CheckLR 1 func_12
End
Func 13:
Applymovement 20 mov_8
Waitmovement
Jump func_15
Func 14:
Applymovement 20 mov_9
Waitmovement
Jump func_15
Func 15:
Removepeople 20
Setflag 263
Releaseall
End
(363) R210B Route 210
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "If I could use the hidden move Defog,
I’d clear up the weather.
Defog? Bird Pokémon flap their
wings to blow the fog away."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 257 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 3:
CallMsgBox 514 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(364) R210BR0101 Route 210 B R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2538
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 256
CheckLR 1 func_1
Setflag 256
Message 0 "Hohoho...
They call me Grandma Wilma.
I came out here by myself from
a town of Dragon Tamers.
I can teach the strongest of all
Dragon-type moves to the tough
Pokémon of Sinnoh.
Would you like me to teach that
move to one of your Pokémon?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_2
Jump func_3
FUNCTIONS:
Func 1:
Message 1 "Ah, it is you again...
Would you like me to teach the best
Dragon-type move I know to one of\fyour Pokémon?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_2
Jump func_3
Func 2:
Message 2 "Well, perhaps if you change your
mind, do come back."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Checkpartynumber 16384
Copyvalue 16384 1
CheckPokeEgg 16384 32780
If 32780 0
CheckLR 1 func_4
CheckPokeType 32772 32773 16384
If 32772 16
CheckLR 1 func_5
If 32773 16
CheckLR 1 func_5
Jump func_4
Func 4:
If 16384 0
CheckLR 5 func_6
Jump func_7
Func 5:
Checkmove 32780 434 16384
If 32780 0
CheckLR 1 func_8
If 16384 0
CheckLR 5 func_6
Jump func_7
Func 6:
Copyvalue 16384 1
CheckPokeEgg 16384 32780
If 32780 0
CheckLR 1 func_4
CheckPokeType 32772 32773 16384
If 32772 16
CheckLR 1 func_5
If 32773 16
CheckLR 1 func_5
Jump func_4
Func 7:
Message 3 "I see...
I like your sense of adventure.
However, none of the Pokémon with
you now can learn the move."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 4 "Fine, fine, now pick the Pokémon
I should teach the move to."
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
ChsPokemenu
StorePokeMenu2 32768
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32768 255
CheckLR 1 func_2
CheckPokeEgg 32768 32769
If 32769 0
CheckLR 1 func_9
Goto func_10
If 32780 0
CheckLR 1 func_11
Checkmove 32780 434 32768
If 32780 1
CheckLR 1 func_12
StoreHappyPoke 32780 32768
If 32780 255
CheckLR 0 func_13
Setvar 32771 434
Jump func_14
Func 9:
Message 7 "Hmmmm...
Teaching a move to an Egg is
a challenge that’s beyond me."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
CheckPokeType 32772 32773 32768
If 32772 16
CheckLR 1 func_15
If 32773 16
CheckLR 1 func_15
Setvar 32780 0
Killscript
Func 11:
Message 6 "Sorry to disappoint you...
That Pokémon can’t learn this move."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
Setvaratk 0 434
Message 8 "Oh? That Pokémon already knows
\v0106\z0000."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 13:
Message 5 "Sorry to disappoint you...
That Pokémon you have can learn this
move, but it hasn’t come to trust\fyou fully yet...
Until then, I can’t make it learn
this move."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Fadescreen 6 1 0 0
Resetscreen
CopyMoveRemember 32768 434
StoreMoveRemember 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 255
CheckLR 1 func_2
Message 16 "Draco Meteor’s destructive power
is awe inspiring.
However, using it will also lower
the Pokémon’s Special Attack."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 15:
Setvar 32780 1
Killscript
(365) R211A Route 211
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 257 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 3:
CallMsgBox 258 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(366) R211B Route 211
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Checkflag 198
CheckLR 1 func_1
Message 0 "I’m strong!
I’m strong!
I’m strong!
I’m strong!
I’m strong!
I’m strong!
I’m strong!
I’m strong!
...Am I really?
No, I am strong!
I’m strong!
OK! I’m all good to go!"
CloseMsgOnKeyPress
Faceplayer
Applymovement 32781 mov_1
Waitmovement
Message 1 "Wah!
You startled me good!
I think you’ll understand what I was
doing when you see this TM."
Setvar 32772 404
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Callstd 252 7
Setflag 198
Jump func_1
Script 2:
CallMsgBox 259 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 3:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 4 32780
Callstd 208 7
End
Script 4:
CallMsgBox 261 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
Faceplayer
Message 2 "Let me explain how that move works
without getting too technical.
Let’s say your opponent raises its
Defense using Harden.
Your Pokémon can use Psych Up to get
the same Defense boost as its foe.
Basically, your Pokémon gets the same
status boosts as its target."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(367) R212A Route 212
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 1
SCRIPTS:
Script 1:
CheckTime 16384
If 16384 0
CheckLR 1 func_1
If 16384 1
CheckLR 1 func_1
If 16384 2
CheckLR 1 func_1
If 16384 3
CheckLR 1 func_2
If 16384 4
CheckLR 1 func_2
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The owner of Amity Square also
owns the Pokémon Mansion!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
CallMsgBox 262 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 4:
CallMsgBox 519 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 5:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 8 32780
Callstd 208 7
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 1 "There are good trees that you can
smear with Honey, and some you can’t.
If you want to lure rare Pokémon,
you have to find an attractive tree."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Why, hello there!
It’s nice to have an average citizen
say hi to us Policemen!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Patrols day and night...
I’m feeling drowsy... Yawn..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 4 "Yo!
Working hard at it, Trainer?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
Message 5 "Just between you and me...
I think we’re on patrol too much."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Clearflag 638
Clearflag 640
Clearflag 642
Clearflag 644
Setflag 639
Setflag 641
Setflag 643
Setflag 645
End
Func 2:
Clearflag 639
Clearflag 641
Clearflag 643
Clearflag 645
Setflag 638
Setflag 640
Setflag 642
Setflag 644
End
(368) R212AR0101 Route 212 A R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
Setflag 2539
End
Script 2:
End
Script 3:
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Mr. Backlot is the master of this
house. This is his office."
Waitbutton
CloseMsgOnKeyPress
Applymovement 0 mov_1
Waitmovement
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 1 "This is the way out to the trophy
garden.
The garden is open for all visitors
to enjoy.
However, please beware--wild Pokémon
may appear in the garden."
Waitbutton
CloseMsgOnKeyPress
Applymovement 1 mov_2
Waitmovement
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 2 "I’m so sorry... Everything beyond
this point is secret and off-limits."
Waitbutton
CloseMsgOnKeyPress
Applymovement 2 mov_3
Waitmovement
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 3 "I’m so sorry. Everything beyond this
point is strictly off-limits."
Waitbutton
CloseMsgOnKeyPress
Applymovement 3 mov_4
Waitmovement
Releaseall
End
FUNCTIONS:
None
(369) R212AR0102 Route 212 A R1-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 313
CheckLR 1 func_1
Message 0 "You know how you can catch Pokémon
in the trophy garden?
If you put this on a caught Pokémon,
it warms up to you faster.
I’ll share one with you, so give it
a try."
Setvar 32772 218
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 313
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 2 "I’m not loafing off.
I’m just taking a personal break."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "I hope you become a Trainer that
Pokémon can love and trust."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(370) R212AR0103 Route 212 A R1-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
CheckTime2 16384
If 16384 0
CheckLR 1 func_1
If 16384 1
CheckLR 1 func_1
If 16384 5
CheckLR 3 func_2
Jump func_1
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2722
CheckLR 1 func_3
If 16395 1
CheckLR 1 func_3
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR 1 func_4
Jump func_5
Script 3:
Fanfare 1500
Lockall
Faceplayer
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR 1 func_6
Jump func_7
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 16 "You may look, but please refrain from
touching this Pokémon statue."
Waitbutton
CloseMsgOnKeyPress
Applymovement 3 mov_1
Waitmovement
Releaseall
End
Script 5:
Lockall
Applymovement 3 mov_2
Waitmovement
Message 17 "I’m very sorry. But please refrain
from touching this statue."
CloseMsgOnKeyPress
Applymovement 255 mov_3
Applymovement 3 mov_1
Waitmovement
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Message 18 "It’s a very expensive-looking Pokémon
statue...
...!
You got fingerprints on it..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Message 19 "It’s a very expensive-looking book
on Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Clearflag 681
Setvar 16662 0
End
Func 2:
Setflag 681
Setvar 16662 1
End
Func 3:
StoreTrophyPokemon 32768
Setvarpokestored 0 32768 0 0
Message 10 "Backlot: ...It’s true, I tell you!
No lies ever leave these lips!
There really are cute \v0100\z0000
in my trophy garden! Honest truth!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 3 "Backlot: Er-hem!
There’s a lot for me to be proud of
inside, and outside, of this home...
But what makes me the most proud is
my trophy garden in the back!
Why bother traveling afar when
Pokémon are attracted by my garden?
They come to me in hopes of seeing
the garden!
Well, doesn’t that make you envious?
You are envious, yes?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_8
If 32780 1
CheckLR 1 func_9
End
Func 5:
Message 0 "Backlot: Hello, hello!
Welcome to my opulent mansion!
There’s a lot for me to be proud of
inside, and outside, of this home...
But what makes me the most proud is
my trophy garden in the back!
Why bother traveling afar when
Pokémon are attracted by my garden?
They come to me in hopes of seeing
the garden!
You’re welcome to join them and
marvel at my garden!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Checkflag 356
CheckLR 1 func_7
Jump func_10
Func 7:
Checkflag 2722
CheckLR 1 func_11
0166 32780
If 32780 1
CheckLR 1 func_12
CheckIdPlayer 32780 2
If 32780 0
CheckLR1 1 func_13
If 32780 1
CheckLR1 1 func_14
Waitbutton
CloseMsgOnKeyPress
Applymovement 2 mov_4
Waitmovement
Releaseall
End
Func 8:
Message 5 "Backlot: Muhohoho... I bet you are!
I knew you would be!
But I don’t mind! I enjoy sharing
my stories with you!
So! When I go out into my prized
garden, Pokémon come running to me.
They sidle up, as happy as they can
be to see me!
Well? Doesn’t that make you envious?
You are envious, yes?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_15
If 32780 1
CheckLR 1 func_9
End
Func 9:
Message 4 "I know you’re really envious...
You’re not fooling anyone..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Message 15 "Butler: How do you find it? Master’s
upgraded trophy garden, I mean.
You did notice the influx of quite
rare Pokémon, yes?
But that’s only to be expected.
It’s Master’s trophy garden."
Setflag 356
Waitbutton
CloseMsgOnKeyPress
Applymovement 2 mov_4
Waitmovement
Releaseall
End
Func 11:
StoreTrophyPokemon 32768
Setvarpokestored 0 32768 0 0
Message 14 "Butler: Did you see them? There were
some \v0100\z0000, weren’t there?
But that’s only to be expected.
It’s Master’s trophy garden."
Waitbutton
CloseMsgOnKeyPress
Applymovement 2 mov_4
Waitmovement
Releaseall
End
Func 12:
CheckIdPlayer 32780 2
If 32780 0
CheckLR1 1 func_16
If 32780 1
CheckLR1 1 func_17
Waitbutton
CloseMsgOnKeyPress
Applymovement 2 mov_4
Waitmovement
Releaseall
End
Func 13:
Message 11 "Butler: Master is a truly wonderful
and generous person!
It’s on his orders that the garden,
his pride and joy, is open to all,\feven Trainers."
Killscript
Func 14:
Message 12 "Butler: Master actually quite enjoys
showing his prized garden to strong\fTrainers."
Killscript
Func 15:
01EC
StoreTrophyPokemon 32768
Setvarpokestored 0 32768 0 0
Message 6 "Backlot: Muhohoho... I bet you are!
I knew you would be!
But I don’t mind! I enjoy sharing
my stories with you!
So! This is what happened this morning
when I went into my trophy garden.
I noticed a cute-eyed \v0100\z0000,
which joyously ran over to me.
The \v0100\z0000 ran up and gave me
a smooch on my cheek..."
CheckHiroPosition 32769 32770
Applymovement 2 mov_5
Waitmovement
Message 7 "Butler: M-Master!
Th-that Pokémon you mentioned...\fIt doesn’t exist in the garden..."
Applymovement 1 mov_6
Waitmovement
Message 8 "Backlot: Wha...
Erm...
Wh-what are you saying?
I’m no blowhard!
Listen... Mutter, mutter...
Whisper, whisper..."
Message 9 "Butler: Yes, Master!
Right away, sir!"
CloseMsgOnKeyPress
Applymovement 2 mov_7
Waitmovement
Removepeople 2
Setvar 16395 1
Goto func_18
Setflag 2722
Jump func_3
Func 16:
Message 11 "Butler: Master is a truly wonderful
and generous person!
It’s on his orders that the garden,
his pride and joy, is open to all,\feven Trainers."
Killscript
Func 17:
Message 13 "Butler: Master took a stroll in his
trophy garden today, like usual."
Killscript
Func 18:
If 32769 4
CheckLR 1 func_19
If 32769 6
CheckLR 1 func_20
If 32770 6
CheckLR 1 func_21
Jump func_22
Func 19:
Applymovement 1 mov_8
Waitmovement
Killscript
Func 20:
Applymovement 1 mov_9
Waitmovement
Killscript
Func 21:
Applymovement 1 mov_10
Waitmovement
Killscript
Func 22:
Applymovement 1 mov_11
Waitmovement
Killscript
(371) R212B Route 212
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 6
Script 8
Script 1
Script 7
SCRIPTS:
Script 1:
CheckTime 16384
If 16384 0
CheckLR 1 func_1
If 16384 1
CheckLR 1 func_1
If 16384 2
CheckLR 1 func_1
If 16384 3
CheckLR 1 func_2
If 16384 4
CheckLR 1 func_2
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I saw people riding their Bikes
and using a log just like a bridge."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "...Am I stuck in the bog?
Of course not. How silly!
This is a full-body mud pack.
If it weren’t, I would be squirming
and struggling to get out!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 2 "I caught a rare Pokémon in Pastoria’s
Great Marsh.
You definitely have to go.
I recommend it without hesitation."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
CallMsgBox 260 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 6:
CallMsgBox 517 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 7:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 6 32780
Callstd 208 7
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 3 "We’re on constant patrol.
It’s safe here, even at night."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Clearflag 646
Setflag 647
End
Func 2:
Clearflag 647
Setflag 646
End
(372) R212BR0101 Route 212 B R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setflag 2540
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "My big sister collects shards.
She says they remind her of the place
she worked at long ago."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Goto func_1
If 32768 0
CheckLR 1 func_2
Message 2 "You’ve got ten shards in the same
color, haven’t you?
Would you like to trade them for
a Technical Machine?"
Copyvar 32776 32768
If 32776 1
CheckLR 1 func_3
If 32776 2
CheckLR 1 func_4
If 32776 4
CheckLR 1 func_5
If 32776 8
CheckLR 1 func_6
If 32776 3
CheckLR 1 func_7
If 32776 5
CheckLR 1 func_8
If 32776 9
CheckLR 1 func_9
If 32776 6
CheckLR 1 func_10
If 32776 10
CheckLR 1 func_11
If 32776 12
CheckLR 1 func_12
If 32776 7
CheckLR 1 func_13
If 32776 11
CheckLR 1 func_14
If 32776 14
CheckLR 1 func_15
Jump func_16
Script 4:
Fanfare 1500
Lockall
Message 9 "Red Shards: Sunny Day
Blue Shards: Rain Dance
Yellow Shards: Sandstorm
Green Shards: Hail
...The Weather Institute"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvar 32768 0
CheckItem 72 10 32780
If 32780 1
CheckLR1 1 func_17
CheckItem 73 10 32780
If 32780 1
CheckLR1 1 func_18
CheckItem 74 10 32780
If 32780 1
CheckLR1 1 func_19
CheckItem 75 10 32780
If 32780 1
CheckLR1 1 func_20
Killscript
Func 2:
Message 1 "If you find ten shards of the same
color, please let me know.
I would gladly trade you a Technical
Machine for them."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Multi 1 1 0 1 32780
Txtscrpmulti 209 0
Txtscrpmulti 44 1
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_21
Jump func_22
Func 4:
Multi 1 1 0 1 32780
Txtscrpmulti 210 0
Txtscrpmulti 44 1
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_23
Jump func_22
Func 5:
Multi 1 1 0 1 32780
Txtscrpmulti 211 0
Txtscrpmulti 44 1
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_24
Jump func_22
Func 6:
Multi 1 1 0 1 32780
Txtscrpmulti 212 0
Txtscrpmulti 44 1
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_25
Jump func_22
Func 7:
Multi 1 1 0 1 32780
Txtscrpmulti 209 0
Txtscrpmulti 210 1
Txtscrpmulti 44 2
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_21
If 32776 1
CheckLR 1 func_23
Jump func_22
Func 8:
Multi 1 1 0 1 32780
Txtscrpmulti 209 0
Txtscrpmulti 211 1
Txtscrpmulti 44 2
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_21
If 32776 1
CheckLR 1 func_24
Jump func_22
Func 9:
Multi 1 1 0 1 32780
Txtscrpmulti 209 0
Txtscrpmulti 212 1
Txtscrpmulti 44 2
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_21
If 32776 1
CheckLR 1 func_25
Jump func_22
Func 10:
Multi 1 1 0 1 32780
Txtscrpmulti 210 0
Txtscrpmulti 211 1
Txtscrpmulti 44 2
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_23
If 32776 1
CheckLR 1 func_24
Jump func_22
Func 11:
Multi 1 1 0 1 32780
Txtscrpmulti 210 0
Txtscrpmulti 212 1
Txtscrpmulti 44 2
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_23
If 32776 1
CheckLR 1 func_25
Jump func_22
Func 12:
Multi 1 1 0 1 32780
Txtscrpmulti 211 0
Txtscrpmulti 212 1
Txtscrpmulti 44 2
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_24
If 32776 1
CheckLR 1 func_25
Jump func_22
Func 13:
Multi 1 1 0 1 32780
Txtscrpmulti 209 0
Txtscrpmulti 210 1
Txtscrpmulti 211 2
Txtscrpmulti 44 3
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_21
If 32776 1
CheckLR 1 func_23
If 32776 2
CheckLR 1 func_24
Jump func_22
Func 14:
Multi 1 1 0 1 32780
Txtscrpmulti 209 0
Txtscrpmulti 210 1
Txtscrpmulti 212 2
Txtscrpmulti 44 3
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_21
If 32776 1
CheckLR 1 func_23
If 32776 2
CheckLR 1 func_25
Jump func_22
Func 15:
Multi 1 1 0 1 32780
Txtscrpmulti 210 0
Txtscrpmulti 211 1
Txtscrpmulti 212 2
Txtscrpmulti 44 3
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_23
If 32776 1
CheckLR 1 func_24
If 32776 2
CheckLR 1 func_25
Jump func_22
Func 16:
Multi 1 1 0 1 32780
Txtscrpmulti 209 0
Txtscrpmulti 210 1
Txtscrpmulti 211 2
Txtscrpmulti 212 3
Txtscrpmulti 44 4
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_21
If 32776 1
CheckLR 1 func_23
If 32776 2
CheckLR 1 func_24
If 32776 3
CheckLR 1 func_25
Jump func_22
Func 17:
Setvalue 32768 1
Killscript
Func 18:
Setvalue 32768 2
Killscript
Func 19:
Setvalue 32768 4
Killscript
Func 20:
Setvalue 32768 8
Killscript
Func 21:
Setvaritem 0 338
Setvaratkitem 1 338
Setvar 32772 338
Setvar 32774 72
Message 3 "For your ten Red Shards, you get
this \v0108\z0000 \v0106\z0001."
Jump func_26
Func 22:
Message 7 "You don’t want anything?
I feel unwanted..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 23:
Setvaritem 0 345
Setvaratkitem 1 345
Setvar 32772 345
Setvar 32774 73
Message 4 "For your ten Blue Shards, you get
this \v0108\z0000 \v0106\z0001."
Jump func_26
Func 24:
Setvaritem 0 364
Setvaratkitem 1 364
Setvar 32772 364
Setvar 32774 74
Message 5 "For your ten Yellow Shards, you get
this \v0108\z0000 \v0106\z0001."
Jump func_26
Func 25:
Setvaritem 0 334
Setvaratkitem 1 334
Setvar 32772 334
Setvar 32774 75
Message 6 "For your ten Green Shards, you get
this \v0108\z0000 \v0106\z0001."
Jump func_26
Func 26:
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_27
GiveItem 32774 10 32780
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Func 27:
Message 8 "Oh, your Bag is full.
Giggle... It’s OK, I can trade
anytime. Next time will be fine."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(373) R213 Route 213
SCRIPT ORDER:
Script 1
Script 2
Script 5
Script 3
Script 4
Script 6
Script 7
Script 8
SCRIPTS:
Script 1:
Checkflag 260
CheckLR 0 func_1
End
Script 2:
Fanfare 1500
Lockall
Message 0 "We needed the energy from the
Valley Windworks to make this...
It would take a scientific genius to
make something like this...
Therefore, our boss, who made this,
is a scientific genius!"
CloseMsgOnKeyPress
Faceplayer
Applymovement 30 mov_1
Waitmovement
Message 1 "Graw! You were eavesdropping!
I was just thinking out loud!
You’re a persistent pest...
I’m getting tired of running away...
But I’m not going to waste my energy
knocking you around..."
CloseMsgOnKeyPress
CheckFacePosition 32772
If 32772 1
CheckLR 1 func_2
If 32772 3
CheckLR 1 func_3
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 3 "I’d rather be in a pool than the sea.
The salty tang of the sea tastes like
my tears after a hard day at work..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 4 "There’s something on top of this
big cliff here!
My instincts tell me that, but how
am I supposed to climb up?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 2 "There’s a fancy hotel in a fancy
place with a fancy restaurant.
The fancy restaurant’s filled with
fancy people who think of themselves
as being too fancy to battle alone."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
CallMsgBox 261 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 7:
CallMsgBox 518 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 8:
CallMsgBox 519 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
Checkbadge 3 16384
If 16384 1
CheckLR 1 func_4
End
Func 2:
Applymovement 30 mov_2
Waitmovement
Jump func_5
Func 3:
Applymovement 30 mov_3
Waitmovement
Jump func_5
Func 4:
Checkflag 259
CheckLR 1 func_6
End
Func 5:
Removepeople 30
Setflag 260
Clearflag 569
Releaseall
End
Func 6:
Clearflag 568
End
(374) R213R0101 Route 213 R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Footprints are left in the sand
when you walk on a beach.
Pokémon seem to enjoy leaving
footprints as much as people."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "It’s a long way from Veilstone.
I’m exhausted..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(375) R213R0201 Route 213 R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2541
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckFirstPokeParty 32770
Setvarpoke 0 32770
Setvarhero 1
Setvarpokenick 2 32770
CheckFootStep 32768 32769 32770
Checkflag 249
CheckLR 1 func_1
Setflag 249
Message 0 "Dr. Footstep: Pokémon are quite easy
for me to read.
I need only to see their footprints,
and their innermost thoughts are
revealed to me!
Oh?
You are skeptical of my claim?
Then, let your \v0100\z0000 walk
in front of me, right here.
From its footprints, I will determine
how it feels about you."
CloseMsgOnKeyPress
Jump func_2
FUNCTIONS:
Func 1:
Message 1 "Dr. Footstep: Do you want to check
the feelings of your Pokémon again?
Then, let your \v0100\z0000 walk
in front of me, right here.
From its footprints, I will determine
how it feels about you."
CloseMsgOnKeyPress
Jump func_2
Func 2:
Fadescreen 6 1 0 0
Resetscreen
Return 40 32780
Fadescreen 6 1 1 0
Resetscreen
Goto func_3
Return 20 32780
Jump func_4
Func 3:
CheckHiroPosition 32773 32774
If 32773 4
CheckLR 1 func_5
If 32773 6
CheckLR 1 func_6
If 32774 5
CheckLR 1 func_7
Jump func_8
Func 4:
If 32769 1
CheckLR 1 func_9
If 32769 2
CheckLR 1 func_10
If 32769 3
CheckLR 1 func_11
If 32769 4
CheckLR 1 func_12
Jump func_13
Func 5:
Applymovement 0 mov_1
Waitmovement
Killscript
Func 6:
Applymovement 0 mov_2
Waitmovement
Killscript
Func 7:
Applymovement 0 mov_3
Waitmovement
Killscript
Func 8:
Applymovement 0 mov_4
Waitmovement
Killscript
Func 9:
If 32768 1
CheckLR 1 func_14
Jump func_15
Func 10:
If 32768 1
CheckLR 1 func_16
Jump func_17
Func 11:
If 32768 1
CheckLR 1 func_18
Jump func_19
Func 12:
If 32768 1
CheckLR 1 func_20
Jump func_21
Func 13:
Message 50 "Sssshhnnn...
...\f...Ssshhhnnn...\f...\fSsshhhnnn...\f..."
StoreHappyPoke 32780 32770
If 32780 255
CheckLR 0 func_22
CheckRibbon 32780 32770 69
If 32780 0
CheckLR 1 func_23
Jump func_22
Func 14:
StoreHappyPoke 32780 32770
If 32780 255
CheckLR 4 func_24
If 32780 200
CheckLR 4 func_25
If 32780 150
CheckLR 4 func_26
If 32780 70
CheckLR 4 func_27
Jump func_28
Func 15:
StoreHappyPoke 32780 32770
If 32780 255
CheckLR 4 func_29
If 32780 200
CheckLR 4 func_30
If 32780 150
CheckLR 4 func_31
If 32780 70
CheckLR 4 func_32
Jump func_33
Func 16:
StoreHappyPoke 32780 32770
If 32780 255
CheckLR 4 func_34
If 32780 200
CheckLR 4 func_35
If 32780 150
CheckLR 4 func_36
If 32780 70
CheckLR 4 func_37
Jump func_38
Func 17:
StoreHappyPoke 32780 32770
If 32780 255
CheckLR 4 func_39
If 32780 200
CheckLR 4 func_40
If 32780 150
CheckLR 4 func_41
If 32780 70
CheckLR 4 func_42
Jump func_43
Func 18:
StoreHappyPoke 32780 32770
If 32780 255
CheckLR 4 func_44
If 32780 200
CheckLR 4 func_45
If 32780 150
CheckLR 4 func_46
If 32780 70
CheckLR 4 func_47
Jump func_48
Func 19:
StoreHappyPoke 32780 32770
If 32780 255
CheckLR 4 func_49
If 32780 200
CheckLR 4 func_50
If 32780 150
CheckLR 4 func_51
If 32780 70
CheckLR 4 func_52
Jump func_53
Func 20:
StoreHappyPoke 32780 32770
If 32780 255
CheckLR 4 func_54
If 32780 200
CheckLR 4 func_55
If 32780 150
CheckLR 4 func_56
If 32780 70
CheckLR 4 func_57
Jump func_58
Func 21:
StoreHappyPoke 32780 32770
If 32780 255
CheckLR 4 func_59
If 32780 200
CheckLR 4 func_60
If 32780 150
CheckLR 4 func_61
If 32780 70
CheckLR 4 func_62
Jump func_63
Func 22:
CloseMsgOnKeyPress
Return 20 32780
Goto func_64
Return 10 32780
Message 4 "Dr. Footstep: ...Hmm... \v0100\z0000
happens to be quite the silent type!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 23:
CloseMsgOnKeyPress
Return 20 32780
Goto func_64
Return 10 32780
Message 7 "Dr. Footstep: ...Hmm... \v0100\z0000
happens to be quite the silent type!
However, your \v0100\z0000 and
you obviously share a close bond.\fThis is for you."
Soundfr 1155
Message 8 "\v0103\z0001 received
the Footprint Ribbon."
Fadedef
GiveRibbon 32770 69
Message 9 "\v0103\z0001 put the Footprint Ribbon
on \v0100\z0000."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 24:
Message 14 "If I said there can be friendship
between Pokémon and people, will\f\v0100\z0000’s friends understand?
But if you see \v0103\z0001 and
\v0101\z0002, you will understand.
Because \v0103\z0001 and
\v0101\z0002 are friends!"
Jump func_65
Func 25:
Message 13 "\v0101\z0002 and \v0103\z0001 make
a perfectly matched combo!
I’ve seen all sorts of people
so far...
But \v0103\z0001 understands
\v0101\z0002’s feelings most!
I’m a little hungry...
You can tell, right?"
Jump func_66
Func 26:
Message 12 "This adventure with \v0103\z0001
is lots of fun.
\v0101\z0002 gets to go places where
I can’t go by myself.
I get to battle Pokémon I’ve never
ever seen before.
I’m gonna get stronger and stronger
for \v0103\z0001!"
Jump func_66
Func 27:
Message 11 "Others say there are people who
aren’t very nice to Pokémon.
I wonder about \v0103\z0001...
Will \v0103\z0001 look after
\v0101\z0002 nicely?
Will I get to go all over with this
Trainer?
Can we be... Friends?"
Jump func_66
Func 28:
Message 10 "Aww... \v0103\z0001 only plays with
other Pokémon...
\v0101\z0002 feels neglected...
Maybe \v0103\z0001 doesn’t like
\v0101\z0002 very much?
\v0101\z0002 will try harder for
\v0103\z0001.
Please be nicer to me!"
Jump func_66
Func 29:
Message 19 "\v0103\z0001 makes \v0101\z0002
very proud!
\v0100\z0000 boasts to friends
about \v0103\z0001!
\v0103\z0001 and \v0101\z0002 are
best of friends!"
Jump func_67
Func 30:
Message 18 "\v0101\z0002 and \v0103\z0001
make a friendly combo.
\v0103\z0001’s feelings, \v0101\z0002
can understand.
\v0101\z0002’s feelings, \v0103\z0001
understands!"
Jump func_68
Func 31:
Message 17 "\v0101\z0002 get strong, make
\v0103\z0001 happy.
Round ones, square ones,
triangle ones, wobbly ones...
\v0101\z0002 wants to see different
kinds of Pokémon..."
Jump func_68
Func 32:
Message 16 "Gonna go with \v0103\z0001 all over
the place...
Be nice to \v0101\z0002...
Warm and cuddly..."
Jump func_68
Func 33:
Message 15 "\v0101\z0002 is bored...
Play with me more, more...
\v0101\z0002 and \v0103\z0001,
let’s play nicer..."
Jump func_68
Func 34:
Message 24 "\v0103\z0001 is...
A remarkable human and Trainer.
That I can always perform the best
any \v0100\z0000 possibly can...
I attribute that entirely to my
partner \v0103\z0001.
When we travel, I can see wild
Pokémon eyeing us enviously..."
Jump func_65
Func 35:
Message 23 "Some wild Pokémon frown upon others
for traveling with humans.
They jeer that the caught Pokémon
have “forgotten the wild.”
But that view is mistaken.
They have just never met a Trainer
who could be a great partner.
A great partner like \v0103\z0001,
in other words..."
Jump func_66
Func 36:
Message 22 "If a Pokémon were to travel along,
it would be limited as to where\fit could go.
But traveling with a human, a Pokémon
would be able to travel farther afield\fto more distant cities and lands.
Traveling with \v0103\z0001 has been
rewarding and reassuring.
And very entertaining..."
Jump func_66
Func 37:
Message 21 "Humans can’t understand the cries
of Pokémon, nor our feelings.
However, there are some among us
that understand human speech...
Hehehe, \v0103\z0001, you’re not bad
for a human."
Jump func_66
Func 38:
Message 20 "Why does \v0103\z0001 use only
other Pokémon?
Am I not needed much?
Would I have been better off if
I remained in the wild?
No, I should give this Trainer
a little more of a chance..."
Jump func_66
Func 39:
Message 29 "\v0103\z0001 is very impressive,
especially for a human.
The Trainer lets \v0101\z0002 use
every bit of power properly.
It is a shame that \v0103\z0001 is
only a human..."
Jump func_67
Func 40:
Message 28 "\v0103\z0001 and \v0101\z0002 are
alike in some ways.
In humanspeak, we match up well.
Does \v0103\z0001 think so, too?"
Jump func_68
Func 41:
Message 27 "Did \v0101\z0002 get stronger?
Who is responsible for making me so?
Is it \v0103\z0001’s doing?
Is the Trainer owed my thanks?"
Jump func_68
Func 42:
Message 26 "If a Pokémon is treated as a friend,
it will return the sentiments.
We grow fonder of humans that treat
us with kindness...
Does \v0103\z0001 even like
\v0101\z0002?"
Jump func_68
Func 43:
Message 25 "Does \v0103\z0001 intend to ignore
me forever?
Give me more opportunities for me
to shine..."
Jump func_68
Func 44:
Message 34 "That \v0103\z0001 is the most
impressive of humans.
It takes a lot to make me,
\v0101\z0002, sunny and cheerful!
As a show of affection, I should
chomp down on the Trainer’s neck...
Hahaha... Have no fear...
I was merely joking..."
Jump func_65
Func 45:
Message 33 "Not for a moment did I think I would
be traveling with a human...
If my \v0100\z0000 friends were to
see me now, they would be shocked.
Or would they be envious of me...?"
Jump func_66
Func 46:
Message 32 "Our kind prefers to lurk in dark
and dank places...
But being with \v0103\z0001, even
bright and festive places seem less\fthreatening...
\v0103\z0001 has a strange
charisma..."
Jump func_66
Func 47:
Message 31 "I have little understanding of
\v0103\z0001 as a human...
\v0103\z0001 may not be too bad,
considering that I, an oft-shunned\f\v0100\z0000, am one of the team...
That said, I don’t intend to be all
cheerful around \v0103\z0001..."
Jump func_66
Func 48:
Message 30 "That \v0103\z0001...
What is that Trainer thinking?
Why make me join the team, then call
upon me for nothing?
Am I considered useless?
Is the Trainer regretting having me?
Does the Trainer dare disrespect
this \v0100\z0000 so easily?"
Jump func_66
Func 49:
Message 39 "There are no Pokémon that dislike
humans...
Only humans that dislike Pokémon...
We \v0100\z0000 are especially
shunned...
But \v0103\z0001 always treats me
as a friend and partner..."
Jump func_67
Func 50:
Message 38 "\v0101\z0002 is starting to forget
a little about being in the wild...
But \v0101\z0002 isn’t feeling sad.
It’s never boring with \v0103\z0001..."
Jump func_68
Func 51:
Message 37 "\v0103\z0001 treats me, \v0101\z0002,
nicely without being scared.
But \v0101\z0002 will be even scarier
from now on.
That’s what we \v0100\z0000 do..."
Jump func_68
Func 52:
Message 36 "Is there any human that would grow
to like us \v0100\z0000?
Well? Does \v0103\z0001 like
\v0101\z0002?
\v0101\z0002 doesn’t like...
Well, no, maybe not..."
Jump func_68
Func 53:
Message 35 "Wooooooh...
\v0101\z0002 has nothing to do...
Keep me too bored, and I’m liable
to sneak up and bite..."
Jump func_68
Func 54:
Message 44 "Hnurrr... Me? Uhm...
Other Pokémon, they say to me...
“You’re not thinking, are you?”
How insulting they should say so.
It isn’t true what they say.
Think, think, think, I do that.
All the time, I think hard how to help
\v0103\z0001. I concentrate!
Hnurrr..."
Jump func_65
Func 55:
Message 43 "Hnurrr... I don’t know how to begin
saying this...
I liked living quietly before I met
\v0103\z0001. Sssh.
But I’m getting to like traveling
with \v0103\z0001.
I think I’m getting sort of funky.
Do you think I’m sort of funky?
No? No funk for me?
Hnurrr..."
Jump func_66
Func 56:
Message 42 "Hnurrr... Me? Uhm...
There are lots of kinds of moves.
I like those Dark-type moves,
oh, and Dragon-type moves, too...
How would they be for this
\v0100\z0000?
Will they be for me?
Or a no, no, no sort of thing?
Hnurrr..."
Jump func_66
Func 57:
Message 41 "Hnurrr... Me? Uhm...
I like to sleep most the time.\fOh, I like to eat, too. That’s next.
But what I really like is to think.
I’m a very deep thinker.
When I think about the future of the
\v0100\z0000 species...
...Hnurrr...hunh?
Oh, I forget where the time goes.
Hnurrrr..."
Jump func_66
Func 58:
Message 40 "Hnurrrr... Hunh?
This is... Where?
\v0103\z0001’s house, is this?
It’s not? Hnurrr...
If you don’t need me for anything,
can I go back to my Ball?
Hnurrr..."
Jump func_66
Func 59:
Message 49 "Hnurrr...
What is left to say, I say?
We have come so far now, where can
we go but to see this through?
Hall of Fame...
Words so sweet fall from my mouth.
Hnurrr..."
Jump func_67
Func 60:
Message 48 "Hnurrr... How do I say?
How should I describe us?
We are the sound of both hands
clapping.
\v0103\z0001 and I are together
in synchronicity like twins.
Hnurrr..."
Jump func_68
Func 61:
Message 47 "Hnurrr... How should I say this?
We both look out for each other.\fThat’s what we try to do, I think.\fThat is for the best.\fHnurrrr..."
Jump func_68
Func 62:
Message 46 "Hnurrr... Well, I...
I think I’m motivated.\fAs motivated as the average.\fBut it’s not so simple as that.\fHnurrr..."
Jump func_68
Func 63:
Message 45 "Hnurrr... I did not know that?
I really don’t? What is this?\fI don’t know what to say?\fHnurrr..."
Jump func_68
Func 64:
CheckHiroPosition 32773 32774
If 32773 4
CheckLR 1 func_69
If 32773 6
CheckLR 1 func_70
If 32774 5
CheckLR 1 func_71
Jump func_72
Func 65:
CheckRibbon 32780 32770 69
If 32780 0
CheckLR 1 func_73
Jump func_66
Func 66:
CloseMsgOnKeyPress
Return 20 32780
Goto func_64
Return 10 32780
Message 2 "Dr. Footstep: ...And that is what
your \v0100\z0000 thinks of you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 67:
CheckRibbon 32780 32770 69
If 32780 0
CheckLR 1 func_74
Jump func_68
Func 68:
CloseMsgOnKeyPress
Return 20 32780
Goto func_64
Return 10 32780
Message 3 "Dr. Footstep: ...Hmmm... \v0100\z0000
doesn’t leave any footprints.
It’s somewhat difficult for me to
determine what its thoughts are."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 69:
Applymovement 0 mov_5
Waitmovement
Killscript
Func 70:
Applymovement 0 mov_6
Waitmovement
Killscript
Func 71:
Applymovement 0 mov_7
Waitmovement
Killscript
Func 72:
Applymovement 0 mov_8
Waitmovement
Killscript
Func 73:
CloseMsgOnKeyPress
Return 20 32780
Goto func_64
Return 10 32780
Message 5 "Dr. Footstep: ...And that is what
your \v0100\z0000 thinks of you.
I must say, your \v0100\z0000 and
you share a very close bond.\fThis is for you."
Soundfr 1155
Message 8 "\v0103\z0001 received
the Footprint Ribbon."
Fadedef
GiveRibbon 32770 69
Message 9 "\v0103\z0001 put the Footprint Ribbon
on \v0100\z0000."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 74:
CloseMsgOnKeyPress
Return 20 32780
Goto func_64
Return 10 32780
Message 6 "Dr. Footstep: ...Hmmm... \v0100\z0000
doesn’t leave any footprints.
It’s somewhat difficult for me to
determine what its thoughts are.
However, your \v0100\z0000 and
you obviously share a close bond.\fThis is for you."
Soundfr 1155
Message 8 "\v0103\z0001 received
the Footprint Ribbon."
Fadedef
GiveRibbon 32770 69
Message 9 "\v0103\z0001 put the Footprint Ribbon
on \v0100\z0000."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(376) R213R0301 Route 213 R3-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Ah, hello. You wish to stay a night?
Ah, but you’ve no reservations.
I’m afraid we are totally booked.
You may rest a while, if you wish."
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Soundfr 1166
Fadedef
HealPkmn
Fadescreen 6 1 1 0
Resetscreen
Message 1 "We’ve restored your Pokémon
to full health.
We hope to see you again!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "This hotel is so romantic...
I hope a knight on a Pokémon will
sweep me away for a honeymoon here!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(377) R213R0401 Route 213 R4-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Is that right? You’re a traveler?
Yes, it’s good to see other places!"
CheckIdPlayer 32780 4
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
If 32780 2
CheckLR 1 func_3
Jump func_4
FUNCTIONS:
Func 1:
Message 1 "Do you know about Mt. Moon in
the Kanto region?
CLEFAIRY dancing under the moon...
It’s something I must see in my life."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 2 "Have you heard of the Tin Tower
in the Johto region?
The rainbow-colored Pokémon...
I must see that during my lifetime."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 3 "Do you know about the Space Center
in the Hoenn region?
A rocket launching into space...
I must see that during my lifetime."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 4 "Have you heard of the Whirl Islands
in the Johto region?
The silver-colored Pokémon...
I must see that during my lifetime."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(378) R213R0501 Route 213 R5-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 202
CheckLR 1 func_1
Message 0 "We’re a traveling troupe of street
performers.
In place of a formal introduction,
please take this!"
Setvar 32772 419
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Callstd 252 7
Setflag 202
Jump func_1
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 353
CheckLR 1 func_3
Setflag 353
Message 2 "Let me gaze into your eyes...
I will read your fortune...
..."
CheckIdPlayer 32780 10
If 32780 0
CheckLR 1 func_4
If 32780 1
CheckLR 1 func_4
If 32780 2
CheckLR 1 func_4
If 32780 3
CheckLR 1 func_4
If 32780 4
CheckLR 1 func_5
If 32780 5
CheckLR 1 func_5
If 32780 6
CheckLR 1 func_5
If 32780 7
CheckLR 1 func_6
If 32780 8
CheckLR 1 func_6
Jump func_7
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 8 "Me, I’m just a simple soul.
I let my guitar do all my talking.
All I need is music and Pokémon.
I can shine wherever I go if I have
those things in my life."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Trick Room is a doozy of a weird
time-twister move.
Use it, and for a while afterward,
the slowest Pokémon move first!
Before the faster can move, the
slowest gets to attack!
How you use the move is up to
you, Trainer..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 7 "Many are the eyes that I have gazed
into over the years, be they human\for Pokémon...
But your eyes swirl with compassion,
strength, joy, sorrow, and more...
The ever-shifting colors in your eyes
make you difficult to read..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 3 "A magical encounter is in the winds...
Though I cannot tell whether it be
a Pokémon or a Trainer..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 4 "A brief occasion of joy is imminent...
But remember this: the good and the
bad are on opposite sides of a coin..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 5 "An unseeable accident lurks...
Whether you succumb to it or rise
above, it all depends on you..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 6 "Destiny shall shift...
Whether that bodes well or ill is
beyond the spectrum of my sight..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(379) R213R0601 Route 213 R6-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
StorePktchAppl 14 32780
If 32780 0
CheckLR 5 func_1
Message 0 "The reservations were full up,
but they managed to get us in here.
We’re finally alone, the two of us,
if you’d leave, that is.
This is something we don’t need
anymore. Will you take it?"
Setvar 32772 14
Callstd 217 7
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
StorePktchAppl 14 32780
If 32780 0
CheckLR 5 func_2
Jump func_3
FUNCTIONS:
Func 1:
Message 1 "I’ve always relied on the old
Coin Toss to make any decision."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 3 "We wanted to be together alone so
we could talk without being disturbed.
We really need this time together,
just the two of us."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 2 "That Coin Toss is why we ended up in
this musty, old, and stinky suite..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(380) R214 Route 214
SCRIPT ORDER:
Script 3
Script 4
Script 2
Script 1
SCRIPTS:
Script 1:
CheckRuinManiac 16384
If 16384 26
CheckLR 4 func_1
If 16384 10
CheckLR 4 func_2
If 16384 10
CheckLR 0 func_3
End
Script 2:
CheckRuinManiac 16384
If 16384 26
CheckLR 4 func_1
If 16384 10
CheckLR 4 func_2
If 16384 10
CheckLR 0 func_3
End
Script 3:
CallMsgBox 256 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 4:
CallMsgBox 257 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
SetTilePassable 2 710 670
SetTilePassable 3 710 670
End
Func 2:
SetTilePassable 2 710 670
SetTilePassable 4 710 670
End
Func 3:
SetTilePassable 3 710 670
SetTilePassable 4 710 670
End
(381) R214R0101 Route 214 R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckRuinManiac 16384
If 16384 26
CheckLR 4 func_1
Message 1 "Are you going to take Route 214?
You’re serious, aren’t you?
It’s too badly chewed up, and
there’s nothing to see there.
Well, I guess there is that Ruin
Maniac guy you could check out.
That guy’s been digging his way
through the bedrock all by himself."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "That Ruin Maniac! It takes effort and
dedication to do what he did!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(382) R215 Route 215
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 7
Script 8
Script 1
Script 6
SCRIPTS:
Script 1:
CheckTime 16384
If 16384 0
CheckLR 1 func_1
If 16384 1
CheckLR 1 func_2
If 16384 2
CheckLR 1 func_2
If 16384 3
CheckLR 1 func_2
If 16384 4
CheckLR 1 func_2
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 205
CheckLR 1 func_3
Message 1 "Do unto others as they do unto
you... Yup, it’s Payback!
It’s good for Pokémon battles,
but if you do that in real life...
There’ll be no end to the fighting,
that’s for sure."
Setvar 32772 393
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_4
Callstd 252 7
Setflag 205
Jump func_3
Script 4:
CallMsgBox 261 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 5:
CallMsgBox 262 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 6:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 7 32780
Callstd 208 7
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 3 "Jogging is good for you, but you have
to make sure you’re not overdoing it!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 4 "I slow down and stop at times, sure.
I’m only human, after all."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Clearflag 657
Clearflag 659
Setflag 656
Setflag 658
End
Func 2:
Clearflag 656
Clearflag 658
Setflag 657
Setflag 659
End
Func 3:
Message 2 "Use it after the foe, and its power
gets doubled!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(383) R216 Route 216
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "It should be obvious, but you can’t
ride your Bicycle in snow."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 257 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 3:
CallMsgBox 514 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(384) R216R0101 Route 216 R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Feel free to take a power nap in
that bed.
As you can see, this lodge is beat
up. Do what you like here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I don’t have Thick Fat like some
Pokémon, so I have to bundle up
in clothes to keep warm."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 2 "It’s a bed...
Want to take a rest?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
End
FUNCTIONS:
Func 1:
Setvarhero 0
Message 3 "\v0103\z0000 quickly fell asleep
in the bed..."
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Soundfr 1166
Fadedef
HealPkmn
Fadescreen 6 1 1 0
Resetscreen
Setvarhero 0
Message 4 "\v0103\z0000 and the Pokémon
became fully healed from the rest!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
CloseMsgOnKeyPress
Releaseall
End
(385) R217 Route 217
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Message 1 "The boulder is encrusted with ice.
It is bone chilling to touch."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 258 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’m using the Dowsing Machine on
my Pokétch.
I’m looking for things buried under
the snow."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(386) R217R0101 Route 217 R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 222
CheckLR 1 func_1
CheckItem 427 1 32780
If 32780 1
CheckLR 1 func_2
Message 0 "While I was fighting my way through
the blizzard, I dropped an HM.
If I still had that hidden move
Rock Climb, I’d be able to scale
sheer cliffs..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "That Icicle Plate, I found that under
the snow as well.
I’m no expert, but it looks to be
of ancient origin.
Even as old as the time when Sinnoh
came into being..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 1 "While I was fighting my way through
the blizzard, I dropped an HM.
If I still had that hidden move
Rock Climb, I’d be able to scale\fsheer cliffs...
Hey! What’s this?
You found the Hidden Machine?
But I’d already given it up for lost,
and you found it.
It’s yours to keep, my friend.
Make good use of it.
I like your honesty, though.
Let me reward you with this."
Setvar 32772 302
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_3
Callstd 252 7
Setflag 222
Jump func_1
Func 3:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(387) R217R0201 Route 217 R2-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 315
CheckLR 1 func_1
Message 0 "...A person...?
...A rare sight...
...Thank you for visiting...
...A gift..."
Setvar 32772 247
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 315
Setflag 637
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "...The Spell Tag...
It intensifies Ghost-type moves...\fMay it serve you well..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(388) R218 Route 218
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
CallMsgBox 256 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 2:
CallMsgBox 257 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(389) R218R0101 Route 218 R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Route 218 up ahead is a great fishing
hole that’s almost unknown to people."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Setvar 32772 445
Setvaritem 0 32772
Checkflag 132
CheckLR 1 func_1
Message 1 "Yes, sir!
An Old Rod is a good thing!
You think so too, am I right?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_2
If 32780 1
CheckLR 1 func_3
End
FUNCTIONS:
Func 1:
Setvaritem 0 32772
Message 3 "You should fish wherever there is
a body of water.
Oh, and by the way, did you need
any tips on using that fishing rod?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_4
If 32780 1
CheckLR 1 func_5
End
Func 2:
Setvaritem 0 32772
Message 2 "Yes! Good answer!
We can be friends!
Here you go.
That’s my \v0108\z0000!"
Setvar 32773 1
Callstd 252 7
Setflag 132
Jump func_1
Func 3:
Message 4 "Oh, really?
You don’t like to fish?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 5 "First, you face any body of water,
then you use your fishing rod.
Next, you focus!
If a Pokémon bites, “!” appears.\fThat’s your cue to reel it in!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 6 "When you’re fishing for Pokémon,
the first hurdle is getting a bite.
When you reel the Pokémon in, you’ve
got to battle it.
So, fishing gives you twice the fun!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(390) R218R0201 Route 218 R2-01
SCRIPT ORDER:
Script 2
Script 1
SCRIPTS:
Script 1:
Lockall
Goto func_1
Setvarhero 0
Setvaralter 1
Checkgender 32780
If 32780 0
CheckLR 1 func_2
Jump func_3
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Boy...
I sure am thirsty..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
CheckHiroPosition 32773 32774
If 32774 6
CheckLR 1 func_4
Jump func_5
Func 2:
Message 2 "\v0103\z0000, long time, no see!
Oh? You look puzzled.
You’re wondering who I am.
I’m Professor Rowan’s assistant
and \v0103\z0001’s father.
The professor asked that I upgrade
your Pokédex, you see.
So I’d chosen this spot on a hunch
that you’d pass through.
\v0103\z0000, may I have your
Pokédex for a moment?"
Jump func_6
Func 3:
Message 3 "\v0103\z0000, long time, no see!
Oh? You look puzzled.
You’re wondering who I am.
I’m Professor Rowan’s assistant
and \v0103\z0001’s father.
The professor asked that I upgrade
your Pokédex, you see.
So I’d chosen this spot on a hunch
that you’d pass through.
\v0103\z0000, may I have your
Pokédex for a moment?"
Jump func_6
Func 4:
Applymovement 1 mov_1
Waitmovement
Killscript
Func 5:
Applymovement 1 mov_2
Waitmovement
Killscript
Func 6:
Message 4 "Let’s see... Was I supposed to put
in the software here...?
Ka-chunk.
Ka-chunk!
All done!
I’ve upgraded your Pokédex!
I should explain how it’s been
upgraded, shouldn’t I?
It can now display images of male
and female Pokémon.
OK, I’ll leave you to carry on with
your project for the professor...
...May I also ask you to keep an
eye on Team Galactic?
The professor is concerned about
what happened in Jubilife City...
It’s probably nothing to worry over!
I’ll be on my way now."
CloseMsgOnKeyPress
CloseOakAssistantEvent?
Goto func_7
Setflag 570
Removepeople 1
Setvar 16645 1
Releaseall
End
Func 7:
CheckHiroPosition 32773 32774
If 32774 6
CheckLR 1 func_8
Jump func_9
Func 8:
Applymovement 1 mov_3
Waitmovement
Killscript
Func 9:
Applymovement 1 mov_4
Waitmovement
Killscript
(391) R219 Route 219
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
CallMsgBox 256 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(392) R221 Route 221
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 1
SCRIPTS:
Script 1:
CheckNatPokedexStatus 2 16384
If 16384 0
CheckLR 1 func_1
Setflag 669
Setflag 670
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Pal Park isn’t open yet.
We’re still setting up."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "We’re getting Pal Park ready.
I wonder what you can do there?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
CallMsgBox 514 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
End
(393) R221R0101 Route 221 R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 3
Script 13
SCRIPTS:
Script 1:
Clearflag 2453
Setflag 2547
If 16627 0
CheckLR 5 func_1
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkgender 32780
If 32780 0
CheckLR 1 func_2
Jump func_3
Script 3:
Lockall
Setvar 16627 0
Applymovement 255 mov_1
Waitmovement
Applymovement 7 mov_2
Waitmovement
Releaseall
End
Script 4:
Lockall
Setvar 16627 0
Applymovement 255 mov_3
Waitmovement
CheckCatchingShowRecords 0 32780
Setvarnum 0 32780
CheckCatchingShowRecords 1 32780
Setvarnum 1 32780
CheckCatchingShowRecords 2 32780
Setvarnum 2 32780
CheckCatchingShowRecords 3 32780
Setvarnum 3 32780
Message 38 "Congratulations!
That’s all six Pokémon caught!
The audience sure enjoyed watching
your Catching Show.
All right, let’s see your all-important
score from this show!
...
...
Catching Points: \v0135\z0000!
Time Points: \v0135\z0001!
Type Points: \v0135\z0002!
The total is...
...
...
\v0135\z0003 points!"
CheckCatchingShowRecords 3 32780
If2 32780 16608
CheckLR 2 func_4
Message 40 "Good! That’s a decent record.
Props to you!"
Goto func_5
Jump func_6
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 57 "The current record holder is
\v0103\z0001 with \v0135\z0002 points.
Can you top that?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Setvarhero 0
If 32780 2
CheckLR 1 func_7
If 32780 1
CheckLR 1 func_8
Jump func_9
Script 7:
Setvarhero 0
Fanfare 1500
Lockall
Faceplayer
Message 55 "\v0103\z0000, my daughter is a big
fan of yours.
A day doesn’t go by without her
demanding we come see Catching Shows."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 56 "People come here not only to see
the Catching Show.
We get to see rare and exotic
Pokémon on top of the catches.
The excitement gets me all jacked up!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
Message 65 "I’ve heard Trainers complain that
rare Pokémon take longer to appear.
Is it easier to start with common
Pokémon?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Goto func_10
Fanfare 1500
Lockall
Faceplayer
Message 57 "The current record holder is
\v0103\z0001 with \v0135\z0002 points.
Can you top that?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Lockall
Clearflag 608
Setvar 16608 2000
Applymovement 1 mov_4
Waitmovement
Checkgender 16384
Setvarhero 0
If 16384 0
CheckLR 1 func_11
Jump func_12
Script 12:
Fanfare 1500
Lockall
Faceplayer
If 16394 1
CheckLR 1 func_13
If 16394 2
CheckLR 1 func_14
StorePktchAppl 21 32780
If 32780 1
CheckLR 1 func_15
Message 5 "Pal Park is so scintillating!
Trainers and Pokémon are so full of
intent here!"
Message 6 "I’ve never seen some Pokémon.
Would you show me if you had one?"
StorePktchAppl 20 32780
If 32780 1
CheckLR 1 func_16
Message 10 "Let me see...
A Pokémon that does nothing but
eat and sleep."
CheckPokeParty 32780 143
If 32780 0
CheckLR 1 func_17
Message 11 "Oh, a SNORLAX?
It sure looks like it can eat!
I have a Pokétch app that has
a SNORLAX motif.
You can have it for showing me
a real SNORLAX!"
Setvar 32772 20
Callstd 217 7
Waitbutton
Setvar 16394 1
CloseMsgOnKeyPress
Releaseall
End
Script 13:
Fanfare 1500
Lockall
Faceplayer
If 16393 1
CheckLR 1 func_18
CheckPCatchingShow 32780
If 32780 4
CheckLR 1 func_19
If 32780 5
CheckLR 1 func_20
If 32780 1
CheckLR 1 func_21
If 32780 2
CheckLR 1 func_22
If 32780 3
CheckLR 1 func_23
Jump func_24
FUNCTIONS:
Func 1:
ChangeOwPosition 7 8 9
ReleaseOw 7 2
End
Func 2:
Checkflag 211
CheckLR 1 func_25
Setflag 211
Setvarhero 0
Message 21 "Welcome to Pal Park!
This is where top-notch Trainers come
to demonstrate their Pokémon-catching\ftechniques to their peers.
...Oh?
Are you maybe...
Ah, you are \v0103\z0000!
We’ve all heard rumors about you!
Word is, you’re a hotshot Trainer?!
We’d be honored if you would
participate in our Catching Shows."
Yesnobox 32780
If 32780 0
CheckLR 1 func_26
If 32780 1
CheckLR 1 func_27
End
Func 3:
Checkflag 211
CheckLR 1 func_28
Setflag 211
Setvarhero 0
Message 22 "Welcome to Pal Park!
This is where top-notch Trainers come
to demonstrate their Pokémon-catching\ftechniques to their peers.
...Oh?
Are you maybe...
Ah, you are \v0103\z0000!
We’ve all heard rumors about you!
Word is, you’re a hotshot Trainer?!
We’d be honored if you would
participate in our Catching Shows."
Yesnobox 32780
If 32780 0
CheckLR 1 func_26
If 32780 1
CheckLR 1 func_27
End
Func 4:
Message 39 "Wow! That’s an outstanding record!
Kudos to you!"
Goto func_5
CheckCatchingShowRecords 3 16608
Jump func_6
Func 5:
CheckCatchingShowRecords 3 32780
If 32780 3000
CheckLR1 0 func_29
If 32780 3300
CheckLR1 0 func_30
If 32780 3500
CheckLR1 0 func_31
If 32780 10000
CheckLR1 0 func_32
Killscript
Func 6:
Message 41 "Would you like to put all the Pokémon
you’ve caught in PC Boxes?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_33
Message 46 "Would you like to do another Catching
Show with the same Pokémon?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_34
Jump func_6
Func 7:
Message 54 "Oh, \v0103\z0000!
I hope you do better next time."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 53 "Eek! \v0103\z0000!
Your Catching Show was fantastic!
I hope I can become an expert
Trainer like you one day!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Message 52 "I came to see \v0103\z0000’s Catching
Show with Daddy.
I hope it starts soon..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
If 16608 2000
CheckLR 1 func_35
Setvarhero 1
Setvarnum 2 16608
Killscript
Func 11:
Message 0 "Oak: Ah, \v0103\z0000!
This is it! This is Pal Park!"
Jump func_36
Func 12:
Message 1 "Oak: Ah, \v0103\z0000!
This is it! This is Pal Park!"
Jump func_36
Func 13:
Setvarobj 0 20
Message 12 "Doesn’t that \v0118\z0000
make you want to cook something?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Setvarobj 0 21
Message 15 "Changing colors can change your
mood, too."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 15:
Message 20 "Pal Park is so scintillating!
Trainers and Pokémon are so full of
intent here!
Are you taking the challenge, too?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 16:
Message 13 "Let me see...
A Pokémon that changes color
whenever something happens."
CheckPokeParty 32780 352
If 32780 0
CheckLR 1 func_17
Message 14 "Oh, a KECLEON!
How colorful!
I have a Pokétch app that features
a KECLEON design.
You can have it for showing me
a real KECLEON!"
Setvar 32772 21
Callstd 217 7
Waitbutton
Setvar 16394 2
CloseMsgOnKeyPress
Releaseall
End
Func 17:
Message 19 "What was that Pokémon’s name now...?
Oh, it’s on the tip of my tongue!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 18:
Message 72 "Not only are there Catching Shows,
there are also Pokémon Contests...
It’s so dreamy...
Sinnoh sets my heart aflutter."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 19:
Setvar 32772 97
Setvar 32773 1
CheckAccessories 32772 32773 32780
If 32780 0
CheckLR 1 func_24
Message 67 "Your performance left my heart
aflutter today...
I must crown you with this...
Crown.
Oh, before you get the wrong idea,
it’s an Accessory for Pokémon."
Jump func_37
Func 20:
Setvar 32772 98
Setvar 32773 1
CheckAccessories 32772 32773 32780
If 32780 0
CheckLR 1 func_24
Message 68 "Your performance left my heart
aflutter today...
I feel compelled to give you this
Tiara.
Oh, before you get the wrong idea,
it’s an Accessory for Pokémon."
Jump func_37
Func 21:
Setvar 32772 14
CheckAccessories2 32772 32780
If 32780 1
CheckLR 1 func_24
Message 69 "Your performance left my heart
aflutter today...
I wish you would take this
“Seafloor” Backdrop.
Please try using it when dressing up
your Pokémon with Accessories."
Jump func_38
Func 22:
Setvar 32772 15
CheckAccessories2 32772 32780
If 32780 1
CheckLR 1 func_24
Message 70 "Your performance left my heart
aflutter today...
I wish you would take this
“Underground” Backdrop.
Please try using it when dressing up
your Pokémon with Accessories."
Jump func_38
Func 23:
Setvar 32772 16
CheckAccessories2 32772 32780
If 32780 1
CheckLR 1 func_24
Message 71 "Your performance left my heart
aflutter today...
I wish you would take this
“Sky” Backdrop.
Please try using it when dressing up
your Pokémon with Accessories."
Jump func_38
Func 24:
Message 66 "The Catching Show...
It’s a head-on clash of will and
wits between Trainer and Pokémon.
I especially look forward to seeing
Pokémon from Kanto and Hoenn.
But it tugs at my heartstrings to
know they’re so far away from home."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 25:
Setvarhero 0
Message 30 "Hi there, \v0103\z0000!
Did you come to participate in
a Catching Show?"
Jump func_39
Func 26:
Message 23 "Yes! You agreed to participate!
It’s a happy day for me!
Let’s not waste any time!
Let me explain how Pal Park works.
I wrote the Pal Park manual for
situations just like this.
What should I explain?"
Jump func_40
Func 27:
Message 29 "Aww, that’s too bad.
Well, just give me a shout if you’d
like to participate."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 28:
Setvarhero 0
Message 31 "Hi there, \v0103\z0000!
Did you come to participate in
a Catching Show?"
Jump func_39
Func 29:
CheckIdPlayer 32774 8
If 32774 0
CheckLR1 1 func_41
If 32774 1
CheckLR1 1 func_42
If 32774 2
CheckLR1 1 func_43
If 32774 3
CheckLR1 1 func_44
If 32774 4
CheckLR1 1 func_45
If 32774 5
CheckLR1 1 func_46
If 32774 6
CheckLR1 1 func_47
If 32774 7
CheckLR1 1 func_48
Goto func_49
Killscript
Func 30:
CheckIdPlayer 32774 5
If 32774 0
CheckLR1 1 func_50
If 32774 1
CheckLR1 1 func_51
If 32774 2
CheckLR1 1 func_52
If 32774 3
CheckLR1 1 func_53
If 32774 4
CheckLR1 1 func_54
Goto func_49
Killscript
Func 31:
CheckIdPlayer 32774 7
If 32774 0
CheckLR1 1 func_55
If 32774 1
CheckLR1 1 func_56
If 32774 2
CheckLR1 1 func_57
If 32774 3
CheckLR1 1 func_58
If 32774 4
CheckLR1 1 func_59
If 32774 5
CheckLR1 1 func_60
If 32774 6
CheckLR1 1 func_61
Goto func_49
Killscript
Func 32:
CheckIdPlayer 32774 6
If 32774 0
CheckLR1 1 func_62
If 32774 1
CheckLR1 1 func_63
If 32774 2
CheckLR1 1 func_64
If 32774 3
CheckLR1 1 func_65
If 32774 4
CheckLR1 1 func_66
If 32774 5
CheckLR1 1 func_67
Goto func_49
Killscript
Func 33:
CloseCatchingShow
Message 42 "Done!
Your Pokémon have been boxed away.
You’ll now have to save the game."
Message 44 "If you want to do another Catching
Show, come see us again!"
0030
CloseMsgOnKeyPress
Jump func_68
Func 34:
Message 43 "Oh, then it might be fun for you to
go for an even better score by\ftrying to catch these six again.
If you want to do another Catching
Show, just come see us!"
0030
CloseMsgOnKeyPress
Jump func_68
Func 35:
Setvarrival 1
Setvarnum 2 16608
Killscript
Func 36:
Message 2 "Pokémon from around the country
can be brought here.
In other words, Pokémon from
places like Kanto and Hoenn.
This place also happens to be where
you compete to see how quickly you\fcan catch those Pokémon!"
CloseMsgOnKeyPress
Applymovement 1 mov_5
Waitmovement
Message 3 "It’s good to see you’ve come
to join us for a visit.
Let me make a gift of this Trainer
Counter for your Pokétch."
Setvar 32772 19
Callstd 217 7
Message 4 "Oak: I plan to be in Eterna City
for some time.
Being here, I should make the best
of my time studying the Pokémon of\fthe Sinnoh region."
CloseMsgOnKeyPress
Return 15 32780
Applymovement 255 mov_6
Waitmovement
Applymovement 1 mov_7
Waitmovement
Fanfare 1539
Removepeople 1
WaitFanfare 1539
Setvar 16582 1
Releaseall
End
Func 37:
Callstd 223 7
Setvar 16393 1
CloseMsgOnKeyPress
Releaseall
End
Func 38:
Callstd 244 7
Setvar 16393 1
CloseMsgOnKeyPress
Releaseall
End
Func 39:
Multi 1 1 0 1 32780
Txtscrpmulti 203 0
Txtscrpmulti 204 1
Txtscrpmulti 205 2
CloseMulti
If 32780 0
CheckLR 1 func_69
If 32780 1
CheckLR 1 func_70
If 32780 2
CheckLR 1 func_27
Jump func_27
Func 40:
Multi 1 1 0 1 32780
Txtscrpmulti 198 0
Txtscrpmulti 199 1
Txtscrpmulti 200 2
Txtscrpmulti 202 4
CloseMulti
If 32780 0
CheckLR 1 func_71
If 32780 1
CheckLR 1 func_72
If 32780 2
CheckLR 1 func_73
Jump func_74
Func 41:
Setvar 32774 149
Killscript
Func 42:
Setvar 32774 150
Killscript
Func 43:
Setvar 32774 151
Killscript
Func 44:
Setvar 32774 152
Killscript
Func 45:
Setvar 32774 153
Killscript
Func 46:
Setvar 32774 154
Killscript
Func 47:
Setvar 32774 155
Killscript
Func 48:
Setvar 32774 156
Killscript
Func 49:
CheckStoreItem 32774 1 32775
If 32775 0
CheckLR1 5 func_75
Setvar 32780 10000
Killscript
Func 50:
Setvar 32774 159
Killscript
Func 51:
Setvar 32774 160
Killscript
Func 52:
Setvar 32774 161
Killscript
Func 53:
Setvar 32774 162
Killscript
Func 54:
Setvar 32774 163
Killscript
Func 55:
Setvar 32774 164
Killscript
Func 56:
Setvar 32774 165
Killscript
Func 57:
Setvar 32774 166
Killscript
Func 58:
Setvar 32774 167
Killscript
Func 59:
Setvar 32774 168
Killscript
Func 60:
Setvar 32774 157
Killscript
Func 61:
Setvar 32774 158
Killscript
Func 62:
Setvar 32774 169
Killscript
Func 63:
Setvar 32774 170
Killscript
Func 64:
Setvar 32774 171
Killscript
Func 65:
Setvar 32774 172
Killscript
Func 66:
Setvar 32774 173
Killscript
Func 67:
Setvar 32774 174
Killscript
Func 68:
Applymovement 255 mov_8
Waitmovement
Applymovement 7 mov_2
Waitmovement
Releaseall
End
Func 69:
Setvar 32780 0
CheckBoxesNumber 32780
If 32780 6
CheckLR 0 func_76
Setvar 32780 0
CheckPokeCatchingShow 32780
If 32780 0
CheckLR 1 func_77
Checkgender 32780
If 32780 0
CheckLR 1 func_78
Jump func_79
Func 70:
Message 35 "Very well, let me explain how things
work around here.
I’ll read to you from the Pal Park
manual I wrote."
Jump func_40
Func 71:
Message 24 "Pal Park is a place where you are
timed on the catching of six Pokémon.
You are provided with six special
Poké Balls for the challenge.
Participating Trainers are required to
supply the six Pokémon that are to\fbe caught.
If you do not supply the stock of six
Pokémon, you may not participate in\fthe Catching Show.
...Do you want me to explain anything
else?"
Jump func_40
Func 72:
Message 25 "At the start of the Catching Show,
you will be given six Park Balls.
Use the Park Balls to catch the
six Pokémon you provide.
...Do you want me to explain anything
else?"
Jump func_40
Func 73:
Message 26 "You may make Pokémon migrate from
Kanto or Hoenn to stock your\fCatching Game.
Insert a Game Boy Advance Pokémon
Ruby, Sapphire, Emerald, FireRed,\for LeafGreen in the Game Pak Slot.
When your DS is turned on, currently
caught Pokémon can migrate from\fthe Game Pak to the DS Game Card.
...Do you want me to explain anything
else?"
Jump func_40
Func 74:
Message 28 "Would you like to take part in
a Catching Show now?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_27
Setvar 32780 0
CheckBoxesNumber 32780
If 32780 6
CheckLR 0 func_76
Setvar 32780 0
CheckPokeCatchingShow 32780
If 32780 0
CheckLR 1 func_77
Checkgender 32780
If 32780 0
CheckLR 1 func_78
Jump func_79
Func 75:
Message 45 "It’s time for your prize!
Here you are!"
Copyvar 32772 32774
Setvar 32773 1
Callstd 252 7
Killscript
Func 76:
Message 37 "Oh, your PC Boxes are filled. You
have no room for six more Pokémon.
You won’t be able to accept them,
even if you do catch them.
Make enough room in a PC Box and
come back for your Catching Show."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 77:
Message 34 "Oh, hold on. You don’t have enough
Pokémon for a Catching Show.
You’ll need to stock us with six
Pokémon to participate.
You should make some Pokémon migrate
from Kanto or Hoenn!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 78:
Goto func_10
Setvarhero 0
Message 32 "OK, here are your Park Balls!
\v0103\z0000 received
six Park Balls.
The current record holder is
\v0103\z0001 with \v0135\z0002 points.
OK, off you go, \v0103\z0000.
Dazzle us with a masterful display
of Pokémon catching!"
CloseMsgOnKeyPress
Jump func_80
Func 79:
Goto func_10
Setvarhero 0
Message 33 "OK, here are your Park Balls!
\v0103\z0000 received
six Park Balls.
The current record holder is
\v0103\z0001 with \v0135\z0002 points.
OK, off you go, \v0103\z0000.
Dazzle us with a masterful display
of Pokémon catching!"
CloseMsgOnKeyPress
Jump func_80
Func 80:
Applymovement 7 mov_9
Waitmovement
Applymovement 255 mov_10
Waitmovement
Fanfare 1539
Fadescreen 6 1 0 0
Resetscreen
Warp 251 0 24 47 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
(394) R221R0201 Route 221 R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 311
CheckLR 1 func_1
Checkflag 2734
CheckLR 1 func_2
SrtRandomNum 32768
Setvarnum 0 32768
Checkpartynumber 32770
Setvar 32771 0
CheckPokeLevel 32769 32771
If2 32768 32769
CheckLR 1 func_3
Setvalue 32771 1
Copyvalue 32770 1
If 32770 0
CheckLR 5 func_4
Jump func_5
Script 2:
Fanfare 1500
Lockall
Message 5 "Win Items from Me!
Black Belt: Powers up Fighting-type
moves.
Expert Belt: Powers up moves if they
are super effective.
Focus Sash: The bearer avoids
a one-hit KO if its HP is full."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
If 16648 0
CheckLR1 1 func_6
If 16648 1
CheckLR1 1 func_7
If 16648 2
CheckLR1 1 func_8
Setvaritem 2 32772
Message 3 "I’ll thank you for that visual treat
with this \v0108\z0002."
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_9
Jump func_10
Func 2:
Message 4 "High-level Pokémon were once of low
level.
Low-level Pokémon will not remain so,
for they can only grow.
That’s how it goes, youngster.
Come again tomorrow."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
If 16648 0
CheckLR1 1 func_6
If 16648 1
CheckLR1 1 func_7
If 16648 2
CheckLR1 1 func_8
Setvarpoke 1 32771
Setvaritem 2 32772
Message 1 "...I saw it!
Today’s number is \v0133\z0000!
Show me a Pokémon that’s Lv. \v0133\z0000.
If you can, I’ll reward you.
...Oh, now, hunh?!
Your \v0100\z0001 is Lv. \v0133\z0000.
Well, I’ll be! How remarkable!
I’ll thank you for that visual treat
with this \v0108\z0002."
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_5
Jump func_10
Func 4:
CheckPokeLevel 32769 32771
If2 32768 32769
CheckLR 1 func_3
Setvalue 32771 1
Copyvalue 32770 1
If 32770 0
CheckLR 5 func_4
Jump func_5
Func 5:
Message 0 "...I saw it!
Today’s number is \v0133\z0000!
Show me a Pokémon that’s Lv. \v0133\z0000.
If you can, I’ll reward you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Setvar 32772 241
Killscript
Func 7:
Setvar 32772 268
Killscript
Func 8:
Setvar 32772 275
Killscript
Func 9:
Setflag 311
Message 2 "Oh? You’ve no room in your Bag.
I’ll hold it, so come back later."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Callstd 224 7
Clearflag 311
Setflag 2734
Setvalue 16648 1
If 16648 3
CheckLR 0 func_11
Setvar 16648 0
CloseMsgOnKeyPress
Releaseall
End
Func 11:
CloseMsgOnKeyPress
Releaseall
End
(395) R222 Route 222
SCRIPT ORDER:
Script 3
Script 2
Script 4
Script 5
Script 6
Script 7
Script 8
Script 1
SCRIPTS:
Script 1:
CheckTime 16384
If 16384 0
CheckLR 1 func_1
If 16384 1
CheckLR 1 func_1
If 16384 2
CheckLR 1 func_1
If 16384 3
CheckLR 1 func_2
If 16384 4
CheckLR 1 func_2
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 206
CheckLR 1 func_3
Message 1 "The only items you ever throw are
Poké Balls!
But is that true?!
I want people to think about that.
That’s why I give away the Technical
Machine Fling."
Setvar 32772 383
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_4
Callstd 252 7
Setflag 206
Jump func_3
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 3 "When I first started fishing, catching
anything made me happy.
But those days are long gone now...
Now I get annoyed if I can’t beat my
record by even an inch..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
CallMsgBox 261 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 5:
CallMsgBox 262 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 6:
CallMsgBox 519 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 7:
CallMsgBox 520 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 4 "I can’t explain it.
I get more easily agitated at night."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Clearflag 648
Setflag 649
End
Func 2:
Clearflag 649
Setflag 648
End
Func 3:
Message 2 "Using that move, the Pokémon hurls
whatever item it’s holding at the foe.
The move’s effect depends on what
item is hurled.
Remember, the move Fling fails if the
Pokémon isn’t holding anything."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(396) R222R0101 Route 222 R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
Setflag 2543
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 0 "PIKACHU: Pikachuu!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 1 "PIKACHU: Pikaah!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 2 "PIKACHU: Pika pika?"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 3 "PIKACHU: Pi! Pikachu!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 25 0
Message 4 "PIKACHU: Pii! Kaahchu!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 5 "Eehehe! I’m going for the Pokémon
Championship with only PIKACHU!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(397) R222R0201 Route 222 R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Setflag 2544
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckPokeParty 32780 223
If 32780 0
CheckLR 1 func_1
Message 1 "I had a dream!
It was a wonderful dream!
I dreamt that a Trainer would bring
me a giant REMORAID!
Oh, my gosh!
That dream was no dream!
H-how big of a REMORAID did you
bring me?!"
0030
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
ChsPokemenu
StorePokeMenu2 32770
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32770 255
CheckLR 1 func_2
CheckPokeEgg 32770 32769
If 32769 223
CheckLR 5 func_3
CopyPokeHeight 32780 32770
If 32780 0
CheckLR 1 func_4
If 32780 1
CheckLR 1 func_5
ComparePokeHeight 0 1 32770
Message 2 "\v0134\z0000.\v0132\z0001 inches...
This REMORAID is \v0134\z0000.\v0132\z0001 inches...
...I think you did better than in
my dream!
I’d like you to have this."
Setvar 32772 6
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_6
Callstd 252 7
SetvarPokeHeight 32770
Message 3 "Thank you!
I really enjoyed this.
I think I’ll dream of an even bigger
REMORAID tonight."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 0 "I had a dream!
It was a wonderful dream!
I dreamt that a Trainer would bring
me a giant REMORAID!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 8 "Oh, what? Why would you deny me
the chance to measure your REMORAID?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 6 "Wha...
What do you think you’re showing me?
Did you even listen to what I had
to say?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
ComparePokeHeight 0 1 32770
CheckPokeHeight 2 3 223
Message 5 "This REMORAID was \v0134\z0000.\v0132\z0001 inches.
I know a genius who brought me
a REMORAID that was \v0134\z0002.\v0132\z0003 inches..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
CheckPokeHeight 0 1 223
Message 4 "\v0134\z0000.\v0132\z0001 inches...
Am I experiencing deja vu?\fI distinctly remember this size..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 7 "Your Bag’s jammed full...
I can’t give you this..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(398) R222R0301 Route 222 R3-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "If I had to describe Sunyshore Gym
in a word, it’d be...
Shockingly electric!
Whoops, that’s two words!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Sunyshore’s Gym Leader has been
bored lately, I hear.
Apparently, there’s been a lack
of worthwhile challengers."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(399) R224 Route 224
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Checkflag 301
CheckLR 1 func_1
0166 16384
If 16384 0
CheckLR 1 func_1
CheckNatPokedexStatus 2 16384
If 16384 0
CheckLR 1 func_1
CheckItem 452 1 16384
If 16384 0
CheckLR 1 func_1
UnkFunct2 1 16384
If 16384 0
CheckLR 1 func_1
Clearflag 624
End
Script 2:
Checkflag 301
CheckLR 1 func_2
If 16525 1
CheckLR1 1 func_3
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 301
CheckLR 1 func_4
Message 6 "The surface is unmarked.
It is polished like a mirror."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 301
CheckLR 1 func_5
Setvar 16525 1
Setvarhero 0
Checkgender 32780
If 32780 1
CheckLR 1 func_6
Message 0 "Oak: Ah, \v0103\z0000!
It’s good to see you!
Without any further ado, I’d like you
to examine this stone tablet.
Something just like it was also
discovered in the Kanto region.
I want to ask for your help in
solving the mystery behind this."
CloseMsgOnKeyPress
Goto func_7
Setvarhero 0
Message 2 "I tried deciphering the engravings on
the stone tablet.
Apparently, it is for a Trainer to
engrave their thoughts after growing
as a person through adventure.
A Trainer fitting that description
would be you.
That’s why I’m asking you for your
help.
You’ve met many people and Pokémon,
and experienced many things that
shaped you into the person you are.
I want you to sincerely tell me who
affected you the most.
Tell me, to whom do you most want
to say your thanks?"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Thanknameins 32780
Fadescreen 6 1 1 0
Resetscreen
If 32780 1
CheckLR 1 func_8
Setvarhero 0
SetvarShaymin 1
Message 3 "Hm...
You most want to express your
thanks to \v011C\z0001?
You’re absolutely certain of it?"
Yesnobox 32780
CloseMsgOnKeyPress
If 32780 1
CheckLR 1 func_9
Goto func_10
Return 15 32780
SwitchMusic 0 10
Fadescreen 6 6 0 32767
Resetscreen
ShayminAnm 3 1
Warp 399 0 908 492 0
Return 15 32780
Fadescreen 6 6 1 32767
Resetscreen
Goto func_11
Message 4 "Oak: ?!
What was that Pokémon?
Is it somehow connected to
the stone tablet?
Hmm... Where did that Pokémon go?
Its destination is intriguing..."
Waitbutton
CloseMsgOnKeyPress
StoreSayingLearned 10
Setflag 301
Setflag 624
Setvar 16525 0
Releaseall
End
FUNCTIONS:
Func 1:
End
Func 2:
End
Func 3:
SetOwsFollow 3 0
Killscript
Func 4:
SetvarShaymin 1
Message 7 "\v011C\z0001, to whom I give
my thanks."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Fanfare 1500
Lockall
Faceplayer
Message 4 "Oak: ?!
What was that Pokémon?
Is it somehow connected to
the stone tablet?
Hmm... Where did that Pokémon go?
Its destination is intriguing..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 1 "Oak: Ah, \v0103\z0000!
It’s good to see you!
Without any further ado, I’d like you
to examine this stone tablet.
Something just like it was also
discovered in the Kanto region.
I want to ask for your help in
solving the mystery behind this."
Jump func_12
Func 7:
CheckHiroPosition 32768 32769
Copyvar 32776 32768
If 32776 909
CheckLR 1 func_13
If 32776 910
CheckLR 1 func_14
Applymovement 255 mov_1
Waitmovement
Killscript
Func 8:
Message 5 "Oak: What’s wrong? You’re not
suggesting there’s no one?
Tell me, to whom do you most want
to say your thanks?"
CloseMsgOnKeyPress
Jump func_9
Func 9:
Fadescreen 6 1 0 0
Resetscreen
Thanknameins 32780
Fadescreen 6 1 1 0
Resetscreen
If 32780 1
CheckLR 1 func_8
Setvarhero 0
SetvarShaymin 1
Message 3 "Hm...
You most want to express your
thanks to \v011C\z0001?
You’re absolutely certain of it?"
Yesnobox 32780
CloseMsgOnKeyPress
If 32780 1
CheckLR 1 func_9
Goto func_10
Return 15 32780
SwitchMusic 0 10
Fadescreen 6 6 0 32767
Resetscreen
ShayminAnm 3 1
Warp 399 0 908 492 0
Return 15 32780
Fadescreen 6 6 1 32767
Resetscreen
Goto func_11
Message 4 "Oak: ?!
What was that Pokémon?
Is it somehow connected to
the stone tablet?
Hmm... Where did that Pokémon go?
Its destination is intriguing..."
Waitbutton
CloseMsgOnKeyPress
StoreSayingLearned 10
Setflag 301
Setflag 624
Setvar 16525 0
Releaseall
End
Func 10:
Applymovement 255 mov_2
Applymovement 3 mov_2
Waitmovement
Killscript
Func 11:
Applymovement 3 mov_3
Applymovement 255 mov_4
Applymovement 16 mov_5
Waitmovement
Cryfr 492 0
WaitCry
Applymovement 3 mov_6
Applymovement 16 mov_7
Applymovement 255 mov_8
Waitmovement
Applymovement 16 mov_9
Waitmovement
Setflag 634
Removepeople 16
Cryfr 492 0
WaitCry
Applymovement 3 mov_10
Waitmovement
Killscript
Func 12:
CloseMsgOnKeyPress
Goto func_7
Setvarhero 0
Message 2 "I tried deciphering the engravings on
the stone tablet.
Apparently, it is for a Trainer to
engrave their thoughts after growing\fas a person through adventure.
A Trainer fitting that description
would be you.
That’s why I’m asking you for your
help.
You’ve met many people and Pokémon,
and experienced many things that\fshaped you into the person you are.
I want you to sincerely tell me who
affected you the most.
Tell me, to whom do you most want
to say your thanks?"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Thanknameins 32780
Fadescreen 6 1 1 0
Resetscreen
If 32780 1
CheckLR 1 func_8
Setvarhero 0
SetvarShaymin 1
Message 3 "Hm...
You most want to express your
thanks to \v011C\z0001?
You’re absolutely certain of it?"
Yesnobox 32780
CloseMsgOnKeyPress
If 32780 1
CheckLR 1 func_9
Goto func_10
Return 15 32780
SwitchMusic 0 10
Fadescreen 6 6 0 32767
Resetscreen
ShayminAnm 3 1
Warp 399 0 908 492 0
Return 15 32780
Fadescreen 6 6 1 32767
Resetscreen
Goto func_11
Message 4 "Oak: ?!
What was that Pokémon?
Is it somehow connected to
the stone tablet?
Hmm... Where did that Pokémon go?
Its destination is intriguing..."
Waitbutton
CloseMsgOnKeyPress
StoreSayingLearned 10
Setflag 301
Setflag 624
Setvar 16525 0
Releaseall
End
Func 13:
Applymovement 255 mov_11
Applymovement 3 mov_12
Waitmovement
Killscript
Func 14:
Applymovement 255 mov_13
Applymovement 3 mov_14
Waitmovement
Killscript
(400) R225 Route 225
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
CallMsgBox 256 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 2:
CallMsgBox 257 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(401) R226A Route 226
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(402) R226B Route 226
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(403) R227 Route 227
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Lockall
Applymovement 4 mov_1
Applymovement 3 mov_2
Applymovement 255 mov_3
Waitmovement
Setvarhero 0
Message 1 "Wake: Oh, if it isn’t \v0103\z0000!
It’s been a while!
You’ve grown so tough that you’re
training out here now...
Everyone keeps getting tougher and
tougher...
And, in doing that, they develop
closer bonds with their Pokémon..."
CloseMsgOnKeyPress
Applymovement 3 mov_4
Waitmovement
Return 15 32780
Setvarrival 1
Message 2 "\v0103\z0001: ...For someone born
overseas, that tough dude doesn’t
have an accent or anything."
CloseMsgOnKeyPress
Applymovement 3 mov_5
Waitmovement
Return 5 32780
Setvarhero 0
Message 3 "\v0103\z0000, there’s a volcano
ahead of us called Stark Mountain.
That blowhard Buck guy is on his way
there, as well.
I’m going to find the volcano’s
treasure before that guy does.
If I could do that, a 21-win streak
at the Battle Tower’d be possible!"
CloseMsgOnKeyPress
Applymovement 3 mov_6
Applymovement 4 mov_7
Applymovement 255 mov_8
Waitmovement
Removepeople 3
Applymovement 4 mov_9
Applymovement 255 mov_10
Waitmovement
Message 4 "Wake: ...You’re serious?
You’re going to Stark Mountain?
Even the wild Pokémon there are
very, very tough...
If your Pokémon aren’t well trained,
they’ll have a miserable time...
Then again, that kind of challenge
is an exciting prospect...
But no matter what, you’d better
be fully prepared!
I’ve got to get ready for another
tournament. Farewell!"
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 738
CheckLR 1 func_1
If 32772 739
CheckLR 1 func_2
End
Script 2:
CallMsgBox 261 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 3:
Lockall
Applymovement 11 mov_11
Applymovement 255 mov_12
Waitmovement
Setvarhero 0
Message 0 "Buck: Yo, if it isn’t \v0103\z0000!
Don’t tell me you’re going to Stark
Mountain, too?
You’re pretty wimpy...
You’re sure you’re going to be OK?
Heh, why am I asking you that?
It’s not like I care.
Anyways, if we see each other on
Stark Mountain, the race is on to
see who gets the Magma Stone first!"
CloseMsgOnKeyPress
Applymovement 11 mov_13
Waitmovement
Removepeople 11
Setvar 16665 1
Releaseall
End
FUNCTIONS:
Func 1:
Applymovement 4 mov_14
Applymovement 255 mov_15
Waitmovement
Jump func_3
Func 2:
Applymovement 4 mov_16
Applymovement 255 mov_17
Waitmovement
Jump func_3
Func 3:
Removepeople 4
Setvar 16523 1
Releaseall
End
(404) R227A Route 227
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(405) R227B Route 227
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(406) R228 Route 228
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
CallMsgBox 256 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 2:
CallMsgBox 257 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(407) R229 Route 229
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 218
CheckLR 1 func_1
Message 0 "Were you looking for me?
Did you miss me?
I wish I had a new nugget of wisdom
to share with you, but alas, I don’t!
So, I’ll have to make it up to you
with this!"
Setvar 32772 92
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Callstd 252 7
Setflag 218
Jump func_1
Script 2:
CallMsgBox 258 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
Message 1 "That’s my Nugget!
Try to spend it wisely!
A Nugget of gold has to be worth
more than a nugget of my wisdom!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(408) R230 Route 230
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(409) R232 R232
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(410) RECORD RECORD
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(411) T01 Twinleaf Town
SCRIPT ORDER:
Script 1
Script 4
Script 2
Script 3
Script 5
Script 6
Script 7
Script 8
Script 9
SCRIPTS:
Script 1:
If 16628 1
CheckLR1 1 func_1
If 16548 4
CheckLR1 1 func_2
If 16548 6
CheckLR1 1 func_3
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 144
CheckLR 1 func_4
If 16533 1
CheckLR 4 func_5
Checkflag 234
CheckLR 1 func_6
Setvarhero 0
Setvarrival 1
Message 4 "Hiya, \v0103\z0000.
\v0103\z0001 was looking for you.
I think he’s home now.
Why don’t you go check it out?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Lockall
Applymovement 3 mov_1
Waitmovement
CheckHiroPosition 32772 32773
If 32772 108
CheckLR 1 func_7
If 32772 109
CheckLR 1 func_8
If 32772 110
CheckLR 1 func_9
If 32772 111
CheckLR 1 func_10
If 32772 112
CheckLR 1 func_11
If 32772 113
CheckLR 1 func_12
If 32772 114
CheckLR 1 func_13
Jump func_14
Script 4:
Lockall
PrpDoorAnm 3 27 9 11 77
Opendoor 77
Waitaction 77
Clearflag 402
Addpeople 2
Applymovement 2 mov_2
Applymovement 255 mov_3
Waitmovement
Fanfare 1538
Message 0 "\vFF01\z00C8Thud!!\vFF01\z0064"
Return 30 32780
Callstd 250 7
Applymovement 2 mov_4
Waitmovement
Setvarrival 0
Setvarhero 1
Message 1 "\v0103\z0000: What was that about?!
Oh, hey, \v0103\z0001!
Hey! I’m going to the lake!
You come too! And be quick about it!
OK, \v0103\z0001? I’m fining
you $1 million if you’re late!"
CloseMsgOnKeyPress
Applymovement 255 mov_5
Applymovement 2 mov_6
Waitmovement
Return 15 32780
Setvarrival 0
Message 2 "\v0103\z0000: Oh, jeez!
Forgot something!"
CloseMsgOnKeyPress
Applymovement 2 mov_7
Waitmovement
Closedoor 77
Waitaction 77
Waitclose 77
Removepeople 2
Callstd 251 7
Setvar 16496 1
Setvar 16614 1
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 11 "Technology just blows me away!
I mean, now you can play with people
around the world...wirelessly!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Checkflag 144
CheckLR 1 func_15
If 16533 1
CheckLR 4 func_16
Message 8 "It’s true that wild Pokémon do attack
people sometimes...
However, Pokémon also let you become
friends with them."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
CallMsgBox 12 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 8:
Setvarhero 0
CallMsgBox 525 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 9:
Setvarrival 0
CallMsgBox 526 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
Setvar 16628 2
Killscript
Func 2:
Setvar 16548 5
Killscript
Func 3:
Setvar 16548 7
Killscript
Func 4:
Message 7 "Everyone goes off on adventures,
and then they gradually grow up..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Setvarrival 0
Message 6 "\v0103\z0000? He went tearing off
in a huge rush a while ago."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Setvarhero 0
Setvarrival 1
Message 5 "Hiya, \v0103\z0000.
You’re looking for \v0103\z0001?
He just went tearing off a little
while ago.
He’s probably not gone too far.
Why not go chase after him?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Applymovement 255 mov_8
Applymovement 3 mov_9
Waitmovement
Jump func_17
Func 8:
Applymovement 255 mov_10
Applymovement 3 mov_11
Waitmovement
Jump func_17
Func 9:
Applymovement 255 mov_12
Applymovement 3 mov_13
Waitmovement
Jump func_17
Func 10:
Applymovement 255 mov_14
Applymovement 3 mov_15
Waitmovement
Jump func_17
Func 11:
Applymovement 255 mov_16
Applymovement 3 mov_17
Waitmovement
Jump func_17
Func 12:
Applymovement 255 mov_18
Applymovement 3 mov_19
Waitmovement
Jump func_17
Func 13:
Applymovement 255 mov_20
Applymovement 3 mov_21
Waitmovement
Jump func_17
Func 14:
Applymovement 255 mov_22
Applymovement 3 mov_23
Waitmovement
Jump func_17
Func 15:
Message 10 "Oh, you’re helping put together
a Pokédex?
That means you’re going to travel
all over the region with Pokémon!
That sounds like a lot of fun!
I’m a little envious, to be honest!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 16:
Message 9 "Oh! A Pokémon!
You look good together!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 17:
Setvarhero 0
Setvarrival 1
Message 3 "Hiya, \v0103\z0000.
\v0103\z0001 was looking for you.
I think he’s home now.
Why don’t you go check it out?"
CloseMsgOnKeyPress
If 32772 108
CheckLR 1 func_18
If 32772 109
CheckLR 1 func_19
If 32772 110
CheckLR 1 func_20
If 32772 111
CheckLR 1 func_21
If 32772 112
CheckLR 1 func_22
If 32772 113
CheckLR 1 func_23
If 32772 114
CheckLR 1 func_24
Jump func_25
Func 18:
Applymovement 3 mov_24
Waitmovement
Jump func_26
Func 19:
Applymovement 3 mov_25
Waitmovement
Jump func_26
Func 20:
Applymovement 3 mov_26
Waitmovement
Jump func_26
Func 21:
Applymovement 3 mov_27
Waitmovement
Jump func_26
Func 22:
Applymovement 3 mov_28
Waitmovement
Jump func_26
Func 23:
Applymovement 3 mov_29
Waitmovement
Jump func_26
Func 24:
Applymovement 3 mov_30
Waitmovement
Jump func_26
Func 25:
Applymovement 3 mov_31
Waitmovement
Jump func_26
Func 26:
Releaseall
End
(412) T01R0101 Twinleaf Town R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 144
CheckLR 1 func_1
If 16533 1
CheckLR 4 func_2
Checkflag 110
CheckLR 1 func_3
Checkflag 234
CheckLR 1 func_4
Checkgender 32780
If 32780 0
CheckLR 1 func_5
If 32780 1
CheckLR 1 func_6
End
FUNCTIONS:
Func 1:
Setvarrival 1
Message 5 "\v0103\z0001’s mom: \v0103\z0001
took off like a rocket as usual.
He was shouting something about
becoming the greatest Trainer ever...
He just can’t sit still, that boy.
I wonder who he takes after?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Setvarrival 1
Message 4 "\v0103\z0001’s mom: Oh, you’ve
become friends with a Pokémon, too."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Setvarrival 1
Message 3 "\v0103\z0001’s mom: \v0103\z0001
should be out on Route 201 by now.
He just can’t sit still, that boy.
I wonder who he takes after?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Setflag 110
Setvarrival 1
Message 2 "\v0103\z0001’s mom: That kid rocketed
off again like usual.
I’d guess he would be out on
Route 201 by now?
He just can’t sit still, that boy.
I wonder who he takes after?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Setvarhero 0
Setvarrival 1
Message 0 "\v0103\z0001’s mom: Oh, hi,
\v0103\z0000.
Are you looking for \v0103\z0001?
He was gone for a second, but then
he came running right back home.
He just can’t sit still, that boy.
I wonder who he takes after?"
Jump func_7
Func 6:
Setvarhero 0
Setvarrival 1
Message 1 "\v0103\z0001’s mom: Oh, hi,
\v0103\z0000.
Did you come calling on \v0103\z0001?
He was gone for a second, but then
he came running right back home.
He just can’t sit still, that boy.
I wonder who he takes after?"
Jump func_7
Func 7:
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(413) T01R0102 Twinleaf Town R1-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Lockall
Setvarrival 0
Message 0 "\v0103\z0000: ...I’d better take
my Bag and Journal, too..."
CloseMsgOnKeyPress
Applymovement 0 mov_1
Waitmovement
Callstd 250 7
Setvarhero 0
Message 1 "Oh, hey, \v0103\z0000!
We’re going to the lake!
I’ll be waiting on the road!
It’s a $10 million fine if you’re late!"
CloseMsgOnKeyPress
Applymovement 0 mov_2
Applymovement 255 mov_3
Waitmovement
Fanfare 1539
Removepeople 0
Callstd 251 7
Setflag 234
Setvar 16547 1
Setvar 16496 2
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Message 2 "It’s a Wii!
It’s controlled by a Wii Remote!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Setvarhero 0
Message 3 "\v0103\z0000 checked the PC screen.
Adventure Rule No. 1
The X Button opens the menu!
Adventure Rule No. 2
Record your progress with SAVE.
There is nothing else on here..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(414) T01R0201 Twinleaf Town R2-01
SCRIPT ORDER:
Script 1
Script 2
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 3
SCRIPTS:
Script 1:
If 16548 3
CheckLR1 1 func_1
Checkflag 143
CheckLR1 1 func_2
End
Script 2:
Lockall
Applymovement 255 mov_1
Applymovement 0 mov_2
Waitmovement
Setflag 135
Setvarhero 0
Setvarrival 1
Message 0 "Mom: \v0103\z0000!
\v0103\z0001 came calling for you
a little while ago.
I don’t know what it was about, but
he said it was an emergency."
CloseMsgOnKeyPress
Return 15 32780
Applymovement 0 mov_3
Waitmovement
Setvar 16548 1
Releaseall
End
Script 3:
Lockall
Setvar 16655 2
Checkflag 348
CheckLR 1 func_3
Checkflag 349
CheckLR 0 func_4
CheckNatPokedexStatus 2 32780
If 32780 0
CheckLR 1 func_3
Applymovement 255 mov_4
Applymovement 0 mov_5
Waitmovement
Setvarhero 0
Setvarrival 1
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR1 1 func_5
If 32780 0
CheckLR1 1 func_6
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Lockall
Return 30 32780
Applymovement 0 mov_6
Applymovement 255 mov_7
Waitmovement
Return 30 32780
Setvarrival 0
Setvarhero 1
Message 6 "Mom: What’s up, dear?
...
Wow.
I can’t believe that happened to you.
Am I ever glad that both you and
\v0103\z0000 are unharmed.
The professor you mentioned is
most likely Professor Rowan of
Sandgem Town.
I’ve heard that he is well known for
his studies on Pokémon.
I hear he’s also quite intimidating...
\v0103\z0001, I think you need to
visit him in Sandgem Town.
You need to properly explain why you
had no choice but to use his Pokémon.
Don’t worry!
I’m sure he will understand."
CloseMsgOnKeyPress
Return 30 32780
Setvarhero 0
Message 7 "Oh, I know!
\v0103\z0000, put these on."
GiveRShoes
Setvarhero 0
Message 8 "\v0103\z0000 received a pair of
\vFF00\z0001Running Shoes\vFF00\z0000!"
Soundfr 1158
Fadedef
Message 9 "Going to Sandgem Town is like an
adventure in itself, right?
With those Running Shoes, you can
get to faraway places much faster.
OK...
Let me read the instructions...
“Press the B Button and dash
about faster than ever before!
“Put on the Running Shoes and
blaze new trails of adventure!”
Well, isn’t that just nifty!"
Waitbutton
CloseMsgOnKeyPress
Setvar 16548 4
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
If 16548 7
CheckLR 4 func_7
If 16548 6
CheckLR 1 func_8
Checkflag 144
CheckLR 1 func_9
If 16548 5
CheckLR 4 func_10
If 16548 4
CheckLR 4 func_11
Checkflag 248
CheckLR 1 func_12
If 16548 2
CheckLR 4 func_13
Checkflag 135
CheckLR 1 func_14
Setflag 135
Setvarhero 0
Setvarrival 1
Message 0 "Mom: \v0103\z0000!
\v0103\z0001 came calling for you
a little while ago.
I don’t know what it was about, but
he said it was an emergency."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Lockall
Jump func_15
Script 7:
Setvarrival 1
Fanfare 1500
Lockall
Faceplayer
Message 26 "\v0103\z0001’s mom: Let me think...
Knowing my boy, he would probably
head straight to Jubilife City...
OK, please take that to my
\v0103\z0001."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
CheckTime 32780
If 32780 0
CheckLR 1 func_16
If 32780 1
CheckLR 1 func_17
If 32780 2
CheckLR 1 func_17
If 32780 3
CheckLR 1 func_18
If 32780 4
CheckLR 1 func_18
End
Script 9:
Fanfare 1500
Lockall
Message 32 "Mom’s favorite dessert is in
the refrigerator."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Message 33 "Mom’s kitchen is spotless!
You can see your face on the floor!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Message 34 "This is where Mom does all her
delicious cooking."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
ChangeOwPosition 0 2 4
ReleaseOw 0 0
ChangeOwMovement 0 14
Killscript
Func 2:
Setflag 527
Killscript
Func 3:
Releaseall
End
Func 4:
Applymovement 255 mov_4
Applymovement 0 mov_5
Waitmovement
Setvarhero 0
Setvarrival 1
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR1 1 func_5
If 32780 0
CheckLR1 1 func_6
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Setflag 348
Message 35 "Mom: \v0103\z0000!
\v0103\z0001 came looking for you
a little while ago.
I don’t know what it was about, but
he was shouting about you needing\fto get on a ship at Snowpoint City.
You know how impatient he is.
He was gone before I could ask."
Killscript
Func 6:
Setflag 349
Message 36 "Mom: \v0103\z0000!
\v0103\z0001 came looking for you
a little while ago.
I don’t know what it was about, but
he was shouting about you needing\fto get on a ship at Snowpoint City.
You know how impatient he is.
He was gone before I could ask.
Anyway, how’s it going, kid?
Is your project with Professor Rowan
coming along?"
Killscript
Func 7:
Goto func_19
Releaseall
End
Func 8:
Setvarhero 0
Message 28 "Mom: Bye-bye, \v0103\z0000!
Enjoy your adventure!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Goto func_19
Setvarhero 0
Message 15 "Mom: What’s up, \v0103\z0000?
...
Wow. Professor Rowan asked you
to do something that big.
OK, dear, go for it!
Your mom’s got your back!
Oh, I know! \v0103\z0000, I’ve got
something that you’ll find useful."
Setvar 32772 433
Setvar 32773 1
Callstd 252 7
01CC
Message 16 "That’s a Journal. It keeps a record
of your daily events.
Check it, and you’ll be able to
remember what you did last."
CheckFacePosition 32775
If 32775 1
CheckLR 1 func_20
Jump func_21
Func 10:
Goto func_19
Releaseall
End
Func 11:
Message 10 "Mom: I’ll read you the instructions
for the Running Shoes...
“Press the B Button and dash
about faster than ever before!
“Put on the Running Shoes and
blaze new trails of adventure!”
Well, isn’t that just nifty!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
Setvarrival 0
Message 5 "Mom: What is it, dear?
Isn’t \v0103\z0000 waiting for you?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 13:
Setflag 248
Setvarhero 0
Message 2 "Mom: Bye-bye, \v0103\z0000!
You take care now!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Setvarrival 0
Message 1 "Mom: You know how impatient
\v0103\z0000 is.
He took off before I could even
ask what it was about."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 15:
Applymovement 255 mov_8
Applymovement 0 mov_9
Waitmovement
Jump func_22
Func 16:
Fanfare 1500
Lockall
Message 29 "MC: Here we are!
It’s the Contest Digest!
The winner of today’s Normal Rank
Cute Contest is...
Brooke, who entered a breathtakingly
cute Pokémon!
That’s all the time we have today!
Until next time!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 17:
Fanfare 1500
Lockall
Message 30 "MC: Here we are!
It’s the Contest Digest!
The winner of today’s Normal Rank
Smart Contest is...
Westley, who won with his bright spark
of a Pokémon!
That’s all the time we have today!
Let’s meet again!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 18:
Fanfare 1500
Lockall
Message 31 "MC: Here we are!
It’s the Contest Digest!
The winner of today’s Normal Rank
Tough Contest is...
Dominic, who overwhelmed with his
awesomely buffed Pokémon!
That’s all the time we have today!
Let’s meet again!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 19:
Setvarhero 0
CheckTime 32780
If 32780 0
CheckLR1 1 func_23
If 32780 1
CheckLR1 1 func_24
If 32780 2
CheckLR1 1 func_25
If 32780 3
CheckLR1 1 func_26
If 32780 4
CheckLR1 1 func_27
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Soundfr 1166
Fadedef
HealPkmn
Fadescreen 6 1 1 0
Resetscreen
Killscript
Func 20:
Applymovement 0 mov_10
Waitmovement
Jump func_28
Func 21:
Applymovement 0 mov_11
Waitmovement
Jump func_28
Func 22:
Setvar 16548 2
Setvarhero 0
Message 4 "Mom: Oh, yes!
\v0103\z0000!
Don’t go into the tall grass.
Wild Pokémon might attack you.
It would be OK if you had your own
Pokémon, but you don’t, so..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 23:
Message 11 "Mom: Welcome home, \v0103\z0000.
Are you and your Pokémon healthy?
It’s still early in the morning.
Take a quick rest, dear."
Killscript
Func 24:
Message 12 "Mom: Welcome home, \v0103\z0000.
Are you and your Pokémon healthy?\fTake a quick rest, dear."
Killscript
Func 25:
Message 12 "Mom: Welcome home, \v0103\z0000.
Are you and your Pokémon healthy?\fTake a quick rest, dear."
Killscript
Func 26:
Message 13 "Mom: Welcome home, \v0103\z0000.
Are you and your Pokémon healthy?
I just made dinner.
Take a quick rest, dear."
Killscript
Func 27:
Message 14 "Mom: Welcome home, \v0103\z0000.
Are you and your Pokémon healthy?
It’s so late right now...
Take a quick rest, dear."
Killscript
Func 28:
Message 17 "Gee, a journey full of adventure...
I envy you, kiddo.
Plus, you’re not alone.
You have your Pokémon with you.\fI wish I could go instead!"
Faceplayer
Setvarhero 0
Message 18 "I’m just joking, dear!
Yup, \v0103\z0000!
I’ll be all right by myself, so you
go and enjoy your adventure!
When you’re exposed to new things,
and experience new sensations...\fIt makes your mother happy too.
...But come back sometimes.
I would like to see the kinds of
Pokémon you’ve caught, dear."
CloseMsgOnKeyPress
Fanfare 1541
Clearflag 527
Addpeople 1
WaitFanfare 1541
Applymovement 0 mov_12
Applymovement 255 mov_13
Waitmovement
Applymovement 1 mov_14
Waitmovement
If 32775 0
CheckLR1 1 func_29
Setvarrival 1
Message 19 "\v0103\z0001’s mom: Excuse me.
Is my little \v0103\z0001 here?"
Applymovement 0 mov_15
Waitmovement
Message 20 "Mom: Oh?
No, he’s not..."
Setvarrival 1
Message 21 "\v0103\z0001’s mom: Oh...
Then, he must have left already...\fWhat to do...
That boy shouted about going on an
adventure, then he bolted.
He’s so headstrong and reckless...
I at least wanted him to take this..."
Setvarhero 0
Message 22 "Mom: Not to worry, \v0103\z0000 will
deliver that to him."
If 32775 0
CheckLR 1 func_30
If 32775 1
CheckLR 1 func_31
If 32775 2
CheckLR 1 func_32
If 32775 3
CheckLR 1 func_33
End
Func 29:
Applymovement 255 mov_16
Waitmovement
Killscript
Func 30:
Applymovement 0 mov_17
Applymovement 255 mov_18
Waitmovement
Jump func_34
Func 31:
Applymovement 0 mov_19
Applymovement 255 mov_20
Waitmovement
Jump func_34
Func 32:
Applymovement 0 mov_21
Applymovement 255 mov_22
Waitmovement
Jump func_34
Func 33:
Applymovement 0 mov_23
Applymovement 255 mov_24
Waitmovement
Jump func_34
Func 34:
Message 23 "Won’t you, \v0103\z0000?"
CloseMsgOnKeyPress
If 32775 0
CheckLR 1 func_35
If 32775 1
CheckLR 1 func_36
If 32775 2
CheckLR 1 func_37
If 32775 3
CheckLR 1 func_38
End
Func 35:
Applymovement 1 mov_25
Applymovement 255 mov_26
Waitmovement
Jump func_39
Func 36:
Applymovement 1 mov_27
Applymovement 255 mov_28
Waitmovement
Jump func_39
Func 37:
Applymovement 1 mov_29
Applymovement 255 mov_30
Waitmovement
Jump func_39
Func 38:
Applymovement 1 mov_31
Applymovement 255 mov_32
Waitmovement
Jump func_39
Func 39:
Setvarhero 0
Setvarrival 1
Checkgender 32780
If 32780 0
CheckLR 1 func_40
Jump func_41
Func 40:
Message 24 "\v0103\z0001’s mom: Oh, really?
You’d do that for me?
\v0103\z0000, please take this to
\v0103\z0001 for me."
Jump func_42
Func 41:
Message 25 "\v0103\z0001’s mom: Oh, really?
You’d do that for me?
\v0103\z0000, please take this to
\v0103\z0001 for me."
Jump func_42
Func 42:
Setvar 32772 459
Setvar 32773 1
Callstd 252 7
Setflag 143
Message 27 "Mom: Bye-bye, \v0103\z0000!
Enjoy your adventure!"
Setvarrival 1
Message 26 "\v0103\z0001’s mom: Let me think...
Knowing my boy, he would probably
head straight to Jubilife City...
OK, please take that to my
\v0103\z0001."
CloseMsgOnKeyPress
If 32775 0
CheckLR 1 func_43
If 32775 1
CheckLR 1 func_44
If 32775 2
CheckLR 1 func_45
If 32775 3
CheckLR 1 func_46
End
Func 43:
Applymovement 1 mov_33
Applymovement 255 mov_34
Waitmovement
Jump func_47
Func 44:
Applymovement 1 mov_35
Applymovement 255 mov_36
Applymovement 0 mov_37
Waitmovement
Jump func_47
Func 45:
Applymovement 1 mov_38
Applymovement 0 mov_39
Waitmovement
Jump func_47
Func 46:
Applymovement 1 mov_40
Applymovement 255 mov_41
Waitmovement
Jump func_47
Func 47:
Fanfare 1539
Removepeople 1
Setvar 16548 6
Releaseall
End
(415) T01R0202 Twinleaf Town R2-02
SCRIPT ORDER:
Script 3
Script 4
Script 2
Script 5
Script 1
Script 6
SCRIPTS:
Script 1:
If 16633 0
CheckLR 1 func_1
End
Script 2:
Lockall
Setvar 16633 1
Message 1 "That concludes our special report,
“Search for the Red GYARADOS!”
Brought to you by Jubilife TV on
Nationwide Net!"
Soundfr 1154
Message 2 "See you next week, same time,
same channel!"
Fadedef
CloseMsgOnKeyPress
Restart
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 5 "It’s a Wii!
It’s controlled by a Wii Remote!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Setvarhero 0
Message 6 "\v0103\z0000 checked the PC.
Pokémon Basics...
People live alongside Pokémon in
this world.
The people that battle Pokémon are
called Pokémon Trainers."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
ColorMsgBox 3 0
TypeMsgBox 3
NoMapMsgBox
CallTextMsgBox 4 32780
Callstd 208 7
End
Script 6:
Fanfare 1500
Lockall
Message 3 "The TV is showing the title screen
of a video game."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
0283 1030
0032
End
(416) T01R0301 Twinleaf Town R3-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
If 16533 1
CheckLR 4 func_1
Jump func_2
FUNCTIONS:
Func 1:
Message 1 "I went on an adventure with some
Pokémon a long time ago.
It was only to the next town,
though. Yeah, good times..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Setvarrival 0
Message 0 "You’re off to hang with \v0103\z0000
again, right? You two sure are tight!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(417) T01R0401 Twinleaf Town R4-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 144
CheckLR 1 func_1
Message 0 "Did you hear?
The Pokémon Professor returned
to the next town over.
They say he was gone for four long
years.
I wonder if he found some amazing
Pokémon while he was gone?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Setvarhero 0
Checkflag 144
CheckLR 1 func_2
Message 2 "Listen, listen, \v0103\z0000.
I want a cute Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Well! Professor Rowan gave you a
Pokédex, did he?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 3 "Listen, listen, \v0103\z0000.
Do you think I can be friends with
Pokémon like you are?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(418) T02 Sandgem Town
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
SCRIPTS:
Script 1:
If 16497 1
CheckLR1 1 func_1
Checkgender 16384
If 16384 0
CheckLR 1 func_2
If 16384 1
CheckLR 1 func_3
End
Script 2:
Lockall
Applymovement 4 mov_1
Waitmovement
CheckHiroPosition 32772 32773
If 32773 843
CheckLR 1 func_4
If 32773 844
CheckLR 1 func_5
If 32773 845
CheckLR 1 func_6
If 32773 846
CheckLR 1 func_7
If 32773 847
CheckLR 1 func_8
If 32773 848
CheckLR 1 func_9
End
Script 3:
Lockall
Applymovement 4 mov_2
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_10
If 32780 1
CheckLR 1 func_11
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 17 "Oh, wow!
Pokémon are so cool!
You can make yours battle and make
them stronger!
I wish I had some!
It’s so cool!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 18 "That thing you have!
It’s a Pokédex, isn’t it?!
You’re off to see all kinds of
Pokémon now! Lucky you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 19 "So I don’t forget what’s happened,
till now, I’d better save this...
There!
Now I can take a break."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 20 "Professor Rowan’s come back to town!
It must be, like, four years since
he left.
They say he was doing his research
somewhere else all this time."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
CallMsgBox 21 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 9:
CallMsgBox 534 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 10:
Setvaralter 0
CallMsgBox 535 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 11:
CallMsgBox 536 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 12:
CallMsgBox 537 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
ChangeOwPosition 4 168 845
ReleaseOw 4 0
ChangeOwMovement 4 14
Killscript
Func 2:
Setvar 16416 97
End
Func 3:
Setvar 16416 0
End
Func 4:
Applymovement 4 mov_3
Applymovement 255 mov_4
Waitmovement
Jump func_12
Func 5:
Applymovement 4 mov_5
Waitmovement
Jump func_12
Func 6:
Applymovement 4 mov_6
Waitmovement
Jump func_12
Func 7:
Applymovement 4 mov_7
Applymovement 255 mov_8
Waitmovement
Jump func_12
Func 8:
Applymovement 4 mov_9
Applymovement 255 mov_10
Waitmovement
Jump func_12
Func 9:
Applymovement 4 mov_11
Applymovement 255 mov_12
Waitmovement
Jump func_12
Func 10:
Setvaralter 0
Setvarhero 1
Message 8 "Dawn: OK, \v0103\z0001, I’ll act as
your mentor.
I’ve got a bit more experience than
you as a Trainer and as the\fprofessor’s assistant.
OK, follow me!"
Jump func_13
Func 11:
Setvaralter 0
Setvarhero 1
Message 13 "\v0103\z0000: Hey, \v0103\z0001!
I want to show you a few things.\fSo, follow me!"
Jump func_13
Func 12:
Checkgender 32780
If 32780 0
CheckLR 1 func_14
If 32780 1
CheckLR 1 func_15
End
Func 13:
CloseMsgOnKeyPress
Callstd 0 8
Applymovement 4 mov_13
Applymovement 255 mov_14
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_16
If 32780 1
CheckLR 1 func_17
End
Func 14:
Setvaralter 0
Message 0 "Dawn: Oh! There you are!
Please, come with me!\fThe professor is waiting!"
Jump func_18
Func 15:
Setvaralter 0
Message 2 "Lucas: Hi! I’ve been waiting for you!
Please, come with me.\fThe prof’s waiting to see you."
Jump func_18
Func 16:
Setvaralter 0
Setvarhero 1
Message 9 "This building with the red roof is
the Pokémon Center.
It’s the place that heals Pokémon
that have been hurt in battle.
You can find a Pokémon Center in
most towns."
Jump func_19
Func 17:
Setvaralter 0
Setvarhero 1
Message 14 "This building with the red roof is
the Pokémon Center.
You can get your Pokémon healed if
it’s been hurt in battle.
You’ll find a Pokémon Center in most
towns."
Jump func_19
Func 18:
CloseMsgOnKeyPress
If 32773 843
CheckLR 1 func_20
If 32773 844
CheckLR 1 func_21
If 32773 845
CheckLR 1 func_22
If 32773 846
CheckLR 1 func_23
If 32773 847
CheckLR 1 func_24
If 32773 848
CheckLR 1 func_25
End
Func 19:
CloseMsgOnKeyPress
Applymovement 4 mov_15
Applymovement 255 mov_16
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_26
If 32780 1
CheckLR 1 func_27
End
Func 20:
Applymovement 4 mov_17
Applymovement 255 mov_18
Waitmovement
Jump func_28
Func 21:
Applymovement 4 mov_19
Applymovement 255 mov_20
Waitmovement
Jump func_28
Func 22:
Applymovement 4 mov_21
Applymovement 255 mov_22
Waitmovement
Jump func_28
Func 23:
Applymovement 4 mov_23
Applymovement 255 mov_24
Waitmovement
Jump func_28
Func 24:
Applymovement 4 mov_25
Applymovement 255 mov_26
Waitmovement
Jump func_28
Func 25:
Applymovement 4 mov_27
Applymovement 255 mov_28
Waitmovement
Jump func_28
Func 26:
Setvarhero 0
Message 10 "The building with the blue roof over
here is the Poké Mart.
It’s a shop where you can buy and
sell items and medicine.
\v0103\z0000, since you’re a novice
Trainer, you won’t be able to buy\fmany kinds of merchandise.
Don’t let it bother you!"
Jump func_29
Func 27:
Setvarhero 0
Message 15 "Over here, the building with the blue
roof is the Poké Mart.
It’s a shop where you can buy and
sell all sorts of items.
\v0103\z0000, since you’re a rookie
Trainer, you won’t be able to buy\fvery much stuff.
Don’t worry about it, OK?"
Jump func_29
Func 28:
Checkgender 32780
If 32780 0
CheckLR 1 func_30
If 32780 1
CheckLR 1 func_31
End
Func 29:
CloseMsgOnKeyPress
Applymovement 4 mov_29
Applymovement 255 mov_30
Waitmovement
Applymovement 4 mov_31
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_32
If 32780 1
CheckLR 1 func_33
End
Func 30:
Message 1 "This is it!
Our Pokémon Research Lab!
Let’s go..."
Jump func_34
Func 31:
Message 3 "See? This is our Pokémon Research
Lab.
We’ll just go ahead and..."
Jump func_34
Func 32:
Setvarhero 1
Message 11 "Oh, that’s right!
\v0103\z0000...
Don’t you need to let your family
know that you’re going to be helping\fProf. Rowan with the Pokédex?
You may need to go far away, so I
think you should let someone know.
Oh, but before you go, heal up your
Pokémon at the Poké Center.
It will be a lot less scary that way.
OK, bye now!"
Jump func_35
Func 33:
Setvarhero 1
Message 16 "Oh, yeah, right!
\v0103\z0000...
You should let your family know
you’re helping Prof. Rowan put\ftogether his Pokédex.
Sometimes, you have to go far away,
so you should let someone know.
Oh, but first, go heal up your
Pokémon at the Poké Center.
You’ll be safe then.
OK, be seeing you!"
Jump func_35
Func 34:
PrpDoorAnm 5 26 8 10 77
Opendoor 77
Waitaction 77
Clearflag 437
Addpeople 3
Applymovement 3 mov_32
Waitmovement
Applymovement 3 mov_33
Waitmovement
Fanfare 1538
Message 4 "\vFF01\z00C8Thud!!\vFF01\z0064"
Applymovement 3 mov_34
Waitmovement
Setvarrival 0
Setvarhero 1
Message 5 "\v0103\z0000: What the...
Oh, it’s you, \v0103\z0001!
That old guy... He’s not scary so
much as he is totally out there!
Aww, it doesn’t matter, \v0103\z0001.
I’m out of here. See you later!"
CloseMsgOnKeyPress
Applymovement 255 mov_35
Applymovement 4 mov_36
Applymovement 3 mov_37
Waitmovement
Removepeople 3
Checkgender 32780
If 32780 0
CheckLR 1 func_36
If 32780 1
CheckLR 1 func_37
End
Func 35:
CloseMsgOnKeyPress
Applymovement 4 mov_38
Applymovement 255 mov_39
Waitmovement
Callstd 1 8
Removepeople 4
Setvar 16497 2
Releaseall
End
Func 36:
Setvaralter 0
Message 6 "Dawn: Wow, what was that?
Your friend sure seems to be really
impatient.
Well, anyway...
Let’s go inside."
Jump func_38
Func 37:
Setvaralter 0
Message 7 "Lucas: What was that?!
Your friend always seems to be
in such a rush.
Anyway...
Let’s go in."
Jump func_38
Func 38:
CloseMsgOnKeyPress
Applymovement 4 mov_40
Applymovement 255 mov_41
Waitmovement
Closedoor 77
Waitaction 77
Waitclose 77
Removepeople 4
Setvar 16497 1
Fadescreen 6 1 0 0
Resetscreen
Warp 422 0 7 15 0
Fadescreen 6 1 1 0
Resetscreen
End
(419) T02FS0101 Sandgem Town Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 0
Releaseall
End
Script 2:
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "If a Pokémon loses all its HP,
it can’t battle anymore.
I’m buying lots of Potions to avoid
having that happen!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "If you come across a Pokémon you’ve
just gotta have, toss a Poké Ball!
Never leave home without one!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(420) T02PC0101 Sandgem Town Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 32775 3
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Talk to that nice lady at the counter
and hand her your Pokémon.
She’ll heal your Pokémon to perfect
health in no time at all!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Do you see that PC over there?
That fancy blue one?
If you’ve got Pokémon with you,
it’s free to use."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 2 "The top floor of any Pokémon Center
is the Pokémon Communication Club.
There, you can have all sorts of fun
with your friends."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(421) T02PC0102 Sandgem Town Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I hope I can draw a cool
Trainer’s sign."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(422) T02R0101 Sandgem Town R1-01
SCRIPT ORDER:
Script 1
Script 4
Script 2
Script 3
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 12
Script 13
Script 14
SCRIPTS:
Script 1:
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR 1 func_1
Checkflag 2490
CheckLR 0 func_2
CheckSinPokedex 32780
If 32780 1
CheckLR 1 func_3
If 16497 2
CheckLR 4 func_4
Setvarhero 0
Message 18 "Rowan: Go on!
\v0103\z0000, your grand adventure
awaits you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
End
Script 4:
Lockall
Applymovement 3 mov_1
Applymovement 255 mov_2
Waitmovement
Setvarhero 0
Message 0 "Professor: ...
Finally, you’ve come.
\v0103\z0000, was it?
Let me see your Pokémon again."
Applymovement 0 mov_3
Waitmovement
Setvar 32772 0
CheckPokeEgg 32772 32780
Copyvar 32776 32780
If 32776 387
CheckLR 1 func_5
If 32776 390
CheckLR 1 func_5
If 32776 393
CheckLR 1 func_5
Jump func_6
Script 5:
Fanfare 1500
Lockall
Faceplayer
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR 1 func_7
Setvaralter 0
Message 21 "I’m \v0103\z0000’s father.
I’ll be happy to assist you on your
quest for the professor.
Hahaha. Eh...
I’m sure we can count on you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR 1 func_8
Message 22 "Professor Rowan invented a new
Pokédex while working alongside a
professor from the Kanto region!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 23 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Message 24 "Adventure Rule No. 1
The X Button opens the menu."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Message 25 "Adventure Rule No. 2
Record your progress with SAVE."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Message 26 "It’s crammed full of books with all
sorts of Pokémon information."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Message 27 "There’s a lot of reference material
and research reports on Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 12:
Setvarhero 0
Fanfare 1500
Lockall
Message 47 "\v0103\z0000 checked the PC.
The screen is filled with special terms
and academic writing that is impossible
to figure out."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
Fanfare 1500
Lockall
Message 48 "Research materials are carefully
tucked away."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 14:
Fanfare 1500
Lockall
Message 49 "The refrigerator is filled with
tasty sweets! Mmm..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 46 "Rowan: The world is immense.
There are many more Pokémon.
That means there are many more
thrills for you to seek and enjoy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
If 16497 2
CheckLR 4 func_4
Setvarhero 0
Message 18 "Rowan: Go on!
\v0103\z0000, your grand adventure
awaits you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Checkflag 272
CheckLR 1 func_9
Jump func_10
Func 4:
Callstd 222 38
End
Func 5:
Message 1 "...
Hmm...
I see...
This Pokémon seems to be rather
happy."
Jump func_11
Func 6:
Message 2 "Well well!
You’ve made your Pokémon evolve
already?!"
Jump func_11
Func 7:
Setvaralter 0
Message 50 "It’s really quite something!
Imagine... Cataloging every kind of
Pokémon in the Sinnoh region!
And in complete contrast, there’s
\v0103\z0000...
Anyway, you’ve been great for the
prof’s Pokémon-evolution research!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 51 "Yes, that’s correct.
Professor Rowan has been studying
Pokédex systems with Professor Oak.
Professor Oak is Professor Rowan’s
junior in terms of seniority."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Setvarhero 0
Message 32 "Rowan: Hm! \v0103\z0000, I’ve been
waiting to see you!
You’ve met every kind of Pokémon
there is in the Sinnoh region!
This will help immensely with my
studies on Pokémon evolution..."
CloseMsgOnKeyPress
Jump func_12
Func 10:
Setvarhero 0
Message 28 "Rowan: Ah, \v0103\z0000!
You’ve come to show me your
progress on the Pokédex?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_13
Jump func_14
Func 11:
Setvarpoke 0 0
Message 3 "All righty then!
I’ll give that \v0100\z0000 to you as
a gift."
Message 4 "Professor: Now that it’s yours, would
you like to give it a nickname?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_15
Jump func_16
Func 12:
CheckFacePosition 32775
If 32775 0
CheckLR1 1 func_17
If 32775 1
CheckLR1 1 func_18
If 32775 2
CheckLR1 1 func_19
If 32775 3
CheckLR1 1 func_20
Clearflag 584
Addpeople 4
Applymovement 255 mov_4
Applymovement 4 mov_5
Applymovement 0 mov_6
Waitmovement
Message 33 "Oak: Greetings, Professor Rowan!
It’s been a very long time!
I’ll tell you, Sinnoh certainly is
a long trip from Kanto.
Of course, if it means meeting new
Pokémon, there’s no distance too\fgreat for the likes of us to travel."
Message 34 "Rowan: Oh! If it isn’t my old
colleague, Professor Oak!
I should have expected as much from
the world’s authority on Pokémon!
We always used to joke, “Where
there are Pokémon, you’ll find Oak!”
It’s good to see that hasn’t changed
one bit!"
CloseMsgOnKeyPress
Applymovement 0 mov_7
Waitmovement
Return 15 32780
Message 35 "Professor Oak, let me introduce you
to my young assistant.
This youngster has filled every page
of the Sinnoh Pokédex for me."
CloseMsgOnKeyPress
Applymovement 4 mov_8
Applymovement 255 mov_9
Waitmovement
Message 36 "Oak: Ah, well, very glad to meet you!
As you’ve heard, my name is Oak.
I’ve been hearing a great deal about
you from Professor Rowan lately.
He’s been exuberant in praise about
a fantastic young Trainer.
I see that you live up to--no--that
you’ve surpassed his praise.
You’ve also got an impeccable sense
of timing.
You see, I had an errand to run for
Professor Rowan on my visit here.
He’d asked me to bring the data
for the National Pokédex, you see.
So, since you’re here, let me upgrade
your Pokédex with the National Mode.
After all, there are many kinds of
Pokémon in this world of ours!"
Checkflag 2404
CheckLR1 1 func_21
Clearflag 538
Setflag 690
CheckNatPokedexStatus 1 32780
Setvarhero 0
Soundfr 1158
Message 37 "\v0103\z0000’s Pokédex was upgraded
with the National Mode!"
Fadedef
Message 38 "Oak: I’m afraid it won’t be easy to
complete the National Pokédex.
However, I’m sure you will make an
honest attempt on our behalf!"
Message 39 "Rowan: Have no fear, \v0103\z0000
will get the job done.
By the way, Professor Oak, what
compelled you to visit this region?"
Message 40 "Oak: Ah, yes. I’ve heard that the
Pal Park is now open.
If I remember correctly, it’s at the
end of Route 221.
The Pal Park has a special system
that attracts every imaginable kind\fof Pokémon from every region.
I’ve come to make certain that
system is operating properly."
Setvarhero 0
Checkgender 32772
If 32772 0
CheckLR1 1 func_22
If 32772 1
CheckLR1 1 func_23
CloseMsgOnKeyPress
Applymovement 4 mov_10
Waitmovement
Removepeople 4
Message 43 "Rowan: Off he goes, as busy as
ever..."
CloseMsgOnKeyPress
Return 15 32780
Applymovement 255 mov_11
Waitmovement
Setvarhero 0
Message 44 "Now, \v0103\z0000...
I have a gift here as your reward
for completing the Sinnoh Pokédex."
Setvar 32772 431
Setvar 32773 1
Callstd 252 7
Message 45 "Rowan: That’s the Pokémon Radar,
or just Poké Radar for short.
Use it, and it will indicate grass
patches where Pokémon are lurking.
I’d prepared that to help my field
assistants put together the Sinnoh\fPokédex, but you took care of that!
I’m sure it will be useful for your
goal of filling the National Pokédex."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 13:
Message 30 "What’s wrong?
You’re not going to tell me you’ve
seen too few to bother showing me?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
StoreSinPokemonSeen 32780
Setvarnum 0 32780
Message 29 "Hmm...
So, you’ve seen \v0134\z0000 Pokémon."
Setvarhero 0
Message 31 "Bravo, \v0103\z0000!
You’ve recorded all the Pokémon of
Sinnoh in your Pokédex!
This will help immeasurably with my
studies on Pokémon evolution..."
CloseMsgOnKeyPress
Jump func_12
Func 15:
Setvarpoke 0 0
Setvarrival 1
Message 6 "Professor: Your friend \v0103\z0001
told me what happened at the lake.
I heard you battled very well,
despite it being your first time.
And, from what I can see, there is
a growing bond between you and that\fPokémon, though it is still young.
That’s why I would like to entrust
you with \v0100\z0000."
CloseMsgOnKeyPress
Applymovement 3 mov_12
Waitmovement
Applymovement 255 mov_13
Waitmovement
Return 15 32780
Checkgender 32780
If 32780 0
CheckLR 1 func_24
Jump func_25
Func 16:
Setvar 32780 0
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
ChoosePokeNick 0 32780
Fadescreen 6 1 1 0
Resetscreen
Message 5 "Professor: Hmm, OK, I see...
And you’re happy with that nickname?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_16
Jump func_15
Func 17:
Killscript
Func 18:
Applymovement 255 mov_14
Applymovement 0 mov_15
Waitmovement
Killscript
Func 19:
Applymovement 255 mov_16
Applymovement 0 mov_15
Waitmovement
Killscript
Func 20:
Applymovement 255 mov_17
Applymovement 0 mov_15
Waitmovement
Killscript
Func 21:
ShayminAnm 2 1
Killscript
Func 22:
Message 41 "\v0103\z0000, you should make an
effort to visit the Pal Park, too.
Oops! I’ll be late for my meeting if
I don’t get going!
OK, it was a pleasure seeing the both
of you! Bye, now!"
Killscript
Func 23:
Message 42 "\v0103\z0000, you should make an
effort to visit the Pal Park, too.
Oops! I’ll be late for my meeting if
I don’t get going!
OK, it was a pleasure seeing the both
of you! Bye, now!"
Killscript
Func 24:
Setvaralter 0
Message 7 "Dawn: I’m so glad that you’re kind
toward Pokémon!
If you weren’t, I’d have to...
Oh, I just can’t say it..."
CloseMsgOnKeyPress
Applymovement 3 mov_18
Waitmovement
Jump func_26
Func 25:
Setvaralter 0
Message 8 "Lucas: Boy, am I glad you’re kind
toward Pokémon.
If you weren’t, well...
I don’t even want to think about it."
CloseMsgOnKeyPress
Applymovement 3 mov_18
Waitmovement
Jump func_26
Func 26:
SwitchMusic 0 40
Applymovement 0 mov_19
Applymovement 255 mov_20
Waitmovement
Return 35 32780
Setflag 2451
PlaySound 1098
Message 9 "Professor: Er-hem!
Let’s move on to the main topic.
There is something I want you
to do for me."
Message 10 "My name is Rowan.
I study Pokémon.
First of all, I want to know exactly
what kinds of Pokémon live in the\fSinnoh region.
To do so, it is necessary to collect
data using the Pokédex.
This is what I wish to ask of you.
I want to entrust you with this
Pokédex.
Will you use it to record data on all
the Pokémon in Sinnoh for me?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_27
Jump func_28
Func 27:
Setvarhero 0
Message 11 "Rowan: ...
...
...
...
I can stand here without speaking for
hours. I’m a very patient man.
Let me ask you again, \v0103\z0000.
I want to entrust you with this
Pokédex.
Will you use it to record data on all
the Pokémon in Sinnoh for me?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_27
Jump func_28
Func 28:
Message 12 "Rowan: Hm!
Good answer!"
ActPokedex
Setflag 144
Setvarhero 0
Message 13 "\v0103\z0000 obtained
the \vFF00\z0001Pokédex\vFF00\z0000!"
Soundfr 1158
Fadedef
Setvarhero 0
Message 14 "Rowan: That Pokédex is a very
high-tech device.
It will automatically record data on
every kind of Pokémon you encounter.
\v0103\z0000, I ask that you go
everywhere and meet every kind of\fPokémon in this region!"
CloseMsgOnKeyPress
Applymovement 3 mov_21
Waitmovement
Return 15 32780
Checkgender 32780
If 32780 0
CheckLR 1 func_29
Jump func_30
Func 29:
Setvaralter 0
Message 15 "Dawn: I’ve got one, too!"
Jump func_31
Func 30:
Setvaralter 0
Message 16 "Lucas: I’ve got the same kind of
Pokédex as you."
Jump func_31
Func 31:
Setvarhero 0
Message 17 "Rowan: When you walked up Route 201
with your Pokémon, what did you feel?
I’ve lived for 60 long years.
Even now, I get a thrill when
I’m with a Pokémon.
Now, you should know that there are
countless Pokémon in this world.
That means there are just as many
thrills waiting for you out there!
Now go!
\v0103\z0000, your grand adventure
begins right now!"
CloseMsgOnKeyPress
Applymovement 3 mov_21
Waitmovement
Applymovement 255 mov_13
Waitmovement
Checkgender 32780
If 32780 0
CheckLR 1 func_32
Jump func_33
Func 32:
Setvarhero 0
FlorarClckAnm
Func 33:
Setvarhero 0
Setvarstrrival 1
Message 20 "Lucas: The professor asked me to
help, so I’m going to go out and fill\fthe Pokédex pages, too.
That makes us comrades working
toward the same goal.
I’ll teach you stuff later, OK?"
Jump func_34
Func 34:
CloseMsgOnKeyPress
Applymovement 255 mov_22
Applymovement 3 mov_23
Waitmovement
Removepeople 3
Clearflag 405
Setvar 16550 1
Releaseall
End
(423) T02R0201 Sandgem Town R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR 1 func_1
Message 0 "Ah, so that Rowan fellow is back?
He’s quite the remarkable man.
He’s been studying Pokémon since way,
way back.
My son and grandchild help Rowan
with his studies now."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
CheckNatPokedexStatus 2 32780
If 32780 1
CheckLR 1 func_2
Jump func_3
FUNCTIONS:
Func 1:
Message 1 "Oh, my!
You’ve got a National Pokédex?\fHow fantastic is that?!
Rowan should be delighted.
It will greatly help his research.
But, young Trainer...
You should know this.
In this world, there are 300...
No, 400...
No, no, no! There’re a lot more
kinds of Pokémon than that!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Checkflag 2404
CheckLR 0 func_3
Checkflag 240
CheckLR 1 func_4
Setflag 240
021B
Setvarhero 0
Message 4 "Oh, hi, \v0103\z0000!
There was news on TV saying there
is a massive outbreak of Pokémon!
That’d be great for filling up your
Pokédex!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Checkgender 32780
If 32780 0
CheckLR 1 func_5
If 32780 1
CheckLR 1 func_6
End
Func 4:
Setvarhero 0
CheckSwarmPoke 16385 16384
SetvarSwarmPoke 1 16385
Setvarpokestored 2 16384 0 1
Checkgender 32780
If 32780 0
CheckLR 1 func_7
If 32780 1
CheckLR 1 func_8
End
Func 5:
Setvarhero 0
Message 2 "Who are you?
...
Oh...
You’re \v0103\z0000?
Hey, you’re doing that Pokédex thingy
for the professor!
Wow! That’s the same as my big
sister! Go for it!"
Jump func_9
Func 6:
Setvarhero 0
Message 3 "Who are you?
...
Oh...
You’re \v0103\z0000?
You’re doing that Pokédex thingy
for the professor!
Wow! That’s the same as my big
brother! Go for it!"
Jump func_9
Func 7:
Message 5 "Let me see...
What did that news say now...?
\v0104\z0001! They said there’s
a whole bunch of \v0100\z0002 there!
\v0103\z0000, you have to hurry!
I want you to do better than my
sister Dawn!"
Jump func_10
Func 8:
Setvarhero 0
Message 6 "Let me see...
What did that news say now...?
\v0104\z0001! They said there’s
a whole bunch of \v0100\z0002 there!
\v0103\z0000, you have to hurry!
I want you to do better than my
brother Lucas!"
Jump func_10
Func 9:
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(424) T02R0202 Sandgem Town R2-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Message 0 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Setvarhero 0
Message 1 "\v0103\z0000 checked the PC screen.
Adventure Rule No. 1
The X Button opens the menu!
Adventure Rule No. 2
Record your progress with SAVE.
There is nothing else on here..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(425) T02R0301 Sandgem Town R3-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Pokémon grow steadily stronger from
battling against other Pokémon.
At first, you should heal your
Pokémon regularly at Poké Centers
while you’re leveling them up."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "A good Trainer is one that takes care
not to let their Pokémon faint from
losing HP."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(426) T03 Floaroma Town
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
SCRIPTS:
Script 1:
End
Script 2:
Lockall
CheckHiroPosition 32772 32773
If 32772 170
CheckLR 1 func_1
If 32772 171
CheckLR 1 func_2
If 32772 172
CheckLR 1 func_3
End
Script 3:
Fanfare 1500
Lockall
Applymovement 7 mov_1
Waitmovement
Message 5 "Grunt 1: Aren’t we Team Galactic?
And we’re assigned here?
Standing around among flowers...
This doesn’t seem all that cool."
CloseMsgOnKeyPress
Applymovement 8 mov_2
Waitmovement
Message 6 "Grunt 2: Hey now! Don’t complain.
This is a pretty decent assignment.
But Bug- and Grass-type
Pokémon so creep me out...
I don’t like being here either."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
If 16591 2
CheckLR 4 func_4
Message 7 "I wanted to get some flowers from
the Floaroma Meadow...
But some Team Galactic guys in
snazzy outfits came along..."
Applymovement 2 mov_3
Waitmovement
Message 8 "Those Galactic guys went to the
meadow past these flowers here..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 10 "I simply love it here...
The atmosphere is so uplifting.
You came to get emotionally healed
too, didn’t you?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 11 "Welcome to Floaroma, the town of
flowers, flowers, and more flowers!
You should plant some flowers of
your own, too. Yay for flowers!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 12 "The Berries you pick can be used as
food for Pokémon.
You can also exchange them at
the florist’s for Accessories to
dress up your Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 13 "I got drawn here by the sweet scent
of Honey...
Seriously, what’s that? What am I?
A Pokémon or something? Mmm... Honey."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
CallMsgBox 14 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 10:
CallMsgBox 527 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 11:
CallMsgBox 528 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
Applymovement 3 mov_4
Waitmovement
Jump func_5
Func 2:
Applymovement 3 mov_5
Waitmovement
Jump func_5
Func 3:
Applymovement 3 mov_6
Waitmovement
Jump func_5
Func 4:
Message 9 "Being surrounded by flowers puts me
in an oddly pleasant mood."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 0 "Ah, you have a Pokétch?
You will find it indispensable.
Science will become increasingly
necessary in the world of Pokémon."
Message 1 "My name is Cyrus.
I am but another human seeking to
become Sinnoh’s greatest Trainer.
If you’re also a Trainer, then do
your best to gain power.
Be all that you can become."
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32772 170
CheckLR 1 func_6
If 32772 171
CheckLR 1 func_7
If 32772 172
CheckLR 1 func_8
End
Func 6:
Applymovement 3 mov_7
Waitmovement
Jump func_9
Func 7:
Applymovement 3 mov_8
Waitmovement
Jump func_9
Func 8:
Applymovement 3 mov_9
Waitmovement
Jump func_9
Func 9:
Removepeople 3
Setvar 16498 1
Releaseall
End
(427) T03FS0101 Floaroma Town Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 2
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’m going to dress up my Pokémon with
cute Accessories and take it to the
TV station in Jubilife City.
That way, everyone in the region
will be able to see my Pokémon!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "You can’t buy Berries or Accessories
at Poké Marts."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(428) T03PC0101 Floaroma Town Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 32775 2
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "If you’ve got Pokémon with you,
it’s safe for even a kid like you
to go off traveling alone."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I had a battle the other day,
and my Pokémon’s HP got low,
and I thought we were done for,
and then, all of a sudden, my Pokémon
ate the Berry it was holding! Whew!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 2 "We’re kinda close to Eterna City,
but it’s still quite far away.
You should be prepared for a long
journey."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(429) T03PC0102 Floaroma Town Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(430) T03R0101 Floaroma Town R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2730
CheckLR 1 func_1
Message 0 "A single Berry will grow into a plant
that makes several Berries.
By planting one, there will be more
and more Berries in the world.
I hope you will help us spread more
Berries everywhere!"
CheckIdPlayer 32772 5
Setvalue 32772 149
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Setflag 2730
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 128
CheckLR 1 func_3
Message 2 "Trainer, please water Berries using
this Sprayduck watering can."
Setvar 32772 448
Setvar 32773 1
Setflag 128
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
SprtSave
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Please come by again tomorrow.
I’ll pick a different Berry for you.
Please plant that Berry in soft,
earthy soil!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 3 "Use that Sprayduck to water the soil
where you’ve planted Berries.
You should also water Berry plants
while they are growing."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(431) T03R0201 Floaroma Town R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Some kinds of Pokémon appear only
if they’re attracted by the sweet
scent of Honey."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Pokémon must have an acute sense
of smell.
They can sense the aroma of Honey
from very far away."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(432) T03R0301 Floaroma Town R3-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Floaroma Town was a barren, desolate
hill long ago.
People started planting flowers on it
because it was such a sad place.
But nothing would grow...
People didn’t know what to do...
And then one day, someone expressed
thanks for the blessings of nature.
Then, the whole hill burst into bloom.
Isn’t that strange and wonderful?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 131
CheckLR 1 func_1
Message 1 "Do you think it’s cute how
Pokémon pluck Berries?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_2
If 32780 1
CheckLR 1 func_3
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 35 0
Message 5 "CLEFAIRY: Rii?"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 4 "When a Pokémon uses Pluck, it eats
a Berry held by its foe in battle.
I like how it steals a Berry.
It’s so cute!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 2 "Yes! You agreed!
Here’s the TM for the move Pluck!"
Setvar 32772 415
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_4
Setflag 131
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 3 "Oh...
I guess I just like weird things..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(433) T04 Solaceon Town
SCRIPT ORDER:
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
Script 2
Script 1
SCRIPTS:
Script 1:
End
Script 2:
Setflag 412
CheckStatusSolaceonEvent? 16384
If 16384 0
CheckLR 5 func_1
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Breathing in this refreshing air...
It even perks up Pokémon!
That’s why I’m out here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkbadge 4 32780
If 32780 1
CheckLR 1 func_2
Message 1 "Howdy, traveling Trainer.
There’s no Gym in this town. You’ll
be wanting Veilstone or Pastoria."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 3 "I’m too little, so I don’t know
how to battle very good.
The nice Day-Care Lady is raising
my Pokémon for me."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 4 "Every Sunday, I visit the Lost
Tower..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 5 "There used to be nothing here but
a road that went straight through.
Over time, Pokémon and people just
gathered, and the town came to be."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
StorePktchAppl 9 32780
If 32780 1
CheckLR 1 func_3
StoreSinPokemonSeen 32780
If 32780 50
CheckLR 0 func_4
Message 7 "Your encounters with Pokémon can
be considered your shared history.
This here’s a Pokétch app called
Pokémon History.
Use it to see your history of
Pokémon catches."
Setvar 32772 9
Callstd 217 7
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
CallMsgBox 9 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 10:
CallMsgBox 522 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 11:
CallMsgBox 523 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
ReleaseOw 3 3
End
Func 2:
Message 2 "Howdy, traveling Trainer.
Take it easy, slow, and casual."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 8 "You have your history, and every
Pokémon has their own history.
When the two collide, new drama
is born."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 6 "A traveling Trainer, huh?
Tell me, how many kinds of Pokémon
have you met so far?
If you’re a competent Trainer, I’d
think you’d’ve met at least fifty.
If you haven’t, you ought to go
farther abroad and look harder."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(434) T04FS0101 Solaceon Town Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 6
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Someone gave me a Seal Case, but
I can’t buy any Seals here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "If you use a Repel, it keeps weak
Pokémon away from you.
It’s useful if you need to get
somewhere in a hurry."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(435) T04PC0101 Solaceon Town Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setvar 32775 0
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The Day-Care Man was saying Pokémon
grow at different rates."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "It’s a fair distance from Solaceon
Town to Veilstone City.
I suppose you can rest at the cafe,
but that place..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(436) T04PC0102 Solaceon Town Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(437) T04R0101 Solaceon Town R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Checkflag 254
CheckLR1 1 func_1
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
StorePktchAppl 8 32780
If 32780 1
CheckLR 1 func_2
Message 0 "Are you a fan of the Day-Care
Couple like me?
I got hold of something quite useful.
It’s the latest Pokétch app from
the Pokétch Company.
What’s more, they developed it in
collaboration with the Day Care.
Since you’re a fellow fan of the Day
Care, I’m compelled to share this!"
Setvar 32772 8
Callstd 217 7
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 2 "Your bond with your Pokémon will
deepen as you travel together."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Clearflag 495
Killscript
Func 2:
Message 1 "With that Day-Care Checker, you can
check on the Pokémon that you’ve\fleft with the Day-Care Couple.
But I haven’t been able to leave
my Pokémon... So here I stay..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(438) T04R0201 Solaceon Town R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckFirstPokeParty 32780
StorePokeNature 32772 32780
SetNaturePokemon 0 32772
Message 0 "Your Pokémon has a
\v0107\z0000 nature?
Did you know that a Pokémon’s nature
determines how it will grow?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "This area had many Pokémon from
the olden days.
They say there were big Pokémon
ranches ’round these parts."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(439) T04R0301 Solaceon Town R3-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 220
CheckLR 1 func_1
Checkflag 2737
CheckLR 1 func_2
Checkflag 216
CheckLR 0 func_3
If 16613 0
CheckLR 1 func_4
Jump func_5
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 11 "The Sinnoh region’s newspaper is
tiny, but it has many fans.
That newspaper is printed right
here!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 12 "“Weekly Poké Ball Roundup”
is the featured top story.
It’s a feature article on new types
of Poké Balls."
Message 13 "Which article would you like to read?"
Multi 18 1 0 1 32780
ChoiceMulti 263 0
ChoiceMulti 264 1
ChoiceMulti 265 2
ChoiceMulti 266 3
CloseMulti
Copyvar 32776 32780
If 32776 0
CheckLR 1 func_6
If 32776 1
CheckLR 1 func_7
If 32776 2
CheckLR 1 func_8
Jump func_9
FUNCTIONS:
Func 1:
Copyvar 32772 16663
Setvar 32773 3
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_10
If 32780 0
CheckLR 5 func_11
End
Func 2:
Message 10 "OK! I’ll crank out a riveting story
based on this!
Oh, right! I’ll have another
assignment for you tomorrow!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Setflag 216
Message 0 "Oh?
Welcome!
You saw the notice outside about
us hiring, right?
Is that a Pokédex there?
Then you must know Professor Rowan!
You’re just the Pokémon-searching
expert we’ve been looking for!"
Jump func_12
Func 4:
Message 1 "Here you are!
Good!
We’ve got a deadline to meet.
Here’s your assignment."
Jump func_12
Func 5:
Message 3 "What’s up? Did you bring us
the Pokémon we needed?"
CheckSPoke 32780
If 32780 0
CheckLR 1 func_13
CheckPokeParty 32780 16613
If 32780 0
CheckLR 1 func_14
Jump func_15
Func 6:
Message 14 "Dark caves and streets unlit at
night are forbidding places to go.
If you’re threatened by the dark,
a supply of Dusk Balls is your\fbiggest ally!
Use them in the dark for the best
Pokémon-catching performance!
Keep the dark at bay on your travels
with Dusk Balls!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 15 "Catching Pokémon is best accomplished
by whittling the target’s HP down as\flow as possible, then tossing a Ball.
But a Pokémon caught that way can’t
be used in battle right away.
That’s where the Heal Ball comes in
handy.
You can lower the target’s HP bar to
red, put it to sleep, or paralyze it.
The Heal Ball instantly heals whatever
ails the Pokémon it catches!
That’s the Pokémon-friendly Heal Ball!
Please, do give it a try!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 16 "When attempting to catch a Pokémon,
you want to cut the target’s HP.
But a fleet-footed Pokémon could
bolt if you take too much time.
The Quick Ball is the solution to
that dilemma.
It’s designed to work best when
thrown right at the start of battle!
The Quick Ball: the perfect gift for
the impatient Trainer!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Copyvar 16663 32772
Setflag 220
Message 6 "Whoops! What’s all this?
Your Bag is stuffed full.
I’ll hold on to these until
the next time."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Message 7 "Oh, there you are! Here’s your
reward for the last assignment!
It’s not much, but thanks!"
Clearflag 220
Setvar 16613 0
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Func 12:
ChsRSPoke 32780
Copyvar 16613 32780
SetSPoke 1
Setvarpokestored 0 16613 0 0
Message 2 "\v0100\z0000.
I want you to bring me one.
You must bring it today, or we’re not
gonna be able to run our main article.
Remember, it has to be today.
Before the date rolls over!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 13:
Message 9 "Now, now! You failed to bring me the
Pokémon I asked for...
Things like that can happen, but
we need you to come up big for us!"
Setvar 16613 0
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Setvarpokestored 0 16613 0 0
CheckSPoke 32780
Setvarnum 1 32780
Message 8 "What’s wrong? You still haven’t
caught the \v0100\z0000 we need?
We’re counting on you to come
through for us!
Bring us the \v0100\z0000
before the date rolls over!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 15:
Setvarpokestored 0 16613 0 0
Message 4 "Oh! Ohh! Ohhh!
That’s it! \v0100\z0000!
Thanks!
Let me get a closer look!
...I see, hmhm...
Right, right... That’s it!
Thank you!
I can write a great article now!
This is for your trouble.
It’s not much, but thanks!"
CheckIdPlayer 32780 12
If 32780 0
CheckLR1 1 func_16
If 32780 1
CheckLR1 1 func_17
If 32780 2
CheckLR1 1 func_18
If 32780 3
CheckLR1 1 func_19
If 32780 4
CheckLR1 1 func_20
If 32780 5
CheckLR1 1 func_21
If 32780 6
CheckLR1 1 func_22
If 32780 7
CheckLR1 1 func_23
If 32780 8
CheckLR1 1 func_24
If 32780 9
CheckLR1 1 func_25
If 32780 10
CheckLR1 1 func_26
If 32780 11
CheckLR1 1 func_27
Setvar 32773 3
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 5 func_28
Setflag 2737
If 32780 0
CheckLR 1 func_10
End
Func 16:
Setvar 32772 2
Killscript
Func 17:
Setvar 32772 3
Killscript
Func 18:
Setvar 32772 4
Killscript
Func 19:
Setvar 32772 6
Killscript
Func 20:
Setvar 32772 7
Killscript
Func 21:
Setvar 32772 8
Killscript
Func 22:
Setvar 32772 9
Killscript
Func 23:
Setvar 32772 10
Killscript
Func 24:
Setvar 32772 11
Killscript
Func 25:
Setvar 32772 13
Killscript
Func 26:
Setvar 32772 14
Killscript
Func 27:
Setvar 32772 15
Killscript
Func 28:
Callstd 252 7
Clearflag 220
Setvar 16613 0
Setflag 2737
Message 5 "You really came through for us!
I hope you’ll help us again tomorrow!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(440) T04R0401 Solaceon Town R4-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Every so often, an Egg will be found
at the Pokémon Day Care.
And they’re found without anyone
knowing how they got there.
Is someone leaving them there?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "They say no one has ever seen
a Pokémon actually lay an Egg.
So, it hasn’t been proven that
Pokémon actually lay Eggs."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(441) T04R0501 Solaceon Town R5-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 279
CheckLR 0 func_1
Checkflag 1
CheckLR1 0 func_2
CheckFirstPokeParty 32772
CheckPokeEgg 32772 32773
If 32773 201
CheckLR 1 func_3
Message 0 "I’m using Seals to learn the
alphabet!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 279
CheckLR 1 func_4
Message 5 "You can customize Poké Balls by
affixing Seals on them.
Oh, you don’t have a Seal Case?
Well, here you go!"
Setvar 32772 434
Setvar 32773 1
Callstd 252 7
Setflag 279
Message 6 "First, check the heading “Ball
Capsules” in your PC menu.
Next, choose a Capsule and apply
Seals to it as you wish.
When you’re done, put the Capsule
on a Poké Ball."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 3 "I wanted to give you some Seals,
but you don’t have a Seal Case!\fYou should talk to my mom!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Setvar 16384 65535
Killscript
Func 3:
SetPknmPartyStored 32772 32774
If2 16384 32774
CheckLR 1 func_5
Jump func_6
Func 4:
Message 7 "My son goes out to the ruins
whenever he gets the chance.
He says that it’s good for making
Seals for his Ball Capsules.
If you don’t mind, can you show him
the Pokémon you catch in the ruins?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 0 "I’m using Seals to learn the
alphabet!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Setvar 32775 50
Setvalue 32775 32774
CheckPkmnParty 32775 32780
If 32780 99
CheckLR 1 func_5
Setvarpoke 0 32772
Message 1 "Oh, that \v0100\z0000 looks just like
my Seals!
I’ll give you a bunch of Seals that
look like it."
Setvar 32768 10
CheckPkmnParty 32775 32780
If 32780 89
CheckLR 3 func_7
Copyvalue 32780 89
Copyvalue 32768 32780
StorePkmnParty 32775 32768
Copyvar 16384 32774
Setflag 1
If 32768 1
CheckLR 1 func_8
ActTeamGalacticEvents
Func 7:
StorePkmnParty 32775 32768
Copyvar 16384 32774
Setflag 1
If 32768 1
CheckLR 1 func_8
ActTeamGalacticEvents
Func 8:
SetvarSealRandom 0 32775
Message 4 "The \v010A\z0000 were
put away in the Seal Case."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(442) T05 Celestic Town
SCRIPT ORDER:
Script 1
Script 4
Script 3
Script 2
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 11
SCRIPTS:
Script 1:
Setflag 2432
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "This town is insignificant!
There’s nothing of value here.
It doesn’t need to exist, so I’ll
blow it up with a Galactic Bomb!
If you try to mess with me, I’ll shut
you down with a Pokémon battle.
So, what’s it going to be?
Are you going to mess with me?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
End
Script 3:
Lockall
Applymovement 255 mov_1
Applymovement 3 mov_2
Waitmovement
Goto func_3
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 166
CheckLR 1 func_4
Goto func_3
Releaseall
End
Script 5:
Lockall
Applymovement 255 mov_3
Waitmovement
Return 15 32780
Message 9 "There appears to have been
an insignificant struggle here.
Everyone should step back and view
things from a bigger perspective.
Yes, a bigger perspective, one that
is on a universal scale."
CloseMsgOnKeyPress
Applymovement 4 mov_4
Waitmovement
Message 10 "My name is Cyrus.
I seek the power to create a new
world, a world without strife.
However, that power seems to be
unavailable here...
We’ve met before, yes?
It was at Mt. Coronet.
If you discover any power derived
from the legends of Sinnoh, inform me.
For that power is what I need to
create my new world."
CloseMsgOnKeyPress
Applymovement 4 mov_5
Applymovement 255 mov_6
Waitmovement
Removepeople 4
Setflag 165
Setvar 16500 2
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 11 "Howdy!
Studying up on local history?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 13 "There’s no Pokémon Mart in this
town...
Instead, you can buy and sell items
in this house here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
Message 12 "Hey, do you know what they say?
They say a Pokémon created the
Sinnoh region."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
CallMsgBox 14 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 10:
Fanfare 1500
Lockall
Message 15 "A giant etching of a Pokémon-like
creature covers the wall...
There is some fading text etched
in as well...
The flow of time never stops...
The past, future, and present..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 11:
Fanfare 1500
Lockall
Message 16 "A giant etching of a Pokémon-like
creature covers the wall...
There is some fading text etched
in as well...
Space is ever-expanding dimensions...
Our spirits, too, are as space..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "You dare to oppose Team Galactic?
That means you’re taking on the
world... No, the universe, even!"
CloseMsgOnKeyPress
TrainerBattle 416 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_5
Message 4 "Too much to handle...
I can’t do anything here...
This place is nothing!
I’ll be happily rid of this place!"
CloseMsgOnKeyPress
CheckFacePosition 32780
If 32780 0
CheckLR 1 func_6
If 32780 2
CheckLR 1 func_7
If 32780 3
CheckLR 1 func_8
End
Func 2:
Message 3 "That’s right! Very smart!
You know what’s good for you!
Team Galactic has come out to the
boonies like this for everyone’s sake.
Your cooperation is appreciated.
Now, where is my partner...?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Setvar 16625 1
Message 0 "There’s an odd spaceman
in front of the ruins.
There isn’t anything there, but that
only seemed to make him get angry.
He’s saying he will blow the town
up with a bomb...
The nerve of it all...
If only I were younger, I’d punish
that spaceman with my Pokémon..."
Waitbutton
CloseMsgOnKeyPress
Killscript
Func 4:
Message 8 "You’ve gone to the trouble
of visiting Celestic Town.
Why not take a little more time
to examine the ruins?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
LostGoPc
Releaseall
End
Func 6:
Applymovement 2 mov_7
Applymovement 255 mov_8
Waitmovement
Goto func_9
Applymovement 3 mov_9
Applymovement 255 mov_10
Waitmovement
Jump func_10
Func 7:
Applymovement 2 mov_7
Applymovement 255 mov_11
Waitmovement
Goto func_9
Applymovement 3 mov_12
Waitmovement
Jump func_10
Func 8:
Applymovement 2 mov_13
Applymovement 255 mov_14
Waitmovement
Goto func_9
Applymovement 3 mov_15
Waitmovement
Jump func_10
Func 9:
Removepeople 2
Removepeople 3
ChangeOwPosition 3 466 531
ReleaseOw 3 0
ChangeOwMovement 3 14
Clearflag 458
Addpeople 3
Lock 3
Killscript
Func 10:
Message 5 "Oh, you were magnificent!
Aren’t you quite the Trainer?
As the elder of Celestic Town, I give
you my thanks.
Oh? That Old Charm...
May I see that, dear?
...
What’s that?
You say Cynthia entrusted you with
it to deliver to me?
That Cynthia...
She’s my granddaughter."
Setvarhero 0
Setvaritem 1 439
Soundfr 1158
Message 6 "\v0103\z0000 handed over
the \v0108\z0001 to the elder."
Fadedef
GiveItem 439 1 32780
Setflag 166
Message 7 "This Old Charm is something made in
Celestic Town long, long ago.
It was made in honor of a mythical
deity said to have created Sinnoh.
These Old Charms are still discovered
now and again.
Since you’re in Celestic Town, why not
look around inside the ruins?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(443) T05PC0101 Celestic Town Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 32775 0
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "What would bring you to a place
so far off the beaten path?
There is nothing to see but some
ancient Pokémon etchings..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "They say this town has been here
since Sinnoh was made."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2721
CheckLR 1 func_1
Message 2 "Oh, now, this is interesting.
Let’s see your Pokémon."
CheckFirstPokeParty 32768
StoreHappyPoke 32780 32768
If 32780 150
CheckLR 4 func_2
If 32780 50
CheckLR 4 func_3
Jump func_4
FUNCTIONS:
Func 1:
Message 4 "It’s about trust between the Trainer
and the Pokémon.
Developing trust in each other is
the key to victory."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 3 "It clearly likes you very much.
You can have this!"
Setvar 32772 3
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_5
Callstd 252 7
Setflag 2721
Jump func_1
Func 3:
Message 5 "It’s warming up to you in
a very nice way.
It will grow even more friendly if
you travel with it some more."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 6 "It’s not very used to you yet.
You both need to develop trust for
one another as Trainer and Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(444) T05PC0102 Celestic Town Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(445) T05R0101 Celestic Town R1-01
SCRIPT ORDER:
Script 2
Script 3
Script 4
Script 5
Script 1
Script 6
SCRIPTS:
Script 1:
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Where are you from?
...
Hm, Twinleaf Town, you say.
Isn’t that close to Lake Verity?
That lake is said to be home to
MESPRIT, the being of emotion.
It must be looking over you."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 350
CheckLR 1 func_1
Checkbadge 4 32780
If 32780 1
CheckLR 1 func_2
Message 1 "Hm? If you get the Gym Badge from
Hearthome, you can use Surf anytime.
Using Surf, you’ll be able to go to
places that were once out of reach.
You may be in for some surprises
as to where you can go using Surf."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 7 "My big sister is studying the myths
of Sinnoh.
She wants to know how people and
Pokémon interacted in the days of
myths.
Were things different back then?
Or were they the same as now?
She says that’s the focus of her
research."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Message 8 "It’s hard to tell for sure, but it’s
probably an invaluable scroll."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Setvarhero 0
Fanfare 1500
Lockall
Faceplayer
Message 9 "It’s an old book.
\v0103\z0000 began reading it.
“When that Pokémon was born,
intelligence bloomed among us,
enriching our lives.
“When that Pokémon was born,
emotions bloomed among us,
giving us joy and sorrow.
“When that Pokémon was born,
willpower bloomed among us,
spurring us into action...”"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 3 "Well, hello!
You look good.
I did some research of my own since
that spot of trouble last time.
Mt. Coronet acting up had me very
concerned, too.
Well, this is what I found in the
shrine.
It’s a book, and it’s quite old.
See for yourself."
StoreMtCoronet? 32780
If 32780 10
CheckLR1 1 func_3
If 32780 11
CheckLR1 1 func_4
Hidepic
Setflag 325
Message 6 "It seems that there were two
Pokémon in ancient Sinnoh.
They respectively stood as symbols
of time and spatial dimensions..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 2 "Celestic Town is the oldest town in
all of Sinnoh.
The town was founded to honor
Pokémon from the distant past.
Or at least that’s the legend..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Pokepic 484 0
Message 4 "“PALKIA, the Pokémon that binds the
spatial dimensions,” it is written..."
Killscript
Func 4:
Pokepic 483 0
Message 5 "“DIALGA, the guardian Pokémon of
time,” it is written..."
Killscript
(446) T05R0201 Celestic Town R2-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Oh, hello! It’s been a while since
our last customer!"
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart1 14
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Putting on a pair of glasses changes
how the world looks.
Taking off a pair of glasses changes
how the world looks, too. Deep, man."
CheckTime2 32780
If 32780 4
CheckLR 0 func_1
If 32780 10
CheckLR 0 func_2
If 32780 20
CheckLR 0 func_3
Jump func_1
FUNCTIONS:
Func 1:
Checkflag 310
CheckLR 1 func_4
Message 2 "So, would you like to change how
the world looks to your Pokémon?"
Setvar 32772 267
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_5
Callstd 252 7
Setflag 310
Message 5 "At night, reflect on what you’ve
learned with the Wise Glasses."
Jump func_4
Func 2:
Checkflag 308
CheckLR 1 func_6
Message 2 "So, would you like to change how
the world looks to your Pokémon?"
Setvar 32772 297
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_5
Callstd 252 7
Setflag 308
Message 3 "Morning is the start of a new day.
Put on the Choice Specs and make
the right choices."
Jump func_6
Func 3:
Checkflag 309
CheckLR 1 func_7
Message 2 "So, would you like to change how
the world looks to your Pokémon?"
Setvar 32772 240
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_5
Callstd 252 7
Setflag 309
Message 4 "The sunlight is bright in the day.
How about a pair of BlackGlasses?"
Jump func_7
Func 4:
Message 8 "The Wise Glasses boost the power of
special moves."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
Message 8 "The Wise Glasses boost the power of
special moves."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 6:
Message 6 "Choice Specs make the Pokémon use
only one kind of move.
But they also raise the Pokémon’s
Special Attack stat."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
Message 7 "BlackGlasses raise the power of
Dark-type moves."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(447) T05R0301 Celestic Town R3-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Mt. Coronet towers at the center
of Sinnoh.
In a way, it’s the closest place to
the sky in this region."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "If I climb on top of Mt. Coronet,
will I be able to see all of Sinnoh?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(448) T05R0401 Celestic Town R4-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
StorePktchAppl 11 32780
If 32780 1
CheckLR 1 func_1
Message 0 "I must bear down and train...
And for that, time is unimportant.
Therefore, I have no need for
a watch. Take this from me!"
Setvar 32772 11
Callstd 217 7
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 440 0
Message 2 "HAPPINY: Pinny haaa!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Analog or digital, use whichever
watch you prefer.
There are many kinds of Pokémon.
Use whichever you like, too."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(449) T05R0501 Celestic Town R5-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Checkflag 167
CheckLR 0 func_1
Setvarhero 0
Message 4 "\v0103\z0000 examined the ancient
cave painting.
Mysterious designs cover a whole
section of the wall.
There are three strange things
forming a triangle.
In the middle of them, a shining
sphere?
What is this all about?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setvarhero 0
Message 0 "\v0103\z0000 examined the ancient
cave painting.
Mysterious designs cover a whole
section of the wall.
There are three strange things
forming a triangle.
In the middle of them, a shining
sphere?
What is this all about?"
CloseMsgOnKeyPress
Setflag 167
Clearflag 475
Setvar 16500 1
Clearflag 583
Addpeople 0
CheckHiroPosition 32772 32773
If 32772 9
CheckLR 1 func_2
If 32772 10
CheckLR 1 func_3
End
Func 2:
Applymovement 0 mov_1
Waitmovement
Applymovement 255 mov_2
Waitmovement
Message 1 "The cave painting’s meaning seems
to be this...
There existed a being...
A being so powerful, it was
considered a deity at the time.
Opposing this powerful being
were three Pokémon.
The three kept balance with the
being, as if they formed a triangle.
It’s an ancient legend of Sinnoh
that is still told in Celestic Town."
CloseMsgOnKeyPress
Applymovement 0 mov_3
Waitmovement
Goto func_4
Applymovement 0 mov_4
Waitmovement
Jump func_5
Func 3:
Applymovement 0 mov_5
Waitmovement
Applymovement 255 mov_6
Waitmovement
Message 1 "The cave painting’s meaning seems
to be this...
There existed a being...
A being so powerful, it was
considered a deity at the time.
Opposing this powerful being
were three Pokémon.
The three kept balance with the
being, as if they formed a triangle.
It’s an ancient legend of Sinnoh
that is still told in Celestic Town."
CloseMsgOnKeyPress
Applymovement 0 mov_7
Waitmovement
Goto func_4
Applymovement 0 mov_8
Waitmovement
Jump func_5
Func 4:
Message 2 "Oh, yes. I found something useful.
You should take this.
It belonged to my granddaughter,
but she doesn’t use it anymore."
Setvar 32772 422
Setvar 32773 1
Callstd 252 7
Setflag 458
Clearflag 481
Setflag 2445
Message 3 "If a Pokémon learns Surf, it can
carry you across water and the sea.
But my granddaughter said something
about this hidden move...
Oh, yes! To use Surf outside of
battle, the Hearthome Gym Badge\fmust first be obtained.
On that matter, you will have to
handle it yourself, I’m afraid."
CloseMsgOnKeyPress
Killscript
Func 5:
Removepeople 0
Releaseall
End
(450) T06 Survival Area
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Hey, traveling Trainer.
Is your Bag full of items?
Or is it full of dreams?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Trainers who lose at the Battle
Tower come here to train."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 3 "I’ve been exploring a long time,
but I know when I’m beaten.
It takes a better Trainer than me
to explore the volcano thoroughly!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 215
CheckLR 1 func_1
Checkflag 214
CheckLR 1 func_2
Message 4 "I’m a Cameraman, obviously.
Have you seen that TV program,
“Search for the Red GYARADOS!”?
You know, “The mysterious
appearance of a raging Pokémon in
a lake”?
Yeah, that outstanding documentary!
I filmed that!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
CallMsgBox 7 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
Message 6 "I’m a Cameraman, obviously.
“The Eruption of Stark Mountain?
The mystery of the fiery Pokémon\fasleep deep in the volcano!”
I’ve had that documentary all mapped
out in my head for a long time...
But I have nothing on film as of yet.
So much for that show.
Oh, well. The world’s a huge place.
There’re plenty of other mysteries!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 5 "Oh man! Oh geez! Oh, this is bad!
But I’m a Cameraman, obviously!
I have to stand firm and get this
on film for the world to see!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(451) T06FS0101 Survival Area Mart
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 0 "A word of advice from a grizzled
mountain man!
Buy up as many items as you can
hold in your Bag. I’m not joking."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 1 "I was on a 54-win streak...
If only I used that move when..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(452) T06PC0101 Survival Area Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setvar 32775 0
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I wasn’t experienced enough for
the Battle Tower...
Training on Stark Mountain seems to
be the only sensible choice ...
For some reason, the best Trainers
in Sinnoh seem to gather there."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "In a Multi Battle, coordination with
your partner is vital.
By working together, one plus one
could become not just two, but even
three or four.
But one times one is always one.
Do you understand that?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Some say the universe was made by
something born from an Egg...
A man I met long ago told me that."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(453) T06PC0102 Survival Area Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(454) T06R0101 Survival Area R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 215
CheckLR 1 func_1
Checkflag 214
CheckLR 1 func_2
Message 0 "Let me tell you about the volcano
named Stark Mountain.
That volcano dates to when Sinnoh
was made by the melding of time
and space.
Fiery lava spilled out and pooled,
and then it turned into a Pokémon.
It’s said the Magma Stone was used
to keep the Pokémon under control.
Over time, the Pokémon turned into
the volcano, according to legend."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Setflag 293
Message 3 "Buck: Gotcha, gramps!
I’ll put the Magma Stone back.
That Magma Stone was keeping the
volcano Pokémon under control.
It’s all right, though.
I can go put it back myself."
CloseMsgOnKeyPress
CheckHiroPosition 32772 32773
If 32773 4
CheckLR1 1 func_3
If 32773 5
CheckLR1 1 func_4
Removepeople 1
Setflag 231
Setflag 500
Releaseall
End
FUNCTIONS:
Func 1:
Message 2 "HEATRAN...
So there was such a Pokémon?
Did it come to be when Sinnoh was
created?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 1 "You say the Magma Stone was found?
The legend was true, then?
If so, the volcano’s Pokémon may
awaken and cause an eruption!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Applymovement 255 mov_1
Applymovement 1 mov_2
Waitmovement
Killscript
Func 4:
Applymovement 255 mov_3
Applymovement 1 mov_4
Waitmovement
Killscript
(455) T06R0201 Survival Area R2-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 203
CheckLR 1 func_1
Message 0 "There’s a move that doubles in power
if the Pokémon using it is poisoned,
paralyzed, or burned.
I’ve got the Technical Machine for
it right here. You want it?"
Setvar 32772 369
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Callstd 252 7
Setflag 203
Jump func_1
FUNCTIONS:
Func 1:
Message 1 "Facade’s a good move for your
Pokémon to have.
It makes it tough for the opponent
to use status-affecting moves."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(456) T06R0301 Survival Area R3-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "You took the trouble of coming here?
I’m sorry, but there’s nothing!
It’s a sad day for me not to be able
to share in your joy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(457) T07 Resort Area
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’ve traveled a long way to make my
beloved Pokémon even more beautiful.
That will make it love me even more."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Nothing is too good for my Pokémon.
There’s no mountain too high to climb.
That’s how I look at it."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "I’m kind of stuck here...
They tell me there’s no shop here!
How am I supposed to get ready for
the road?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 3 "You know how you can dig up cool
stuff underground?
People are saying they’re digging up
new, different stuff."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
CallMsgBox 5 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 6:
CallMsgBox 518 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Message 4 "I spend a lot of time in the pool.
Will I melt into the water the way
VAPOREON can?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(458) T07FS0101 Resort Area Mart
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Callstd 227 7
FreezeMsgBox
Pokemart 1
Releaseall
End
Script 2:
End
FUNCTIONS:
None
(459) T07PC0101 Resort Area Pokemon Center
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setvar 32775 0
Callstd 210 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Pokémon appear where there’s still
lots of nature left.
And Trainers gather where Pokémon
appear.
And where Trainers gather, that’s
where Pokémon Centers appear."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 1 "An Idol goes anywhere to sing for
their adoring fans.
A Trainer goes anywhere as long
as it’s with their Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(460) T07PC0102 Resort Area Pokemon Center Bottom Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(461) T07R0101 Resort Area R1-01
SCRIPT ORDER:
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 2
Script 1
SCRIPTS:
Script 1:
Checkflag 250
CheckLR 1 func_1
End
Script 2:
Lockall
Return 20 32780
CheckRiboonNumber 32772
If 32772 10
CheckLR 0 func_2
Setvar 16551 1
Setflag 250
Setvarhero 0
Message 1 "...Sniff...
I do apologize.
This is an exclusive establishment
open only to a select few.
You might consider it a special stage
for the cream of the crop.
If you wish to enter, I suggest you
start by collecting lots of Ribbons...
...Wait! Oh, my gosh!
Look at all your Ribbons!
I truly apologize for my rudeness.
It’s so out of character for me!
If you would be so kind, we would
be honored to invite you...
Oh, no, no! You really must join us
as a full-fledged member!
\v0103\z0000 was made a member
without any say in the decision!"
CloseMsgOnKeyPress
Applymovement 0 mov_1
Waitmovement
Releaseall
End
Script 3:
Setvarhero 0
Fanfare 1500
Lockall
Faceplayer
Message 2 "Welcome! We’ve looked forward to
seeing you, \v0103\z0000.
I do hope you will enjoy the luxurious
atmosphere and services that only
we can provide."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
CheckFirstPokeParty 32768
Setvarhero 0
Setvarpoke 2 32768
CheckRibbon 32780 32768 68
If 32780 1
CheckLR 1 func_3
CheckRibbon 32780 32768 67
If 32780 1
CheckLR 1 func_4
CheckRibbon 32780 32768 66
If 32780 1
CheckLR 1 func_5
Jump func_6
Script 5:
Fanfare 1500
Lockall
Faceplayer
Message 15 "Just being in here is a sign of
status, just so you know."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
Checkgender 32780
If 32780 0
CheckLR 1 func_7
If 32780 1
CheckLR 1 func_8
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 300 0
Message 18 "SKITTY: Skiii!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
WaitFanfare 1500
Cryfr 54 0
Message 19 "PSYDUCK: Gyaugyau!"
WaitCry
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
ChangeOwPosition 0 16 14
ReleaseOw 0 1
End
Func 2:
Message 0 "...Sniff...
I do apologize.
This is an exclusive establishment
open only to a select few.
You might consider it a special stage
for the cream of the crop.
If you wish to enter, I suggest you
start by collecting lots of Ribbons."
CloseMsgOnKeyPress
Return 20 32780
Fadescreen 6 1 0 0
Resetscreen
Warp 457 0 826 454 1
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Func 3:
Message 6 "Welcome...
Ooh! That’s a Gorgeous Royal Ribbon!
\v0103\z0000, your \v0100\z0002
certainly looks gorgeous and royal!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
ShowMoney 20 2
Message 5 "Welcome.
May I interest you in top-grade
Ribbons we had specially imported?
These Ribbons are available only
through us.
\v0103\z0000, would you like one
for a Pokémon, perhaps?
Right now, I can offer you
the Gorgeous Royal Ribbon.
For a mere $999,999, you can be
the proud owner of one."
Yesnobox 32780
If 32780 1
CheckLR 1 func_9
CheckMoney 32780 16959 15
If 32780 0
CheckLR 1 func_10
TakeMoney 16959 15
UpdateMoney
Fanfare 1604
WaitFanfare 1604
Message 11 "\v0103\z0000 bought
a Gorgeous Royal Ribbon."
Message 12 "\v0103\z0000 put the Gorgeous Royal
Ribbon on \v0100\z0002."
Waitbutton
GiveRibbon 32768 68
CloseMsgOnKeyPress
HideMoney
Releaseall
End
Func 5:
ShowMoney 20 2
Message 4 "Welcome.
May I interest you in top-grade
Ribbons we had specially imported?
These Ribbons are available only
through us.
\v0103\z0000, would you like one
for a Pokémon, perhaps?
Right now, I can offer you
the Royal Ribbon.
For a mere $100,000, you can be
the proud owner of one."
Yesnobox 32780
If 32780 1
CheckLR 1 func_9
CheckMoney 32780 34464 1
If 32780 0
CheckLR 1 func_10
TakeMoney 34464 1
UpdateMoney
Fanfare 1604
WaitFanfare 1604
Message 9 "\v0103\z0000 bought
a Royal Ribbon."
Message 10 "\v0103\z0000 put the Royal Ribbon
on \v0100\z0002."
Waitbutton
GiveRibbon 32768 67
CloseMsgOnKeyPress
HideMoney
Releaseall
End
Func 6:
ShowMoney 20 2
Message 3 "Welcome.
May I interest you in top-grade
Ribbons we had specially imported?
These Ribbons are available only
through us.
\v0103\z0000, would you like one
for a Pokémon, perhaps?
Right now, I can offer you
the Gorgeous Ribbon.
For a mere $10,000, you can be the
proud owner of one."
Yesnobox 32780
If 32780 1
CheckLR 1 func_9
CheckMoney 32780 10000 0
If 32780 0
CheckLR 1 func_10
TakeMoney 10000 0
UpdateMoney
Fanfare 1604
WaitFanfare 1604
Message 7 "\v0103\z0000 bought
a Gorgeous Ribbon."
Message 8 "\v0103\z0000 put the Gorgeous Ribbon
on \v0100\z0002."
Waitbutton
GiveRibbon 32768 66
CloseMsgOnKeyPress
HideMoney
Releaseall
End
Func 7:
Message 16 "I wish men would pay more attention
to the way they dress themselves..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 8:
Message 17 "A woman worthy of being seen with
Pokémon... That’s what I hope to be."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Message 14 "I see.
Please do visit again."
Waitbutton
CloseMsgOnKeyPress
HideMoney
Releaseall
End
Func 10:
Message 13 "Oh, please, \v0103\z0000.
You shouldn’t joke about not
having money."
Waitbutton
CloseMsgOnKeyPress
HideMoney
Releaseall
End
(462) T07R0102 Resort Area R1-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2725
CheckLR 1 func_1
If 16394 1
CheckLR 1 func_1
Setvarhero 0
Setvarpokenick 1 0
Message 0 "How may we serve you today?
Perhaps a spa treatment?
Our spa treatment will make your
\v0101\z0001 grow more friendly.
Would you care to have a spa
treatment, \v0103\z0000?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_2
Jump func_3
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 10 "We keep our clients and Pokémon from
seeing others.
That way, all our clients and their
Pokémon can fully relax."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 11 "Our service is very exclusive.
We only accept five members a day."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 12 "We’ve developed a reputation for
bringing our members closer to
their Pokémon."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 9 "Oh, I do apologize.
We can only provide one spa
session a day to our members."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 1 "We hope to see you again."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 2 "Ah, yes.
Right this way, please..."
CloseMsgOnKeyPress
Goto func_4
Jump func_5
Func 4:
CheckHiroPosition 32773 32774
If 32773 11
CheckLR 1 func_6
If 32773 13
CheckLR 1 func_7
If 32774 4
CheckLR 1 func_8
Jump func_9
Func 5:
Message 3 "We’re ready to begin.
Please, relax all your muscles."
CheckIdPlayer 32780 4
If 32780 0
CheckLR 1 func_10
If 32780 1
CheckLR 1 func_11
If 32780 2
CheckLR 1 func_12
Jump func_13
Func 6:
Applymovement 255 mov_1
Applymovement 2 mov_2
Waitmovement
Jump func_14
Func 7:
Applymovement 255 mov_3
Applymovement 2 mov_4
Waitmovement
Jump func_14
Func 8:
Applymovement 255 mov_5
Applymovement 2 mov_6
Waitmovement
Jump func_14
Func 9:
Applymovement 255 mov_7
Applymovement 2 mov_8
Waitmovement
Jump func_14
Func 10:
Message 4 "This oil contains dissolved diamonds
for enhanced effectiveness."
Jump func_15
Func 11:
Message 5 "This foam contains an extract taken
from pearls."
Jump func_15
Func 12:
Message 6 "The body’s toxins are forced out with
a foreign massage technique."
Jump func_15
Func 13:
Message 7 "The salon’s air is perfumed by an
herbal aroma for relaxation."
Jump func_15
Func 14:
Applymovement 0 mov_9
Applymovement 1 mov_10
Applymovement 3 mov_11
Waitmovement
Killscript
Func 15:
CloseMsgOnKeyPress
Fanfare 1634
Goto func_16
WaitFanfare 1634
Setflag 2725
Setvar 16394 1
Applymovement 1 mov_12
Waitmovement
Message 8 "There, all done.
I hope you enjoyed it."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 16:
CheckIdPlayer 32780 100
If 32780 5
CheckLR 0 func_17
If 32780 30
CheckLR 0 func_18
Jump func_19
Func 17:
StoreHappyStatus 30 0
Killscript
Func 18:
StoreHappyStatus 10 0
Killscript
Func 19:
StoreHappyStatus 5 0
Killscript
(463) T07R0103 Resort Area R1-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckFloor 16590
Copyvar 32776 16590
If 32776 0
CheckLR 1 func_1
If 32776 1
CheckLR 1 func_2
End
FUNCTIONS:
Func 1:
Setvarnum 0 2
Jump func_3
Func 2:
Setvarnum 0 1
Jump func_3
Func 3:
StartLift 276 16590 44
(464) T07R0201 Resort Area R2-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "The weather and the terrain here
are much more extreme than Sinnoh.
I imagine there would be a large
variety of Pokémon here."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "It’s not only Sinnoh’s best that
gather at the Battle Tower.
We’re talking about the best Trainers
in the world.
It must be cool being able to get
your own Pokémon and battle against
people like you around the world!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkgender 32780
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
End
FUNCTIONS:
Func 1:
Message 2 "Wow, you’ve seen all the Pokémon in
Sinnoh?!
That’s awesome! I’m gonna travel with
Pokémon when I get big like you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 3 "Wow, you’ve seen all the Pokémon in
Sinnoh?!
That’s awesome! I’m gonna travel with
Pokémon when I get big like you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(465) T07R0301 Resort Area R3-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 212
CheckLR 1 func_1
Message 0 "All I need to be happy is my TV.
That’s all I need.
I learn so much just sitting here.
I absorb knowledge!
I learned about the Pokétch app
Marking Map, for instance.
They say the Marking Map can track
Pokémon that travel around.
...I’ve never met any traveling
Pokémon, but I’ve heard about them."
Waitbutton
CloseMsgOnKeyPress
Applymovement 0 mov_1
Waitmovement
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "There’s big trouble!
They’re saying the volcano’ll erupt!
I might even have to leave here!"
Waitbutton
CloseMsgOnKeyPress
Applymovement 0 mov_1
Waitmovement
Releaseall
End
(466) UNION UNION
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
SCRIPTS:
Script 1:
End
Script 2:
End
Script 3:
0142 2
Script 4:
Fanfare 1500
Lockall
Faceplayer
StoreYourDecisionUnion 32780
Copyvar 32772 32780
If 32780 5
CheckLR 1 func_1
SetUnionFunctionId? 0
If 32780 2
CheckLR 1 func_2
If 32780 3
CheckLR 1 func_3
CheckOtherDecisionUnion2 32772 32780
StoreYourDecisionUnion 32780
If 32780 5
CheckLR 1 func_1
Message 197 "Talking to \v0103\z0000..."
StoreOtherDecisionUnion 32780
Copyvar 32776 32780
If 32776 3
CheckLR 1 func_4
If 32776 2
CheckLR 1 func_5
Jump func_6
Script 5:
Lockall
Fanfare 1508
SetUnionFunctionId? 1
02C0 7
SetSaveData 30
Jump func_7
Script 6:
Fanfare 1500
Lockall
Faceplayer
Message 205 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
Fanfare 1500
Lockall
Faceplayer
Jump func_1
Script 8:
Fanfare 1500
Lockall
Faceplayer
Jump func_8
FUNCTIONS:
Func 1:
StartUnion?
SetvarUnionMessage 0 32780
Message3 32780
0030
CloseMsgOnKeyPress
LinkClosed
Releaseall
End
Func 2:
StartUnion?
SetvarUnionMessage 10 32780
Message3 32780
Yesnobox 32780
If 32780 1
CheckLR 1 func_9
CheckOtherDecisionUnion2 32772 32780
If 32780 5
CheckLR 1 func_5
StoreOtherDecisionUnion 32780
If 32780 2
CheckLR 1 func_5
SetvarUnionMessage 13 32780
Message3 32780
Return 30 32780
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
DrawUnion
Callend
Fadescreen 6 1 1 0
Jump func_10
Func 3:
StartUnion?
SetvarUnionMessage 11 32780
Message3 32780
Yesnobox 32780
If 32780 1
CheckLR 1 func_11
CheckOtherDecisionUnion2 32772 32780
If 32780 5
CheckLR 1 func_5
StoreOtherDecisionUnion 32780
If 32780 2
CheckLR 1 func_5
SetvarUnionMessage 14 32780
Message3 32780
Return 30 32780
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
RecordMixingUnion
Callend
Fadescreen 6 1 1 0
Jump func_10
Func 4:
Lockall
Fanfare 1508
SetUnionFunctionId? 1
02C0 7
SetSaveData 30
Jump func_7
Func 5:
Message 38 "Whoops! Sorry, but I have to do
something else.\fAnother time, OK?"
Return 30 32780
CloseMsgOnKeyPress
LinkClosed
Releaseall
End
Func 6:
FriendBT 100
SetvarUnionMessage 2 32780
02C0 32780
Jump func_12
Func 7:
Message 9 "Awaiting a response from
\v0103\z0000..."
FriendBT 100
OpenUnionFunction2? 11
StoreOtherDecisionUnion2 32780
Copyvar 32776 32780
If 32776 1
CheckLR 1 func_13
If 32776 4
CheckLR 1 func_14
If 32776 2
CheckLR 1 func_15
If 32776 3
CheckLR 1 func_16
If 32776 5
CheckLR 1 func_17
If 32776 7
CheckLR 1 func_18
If 32776 8
CheckLR 1 func_19
End
Func 8:
StartUnion?
Checkflag 187
CheckLR1 1 func_20
Checkflag 187
CheckLR1 0 func_21
Setflag 187
Multi 31 11 0 1 32780
ChooseWirePokeBCastle 16897 2560
Func 9:
SetvarUnionMessage 16 32780
Message3 32780
Return 30 32780
LinkClosed
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Releaseall
End
Func 11:
SetvarUnionMessage 17 32780
Message3 32780
Return 30 32780
CloseMsgOnKeyPress
LinkClosed
Releaseall
End
Func 12:
Multi 31 5 0 1 32780
ChooseWirePokeBCastle 16897 42240
Func 13:
Message 11 "You have an offer to see
\v0103\z0000’s Trainer Case.
Would you like to show your
Trainer Case?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_22
CheckOtherDecisionUnion 1 0
CloseMsgOnKeyPress
StoreYourDecisionUnion2 32780
If 32780 7
CheckLR 1 func_23
02AF 32780
Message3 32780
Return 30 32780
FriendBT 1
CloseMsgOnKeyPress
OpenUnionFunction2? 5
Fadescreen 6 1 0 0
Resetscreen
TrainerCaseUnion
Callend
Goto func_24
Jump func_7
Func 14:
Message 18 "\v0103\z0000 has invited you to
draw something.
Would you like to join the other
player and draw?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_25
CheckOtherDecisionUnion 1 0
CloseMsgOnKeyPress
StoreYourDecisionUnion2 32780
If 32780 7
CheckLR 1 func_18
Message 19 "Let’s get drawing!"
Return 30 32780
FriendBT 4
CloseMsgOnKeyPress
OpenUnionFunction2? 1
Fadescreen 6 1 0 0
Resetscreen
DrawUnion
Callend
Goto func_24
Releaseall
End
Func 15:
Message 21 "\v0103\z0000 challenges you to
a battle.
Will you accept the battle
challenge?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_26
CheckPokeLevel 32780 30
If 32780 2
CheckLR 0 func_27
CheckOtherDecisionUnion 1 0
CloseMsgOnKeyPress
StoreYourDecisionUnion2 32780
If 32780 7
CheckLR 1 func_18
Message 22 "The battle will be started."
Return 30 32780
FriendBT 2
CloseMsgOnKeyPress
OpenUnionFunction2? 6
Fadescreen 6 1 0 0
Resetscreen
ChsPokeMenu2
Callend
Fadescreen 6 1 1 0
Resetscreen
Message 200 "Waiting for the other player’s choice."
FriendBT 102
CloseMsgOnKeyPress
CheckBattleUnion 32780
If 32780 1
CheckLR 1 func_28
If 32780 2
CheckLR 1 func_28
00F6
OpenUnionFunction2? 11
Goto func_24
Jump func_7
Func 16:
Message 26 "\v0103\z0000 has offered to
make a trade.
Will you accept this trade offer?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_29
CheckPartyNumberUnion 32780
If 32780 2
CheckLR 0 func_30
CheckOtherDecisionUnion 1 0
CloseMsgOnKeyPress
StoreYourDecisionUnion2 32780
If 32780 7
CheckLR 1 func_18
Message 27 "The trade will be started."
Return 30 32780
FriendBT 3
CloseMsgOnKeyPress
OpenUnionFunction2? 7
Fadescreen 6 1 0 0
Resetscreen
TradeUnion
Callend
OpenUnionFunction2? 11
Goto func_24
Jump func_7
Func 17:
Message 30 "\v0103\z0000 invites you to mix
records.
Would you like to mix records with
the other player?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_26
CheckOtherDecisionUnion 1 0
CloseMsgOnKeyPress
StoreYourDecisionUnion2 32780
If 32780 7
CheckLR 1 func_18
Message 31 "Record mixing will be started."
Return 30 32780
FriendBT 5
CloseMsgOnKeyPress
OpenUnionFunction2? 2
Fadescreen 6 1 0 0
Resetscreen
RecordMixingUnion
Callend
Goto func_24
Releaseall
End
Func 18:
Message 8 "The chat has been dropped."
Return 30 32780
Jump func_31
Func 19:
Message 10 "The chat was ended."
Return 30 32780
Jump func_31
Func 20:
Message 156 "How may I help you?"
Killscript
Func 21:
Message 155 "Welcome to the Union Room.
If there is anything you need help
with, please let me know!"
Killscript
Func 22:
CheckOtherDecisionUnion 1 1
Message 17 "You declined the offer."
Jump func_31
Func 23:
Message 35 "You declined the invitation."
Jump func_31
Func 24:
CloseUnionFunction?
Fadescreen 6 1 1 0
Killscript
Func 25:
CheckOtherDecisionUnion 1 1
Message 28 "You declined the offer."
Jump func_31
Func 26:
CheckOtherDecisionUnion 1 1
Message 23 "You declined to take part."
Jump func_31
Func 27:
CheckOtherDecisionUnion 1 1
Message 24 "For a battle, you need two
Pokémon that are Lv. 30 or below."
Jump func_31
Func 28:
OpenUnionFunction2? 11
Message 25 "The battle has been canceled."
Return 30 32780
Jump func_31
Func 29:
CheckOtherDecisionUnion 1 1
Message 20 "You declined the invitation."
Jump func_31
Func 30:
CheckOtherDecisionUnion 1 1
Message 29 "For trading, you must have at
least two Pokémon with you."
Jump func_31
Func 31:
FriendBT 101
CloseMsgOnKeyPress
CloseUnionFunction2?
Releaseall
End
(467) W220 Route 220
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(468) W223 Route 223
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(469) W226 Route 226
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
CallMsgBox 256 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 2:
CallMsgBox 257 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(470) W229 Route 229
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(471) W230 Route 230
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
CallMsgBox 256 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Hold it right there, Trainer!
Since you’re here, you’ve got
to visit the Battle Tower.
You don’t earn Exp. Points, and your
Pokédex isn’t updated there.
It’s a place solely for Trainers to
hone their own skills."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "Hold it right there, Trainer!
Have you been to the Battle Tower?
It’s a good place to learn useful
battle techniques.
You get to see all sorts of Pokémon
and their moves, also!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(472) W231 W231
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(473) W233 W233
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(474) C01PC0103 Jubilife City Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(475) C02PC0103 Canalave City Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(476) C03PC0103 Oreburgh City Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I’m going to become better friends
with this person I know, so I can
register her in my Pal Pad.
Or, am I supposed to register people
in my Pal Pad, and then become
friends with them?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(477) C04PC0103 Eterna City Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(478) C05PC0103 Hearthome City Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(479) C06PC0103 Pastoria City Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(480) C07PC0103 Veilstone City Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I enjoy Nintendo WFC play with my
grandkids at the same time every day."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(481) C08PC0103 Sunyshore City Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(482) C09PC0103 Snowpoint City Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(483) C10PC0103 Pokémon League Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(484) C11PC0103 Fight Area Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(485) T02PC0103 Sandgem Town Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(486) T03PC0103 Floaroma Town Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(487) T04PC0103 Solaceon Town Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(488) T05PC0103 Celestic Town Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(489) T06PC0103 Survival Area Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(490) T07PC0103 Resort Area Pokemon Center Top Floor
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(491) C02R0601 Canalave City R6-01
SCRIPT ORDER:
Script 2
Script 1
SCRIPTS:
Script 1:
CheckStatusPhraseBox? 10 16384
If 16384 0
CheckLR 1 func_1
Clearflag 564
End
Script 2:
End
FUNCTIONS:
Func 1:
Setflag 564
End
(492) R210AR0101 Route 210 A R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Setflag 2537
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Howdy, traveler!
Some of our customers are rowdy
types that want to battle.
But pay it no mind and stay a while."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
ShowMoney 20 2
Message 1 "How are ya doing?
Whatcha having?
’Course, all we ever have is
Moomoo Milk.
Moomoo Milk, $500.
Want a bottle?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_1
CheckMoney 32780 500 0
If 32780 0
CheckLR 1 func_2
Setvar 32772 33
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_3
TakeMoney 500 0
UpdateMoney
Message 2 "Here’s your Moomoo Milk.
Enjoy."
Callstd 224 7
CloseMsgOnKeyPress
HideMoney
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Checkflag 263
CheckLR 1 func_4
Message 6 "Youngster, you’ve seen the
PSYDUCK huddled outside?
PSYDUCK are Pokémon that suffer from
chronic headaches...
I’m afraid we’ll have to wait for them
to get better."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 5 "All right, then.
I should tell you, it’s not that we
can only get Moomoo Milk. No.
We choose to serve only Moomoo Milk.
We’re very particular about it."
Waitbutton
CloseMsgOnKeyPress
HideMoney
Releaseall
End
Func 2:
Message 4 "Oh!
You don’t have the money, sweetie."
Waitbutton
CloseMsgOnKeyPress
HideMoney
Releaseall
End
Func 3:
Message 3 "Oh!
Your Bag’s full, sweetie."
Waitbutton
CloseMsgOnKeyPress
HideMoney
Releaseall
End
Func 4:
Message 7 "Well, well! So I hear you’ve relieved
the PSYDUCK of their headaches.
The person who gave you the
SecretPotion must be quite the Trainer!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(493) D31R0207 Battle Tower R2-07
SCRIPT ORDER:
Script 4
Script 6
Script 7
Script 8
Script 9
Script 10
Script 1
Script 2
Script 3
Script 5
SCRIPTS:
Script 1:
Checkflag 227
CheckLR 0 func_1
If 16607 2
CheckLR 5 func_2
CallBTowerFunctions 55 2 16393
If 16393 0
CheckLR 1 func_1
Clearflag 522
Checkflag 228
CheckLR 0 func_3
If 16607 2
CheckLR 5 func_4
CallBTowerFunctions 55 2 16393
If 16393 1
CheckLR 1 func_3
Clearflag 523
Checkflag 229
CheckLR 0 func_5
If 16607 2
CheckLR 5 func_6
CallBTowerFunctions 55 2 16393
If 16393 2
CheckLR 1 func_5
Clearflag 524
Checkflag 230
CheckLR 0 func_7
If 16607 2
CheckLR 5 func_8
CallBTowerFunctions 55 2 16393
If 16393 3
CheckLR 1 func_7
Clearflag 525
Checkflag 231
CheckLR 0 func_9
If 16607 2
CheckLR 5 func_10
CallBTowerFunctions 55 2 16393
If 16393 4
CheckLR 1 func_9
Clearflag 526
End
Script 2:
If 16607 1
CheckLR1 1 func_11
If 16607 2
CheckLR 1 func_12
End
Script 3:
Lockall
Setvar 16607 0
Goto func_13
Message 0 "Please find a partner from the Trainers
that are gathered here."
CloseMsgOnKeyPress
CallBTowerFunctions 56 0 0
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Setvarhero 0
Message 1 "\v0103\z0000, you have not found
a partner for your tag team.
Would you like to quit looking and
return to the reception counter?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_14
Message 0 "Please find a partner from the Trainers
that are gathered here."
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Lockall
Setvar 16607 0
Message 2 "Thank you for choosing a partner.
I will now show you to your
Multi Battle Room."
CloseMsgOnKeyPress
Goto func_15
Setvar 16603 2
Fadescreen 6 1 0 0
Resetscreen
Warp 327 0 3 6 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Faceplayer
If 16607 2
CheckLR 1 func_16
Setvar 16393 0
RandomTeamBTower 16393 0 32772 32773
EternaGymAnm
Script 7:
Fanfare 1500
Lockall
Faceplayer
If 16607 2
CheckLR 1 func_17
Setvar 16393 1
Goto func_18
Setvarhero 4
Message 15 "Mira: Hi, hi!
I’m with my \v0100\z0000!
It’s really good with \v0106\z0001!
The other one is my \v0100\z0002.
Its \v0106\z0003 is awesome!
\v0103\z0004, do you want to
go with me?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_19
Message 16 "Mira: Oh, OK.
Let’s go another time!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 8:
Fanfare 1500
Lockall
Faceplayer
If 16607 2
CheckLR 1 func_20
Setvar 16393 2
Goto func_18
Message 3 "Riley: The partners I have now?
Well, my \v0100\z0000’s nasty with its
\v0106\z0001.
And there’s my \v0100\z0002, which
is a sure hand with \v0106\z0003.
Would you like to team up with me?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_21
Message 4 "Riley: ...Oh, is that so?
That’s too bad."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 9:
Fanfare 1500
Lockall
Faceplayer
If 16607 2
CheckLR 1 func_22
Setvar 16393 3
Goto func_18
Message 12 "Marley: ...My \v0100\z0000 uses
\v0106\z0001 well...
And my \v0100\z0002 likes to use
\v0106\z0003.
...What do you want?
Am I supposed to go with you?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_23
Message 13 "Marley: ...Whatever..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 10:
Fanfare 1500
Lockall
Faceplayer
If 16607 2
CheckLR 1 func_24
Setvar 16393 4
Goto func_18
Message 9 "Buck: Yo, are you looking to team
up? Let me tell you what I’ve got.
My \v0100\z0000’s first-rate
with \v0106\z0001.
And my \v0100\z0002 is the best when
it comes to using \v0106\z0003.
You want to go with me, don’t you?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_25
Message 10 "Buck: Huh? What?
That’s pretty cold of you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 522
Jump func_26
Func 2:
Clearflag 522
Checkflag 228
CheckLR 0 func_3
If 16607 2
CheckLR 5 func_4
CallBTowerFunctions 55 2 16393
If 16393 1
CheckLR 1 func_3
Clearflag 523
Checkflag 229
CheckLR 0 func_5
If 16607 2
CheckLR 5 func_6
CallBTowerFunctions 55 2 16393
If 16393 2
CheckLR 1 func_5
Clearflag 524
Checkflag 230
CheckLR 0 func_7
If 16607 2
CheckLR 5 func_8
CallBTowerFunctions 55 2 16393
If 16393 3
CheckLR 1 func_7
Clearflag 525
Checkflag 231
CheckLR 0 func_9
If 16607 2
CheckLR 5 func_10
CallBTowerFunctions 55 2 16393
If 16393 4
CheckLR 1 func_9
Clearflag 526
End
Func 3:
Setflag 523
Jump func_27
Func 4:
Clearflag 523
Checkflag 229
CheckLR 0 func_5
If 16607 2
CheckLR 5 func_6
CallBTowerFunctions 55 2 16393
If 16393 2
CheckLR 1 func_5
Clearflag 524
Checkflag 230
CheckLR 0 func_7
If 16607 2
CheckLR 5 func_8
CallBTowerFunctions 55 2 16393
If 16393 3
CheckLR 1 func_7
Clearflag 525
Checkflag 231
CheckLR 0 func_9
If 16607 2
CheckLR 5 func_10
CallBTowerFunctions 55 2 16393
If 16393 4
CheckLR 1 func_9
Clearflag 526
End
Func 5:
Setflag 524
Jump func_28
Func 6:
Clearflag 524
Checkflag 230
CheckLR 0 func_7
If 16607 2
CheckLR 5 func_8
CallBTowerFunctions 55 2 16393
If 16393 3
CheckLR 1 func_7
Clearflag 525
Checkflag 231
CheckLR 0 func_9
If 16607 2
CheckLR 5 func_10
CallBTowerFunctions 55 2 16393
If 16393 4
CheckLR 1 func_9
Clearflag 526
End
Func 7:
Setflag 525
Jump func_29
Func 8:
Clearflag 525
Checkflag 231
CheckLR 0 func_9
If 16607 2
CheckLR 5 func_10
CallBTowerFunctions 55 2 16393
If 16393 4
CheckLR 1 func_9
Clearflag 526
End
Func 9:
Setflag 526
Jump func_30
Func 10:
Clearflag 526
End
Func 11:
RemovePeople2 255
Killscript
Func 12:
SetOwPosition 0 8 0 3 1
End
Func 13:
Goto func_31
Applymovement 0 mov_1
Waitmovement
AddPeople2 255
Applymovement 255 mov_2
Waitmovement
Goto func_32
Applymovement 0 mov_3
Waitmovement
Applymovement 255 mov_4
Waitmovement
Killscript
Func 14:
CloseMsgOnKeyPress
Releaseall
Setvar 16600 3
Fadescreen 6 1 0 0
Resetscreen
Warp 326 0 7 6 0
Fadescreen 6 1 1 0
Resetscreen
End
Func 15:
Goto func_31
Applymovement 0 mov_5
Applymovement 255 mov_6
Waitmovement
Goto func_32
Killscript
Func 16:
Message 7 "Cheryl: Oh...
Too bad..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 17:
Message 16 "Mira: Oh, OK.
Let’s go another time!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 18:
RandomTeamBTower 16393 0 32772 32773
Setvarpokestored 0 32772 0 0
Setvaratk 1 32773
RandomTeamBTower 16393 1 32772 32773
Setvarpokestored 2 32772 0 0
Setvaratk 3 32773
Killscript
Func 19:
CallBTowerFunctions 50 16393 0
Setvar 16607 2
Setvarhero 0
Message 17 "Mira: OK! I’ll wait for you!
\v0103\z0000, don’t be long!"
CloseMsgOnKeyPress
Releaseall
Lock 2
Jump func_33
Func 20:
Message 4 "Riley: ...Oh, is that so?
That’s too bad."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 21:
CallBTowerFunctions 50 16393 0
Setvar 16607 2
Message 5 "Riley: Ahaha, thanks.
I’ll be waiting for you."
CloseMsgOnKeyPress
Releaseall
Lock 3
Jump func_34
Func 22:
Message 13 "Marley: ...Whatever..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 23:
CallBTowerFunctions 50 16393 0
Setvar 16607 2
Message 14 "Marley: ...I’ll go ahead..."
CloseMsgOnKeyPress
Releaseall
Lock 4
Jump func_35
Func 24:
Message 10 "Buck: Huh? What?
That’s pretty cold of you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 25:
CallBTowerFunctions 50 16393 0
Setvar 16607 2
Message 11 "Buck: Hehehe! Good choice!
There’s no problem when I’m around!"
CloseMsgOnKeyPress
Releaseall
Lock 5
Jump func_36
Func 26:
Checkflag 228
CheckLR 0 func_3
If 16607 2
CheckLR 5 func_4
CallBTowerFunctions 55 2 16393
If 16393 1
CheckLR 1 func_3
Clearflag 523
Checkflag 229
CheckLR 0 func_5
If 16607 2
CheckLR 5 func_6
CallBTowerFunctions 55 2 16393
If 16393 2
CheckLR 1 func_5
Clearflag 524
Checkflag 230
CheckLR 0 func_7
If 16607 2
CheckLR 5 func_8
CallBTowerFunctions 55 2 16393
If 16393 3
CheckLR 1 func_7
Clearflag 525
Checkflag 231
CheckLR 0 func_9
If 16607 2
CheckLR 5 func_10
CallBTowerFunctions 55 2 16393
If 16393 4
CheckLR 1 func_9
Clearflag 526
End
Func 27:
Checkflag 229
CheckLR 0 func_5
If 16607 2
CheckLR 5 func_6
CallBTowerFunctions 55 2 16393
If 16393 2
CheckLR 1 func_5
Clearflag 524
Checkflag 230
CheckLR 0 func_7
If 16607 2
CheckLR 5 func_8
CallBTowerFunctions 55 2 16393
If 16393 3
CheckLR 1 func_7
Clearflag 525
Checkflag 231
CheckLR 0 func_9
If 16607 2
CheckLR 5 func_10
CallBTowerFunctions 55 2 16393
If 16393 4
CheckLR 1 func_9
Clearflag 526
End
Func 28:
Checkflag 230
CheckLR 0 func_7
If 16607 2
CheckLR 5 func_8
CallBTowerFunctions 55 2 16393
If 16393 3
CheckLR 1 func_7
Clearflag 525
Checkflag 231
CheckLR 0 func_9
If 16607 2
CheckLR 5 func_10
CallBTowerFunctions 55 2 16393
If 16393 4
CheckLR 1 func_9
Clearflag 526
End
Func 29:
Checkflag 231
CheckLR 0 func_9
If 16607 2
CheckLR 5 func_10
CallBTowerFunctions 55 2 16393
If 16393 4
CheckLR 1 func_9
Clearflag 526
End
Func 30:
End
Func 31:
PrpDoorAnm 0 0 8 2 77
Opendoor 77
Waitaction 77
Killscript
Func 32:
Closedoor 77
Waitaction 77
Waitclose 77
Killscript
Func 33:
Setvar 16384 2
CheckHiroPosition 32768 32769
If 32768 4
CheckLR 1 func_37
Jump func_38
Func 34:
Setvar 16384 3
CheckHiroPosition 32768 32769
If 32769 7
CheckLR 1 func_39
Jump func_40
Func 35:
Setvar 16384 4
CheckHiroPosition 32768 32769
If 32769 9
CheckLR 1 func_41
Jump func_42
Func 36:
Setvar 16384 5
CheckHiroPosition 32768 32769
If 32768 8
CheckLR 1 func_43
Jump func_44
Func 37:
Applymovement 2 mov_7
Waitmovement
Jump func_45
Func 38:
Applymovement 2 mov_8
Waitmovement
Jump func_45
Func 39:
Applymovement 3 mov_9
Waitmovement
Jump func_45
Func 40:
Applymovement 3 mov_10
Waitmovement
Jump func_45
Func 41:
Applymovement 4 mov_11
Waitmovement
Jump func_45
Func 42:
Applymovement 4 mov_12
Waitmovement
Jump func_45
Func 43:
Applymovement 5 mov_13
Waitmovement
Jump func_45
Func 44:
Applymovement 5 mov_14
Waitmovement
Jump func_45
Func 45:
Applymovement 16384 mov_15
Waitmovement
Applymovement 0 mov_16
Waitmovement
Goto func_31
Applymovement 16384 mov_17
Waitmovement
Goto func_32
Applymovement 0 mov_18
Waitmovement
Fadescreen 6 1 0 0
Resetscreen
Warp 493 0 8 4 0
Fadescreen 6 1 1 0
Resetscreen
Releaseall
End
(494) D26R0107 Galactic HQ R1-07
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
Script 5
Script 6
Script 7
Script 8
Script 9
Script 10
Script 12
Script 13
Script 14
Script 11
SCRIPTS:
Script 1:
Checkflag 2429
CheckLR 1 func_1
End
Script 2:
GalactAnm
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Checkflag 2429
CheckLR 1 func_2
Checkflag 173
CheckLR 1 func_3
Message 0 "You... You came all the way here
just to save some Pokémon?
...Though it’s nothing new, I can’t
say I understand our boss...
Why would he let a kid like you
come and go freely...?
We, Team Galactic, take all that we
need, and eliminate what we do not.
But anyway. You’ve taken the trouble
to come. Let me welcome you!
Consider it payback for your insulting
me at the lake."
CloseMsgOnKeyPress
TrainerBattle 409 0
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_4
Setflag 173
Setvar 16653 1
Message 1 "...Gah!
What makes you so tough?
Fine... Do whatever you want with
those three Pokémon.
Press the button on that machine
to set them free."
CloseMsgOnKeyPress
CheckFacePosition 32772
Copyvar 16386 32772
If 32772 0
CheckLR 1 func_5
If 32772 2
CheckLR 1 func_6
If 32772 3
CheckLR 1 func_7
End
Script 4:
Fanfare 1500
Lockall
Checkflag 2429
CheckLR 1 func_8
Message 8 "UXIE is sealed inside! It appears to
be suffering, with eyes squeezed shut."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 5:
Fanfare 1500
Lockall
Checkflag 2429
CheckLR 1 func_9
Message 9 "MESPRIT is sealed inside! It seems to
be suffering, with its tail twitching."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 6:
Fanfare 1500
Lockall
Checkflag 2429
CheckLR 1 func_10
Message 10 "AZELF is sealed inside! It appears to
be suffering, with wracking shudders."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 7:
End
Script 8:
End
Script 9:
End
Script 10:
Fanfare 1500
Lockall
Checkflag 2429
CheckLR 1 func_11
Message 5 "Press the button and set
the Pokémon free?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_12
If 32780 1
CheckLR 1 func_13
End
Script 11:
Lockall
Message 4 "Press the button and set them free.
Isn’t that why you came?"
CloseMsgOnKeyPress
Applymovement 255 mov_1
Waitmovement
Releaseall
End
Script 12:
Fanfare 1500
Lockall
Faceplayer
Message 8 "UXIE is sealed inside! It appears to
be suffering, with eyes squeezed shut."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 13:
Fanfare 1500
Lockall
Faceplayer
Message 9 "MESPRIT is sealed inside! It seems to
be suffering, with its tail twitching."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 14:
Fanfare 1500
Lockall
Faceplayer
Message 10 "AZELF is sealed inside! It appears to
be suffering, with wracking shudders."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
ChangeOwPosition 0 9 6
End
Func 2:
Message 3 "Our boss crafted a Red Chain from
crystals he took from the three\fPokémon.
That Red Chain is what he needed to
shackle something on Mt. Coronet.
But that’s all I know. Who knows
what he’s planning to do up there."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 3:
Message 2 "Press the button and set them free.
Isn’t that why you came?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
LostGoPc
Releaseall
End
Func 5:
Applymovement 0 mov_2
Waitmovement
Jump func_14
Func 6:
Applymovement 0 mov_3
Waitmovement
Jump func_14
Func 7:
Applymovement 0 mov_4
Waitmovement
Jump func_14
Func 8:
Message 11 "It’s Team Galactic’s sinister machine.
UXIE had been sealed inside it."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Message 12 "It’s Team Galactic’s sinister machine.
MESPRIT had been sealed inside it."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Message 13 "It’s Team Galactic’s sinister machine.
AZELF had been sealed inside it."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 11:
Message 7 "The button has been pressed already.
You have to leave."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 12:
Setvar 16653 0
Fanfare 1509
Setvarhero 0
Message 6 "\v0103\z0000 pressed the button and
set the Pokémon free."
CloseMsgOnKeyPress
Clearflag 691
Setflag 2429
GalactAnm2
Return 30 32780
Applymovement 2 mov_5
Applymovement 1 mov_6
Applymovement 3 mov_7
Waitmovement
Return 30 32780
Removepeople 2
Removepeople 1
Removepeople 3
Return 30 32780
If 16386 0
CheckLR 1 func_15
If 16386 2
CheckLR 1 func_16
If 16386 3
CheckLR 1 func_17
End
Func 13:
CloseMsgOnKeyPress
Releaseall
End
Func 14:
Releaseall
End
Func 15:
Applymovement 0 mov_8
Applymovement 255 mov_9
Waitmovement
Jump func_18
Func 16:
Applymovement 0 mov_10
Applymovement 255 mov_11
Waitmovement
Jump func_18
Func 17:
Applymovement 0 mov_8
Applymovement 255 mov_9
Waitmovement
Jump func_18
Func 18:
Message 3 "Our boss crafted a Red Chain from
crystals he took from the three\fPokémon.
That Red Chain is what he needed to
shackle something on Mt. Coronet.
But that’s all I know. Who knows
what he’s planning to do up there."
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Removepeople 0
Fadescreen 6 1 1 0
Resetscreen
Setflag 595
Releaseall
End
(495) C10R0114 Pokémon League R1-14
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(496) C10R0115 Pokémon League R1-15
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(497) D26R0108 Galactic HQ R1-08
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I cooperated with Team Galactic, but
this experiment has gone too far..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "...I can’t say anything in our
defense...
But that thing we made...
What is it going to be used for?"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 2 "There is something suspended in
a green fluid..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(498) R225R0101 Route 225 R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 217
CheckLR 1 func_1
Message 0 "Are you traveling to train?
Here, have this refreshing drink."
Setvar 32772 30
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_2
Callstd 252 7
Setflag 217
Jump func_1
FUNCTIONS:
Func 1:
Message 1 "Water is the wellspring of life.
Having said that, no one knows where
Pokémon originated."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
(499) W226R0101 Route 226 R1-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Setflag 2545
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Checkflag 245
CheckLR 1 func_1
Checkflag 246
CheckLR 1 func_2
Message 0 "Hey, konnichiwa!
Glad to meet you, guten tag!
I’m the Meister.
In this language’s parlance I would
be called a craftsman.
Something like that, n’est ce pas?
Comprendo?"
022B
Setflag 246
Message 1 "So, sniff, sniff, I smell you!
I smell something about you!
There is no question! You are a lover
of Pokémon just like me!
This is wunderbar!
So, this is what I will do.
I will power up your Pokédex so you
can read the descriptions of Pokémon
in other languages!
Je suis desolee, but not for all
Pokémon, however.
Only the Pokémon of countries, I,
the Meister, have visited.
Now, may I see your Pokédex?
So, I change this setting here...
Fool with this here... And done!
Now, you may read the descriptions
of the Meister’s Pokémon favorites
in other languages. How uber!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 7 "It’s a poster that lists the names
of Pokémon.
The world-traveling Meister’s
favorite Pokémon list.
EKANS\v0203\z0046PIKACHU\v0203\z008CPSYDUCK
PONYTA\v0203\z0046STARYU\v0203\z008CMAGIKARP
WOBBUFFET\v0203\z0046HERACROSS\v0203\z008CSNEASEL
TEDDIURSA\v0203\z0046HOUNDOUR\v0203\z008CWINGULL
SLAKOTH\v0203\z0046ROSELIA"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 6 "Because there are Pokémon, I can
make friends anywhere in the world.
It so inspires me knowing that.
It’s so wonderful in a wonderful way!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 2:
Message 2 "Hey, konnichiwa!
Bonjour and all the rest!
Have you a Pokémon named FINNEON?
C’est un Pokémon fish-style?
If you will be so kind, trade it will
you for my precious MAGIKARP?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_3
Jump func_4
Func 3:
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
TradeChosenPoke
StorePokeMenu2 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 255
CheckLR 1 func_4
SetTradeId 3
Copyvar 32772 32780
CheckPokeEgg 32772 32773
CheckPokeTrade 32780
If2 32773 32780
CheckLR 5 func_5
TradeChsPoke 32772
StopTrade
Setflag 245
Message 3 "Danke schon, arigato, gracias,
and what-have-you!
That MAGIKARP, it accompanied me from
the country of my birth.
Be good to it, I beseech you!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 5 "Oh! This is a tragedy!
A tragedy, I tell you!
But one day, you will trade me
the Pokémon I want!
The Meister knows this because I have
traveled the world!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
StopTrade
Message 4 "Oh, non, non! That is no FINNEON!
What I want is a FINNEON!\fYou have made the Meister melancholy!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(500) R227R0101 Route 227 R1-01
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Oh, dear, are your Pokémon feeling
tired?
You should rest up.
Yes, good idea! Rest up here!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
End
FUNCTIONS:
Func 1:
Message 1 "Yes, yes, that’s right.
Get some well-earned rest."
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
Soundfr 1166
Fadedef
HealPkmn
Fadescreen 6 1 1 0
Resetscreen
Message 2 "Oh, you’re still looking tired.
You’re still needing rest, are you?
You should rest up again.
Yes, good idea! Rest up here!"
Yesnobox 32780
If 32780 0
CheckLR 1 func_1
If 32780 1
CheckLR 1 func_2
End
Func 2:
Message 3 "Is that right?
You’re sure now?
I’m only concerned for your sake. No
need to worry about putting me out!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(501) R228R0101 Route 228 R1-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 1 ""
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 2 "I’m going to become number one in
Sinnoh’s Contests!
I’m going to win with a Pokémon that
you can only find here!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(502) R228R0201 Route 228 R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 264
CheckLR 1 func_1
Setflag 264
Message 0 "Your quest for power has brought
you here...
...Very well.
Let me reward your passion with some
absolutely astounding moves.
They’re the ultimate moves!
Shall I teach them to your Pokémon?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_2
Jump func_3
Script 2:
Fanfare 1500
Lockall
Message 18 "To the Pokémon listed here,
the ultimate moves may be taught!
The blazing fire Pokémon
\v0203\z0007CHARIZARD TYPHLOSION
\v0203\z0007BLAZIKEN INFERNAPE
The restless water Pokémon
\v0203\z0007BLASTOISE FERALIGATR
\v0203\z0007SWAMPERT EMPOLEON
The quiet grass Pokémon
\v0203\z0007VENUSAUR MEGANIUM
\v0203\z0007SCEPTILE TORTERRA"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "The ultimate moves!
Shall I teach them to your Pokémon?"
Yesnobox 32780
If 32780 0
CheckLR 1 func_2
Jump func_3
Func 2:
Message 2 "To which Pokémon should I teach
a move?"
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
ChsPokemenu
StorePokeMenu2 32768
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32768 255
CheckLR 1 func_3
CheckPokeEgg 32768 32769
If 32769 0
CheckLR 1 func_4
Goto func_5
If 32780 0
CheckLR 1 func_6
Copyvar 32770 32780
Goto func_7
If 32780 1
CheckLR 1 func_8
StoreHappyPoke 32780 32768
If 32780 255
CheckLR 0 func_9
Setvarpoke 0 32768
If 32770 1
CheckLR 1 func_10
If 32770 2
CheckLR 1 func_11
Jump func_12
Func 3:
Message 3 "Hmm... Well, that is fine, as well.
Visit if you have a change of heart."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Message 6 "Teach a move to an Egg?
Impossible even for me! Keh!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 5:
If 32769 6
CheckLR 1 func_13
If 32769 157
CheckLR 1 func_13
If 32769 257
CheckLR 1 func_13
If 32769 392
CheckLR 1 func_13
If 32769 9
CheckLR 1 func_14
If 32769 160
CheckLR 1 func_14
If 32769 260
CheckLR 1 func_14
If 32769 395
CheckLR 1 func_14
If 32769 3
CheckLR 1 func_15
If 32769 154
CheckLR 1 func_15
If 32769 254
CheckLR 1 func_15
If 32769 389
CheckLR 1 func_15
Setvar 32780 0
Killscript
Func 6:
Message 5 "That Pokémon can’t learn a move!
Read the poster! Keh!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 7:
If 32770 1
CheckLR 1 func_16
If 32770 2
CheckLR 1 func_17
Jump func_18
Func 8:
Message 8 "That Pokémon already knows the move
I’ve offered to teach! Keh!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 9:
Message 7 "You’ve not bonded strongly enough
with your Pokémon! Keh!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Func 10:
Message 9 "I should teach Blast Burn to
your \v0100\z0000?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_3
Setvar 32771 307
Jump func_19
Func 11:
Message 10 "I should teach Hydro Cannon to
your \v0100\z0000?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_3
Setvar 32771 308
Jump func_19
Func 12:
Message 11 "I should teach Frenzy Plant to
your \v0100\z0000?"
Yesnobox 32780
If 32780 1
CheckLR 1 func_3
Setvar 32771 338
Jump func_19
Func 13:
Setvar 32780 1
Killscript
Func 14:
Setvar 32780 2
Killscript
Func 15:
Setvar 32780 3
Killscript
Func 16:
Checkmove 32780 307 32768
Killscript
Func 17:
Checkmove 32780 308 32768
Killscript
Func 18:
Checkmove 32780 338 32768
Killscript
Func 19:
CloseMsgOnKeyPress
Fadescreen 6 1 0 0
Resetscreen
CopyMoveRemember 32768 32771
StoreMoveRemember 32780
Callend
Fadescreen 6 1 1 0
Resetscreen
If 32780 255
CheckLR 1 func_3
Releaseall
End
(503) R228R0301 Route 228 R3-01
SCRIPT ORDER:
Script 1
Script 2
Script 3
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I spend all my time reading here.
My son is an avid reader, too.
I recently learned that the word
universe meant time and space in
an ancient language."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Message 1 "There are many old books here...
“Space and the Galaxies”
“The Beginning of Space”
“Beyond Time and Space”..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Message 2 "There are many old books here...
“The Secrets of Psychics”
“The Hidden Powers of Pokémon”
“What is Psychic Energy?”..."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(504) D06R0201 Great Marsh R2-01
SCRIPT ORDER:
Script 2
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Go upstairs in the Observatory before
you start your Safari Game.
Check the marsh with the binoculars
to see where the Pokémon you want
happen to be. That’s how you win!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 513 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(505) D06R0202 Great Marsh R2-02
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "I think the Pokémon you find here
are different over time."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 513 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(506) D06R0203 Great Marsh R2-03
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "If you throw food at Pokémon, it
makes them easier to catch...
But they’re also more likely to
bolt when they eat.
If you throw mud at them, they
also get easier to catch...
But they also get more likely to
bolt out of anger.
It’s hard to decide what I should
be doing."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 513 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(507) D06R0204 Great Marsh R2-04
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "When you’re walking on boggy parts,
sometimes you get sucked down.
Getting free of the bog takes time,
which is a luxury in a Safari Game."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 513 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(508) D06R0205 Great Marsh R2-05
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Quick, quick, out in the sticks.
To and fro we go, we’re quick~♫
If you’re thinking about going deep
into the marsh, I recommend you take
the Great Marsh Quick Trams."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 513 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
None
(509) D06R0206 Great Marsh R2-06
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Checkflag 352
CheckLR 1 func_1
Message 0 "I found this during the Safari
Game.
It’s the Hidden Machine Defog, but
none of my Pokémon can learn it.
You’d be doing me a favor if you
took this."
Setvar 32772 424
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_1
Setflag 352
Callstd 224 7
CloseMsgOnKeyPress
Releaseall
End
Script 2:
CallMsgBox 514 0 32780
TypeMsgBox 3
NoMapMsgBox
StoreMenuStatus 32780
Callstd 208 7
End
FUNCTIONS:
Func 1:
Message 1 "It’d be good if we could set up signs
for the Safari Game. Some markers."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(510) D05R0116 Mt. Coronet R1-16
SCRIPT ORDER:
Script 2
Script 3
Script 1
Script 3
SCRIPTS:
Script 1:
End
Script 2:
Checkflag 142
CheckLR 1 func_1
End
Script 3:
Lockall
Setvar 16664 0
Goto func_2
Goto func_3
Cryfr 493 0
WaitCry
Goto func_4
Cryfr 493 0
Message 0 "Dodogyuuun!"
CloseMsgOnKeyPress
Setflag 142
WildBattle2 493 80 31 142
CheckTrainerLost 32780
If 32780 0
CheckLR 1 func_5
CheckWildBattle2 32780
If 32780 1
CheckLR 1 func_6
Setflag 286
Releaseall
End
FUNCTIONS:
Func 1:
Setflag 620
Removepeople 0
Clearflag 142
End
Func 2:
Applymovement 255 mov_1
Waitmovement
Killscript
Func 3:
CheckHiroPosition 32772 32773
Copyvar 32776 32772
If 32776 30
CheckLR 1 func_7
If 32776 31
CheckLR 1 func_8
If 32776 32
CheckLR 1 func_9
Killscript
Func 4:
Applymovement 255 mov_2
Waitmovement
Killscript
Func 5:
Clearflag 620
LostGoPc
Releaseall
End
Func 6:
Message 1 "ARCEUS disappeared from sight..."
Waitbutton
CloseMsgOnKeyPress
Clearflag 620
Releaseall
End
Func 7:
Applymovement 255 mov_3
Waitmovement
Jump func_10
Func 8:
Applymovement 255 mov_4
Waitmovement
Jump func_10
Func 9:
Applymovement 255 mov_5
Waitmovement
Jump func_10
Func 10:
Killscript
(511) D05R0117 Mt. Coronet R1-17
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(512) D22R0102 Ruin Maniac Cave R1-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
CheckRuinManiac 32780
If 32780 26
CheckLR 4 func_1
Message 0 "Everyone calls me the Ruin Maniac.
Or they used to call me that.
Now they call me the Digging Maniac.
I’ll just go on chipping away at
the rock wall a little at a time.
Do you know why? I’m a Ruin Maniac
who is fascinated by the UNOWN
and who also loves to dig!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
Func 1:
Message 1 "Everyone calls me the Ruin Maniac.
Or they used to call me that.\fNow they call me the Digging Maniac.
I’ll just go on chipping away at
the rock wall a little at a time.
Do you know why? I’m a Ruin Maniac
who also loves to dig!
I need to bear down and pound my
way through the bedrock now.
I think I’m getting close to some
exciting and mysterious UNOWN.
It’s going to be messy.
You’d better go outside."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
(513) D22R0103 Ruin Maniac Cave R1-03
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Wow... My digging punched me through
to this weird place.
I’d say you can thank me for being
a Ruin Maniac!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(514) D24R0201 Iron Island R2-01
SCRIPT ORDER:
Script 1
Script 2
SCRIPTS:
Script 1:
Checkflag 285
CheckLR 1 func_1
CheckNatPokedexStatus 2 16384
If 16384 1
CheckLR1 1 func_2
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Byron: Hm?
You’re in training, then?
You know, my son trains as hard as
you do.
But I still treat him as if he were
a child.
It’s ridiculous, really.
He is a proper Gym Leader and all.
It’s always tricky between a father
and son, it seems.
Humph, I’ve wasted your time.
Take this as my apology!"
Setvar 32772 233
Setvar 32773 1
CheckStoreItem 32772 32773 32780
If 32780 0
CheckLR 1 func_3
Callstd 252 7
Setflag 285
Message 1 "There are Pokémon that evolve into
the Steel type using that Metal Coat.
They need to hold that item while
being traded to evolve.
Try using it if you’d like.
Farewell!"
CloseMsgOnKeyPress
CheckFacePosition 32772
If 32772 2
CheckLR 1 func_4
If 32772 3
CheckLR 1 func_5
If 32772 0
CheckLR 1 func_4
If 32772 1
CheckLR 1 func_5
End
FUNCTIONS:
Func 1:
Setflag 619
End
Func 2:
Clearflag 619
Killscript
Func 3:
Callstd 225 7
CloseMsgOnKeyPress
Releaseall
End
Func 4:
Applymovement 0 mov_1
Waitmovement
Fanfare 1539
Removepeople 0
WaitFanfare 1539
Fanfare2 1539
Releaseall
End
Func 5:
Applymovement 0 mov_2
Waitmovement
Fanfare 1539
Removepeople 0
WaitFanfare 1539
Fanfare2 1539
Releaseall
End
(515) D07R0119 Solaceon Ruins R1-19
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(516) C08R0802 Sunyshore City R8-02
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Lockall
Applymovement 255 mov_1
Waitmovement
CheckFloor 16590
Copyvar 32776 16590
If 32776 1
CheckLR 1 func_1
If 32776 0
CheckLR 1 func_2
End
FUNCTIONS:
Func 1:
Setvar 32772 0
Goto func_3
Fadescreen 6 1 0 0
Resetscreen
Warp 164 0 6 10 1
Fadescreen 6 1 1 0
Resetscreen
End
Func 2:
Setvar 32772 1
Goto func_3
Fadescreen 6 1 0 0
Resetscreen
Warp 150 0 886 791 1
Fadescreen 6 1 1 0
Resetscreen
End
Func 3:
WaitFanfare 1500
StoreElevatorDirection 32772 4
Applymovement 255 mov_2
Waitmovement
Fanfare 1539
Killscript
(517) C01R0802 Jubilife City R8-02
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "Wi: We come from faraway land.
I come see the Pokémon I trade.
I worry if it growing properly."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "Fi: I like look at Pokémon I get
from friend in trade.
It make me remember my friend!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "You can trade Pokémon with people
around the world on Nintendo WFC...
Just hearing that gets my heart
racing. Such exciting times!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 3 "When you connect with people on
Nintendo WFC, it’s hard to
tell if the world’s big or small."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None
(518) D17R0108 Sendoff Spring Turnback Cave-08
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(519) D17R0109 Sendoff Spring Turnback Cave-09
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(520) D17R0110 Sendoff Spring Turnback Cave-10
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(521) D17R0111 Sendoff Spring Turnback Cave-11
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(522) D17R0112 Sendoff Spring Turnback Cave-12
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(523) D17R0113 Sendoff Spring Turnback Cave-13
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(524) D17R0114 Sendoff Spring Turnback Cave-14
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(525) D17R0115 Sendoff Spring Turnback Cave-15
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(526) D17R0116 Sendoff Spring Turnback Cave-16
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(527) D17R0117 Sendoff Spring Turnback Cave-17
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(528) D17R0118 Sendoff Spring Turnback Cave-18
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(529) D17R0119 Sendoff Spring Turnback Cave-19
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(530) D17R0120 Sendoff Spring Turnback Cave-20
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(531) D17R0121 Sendoff Spring Turnback Cave-21
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Setvalue 16652 1
CheckTurnBack 16651 16652
End
FUNCTIONS:
None
(532) D17R0122 Sendoff Spring Turnback Cave-22
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
Goto func_1
CheckTurnBack 16651 16652
End
FUNCTIONS:
Func 1:
Setvalue 16652 1
Killscript
(533) D17R0123 Sendoff Spring Turnback Cave-23
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(534) D17R0124 Sendoff Spring Turnback Cave-24
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(535) D17R0125 Sendoff Spring Turnback Cave-25
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(536) D17R0126 Sendoff Spring Turnback Cave-26
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(537) D17R0127 Sendoff Spring Turnback Cave-27
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(538) D17R0128 Sendoff Spring Turnback Cave-28
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(539) D17R0129 Sendoff Spring Turnback Cave-29
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(540) D17R0130 Sendoff Spring Turnback Cave-30
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(541) D17R0131 Sendoff Spring Turnback Cave-31
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(542) D17R0132 Sendoff Spring Turnback Cave-32
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(543) D17R0133 Sendoff Spring Turnback Cave-33
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(544) D17R0134 Sendoff Spring Turnback Cave-34
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(545) D17R0135 Sendoff Spring Turnback Cave-35
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(546) D17R0136 Sendoff Spring Turnback Cave-36
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(547) D17R0137 Sendoff Spring Turnback Cave-37
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(548) D17R0138 Sendoff Spring Turnback Cave-38
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(549) D17R0139 Sendoff Spring Turnback Cave-39
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(550) D17R0140 Sendoff Spring Turnback Cave-40
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(551) D17R0141 Sendoff Spring Turnback Cave-41
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(552) D17R0142 Sendoff Spring Turnback Cave-42
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(553) D17R0143 Sendoff Spring Turnback Cave-43
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(554) D17R0144 Sendoff Spring Turnback Cave-44
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(555) D17R0145 Sendoff Spring Turnback Cave-45
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(556) D17R0146 Sendoff Spring Turnback Cave-46
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(557) D17R0147 Sendoff Spring Turnback Cave-47
SCRIPT ORDER:
Script 1
SCRIPTS:
Script 1:
End
FUNCTIONS:
None
(558) C05R1103 Hearthome City R11-03
SCRIPT ORDER:
Script 1
Script 2
Script 3
Script 4
SCRIPTS:
Script 1:
Fanfare 1500
Lockall
Faceplayer
Message 0 "For the Visual judging, you want to
dress up your Pokémon nicely with
Accessories matched to the theme.
That means you’ll be at an advantage
if you have lots of Accessories."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 2:
Fanfare 1500
Lockall
Faceplayer
Message 1 "For the Dance competition, your
Pokémon needs to perfectly mimic
the dance steps of the lead dancer."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 3:
Fanfare 1500
Lockall
Faceplayer
Message 2 "For the performance aspect of
Contests, Pokémon need the right
kinds of moves.
But what’s even more important is
your choice of the Judge.
If everyone performs for the same
Judge, your Pokémon leaves less of
an impression on that Judge."
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
Script 4:
Fanfare 1500
Lockall
Faceplayer
Message 3 "At the Cool Contest you gotta pull
off a cool move!
Gets the Judges all excited!
If the Judge’s excitement peaks, you
score massive bonus points! So hot!"
Waitbutton
CloseMsgOnKeyPress
Releaseall
End
FUNCTIONS:
None