pokecrystal-board/maps/CianwoodGym.asm
2018-01-16 23:25:00 -05:00

336 lines
6.7 KiB
NASM

const_value set 2
const CIANWOODGYM_CHUCK
const CIANWOODGYM_BLACK_BELT1
const CIANWOODGYM_BLACK_BELT2
const CIANWOODGYM_BLACK_BELT3
const CIANWOODGYM_BLACK_BELT4
const CIANWOODGYM_BOULDER1
const CIANWOODGYM_BOULDER2
const CIANWOODGYM_BOULDER3
const CIANWOODGYM_BOULDER4
CianwoodGym_MapScripts:
.SceneScripts:
db 0
.MapCallbacks:
db 0
ChuckScript_0x9d60f:
faceplayer
opentext
checkevent EVENT_BEAT_CHUCK
iftrue .FightDone
writetext ChuckIntroText1
waitbutton
closetext
spriteface CIANWOODGYM_CHUCK, RIGHT
opentext
writetext ChuckIntroText2
waitbutton
closetext
applymovement CIANWOODGYM_BOULDER1, CianwoodGymMovement_ChuckChucksBoulder
playsound SFX_STRENGTH
earthquake 80
disappear CIANWOODGYM_BOULDER1
pause 30
faceplayer
opentext
writetext ChuckIntroText3
waitbutton
closetext
winlosstext ChuckLossText, 0
loadtrainer CHUCK, CHUCK1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_CHUCK
opentext
writetext GetStormBadgeText
playsound SFX_GET_BADGE
waitsfx
setflag ENGINE_STORMBADGE
checkcode VAR_BADGES
scall CianwoodGymActivateRockets
.FightDone:
checkevent EVENT_GOT_TM01_DYNAMICPUNCH
iftrue .AlreadyGotTM
setevent EVENT_BEAT_BLACKBELT_YOSHI
setevent EVENT_BEAT_BLACKBELT_LAO
setevent EVENT_BEAT_BLACKBELT_NOB
setevent EVENT_BEAT_BLACKBELT_LUNG
writetext ChuckExplainBadgeText
buttonsound
verbosegiveitem TM_DYNAMICPUNCH
iffalse .BagFull
setevent EVENT_GOT_TM01_DYNAMICPUNCH
writetext ChuckExplainTMText
waitbutton
closetext
end
.AlreadyGotTM:
writetext ChuckAfterText
waitbutton
.BagFull:
closetext
end
CianwoodGymActivateRockets:
if_equal 7, .RadioTowerRockets
if_equal 6, .GoldenrodRockets
end
.GoldenrodRockets:
jumpstd goldenrodrockets
.RadioTowerRockets:
jumpstd radiotowerrockets
TrainerBlackbeltYoshi:
trainer EVENT_BEAT_BLACKBELT_YOSHI, BLACKBELT_T, YOSHI, BlackbeltYoshiSeenText, BlackbeltYoshiBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext BlackbeltYoshiAfterText
waitbutton
closetext
end
TrainerBlackbeltLao:
trainer EVENT_BEAT_BLACKBELT_LAO, BLACKBELT_T, LAO, BlackbeltLaoSeenText, BlackbeltLaoBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext BlackbeltLaoAfterText
waitbutton
closetext
end
TrainerBlackbeltNob:
trainer EVENT_BEAT_BLACKBELT_NOB, BLACKBELT_T, NOB, BlackbeltNobSeenText, BlackbeltNobBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext BlackbeltNobAfterText
waitbutton
closetext
end
TrainerBlackbeltLung:
trainer EVENT_BEAT_BLACKBELT_LUNG, BLACKBELT_T, LUNG, BlackbeltLungSeenText, BlackbeltLungBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext BlackbeltLungAfterText
waitbutton
closetext
end
CianwoodGymBoulder:
jumpstd strengthboulder
CianwoodGymStatue:
checkflag ENGINE_STORMBADGE
iftrue .Beaten
jumpstd gymstatue1
.Beaten:
trainertotext CHUCK, CHUCK1, MEM_BUFFER_1
jumpstd gymstatue2
CianwoodGymMovement_ChuckChucksBoulder:
set_sliding
big_step LEFT
big_step UP
fast_jump_step RIGHT
remove_sliding
step_end
ChuckIntroText1:
text "WAHAHAH!"
para "So you've come"
line "this far!"
para "Let me tell you,"
line "I'm tough!"
para "My #MON will"
line "crush stones and"
cont "shatter bones!"
para "Watch this!"
done
ChuckIntroText2:
text "CHUCK: Urggh!"
line "…"
para "Oooarrgh!"
done
ChuckIntroText3:
text "There! Scared now,"
line "are you?"
para "What?"
line "It has nothing to"
para "do with #MON?"
line "That's true!"
para "Come on. We shall"
line "do battle!"
done
ChuckLossText:
text "Wha? Huh?"
line "I lost?"
para "How about that!"
line "You're worthy of"
cont "STORMBADGE!"
done
GetStormBadgeText:
text "<PLAYER> received"
line "STORMBADGE."
done
ChuckExplainBadgeText:
text "STORMBADGE makes"
line "all #MON up to"
para "L70 obey, even"
line "traded ones."
para "It also lets your"
line "#MON use FLY"
para "when you're not in"
line "a battle."
para "Here, take this"
line "too!"
done
ChuckExplainTMText:
text "That is DYNAMIC-"
line "PUNCH."
para "It doesn't always"
line "hit, but when it"
para "does, it causes"
line "confusion!"
done
ChuckAfterText:
text "WAHAHAH! I enjoyed"
line "battling you!"
para "But a loss is a"
line "loss!"
para "From now on, I'm"
line "going to train 24"
cont "hours a day!"
done
BlackbeltYoshiSeenText:
text "My #MON and I"
line "are bound togeth-"
cont "er by friendship."
para "Our bond will"
line "never be broken!"
done
BlackbeltYoshiBeatenText:
text "This isn't real!"
done
BlackbeltYoshiAfterText:
text "You seem to have a"
line "strong bond with"
cont "your #MON too!"
done
BlackbeltLaoSeenText:
text "We martial artists"
line "fear nothing!"
done
BlackbeltLaoBeatenText:
text "That's shocking!"
done
BlackbeltLaoAfterText:
text "Fighting #MON"
line "are afraid of psy-"
cont "chics…"
done
BlackbeltNobSeenText:
text "Words are useless."
line "Let your fists do"
cont "the talking!"
done
BlackbeltNobBeatenText:
text "…"
done
BlackbeltNobAfterText:
text "I lost! "
line "I'm speechless!"
done
BlackbeltLungSeenText:
text "My raging fists"
line "will shatter your"
cont "#MON!"
done
BlackbeltLungBeatenText:
text "I got shattered!"
done
BlackbeltLungAfterText:
text "My #MON lost…"
line "My… my pride is"
cont "shattered…"
done
CianwoodGym_MapEvents:
; filler
db 0, 0
.Warps:
db 2
warp_def 4, 17, 2, CIANWOOD_CITY
warp_def 5, 17, 2, CIANWOOD_CITY
.CoordEvents:
db 0
.BGEvents:
db 2
bg_event 3, 15, BGEVENT_READ, CianwoodGymStatue
bg_event 6, 15, BGEVENT_READ, CianwoodGymStatue
.ObjectEvents:
db 9
object_event 4, 1, SPRITE_CHUCK, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, ChuckScript_0x9d60f, -1
object_event 2, 12, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 3, TrainerBlackbeltYoshi, -1
object_event 7, 12, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 3, TrainerBlackbeltLao, -1
object_event 3, 9, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 2, TrainerBlackbeltNob, -1
object_event 5, 5, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 1, TrainerBlackbeltLung, -1
object_event 5, 1, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodGymBoulder, -1
object_event 3, 7, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodGymBoulder, -1
object_event 4, 7, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodGymBoulder, -1
object_event 5, 7, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodGymBoulder, -1