mirror of https://github.com/pret/pokecrystal.git
329 lines
6.8 KiB
NASM
329 lines
6.8 KiB
NASM
object_const_def ; object_event constants
|
|
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:
|
|
db 0 ; scene scripts
|
|
|
|
db 0 ; callbacks
|
|
|
|
CianwoodGymChuckScript:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_BEAT_CHUCK
|
|
iftrue .FightDone
|
|
writetext ChuckIntroText1
|
|
waitbutton
|
|
closetext
|
|
turnobject 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
|
|
readvar 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
|
|
promptbutton
|
|
verbosegiveitem TM_DYNAMICPUNCH
|
|
iffalse .BagFull
|
|
setevent EVENT_GOT_TM01_DYNAMICPUNCH
|
|
writetext ChuckExplainTMText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.AlreadyGotTM:
|
|
writetext ChuckAfterText
|
|
waitbutton
|
|
.BagFull:
|
|
closetext
|
|
end
|
|
|
|
CianwoodGymActivateRockets:
|
|
ifequal 7, .RadioTowerRockets
|
|
ifequal 6, .GoldenrodRockets
|
|
end
|
|
|
|
.GoldenrodRockets:
|
|
jumpstd GoldenrodRocketsScript
|
|
|
|
.RadioTowerRockets:
|
|
jumpstd RadioTowerRocketsScript
|
|
|
|
TrainerBlackbeltYoshi:
|
|
trainer BLACKBELT_T, YOSHI, EVENT_BEAT_BLACKBELT_YOSHI, BlackbeltYoshiSeenText, BlackbeltYoshiBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext BlackbeltYoshiAfterText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerBlackbeltLao:
|
|
trainer BLACKBELT_T, LAO, EVENT_BEAT_BLACKBELT_LAO, BlackbeltLaoSeenText, BlackbeltLaoBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext BlackbeltLaoAfterText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerBlackbeltNob:
|
|
trainer BLACKBELT_T, NOB, EVENT_BEAT_BLACKBELT_NOB, BlackbeltNobSeenText, BlackbeltNobBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext BlackbeltNobAfterText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerBlackbeltLung:
|
|
trainer BLACKBELT_T, LUNG, EVENT_BEAT_BLACKBELT_LUNG, BlackbeltLungSeenText, BlackbeltLungBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext BlackbeltLungAfterText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
CianwoodGymBoulder:
|
|
jumpstd StrengthBoulderScript
|
|
|
|
CianwoodGymStatue:
|
|
checkflag ENGINE_STORMBADGE
|
|
iftrue .Beaten
|
|
jumpstd GymStatue1Script
|
|
.Beaten:
|
|
gettrainername STRING_BUFFER_4, CHUCK, CHUCK1
|
|
jumpstd GymStatue2Script
|
|
|
|
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:
|
|
db 0, 0 ; filler
|
|
|
|
db 2 ; warp events
|
|
warp_event 4, 17, CIANWOOD_CITY, 2
|
|
warp_event 5, 17, CIANWOOD_CITY, 2
|
|
|
|
db 0 ; coord events
|
|
|
|
db 2 ; bg events
|
|
bg_event 3, 15, BGEVENT_READ, CianwoodGymStatue
|
|
bg_event 6, 15, BGEVENT_READ, CianwoodGymStatue
|
|
|
|
db 9 ; object events
|
|
object_event 4, 1, SPRITE_CHUCK, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, CianwoodGymChuckScript, -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
|