pokecrystal-board/maps/CeladonGameCorner.asm

383 lines
9.5 KiB
NASM
Raw Normal View History

object_const_def ; object_event constants
2015-11-26 21:22:14 -08:00
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_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
2017-12-17 17:45:04 -08:00
CeladonGameCornerClerkScript:
jumpstd gamecornercoinvendor
2017-12-17 16:48:04 -08:00
CeladonGameCornerReceptionistScript:
jumptextfaceplayer CeladonGameCornerReceptionistText
2017-12-17 17:45:04 -08:00
CeladonGameCornerPokefanMScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
2017-12-17 17:45:04 -08:00
writetext CeladonGameCornerPokefanMText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
turnobject CELADONGAMECORNER_POKEFAN_M, LEFT
end
2017-12-17 17:45:04 -08:00
CeladonGameCornerTeacherScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
2017-12-17 17:45:04 -08:00
writetext CeladonGameCornerTeacherText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
turnobject CELADONGAMECORNER_TEACHER, RIGHT
end
2017-12-17 17:45:04 -08:00
CeladonGameCornerFishingGuruScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
2017-12-17 17:45:04 -08:00
writetext CeladonGameCornerFishingGuruText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
turnobject CELADONGAMECORNER_FISHING_GURU, RIGHT
end
2017-12-17 17:45:04 -08:00
CeladonGameCornerFisherScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
2013-09-24 00:48:58 -07:00
checkevent EVENT_GOT_COINS_FROM_GAMBLER_AT_CELADON
2017-12-17 17:45:04 -08:00
iftrue .GotCoins
writetext CeladonGameCornerFisherText1
2019-11-03 09:48:54 -08:00
promptbutton
checkitem COIN_CASE
2017-12-17 17:45:04 -08:00
iffalse .NoCoinCase
checkcoins MAX_COINS - 1
2018-02-02 18:09:17 -08:00
ifequal HAVE_MORE, .FullCoinCase
getstring STRING_BUFFER_4, .coinname
2017-12-17 17:45:04 -08:00
scall .GiveCoins
givecoins 18
2013-09-24 00:48:58 -07:00
setevent EVENT_GOT_COINS_FROM_GAMBLER_AT_CELADON
2017-12-17 17:45:04 -08:00
.GotCoins:
writetext CeladonGameCornerFisherText2
2015-11-25 07:16:29 -08:00
waitbutton
closetext
turnobject LAST_TALKED, LEFT
end
2017-12-17 17:45:04 -08:00
.GiveCoins:
jumpstd receiveitem
end
2015-07-10 01:45:35 -07:00
.coinname
db "COIN@"
2017-12-17 17:45:04 -08:00
.NoCoinCase:
writetext CeladonGameCornerFisherNoCoinCaseText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
turnobject LAST_TALKED, LEFT
end
2017-12-17 17:45:04 -08:00
.FullCoinCase:
writetext CeladonGameCornerFisherFullCoinCaseText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
turnobject LAST_TALKED, LEFT
end
2015-07-10 01:45:35 -07:00
CeladonGymGuyScript:
jumptextfaceplayer CeladonGymGuyText
2017-12-17 17:45:04 -08:00
CeladonGameCornerGrampsScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
2017-12-17 17:45:04 -08:00
writetext CeladonGameCornerGrampsText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
turnobject CELADONGAMECORNER_GRAMPS, LEFT
end
2017-12-17 17:45:04 -08:00
CeladonGameCornerPoster1Script:
jumptext CeladonGameCornerPoster1Text
2017-12-17 17:45:04 -08:00
CeladonGameCornerPoster2Script:
jumptext CeladonGameCornerPoster2Text
2017-12-17 17:45:04 -08:00
CeladonGameCornerLuckySlotMachineScript:
2018-01-11 22:40:20 -08:00
random 6
2018-02-02 18:09:17 -08:00
ifequal 0, CeladonGameCornerSlotMachineScript
2018-01-11 22:40:20 -08:00
refreshscreen
setval FALSE
special SlotMachine
2015-11-25 07:16:29 -08:00
closetext
end
2017-12-17 17:45:04 -08:00
CeladonGameCornerSlotMachineScript:
2018-01-11 22:40:20 -08:00
refreshscreen
setval TRUE
special SlotMachine
2015-11-25 07:16:29 -08:00
closetext
end
2017-12-17 17:45:04 -08:00
CeladonGameCornerCardFlipScript:
2018-01-11 22:40:20 -08:00
refreshscreen
special CardFlip
2015-11-25 07:16:29 -08:00
closetext
end
2017-12-17 17:45:04 -08:00
CeladonGameCornerLighterScript:
jumptext CeladonGameCornerLighterText
CeladonGameCornerSodaCanScript:
2015-12-09 15:25:44 -08:00
opentext
writetext CeladonGameCornerSodaCanText
2015-11-25 07:16:29 -08:00
waitbutton
special CardFlip
2015-11-25 07:16:29 -08:00
closetext
end
2018-02-28 13:50:43 -08:00
CeladonGameCornerUnusedMovementData:
; unreferenced
2016-05-14 10:46:14 -07:00
step RIGHT
turn_head LEFT
step_end
2017-12-17 16:48:04 -08:00
CeladonGameCornerReceptionistText:
text "Welcome!"
para "You may exchange"
line "your coins for"
para "fabulous prizes"
line "next door."
done
2017-12-17 17:45:04 -08:00
CeladonGameCornerPokefanMText:
text "The slot machines"
line "are all state of"
cont "the art."
done
2017-12-17 17:45:04 -08:00
CeladonGameCornerTeacherText:
2019-04-12 08:18:35 -07:00
if DEF(_CRYSTAL_AU)
text "The weather"
line "outside is very"
cont "nice."
done
else
text "It's this machine"
line "I want."
para "It cleaned me out"
line "yesterday, so it"
para "should pay out"
line "today."
done
2019-04-12 08:18:35 -07:00
endc
2017-12-17 17:45:04 -08:00
CeladonGameCornerFishingGuruText:
2019-04-12 08:18:35 -07:00
if DEF(_CRYSTAL_AU)
text "This machine looks"
line "the same as the"
cont "others."
done
else
text "I think this slot"
line "machine will pay"
cont "out…"
para "The odds vary"
line "among machines."
done
2019-04-12 08:18:35 -07:00
endc
2017-12-17 17:45:04 -08:00
CeladonGameCornerFisherText1:
2019-04-12 08:18:35 -07:00
if DEF(_CRYSTAL_AU)
text "Whoa!"
para "What? You want to"
line "play this machine?"
para "Here, take my"
line "coins."
done
else
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
2019-04-12 08:18:35 -07:00
endc
2017-12-17 17:45:04 -08:00
CeladonGameCornerFisherText2:
text "Gahahaha!"
para "It makes me feel"
line "good to do nice"
para "things for other"
line "people!"
done
2017-12-17 17:45:04 -08:00
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
2017-12-17 17:45:04 -08:00
CeladonGameCornerFisherFullCoinCaseText:
2019-04-12 08:18:35 -07:00
if DEF(_CRYSTAL_AU)
text "Your COIN CASE is"
line "full."
done
else
text "Hey, your COIN"
line "CASE is full, kid."
para "You must be riding"
line "a winning streak"
cont "too."
done
2019-04-12 08:18:35 -07:00
endc
2015-07-10 01:45:35 -07:00
CeladonGymGuyText:
text "Hey! CHAMP in"
line "making!"
para "Are you playing"
2019-04-12 08:18:35 -07:00
if DEF(_CRYSTAL_AU)
line "too?"
else
line "the slots too?"
2019-04-12 08:18:35 -07:00
endc
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
2017-12-17 17:45:04 -08:00
CeladonGameCornerGrampsText:
2019-04-12 08:18:35 -07:00
if DEF(_CRYSTAL_AU)
text "Is there any"
line "difference between"
cont "these lines?"
done
else
text "Hmmm… The odds are"
line "surely better for"
para "PIKACHU's line,"
line "but… What to do?"
done
2019-04-12 08:18:35 -07:00
endc
2017-12-17 17:45:04 -08:00
CeladonGameCornerPoster1Text:
text "Hey!"
para "Underneath this"
line "poster…"
para "There's nothing!"
done
2017-12-17 17:45:04 -08:00
CeladonGameCornerPoster2Text:
text "Hey!"
para "Underneath this"
line "poster…"
para "There's nothing!"
done
2017-12-17 17:45:04 -08:00
CeladonGameCornerLighterText:
text "There's a lighter"
line "here."
done
CeladonGameCornerSodaCanText:
text "A can of soda…"
para "Someone must be"
line "coming back…"
para "Huh? It's empty!"
done
CeladonGameCorner_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
2018-02-01 18:54:00 -08:00
warp_event 14, 13, CELADON_CITY, 6
warp_event 15, 13, CELADON_CITY, 6
db 0 ; coord events
db 38 ; bg events
2018-02-01 19:22:07 -08:00
bg_event 1, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 1, 7, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 1, 8, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 1, 9, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 1, 10, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 1, 11, BGEVENT_LEFT, CeladonGameCornerCardFlipScript
bg_event 6, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 6, 7, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 6, 8, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 6, 9, BGEVENT_READ, CeladonGameCornerSodaCanScript
2018-02-01 19:22:07 -08:00
bg_event 6, 10, BGEVENT_READ, CeladonGameCornerCardFlipScript
bg_event 6, 11, BGEVENT_RIGHT, CeladonGameCornerCardFlipScript
bg_event 7, 6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 7, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 7, 8, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 7, 9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 7, 10, BGEVENT_READ, CeladonGameCornerSlotMachineScript
bg_event 7, 11, BGEVENT_LEFT, CeladonGameCornerLuckySlotMachineScript
bg_event 12, 6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 12, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 12, 8, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 12, 9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 12, 10, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 12, 11, BGEVENT_RIGHT, CeladonGameCornerLuckySlotMachineScript
2018-02-01 19:22:07 -08:00
bg_event 13, 6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 13, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 13, 8, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 13, 9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 13, 10, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 13, 11, BGEVENT_LEFT, CeladonGameCornerLuckySlotMachineScript
2018-02-01 19:22:07 -08:00
bg_event 18, 6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 18, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 18, 8, BGEVENT_READ, CeladonGameCornerLighterScript
bg_event 18, 9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 18, 10, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
bg_event 18, 11, BGEVENT_RIGHT, CeladonGameCornerLuckySlotMachineScript
2018-02-01 19:22:07 -08:00
bg_event 15, 0, BGEVENT_READ, CeladonGameCornerPoster1Script
bg_event 9, 0, BGEVENT_READ, CeladonGameCornerPoster2Script
db 9 ; object events
2018-02-01 19:22:07 -08:00
object_event 5, 2, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerClerkScript, -1
object_event 3, 2, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerReceptionistScript, -1
object_event 14, 10, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerPokefanMScript, -1
2018-02-01 19:22:07 -08:00
object_event 17, 7, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerTeacherScript, -1
object_event 11, 7, SPRITE_FISHING_GURU, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFishingGuruScript, -1
object_event 8, 10, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, DAY, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1
object_event 8, 10, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, NITE, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1
object_event 11, 3, SPRITE_GYM_GUY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGymGuyScript, -1
object_event 2, 8, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerGrampsScript, -1