pokecrystal/maps/OlivineGym.asm

221 lines
3.9 KiB
NASM

const_value set 2
const OLIVINEGYM_JASMINE
const OLIVINEGYM_GYM_GUY
OlivineGym_MapScriptHeader:
.SceneScripts:
db 0
.MapCallbacks:
db 0
JasmineScript_0x9c12f:
faceplayer
opentext
checkevent EVENT_BEAT_JASMINE
iftrue .FightDone
writetext Jasmine_SteelTypeIntro
waitbutton
closetext
winlosstext Jasmine_BetterTrainer, 0
loadtrainer JASMINE, 1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_JASMINE
opentext
writetext Text_ReceivedMineralBadge
playsound SFX_GET_BADGE
waitsfx
setflag ENGINE_MINERALBADGE
checkcode VAR_BADGES
scall OlivineGymActivateRockets
.FightDone:
checkevent EVENT_GOT_TM23_IRON_TAIL
iftrue .GotIronTail
writetext Jasmine_BadgeSpeech
buttonsound
verbosegiveitem TM_IRON_TAIL
iffalse .NoRoomForIronTail
setevent EVENT_GOT_TM23_IRON_TAIL
writetext Jasmine_IronTailSpeech
waitbutton
closetext
end
.GotIronTail:
writetext Jasmine_GoodLuck
waitbutton
.NoRoomForIronTail:
closetext
end
OlivineGymActivateRockets:
if_equal 7, .RadioTowerRockets
if_equal 6, .GoldenrodRockets
end
.GoldenrodRockets:
jumpstd goldenrodrockets
.RadioTowerRockets:
jumpstd radiotowerrockets
OlivineGymGuyScript:
faceplayer
checkevent EVENT_BEAT_JASMINE
iftrue .OlivineGymGuyWinScript
checkevent EVENT_JASMINE_RETURNED_TO_GYM
iffalse .OlivineGymGuyPreScript
opentext
writetext OlivineGymGuyText
waitbutton
closetext
end
.OlivineGymGuyWinScript:
opentext
writetext OlivineGymGuyWinText
waitbutton
closetext
end
.OlivineGymGuyPreScript:
opentext
writetext OlivineGymGuyPreText
waitbutton
closetext
end
OlivineGymStatue:
checkflag ENGINE_MINERALBADGE
iftrue .Beaten
jumpstd gymstatue1
.Beaten:
trainertotext JASMINE, 1, $1
jumpstd gymstatue2
Jasmine_SteelTypeIntro:
text "…Thank you for"
line "your help at the"
cont "LIGHTHOUSE…"
para "But this is dif-"
line "ferent. Please"
para "allow me to intro-"
line "duce myself."
para "I am JASMINE, a"
line "GYM LEADER. I use"
cont "the steel-type."
para "…Do you know about"
line "the steel-type?"
para "It's a type that"
line "was only recently"
cont "discovered."
para "…Um… May I begin?"
done
Jasmine_BetterTrainer:
text "…You are a better"
line "trainer than me,"
para "in both skill and"
line "kindness."
para "In accordance with"
line "LEAGUE rules, I"
para "confer upon you"
line "this BADGE."
done
Text_ReceivedMineralBadge:
text "<PLAYER> received"
line "MINERALBADGE."
done
Jasmine_BadgeSpeech:
text "MINERALBADGE"
line "raises #MON's"
cont "DEFENSE."
para "…Um… Please take"
line "this too…"
done
Text_ReceivedTM09:
text "<PLAYER> received"
line "TM09."
done
Jasmine_IronTailSpeech:
text "…You could use"
line "that TM to teach"
cont "IRON TAIL."
done
Jasmine_GoodLuck:
text "Um… I don't know"
line "how to say this,"
cont "but good luck…"
done
OlivineGymGuyText:
text "JASMINE uses the"
line "newly discovered"
cont "steel-type."
para "I don't know very"
line "much about it."
done
OlivineGymGuyWinText:
text "That was awesome."
para "The steel-type,"
line "huh?"
para "That was a close"
line "encounter of an"
cont "unknown kind!"
done
OlivineGymGuyPreText:
text "JASMINE, the GYM"
line "LEADER, is at the"
cont "LIGHTHOUSE."
para "She's been tending"
line "to a sick #MON."
para "A strong trainer"
line "has to be compas-"
cont "sionate."
done
OlivineGym_MapEventHeader:
; filler
db 0, 0
.Warps:
db 2
warp_def $f, $4, 2, OLIVINE_CITY
warp_def $f, $5, 2, OLIVINE_CITY
.CoordEvents:
db 0
.BGEvents:
db 2
bg_event 13, 3, BGEVENT_READ, OlivineGymStatue
bg_event 13, 6, BGEVENT_READ, OlivineGymStatue
.ObjectEvents:
db 2
object_event SPRITE_JASMINE, 3, 5, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, JasmineScript_0x9c12f, EVENT_OLIVINE_GYM_JASMINE
object_event SPRITE_GYM_GUY, 13, 7, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, OlivineGymGuyScript, -1