mirror of
https://github.com/pret/pokegold.git
synced 2026-05-18 09:44:00 -05:00
779 lines
19 KiB
NASM
779 lines
19 KiB
NASM
add_stdscript: MACRO
|
|
\1StdScript::
|
|
dba \1
|
|
ENDM
|
|
|
|
StdScripts::
|
|
add_stdscript PokecenterNurseScript
|
|
add_stdscript DifficultBookshelfScript
|
|
add_stdscript PictureBookshelfScript
|
|
add_stdscript MagazineBookshelfScript
|
|
add_stdscript TeamRocketOathScript
|
|
add_stdscript IncenseBurnerScript
|
|
add_stdscript MerchandiseShelfScript
|
|
add_stdscript TownMapScript
|
|
add_stdscript WindowScript
|
|
add_stdscript TVScript
|
|
add_stdscript HomepageScript
|
|
add_stdscript Radio1Script
|
|
add_stdscript Radio2Script
|
|
add_stdscript TrashCanScript
|
|
add_stdscript StrengthBoulderScript
|
|
add_stdscript SmashRockScript
|
|
add_stdscript PokecenterSignScript
|
|
add_stdscript MartSignScript
|
|
add_stdscript GoldenrodRocketsScript
|
|
add_stdscript RadioTowerRocketsScript
|
|
add_stdscript ElevatorButtonScript
|
|
add_stdscript DayToTextScript
|
|
add_stdscript BugContestResultsWarpScript
|
|
add_stdscript BugContestResultsScript
|
|
add_stdscript InitializeEventsScript
|
|
add_stdscript AskNumber1MScript
|
|
add_stdscript AskNumber2MScript
|
|
add_stdscript RegisteredNumberMScript
|
|
add_stdscript NumberAcceptedMScript
|
|
add_stdscript NumberDeclinedMScript
|
|
add_stdscript PhoneFullMScript
|
|
add_stdscript RematchMScript
|
|
add_stdscript AskNumber1FScript
|
|
add_stdscript AskNumber2FScript
|
|
add_stdscript RegisteredNumberFScript
|
|
add_stdscript NumberAcceptedFScript
|
|
add_stdscript NumberDeclinedFScript
|
|
add_stdscript PhoneFullFScript
|
|
add_stdscript RematchFScript
|
|
add_stdscript GymStatue1Script
|
|
add_stdscript GymStatue2Script
|
|
add_stdscript ReceiveItemScript
|
|
add_stdscript ReceiveTogepiEggScript
|
|
add_stdscript PCScript
|
|
add_stdscript GameCornerCoinVendorScript
|
|
add_stdscript HappinessCheckScript
|
|
|
|
PokecenterNurseScript:
|
|
opentext
|
|
checktime MORN
|
|
iftrue .morn
|
|
checktime DAY
|
|
iftrue .day
|
|
checktime NITE
|
|
iftrue .nite
|
|
sjump .ok
|
|
|
|
.morn
|
|
writetext NurseMornText
|
|
promptbutton
|
|
sjump .ok
|
|
|
|
.day
|
|
writetext NurseDayText
|
|
promptbutton
|
|
sjump .ok
|
|
|
|
.nite
|
|
writetext NurseNiteText
|
|
promptbutton
|
|
sjump .ok
|
|
|
|
.ok
|
|
writetext NurseAskHealText
|
|
yesorno
|
|
iffalse .done
|
|
|
|
writetext NurseTakePokemonText
|
|
pause 20
|
|
turnobject LAST_TALKED, LEFT
|
|
pause 10
|
|
special HealParty
|
|
playmusic MUSIC_NONE
|
|
setval HEALMACHINE_POKECENTER
|
|
special HealMachineAnim
|
|
pause 30
|
|
special RestartMapMusic
|
|
turnobject LAST_TALKED, DOWN
|
|
pause 10
|
|
|
|
checkphonecall ; elm already called about pokerus
|
|
iftrue .no
|
|
checkflag ENGINE_CAUGHT_POKERUS
|
|
iftrue .no
|
|
special CheckPokerus
|
|
iftrue .pokerus
|
|
.no
|
|
writetext NurseReturnPokemonText
|
|
pause 20
|
|
|
|
.done
|
|
writetext NurseGoodbyeText
|
|
|
|
turnobject LAST_TALKED, UP
|
|
pause 10
|
|
turnobject LAST_TALKED, DOWN
|
|
pause 10
|
|
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.pokerus
|
|
writetext NursePokerusText
|
|
waitbutton
|
|
closetext
|
|
setflag ENGINE_CAUGHT_POKERUS
|
|
specialphonecall SPECIALCALL_POKERUS
|
|
end
|
|
|
|
DifficultBookshelfScript:
|
|
jumptext DifficultBookshelfText
|
|
|
|
PictureBookshelfScript:
|
|
jumptext PictureBookshelfText
|
|
|
|
MagazineBookshelfScript:
|
|
jumptext MagazineBookshelfText
|
|
|
|
TeamRocketOathScript:
|
|
jumptext TeamRocketOathText
|
|
|
|
IncenseBurnerScript:
|
|
jumptext IncenseBurnerText
|
|
|
|
MerchandiseShelfScript:
|
|
jumptext MerchandiseShelfText
|
|
|
|
TownMapScript:
|
|
opentext
|
|
writetext LookTownMapText
|
|
waitbutton
|
|
special OverworldTownMap
|
|
closetext
|
|
end
|
|
|
|
WindowScript:
|
|
jumptext WindowText
|
|
|
|
TVScript:
|
|
opentext
|
|
writetext TVText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
HomepageScript:
|
|
jumptext HomepageText
|
|
|
|
Radio1Script:
|
|
opentext
|
|
setval MAPRADIO_POKEMON_CHANNEL
|
|
special MapRadio
|
|
closetext
|
|
end
|
|
|
|
Radio2Script:
|
|
; Lucky Channel
|
|
opentext
|
|
setval MAPRADIO_LUCKY_CHANNEL
|
|
special MapRadio
|
|
closetext
|
|
end
|
|
|
|
TrashCanScript:
|
|
jumptext TrashCanText
|
|
|
|
PCScript:
|
|
opentext
|
|
special PokemonCenterPC
|
|
closetext
|
|
end
|
|
|
|
ElevatorButtonScript:
|
|
playsound SFX_READ_TEXT_2
|
|
pause 15
|
|
playsound SFX_ELEVATOR_END
|
|
end
|
|
|
|
StrengthBoulderScript:
|
|
farsjump AskStrengthScript
|
|
|
|
SmashRockScript:
|
|
farsjump AskRockSmashScript
|
|
|
|
PokecenterSignScript:
|
|
jumptext PokecenterSignText
|
|
|
|
MartSignScript:
|
|
jumptext MartSignText
|
|
|
|
DayToTextScript:
|
|
readvar VAR_WEEKDAY
|
|
ifequal MONDAY, .Monday
|
|
ifequal TUESDAY, .Tuesday
|
|
ifequal WEDNESDAY, .Wednesday
|
|
ifequal THURSDAY, .Thursday
|
|
ifequal FRIDAY, .Friday
|
|
ifequal SATURDAY, .Saturday
|
|
getstring STRING_BUFFER_3, .SundayText
|
|
end
|
|
.Monday:
|
|
getstring STRING_BUFFER_3, .MondayText
|
|
end
|
|
.Tuesday:
|
|
getstring STRING_BUFFER_3, .TuesdayText
|
|
end
|
|
.Wednesday:
|
|
getstring STRING_BUFFER_3, .WednesdayText
|
|
end
|
|
.Thursday:
|
|
getstring STRING_BUFFER_3, .ThursdayText
|
|
end
|
|
.Friday:
|
|
getstring STRING_BUFFER_3, .FridayText
|
|
end
|
|
.Saturday:
|
|
getstring STRING_BUFFER_3, .SaturdayText
|
|
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
|
|
setmapscene MAHOGANY_TOWN, SCENE_FINISHED
|
|
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
|
|
writetext ContestResults_ReadyToJudgeText
|
|
waitbutton
|
|
special BugContestJudging
|
|
getnum STRING_BUFFER_3
|
|
ifequal 1, BugContestResults_FirstPlace
|
|
ifequal 2, BugContestResults_SecondPlace
|
|
ifequal 3, BugContestResults_ThirdPlace
|
|
writetext ContestResults_ConsolationPrizeText
|
|
promptbutton
|
|
waitsfx
|
|
verbosegiveitem BERRY
|
|
iffalse BugContestResults_NoRoomForBerry
|
|
|
|
BugContestResults_DidNotWin:
|
|
writetext ContestResults_DidNotWinText
|
|
promptbutton
|
|
sjump BugContestResults_FinishUp
|
|
|
|
BugContestResults_ReturnAfterWinnersPrize:
|
|
writetext ContestResults_JoinUsNextTimeText
|
|
promptbutton
|
|
|
|
BugContestResults_FinishUp:
|
|
checkevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER
|
|
iffalse BugContestResults_DidNotLeaveMons
|
|
writetext ContestResults_ReturnPartyText
|
|
waitbutton
|
|
special ContestReturnMons
|
|
BugContestResults_DidNotLeaveMons:
|
|
special CheckPartyFullAfterContest
|
|
ifequal BUGCONTEST_CAUGHT_MON, BugContestResults_CleanUp
|
|
ifequal BUGCONTEST_NO_CATCH, BugContestResults_CleanUp
|
|
; BUGCONTEST_BOXED_MON
|
|
writetext ContestResults_PartyFullText
|
|
waitbutton
|
|
BugContestResults_CleanUp:
|
|
closetext
|
|
setscene SCENE_ROUTE36NATIONALPARKGATE_NOTHING
|
|
setmapscene ROUTE_35_NATIONAL_PARK_GATE, SCENE_ROUTE35NATIONALPARKGATE_NOTHING
|
|
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
|
|
|
|
BugContestResults_FirstPlace:
|
|
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
getitemname STRING_BUFFER_4, SUN_STONE
|
|
writetext ContestResults_PlayerWonAPrizeText
|
|
waitbutton
|
|
verbosegiveitem SUN_STONE
|
|
iffalse BugContestResults_NoRoomForSunStone
|
|
sjump BugContestResults_ReturnAfterWinnersPrize
|
|
|
|
BugContestResults_SecondPlace:
|
|
getitemname STRING_BUFFER_4, EVERSTONE
|
|
writetext ContestResults_PlayerWonAPrizeText
|
|
waitbutton
|
|
verbosegiveitem EVERSTONE
|
|
iffalse BugContestResults_NoRoomForEverstone
|
|
sjump BugContestResults_ReturnAfterWinnersPrize
|
|
|
|
BugContestResults_ThirdPlace:
|
|
getitemname STRING_BUFFER_4, GOLD_BERRY
|
|
writetext ContestResults_PlayerWonAPrizeText
|
|
waitbutton
|
|
verbosegiveitem GOLD_BERRY
|
|
iffalse BugContestResults_NoRoomForGoldBerry
|
|
sjump BugContestResults_ReturnAfterWinnersPrize
|
|
|
|
BugContestResults_NoRoomForSunStone:
|
|
writetext BugContestPrizeNoRoomText
|
|
promptbutton
|
|
setevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
|
|
sjump BugContestResults_ReturnAfterWinnersPrize
|
|
|
|
BugContestResults_NoRoomForEverstone:
|
|
writetext BugContestPrizeNoRoomText
|
|
promptbutton
|
|
setevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
|
|
sjump BugContestResults_ReturnAfterWinnersPrize
|
|
|
|
BugContestResults_NoRoomForGoldBerry:
|
|
writetext BugContestPrizeNoRoomText
|
|
promptbutton
|
|
setevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
|
|
sjump BugContestResults_ReturnAfterWinnersPrize
|
|
|
|
BugContestResults_NoRoomForBerry:
|
|
writetext BugContestPrizeNoRoomText
|
|
promptbutton
|
|
setevent EVENT_CONTEST_OFFICER_HAS_BERRY
|
|
sjump BugContestResults_DidNotWin
|
|
|
|
BugContestResults_CopyContestantsToResults:
|
|
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_1
|
|
setevent EVENT_ILEX_FOREST_FARFETCHD_2
|
|
setevent EVENT_ILEX_FOREST_FARFETCHD_3
|
|
setevent EVENT_ILEX_FOREST_FARFETCHD_4
|
|
setevent EVENT_ILEX_FOREST_FARFETCHD_5
|
|
setevent EVENT_ILEX_FOREST_FARFETCHD_6
|
|
setevent EVENT_ILEX_FOREST_FARFETCHD_7
|
|
setevent EVENT_ILEX_FOREST_FARFETCHD_8
|
|
setevent EVENT_ILEX_FOREST_FARFETCHD_9
|
|
setevent EVENT_ILEX_FOREST_FARFETCHD_10
|
|
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_GOLDENROD_UNDERGROUND
|
|
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_PLAYERS_HOUSE_2F_CONSOLE
|
|
setevent EVENT_PLAYERS_HOUSE_2F_DOLL_1
|
|
setevent EVENT_PLAYERS_HOUSE_2F_DOLL_2
|
|
setevent EVENT_PLAYERS_HOUSE_2F_BIG_DOLL
|
|
setevent EVENT_DECO_BED_1
|
|
setevent EVENT_DECO_POSTER_1
|
|
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_GOLDENROD_DEPT_STORE_B1F_LAYOUT_1
|
|
setevent EVENT_GOLDENROD_UNDERGROUND_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_BURNED_TOWER_FIREBREATHER_DICK_ASHES
|
|
setevent EVENT_ECRUTEAK_TIN_TOWER_ENTRANCE_SAGE_LEFT
|
|
setevent EVENT_PLAYERS_HOUSE_MOM_2
|
|
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
|
|
return
|
|
|
|
AskNumber1MScript:
|
|
writetext AskNumber1MText
|
|
end
|
|
|
|
AskNumber2MScript:
|
|
writetext AskNumber2MText
|
|
end
|
|
|
|
RegisteredNumberMScript:
|
|
writetext RegisteredNumberMText
|
|
playsound SFX_REGISTER_PHONE_NUMBER
|
|
waitsfx
|
|
promptbutton
|
|
end
|
|
|
|
NumberAcceptedMScript:
|
|
writetext NumberAcceptedMText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
NumberDeclinedMScript:
|
|
writetext NumberDeclinedMText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
PhoneFullMScript:
|
|
writetext PhoneFullMText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
RematchMScript:
|
|
writetext RematchMText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
AskNumber1FScript:
|
|
writetext AskNumber1FText
|
|
end
|
|
|
|
AskNumber2FScript:
|
|
writetext AskNumber2FText
|
|
end
|
|
|
|
RegisteredNumberFScript:
|
|
writetext RegisteredNumberFText
|
|
playsound SFX_REGISTER_PHONE_NUMBER
|
|
waitsfx
|
|
promptbutton
|
|
end
|
|
|
|
NumberAcceptedFScript:
|
|
writetext NumberAcceptedFText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
NumberDeclinedFScript:
|
|
writetext NumberDeclinedFText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
PhoneFullFScript:
|
|
writetext PhoneFullFText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
RematchFScript:
|
|
writetext RematchFText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
GymStatue1Script:
|
|
getcurlandmarkname STRING_BUFFER_3
|
|
opentext
|
|
writetext GymStatue_CityGymText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
GymStatue2Script:
|
|
getcurlandmarkname STRING_BUFFER_3
|
|
opentext
|
|
writetext GymStatue_CityGymText
|
|
promptbutton
|
|
writetext GymStatue_WinningTrainersText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
ReceiveItemScript:
|
|
waitsfx
|
|
writetext ReceivedItemText
|
|
playsound SFX_ITEM
|
|
waitsfx
|
|
end
|
|
|
|
ReceiveTogepiEggScript:
|
|
waitsfx
|
|
writetext ReceivedItemText
|
|
playsound SFX_GET_EGG
|
|
waitsfx
|
|
end
|
|
|
|
GameCornerCoinVendorScript:
|
|
faceplayer
|
|
opentext
|
|
writetext CoinVendor_WelcomeText
|
|
promptbutton
|
|
checkitem COIN_CASE
|
|
iftrue CoinVendor_IntroScript
|
|
writetext CoinVendor_NoCoinCaseText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
CoinVendor_IntroScript:
|
|
writetext CoinVendor_IntroText
|
|
|
|
.loop
|
|
special DisplayMoneyAndCoinBalance
|
|
loadmenu .MenuHeader
|
|
verticalmenu
|
|
closewindow
|
|
ifequal 1, .Buy50
|
|
ifequal 2, .Buy500
|
|
sjump .Cancel
|
|
|
|
.Buy50:
|
|
checkcoins MAX_COINS - 50
|
|
ifequal HAVE_MORE, .CoinCaseFull
|
|
checkmoney YOUR_MONEY, 1000
|
|
ifequal HAVE_LESS, .NotEnoughMoney
|
|
givecoins 50
|
|
takemoney YOUR_MONEY, 1000
|
|
waitsfx
|
|
playsound SFX_TRANSACTION
|
|
writetext CoinVendor_Buy50CoinsText
|
|
waitbutton
|
|
sjump .loop
|
|
|
|
.Buy500:
|
|
checkcoins MAX_COINS - 500
|
|
ifequal HAVE_MORE, .CoinCaseFull
|
|
checkmoney YOUR_MONEY, 10000
|
|
ifequal HAVE_LESS, .NotEnoughMoney
|
|
givecoins 500
|
|
takemoney YOUR_MONEY, 10000
|
|
waitsfx
|
|
playsound SFX_TRANSACTION
|
|
writetext CoinVendor_Buy500CoinsText
|
|
waitbutton
|
|
sjump .loop
|
|
|
|
.NotEnoughMoney:
|
|
writetext CoinVendor_NotEnoughMoneyText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.CoinCaseFull:
|
|
writetext CoinVendor_CoinCaseFullText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.Cancel:
|
|
writetext CoinVendor_CancelText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.MenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 0, 4, 15, TEXTBOX_Y - 1
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_CURSOR ; flags
|
|
db 3 ; items
|
|
db " 50 : ¥1000@"
|
|
db "500 : ¥10000@"
|
|
db "CANCEL@"
|
|
|
|
HappinessCheckScript:
|
|
faceplayer
|
|
opentext
|
|
special GetFirstPokemonHappiness
|
|
ifless 50, .Unhappy
|
|
ifless 150, .KindaHappy
|
|
writetext HappinessText3
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.KindaHappy:
|
|
writetext HappinessText2
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.Unhappy:
|
|
writetext HappinessText1
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
Movement_ContestResults_WalkAfterWarp:
|
|
step RIGHT
|
|
step DOWN
|
|
turn_head UP
|
|
step_end
|