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