pokecrystal/maps/CeladonCafe.asm

227 lines
4.3 KiB
NASM

const_def 2 ; object constants
const CELADONCAFE_SUPER_NERD
const CELADONCAFE_FISHER1
const CELADONCAFE_FISHER2
const CELADONCAFE_FISHER3
const CELADONCAFE_TEACHER
CeladonCafe_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
CeladonCafeChef:
faceplayer
opentext
writetext ChefText_Eatathon
waitbutton
closetext
end
CeladonCafeFisher1:
opentext
writetext Fisher1Text_Snarfle
waitbutton
closetext
faceplayer
opentext
writetext Fisher1Text_Concentration
waitbutton
closetext
objectface CELADONCAFE_FISHER1, LEFT
end
CeladonCafeFisher2:
opentext
writetext Fisher2Text_GulpChew
waitbutton
closetext
faceplayer
opentext
writetext Fisher2Text_Quantity
waitbutton
closetext
objectface CELADONCAFE_FISHER2, RIGHT
end
CeladonCafeFisher3:
opentext
writetext Fisher3Text_MunchMunch
waitbutton
closetext
faceplayer
opentext
writetext Fisher3Text_GoldenrodIsBest
waitbutton
closetext
objectface CELADONCAFE_FISHER3, RIGHT
end
CeladonCafeTeacher:
checkitem COIN_CASE
iftrue .HasCoinCase
opentext
writetext TeacherText_CrunchCrunch
waitbutton
closetext
faceplayer
opentext
writetext TeacherText_NoCoinCase
waitbutton
closetext
objectface CELADONCAFE_TEACHER, LEFT
end
.HasCoinCase:
opentext
writetext TeacherText_KeepEating
waitbutton
closetext
objectface CELADONCAFE_TEACHER, RIGHT
opentext
writetext TeacherText_MoreChef
waitbutton
closetext
objectface CELADONCAFE_TEACHER, LEFT
end
EatathonContestPoster:
jumptext EatathonContestPosterText
CeladonCafeTrashcan:
checkevent EVENT_FOUND_LEFTOVERS_IN_CELADON_CAFE
iftrue .TrashEmpty
giveitem LEFTOVERS
iffalse .PackFull
opentext
itemtotext LEFTOVERS, MEM_BUFFER_0
writetext FoundLeftoversText
playsound SFX_ITEM
waitsfx
itemnotify
closetext
setevent EVENT_FOUND_LEFTOVERS_IN_CELADON_CAFE
end
.PackFull:
opentext
itemtotext LEFTOVERS, MEM_BUFFER_0
writetext FoundLeftoversText
buttonsound
writetext NoRoomForLeftoversText
waitbutton
closetext
end
.TrashEmpty:
jumpstd trashcan
ChefText_Eatathon:
text "Hi!"
para "We're holding an"
line "eatathon contest."
para "We can't serve you"
line "right now. Sorry."
done
Fisher1Text_Snarfle:
text "…Snarfle, chew…"
done
Fisher1Text_Concentration:
text "Don't talk to me!"
para "You'll break my"
line "concentration!"
done
Fisher2Text_GulpChew:
text "…Gulp… Chew…"
done
Fisher2Text_Quantity:
text "I take quantity"
line "over quality!"
para "I'm happy when I'm"
line "full!"
done
Fisher3Text_MunchMunch:
text "Munch, munch…"
done
Fisher3Text_GoldenrodIsBest:
text "The food is good"
line "here, but GOLDEN-"
cont "ROD has the best"
cont "food anywhere."
done
TeacherText_CrunchCrunch:
text "Crunch… Crunch…"
done
TeacherText_NoCoinCase:
text "Nobody here will"
line "give you a COIN"
para "CASE. You should"
line "look in JOHTO."
done
TeacherText_KeepEating:
text "Crunch… Crunch…"
para "I can keep eating!"
done
TeacherText_MoreChef:
text "More, CHEF!"
done
EatathonContestPosterText:
text "Eatathon Contest!"
line "No time limit!"
para "A battle without"
line "end! The biggest"
para "muncher gets it"
line "all for free!"
done
FoundLeftoversText:
text "<PLAYER> found"
line "@"
text_from_ram wStringBuffer3
text "!"
done
NoRoomForLeftoversText:
text "But <PLAYER> can't"
line "hold another item…"
done
CeladonCafe_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 6, 7, CELADON_CITY, 9
warp_event 7, 7, CELADON_CITY, 9
db 0 ; coord events
db 2 ; bg events
bg_event 5, 0, BGEVENT_READ, EatathonContestPoster
bg_event 7, 1, BGEVENT_READ, CeladonCafeTrashcan
db 5 ; object events
object_event 9, 3, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, CeladonCafeChef, -1
object_event 4, 6, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonCafeFisher1, -1
object_event 1, 7, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonCafeFisher2, -1
object_event 1, 2, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonCafeFisher3, -1
object_event 4, 3, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonCafeTeacher, -1