pokecrystal-board/maps/GoldenrodGym.asm

408 lines
7.7 KiB
NASM

const_value set 2
const GOLDENRODGYM_WHITNEY
const GOLDENRODGYM_LASS1
const GOLDENRODGYM_LASS2
const GOLDENRODGYM_BUENA1
const GOLDENRODGYM_BUENA2
const GOLDENRODGYM_GYM_GUY
GoldenrodGym_MapScripts:
.SceneScripts:
db 2
scene_script .DummyScene0
scene_script .DummyScene1
.MapCallbacks:
db 0
.DummyScene0:
end
.DummyScene1:
end
WhitneyScript_0x5400c:
faceplayer
checkevent EVENT_BEAT_WHITNEY
iftrue .FightDone
opentext
writetext UnknownText_0x54122
waitbutton
closetext
winlosstext UnknownText_0x541a5, 0
loadtrainer WHITNEY, WHITNEY1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_WHITNEY
setevent EVENT_MADE_WHITNEY_CRY
setscene 1
setevent EVENT_BEAT_BEAUTY_VICTORIA
setevent EVENT_BEAT_BEAUTY_SAMANTHA
setevent EVENT_BEAT_LASS_CARRIE
setevent EVENT_BEAT_LASS_BRIDGET
.FightDone:
opentext
checkevent EVENT_MADE_WHITNEY_CRY
iffalse .StoppedCrying
writetext UnknownText_0x541f4
waitbutton
closetext
end
.StoppedCrying:
checkevent EVENT_GOT_TM45_ATTRACT
iftrue UnknownScript_0x54077
checkflag ENGINE_PLAINBADGE
iftrue UnknownScript_0x54064
writetext UnknownText_0x54222
buttonsound
waitsfx
writetext UnknownText_0x54273
playsound SFX_GET_BADGE
waitsfx
setflag ENGINE_PLAINBADGE
checkcode VAR_BADGES
scall GoldenrodGymActivateRockets
UnknownScript_0x54064:
writetext UnknownText_0x5428b
buttonsound
verbosegiveitem TM_ATTRACT
iffalse UnknownScript_0x5407b
setevent EVENT_GOT_TM45_ATTRACT
writetext UnknownText_0x54302
waitbutton
closetext
end
UnknownScript_0x54077:
writetext UnknownText_0x54360
waitbutton
UnknownScript_0x5407b:
closetext
end
GoldenrodGymActivateRockets:
if_equal 7, .RadioTowerRockets
if_equal 6, .GoldenrodRockets
end
.GoldenrodRockets:
jumpstd goldenrodrockets
.RadioTowerRockets:
jumpstd radiotowerrockets
TrainerLassCarrie:
trainer LASS, CARRIE, EVENT_BEAT_LASS_CARRIE, LassCarrieSeenText, LassCarrieBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext LassCarrieAfterBattleText
waitbutton
closetext
end
WhitneyCriesScript:
showemote EMOTE_SHOCK, GOLDENRODGYM_LASS2, 15
applymovement GOLDENRODGYM_LASS2, BridgetWalksUpMovement
spriteface PLAYER, DOWN
opentext
writetext BridgetWhitneyCriesText
waitbutton
closetext
applymovement GOLDENRODGYM_LASS2, BridgetWalksAwayMovement
setscene 0
clearevent EVENT_MADE_WHITNEY_CRY
end
TrainerLassBridget:
trainer LASS, BRIDGET, EVENT_BEAT_LASS_BRIDGET, LassBridgetSeenText, LassBridgetBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext LassBridgetAfterBattleText
waitbutton
closetext
end
TrainerBeautyVictoria:
trainer BEAUTY, VICTORIA, EVENT_BEAT_BEAUTY_VICTORIA, BeautyVictoriaSeenText, BeautyVictoriaBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext BeautyVictoriaAfterBattleText
waitbutton
closetext
end
TrainerBeautySamantha:
trainer BEAUTY, SAMANTHA, EVENT_BEAT_BEAUTY_SAMANTHA, BeautySamanthaSeenText, BeautySamanthaBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext BeautySamanthaAfterBattleText
waitbutton
closetext
end
GoldenrodGymGuyScript:
faceplayer
checkevent EVENT_BEAT_WHITNEY
iftrue .GoldenrodGymGuyWinScript
opentext
writetext GoldenrodGymGuyText
waitbutton
closetext
end
.GoldenrodGymGuyWinScript:
opentext
writetext GoldenrodGymGuyWinText
waitbutton
closetext
end
GoldenrodGymStatue:
checkflag ENGINE_PLAINBADGE
iftrue .Beaten
jumpstd gymstatue1
.Beaten:
trainertotext WHITNEY, WHITNEY1, MEM_BUFFER_1
jumpstd gymstatue2
BridgetWalksUpMovement:
step LEFT
turn_head UP
step_end
BridgetWalksAwayMovement:
step RIGHT
turn_head LEFT
step_end
UnknownText_0x54122:
text "Hi! I'm WHITNEY!"
para "Everyone was into"
line "#MON, so I got"
cont "into it too!"
para "#MON are"
line "super-cute!"
para "You want to bat-"
line "tle? I'm warning"
cont "you--I'm good!"
done
UnknownText_0x541a5:
text "Sob…"
para "…Waaaaaaah!"
line "You're mean!"
para "You shouldn't be"
line "so serious! You…"
cont "you child, you!"
done
UnknownText_0x541f4:
text "Waaaaah!"
para "Waaaaah!"
para "…Snivel, hic…"
line "…You meanie!"
done
UnknownText_0x54222:
text "…Sniff…"
para "What? What do you"
line "want? A BADGE?"
para "Oh, right."
line "I forgot. Here's"
cont "PLAINBADGE."
done
UnknownText_0x54273:
text "<PLAYER> received"
line "PLAINBADGE."
done
UnknownText_0x5428b:
text "PLAINBADGE lets"
line "your #MON use"
para "STRENGTH outside"
line "of battle."
para "It also boosts"
line "your #MON's"
cont "SPEED."
para "Oh, you can have"
line "this too!"
done
UnknownText_0x54302:
text "It's ATTRACT!"
line "It makes full use"
para "of a #MON's"
line "charm."
para "Isn't it just per-"
line "fect for a cutie"
cont "like me?"
done
UnknownText_0x54360:
text "Ah, that was a"
line "good cry!"
para "Come for a visit"
line "again! Bye-bye!"
done
LassCarrieSeenText:
text "Don't let my"
line "#MON's cute"
para "looks fool you."
line "They can whip you!"
done
LassCarrieBeatenText:
text "Darn… I thought"
line "you were weak…"
done
LassCarrieAfterBattleText:
text "Do my #MON"
line "think I'm cute?"
done
LassBridgetSeenText:
text "I like cute #-"
line "MON better than"
cont "strong #MON."
para "But I have strong"
line "and cute #MON!"
done
LassBridgetBeatenText:
text "Oh, no, no, no!"
done
LassBridgetAfterBattleText:
text "I'm trying to beat"
line "WHITNEY, but…"
cont "It's depressing."
para "I'm okay! If I"
line "lose, I'll just"
para "try harder next"
line "time!"
done
BridgetWhitneyCriesText:
text "Oh, no. You made"
line "WHITNEY cry."
para "It's OK. She'll"
line "stop soon. She"
para "always cries when"
line "she loses."
done
BeautyVictoriaSeenText:
text "Oh, you are a cute"
line "little trainer! "
para "I like you, but I"
line "won't hold back!"
done
BeautyVictoriaBeatenText:
text "Let's see… Oops,"
line "it's over?"
done
BeautyVictoriaAfterBattleText:
text "Wow, you must be"
line "good to beat me!"
cont "Keep it up!"
done
BeautySamanthaSeenText:
text "Give it your best"
line "shot, or I'll take"
cont "you down!"
done
BeautySamanthaBeatenText:
text "No! Oh, MEOWTH,"
line "I'm so sorry!"
done
BeautySamanthaAfterBattleText:
text "I taught MEOWTH"
line "moves for taking"
cont "on any type…"
done
GoldenrodGymGuyText:
text "Yo! CHAMP in"
line "making!"
para "This GYM is home"
line "to normal-type"
cont "#MON trainers."
para "I recommend you"
line "use fighting-type"
cont "#MON."
done
GoldenrodGymGuyWinText:
text "You won? Great! I"
line "was busy admiring"
cont "the ladies here."
done
GoldenrodGym_MapEvents:
; filler
db 0, 0
.Warps:
db 2
warp_event 2, 17, 1, GOLDENROD_CITY
warp_event 3, 17, 1, GOLDENROD_CITY
.CoordEvents:
db 1
coord_event 8, 5, 1, WhitneyCriesScript
.BGEvents:
db 2
bg_event 1, 15, BGEVENT_READ, GoldenrodGymStatue
bg_event 4, 15, BGEVENT_READ, GoldenrodGymStatue
.ObjectEvents:
db 6
object_event 8, 3, SPRITE_WHITNEY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, WhitneyScript_0x5400c, -1
object_event 9, 13, SPRITE_LASS, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 4, TrainerLassCarrie, -1
object_event 9, 6, SPRITE_LASS, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerLassBridget, -1
object_event 0, 2, SPRITE_BUENA, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 3, TrainerBeautyVictoria, -1
object_event 19, 5, SPRITE_BUENA, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 3, TrainerBeautySamantha, -1
object_event 5, 15, SPRITE_GYM_GUY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, GoldenrodGymGuyScript, -1