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’