pokecrystal-board/maps/CeladonGameCorner.asm

341 lines
9.0 KiB
NASM
Raw Normal View History

2018-01-31 08:38:45 -08:00
const_def 2 ; object 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
2015-11-29 19:29:45 -08:00
buttonsound
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
2018-01-11 22:40:20 -08:00
stringtotext .coinname, MEM_BUFFER_1
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
writebyte 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
writebyte 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:
text "It's this machine"
line "I want."
para "It cleaned me out"
line "yesterday, so it"
para "should pay out"
line "today."
done
2017-12-17 17:45:04 -08:00
CeladonGameCornerFishingGuruText:
text "I think this slot"
line "machine will pay"
cont "out…"
para "The odds vary"
line "among machines."
done
2017-12-17 17:45:04 -08:00
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
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:
text "Hey, your COIN"
line "CASE is full, kid."
para "You must be riding"
line "a winning streak"
cont "too."
done
2015-07-10 01:45:35 -07:00
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
2017-12-17 17:45:04 -08:00
CeladonGameCornerGrampsText:
text "Hmmm… The odds are"
line "surely better for"
para "PIKACHU's line,"
line "but… What to do?"
done
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