pokecrystal-board/maps/GoldenrodGameCorner.asm
2015-11-27 00:22:14 -05:00

508 lines
13 KiB
NASM

const_value set 2
const GOLDENRODGAMECORNER_CLERK
const GOLDENRODGAMECORNER_RECEPTIONIST1
const GOLDENRODGAMECORNER_RECEPTIONIST2
const GOLDENRODGAMECORNER_PHARMACIST1
const GOLDENRODGAMECORNER_PHARMACIST2
const GOLDENRODGAMECORNER_POKEFAN_M1
const GOLDENRODGAMECORNER_COOLTRAINER_M
const GOLDENRODGAMECORNER_POKEFAN_F
const GOLDENRODGAMECORNER_COOLTRAINER_F
const GOLDENRODGAMECORNER_GENTLEMAN
const GOLDENRODGAMECORNER_POKEFAN_M2
const GOLDENRODGAMECORNER_POKEFAN_M3
GoldenrodGameCorner_MapScriptHeader:
.MapTriggers:
db 0
.MapCallbacks:
db 1
; callbacks
dbw 2, UnknownScript_0x56bf9
UnknownScript_0x56bf9:
checkevent EVENT_BEAT_ELITE_FOUR
iffalse UnknownScript_0x56c19
checkitem COIN_CASE
iffalse UnknownScript_0x56c0e
checkcode VAR_WEEKDAY
if_equal WEDNESDAY, UnknownScript_0x56c11
if_equal SATURDAY, UnknownScript_0x56c11
UnknownScript_0x56c0e:
appear GOLDENRODGAMECORNER_POKEFAN_M3
return
UnknownScript_0x56c11:
checkflag ENGINE_DAILY_MOVE_TUTOR
iftrue UnknownScript_0x56c19
disappear GOLDENRODGAMECORNER_POKEFAN_M3
UnknownScript_0x56c19: ;0x56c19
return
PokefanMScript_0x56c1a:
faceplayer
loadfont
writetext UnknownText_0x5718a
waitbutton
closetext
spriteface GOLDENRODGAMECORNER_POKEFAN_M3, RIGHT
end
ClerkScript_0x56c25:
jumpstd gamecornercoinvendor
ReceptionistScript_0x56c28:
faceplayer
loadfont
writetext UnknownText_0x56e50
waitbutton
checkitem COIN_CASE
iffalse UnknownScript_0x56cc3
writetext UnknownText_0x56e8b
UnknownScript_0x56c36: ; 056c36
special Special_DisplayCoinCaseBalance
loadmenudata MenuDataHeader_0x56cc9
interpretmenu2
writebackup
if_equal $1, UnknownScript_0x56c4d
if_equal $2, UnknownScript_0x56c69
if_equal $3, UnknownScript_0x56c85
jump UnknownScript_0x56cbd
UnknownScript_0x56c4d:
checkcoins 5500
if_equal $2, UnknownScript_0x56cb1
itemtotext TM_THUNDER, $0
scall UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
giveitem TM_THUNDER
iffalse UnknownScript_0x56cb7
takecoins 5500
jump UnknownScript_0x56ca6
UnknownScript_0x56c69:
checkcoins 5500
if_equal $2, UnknownScript_0x56cb1
itemtotext TM_BLIZZARD, $0
scall UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
giveitem TM_BLIZZARD
iffalse UnknownScript_0x56cb7
takecoins 5500
jump UnknownScript_0x56ca6
UnknownScript_0x56c85:
checkcoins 5500
if_equal $2, UnknownScript_0x56cb1
itemtotext TM_FIRE_BLAST, $0
scall UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
giveitem TM_FIRE_BLAST
iffalse UnknownScript_0x56cb7
takecoins 5500
jump UnknownScript_0x56ca6
UnknownScript_0x56ca1:
writetext UnknownText_0x56ea8
yesorno
end
UnknownScript_0x56ca6:
waitsfx
playsound SFX_TRANSACTION
writetext UnknownText_0x56ebd
waitbutton
jump UnknownScript_0x56c36
UnknownScript_0x56cb1:
writetext UnknownText_0x56ecb
waitbutton
closetext
end
UnknownScript_0x56cb7:
writetext UnknownText_0x56ee8
waitbutton
closetext
end
UnknownScript_0x56cbd:
writetext UnknownText_0x56f09
waitbutton
closetext
end
UnknownScript_0x56cc3:
writetext UnknownText_0x56f35
waitbutton
closetext
end
MenuDataHeader_0x56cc9:
db $40 ; flags
db 02, 00 ; start coords
db 11, 15 ; end coords
dw MenuData2_0x56cd1
db 1 ; default option
MenuData2_0x56cd1:
db $80 ; flags
db 4 ; items
db "TM25 5500@"
db "TM14 5500@"
db "TM38 5500@"
db "CANCEL@"
ReceptionistScript_0x56d01:
faceplayer
loadfont
writetext UnknownText_0x56e50
waitbutton
checkitem COIN_CASE
iffalse UnknownScript_0x56cc3
UnknownScript_0x56d0c:
writetext UnknownText_0x56e8b
special Special_DisplayCoinCaseBalance
loadmenudata MenuDataHeader_0x56db0
interpretmenu2
writebackup
if_equal $1, UnknownScript_0x56d26
if_equal $2, UnknownScript_0x56d54
if_equal $3, UnknownScript_0x56d82
jump UnknownScript_0x56cbd
UnknownScript_0x56d26:
checkcoins 100
if_equal $2, UnknownScript_0x56cb1
checkcode VAR_PARTYCOUNT
if_equal $6, UnknownScript_0x56cb7
pokenamemem ABRA, $0
scall UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
waitsfx
playsound SFX_TRANSACTION
writetext UnknownText_0x56ebd
waitbutton
writebyte ABRA
special Special_GameCornerPrizeMonCheckDex
givepoke ABRA, 5
takecoins 100
jump UnknownScript_0x56d0c
UnknownScript_0x56d54:
checkcoins 800
if_equal $2, UnknownScript_0x56cb1
checkcode VAR_PARTYCOUNT
if_equal $6, UnknownScript_0x56cb7
pokenamemem CUBONE, $0
scall UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
waitsfx
playsound SFX_TRANSACTION
writetext UnknownText_0x56ebd
waitbutton
writebyte CUBONE
special Special_GameCornerPrizeMonCheckDex
givepoke CUBONE, 15
takecoins 800
jump UnknownScript_0x56d0c
UnknownScript_0x56d82:
checkcoins 1500
if_equal $2, UnknownScript_0x56cb1
checkcode VAR_PARTYCOUNT
if_equal $6, UnknownScript_0x56cb7
pokenamemem WOBBUFFET, $0
scall UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
waitsfx
playsound SFX_TRANSACTION
writetext UnknownText_0x56ebd
waitbutton
writebyte WOBBUFFET
special Special_GameCornerPrizeMonCheckDex
givepoke WOBBUFFET, 15
takecoins 1500
jump UnknownScript_0x56d0c
MenuDataHeader_0x56db0:
db $40 ; flags
db 02, 00 ; start coords
db 11, 17 ; end coords
dw MenuData2_0x56db8
db 1 ; default option
MenuData2_0x56db8:
db $80 ; flags
db 4 ; items
db "ABRA 100@"
db "CUBONE 800@"
db "WOBBUFFET 1500@"
db "CANCEL@"
PharmacistScript_0x56df1:
faceplayer
loadfont
writetext UnknownText_0x56f55
waitbutton
closetext
spriteface LAST_TALKED, LEFT
end
PokefanMScript_0x56dfc:
faceplayer
loadfont
writetext UnknownText_0x56f9e
waitbutton
closetext
spriteface GOLDENRODGAMECORNER_POKEFAN_M1, RIGHT
end
CooltrainerMScript_0x56e07:
faceplayer
loadfont
writetext UnknownText_0x56ff4
waitbutton
closetext
spriteface GOLDENRODGAMECORNER_COOLTRAINER_M, LEFT
end
PokefanFScript_0x56e12:
faceplayer
loadfont
writetext UnknownText_0x5702b
waitbutton
closetext
spriteface GOLDENRODGAMECORNER_POKEFAN_F, RIGHT
end
CooltrainerFScript_0x56e1d:
jumptextfaceplayer UnknownText_0x57097
GentlemanScript_0x56e20:
faceplayer
loadfont
writetext UnknownText_0x570b1
waitbutton
closetext
spriteface GOLDENRODGAMECORNER_GENTLEMAN, RIGHT
end
PokefanMScript_0x56e2b:
jumptextfaceplayer UnknownText_0x5710d
MapGoldenrodGameCornerSignpost30Script:
jumptext UnknownText_0x571af
MapGoldenrodGameCornerSignpost17Script:
random $6
if_equal $0, MapGoldenrodGameCornerSignpost7Script
refreshscreen $0
writebyte $0
special Special_SlotMachine
closetext
end
MapGoldenrodGameCornerSignpost7Script:
refreshscreen $0
writebyte $1
special Special_SlotMachine
closetext
end
MapGoldenrodGameCornerSignpost29Script:
refreshscreen $0
special Special_CardFlip
closetext
end
UnknownText_0x56e50:
text "Welcome!"
para "We exchange your"
line "game coins for"
cont "fabulous prizes!"
done
UnknownText_0x56e8b:
text "Which prize would"
line "you like?"
done
UnknownText_0x56ea8:
text_from_ram StringBuffer3
text "."
line "Is that right?"
done
UnknownText_0x56ebd:
text "Here you go!"
done
UnknownText_0x56ecb:
text "Sorry! You need"
line "more coins."
done
UnknownText_0x56ee8:
text "Sorry. You can't"
line "carry any more."
done
UnknownText_0x56f09:
text "OK. Please save"
line "your coins and"
cont "come again!"
done
UnknownText_0x56f35:
text "Oh? You don't have"
line "a COIN CASE."
done
UnknownText_0x56f55:
text "I always play this"
line "slot machine. It"
para "pays out more than"
line "others, I think."
done
UnknownText_0x56f9e:
text "I just love this"
line "new slot machine."
para "It's more of a"
line "challenge than the"
cont "ones in CELADON."
done
UnknownText_0x56ff4:
text "Life is a gamble."
line "I'm going to flip"
cont "cards till I drop!"
done
UnknownText_0x5702b:
text "Card flip…"
para "I prefer it over"
line "the slots because"
para "it's easier to"
line "figure the odds."
para "But the payout is"
line "much lower."
done
UnknownText_0x57097:
text "I won't quit until"
line "I win!"
done
UnknownText_0x570b1:
text "I taught BLIZZARD"
line "to my #MON."
para "It was hard to get"
line "enough coins for"
para "it, but it was"
line "worth it."
done
UnknownText_0x5710d:
text "I couldn't win at"
line "the slots, and I"
para "blew it on card"
line "flipping…"
para "I got so furious,"
line "I tossed out my"
para "COIN CASE in the"
line "UNDERGROUND."
done
UnknownText_0x5718a:
text "Wahahah! The coins"
line "keep rolling in!"
done
UnknownText_0x571af:
text "Someone left their"
line "drink."
para "It smells sweet."
done
GoldenrodGameCorner_MapEventHeader:
; filler
db 0, 0
.Warps:
db 2
warp_def $d, $2, 10, GOLDENROD_CITY
warp_def $d, $3, 10, GOLDENROD_CITY
.XYTriggers:
db 0
.Signposts:
db 31
signpost 6, 6, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 7, 6, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 8, 6, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 9, 6, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 10, 6, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 11, 6, SIGNPOST_RIGHT, MapGoldenrodGameCornerSignpost17Script
signpost 6, 7, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 7, 7, SIGNPOST_READ, MapGoldenrodGameCornerSignpost7Script
signpost 8, 7, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 9, 7, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 10, 7, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 11, 7, SIGNPOST_LEFT, MapGoldenrodGameCornerSignpost17Script
signpost 6, 12, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 7, 12, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 8, 12, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 9, 12, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 10, 12, SIGNPOST_READ, MapGoldenrodGameCornerSignpost17Script
signpost 11, 12, SIGNPOST_RIGHT, MapGoldenrodGameCornerSignpost17Script
signpost 6, 13, SIGNPOST_READ, MapGoldenrodGameCornerSignpost29Script
signpost 7, 13, SIGNPOST_READ, MapGoldenrodGameCornerSignpost29Script
signpost 8, 13, SIGNPOST_READ, MapGoldenrodGameCornerSignpost29Script
signpost 9, 13, SIGNPOST_READ, MapGoldenrodGameCornerSignpost29Script
signpost 10, 13, SIGNPOST_READ, MapGoldenrodGameCornerSignpost29Script
signpost 11, 13, SIGNPOST_LEFT, MapGoldenrodGameCornerSignpost29Script
signpost 6, 18, SIGNPOST_READ, MapGoldenrodGameCornerSignpost29Script
signpost 7, 18, SIGNPOST_READ, MapGoldenrodGameCornerSignpost29Script
signpost 8, 18, SIGNPOST_READ, MapGoldenrodGameCornerSignpost29Script
signpost 9, 18, SIGNPOST_READ, MapGoldenrodGameCornerSignpost29Script
signpost 10, 18, SIGNPOST_READ, MapGoldenrodGameCornerSignpost29Script
signpost 11, 18, SIGNPOST_RIGHT, MapGoldenrodGameCornerSignpost29Script
signpost 1, 12, SIGNPOST_LEFT, MapGoldenrodGameCornerSignpost30Script
.PersonEvents:
db 12
person_event SPRITE_CLERK, 2, 3, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, ClerkScript_0x56c25, -1
person_event SPRITE_RECEPTIONIST, 2, 16, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, ReceptionistScript_0x56c28, -1
person_event SPRITE_RECEPTIONIST, 2, 18, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, ReceptionistScript_0x56d01, -1
person_event SPRITE_PHARMACIST, 7, 8, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, 2, (1 << 3) | PAL_OW_BLUE, PERSONTYPE_SCRIPT, 0, PharmacistScript_0x56df1, -1
person_event SPRITE_PHARMACIST, 7, 8, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, 4, (1 << 3) | PAL_OW_BLUE, PERSONTYPE_SCRIPT, 0, PharmacistScript_0x56df1, -1
person_event SPRITE_POKEFAN_M, 10, 11, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, (1 << 3) | PAL_OW_BROWN, PERSONTYPE_SCRIPT, 0, PokefanMScript_0x56dfc, -1
person_event SPRITE_COOLTRAINER_M, 8, 14, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, (1 << 3) | PAL_OW_BLUE, PERSONTYPE_SCRIPT, 0, CooltrainerMScript_0x56e07, -1
person_event SPRITE_POKEFAN_F, 6, 17, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, PokefanFScript_0x56e12, -1
person_event SPRITE_COOLTRAINER_F, 3, 10, SPRITEMOVEDATA_WANDER, 1, 2, -1, -1, (1 << 3) | PAL_OW_GREEN, PERSONTYPE_SCRIPT, 0, CooltrainerFScript_0x56e1d, -1
person_event SPRITE_GENTLEMAN, 10, 5, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, (1 << 3) | PAL_OW_BLUE, PERSONTYPE_SCRIPT, 0, GentlemanScript_0x56e20, -1
person_event SPRITE_POKEFAN_M, 9, 2, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, (1 << 3) | PAL_OW_BROWN, PERSONTYPE_SCRIPT, 0, PokefanMScript_0x56e2b, -1
person_event SPRITE_POKEFAN_M, 10, 17, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, PokefanMScript_0x56c1a, EVENT_GOLDENROD_GAME_CORNER_MOVE_TUTOR