Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- StdScripts::
- dba PokeCenterNurseScript
- dba DifficultBookshelfScript
- dba PictureBookshelfScript
- dba MagazineBookshelfScript
- dba TeamRocketOathScript
- dba IncenseBurnerScript
- dba MerchandiseShelfScript
- dba TownMapScript
- dba WindowScript
- dba TVScript
- dba HomepageScript
- dba Radio1Script
- dba Radio2Script
- dba TrashCanScript
- dba StrengthBoulderScript
- dba SmashRockScript
- dba PokeCenterSignScript
- dba MartSignScript
- dba GoldenrodRocketsScript
- dba RadioTowerRocketsScript
- dba ElevatorButtonScript
- dba DayToTextScript
- dba BugContestResultsWarpScript
- dba BugContestResultsScript
- dba InitializeEventsScript
- dba AskNumber1MScript
- dba AskNumber2MScript
- dba RegisteredNumberMScript
- dba NumberAcceptedMScript
- dba NumberDeclinedMScript
- dba PhoneFullMScript
- dba RematchMScript
- dba GiftMScript
- dba PackFullMScript
- dba RematchGiftMScript
- dba AskNumber1FScript
- dba AskNumber2FScript
- dba RegisteredNumberFScript
- dba NumberAcceptedFScript
- dba NumberDeclinedFScript
- dba PhoneFullFScript
- dba RematchFScript
- dba GiftFScript
- dba PackFullFScript
- dba RematchGiftFScript
- dba GymStatue1Script
- dba GymStatue2Script
- dba ReceiveItemScript
- dba ReceiveTogepiEggScript
- dba PCScript
- dba GameCornerCoinVendorScript
- dba HappinessCheckScript
- PokeCenterNurseScript:
- ; EVENT_WELCOMED_TO_POKECOM_CENTER is never set
- opentext
- checkmorn
- iftrue .morn
- checkday
- iftrue .day
- checknite
- iftrue .nite
- jump .ok
- .morn
- checkevent EVENT_WELCOMED_TO_POKECOM_CENTER
- iftrue .morn_comcenter
- farwritetext NurseMornText
- buttonsound
- jump .ok
- .morn_comcenter
- farwritetext PokeComNurseMornText
- buttonsound
- jump .ok
- .day
- checkevent EVENT_WELCOMED_TO_POKECOM_CENTER
- iftrue .day_comcenter
- farwritetext NurseDayText
- buttonsound
- jump .ok
- .day_comcenter
- farwritetext PokeComNurseDayText
- buttonsound
- jump .ok
- .nite
- checkevent EVENT_WELCOMED_TO_POKECOM_CENTER
- iftrue .nite_comcenter
- farwritetext NurseNiteText
- buttonsound
- jump .ok
- .nite_comcenter
- farwritetext PokeComNurseNiteText
- buttonsound
- jump .ok
- .ok
- ; only do this once
- clearevent EVENT_WELCOMED_TO_POKECOM_CENTER
- farwritetext NurseAskHealText
- yesorno
- iffalse .done
- farwritetext NurseTakePokemonText
- pause 20
- special Mobile_HealParty
- spriteface LAST_TALKED, LEFT
- pause 10
- special HealParty
- playmusic MUSIC_NONE
- writebyte 0 ; Machine is at a Pokemon Center
- special HealMachineAnim
- pause 30
- special RestartMapMusic
- spriteface LAST_TALKED, DOWN
- pause 10
- checkphonecall ; elm already called about pokerus
- iftrue .no
- checkflag ENGINE_POKERUS ; nurse already talked about pokerus
- iftrue .no
- special SpecialCheckPokerus
- iftrue .pokerus
- .no
- farwritetext NurseReturnPokemonText
- pause 20
- .done
- farwritetext NurseGoodbyeText
- spriteface LAST_TALKED, UP
- pause 10
- spriteface LAST_TALKED, DOWN
- pause 10
- waitbutton
- closetext
- end
- .pokerus
- ; already cleared earlier in the script
- checkevent EVENT_WELCOMED_TO_POKECOM_CENTER
- iftrue .pokerus_comcenter
- farwritetext NursePokerusText
- waitbutton
- closetext
- jump .pokerus_done
- .pokerus_comcenter
- farwritetext PokeComNursePokerusText
- waitbutton
- closetext
- .pokerus_done
- setflag ENGINE_POKERUS
- specialphonecall SPECIALCALL_POKERUS
- end
- DifficultBookshelfScript:
- farjumptext DifficultBookshelfText
- PictureBookshelfScript:
- farjumptext PictureBookshelfText
- MagazineBookshelfScript:
- farjumptext MagazineBookshelfText
- TeamRocketOathScript:
- farjumptext TeamRocketOathText
- IncenseBurnerScript:
- farjumptext IncenseBurnerText
- MerchandiseShelfScript:
- farjumptext MerchandiseShelfText
- TownMapScript:
- opentext
- farwritetext TownMapText
- waitbutton
- special Special_TownMap
- closetext
- end
- WindowScript:
- farjumptext WindowText
- TVScript:
- opentext
- farwritetext TVText
- waitbutton
- closetext
- end
- HomepageScript:
- farjumptext HomepageText
- Radio1Script:
- opentext
- writebyte MAPRADIO_POKEMON_CHANNEL
- special MapRadio
- closetext
- end
- Radio2Script:
- ; Lucky Channel
- opentext
- writebyte MAPRADIO_LUCKY_CHANNEL
- special MapRadio
- closetext
- end
- TrashCanScript: ; 0xbc1a5
- farjumptext TrashCanText
- PCScript:
- opentext
- special PokemonCenterPC
- closetext
- end
- ElevatorButtonScript:
- playsound SFX_READ_TEXT_2
- pause 15
- playsound SFX_ELEVATOR_END
- end
- StrengthBoulderScript:
- farjump AskStrengthScript
- SmashRockScript:
- farjump AskRockSmashScript
- PokeCenterSignScript:
- farjumptext PokeCenterSignText
- MartSignScript
- farjumptext MartSignText
- DayToTextScript:
- checkcode VAR_WEEKDAY
- if_equal MONDAY, .Monday
- if_equal TUESDAY, .Tuesday
- if_equal WEDNESDAY, .Wednesday
- if_equal THURSDAY, .Thursday
- if_equal FRIDAY, .Friday
- if_equal SATURDAY, .Saturday
- stringtotext .SundayText, 0
- end
- .Monday
- stringtotext .MondayText, 0
- end
- .Tuesday
- stringtotext .TuesdayText, 0
- end
- .Wednesday
- stringtotext .WednesdayText, 0
- end
- .Thursday
- stringtotext .ThursdayText, 0
- end
- .Friday
- stringtotext .FridayText, 0
- end
- .Saturday
- stringtotext .SaturdayText, 0
- end
- .SundayText
- db "SUNDAY@"
- .MondayText
- db "MONDAY@"
- .TuesdayText
- db "TUESDAY@"
- .WednesdayText
- db "WEDNESDAY@"
- .ThursdayText
- db "THURSDAY@"
- .FridayText
- db "FRIDAY@"
- .SaturdayText
- db "SATURDAY@"
- GoldenrodRocketsScript:
- clearevent EVENT_GOLDENROD_CITY_ROCKET_TAKEOVER
- end
- RadioTowerRocketsScript:
- setflag ENGINE_ROCKETS_IN_RADIO_TOWER
- setevent EVENT_GOLDENROD_CITY_CIVILIANS
- setevent EVENT_RADIO_TOWER_BLACKBELT_BLOCKS_STAIRS
- clearevent EVENT_RADIO_TOWER_ROCKET_TAKEOVER
- clearevent EVENT_USED_THE_CARD_KEY_IN_THE_RADIO_TOWER
- setevent EVENT_MAHOGANY_TOWN_POKEFAN_M_BLOCKS_EAST
- specialphonecall SPECIALCALL_WEIRDBROADCAST
- domaptrigger MAHOGANY_TOWN, $1
- end
- BugContestResultsWarpScript:
- special ClearBGPalettes
- scall BugContestResults_CopyContestantsToResults
- setevent EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_CONTEST_DAY
- clearevent EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_NOT_CONTEST_DAY
- setevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE
- warp ROUTE_36_NATIONAL_PARK_GATE, $0, $4
- applymovement PLAYER, Movement_ContestResults_WalkAfterWarp
- BugContestResultsScript:
- clearflag ENGINE_BUG_CONTEST_TIMER
- clearevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE
- clearevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
- clearevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
- clearevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
- clearevent EVENT_CONTEST_OFFICER_HAS_BERRY
- opentext
- farwritetext ContestResults_ReadyToJudgeText
- waitbutton
- special BugContestJudging
- RAM2MEM $0
- if_equal 1, BugContestResults_FirstPlace
- if_equal 2, BugContestResults_SecondPlace
- if_equal 3, BugContestResults_ThirdPlace
- farwritetext ContestResults_ConsolationPrizeText
- buttonsound
- waitsfx
- verbosegiveitem BERRY
- iffalse BugContestResults_NoRoomForBerry
- BugContestResults_DidNotWin
- farwritetext ContestResults_DidNotWinText
- buttonsound
- jump BugContestResults_FinishUp
- ; 0xbc2b1
- BugContestResults_ReturnAfterWinnersPrize ; 0xbc2b1
- farwritetext ContestResults_JoinUsNextTimeText
- buttonsound
- BugContestResults_FinishUp
- checkevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER
- iffalse BugContestResults_DidNotLeaveMons
- farwritetext ContestResults_ReturnPartyText
- waitbutton
- special ContestReturnMons
- BugContestResults_DidNotLeaveMons
- special CheckPartyFullAfterContest
- if_equal $0, BugContestResults_CleanUp
- if_equal $2, BugContestResults_CleanUp
- farwritetext ContestResults_PartyFullText
- waitbutton
- BugContestResults_CleanUp
- closetext
- dotrigger $0
- domaptrigger ROUTE_35_NATIONAL_PARK_GATE, $0
- setevent EVENT_BUG_CATCHING_CONTESTANT_1A
- setevent EVENT_BUG_CATCHING_CONTESTANT_2A
- setevent EVENT_BUG_CATCHING_CONTESTANT_3A
- setevent EVENT_BUG_CATCHING_CONTESTANT_4A
- setevent EVENT_BUG_CATCHING_CONTESTANT_5A
- setevent EVENT_BUG_CATCHING_CONTESTANT_6A
- setevent EVENT_BUG_CATCHING_CONTESTANT_7A
- setevent EVENT_BUG_CATCHING_CONTESTANT_8A
- setevent EVENT_BUG_CATCHING_CONTESTANT_9A
- setevent EVENT_BUG_CATCHING_CONTESTANT_10A
- setevent EVENT_BUG_CATCHING_CONTESTANT_1B
- setevent EVENT_BUG_CATCHING_CONTESTANT_2B
- setevent EVENT_BUG_CATCHING_CONTESTANT_3B
- setevent EVENT_BUG_CATCHING_CONTESTANT_4B
- setevent EVENT_BUG_CATCHING_CONTESTANT_5B
- setevent EVENT_BUG_CATCHING_CONTESTANT_6B
- setevent EVENT_BUG_CATCHING_CONTESTANT_7B
- setevent EVENT_BUG_CATCHING_CONTESTANT_8B
- setevent EVENT_BUG_CATCHING_CONTESTANT_9B
- setevent EVENT_BUG_CATCHING_CONTESTANT_10B
- setflag ENGINE_DAILY_BUG_CONTEST
- special PlayMapMusic
- end
- ; 0xbc31e
- BugContestResults_FirstPlace ; 0xbc31e
- setevent EVENT_GAVE_KURT_APRICORNS
- itemtotext SUN_STONE, $1
- farwritetext ContestResults_PlayerWonAPrizeText
- waitbutton
- verbosegiveitem SUN_STONE
- iffalse BugContestResults_NoRoomForSunStone
- jump BugContestResults_ReturnAfterWinnersPrize
- ; 0xbc332
- BugContestResults_SecondPlace ; 0xbc332
- itemtotext EVERSTONE, $1
- farwritetext ContestResults_PlayerWonAPrizeText
- waitbutton
- verbosegiveitem EVERSTONE
- iffalse BugContestResults_NoRoomForEverstone
- jump BugContestResults_ReturnAfterWinnersPrize
- ; 0xbc343
- BugContestResults_ThirdPlace ; 0xbc343
- itemtotext GOLD_BERRY, $1
- farwritetext ContestResults_PlayerWonAPrizeText
- waitbutton
- verbosegiveitem GOLD_BERRY
- iffalse BugContestResults_NoRoomForGoldBerry
- jump BugContestResults_ReturnAfterWinnersPrize
- ; 0xbc354
- BugContestResults_NoRoomForSunStone ; 0xbc354
- farwritetext BugContestPrizeNoRoomText
- buttonsound
- setevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
- jump BugContestResults_ReturnAfterWinnersPrize
- ; 0xbc35f
- BugContestResults_NoRoomForEverstone ; 0xbc35f
- farwritetext BugContestPrizeNoRoomText
- buttonsound
- setevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
- jump BugContestResults_ReturnAfterWinnersPrize
- ; 0xbc36a
- BugContestResults_NoRoomForGoldBerry ; 0xbc36a
- farwritetext BugContestPrizeNoRoomText
- buttonsound
- setevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
- jump BugContestResults_ReturnAfterWinnersPrize
- ; 0xbc375
- BugContestResults_NoRoomForBerry ; 0xbc375
- farwritetext BugContestPrizeNoRoomText
- buttonsound
- setevent EVENT_CONTEST_OFFICER_HAS_BERRY
- jump BugContestResults_DidNotWin
- ; 0xbc380
- BugContestResults_CopyContestantsToResults ; 0xbc380
- checkevent EVENT_BUG_CATCHING_CONTESTANT_1A
- iftrue .skip1
- clearevent EVENT_BUG_CATCHING_CONTESTANT_1B
- .skip1
- checkevent EVENT_BUG_CATCHING_CONTESTANT_2A
- iftrue .skip2
- clearevent EVENT_BUG_CATCHING_CONTESTANT_2B
- .skip2
- checkevent EVENT_BUG_CATCHING_CONTESTANT_3A
- iftrue .skip3
- clearevent EVENT_BUG_CATCHING_CONTESTANT_3B
- .skip3
- checkevent EVENT_BUG_CATCHING_CONTESTANT_4A
- iftrue .skip4
- clearevent EVENT_BUG_CATCHING_CONTESTANT_4B
- .skip4
- checkevent EVENT_BUG_CATCHING_CONTESTANT_5A
- iftrue .skip5
- clearevent EVENT_BUG_CATCHING_CONTESTANT_5B
- .skip5
- checkevent EVENT_BUG_CATCHING_CONTESTANT_6A
- iftrue .skip6
- clearevent EVENT_BUG_CATCHING_CONTESTANT_6B
- .skip6
- checkevent EVENT_BUG_CATCHING_CONTESTANT_7A
- iftrue .skip7
- clearevent EVENT_BUG_CATCHING_CONTESTANT_7B
- .skip7
- checkevent EVENT_BUG_CATCHING_CONTESTANT_8A
- iftrue .skip8
- clearevent EVENT_BUG_CATCHING_CONTESTANT_8B
- .skip8
- checkevent EVENT_BUG_CATCHING_CONTESTANT_9A
- iftrue .skip9
- clearevent EVENT_BUG_CATCHING_CONTESTANT_9B
- .skip9
- checkevent EVENT_BUG_CATCHING_CONTESTANT_10A
- iftrue .skip10
- clearevent EVENT_BUG_CATCHING_CONTESTANT_10B
- .skip10
- end
- InitializeEventsScript:
- setevent EVENT_EARLS_ACADEMY_EARL
- setevent EVENT_RADIO_TOWER_ROCKET_TAKEOVER
- setevent EVENT_GOLDENROD_CITY_ROCKET_TAKEOVER
- setevent EVENT_RADIO_TOWER_CIVILIANS_AFTER
- setevent EVENT_ILEX_FOREST_APPRENTICE
- setevent EVENT_ILEX_FOREST_FARFETCHD
- setevent EVENT_ILEX_FOREST_CHARCOAL_MASTER
- setevent EVENT_MAHOGANY_MART_LANCE_AND_DRAGONITE
- setevent EVENT_TEAM_ROCKET_BASE_B2F_GRUNT_WITH_EXECUTIVE
- setevent EVENT_TEAM_ROCKET_BASE_B2F_EXECUTIVE
- setevent EVENT_TEAM_ROCKET_BASE_B2F_DRAGONITE
- setevent EVENT_RIVAL_TEAM_ROCKET_BASE
- setevent EVENT_BLACKTHORN_CITY_SUPER_NERD_DOES_NOT_BLOCK_GYM
- setevent EVENT_USED_THE_CARD_KEY_IN_THE_RADIO_TOWER
- setevent EVENT_RIVAL_CHERRYGROVE_CITY
- setevent EVENT_RIVAL_AZALEA_TOWN
- setevent EVENT_RIVAL_UNDERGROUND_PATH
- setevent EVENT_AZALEA_TOWN_SLOWPOKES
- setevent EVENT_KURTS_HOUSE_SLOWPOKE
- setevent EVENT_GUIDE_GENT_VISIBLE_IN_CHERRYGROVE
- setevent EVENT_ELMS_AIDE_IN_VIOLET_POKEMON_CENTER
- setevent EVENT_COP_IN_ELMS_LAB
- setevent EVENT_RUINS_OF_ALPH_OUTSIDE_SCIENTIST
- setevent EVENT_RUINS_OF_ALPH_RESEARCH_CENTER_SCIENTIST
- setevent EVENT_BOULDER_IN_ICE_PATH_1A
- setevent EVENT_BOULDER_IN_ICE_PATH_2A
- setevent EVENT_BOULDER_IN_ICE_PATH_3A
- setevent EVENT_BOULDER_IN_ICE_PATH_4A
- setevent EVENT_ROUTE_30_YOUNGSTER_JOEY
- setevent EVENT_BUG_CATCHING_CONTESTANT_1A
- setevent EVENT_BUG_CATCHING_CONTESTANT_2A
- setevent EVENT_BUG_CATCHING_CONTESTANT_3A
- setevent EVENT_BUG_CATCHING_CONTESTANT_4A
- setevent EVENT_BUG_CATCHING_CONTESTANT_5A
- setevent EVENT_BUG_CATCHING_CONTESTANT_6A
- setevent EVENT_BUG_CATCHING_CONTESTANT_7A
- setevent EVENT_BUG_CATCHING_CONTESTANT_8A
- setevent EVENT_BUG_CATCHING_CONTESTANT_9A
- setevent EVENT_BUG_CATCHING_CONTESTANT_10A
- setevent EVENT_BUG_CATCHING_CONTESTANT_1B
- setevent EVENT_BUG_CATCHING_CONTESTANT_2B
- setevent EVENT_BUG_CATCHING_CONTESTANT_3B
- setevent EVENT_BUG_CATCHING_CONTESTANT_4B
- setevent EVENT_BUG_CATCHING_CONTESTANT_5B
- setevent EVENT_BUG_CATCHING_CONTESTANT_6B
- setevent EVENT_BUG_CATCHING_CONTESTANT_7B
- setevent EVENT_BUG_CATCHING_CONTESTANT_8B
- setevent EVENT_BUG_CATCHING_CONTESTANT_9B
- setevent EVENT_BUG_CATCHING_CONTESTANT_10B
- setevent EVENT_FAST_SHIP_1F_GENTLEMAN
- setevent EVENT_FAST_SHIP_B1F_SAILOR_RIGHT
- setevent EVENT_FAST_SHIP_CABINS_NNW_NNE_NE_SAILOR
- setevent EVENT_LAKE_OF_RAGE_CIVILIANS
- setevent EVENT_MAHOGANY_MART_OWNERS
- setevent EVENT_TIN_TOWER_ROOF_HO_OH
- setevent EVENT_WHIRL_ISLAND_LUGIA_CHAMBER_LUGIA
- setevent EVENT_KRISS_HOUSE_2F_CONSOLE
- setevent EVENT_KRISS_HOUSE_2F_DOLL_1
- setevent EVENT_KRISS_HOUSE_2F_DOLL_2
- setevent EVENT_KRISS_HOUSE_2F_BIG_DOLL
- setevent EVENT_DECO_BED_1
- setevent EVENT_DECO_PLANT_4
- setevent EVENT_GOLDENROD_TRAIN_STATION_GENTLEMAN
- setevent EVENT_OLIVINE_GYM_JASMINE
- setevent EVENT_BLACKTHORN_CITY_GRAMPS_NOT_BLOCKING_DRAGONS_DEN
- setevent EVENT_MET_BILL
- setevent EVENT_ECRUTEAK_POKE_CENTER_BILL
- setevent EVENT_MYSTERY_GIFT_DELIVERY_GUY
- setevent EVENT_LAKE_OF_RAGE_LANCE
- setevent EVENT_WAREHOUSE_LAYOUT_1
- setevent EVENT_WAREHOUSE_BLOCKED_OFF
- setevent EVENT_DRAGONS_DEN_CLAIR
- setevent EVENT_RIVAL_OLIVINE_CITY
- setevent EVENT_RIVAL_VICTORY_ROAD
- setevent EVENT_RIVAL_DRAGONS_DEN
- setevent EVENT_LANCES_ROOM_OAK_AND_MARY
- setevent EVENT_FAST_SHIP_CABINS_SE_SSE_CAPTAINS_CABIN_TWIN_1
- setevent EVENT_BURNED_TOWER_B1F_BEASTS_1
- setevent EVENT_RED_IN_MT_SILVER
- setevent EVENT_OLIVINE_PORT_SPRITES_AFTER_HALL_OF_FAME
- setevent EVENT_FAST_SHIP_PASSENGERS_EASTBOUND
- setevent EVENT_FAST_SHIP_PASSENGERS_WESTBOUND
- setevent EVENT_OLIVINE_PORT_PASSAGE_POKEFAN_M
- setevent EVENT_KURTS_HOUSE_KURT_2
- setevent EVENT_KURTS_HOUSE_GRANDDAUGHTER_2
- setevent EVENT_RANG_CLEAR_BELL_1
- setevent EVENT_FLORIA_AT_FLOWER_SHOP
- setevent EVENT_FLORIA_AT_SUDOWOODO
- setevent EVENT_GOLDENROD_CITY_MOVE_TUTOR
- setevent EVENT_RUINS_OF_ALPH_OUTSIDE_TOURIST_FISHER
- setevent EVENT_RUINS_OF_ALPH_OUTSIDE_TOURIST_YOUNGSTERS
- setevent EVENT_DRAGON_SHRINE_CLAIR
- setevent EVENT_BATTLE_TOWER_BATTLE_ROOM_YOUNGSTER
- setevent EVENT_KRISS_NEIGHBORS_HOUSE_NEIGHBOR
- setevent EVENT_AZALEA_TOWN_KURT
- setevent EVENT_AZALEA_TOWN_KURT
- setevent EVENT_ILEX_FOREST_KURT
- setevent EVENT_ROUTE_34_ILEX_FOREST_GATE_TEACHER_IN_WALKWAY
- setevent EVENT_ILEX_FOREST_LASS
- setevent EVENT_GOLDENROD_SALE_OFF
- setevent EVENT_ECRUTEAK_CITY_GRAMPS
- setevent EVENT_EUSINE_IN_BURNED_TOWER
- setevent EVENT_KRISS_HOUSE_MOM_2
- setevent EVENT_WISE_TRIOS_ROOM_WISE_TRIO_2
- setevent EVENT_CIANWOOD_CITY_EUSINE
- setevent EVENT_TIN_TOWER_1F_EUSINE
- setevent EVENT_TIN_TOWER_1F_WISE_TRIO_1
- setevent EVENT_TIN_TOWER_1F_WISE_TRIO_2
- setevent EVENT_SET_WHEN_FOUGHT_HO_OH
- setevent EVENT_SAW_SUICUNE_ON_ROUTE_36
- setevent EVENT_SAW_SUICUNE_ON_ROUTE_42
- setevent EVENT_SAW_SUICUNE_AT_CIANWOOD_CITY
- setevent EVENT_BATTLE_TOWER_OUTSIDE_SAILOR
- setflag ENGINE_ROCKET_SIGNAL_ON_CH20
- setflag ENGINE_ROCKETS_IN_MAHOGANY
- variablesprite SPRITE_WEIRD_TREE, SPRITE_SUDOWOODO
- variablesprite SPRITE_OLIVINE_RIVAL, SPRITE_SILVER
- variablesprite SPRITE_AZALEA_ROCKET, SPRITE_ROCKET
- variablesprite SPRITE_FUCHSIA_GYM_1, SPRITE_JANINE
- variablesprite SPRITE_FUCHSIA_GYM_2, SPRITE_JANINE
- variablesprite SPRITE_FUCHSIA_GYM_3, SPRITE_JANINE
- variablesprite SPRITE_FUCHSIA_GYM_4, SPRITE_JANINE
- variablesprite SPRITE_COPYCAT, SPRITE_LASS
- variablesprite SPRITE_JANINE_IMPERSONATOR, SPRITE_LASS
- setevent EVENT_FOUND_MACHINE_PART_IN_CERULEAN_GYM
- setevent EVENT_CERULEAN_GYM_ROCKET
- setevent EVENT_ROUTE_24_ROCKET
- setevent EVENT_ROUTE_25_MISTY_BOYFRIEND
- setevent EVENT_TRAINERS_IN_CERULEAN_GYM
- setevent EVENT_COPYCATS_HOUSE_2F_DOLL
- setevent EVENT_VIRIDIAN_GYM_BLUE
- setevent EVENT_SEAFOAM_GYM_GYM_GUY
- setevent EVENT_MT_MOON_SQUARE_CLEFAIRY
- setevent EVENT_SAFFRON_TRAIN_STATION_POPULATION
- setevent EVENT_INDIGO_PLATEAU_POKECENTER_RIVAL
- setevent EVENT_INITIALIZED_EVENTS
- clearevent EVENT_34B
- setevent EVENT_105
- return
- AskNumber1MScript:
- special RandomPhoneMon
- checkcode VAR_CALLERID
- if_equal PHONE_SCHOOLBOY_JACK, .Jack
- if_equal PHONE_SAILOR_HUEY, .Huey
- if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
- if_equal PHONE_BIRDKEEPER_JOSE, .Jose
- if_equal PHONE_YOUNGSTER_JOEY, .Joey
- if_equal PHONE_BUG_CATCHER_WADE, .Wade
- if_equal PHONE_FISHER_RALPH, .Ralph
- if_equal PHONE_HIKER_ANTHONY, .Anthony
- if_equal PHONE_CAMPER_TODD, .Todd
- if_equal PHONE_JUGGLER_IRWIN, .Irwin
- if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
- if_equal PHONE_SCHOOLBOY_ALAN, .Alan
- if_equal PHONE_SCHOOLBOY_CHAD, .Chad
- if_equal PHONE_POKEFANM_DEREK, .Derek
- if_equal PHONE_FISHER_TULLY, .Tully
- if_equal PHONE_POKEMANIAC_BRENT, .Brent
- if_equal PHONE_BIRDKEEPER_VANCE, .Vance
- if_equal PHONE_FISHER_WILTON, .Wilton
- if_equal PHONE_BLACKBELT_KENJI, .Kenji
- if_equal PHONE_HIKER_PARRY, .Parry
- .Jack
- farwritetext JackAskNumber1Text
- end
- .Huey
- farwritetext HueyAskNumber1Text
- end
- .Gaven
- farwritetext GavenAskNumber1Text
- end
- .Jose
- farwritetext JoseAskNumber1Text
- end
- .Joey
- farwritetext JoeyAskNumber1Text
- end
- .Wade
- farwritetext WadeAskNumber1Text
- end
- .Ralph
- farwritetext RalphAskNumber1Text
- end
- .Anthony
- farwritetext AnthonyAskNumber1Text
- end
- .Todd
- farwritetext ToddAskNumber1Text
- end
- .Irwin
- farwritetext IrwinAskNumber1Text
- end
- .Arnie
- farwritetext ArnieAskNumber1Text
- end
- .Alan
- farwritetext AlanAskNumber1Text
- end
- .Chad
- farwritetext ChadAskNumber1Text
- end
- .Derek
- farwritetext DerekAskNumber1Text
- end
- .Tully
- farwritetext TullyAskNumber1Text
- end
- .Brent
- farwritetext BrentAskNumber1Text
- end
- .Vance
- farwritetext VanceAskNumber1Text
- end
- .Wilton
- farwritetext WiltonAskNumber1Text
- end
- .Kenji
- farwritetext KenjiAskNumber1Text
- end
- .Parry
- farwritetext ParryAskNumber1Text
- end
- AskNumber2MScript:
- special RandomPhoneMon
- checkcode VAR_CALLERID
- if_equal PHONE_SCHOOLBOY_JACK, .Jack
- if_equal PHONE_SAILOR_HUEY, .Huey
- if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
- if_equal PHONE_BIRDKEEPER_JOSE, .Jose
- if_equal PHONE_YOUNGSTER_JOEY, .Joey
- if_equal PHONE_BUG_CATCHER_WADE, .Wade
- if_equal PHONE_FISHER_RALPH, .Ralph
- if_equal PHONE_HIKER_ANTHONY, .Anthony
- if_equal PHONE_CAMPER_TODD, .Todd
- if_equal PHONE_JUGGLER_IRWIN, .Irwin
- if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
- if_equal PHONE_SCHOOLBOY_ALAN, .Alan
- if_equal PHONE_SCHOOLBOY_CHAD, .Chad
- if_equal PHONE_POKEFANM_DEREK, .Derek
- if_equal PHONE_FISHER_TULLY, .Tully
- if_equal PHONE_POKEMANIAC_BRENT, .Brent
- if_equal PHONE_BIRDKEEPER_VANCE, .Vance
- if_equal PHONE_FISHER_WILTON, .Wilton
- if_equal PHONE_BLACKBELT_KENJI, .Kenji
- if_equal PHONE_HIKER_PARRY, .Parry
- .Jack
- farwritetext JackAskNumber2Text
- end
- .Huey
- farwritetext HueyAskNumber2Text
- end
- .Gaven
- farwritetext GavenAskNumber2Text
- end
- .Jose
- farwritetext JoseAskNumber2Text
- end
- .Joey
- farwritetext JoeyAskNumber2Text
- end
- .Wade
- farwritetext WadeAskNumber2Text
- end
- .Ralph
- farwritetext RalphAskNumber2Text
- end
- .Anthony
- farwritetext AnthonyAskNumber2Text
- end
- .Todd
- farwritetext ToddAskNumber2Text
- end
- .Irwin
- farwritetext IrwinAskNumber2Text
- end
- .Arnie
- farwritetext ArnieAskNumber2Text
- end
- .Alan
- farwritetext AlanAskNumber2Text
- end
- .Chad
- farwritetext ChadAskNumber2Text
- end
- .Derek
- farwritetext DerekAskNumber2Text
- end
- .Tully
- farwritetext TullyAskNumber2Text
- end
- .Brent
- farwritetext BrentAskNumber2Text
- end
- .Vance
- farwritetext VanceAskNumber2Text
- end
- .Wilton
- farwritetext WiltonAskNumber2Text
- end
- .Kenji
- farwritetext KenjiAskNumber2Text
- end
- .Parry
- farwritetext ParryAskNumber2Text
- end
- RegisteredNumberMScript:
- farwritetext RegisteredNumber1Text
- playsound SFX_REGISTER_PHONE_NUMBER
- waitsfx
- buttonsound
- end
- NumberAcceptedMScript:
- checkcode VAR_CALLERID
- if_equal PHONE_SCHOOLBOY_JACK, .Jack
- if_equal PHONE_SAILOR_HUEY, .Huey
- if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
- if_equal PHONE_BIRDKEEPER_JOSE, .Jose
- if_equal PHONE_YOUNGSTER_JOEY, .Joey
- if_equal PHONE_BUG_CATCHER_WADE, .Wade
- if_equal PHONE_FISHER_RALPH, .Ralph
- if_equal PHONE_HIKER_ANTHONY, .Anthony
- if_equal PHONE_CAMPER_TODD, .Todd
- if_equal PHONE_JUGGLER_IRWIN, .Irwin
- if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
- if_equal PHONE_SCHOOLBOY_ALAN, .Alan
- if_equal PHONE_SCHOOLBOY_CHAD, .Chad
- if_equal PHONE_POKEFANM_DEREK, .Derek
- if_equal PHONE_FISHER_TULLY, .Tully
- if_equal PHONE_POKEMANIAC_BRENT, .Brent
- if_equal PHONE_BIRDKEEPER_VANCE, .Vance
- if_equal PHONE_FISHER_WILTON, .Wilton
- if_equal PHONE_BLACKBELT_KENJI, .Kenji
- if_equal PHONE_HIKER_PARRY, .Parry
- .Jack
- farwritetext JackNumberAcceptedText
- waitbutton
- closetext
- end
- .Huey
- farwritetext HueyNumberAcceptedText
- waitbutton
- closetext
- end
- .Gaven
- farwritetext GavenNumberAcceptedText
- waitbutton
- closetext
- end
- .Jose
- farwritetext JoseNumberAcceptedText
- waitbutton
- closetext
- end
- .Joey
- farwritetext JoeyNumberAcceptedText
- waitbutton
- closetext
- end
- .Wade
- farwritetext WadeNumberAcceptedText
- waitbutton
- closetext
- end
- .Ralph
- farwritetext RalphNumberAcceptedText
- waitbutton
- closetext
- end
- .Anthony
- farwritetext AnthonyNumberAcceptedText
- waitbutton
- closetext
- end
- .Todd
- farwritetext ToddNumberAcceptedText
- waitbutton
- closetext
- end
- .Irwin
- farwritetext IrwinNumberAcceptedText
- waitbutton
- closetext
- end
- .Arnie
- farwritetext ArnieNumberAcceptedText
- waitbutton
- closetext
- end
- .Alan
- farwritetext AlanNumberAcceptedText
- waitbutton
- closetext
- end
- .Chad
- farwritetext ChadNumberAcceptedText
- waitbutton
- closetext
- end
- .Derek
- farwritetext DerekNumberAcceptedText
- waitbutton
- closetext
- end
- .Tully
- farwritetext TullyNumberAcceptedText
- waitbutton
- closetext
- end
- .Brent
- farwritetext BrentNumberAcceptedText
- waitbutton
- closetext
- end
- .Vance
- farwritetext VanceNumberAcceptedText
- waitbutton
- closetext
- end
- .Wilton
- farwritetext WiltonNumberAcceptedText
- waitbutton
- closetext
- end
- .Kenji
- farwritetext KenjiNumberAcceptedText
- waitbutton
- closetext
- end
- .Parry
- farwritetext ParryNumberAcceptedText
- waitbutton
- closetext
- end
- NumberDeclinedMScript:
- checkcode VAR_CALLERID
- if_equal PHONE_SCHOOLBOY_JACK, .Jack
- if_equal PHONE_SAILOR_HUEY, .Huey
- if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
- if_equal PHONE_BIRDKEEPER_JOSE, .Jose
- if_equal PHONE_YOUNGSTER_JOEY, .Joey
- if_equal PHONE_BUG_CATCHER_WADE, .Wade
- if_equal PHONE_FISHER_RALPH, .Ralph
- if_equal PHONE_HIKER_ANTHONY, .Anthony
- if_equal PHONE_CAMPER_TODD, .Todd
- if_equal PHONE_JUGGLER_IRWIN, .Irwin
- if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
- if_equal PHONE_SCHOOLBOY_ALAN, .Alan
- if_equal PHONE_SCHOOLBOY_CHAD, .Chad
- if_equal PHONE_POKEFANM_DEREK, .Derek
- if_equal PHONE_FISHER_TULLY, .Tully
- if_equal PHONE_POKEMANIAC_BRENT, .Brent
- if_equal PHONE_BIRDKEEPER_VANCE, .Vance
- if_equal PHONE_FISHER_WILTON, .Wilton
- if_equal PHONE_BLACKBELT_KENJI, .Kenji
- if_equal PHONE_HIKER_PARRY, .Parry
- .Jack
- farwritetext JackNumberDeclinedText
- waitbutton
- closetext
- end
- .Huey
- farwritetext HueyNumberDeclinedText
- waitbutton
- closetext
- end
- .Gaven
- farwritetext GavenNumberDeclinedText
- waitbutton
- closetext
- end
- .Jose
- farwritetext JoseNumberDeclinedText
- waitbutton
- closetext
- end
- .Joey
- farwritetext JoeyNumberDeclinedText
- waitbutton
- closetext
- end
- .Wade
- farwritetext WadeNumberDeclinedText
- waitbutton
- closetext
- end
- .Ralph
- farwritetext RalphNumberDeclinedText
- waitbutton
- closetext
- end
- .Anthony
- farwritetext AnthonyNumberDeclinedText
- waitbutton
- closetext
- end
- .Todd
- farwritetext ToddNumberDeclinedText
- waitbutton
- closetext
- end
- .Irwin
- farwritetext IrwinNumberDeclinedText
- waitbutton
- closetext
- end
- .Arnie
- farwritetext ArnieNumberDeclinedText
- waitbutton
- closetext
- end
- .Alan
- farwritetext AlanNumberDeclinedText
- waitbutton
- closetext
- end
- .Chad
- farwritetext ChadNumberDeclinedText
- waitbutton
- closetext
- end
- .Derek
- farwritetext DerekNumberDeclinedText
- waitbutton
- closetext
- end
- .Tully
- farwritetext TullyNumberDeclinedText
- waitbutton
- closetext
- end
- .Brent
- farwritetext BrentNumberDeclinedText
- waitbutton
- closetext
- end
- .Vance
- farwritetext VanceNumberDeclinedText
- waitbutton
- closetext
- end
- .Wilton
- farwritetext WiltonNumberDeclinedText
- waitbutton
- closetext
- end
- .Kenji
- farwritetext KenjiNumberDeclinedText
- waitbutton
- closetext
- end
- .Parry
- farwritetext ParryNumberDeclinedText
- waitbutton
- closetext
- end
- PhoneFullMScript:
- checkcode VAR_CALLERID
- if_equal PHONE_SCHOOLBOY_JACK, .Jack
- if_equal PHONE_SAILOR_HUEY, .Huey
- if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
- if_equal PHONE_BIRDKEEPER_JOSE, .Jose
- if_equal PHONE_YOUNGSTER_JOEY, .Joey
- if_equal PHONE_BUG_CATCHER_WADE, .Wade
- if_equal PHONE_FISHER_RALPH, .Ralph
- if_equal PHONE_HIKER_ANTHONY, .Anthony
- if_equal PHONE_CAMPER_TODD, .Todd
- if_equal PHONE_JUGGLER_IRWIN, .Irwin
- if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
- if_equal PHONE_SCHOOLBOY_ALAN, .Alan
- if_equal PHONE_SCHOOLBOY_CHAD, .Chad
- if_equal PHONE_POKEFANM_DEREK, .Derek
- if_equal PHONE_FISHER_TULLY, .Tully
- if_equal PHONE_POKEMANIAC_BRENT, .Brent
- if_equal PHONE_BIRDKEEPER_VANCE, .Vance
- if_equal PHONE_FISHER_WILTON, .Wilton
- if_equal PHONE_BLACKBELT_KENJI, .Kenji
- if_equal PHONE_HIKER_PARRY, .Parry
- .Jack
- farwritetext JackPhoneFullText
- waitbutton
- closetext
- end
- .Huey
- farwritetext HueyPhoneFullText
- waitbutton
- closetext
- end
- .Gaven
- farwritetext GavenPhoneFullText
- waitbutton
- closetext
- end
- .Jose
- farwritetext JosePhoneFullText
- waitbutton
- closetext
- end
- .Joey
- farwritetext JoeyPhoneFullText
- waitbutton
- closetext
- end
- .Wade
- farwritetext WadePhoneFullText
- waitbutton
- closetext
- end
- .Ralph
- farwritetext RalphPhoneFullText
- waitbutton
- closetext
- end
- .Anthony
- farwritetext AnthonyPhoneFullText
- waitbutton
- closetext
- end
- .Todd
- farwritetext ToddPhoneFullText
- waitbutton
- closetext
- end
- .Irwin
- farwritetext IrwinPhoneFullText
- waitbutton
- closetext
- end
- .Arnie
- farwritetext ArniePhoneFullText
- waitbutton
- closetext
- end
- .Alan
- farwritetext AlanPhoneFullText
- waitbutton
- closetext
- end
- .Chad
- farwritetext ChadPhoneFullText
- waitbutton
- closetext
- end
- .Derek
- farwritetext DerekPhoneFullText
- waitbutton
- closetext
- end
- .Tully
- farwritetext TullyPhoneFullText
- waitbutton
- closetext
- end
- .Brent
- farwritetext BrentPhoneFullText
- waitbutton
- closetext
- end
- .Vance
- farwritetext VancePhoneFullText
- waitbutton
- closetext
- end
- .Wilton
- farwritetext WiltonPhoneFullText
- waitbutton
- closetext
- end
- .Kenji
- farwritetext KenjiPhoneFullText
- waitbutton
- closetext
- end
- .Parry
- farwritetext ParryPhoneFullText
- waitbutton
- closetext
- end
- RematchMScript:
- checkcode VAR_CALLERID
- if_equal PHONE_SCHOOLBOY_JACK, .Jack
- if_equal PHONE_SAILOR_HUEY, .Huey
- if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
- if_equal PHONE_BIRDKEEPER_JOSE, .Jose
- if_equal PHONE_YOUNGSTER_JOEY, .Joey
- if_equal PHONE_BUG_CATCHER_WADE, .Wade
- if_equal PHONE_FISHER_RALPH, .Ralph
- if_equal PHONE_HIKER_ANTHONY, .Anthony
- if_equal PHONE_CAMPER_TODD, .Todd
- if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
- if_equal PHONE_SCHOOLBOY_ALAN, .Alan
- if_equal PHONE_SCHOOLBOY_CHAD, .Chad
- if_equal PHONE_FISHER_TULLY, .Tully
- if_equal PHONE_POKEMANIAC_BRENT, .Brent
- if_equal PHONE_BIRDKEEPER_VANCE, .Vance
- if_equal PHONE_FISHER_WILTON, .Wilton
- if_equal PHONE_HIKER_PARRY, .Parry
- .Jack
- farwritetext JackRematchText
- waitbutton
- closetext
- end
- .Huey
- farwritetext HueyRematchText
- waitbutton
- closetext
- end
- .Gaven
- farwritetext GavenRematchText
- waitbutton
- closetext
- end
- .Jose
- farwritetext JoseRematchText
- waitbutton
- closetext
- end
- .Joey
- farwritetext JoeyRematchText
- waitbutton
- closetext
- end
- .Wade
- farwritetext WadeRematchText
- waitbutton
- closetext
- end
- .Ralph
- farwritetext RalphRematchText
- waitbutton
- closetext
- end
- .Anthony
- farwritetext AnthonyRematchText
- waitbutton
- closetext
- end
- .Todd
- farwritetext ToddRematchText
- waitbutton
- closetext
- end
- .Arnie
- farwritetext ArnieRematchText
- waitbutton
- closetext
- end
- .Alan
- farwritetext AlanRematchText
- waitbutton
- closetext
- end
- .Chad
- farwritetext ChadRematchText
- waitbutton
- closetext
- end
- .Tully
- farwritetext TullyRematchText
- waitbutton
- closetext
- end
- .Brent
- farwritetext BrentRematchText
- waitbutton
- closetext
- end
- .Vance
- farwritetext VanceRematchText
- waitbutton
- closetext
- end
- .Wilton
- farwritetext WiltonRematchText
- waitbutton
- closetext
- end
- .Parry
- farwritetext ParryRematchText
- waitbutton
- closetext
- end
- GiftMScript:
- checkcode VAR_CALLERID
- if_equal PHONE_BIRDKEEPER_JOSE, .Jose
- if_equal PHONE_BUG_CATCHER_WADE, .Wade
- if_equal PHONE_SCHOOLBOY_ALAN, .Alan
- if_equal PHONE_POKEFANM_DEREK, .Derek
- if_equal PHONE_FISHER_TULLY, .Tully
- if_equal PHONE_FISHER_WILTON, .Wilton
- if_equal PHONE_BLACKBELT_KENJI, .Kenji
- .Jose
- farwritetext JoseGiftText
- buttonsound
- end
- .Wade
- farwritetext WadeGiftText
- buttonsound
- end
- .Alan
- farwritetext AlanGiftText
- buttonsound
- end
- .Derek
- farwritetext DerekGiftText
- buttonsound
- end
- .Tully
- farwritetext TullyGiftText
- buttonsound
- end
- .Wilton
- farwritetext WiltonGiftText
- buttonsound
- end
- .Kenji
- farwritetext KenjiGiftText
- buttonsound
- end
- PackFullMScript:
- checkcode VAR_CALLERID
- if_equal PHONE_SAILOR_HUEY, .Huey
- if_equal PHONE_BIRDKEEPER_JOSE, .Jose
- if_equal PHONE_YOUNGSTER_JOEY, .Joey
- if_equal PHONE_BUG_CATCHER_WADE, .Wade
- if_equal PHONE_SCHOOLBOY_ALAN, .Alan
- if_equal PHONE_POKEFANM_DEREK, .Derek
- if_equal PHONE_FISHER_TULLY, .Tully
- if_equal PHONE_BIRDKEEPER_VANCE, .Vance
- if_equal PHONE_FISHER_WILTON, .Wilton
- if_equal PHONE_BLACKBELT_KENJI, .Kenji
- if_equal PHONE_HIKER_PARRY, .Parry
- .Huey
- farwritetext HueyPackFullText
- waitbutton
- closetext
- end
- .Jose
- farwritetext JosePackFullText
- waitbutton
- closetext
- end
- .Joey
- farwritetext JoeyPackFullText
- waitbutton
- closetext
- end
- .Wade
- farwritetext WadePackFullText
- waitbutton
- closetext
- end
- .Alan
- farwritetext AlanPackFullText
- waitbutton
- closetext
- end
- .Derek
- farwritetext DerekPackFullText
- waitbutton
- closetext
- end
- .Tully
- farwritetext TullyPackFullText
- waitbutton
- closetext
- end
- .Vance
- farwritetext VancePackFullText
- waitbutton
- closetext
- end
- .Wilton
- farwritetext WiltonPackFullText
- waitbutton
- closetext
- end
- .Kenji
- farwritetext KenjiPackFullText
- waitbutton
- closetext
- end
- .Parry
- farwritetext ParryPackFullText
- waitbutton
- closetext
- end
- RematchGiftMScript:
- opentext
- checkcode VAR_CALLERID
- if_equal PHONE_SAILOR_HUEY, .Huey
- if_equal PHONE_YOUNGSTER_JOEY, .Joey
- if_equal PHONE_BIRDKEEPER_VANCE, .Vance
- if_equal PHONE_HIKER_PARRY, .Parry
- .Huey
- farwritetext HueyRematchGiftText
- buttonsound
- end
- .Joey
- farwritetext JoeyRematchGiftText
- buttonsound
- end
- .Vance
- farwritetext VanceRematchGiftText
- buttonsound
- end
- .Parry
- farwritetext ParryRematchGiftText
- buttonsound
- end
- AskNumber1FScript:
- checkcode VAR_CALLERID
- if_equal PHONE_POKEFAN_BEVERLY, .Beverly
- if_equal PHONE_COOLTRAINERF_BETH, .Beth
- if_equal PHONE_COOLTRAINERF_REENA, .Reena
- if_equal PHONE_PICNICKER_LIZ, .Liz
- if_equal PHONE_PICNICKER_GINA, .Gina
- if_equal PHONE_LASS_DANA, .Dana
- if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
- if_equal PHONE_PICNICKER_ERIN, .Erin
- .Beverly
- farwritetext BeverlyAskNumber1Text
- end
- .Beth
- farwritetext BethAskNumber1Text
- end
- .Reena
- farwritetext ReenaAskNumber1Text
- end
- .Liz
- farwritetext LizAskNumber1Text
- end
- .Gina
- farwritetext GinaAskNumber1Text
- end
- .Dana
- farwritetext DanaAskNumber1Text
- end
- .Tiffany
- farwritetext TiffanyAskNumber1Text
- end
- .Erin
- farwritetext ErinAskNumber1Text
- end
- AskNumber2FScript:
- checkcode VAR_CALLERID
- if_equal PHONE_POKEFAN_BEVERLY, .Beverly
- if_equal PHONE_COOLTRAINERF_BETH, .Beth
- if_equal PHONE_COOLTRAINERF_REENA, .Reena
- if_equal PHONE_PICNICKER_LIZ, .Liz
- if_equal PHONE_PICNICKER_GINA, .Gina
- if_equal PHONE_LASS_DANA, .Dana
- if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
- if_equal PHONE_PICNICKER_ERIN, .Erin
- .Beverly
- farwritetext BeverlyAskNumber2Text
- end
- .Beth
- farwritetext BethAskNumber2Text
- end
- .Reena
- farwritetext ReenaAskNumber2Text
- end
- .Liz
- farwritetext LizAskNumber2Text
- end
- .Gina
- farwritetext GinaAskNumber2Text
- end
- .Dana
- farwritetext DanaAskNumber2Text
- end
- .Tiffany
- farwritetext TiffanyAskNumber2Text
- end
- .Erin
- farwritetext ErinAskNumber2Text
- end
- RegisteredNumberFScript:
- farwritetext RegisteredNumber2Text
- playsound SFX_REGISTER_PHONE_NUMBER
- waitsfx
- buttonsound
- end
- NumberAcceptedFScript: ; 0xbcbd3
- checkcode VAR_CALLERID
- if_equal PHONE_POKEFAN_BEVERLY, .Beverly
- if_equal PHONE_COOLTRAINERF_BETH, .Beth
- if_equal PHONE_COOLTRAINERF_REENA, .Reena
- if_equal PHONE_PICNICKER_LIZ, .Liz
- if_equal PHONE_PICNICKER_GINA, .Gina
- if_equal PHONE_LASS_DANA, .Dana
- if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
- if_equal PHONE_PICNICKER_ERIN, .Erin
- .Beverly
- farwritetext BeverlyNumberAcceptedText
- waitbutton
- closetext
- end
- .Beth
- farwritetext BethNumberAcceptedText
- waitbutton
- closetext
- end
- .Reena
- farwritetext ReenaNumberAcceptedText
- waitbutton
- closetext
- end
- .Liz
- farwritetext LizNumberAcceptedText
- waitbutton
- closetext
- end
- .Gina
- farwritetext GinaNumberAcceptedText
- waitbutton
- closetext
- end
- .Dana
- farwritetext DanaNumberAcceptedText
- waitbutton
- closetext
- end
- .Tiffany
- farwritetext TiffanyNumberAcceptedText
- waitbutton
- closetext
- end
- .Erin
- farwritetext ErinNumberAcceptedText
- waitbutton
- closetext
- end
- NumberDeclinedFScript:
- checkcode VAR_CALLERID
- if_equal PHONE_POKEFAN_BEVERLY, .Beverly
- if_equal PHONE_COOLTRAINERF_BETH, .Beth
- if_equal PHONE_COOLTRAINERF_REENA, .Reena
- if_equal PHONE_PICNICKER_LIZ, .Liz
- if_equal PHONE_PICNICKER_GINA, .Gina
- if_equal PHONE_LASS_DANA, .Dana
- if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
- if_equal PHONE_PICNICKER_ERIN, .Erin
- .Beverly
- farwritetext BeverlyNumberDeclinedText
- waitbutton
- closetext
- end
- .Beth
- farwritetext BethNumberDeclinedText
- waitbutton
- closetext
- end
- .Reena
- farwritetext ReenaNumberDeclinedText
- waitbutton
- closetext
- end
- .Liz
- farwritetext LizNumberDeclinedText
- waitbutton
- closetext
- end
- .Gina
- farwritetext GinaNumberDeclinedText
- waitbutton
- closetext
- end
- .Dana
- farwritetext DanaNumberDeclinedText
- waitbutton
- closetext
- end
- .Tiffany
- farwritetext TiffanyNumberDeclinedText
- waitbutton
- closetext
- end
- .Erin
- farwritetext ErinNumberDeclinedText
- waitbutton
- closetext
- end
- PhoneFullFScript:
- checkcode VAR_CALLERID
- if_equal PHONE_POKEFAN_BEVERLY, .Beverly
- if_equal PHONE_COOLTRAINERF_BETH, .Beth
- if_equal PHONE_COOLTRAINERF_REENA, .Reena
- if_equal PHONE_PICNICKER_LIZ, .Liz
- if_equal PHONE_PICNICKER_GINA, .Gina
- if_equal PHONE_LASS_DANA, .Dana
- if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
- if_equal PHONE_PICNICKER_ERIN, .Erin
- .Beverly
- farwritetext BeverlyPhoneFullText
- waitbutton
- closetext
- end
- .Beth
- farwritetext BethPhoneFullText
- waitbutton
- closetext
- end
- .Reena
- farwritetext ReenaPhoneFullText
- waitbutton
- closetext
- end
- .Liz
- farwritetext LizPhoneFullText
- waitbutton
- closetext
- end
- .Gina
- farwritetext GinaPhoneFullText
- waitbutton
- closetext
- end
- .Dana
- farwritetext DanaPhoneFullText
- waitbutton
- closetext
- end
- .Tiffany
- farwritetext TiffanyPhoneFullText
- waitbutton
- closetext
- end
- .Erin
- farwritetext ErinPhoneFullText
- waitbutton
- closetext
- end
- RematchFScript:
- checkcode VAR_CALLERID
- if_equal PHONE_COOLTRAINERF_BETH, .Beth
- if_equal PHONE_COOLTRAINERF_REENA, .Reena
- if_equal PHONE_PICNICKER_LIZ, .Liz
- if_equal PHONE_PICNICKER_GINA, .Gina
- if_equal PHONE_LASS_DANA, .Dana
- if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
- if_equal PHONE_PICNICKER_ERIN, .Erin
- .Beth
- farwritetext BethRematchText
- waitbutton
- closetext
- end
- .Reena
- farwritetext ReenaRematchText
- waitbutton
- closetext
- end
- .Liz
- farwritetext LizRematchText
- waitbutton
- closetext
- end
- .Gina
- farwritetext GinaRematchText
- waitbutton
- closetext
- end
- .Dana
- farwritetext DanaRematchText
- waitbutton
- closetext
- end
- .Tiffany
- farwritetext TiffanyRematchText
- waitbutton
- closetext
- end
- .Erin
- farwritetext ErinRematchText
- waitbutton
- closetext
- end
- GiftFScript:
- checkcode VAR_CALLERID
- if_equal PHONE_POKEFAN_BEVERLY, .Beverly
- if_equal PHONE_PICNICKER_GINA, .Gina
- if_equal PHONE_LASS_DANA, .Dana
- if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
- .Beverly
- farwritetext BeverlyGiftText
- buttonsound
- end
- .Gina
- farwritetext GinaGiftText
- buttonsound
- end
- .Dana
- farwritetext DanaGiftText
- buttonsound
- end
- .Tiffany
- farwritetext TiffanyGiftText
- buttonsound
- end
- PackFullFScript:
- checkcode VAR_CALLERID
- if_equal PHONE_POKEFAN_BEVERLY, .Beverly
- if_equal PHONE_PICNICKER_GINA, .Gina
- if_equal PHONE_LASS_DANA, .Dana
- if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
- if_equal PHONE_PICNICKER_ERIN, .Erin
- .Beverly
- farwritetext BeverlyPackFullText
- waitbutton
- closetext
- end
- .Gina
- farwritetext GinaPackFullText
- waitbutton
- closetext
- end
- .Dana
- farwritetext DanaPackFullText
- waitbutton
- closetext
- end
- .Tiffany
- farwritetext TiffanyPackFullText
- waitbutton
- closetext
- end
- .Erin
- farwritetext ErinPackFullText
- waitbutton
- closetext
- end
- RematchGiftFScript:
- checkcode VAR_CALLERID
- if_equal PHONE_PICNICKER_ERIN, .Erin
- .Erin
- opentext
- farwritetext ErinRematchGiftText
- buttonsound
- end
- GymStatue1Script:
- mapnametotext $0
- opentext
- farwritetext GymStatue_CityGymText
- waitbutton
- closetext
- end
- GymStatue2Script:
- mapnametotext $0
- opentext
- farwritetext GymStatue_CityGymText
- buttonsound
- farwritetext GymStatue_WinningTrainersText
- waitbutton
- closetext
- end
- ReceiveItemScript: ; 0xbcdb9
- waitsfx
- farwritetext ReceivedItemText
- playsound SFX_ITEM
- waitsfx
- end
- ; 0xbcdc3
- ReceiveTogepiEggScript: ; 0xbcdc3
- waitsfx
- farwritetext ReceivedItemText
- playsound SFX_GET_EGG_FROM_DAYCARE_LADY
- waitsfx
- end
- ; 0xbcdcd
- GameCornerCoinVendorScript: ; 0xbcdcd
- faceplayer
- opentext
- farwritetext CoinVendor_WelcomeText
- buttonsound
- checkitem COIN_CASE
- iftrue CoinVendor_IntroScript
- farwritetext CoinVendor_NoCoinCaseText
- waitbutton
- closetext
- end
- ; 0xbcde0
- CoinVendor_IntroScript: ; 0xbcde0
- farwritetext CoinVendor_IntroText
- .loop: ; 0xbcde4
- special Special_DisplayMoneyAndCoinBalance
- loadmenudata .MenuDataHeader
- verticalmenu
- closewindow
- if_equal $1, .Buy50
- if_equal $2, .Buy500
- jump .Cancel
- ; 0xbcdf7
- .Buy50: ; 0xbcdf7
- checkcoins 9949
- if_equal $0, .CoinCaseFull
- checkmoney $0, 1000
- if_equal $2, .NotEnoughMoney
- givecoins 50
- takemoney $0, 1000
- waitsfx
- playsound SFX_TRANSACTION
- farwritetext CoinVendor_Buy50CoinsText
- waitbutton
- jump .loop
- ; 0xbce1b
- .Buy500: ; 0xbce1b
- checkcoins 9499
- if_equal $0, .CoinCaseFull
- checkmoney $0, 10000
- if_equal $2, .NotEnoughMoney
- givecoins 500
- takemoney $0, 10000
- waitsfx
- playsound SFX_TRANSACTION
- farwritetext CoinVendor_Buy500CoinsText
- waitbutton
- jump .loop
- ; 0xbce3f
- .NotEnoughMoney: ; 0xbce3f
- farwritetext CoinVendor_NotEnoughMoneyText
- waitbutton
- closetext
- end
- ; 0xbce46
- .CoinCaseFull: ; 0xbce46
- farwritetext CoinVendor_CoinCaseFullText
- waitbutton
- closetext
- end
- ; 0xbce4d
- .Cancel: ; 0xbce4d
- farwritetext CoinVendor_CancelText
- waitbutton
- closetext
- end
- ; 0xbce54
- .MenuDataHeader
- db $40 ; flags
- db 04, 00 ; start coords
- db 11, 15 ; end coords
- dw .MenuData2
- db 1 ; default option
- .MenuData2
- db $80 ; flags
- db 3 ; items
- db " 50 : ¥1000@"
- db "500 : ¥10000@"
- db "CANCEL@"
- ; 0xbce7f
- HappinessCheckScript:
- faceplayer
- opentext
- special GetFirstPokemonHappiness
- if_less_than 50, .Unhappy
- if_less_than 150, .KindaHappy
- farwritetext HappinessText3
- waitbutton
- closetext
- end
- .KindaHappy
- farwritetext HappinessText2
- waitbutton
- closetext
- end
- .Unhappy
- farwritetext HappinessText1
- waitbutton
- closetext
- end
- Movement_ContestResults_WalkAfterWarp: ; bcea1
- step_right
- step_down
- turn_head_up
- step_end
- ; bcea5
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement