pokecrystal/maps/CeladonGameCorner.asm

348 lines
8.9 KiB
NASM

const_value set 2
const CELADONGAMECORNER_CLERK
const CELADONGAMECORNER_RECEPTIONIST
const CELADONGAMECORNER_POKEFAN_M
const CELADONGAMECORNER_TEACHER
const CELADONGAMECORNER_FISHING_GURU
const CELADONGAMECORNER_FISHER1
const CELADONGAMECORNER_FISHER2
const CELADONGAMECORNER_GYM_GUY
const CELADONGAMECORNER_GRAMPS
CeladonGameCorner_MapScriptHeader:
.SceneScripts:
db 0
.MapCallbacks:
db 0
CeladonGameCornerClerkScript:
jumpstd gamecornercoinvendor
CeladonGameCornerReceptionistScript:
jumptextfaceplayer CeladonGameCornerReceptionistText
CeladonGameCornerPokefanMScript:
faceplayer
opentext
writetext CeladonGameCornerPokefanMText
waitbutton
closetext
spriteface CELADONGAMECORNER_POKEFAN_M, LEFT
end
CeladonGameCornerTeacherScript:
faceplayer
opentext
writetext CeladonGameCornerTeacherText
waitbutton
closetext
spriteface CELADONGAMECORNER_TEACHER, RIGHT
end
CeladonGameCornerFishingGuruScript:
faceplayer
opentext
writetext CeladonGameCornerFishingGuruText
waitbutton
closetext
spriteface CELADONGAMECORNER_FISHING_GURU, RIGHT
end
CeladonGameCornerFisherScript:
faceplayer
opentext
checkevent EVENT_GOT_COINS_FROM_GAMBLER_AT_CELADON
iftrue .GotCoins
writetext CeladonGameCornerFisherText1
buttonsound
checkitem COIN_CASE
iffalse .NoCoinCase
checkcoins MAX_COINS - 1
if_equal $0, .FullCoinCase
stringtotext .coinname, $1
scall .GiveCoins
givecoins 18
setevent EVENT_GOT_COINS_FROM_GAMBLER_AT_CELADON
.GotCoins:
writetext CeladonGameCornerFisherText2
waitbutton
closetext
spriteface LAST_TALKED, LEFT
end
.GiveCoins:
jumpstd receiveitem
end
.coinname
db "COIN@"
.NoCoinCase:
writetext CeladonGameCornerFisherNoCoinCaseText
waitbutton
closetext
spriteface LAST_TALKED, LEFT
end
.FullCoinCase:
writetext CeladonGameCornerFisherFullCoinCaseText
waitbutton
closetext
spriteface LAST_TALKED, LEFT
end
CeladonGymGuyScript:
jumptextfaceplayer CeladonGymGuyText
CeladonGameCornerGrampsScript:
faceplayer
opentext
writetext CeladonGameCornerGrampsText
waitbutton
closetext
spriteface CELADONGAMECORNER_GRAMPS, LEFT
end
CeladonGameCornerPoster1Script:
jumptext CeladonGameCornerPoster1Text
CeladonGameCornerPoster2Script:
jumptext CeladonGameCornerPoster2Text
CeladonGameCornerLuckySlotMachineScript:
random $6
if_equal $0, CeladonGameCornerSlotMachineScript
refreshscreen $0
writebyte $0
special Special_SlotMachine
closetext
end
CeladonGameCornerSlotMachineScript:
refreshscreen $0
writebyte $1
special Special_SlotMachine
closetext
end
CeladonGameCornerCardFlipScript:
refreshscreen $0
special Special_CardFlip
closetext
end
CeladonGameCornerLighterScript:
jumptext CeladonGameCornerLighterText
MapCeladonGameCornerSignpost9Script:
opentext
writetext UnknownText_0x72567
waitbutton
special Special_CardFlip
closetext
end
MovementData_0x721cd:
; Unreferenced.
step RIGHT
turn_head LEFT
step_end
CeladonGameCornerReceptionistText:
text "Welcome!"
para "You may exchange"
line "your coins for"
para "fabulous prizes"
line "next door."
done
CeladonGameCornerPokefanMText:
text "The slot machines"
line "are all state of"
cont "the art."
done
CeladonGameCornerTeacherText:
text "It's this machine"
line "I want."
para "It cleaned me out"
line "yesterday, so it"
para "should pay out"
line "today."
done
CeladonGameCornerFishingGuruText:
text "I think this slot"
line "machine will pay"
cont "out…"
para "The odds vary"
line "among machines."
done
CeladonGameCornerFisherText1:
text "Gahahaha!"
para "The coins just"
line "keep popping out!"
para "Hm? What, kid? You"
line "want to play?"
para "I'll share my luck"
line "with you!"
done
CeladonGameCornerFisherText2:
text "Gahahaha!"
para "It makes me feel"
line "good to do nice"
para "things for other"
line "people!"
done
CeladonGameCornerFisherNoCoinCaseText:
text "Hey, you don't"
line "have a COIN CASE."
para "How am I supposed"
line "to give you any"
cont "coins, kid?"
done
CeladonGameCornerFisherFullCoinCaseText:
text "Hey, your COIN"
line "CASE is full, kid."
para "You must be riding"
line "a winning streak"
cont "too."
done
CeladonGymGuyText:
text "Hey! CHAMP in"
line "making!"
para "Are you playing"
line "the slots too?"
para "I'm trying to get"
line "enough coins for a"
cont "prize #MON."
para "But I don't have"
line "enough coins yet…"
done
CeladonGameCornerGrampsText:
text "Hmmm… The odds are"
line "surely better for"
para "PIKACHU's line,"
line "but… What to do?"
done
CeladonGameCornerPoster1Text:
text "Hey!"
para "Underneath this"
line "poster…"
para "There's nothing!"
done
CeladonGameCornerPoster2Text:
text "Hey!"
para "Underneath this"
line "poster…"
para "There's nothing!"
done
CeladonGameCornerLighterText:
text "There's a lighter"
line "here."
done
UnknownText_0x72567:
text "A can of soda…"
para "Someone must be"
line "coming back…"
para "Huh? It's empty!"
done
CeladonGameCorner_MapEventHeader:
; filler
db 0, 0
.Warps:
db 2
warp_def $d, $e, 6, CELADON_CITY
warp_def $d, $f, 6, CELADON_CITY
.CoordEvents:
db 0
.BGEvents:
db 38
bg_event 6, 1, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 7, 1, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 8, 1, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 9, 1, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 10, 1, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 11, 1, BGEVENT_LEFT, CeladonGameCornerCardFlipScript
bg_event 6, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 7, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 8, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 9, 6, BGEVENT_READ, MapCeladonGameCornerSignpost9Script
bg_event 10, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 11, 6, BGEVENT_RIGHT, CeladonGameCornerCardFlipScript
bg_event 6, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 7, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 8, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 9, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 10, 7, BGEVENT_READ, CeladonGameCornerSlotMachineScript
bg_event 11, 7, BGEVENT_LEFT, CeladonGameCornerLuckySlotMachineScript
bg_event 6, 12, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 7, 12, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 8, 12, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 9, 12, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 10, 12, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 11, 12, BGEVENT_RIGHT, CeladonGameCornerLuckySlotMachineScript
bg_event 6, 13, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 7, 13, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 8, 13, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 9, 13, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 10, 13, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 11, 13, BGEVENT_LEFT, CeladonGameCornerLuckySlotMachineScript
bg_event 6, 18, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 7, 18, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 8, 18, BGEVENT_READ, CeladonGameCornerLighterScript
bg_event 9, 18, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 10, 18, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 11, 18, BGEVENT_RIGHT, CeladonGameCornerLuckySlotMachineScript
bg_event 0, 15, BGEVENT_READ, CeladonGameCornerPoster1Script
bg_event 0, 9, BGEVENT_READ, CeladonGameCornerPoster2Script
.ObjectEvents:
db 9
object_event SPRITE_CLERK, 2, 5, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerClerkScript, -1
object_event SPRITE_RECEPTIONIST, 2, 3, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerReceptionistScript, -1
object_event SPRITE_POKEFAN_M, 10, 14, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerPokefanMScript, -1
object_event SPRITE_TEACHER, 7, 17, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerTeacherScript, -1
object_event SPRITE_FISHING_GURU, 7, 11, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFishingGuruScript, -1
object_event SPRITE_FISHER, 10, 8, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, DAY, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1
object_event SPRITE_FISHER, 10, 8, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, NITE, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1
object_event SPRITE_GYM_GUY, 3, 11, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGymGuyScript, -1
object_event SPRITE_GRAMPS, 8, 2, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerGrampsScript, -1