pokecrystal/maps/OaksLab.asm

296 lines
5.5 KiB
NASM

const_value set 2
const OAKSLAB_OAK
const OAKSLAB_SCIENTIST1
const OAKSLAB_SCIENTIST2
const OAKSLAB_SCIENTIST3
OaksLab_MapScriptHeader:
.SceneScripts:
db 0
.MapCallbacks:
db 0
.DummyScene:
end
Oak:
faceplayer
opentext
checkevent EVENT_OPENED_MT_SILVER
iftrue .CheckPokedex
checkevent EVENT_TALKED_TO_OAK_IN_KANTO
iftrue .CheckBadges
writetext OakWelcomeKantoText
buttonsound
setevent EVENT_TALKED_TO_OAK_IN_KANTO
.CheckBadges:
checkcode VAR_BADGES
if_equal 16, .OpenMtSilver
if_equal 8, .Complain
jump .AhGood
.CheckPokedex:
writetext OakLabDexCheckText
waitbutton
special ProfOaksPCBoot
writetext OakLabGoodbyeText
waitbutton
closetext
end
.OpenMtSilver:
writetext OakOpenMtSilverText
buttonsound
setevent EVENT_OPENED_MT_SILVER
jump .CheckPokedex
.Complain:
writetext OakNoKantoBadgesText
buttonsound
jump .CheckPokedex
.AhGood:
writetext OakYesKantoBadgesText
buttonsound
jump .CheckPokedex
OaksAssistant1Script:
jumptextfaceplayer OaksAssistant1Text
OaksAssistant2Script:
jumptextfaceplayer OaksAssistant2Text
OaksAssistant3Script:
jumptextfaceplayer OaksAssistant3Text
OaksLabBookshelf:
jumpstd difficultbookshelf
OaksLabPoster1:
jumptext OaksLabPoster1Text
OaksLabPoster2:
jumptext OaksLabPoster2Text
OaksLabTrashcan:
jumptext OaksLabTrashcanText
OaksLabPC:
jumptext OaksLabPCText
OakWelcomeKantoText:
text "OAK: Ah, <PLAY_G>!"
line "It's good of you"
para "to come all this"
line "way to KANTO."
para "What do you think"
line "of the trainers"
para "out here?"
line "Pretty tough, huh?"
done
OakLabDexCheckText:
text "How is your #-"
line "DEX coming?"
para "Let's see…"
done
OakLabGoodbyeText:
text "If you're in the"
line "area, I hope you"
cont "come visit again."
done
OakOpenMtSilverText:
text "OAK: Wow! That's"
line "excellent!"
para "You collected the"
line "BADGES of GYMS in"
cont "KANTO. Well done!"
para "I was right in my"
line "assessment of you."
para "Tell you what,"
line "<PLAY_G>. I'll make"
para "arrangements so"
line "that you can go to"
cont "MT.SILVER."
para "MT.SILVER is a big"
line "mountain that is"
para "home to many wild"
line "#MON."
para "It's too dangerous"
line "for your average"
para "trainer, so it's"
line "off limits. But"
para "we can make an"
line "exception in your"
cont "case, <PLAY_G>."
para "Go up to INDIGO"
line "PLATEAU. You can"
para "reach MT.SILVER"
line "from there."
done
OakNoKantoBadgesText:
text "OAK: Hmm? You're"
line "not collecting"
cont "KANTO GYM BADGES?"
para "The GYM LEADERS in"
line "KANTO are as tough"
para "as any you battled"
line "in JOHTO."
para "I recommend that"
line "you challenge"
cont "them."
done
OakYesKantoBadgesText:
text "OAK: Ah, you're"
line "collecting KANTO"
cont "GYM BADGES."
para "I imagine that"
line "it's hard, but the"
para "experience is sure"
line "to help you."
para "Come see me when"
line "you get them all."
para "I'll have a gift"
line "for you."
para "Keep trying hard,"
line "<PLAY_G>!"
done
OaksAssistant1Text:
text "The PROF's #MON"
line "TALK radio program"
para "isn't aired here"
line "in KANTO."
para "It's a shame--I'd"
line "like to hear it."
done
OaksAssistant2Text:
text "Thanks to your"
line "work on the #-"
cont "DEX, the PROF's"
para "research is coming"
line "along great."
done
OaksAssistant3Text:
text "Don't tell anyone,"
line "but PROF.OAK'S"
para "#MON TALK isn't"
line "a live broadcast."
done
OaksLabPoster1Text:
text "Press START to"
line "open the MENU."
done
OaksLabPoster2Text:
text "The SAVE option is"
line "on the MENU."
para "Use it in a timely"
line "manner."
done
OaksLabTrashcanText
text "There's nothing in"
line "here…"
done
OaksLabPCText:
text "There's an e-mail"
line "message on the PC."
para "…"
para "PROF.OAK, how is"
line "your research"
cont "coming along?"
para "I'm still plugging"
line "away."
para "I heard rumors"
line "that <PLAY_G> is"
para "getting quite a"
line "reputation."
para "I'm delighted to"
line "hear that."
para "ELM in NEW BARK"
line "TOWN 8-)"
done
OaksLab_MapEventHeader:
; filler
db 0, 0
.Warps:
db 2
warp_def $b, $4, 3, PALLET_TOWN
warp_def $b, $5, 3, PALLET_TOWN
.CoordEvents:
db 0
.BGEvents:
db 16
bg_event 1, 6, BGEVENT_READ, OaksLabBookshelf
bg_event 1, 7, BGEVENT_READ, OaksLabBookshelf
bg_event 1, 8, BGEVENT_READ, OaksLabBookshelf
bg_event 1, 9, BGEVENT_READ, OaksLabBookshelf
bg_event 7, 0, BGEVENT_READ, OaksLabBookshelf
bg_event 7, 1, BGEVENT_READ, OaksLabBookshelf
bg_event 7, 2, BGEVENT_READ, OaksLabBookshelf
bg_event 7, 3, BGEVENT_READ, OaksLabBookshelf
bg_event 7, 6, BGEVENT_READ, OaksLabBookshelf
bg_event 7, 7, BGEVENT_READ, OaksLabBookshelf
bg_event 7, 8, BGEVENT_READ, OaksLabBookshelf
bg_event 7, 9, BGEVENT_READ, OaksLabBookshelf
bg_event 0, 4, BGEVENT_READ, OaksLabPoster1
bg_event 0, 5, BGEVENT_READ, OaksLabPoster2
bg_event 3, 9, BGEVENT_READ, OaksLabTrashcan
bg_event 1, 0, BGEVENT_READ, OaksLabPC
.ObjectEvents:
db 4
object_event SPRITE_OAK, 2, 4, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Oak, -1
object_event SPRITE_SCIENTIST, 8, 1, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 0, 1, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, OaksAssistant1Script, -1
object_event SPRITE_SCIENTIST, 9, 8, SPRITEMOVEDATA_WALK_UP_DOWN, 1, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, OaksAssistant2Script, -1
object_event SPRITE_SCIENTIST, 4, 1, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, OaksAssistant3Script, -1