This commit is contained in:
Zeta_Null 2024-07-12 13:40:23 -04:00
commit a0334348ce
194 changed files with 3391 additions and 245 deletions

Binary file not shown.

View file

@ -9,6 +9,7 @@ AlteringCave_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 17, 27, DEBUG_ROOM, 1 ; Will be Outcast Island
def_coord_events

Binary file not shown.

View file

@ -9,6 +9,8 @@ BerryForest_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 27, 29, DEBUG_ROOM, 1 ; BOND_BRIDGE
warp_event 26, 29, DEBUG_ROOM, 1 ; BOND_BRIDGE
def_coord_events

View file

@ -176,6 +176,11 @@ DebugItemScript:
giveitem RARE_CANDY, 99
giveitem BICYCLE, 1
giveitem SUPER_ROD, 1
giveitem CLUB_FOSSIL, 2
giveitem WING_FOSSIL, 2
giveitem DOME_FOSSIL, 2
giveitem HELIX_FOSSIL, 2
giveitem OLD_AMBER, 2
closetext
end
@ -184,6 +189,294 @@ DebugTextE:
line "many items!"
done
DebugFossilScientist:
faceplayer
opentext
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove the next two lines to immediately receive the fossil
iftrue .GaveScientistFossil
checkevent EVENT_GAVE_SCIENTIST_OLD_AMBER
iftrue .GiveDecilla
checkevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
iftrue .GiveKabuto
checkevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
iftrue .GiveOmanyte
checkevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
iftrue .GiveXylodon
checkevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
iftrue .GiveFeradactyl
writetext FossilScientistIntroText
waitbutton
loadmenu .MoveMenuHeader
verticalmenu
closewindow
ifequal REVIVE_OLD_AMBER, .OldAmber
ifequal REVIVE_DOME_FOSSIL, .DomeFossil
ifequal REVIVE_HELIX_FOSSIL, .HelixFossil
ifequal REVIVE_CLUB_FOSSIL, .ClubFossil
ifequal REVIVE_WING_FOSSIL, .WingFossil
sjump .No
.OldAmber
checkitem OLD_AMBER
iffalse .No
getmonname STRING_BUFFER_3, DECILLA
writetext FossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_OLD_AMBER
takeitem OLD_AMBER
writetext FossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.DomeFossil:
checkitem DOME_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, KABUTO
writetext FossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
takeitem DOME_FOSSIL
opentext
writetext FossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.HelixFossil:
checkitem HELIX_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, OMANYTE
writetext FossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
takeitem HELIX_FOSSIL
writetext FossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.ClubFossil:
checkitem HELIX_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, XYLODON
writetext FossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
takeitem HELIX_FOSSIL
writetext FossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.WingFossil:
checkitem HELIX_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, FERADACTYL
writetext FossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
takeitem HELIX_FOSSIL
writetext FossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.No
writetext FossilScientistNoText
waitbutton
closetext
end
.GaveScientistFossil:
writetext FossilScientistTimeText
waitbutton
closetext
; older versions will use FadeBlackQuickly below instead
; special FadeOutToBlack ; uncomment the next five lines to immediately receive the fossil
; special ReloadSpritesNoPalettes
; playsound SFX_WARP_TO
; waitsfx
; pause 35
end ; replace this with "sjump FossilScientist" to immediately receive the fossil
.GiveDecilla:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_OLD_AMBER
writetext FossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, DECILLA
writetext FossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext FossilScientistMonText
givepoke DECILLA, 30
closetext
end
.GiveKabuto:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
writetext FossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, KABUTO
writetext FossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext FossilScientistMonText
givepoke KABUTO, 30
closetext
end
.GiveOmanyte:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
writetext FossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, OMANYTE
writetext FossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext FossilScientistMonText
givepoke OMANYTE, 30
closetext
end
.GiveXylodon:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
writetext FossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, XYLODON
writetext FossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext FossilScientistMonText
givepoke XYLODON, 30
closetext
end
.GiveFeradactyl:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
writetext FossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, FERADACTYL
writetext FossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext FossilScientistMonText
givepoke FERADACTYL, 30
closetext
end
.NoRoom:
writetext FossilScientistPartyFullText
waitbutton
closetext
end
.MoveMenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 15, TEXTBOX_Y + 1
dw .MenuData
db 1 ; default option
.MenuData:
db STATICMENU_CURSOR ; flags
db 6 ; items
db "OLD AMBER@"
db "DOME FOSSIL@"
db "HELIX FOSSIL@"
db "CLUB FOSSIL@"
db "WING FOSSIL@"
db "CANCEL@"
FossilScientistIntroText:
text "Hiya!"
para "I am important"
line "doctor!"
para "I study here rare"
line "#MON fossils!"
para "You! Have you a"
line "fossil for me?"
done
FossilScientistNoText:
text "No! Is too bad!"
para "You come again!"
done
FossilScientistPartyFullText:
text "No! Is too bad!"
para "Your party is"
line "already full!"
done
FossilScientistTimeText:
text "I take a little"
line "time!"
para "You go for walk a"
line "little while!"
done
FossilScientistDoneText:
text "Where were you?"
para "Your fossil is"
line "back to life!"
done
FossilScientistMonText:
text "Oh! That is"
line "a fossil!"
para "It is fossil of"
line "@"
text_ram wStringBuffer3
text ", a"
para "#MON that is"
line "already extinct!"
para "My Resurrection"
line "Machine will make"
cont "that #MON live"
cont "again!"
done
FossilScientistGiveText:
text "So! You hurry and"
line "give me that!"
para "<PLAYER> handed"
line "over the fossil."
done
FossilScientistReceiveText:
text "<PLAYER> received"
line "@"
text_ram wStringBuffer3
text "!"
done
DebugRoom_MapEvents:
db 0, 0 ; filler
@ -200,7 +493,7 @@ DebugRoom_MapEvents:
warp_event 19, 34, BLUE_FOREST, 1 ; southern warp
warp_event 33, 33, BLUE_FOREST, 1 ; southeast warp
warp_event 5, 3, AZALEA_TOWN, 1
warp_event 34, 11, CLIFF_CAVE, 1
warp_event 34, 11, RUINS_OF_ALPH_RESEARCH_CENTER, 1
def_coord_events
@ -214,4 +507,4 @@ DebugRoom_MapEvents:
object_event 17, 13, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_PURPLE, OBJECTTYPE_SCRIPT, 0, DebugFlyScript, -1
object_event 16, 13, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_PURPLE, OBJECTTYPE_SCRIPT, 0, DebugDexScript, -1
object_event 19, 13, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_PURPLE, OBJECTTYPE_SCRIPT, 0, DebugItemScript, -1
object_event 18, 13, SPRITE_NURSE, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, DebugFossilScientist, -1

View file

@ -11,5 +11,5 @@ gFDgh
"EefEABh5
"wl
5%&IIIIIIIIJII55)*~~~~~~~~~Y@-.EAAAAAAYDwjYHIEgghzvUggh
5YgE'#(hY@'#(ggdhYD3ghYgdhzUgEgEdgh
5YgE'#(hY@g'#(ggdhYD $_3ghYgdhzUgEgEdgh
Ygggdgl5YgdAAB@AAgdg

View file

@ -262,7 +262,7 @@ GoldenrodCityUndergroundSignSouth:
jumptext GoldenrodCityUndergroundSignSouthText
GoldenrodCityPokecenterSign:
jumpstd PokecenterSignScript
jumptext GoldenrodCityPokeComCenterSignText ; Now using the PCC text
GoldenrodCityFlowerShopSign:
jumptext GoldenrodCityFlowerShopSignText
@ -476,7 +476,7 @@ GoldenrodCityUndergroundSignSouthText:
line "ENTRANCE"
done
GoldenrodCityPokeComCenterSignText: ; unreferenced
GoldenrodCityPokeComCenterSignText:
text "For Mobile Tips!"
line "#COM CENTER"
done
@ -566,7 +566,7 @@ GoldenrodCity_MapEvents:
warp_event 19, 1, ROUTE_35_GOLDENROD_GATE, 3
warp_event 9, 5, GOLDENROD_UNDERGROUND_SWITCH_ROOM_ENTRANCES, 8
warp_event 11, 29, GOLDENROD_UNDERGROUND_SWITCH_ROOM_ENTRANCES, 5
warp_event 15, 27, GOLDENROD_POKECENTER_1F, 1
warp_event 14, 27, POKECOM_CENTER_ADMIN_OFFICE_MOBILE, 3
def_coord_events
@ -581,7 +581,7 @@ GoldenrodCity_MapEvents:
bg_event 12, 7, BGEVENT_READ, GoldenrodCityNameRaterSign
bg_event 8, 6, BGEVENT_READ, GoldenrodCityUndergroundSignNorth
bg_event 12, 30, BGEVENT_READ, GoldenrodCityUndergroundSignSouth
bg_event 16, 27, BGEVENT_UP, GoldenrodCityPokecenterSign
bg_event 17, 27, BGEVENT_UP, GoldenrodCityPokecenterSign
bg_event 30, 6, BGEVENT_READ, GoldenrodCityFlowerShopSign
def_object_events

View file

@ -5,7 +5,290 @@ PewterMuseumOfScience1F_MapScripts:
def_scene_scripts
def_callbacks
; This scientist will use the HGSS Fossil Scientist's script, albeit slightly altered.
MuseumFossilScientist:
faceplayer
opentext
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove the next two lines to immediately receive the fossil
iftrue .GaveScientistFossil
checkevent EVENT_GAVE_SCIENTIST_OLD_AMBER
iftrue .GiveDecilla
checkevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
iftrue .GiveKabuto
checkevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
iftrue .GiveOmanyte
checkevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
iftrue .GiveXylodon
checkevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
iftrue .GiveFeradactyl
writetext MuseumFossilScientistIntroText
waitbutton
loadmenu .MoveMenuHeader
verticalmenu
closewindow
ifequal REVIVE_OLD_AMBER, .OldAmber
ifequal REVIVE_DOME_FOSSIL, .DomeFossil
ifequal REVIVE_HELIX_FOSSIL, .HelixFossil
ifequal REVIVE_CLUB_FOSSIL, .ClubFossil
ifequal REVIVE_WING_FOSSIL, .WingFossil
sjump .No
.OldAmber
checkitem OLD_AMBER
iffalse .No
getmonname STRING_BUFFER_3, DECILLA
writetext MuseumFossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_OLD_AMBER
takeitem OLD_AMBER
writetext MuseumFossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.DomeFossil:
checkitem DOME_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, KABUTO
writetext MuseumFossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
takeitem DOME_FOSSIL
opentext
writetext MuseumFossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.HelixFossil:
checkitem HELIX_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, OMANYTE
writetext MuseumFossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
takeitem HELIX_FOSSIL
writetext MuseumFossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.ClubFossil:
checkitem HELIX_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, XYLODON
writetext MuseumFossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
takeitem HELIX_FOSSIL
writetext MuseumFossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.WingFossil:
checkitem HELIX_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, FERADACTYL
writetext MuseumFossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
takeitem HELIX_FOSSIL
writetext MuseumFossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.No
writetext MuseumFossilScientistNoText
waitbutton
closetext
end
.GaveScientistFossil:
writetext MuseumFossilScientistTimeText
waitbutton
closetext
; older versions will use FadeBlackQuickly below instead
; special FadeOutToBlack ; uncomment the next five lines to immediately receive the fossil
; special ReloadSpritesNoPalettes
; playsound SFX_WARP_TO
; waitsfx
; pause 35
end ; replace this with "sjump FossilScientist" to immediately receive the fossil
.GiveDecilla:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_OLD_AMBER
writetext MuseumFossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, DECILLA
writetext MuseumFossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext MuseumFossilScientistMonText
givepoke DECILLA, 30
closetext
end
.GiveKabuto:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
writetext MuseumFossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, KABUTO
writetext MuseumFossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext MuseumFossilScientistMonText
givepoke KABUTO, 30
closetext
end
.GiveOmanyte:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
writetext MuseumFossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, OMANYTE
writetext MuseumFossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext MuseumFossilScientistMonText
givepoke OMANYTE, 30
closetext
end
.GiveXylodon:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
writetext MuseumFossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, XYLODON
writetext MuseumFossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext MuseumFossilScientistMonText
givepoke XYLODON, 30
closetext
end
.GiveFeradactyl:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
writetext MuseumFossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, FERADACTYL
writetext MuseumFossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext MuseumFossilScientistMonText
givepoke FERADACTYL, 30
closetext
end
.NoRoom:
writetext MuseumFossilScientistPartyFullText
waitbutton
closetext
end
.MoveMenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 15, TEXTBOX_Y + 1
dw .MenuData
db 1 ; default option
.MenuData:
db STATICMENU_CURSOR ; flags
db 6 ; items
db "OLD AMBER@"
db "DOME FOSSIL@"
db "HELIX FOSSIL@"
db "CLUB FOSSIL@"
db "WING FOSSIL@"
db "CANCEL@"
MuseumFossilScientistIntroText:
text "Did you know you"
line "can revive #MON"
cont "from fossils?"
para "If you need to,"
line "let me take care"
cont "of it for you!"
done
MuseumFossilScientistNoText:
text "Ah, alright."
para "Come again though,"
line "you hear?"
done
MuseumFossilScientistPartyFullText:
text "Oops!"
para "Your party is"
line "full!"
done
MuseumFossilScientistTimeText:
text "It'll take a bit"
line "to revive the"
cont "fossil."
para "PEWTER CITY is"
line "great. Why not"
cont "go on a little"
cont "walkabout?"
done
MuseumFossilScientistDoneText:
text "There you are!"
para "Here's your"
line "#MON!"
done
MuseumFossilScientistMonText:
text "Ah, yes!"
para "That's a fossil"
line "@"
text_ram wStringBuffer3
text "!"
para "Want me to revive"
line "it?"
done
MuseumFossilScientistGiveText:
text "Alright! Careful,"
line "now..."
para "<PLAYER> handed"
line "over the fossil."
done
MuseumFossilScientistReceiveText:
text "<PLAYER> received"
line "@"
text_ram wStringBuffer3
text "!"
done
PewterMuseumOfScience1F_MapEvents:
db 0, 0 ; filler
@ -20,4 +303,5 @@ PewterMuseumOfScience1F_MapEvents:
def_bg_events
def_object_events
def_object_events
object_event 2, 9, SPRITE_SCIENTIST, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, MuseumFossilScientist, -1

View file

@ -1,13 +1,810 @@
object_const_def
const GOLDENRODPOKECENTER1F_NURSE
const GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST
const GOLDENRODPOKECENTER1F_GAMEBOY_KID
const GOLDENRODPOKECENTER1F_LASS
const GOLDENRODPOKECENTER1F_POKEFAN_F
const POKECOMCENTERADMINOFFICEMOBILE_SCIENTIST1
const POKECOMCENTERADMINOFFICEMOBILE_SCIENTIST2
const POKECOMCENTERADMINOFFICEMOBILE_SCIENTIST3
PokecomCenterAdminOfficeMobile_MapScripts:
def_scene_scripts
scene_const SCENE_GOLDENRODPOKECENTER1F_GS_BALL
def_callbacks
GoldenrodPokecenter1FNurseScript:
jumpstd PokecenterNurseScript
GoldenrodPokecenter1F_GSBallSceneLeft:
setval BATTLETOWERACTION_CHECKMOBILEEVENT
special BattleTowerAction
ifequal MOBILE_EVENT_OBJECT_GS_BALL, .gsball
end
.gsball
checkevent EVENT_GOT_GS_BALL_FROM_POKECOM_CENTER
iftrue .cancel
playsound SFX_EXIT_BUILDING
moveobject GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST, 0, 7
disappear GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST
appear GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST
playmusic MUSIC_SHOW_ME_AROUND
applymovement GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST, GoldenrodPokeCenter1FLinkReceptionistApproachPlayerAtLeftDoorwayTileMovement
turnobject PLAYER, UP
opentext
writetext GoldenrodPokeCenter1FLinkReceptionistPleaseAcceptGSBallText
waitbutton
verbosegiveitem GS_BALL
setevent EVENT_GOT_GS_BALL_FROM_POKECOM_CENTER
setevent EVENT_CAN_GIVE_GS_BALL_TO_KURT
writetext GoldenrodPokeCenter1FLinkReceptionistPleaseDoComeAgainText
waitbutton
closetext
applymovement GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST, GoldenrodPokeCenter1FLinkReceptionistWalkToStairsFromLeftDoorwayTileMovement
special RestartMapMusic
disappear GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST
playsound SFX_EXIT_BUILDING
.cancel
end
GoldenrodPokecenter1F_GSBallSceneRight:
setval BATTLETOWERACTION_CHECKMOBILEEVENT
special BattleTowerAction
ifequal MOBILE_EVENT_OBJECT_GS_BALL, .gsball
end
.gsball
checkevent EVENT_GOT_GS_BALL_FROM_POKECOM_CENTER
iftrue .cancel
playsound SFX_EXIT_BUILDING
moveobject GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST, 0, 7
disappear GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST
appear GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST
playmusic MUSIC_SHOW_ME_AROUND
applymovement GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST, GoldenrodPokeCenter1FLinkReceptionistApproachPlayerAtRightDoorwayTileMovement
turnobject PLAYER, UP
opentext
writetext GoldenrodPokeCenter1FLinkReceptionistPleaseAcceptGSBallText
waitbutton
verbosegiveitem GS_BALL
setevent EVENT_GOT_GS_BALL_FROM_POKECOM_CENTER
setevent EVENT_CAN_GIVE_GS_BALL_TO_KURT
writetext GoldenrodPokeCenter1FLinkReceptionistPleaseDoComeAgainText
waitbutton
closetext
applymovement GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST, GoldenrodPokeCenter1FLinkReceptionistWalkToStairsFromRightDoorwayTileMovement
special RestartMapMusic
disappear GOLDENRODPOKECENTER1F_LINK_RECEPTIONIST
playsound SFX_EXIT_BUILDING
.cancel
end
GoldenrodPokecenter1FGameboyKidScript:
jumptextfaceplayer GoldenrodPokecenter1FGameboyKidText
GoldenrodPokecenter1FLassScript:
jumptextfaceplayer GoldenrodPokecenter1FLassText
GoldenrodPokecenter1FPokefanF:
faceplayer
opentext
writetext GoldenrodPokecenter1FPokefanFDoYouHaveEonMailText
waitbutton
writetext GoldenrodPokecenter1FAskGiveAwayAnEonMailText
yesorno
iffalse .NoEonMail
takeitem EON_MAIL
iffalse .NoEonMail
writetext GoldenrodPokecenter1FPlayerGaveAwayTheEonMailText
waitbutton
writetext GoldenrodPokecenter1FPokefanFThisIsForYouText
waitbutton
verbosegiveitem REVIVE
iffalse .NoRoom
writetext GoldenrodPokecenter1FPokefanFDaughterWillBeDelightedText
waitbutton
closetext
end
.NoEonMail:
writetext GoldenrodPokecenter1FPokefanFTooBadText
waitbutton
closetext
end
.NoRoom:
giveitem EON_MAIL
writetext GoldenrodPokecenter1FPokefanFAnotherTimeThenText
waitbutton
closetext
end
GoldenrodPokeCenter1FLinkReceptionistApproachPlayerAtLeftDoorwayTileMovement:
step UP
step RIGHT
step RIGHT
step RIGHT
turn_head DOWN
step_end
GoldenrodPokeCenter1FLinkReceptionistWalkToStairsFromLeftDoorwayTileMovement:
step LEFT
step LEFT
step LEFT
step DOWN
step_end
GoldenrodPokeCenter1FLinkReceptionistApproachPlayerAtRightDoorwayTileMovement:
step UP
step RIGHT
step RIGHT
step RIGHT
step RIGHT
turn_head DOWN
step_end
GoldenrodPokeCenter1FLinkReceptionistWalkToStairsFromRightDoorwayTileMovement:
step LEFT
step LEFT
step LEFT
step LEFT
step DOWN
step_end
GoldenrodPokecomCenterWelcomeToTradeCornerText: ; unreferenced
text "Hello! Welcome to"
line "#COM CENTER"
cont "TRADE CORNER."
para "You can trade"
line "#MON with other"
cont "people far away."
done
GoldenrodPokecomCenterWeMustHoldYourMonText: ; unreferenced
text "To make a trade,"
line "we must hold your"
cont "#MON."
para "Would you like to"
line "trade?"
done
GoldenrodPokecomCenterWhatMonDoYouWantText: ; unreferenced
text "What kind of"
line "#MON do you"
cont "want in return?"
done
GoldenrodPokecomCenterWeWillTradeYourMonForMonText: ; unreferenced
text "Fine. We will try"
line "to trade your"
para "@"
text_ram wStringBuffer3
text " for"
line "@"
text_ram wStringBuffer4
text "."
para "We'll have to hold"
line "your #MON"
cont "during the trade."
para "Please wait while"
line "we prepare the"
cont "room for it."
done
GoldenrodPokecomCenterWeWillTradeYourMonForNewText: ; unreferenced
text "Fine. We will try"
line "to trade your"
para "@"
text_ram wStringBuffer3
text " for a"
line "#MON that you"
cont "have never seen."
para "We'll have to hold"
line "your #MON"
cont "during the trade."
para "Please wait while"
line "we prepare the"
cont "room for it."
done
GoldenrodPokecomCenterYourMonHasBeenReceivedText: ; unreferenced
text "Your trade #MON"
line "has been received."
para "It will take time"
line "to find a trade"
para "partner. Please"
line "come back later."
done
GoldenrodPokecomCenterYouHaveOnlyOneMonText: ; unreferenced
text "Oh? You have only"
line "one #MON in"
cont "your party. "
para "Please come back"
line "once you've in-"
cont "creased the size"
cont "of your party."
done
GoldenrodPokecomCenterWeHopeToSeeYouAgainText: ; unreferenced
text "We hope to see you"
line "again."
done
GoldenrodPokecomCenterCommunicationErrorText: ; unreferenced
text "Communication"
line "error…"
done
GoldenrodPokecomCenterCantAcceptLastMonText: ; unreferenced
text "If we accept that"
line "#MON, what will"
cont "you battle with?"
done
GoldenrodPokecomCenterCantAcceptEggText: ; unreferenced
text "Sorry. We can't"
line "accept an EGG."
done
GoldenrodPokecomCenterCantAcceptAbnormalMonText: ; unreferenced
text "Sorry, but your"
line "#MON appears to"
para "be abnormal. We"
line "can't accept it."
done
GoldenrodPokecomCenterAlreadyHoldingMonText: ; unreferenced
text "Oh? Aren't we"
line "already holding a"
cont "#MON of yours?"
done
GoldenrodPokecomCenterCheckingTheRoomsText: ; unreferenced
text "We'll check the"
line "rooms."
para "Please wait."
done
GoldenrodPokecomCenterTradePartnerHasBeenFoundText: ; unreferenced
text "Thank you for your"
line "patience."
para "A trade partner"
line "has been found."
done
GoldenrodPokecomCenterItsYourNewPartnerText: ; unreferenced
text "It's your new"
line "partner."
para "Please take care"
line "of it with love."
para "We hope to see you"
line "again."
done
GoldenrodPokecomCenterYourPartyIsFullText: ; unreferenced
text "Uh-oh. Your party"
line "is already full."
para "Please come back"
line "when you have room"
cont "in your party."
done
GoldenrodPokecomCenterNoTradePartnerFoundText: ; unreferenced
text "It's unfortunate,"
line "but no one has"
para "come forward as a"
line "trade partner."
para "Would you like"
line "your #MON back?"
done
GoldenrodPokecomCenterReturnedYourMonText: ; unreferenced
text "We have returned"
line "your #MON."
done
GoldenrodPokecomCenterYourMonIsLonelyText: ; unreferenced
text "It's unfortunate,"
line "but no one has"
para "come forward as a"
line "trade partner."
para "We've held your"
line "#MON for a long"
para "time. As a result,"
line "it is very lonely."
para "Sorry, but we must"
line "return it to you."
done
GoldenrodPokecenter1FWeHopeToSeeYouAgainText_2: ; unreferenced
text "We hope to see you"
line "again."
done
GoldenrodPokecomCenterContinueToHoldYourMonText: ; unreferenced
text "Fine. We will"
line "continue to hold"
cont "your #MON."
done
GoldenrodPokecomCenterRecentlyLeftYourMonText: ; unreferenced
text "Oh? You left your"
line "#MON with us"
cont "only recently."
para "Please come back"
line "later."
done
GoldenrodPokecomCenterSaveBeforeTradeCornerText: ; unreferenced
text "We'll SAVE before"
line "connecting to the"
cont "CENTER."
done
GoldenrodPokecomCenterWhichMonToTradeText: ; unreferenced
text "Which #MON do"
line "you want to trade?"
done
GoldenrodPokecomCenterTradeCanceledText: ; unreferenced
text "Sorry, but we must"
line "cancel the trade."
done
GoldenrodPokecomCenterEggTicketText: ; unreferenced
text "Oh!"
para "I see you have an"
line "EGG TICKET!"
para "It's a coupon that"
line "special people can"
para "redeem for a"
line "special #MON!"
done
GoldenrodPokecomCenterOddEggBriefingText: ; unreferenced
text "Let me give you a"
line "quick briefing."
para "Trades held at the"
line "TRADE CORNER are"
para "between two"
line "trainers who don't"
para "know each other's"
line "identity."
para "As a result, it"
line "may take time."
para "However, an ODD"
line "EGG is available"
cont "just for you."
para "It will be sent to"
line "you right away."
para "Please choose one"
line "of the rooms in"
para "the CENTER."
line "An ODD EGG will be"
para "sent from the"
line "chosen room."
done
GoldenrodPokecomCenterPleaseWaitAMomentText: ; unreferenced
text "Please wait a"
line "moment."
done
GoldenrodPokecomCenterHereIsYourOddEggText: ; unreferenced
text "Thank you for"
line "waiting."
para "We received your"
line "ODD EGG."
para "Here it is!"
para "Please raise it"
line "with loving care."
done
GoldenrodPokecomCenterNoEggTicketServiceText: ; unreferenced
text "I'm awfully sorry."
para "The EGG TICKET"
line "exchange service"
cont "isn't running now."
done
GoldenrodPokecomCenterNewsMachineText: ; unreferenced
text "It's a #MON"
line "NEWS MACHINE."
done
GoldenrodPokecomCenterWhatToDoText: ; unreferenced
text "What would you"
line "like to do?"
done
GoldenrodPokecomCenterNewsMachineExplanationText: ; unreferenced
text "#MON NEWS is"
line "news compiled from"
para "the SAVE files of"
line "#MON trainers."
para "When reading the"
line "NEWS, your SAVE"
para "file may be sent"
line "out."
para "The SAVE file data"
line "will contain your"
para "adventure log and"
line "mobile profile."
para "Your phone number"
line "will not be sent."
para "The contents of"
line "the NEWS will vary"
para "depending on the"
line "SAVE files sent by"
para "you and the other"
line "#MON trainers."
para "You might even be"
line "in the NEWS!"
done
GoldenrodPokecomCenterWouldYouLikeTheNewsText: ; unreferenced
text "Would you like to"
line "get the NEWS?"
done
GoldenrodPokecomCenterReadingTheLatestNewsText: ; unreferenced
text "Reading the latest"
line "NEWS… Please wait."
done
GoldenrodPokecomCenterNoOldNewsText: ; unreferenced
text "There is no old"
line "NEWS…"
done
GoldenrodPokecomCenterCorruptedNewsDataText: ; unreferenced
text "The NEWS data is"
line "corrupted."
para "Please download"
line "the NEWS again."
done
GoldenrodPokecomCenterMakingPreparationsText: ; unreferenced
text "We're making"
line "preparations."
para "Please come back"
line "later."
done
GoldenrodPokecomCenterSaveBeforeNewsMachineText: ; unreferenced
text "We will SAVE your"
line "progress before"
para "starting the NEWS"
line "MACHINE."
done
GoldenrodPokecomCenterPerson1Text: ; unreferenced
text "Whoa, this #MON"
line "CENTER is huge."
para "They just built"
line "this place. They"
para "installed lots of"
line "new machines too."
done
GoldenrodPokecomCenterPerson2Text: ; unreferenced
text "I thought up a fun"
line "new thing for the"
cont "TRADE CORNER!"
para "I make a PIDGEY"
line "hold MAIL, then"
para "put it up for"
line "trade for another"
cont "one!"
para "If everyone did"
line "that, MAIL could"
para "be traded with all"
line "sorts of people!"
para "I call it PIDGEY"
line "MAIL!"
para "If it becomes"
line "popular, I might"
para "make lots of new"
line "friends!"
done
GoldenrodPokecomCenterPerson3Text: ; unreferenced
text "They said you can"
line "trade #MON with"
para "total strangers up"
line "here."
para "But they're still"
line "adjusting things."
done
GoldenrodPokecomCenterPerson4Text: ; unreferenced
text "Some girl I don't"
line "know sent me her"
para "HOPPIP."
line "You should trade"
para "for a #MON that"
line "you want."
done
GoldenrodPokecomCenterPerson5Text: ; unreferenced
text "I received a"
line "female HOPPIP, but"
cont "its named STANLEY!"
para "That's my dad's"
line "name!"
done
GoldenrodPokecomCenterPerson6Text: ; unreferenced
text "What is the NEWS"
line "MACHINE?"
para "Does it get news"
line "from a wider area"
cont "than the radio?"
done
GoldenrodPokecomCenterPerson7Text: ; unreferenced
text "The #COM CENTER"
line "will link with all"
para "#MON CENTERS in"
line "a wireless net."
para "That must mean"
line "I'll be able to"
para "link with all"
line "sorts of people."
done
GoldenrodPokecomCenterPerson8Text: ; unreferenced
text "The machines here"
line "can't be used yet."
para "Still, it's nice"
line "coming to a trendy"
para "place before other"
line "people."
done
GoldenrodPokecomCenterPerson9Text: ; unreferenced
text "My friend was in"
line "the NEWS a while"
para "back. I was really"
line "surprised!"
done
GoldenrodPokecomCenterPerson10Text: ; unreferenced
text "I get anxious if I"
line "don't check out"
cont "the latest NEWS!"
done
GoldenrodPokecomCenterPerson11Text: ; unreferenced
text "If I get in the"
line "NEWS and become"
para "famous, I bet I'll"
line "be adored."
para "I wonder how I"
line "could get in the"
cont "NEWS?"
done
GoldenrodPokecenter1FGameboyKidText:
text "The COLOSSEUM"
line "upstairs is for"
cont "link battles."
para "Battle records are"
line "posted on the"
para "wall, so I can't"
line "afford to lose."
done
GoldenrodPokecomCenterPerson12Text: ; unreferenced
text "I came over here"
line "when I got word"
para "that GOLDENROD's"
line "#MON CENTER has"
para "new machines that"
line "no one's ever seen"
cont "before."
para "But it looks like"
line "they're still busy"
para "with all their"
line "preparations…"
done
GoldenrodPokecomCenterPerson13Text: ; unreferenced
text "Just seeing all"
line "these new things"
para "here makes me feel"
line "younger!"
done
GoldenrodPokecenter1FLassText:
text "A higher level"
line "#MON doesn't"
cont "always win."
para "After all, it may"
line "have a type dis-"
cont "advantage."
para "I don't think"
line "there is a single"
para "#MON that is"
line "the toughest."
done
GoldenrodPokeCenter1FLinkReceptionistPleaseAcceptGSBallText:
text "<PLAYER>, isn't it?"
para "Congratulations!"
para "As a special deal,"
line "a GS BALL has been"
cont "sent just for you!"
para "Please accept it!"
done
GoldenrodPokeCenter1FLinkReceptionistPleaseDoComeAgainText:
text "Please do come"
line "again!"
done
GoldenrodPokecomCenterSignText: ; unreferenced
text "#COM CENTER"
line "1F INFORMATION"
para "Left:"
line "ADMINISTRATION"
para "Center:"
line "TRADE CORNER"
para "Right:"
line "#MON NEWS"
done
GoldenrodPokecomCenterNewsMachineNotYetText: ; unreferenced
text "It's a #MON"
line "NEWS MACHINE!"
para "It's not in"
line "operation yet…"
done
GoldenrodPokecenter1FPokefanFDoYouHaveEonMailText:
text "Oh my, your pack"
line "looks so heavy!"
para "Oh! Do you happen"
line "to have something"
cont "named EON MAIL?"
para "My daughter is"
line "after one."
para "You can part with"
line "one, can't you?"
done
GoldenrodPokecenter1FAskGiveAwayAnEonMailText:
text "Give away an EON"
line "MAIL?"
done
GoldenrodPokecenter1FPokefanFThisIsForYouText:
text "Oh, that's great!"
line "Thank you, honey!"
para "Here, this is for"
line "you in return!"
done
GoldenrodPokecenter1FPokefanFDaughterWillBeDelightedText:
text "My daughter will"
line "be delighted!"
done
GoldenrodPokecenter1FPokefanFTooBadText:
text "Oh? You don't have"
line "one? Too bad."
done
GoldenrodPokecenter1FPokefanFAnotherTimeThenText:
text "Oh… Well, another"
line "time, then."
done
GoldenrodPokecenter1FPlayerGaveAwayTheEonMailText:
text "<PLAYER> gave away"
line "the EON MAIL."
done
PokecomCenterAdminOfficeMobileScientist1Script:
jumptextfaceplayer PokecomCenterAdminOfficeMobileScientist1Text
@ -55,9 +852,9 @@ PokecomCenterAdminOfficeMobileComputer1:
.MenuData:
db STATICMENU_CURSOR ; flags
db 3 ; items
db "# つうしん クラブ@" ; # COM CLUB
db "モバイルセンター@" ; MOBILE CENTER
db "やめる@" ; QUIT
db "#COM CLUB@" ; # COM CLUB
db "MOBILE CENTER@" ; MOBILE CENTER
db "CANCEL@" ; QUIT
PokecomCenterAdminOfficeMobileComputer2:
opentext
@ -97,9 +894,9 @@ PokecomCenterAdminOfficeMobileComputer2:
.MenuData:
db STATICMENU_CURSOR ; flags
db 3 ; items
db "でんわ<WO>つかうとき@" ; Use phone
db "でんわ<GA>つながらないとき@" ; Don't use phone
db "やめる@" ; QUIT
db "USE PHONE@" ; Use phone
db "DON'T USE PHONE@" ; Don't use phone
db "CANCEL@" ; QUIT
PokecomCenterAdminOfficeMobileComputer3:
jumptext PokecomCenterAdminOfficeMobileComputer3Text
@ -264,10 +1061,16 @@ PokecomCenterAdminOfficeMobile_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 0, 31, GOLDENROD_POKECENTER_1F, 3
warp_event 1, 31, GOLDENROD_POKECENTER_1F, 3
warp_event 0, 31, POKECOM_CENTER_ADMIN_OFFICE_MOBILE, 5
warp_event 1, 31, POKECOM_CENTER_ADMIN_OFFICE_MOBILE, 5
warp_event 6, 15, GOLDENROD_CITY, 15
warp_event 7, 15, GOLDENROD_CITY, 15
warp_event 0, 15, POKECOM_CENTER_ADMIN_OFFICE_MOBILE, 1
warp_event 0, 6, POKECENTER_2F, 1
def_coord_events
coord_event 6, 15, SCENE_GOLDENRODPOKECENTER1F_GS_BALL, GoldenrodPokecenter1F_GSBallSceneLeft
coord_event 7, 15, SCENE_GOLDENRODPOKECENTER1F_GS_BALL, GoldenrodPokecenter1F_GSBallSceneRight
def_bg_events
bg_event 6, 26, BGEVENT_UP, PokecomCenterAdminOfficeMobileComputer1
@ -278,3 +1081,8 @@ PokecomCenterAdminOfficeMobile_MapEvents:
object_event 4, 28, SPRITE_SCIENTIST, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 1, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, PokecomCenterAdminOfficeMobileScientist1Script, -1
object_event 7, 27, SPRITE_SCIENTIST, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, PokecomCenterAdminOfficeMobileScientist2Script, -1
object_event 7, 29, SPRITE_SCIENTIST, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, PokecomCenterAdminOfficeMobileScientist3Script, -1
object_event 7, 7, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, GoldenrodPokecenter1FNurseScript, -1
object_event 16, 8, SPRITE_LINK_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, ObjectEvent, -1
object_event 9, 11, SPRITE_GAMEBOY_KID, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, GoldenrodPokecenter1FGameboyKidScript, -1
object_event 3, 12, SPRITE_LASS, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, GoldenrodPokecenter1FLassScript, -1
object_event 12, 11, SPRITE_POKEFAN_F, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, GoldenrodPokecenter1FPokefanF, -1

View file

@ -1 +1 @@
iiiii$82822222221 $$$$g$82;C62221 ;8222?"266[==_28a2?"2c==<6[=_8a2222222266822aa8[====<21 7 6822aa;8226668?28822669268?2[===_ 7 7 2622268?282222aa262948?2 7 Z4268?2817 268?282a6"268228a26"1 7  7 Z?2866$$->8;4226$$$h;8222264822822226226
i82822222221 $$$$g82;C62221 ;8222?"266[==_28a2?"2c==<6[=_8a2222222266822aa8[====<21 7 6822aa;8226668?28822669268?2[===_ 7 7 2622268?282222aa262948?2 7 Z4268?2817 268?282a6"268228a26"1 7  7 Z?2866$$->8;4226$$$h;8222264822822226226

View file

@ -220,7 +220,7 @@ QuietCave_MapEvents:
def_object_events
object_event 45, 28, SPRITE_ROCKER, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 1, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, QuietCaveBoy1, -1
object_event 45, 19, SPRITE_BUG_CATCHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 3, TrainerBugCatcherSioned, -1
object_event 33, 26, SPRITE_POKEFAN_F, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 5, TrainerBeautyJulie, -1
object_event 33, 26, SPRITE_POKEFAN_F, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerBeautyJulie, -1
object_event 31, 6, SPRITE_FISHER, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerFirebreatherDick, -1
object_event 11, 27, SPRITE_BUG_CATCHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 4, TrainerBugCatcherElwyn, -1
object_event 11, 6, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 6, TrainerSchoolboyPero, -1

Binary file not shown.

View file

@ -5,14 +5,34 @@ Route48_MapScripts:
def_callbacks
Route48Sign1:
jumptext Route48Sign1Text
Route48Sign1Text:
text "ROUTE 48"
line "NORTH: JOHTO"
cont "SAFARI ZONE"
done
Route48Sign2:
jumptext Route48Sign2Text
Route48Sign2Text:
text "JOHTO SAFARI"
line "ZONE"
para "#MON-u-Catch!"
done
Route48_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 3, 22, DEBUG_ROOM, 1
warp_event 10, 3, DEBUG_ROOM, 1 ; Will be the Johto Safari Zone.
def_coord_events
def_bg_events
bg_event 21, 25, BGEVENT_READ, Route48Sign1
bg_event 13, 5, BGEVENT_READ, Route48Sign2
def_object_events

View file

@ -0,0 +1,42 @@
object_const_def
const ROUTE49OLDCITYGATE_OFFICER
Route49OldCityGate_MapScripts:
def_scene_scripts
def_callbacks
Route49OldCityGateOfficerScript:
jumptextfaceplayer Route49OldCityOfficerText
Route49OldCityOfficerText:
text "You're from JOHTO?"
para "Haha, are you home"
line "sick? We like to"
cont "call this place a"
cont "'JOHTO TOWN'."
para "Huh? What's with"
line "that glare?"
para "It just looks like"
line "VIOLET CITY, that's"
cont "all!"
done
Route49OldCityGate_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 4, 7, ROUTE_49_2, 3
warp_event 5, 7, ROUTE_49_2, 4
warp_event 4, 0, DEBUG_ROOM, 1 ; OLD_CITY
warp_event 5, 0, DEBUG_ROOM, 1 ; OLD_CITY
def_coord_events
def_bg_events
def_object_events
object_event 0, 3, SPRITE_OFFICER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, Route49OldCityGateOfficerScript, -1

View file

@ -58,6 +58,9 @@ Route49_2_MapEvents:
def_warp_events
warp_event 8, 27, QUIET_CAVE, 3
warp_event 9, 27, QUIET_CAVE, 4
warp_event 9, 5, ROUTE_49_OLD_CITY_GATE, 2
warp_event 8, 5, ROUTE_49_OLD_CITY_GATE, 1
def_coord_events

View file

@ -1 +1 @@
;() 
; (()  

View file

@ -167,6 +167,8 @@ RuinsOfAlphResearchCenterPrinter:
closetext
end
; There isn't even a tileset piece for this, it was removed very early.
; Could reuse somewhere.
RuinsOfAlphResearchCenterPhoto: ; unreferenced
jumptext RuinsOfAlphResearchCenterProfSilktreePhotoText
@ -306,19 +308,22 @@ RuinsOfAlphResearchCenterScientist2Text_UnownAppeared:
cont "kinds of them…"
done
RuinsOfAlphResearchCenterUnusedText1: ; unreferenced
RuinsOfAlphResearchCenterPokeCom:
faceplayer
opentext
writetext RuinsOfAlphResearchCenterPokeComText
waitbutton
closetext
end
RuinsOfAlphResearchCenterPokeComText: ; previously unreferenced, now reused
text "We think something"
line "caused the cryptic"
para "patterns to appear"
line "in the RUINS."
para "We've focused our"
line "studies on that."
done
RuinsOfAlphResearchCenterUnusedText2: ; unreferenced
text "According to my"
para "According to my"
line "research…"
para "Those mysterious"
@ -387,21 +392,324 @@ RuinsOfAlphResearchCenterAcademicBooksText:
cont "Ancients…"
done
; This scientist uses the funny Kantonian Fossil Scientist's script.
RoAFossilScientist:
faceplayer
opentext
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove the next two lines to immediately receive the fossil
iftrue .GaveScientistFossil
checkevent EVENT_GAVE_SCIENTIST_OLD_AMBER
iftrue .GiveDecilla
checkevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
iftrue .GiveKabuto
checkevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
iftrue .GiveOmanyte
checkevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
iftrue .GiveXylodon
checkevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
iftrue .GiveFeradactyl
writetext RoAFossilScientistIntroText
waitbutton
loadmenu .MoveMenuHeader
verticalmenu
closewindow
ifequal REVIVE_OLD_AMBER, .OldAmber
ifequal REVIVE_DOME_FOSSIL, .DomeFossil
ifequal REVIVE_HELIX_FOSSIL, .HelixFossil
ifequal REVIVE_CLUB_FOSSIL, .ClubFossil
ifequal REVIVE_WING_FOSSIL, .WingFossil
sjump .No
.OldAmber
checkitem OLD_AMBER
iffalse .No
getmonname STRING_BUFFER_3, DECILLA
writetext RoAFossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_OLD_AMBER
takeitem OLD_AMBER
writetext RoAFossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.DomeFossil:
checkitem DOME_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, KABUTO
writetext RoAFossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
takeitem DOME_FOSSIL
opentext
writetext RoAFossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.HelixFossil:
checkitem HELIX_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, OMANYTE
writetext RoAFossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
takeitem HELIX_FOSSIL
writetext RoAFossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.ClubFossil:
checkitem HELIX_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, XYLODON
writetext RoAFossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
takeitem HELIX_FOSSIL
writetext RoAFossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.WingFossil:
checkitem HELIX_FOSSIL
iffalse .No
getmonname STRING_BUFFER_3, FERADACTYL
writetext RoAFossilScientistMonText
promptbutton
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
setevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
takeitem HELIX_FOSSIL
writetext RoAFossilScientistGiveText
waitbutton
sjump .GaveScientistFossil
.No
writetext RoAFossilScientistNoText
waitbutton
closetext
end
.GaveScientistFossil:
writetext RoAFossilScientistTimeText
waitbutton
closetext
; older versions will use FadeBlackQuickly below instead
; special FadeOutToBlack ; uncomment the next five lines to immediately receive the fossil
; special ReloadSpritesNoPalettes
; playsound SFX_WARP_TO
; waitsfx
; pause 35
end ; replace this with "sjump FossilScientist" to immediately receive the fossil
.GiveDecilla:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_OLD_AMBER
writetext RoAFossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, DECILLA
writetext RoAFossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext RoAFossilScientistMonText
givepoke DECILLA, 30
closetext
end
.GiveKabuto:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
writetext RoAFossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, KABUTO
writetext RoAFossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext RoAFossilScientistMonText
givepoke KABUTO, 30
closetext
end
.GiveOmanyte:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
writetext RoAFossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, OMANYTE
writetext RoAFossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext RoAFossilScientistMonText
givepoke OMANYTE, 30
closetext
end
.GiveXylodon:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_CLUB_FOSSIL
writetext RoAFossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, XYLODON
writetext RoAFossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext RoAFossilScientistMonText
givepoke XYLODON, 30
closetext
end
.GiveFeradactyl:
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .NoRoom
clearevent EVENT_GAVE_SCIENTIST_WING_FOSSIL
writetext RoAFossilScientistDoneText
promptbutton
getmonname STRING_BUFFER_3, FERADACTYL
writetext RoAFossilScientistReceiveText
playsound SFX_CAUGHT_MON
waitsfx
waitbutton
writetext RoAFossilScientistMonText
givepoke FERADACTYL, 30
closetext
end
.NoRoom:
writetext RoAFossilScientistPartyFullText
waitbutton
closetext
end
.MoveMenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 15, TEXTBOX_Y + 1
dw .MenuData
db 1 ; default option
.MenuData:
db STATICMENU_CURSOR ; flags
db 6 ; items
db "OLD AMBER@"
db "DOME FOSSIL@"
db "HELIX FOSSIL@"
db "CLUB FOSSIL@"
db "WING FOSSIL@"
db "CANCEL@"
RoAFossilScientistIntroText:
text "Hiya!"
para "I am important"
line "doctor!"
para "I study here rare"
line "#MON fossils!"
para "You! Have you a"
line "fossil for me?"
done
RoAFossilScientistNoText:
text "No! Is too bad!"
para "You come again!"
done
RoAFossilScientistPartyFullText:
text "No! Is too bad!"
para "Your party is"
line "already full!"
done
RoAFossilScientistTimeText:
text "I take a little"
line "time!"
para "You go for walk a"
line "little while!"
done
RoAFossilScientistDoneText:
text "Where were you?"
para "Your fossil is"
line "back to life!"
done
RoAFossilScientistMonText:
text "Oh! That is"
line "a fossil!"
para "It is fossil of"
line "@"
text_ram wStringBuffer3
text ", a"
para "#MON that is"
line "already extinct!"
para "My Resurrection"
line "Machine will make"
cont "that #MON live"
cont "again!"
done
RoAFossilScientistGiveText:
text "So! You hurry and"
line "give me that!"
para "<PLAYER> handed"
line "over the fossil."
done
RoAFossilScientistReceiveText:
text "<PLAYER> received"
line "@"
text_ram wStringBuffer3
text "!"
; Since he's now in the Ruins of Alph centre...
; Let's have him complain.
; This text is transliterated Chinese, character-for-character.
; 他们不明白宝可梦化石比Unown有趣 (maybe a 更 thrown in).
; The way the broken English works seems similar enough.
para "They no understand"
line "#MON fossils!"
para "Compare UNOWN,"
line "they more have"
cont "interest!"
done
RuinsOfAlphResearchCenter_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 2, 7, RUINS_OF_ALPH_OUTSIDE, 6
warp_event 3, 7, RUINS_OF_ALPH_OUTSIDE, 6
warp_event 6, 7, RUINS_OF_ALPH_OUTSIDE, 6
warp_event 7, 7, RUINS_OF_ALPH_OUTSIDE, 6
def_coord_events
def_bg_events
bg_event 6, 5, BGEVENT_READ, RuinsOfAlphResearchCenterBookshelf
bg_event 3, 4, BGEVENT_READ, RuinsOfAlphResearchCenterComputer
bg_event 7, 1, BGEVENT_READ, RuinsOfAlphResearchCenterPrinter
bg_event 10, 5, BGEVENT_READ, RuinsOfAlphResearchCenterBookshelf
bg_event 7, 4, BGEVENT_READ, RuinsOfAlphResearchCenterComputer
bg_event 11, 1, BGEVENT_READ, RuinsOfAlphResearchCenterPrinter
def_object_events
object_event 4, 5, SPRITE_SCIENTIST, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, RuinsOfAlphResearchCenterScientist1Script, -1
object_event 5, 2, SPRITE_SCIENTIST, SPRITEMOVEDATA_WANDER, 2, 1, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, RuinsOfAlphResearchCenterScientist2Script, -1
object_event 2, 5, SPRITE_SCIENTIST, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, RuinsOfAlphResearchCenterScientist3Script, EVENT_RUINS_OF_ALPH_RESEARCH_CENTER_SCIENTIST
object_event 6, 5, SPRITE_SCIENTIST, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, RuinsOfAlphResearchCenterScientist1Script, -1
object_event 7, 2, SPRITE_SCIENTIST, SPRITEMOVEDATA_WANDER, 2, 1, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, RuinsOfAlphResearchCenterScientist2Script, -1
object_event 4, 5, SPRITE_SCIENTIST, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, RuinsOfAlphResearchCenterScientist3Script, EVENT_RUINS_OF_ALPH_RESEARCH_CENTER_SCIENTIST
object_event 0, 5, SPRITE_SCIENTIST, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, RoAFossilScientist, -1
object_event 3, 3, SPRITE_SCIENTIST, SPRITEMOVEDATA_WANDER, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, RuinsOfAlphResearchCenterPokeCom, -1