mirror of https://github.com/pret/pokecrystal.git
317 lines
6.9 KiB
NASM
317 lines
6.9 KiB
NASM
object_const_def ; object_event constants
|
|
const POKEMONFANCLUB_GENTLEMAN
|
|
const POKEMONFANCLUB_RECEPTIONIST
|
|
const POKEMONFANCLUB_FISHER
|
|
const POKEMONFANCLUB_TEACHER
|
|
const POKEMONFANCLUB_FAIRY
|
|
const POKEMONFANCLUB_ODDISH
|
|
|
|
PokemonFanClub_MapScripts:
|
|
db 0 ; scene scripts
|
|
|
|
db 0 ; callbacks
|
|
|
|
PokemonFanClubPresidentScript:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_LISTENED_TO_FAN_CLUB_PRESIDENT
|
|
iftrue .HeardSpeech
|
|
checkevent EVENT_LISTENED_TO_FAN_CLUB_PRESIDENT_BUT_BAG_WAS_FULL
|
|
iftrue .HeardSpeechButBagFull
|
|
writetext PokemonFanClubPresidentDidYouVisitToHearAboutMyMonText
|
|
yesorno
|
|
iffalse .NotListening
|
|
writetext PokemonFanClubPresidentRapidashText
|
|
buttonsound
|
|
.HeardSpeechButBagFull:
|
|
writetext PokemonFanClubPresidentIWantYouToHaveThisText
|
|
buttonsound
|
|
verbosegiveitem RARE_CANDY
|
|
iffalse .BagFull
|
|
setevent EVENT_LISTENED_TO_FAN_CLUB_PRESIDENT
|
|
writetext PokemonFanClubPresidentItsARareCandyText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.HeardSpeech:
|
|
writetext PokemonFanClubPresidentMoreTalesToTellText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.NotListening:
|
|
writetext PokemonFanClubPresidentHowDisappointingText
|
|
waitbutton
|
|
.BagFull:
|
|
closetext
|
|
end
|
|
|
|
PokemonFanClubReceptionistScript:
|
|
jumptextfaceplayer PokemonFanClubReceptionistText
|
|
|
|
PokemonFanClubClefairyGuyScript:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_GOT_LOST_ITEM_FROM_FAN_CLUB
|
|
iftrue .GotLostItem
|
|
checkevent EVENT_RETURNED_MACHINE_PART
|
|
iftrue .FoundClefairyDoll
|
|
writetext PokemonFanClubClefairyGuyClefairyIsSoAdorableText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.FoundClefairyDoll:
|
|
writetext PokemonFanClubClefairyGuyMakingDoWithADollIFoundText
|
|
checkevent EVENT_MET_COPYCAT_FOUND_OUT_ABOUT_LOST_ITEM
|
|
iftrue .MetCopycat
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.MetCopycat:
|
|
buttonsound
|
|
writetext PokemonFanClubClefairyGuyTakeThisDollBackToGirlText
|
|
buttonsound
|
|
waitsfx
|
|
giveitem LOST_ITEM
|
|
iffalse .NoRoom
|
|
disappear POKEMONFANCLUB_FAIRY
|
|
writetext PokemonFanClubPlayerReceivedDollText
|
|
playsound SFX_KEY_ITEM
|
|
waitsfx
|
|
itemnotify
|
|
setevent EVENT_GOT_LOST_ITEM_FROM_FAN_CLUB
|
|
closetext
|
|
end
|
|
|
|
.GotLostItem:
|
|
writetext PokemonFanClubClefairyGuyGoingToGetARealClefairyText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.NoRoom:
|
|
writetext PokemonFanClubClefairyGuyPackIsJammedFullText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
PokemonFanClubTeacherScript:
|
|
jumptextfaceplayer PokemonFanClubTeacherText
|
|
|
|
PokemonFanClubClefairyDollScript:
|
|
jumptext ClefairyDollText
|
|
|
|
PokemonFanClubBayleefScript:
|
|
opentext
|
|
writetext FanClubBayleefText
|
|
cry BAYLEEF
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
PokemonFanClubListenSign:
|
|
jumptext PokemonFanClubListenSignText
|
|
|
|
PokemonFanClubBraggingSign:
|
|
jumptext PokemonFanClubBraggingSignText
|
|
|
|
PokemonFanClubPresidentDidYouVisitToHearAboutMyMonText:
|
|
text "I'm the CHAIRMAN"
|
|
line "of the #MON FAN"
|
|
cont "CLUB."
|
|
|
|
para "I've raised over"
|
|
line "150 #MON."
|
|
|
|
para "I'm very fussy"
|
|
line "when it comes to"
|
|
cont "#MON."
|
|
|
|
para "Did you visit just"
|
|
line "to hear about my"
|
|
cont "#MON?"
|
|
done
|
|
|
|
PokemonFanClubPresidentRapidashText:
|
|
text "Good!"
|
|
line "Then listen up!"
|
|
|
|
para "So… my favorite"
|
|
line "RAPIDASH…"
|
|
|
|
para "It… cute… lovely…"
|
|
line "smart… unbearably…"
|
|
cont "plus… amazing… oh…"
|
|
cont "you think so?…"
|
|
cont "Too much… wild…"
|
|
cont "beautiful… kindly…"
|
|
cont "love it!"
|
|
|
|
para "Hug it… when…"
|
|
line "sleeping… warm and"
|
|
cont "cuddly… Oh, and…"
|
|
cont "spectacular…"
|
|
cont "ravishing… simply"
|
|
cont "divine…"
|
|
cont "Oops! Look at the"
|
|
cont "time! I've kept"
|
|
cont "you too long!"
|
|
done
|
|
|
|
PokemonFanClubPresidentIWantYouToHaveThisText:
|
|
text "Thanks for hearing"
|
|
line "me out. I want you"
|
|
cont "to have this!"
|
|
done
|
|
|
|
PokemonFanClubPresidentItsARareCandyText:
|
|
text "It's a RARE CANDY"
|
|
line "that makes #MON"
|
|
cont "stronger."
|
|
|
|
para "I prefer making my"
|
|
line "#MON stronger"
|
|
|
|
para "by battling, so"
|
|
line "you can have it."
|
|
done
|
|
|
|
PokemonFanClubPresidentMoreTalesToTellText:
|
|
text "Hello, <PLAY_G>!"
|
|
|
|
para "Did you come see"
|
|
line "me about my #-"
|
|
cont "MON again?"
|
|
|
|
para "No? Oh… I had more"
|
|
line "tales to tell…"
|
|
done
|
|
|
|
PokemonFanClubPresidentHowDisappointingText:
|
|
text "How disappointing…"
|
|
|
|
para "Come back if you"
|
|
line "want to listen."
|
|
done
|
|
|
|
PokemonFanClubReceptionistText:
|
|
text "Our CHAIRMAN is"
|
|
line "very vocal when it"
|
|
cont "comes to #MON…"
|
|
done
|
|
|
|
PokemonFanClubClefairyGuyClefairyIsSoAdorableText:
|
|
text "I love the way"
|
|
line "CLEFAIRY waggles"
|
|
|
|
para "its finger when"
|
|
line "it's trying to use"
|
|
|
|
para "METRONOME."
|
|
line "It's so adorable!"
|
|
done
|
|
|
|
PokemonFanClubClefairyGuyMakingDoWithADollIFoundText:
|
|
text "I love CLEFAIRY,"
|
|
line "but I could never"
|
|
|
|
para "catch one. So I'm"
|
|
line "making do with a"
|
|
|
|
para "# DOLL that I"
|
|
line "found."
|
|
done
|
|
|
|
PokemonFanClubClefairyGuyTakeThisDollBackToGirlText:
|
|
text "Oh, I see now. The"
|
|
line "girl who lost this"
|
|
|
|
para "# DOLL is sad…"
|
|
|
|
para "OK. Could you take"
|
|
line "this # DOLL"
|
|
|
|
para "back to that poor"
|
|
line "little girl?"
|
|
|
|
para "I'll befriend a"
|
|
line "real CLEFAIRY on"
|
|
|
|
para "my own one day."
|
|
line "No worries!"
|
|
done
|
|
|
|
PokemonFanClubPlayerReceivedDollText:
|
|
text "<PLAYER> received"
|
|
line "# DOLL."
|
|
done
|
|
|
|
PokemonFanClubClefairyGuyGoingToGetARealClefairyText:
|
|
text "You watch. I'm"
|
|
line "going to get a"
|
|
|
|
para "real CLEFAIRY as"
|
|
line "my friend."
|
|
done
|
|
|
|
PokemonFanClubClefairyGuyPackIsJammedFullText:
|
|
text "Your PACK is"
|
|
line "jammed full."
|
|
done
|
|
|
|
PokemonFanClubTeacherText:
|
|
text "Look at my darling"
|
|
line "BAYLEEF!"
|
|
|
|
para "The leaf on its"
|
|
line "head is so cute!"
|
|
done
|
|
|
|
ClefairyDollText:
|
|
text "It's a CLEFAIRY!"
|
|
line "Huh?"
|
|
|
|
para "Oh, right. It's a"
|
|
line "CLEFAIRY #"
|
|
cont "DOLL."
|
|
done
|
|
|
|
FanClubBayleefText:
|
|
text "BAYLEEF: Li liif!"
|
|
done
|
|
|
|
PokemonFanClubListenSignText:
|
|
text "Let's all listen"
|
|
line "politely to other"
|
|
cont "trainers."
|
|
done
|
|
|
|
PokemonFanClubBraggingSignText:
|
|
text "If someone brags,"
|
|
line "brag right back!"
|
|
done
|
|
|
|
PokemonFanClub_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 2 ; warp events
|
|
warp_event 2, 7, VERMILION_CITY, 3
|
|
warp_event 3, 7, VERMILION_CITY, 3
|
|
|
|
db 0 ; coord events
|
|
|
|
db 2 ; bg events
|
|
bg_event 7, 0, BGEVENT_READ, PokemonFanClubListenSign
|
|
bg_event 9, 0, BGEVENT_READ, PokemonFanClubBraggingSign
|
|
|
|
db 6 ; object events
|
|
object_event 3, 1, SPRITE_GENTLEMAN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, PokemonFanClubPresidentScript, -1
|
|
object_event 4, 1, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, PokemonFanClubReceptionistScript, -1
|
|
object_event 2, 3, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, PokemonFanClubClefairyGuyScript, -1
|
|
object_event 7, 2, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, PokemonFanClubTeacherScript, -1
|
|
object_event 2, 4, SPRITE_FAIRY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, PokemonFanClubClefairyDollScript, EVENT_VERMILION_FAN_CLUB_DOLL
|
|
object_event 7, 3, SPRITE_ODDISH, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, PokemonFanClubBayleefScript, -1
|