pokecrystal/maps/RuinsOfAlphResearchCenter.asm

412 lines
8.5 KiB
NASM
Raw Normal View History

2018-01-31 16:38:45 +00:00
const_def 2 ; object constants
2015-11-27 05:22:14 +00:00
const RUINSOFALPHRESEARCHCENTER_SCIENTIST1
const RUINSOFALPHRESEARCHCENTER_SCIENTIST2
const RUINSOFALPHRESEARCHCENTER_SCIENTIST3
RuinsOfAlphResearchCenter_MapScripts:
db 2 ; scene scripts
scene_script .DummyScene0 ; SCENE_RUINSOFALPHRESEARCHCENTER_NOTHING
scene_script .GetUnownDex ; SCENE_RUINSOFALPHRESEARCHCENTER_GET_UNOWN_DEX
db 1 ; callbacks
callback MAPCALLBACK_OBJECTS, .ScientistCallback
.DummyScene0:
end
.GetUnownDex:
priorityjump .GetUnownDexScript
end
.ScientistCallback:
checkscene
2018-02-03 02:09:17 +00:00
ifequal SCENE_RUINSOFALPHRESEARCHCENTER_GET_UNOWN_DEX, .ShowScientist
return
.ShowScientist:
moveobject RUINSOFALPHRESEARCHCENTER_SCIENTIST3, 3, 7
2015-11-27 05:22:14 +00:00
appear RUINSOFALPHRESEARCHCENTER_SCIENTIST3
return
.GetUnownDexScript:
2015-11-27 05:22:14 +00:00
applymovement RUINSOFALPHRESEARCHCENTER_SCIENTIST3, MovementData_0x5926f
playsound SFX_BOOT_PC
pause 60
playsound SFX_SWITCH_POKEMON
pause 30
playsound SFX_TALLY
pause 30
playsound SFX_TRANSACTION
pause 30
turnobject RUINSOFALPHRESEARCHCENTER_SCIENTIST3, DOWN
2015-12-09 23:25:44 +00:00
opentext
writetext RuinsOfAlphResearchCenterModifiedDexText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
2015-11-27 05:22:14 +00:00
applymovement RUINSOFALPHRESEARCHCENTER_SCIENTIST3, MovementData_0x59274
2015-12-09 23:25:44 +00:00
opentext
writetext RuinsOfAlphResearchCenterDexUpgradedText
playsound SFX_ITEM
2015-11-25 15:16:29 +00:00
waitsfx
2015-07-10 12:08:03 +00:00
setflag ENGINE_UNOWN_DEX
writetext RuinsOfAlphResearchCenterScientist3Text
2015-11-25 15:16:29 +00:00
waitbutton
closetext
2015-11-27 05:22:14 +00:00
applymovement RUINSOFALPHRESEARCHCENTER_SCIENTIST3, MovementData_0x59276
setscene SCENE_RUINSOFALPHRESEARCHCENTER_NOTHING
special RestartMapMusic
end
2018-03-01 19:20:27 +00:00
RuinsOfAlphResearchCenterScientist3Script:
faceplayer
2015-12-09 23:25:44 +00:00
opentext
readvar VAR_UNOWNCOUNT
ifequal NUM_UNOWN, .PrinterAvailable
writetext RuinsOfAlphResearchCenterScientist3Text
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2018-02-02 16:31:43 +00:00
.PrinterAvailable:
writetext RuinsOfAlphResearchCenterScientist3_PrinterAvailable
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2018-03-01 19:20:27 +00:00
RuinsOfAlphResearchCenterScientist1Script:
faceplayer
2015-12-09 23:25:44 +00:00
opentext
readvar VAR_UNOWNCOUNT
ifequal NUM_UNOWN, .GotAllUnown
2015-07-10 12:08:03 +00:00
checkflag ENGINE_UNOWN_DEX
2018-02-02 16:31:43 +00:00
iftrue .GotUnownDex
2013-09-24 07:48:58 +00:00
checkevent EVENT_MADE_UNOWN_APPEAR_IN_RUINS
2018-02-02 16:31:43 +00:00
iftrue .UnownAppeared
writetext RuinsOfAlphResearchCenterScientist1Text
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2018-02-02 16:31:43 +00:00
.UnownAppeared:
writetext RuinsOfAlphResearchCenterScientist1Text_UnownAppeared
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2018-02-02 16:31:43 +00:00
.GotUnownDex:
writetext RuinsOfAlphResearchCenterScientist1Text_GotUnownDex
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2018-02-02 16:31:43 +00:00
.GotAllUnown:
writetext RuinsOfAlphResearchCenterScientist1Text_GotAllUnown
2015-11-25 15:16:29 +00:00
waitbutton
closetext
clearevent EVENT_RUINS_OF_ALPH_OUTSIDE_TOURIST_YOUNGSTERS
end
2018-03-01 19:20:27 +00:00
RuinsOfAlphResearchCenterScientist2Script:
faceplayer
2015-12-09 23:25:44 +00:00
opentext
readvar VAR_UNOWNCOUNT
ifequal NUM_UNOWN, .GotAllUnown
2013-09-24 07:48:58 +00:00
checkevent EVENT_MADE_UNOWN_APPEAR_IN_RUINS
2018-02-02 16:31:43 +00:00
iftrue .UnownAppeared
writetext RuinsOfAlphResearchCenterScientist2Text
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2018-02-02 16:31:43 +00:00
.UnownAppeared:
writetext RuinsOfAlphResearchCenterScientist2Text_UnownAppeared
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2018-02-02 16:31:43 +00:00
.GotAllUnown:
writetext RuinsOfAlphResearchCenterScientist2Text_GotAllUnown
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
RuinsOfAlphResearchCenterComputer:
2015-12-09 23:25:44 +00:00
opentext
checkevent EVENT_RUINS_OF_ALPH_RESEARCH_CENTER_SCIENTIST
2018-02-02 16:31:43 +00:00
iftrue .SkipChecking
readvar VAR_UNOWNCOUNT
ifequal NUM_UNOWN, .GotAllUnown
2018-02-02 16:31:43 +00:00
.SkipChecking:
writetext RuinsOfAlphResearchCenterComputerText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2018-02-02 16:31:43 +00:00
.GotAllUnown:
writetext RuinsOfAlphResearchCenterComputerText_GotAllUnown
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
RuinsOfAlphResearchCenterPrinter:
2015-12-09 23:25:44 +00:00
opentext
checkevent EVENT_RUINS_OF_ALPH_RESEARCH_CENTER_SCIENTIST
2018-02-02 16:31:43 +00:00
iftrue .SkipChecking
readvar VAR_UNOWNCOUNT
ifequal NUM_UNOWN, .PrinterAvailable
2018-02-02 16:31:43 +00:00
.SkipChecking:
writetext RuinsOfAlphResearchCenterPrinterText_DoesntWork
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2018-02-02 16:31:43 +00:00
.PrinterAvailable:
writetext RuinsOfAlphResearchCenterUnownPrinterText
2015-11-25 15:16:29 +00:00
waitbutton
special UnownPrinter
2015-11-25 15:16:29 +00:00
closetext
end
RuinsOfAlphResearchCenterPhoto:
; unreferenced
jumptext RuinsOfAlphResearchCenterProfSilktreePhotoText
RuinsOfAlphResearchCenterBookshelf:
jumptext RuinsOfAlphResearchCenterAcademicBooksText
2015-07-10 08:45:35 +00:00
MovementData_0x5926f:
2016-05-14 17:46:14 +00:00
step UP
step UP
step LEFT
turn_head UP
step_end
2015-07-10 08:45:35 +00:00
MovementData_0x59274:
2016-05-14 17:46:14 +00:00
step DOWN
step_end
2015-07-10 08:45:35 +00:00
MovementData_0x59276:
2016-05-14 17:46:14 +00:00
step UP
step_end
RuinsOfAlphResearchCenterModifiedDexText:
text "Done!"
para "I modified your"
line "#DEX."
para "I added an"
line "optional #DEX"
para "to store UNOWN"
line "data."
para "It records them in"
line "the sequence that"
cont "they were caught."
done
RuinsOfAlphResearchCenterDexUpgradedText:
text "<PLAYER>'s #DEX"
line "was upgraded."
done
RuinsOfAlphResearchCenterScientist3Text:
text "The UNOWN you"
line "catch will all be"
cont "recorded."
para "Check to see how"
line "many kinds exist."
done
RuinsOfAlphResearchCenterScientist3_PrinterAvailable:
text "You caught all the"
line "UNOWN variations?"
para "That's a great"
line "achievement!"
para "I've set up the"
line "printer here for"
cont "handling UNOWN."
para "Feel free to use"
line "it anytime."
done
RuinsOfAlphResearchCenterScientist1Text:
text "The RUINS are"
line "about 1500 years"
cont "old."
para "But it's not known"
line "why they were"
cont "built--or by whom."
done
RuinsOfAlphResearchCenterScientist1Text_GotUnownDex:
text "I wonder how many"
line "kinds of #MON"
cont "are in the RUINS?"
done
RuinsOfAlphResearchCenterScientist1Text_UnownAppeared:
text "#MON appeared"
line "in the RUINS?"
para "That's incredible"
line "news!"
para "We'll need to"
line "investigate this."
done
RuinsOfAlphResearchCenterScientist1Text_GotAllUnown:
text "Our investigation,"
line "with your help, is"
para "giving us insight"
line "into the RUINS."
para "The RUINS appear"
line "to have been built"
para "as a habitat for"
line "#MON."
done
RuinsOfAlphResearchCenterScientist2Text:
text "There are odd pat-"
line "terns drawn on the"
para "walls of the"
line "RUINS."
para "They must be the"
line "keys for unravel-"
cont "ing the mystery"
cont "of the RUINS."
done
RuinsOfAlphResearchCenterScientist2Text_UnownAppeared:
text "The strange #-"
line "MON you saw in the"
cont "RUINS?"
para "They appear to be"
line "very much like the"
para "drawings on the"
line "walls there."
para "Hmm…"
para "That must mean"
line "there are many"
cont "kinds of them…"
done
RuinsOfAlphResearchCenterUnusedText1:
2018-02-28 00:47:30 +00:00
; unused
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:
2018-02-28 00:47:30 +00:00
; unused
text "According to my"
line "research…"
para "Those mysterious"
line "patterns appeared"
para "when the #COM"
line "CENTER was built."
para "It must mean that"
line "radio waves have"
para "some sort of a"
line "link…"
done
RuinsOfAlphResearchCenterScientist2Text_GotAllUnown:
text "Why did those"
line "ancient patterns"
para "appear on the wall"
line "now?"
para "The mystery"
line "deepens…"
done
RuinsOfAlphResearchCenterComputerText:
text "RUINS OF ALPH"
para "Exploration"
line "Year 10"
done
RuinsOfAlphResearchCenterComputerText_GotAllUnown:
text "Mystery #MON"
line "Name: UNOWN"
para "A total of 26"
line "kinds found."
done
RuinsOfAlphResearchCenterPrinterText_DoesntWork:
text "This doesn't seem"
line "to work yet."
done
RuinsOfAlphResearchCenterUnownPrinterText:
text "UNOWN may be"
line "printed out."
done
RuinsOfAlphResearchCenterProfSilktreePhotoText:
; unused
text "It's a photo of"
line "the RESEARCH"
para "CENTER'S founder,"
line "PROF.SILKTREE."
done
RuinsOfAlphResearchCenterAcademicBooksText:
text "There are many"
line "academic books."
para "Ancient Ruins…"
line "Mysteries of the"
cont "Ancients…"
done
RuinsOfAlphResearchCenter_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
2018-02-02 03:22:07 +00:00
warp_event 2, 7, RUINS_OF_ALPH_OUTSIDE, 6
warp_event 3, 7, RUINS_OF_ALPH_OUTSIDE, 6
db 0 ; coord events
db 3 ; bg events
bg_event 6, 5, BGEVENT_READ, RuinsOfAlphResearchCenterBookshelf
bg_event 3, 4, BGEVENT_READ, RuinsOfAlphResearchCenterComputer
bg_event 7, 1, BGEVENT_READ, RuinsOfAlphResearchCenterPrinter
db 3 ; object events
2018-03-01 19:20:27 +00:00
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