pokecrystal-board/maps/GoldenrodGameCorner.asm

520 lines
12 KiB
NASM
Raw Normal View History

GoldenrodGameCorner_MapScriptHeader: ; 0x56bf4
; trigger count
db 0
; callback count
db 1
; callbacks
dbw 2, UnknownScript_0x56bf9
; 0x56bf9
UnknownScript_0x56bf9: ; 0x56bf9
2013-09-24 00:48:58 -07:00
checkevent $0044
iffalse UnknownScript_0x56c19
checkitem COIN_CASE
iffalse UnknownScript_0x56c0e
checkcode $b
if_equal WEDNESDAY, UnknownScript_0x56c11
if_equal SATURDAY, UnknownScript_0x56c11
UnknownScript_0x56c0e: ; 0x56c0e
appear $d
return
; 0x56c11
UnknownScript_0x56c11: ; 0x56c11
2013-09-24 00:51:42 -07:00
checkflag $005e
iftrue UnknownScript_0x56c19
disappear $d
UnknownScript_0x56c19: ;0x56c19
return
; 0x56c1a
2013-07-12 14:06:11 -07:00
PokefanMScript_0x56c1a: ; 0x56c1a
faceplayer
loadfont
2writetext UnknownText_0x5718a
closetext
loadmovesprites
spriteface $d, $3
end
; 0x56c25
2013-07-12 14:06:11 -07:00
ClerkScript_0x56c25: ; 0x56c25
jumpstd $0032
; 0x56c28
2013-07-12 14:06:11 -07:00
ReceptionistScript_0x56c28: ; 0x56c28
faceplayer
loadfont
2writetext UnknownText_0x56e50
closetext
checkitem COIN_CASE
iffalse UnknownScript_0x56cc3
2writetext UnknownText_0x56e8b
UnknownScript_0x56c36: ; 056c36
special $004f
2013-04-30 23:28:11 -07:00
loadmenudata MenuDataHeader_0x56cc9
interpretmenu2
writebackup
if_equal $1, UnknownScript_0x56c4d
if_equal $2, UnknownScript_0x56c69
if_equal $3, UnknownScript_0x56c85
2jump UnknownScript_0x56cbd
; 0x56c4d
UnknownScript_0x56c4d: ; 0x56c4d
checkcoins 5500
if_equal $2, UnknownScript_0x56cb1
itemtotext TM_25, $0
2call UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
giveitem TM_25, $1
iffalse UnknownScript_0x56cb7
takecoins 5500
2jump UnknownScript_0x56ca6
; 0x56c69
UnknownScript_0x56c69: ; 0x56c69
checkcoins 5500
if_equal $2, UnknownScript_0x56cb1
itemtotext TM_14, $0
2call UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
giveitem TM_14, $1
iffalse UnknownScript_0x56cb7
takecoins 5500
2jump UnknownScript_0x56ca6
; 0x56c85
UnknownScript_0x56c85: ; 0x56c85
checkcoins 5500
if_equal $2, UnknownScript_0x56cb1
itemtotext TM_38, $0
2call UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
giveitem TM_38, $1
iffalse UnknownScript_0x56cb7
takecoins 5500
2jump UnknownScript_0x56ca6
; 0x56ca1
UnknownScript_0x56ca1: ; 0x56ca1
2writetext UnknownText_0x56ea8
yesorno
end
; 0x56ca6
UnknownScript_0x56ca6: ; 0x56ca6
waitbutton
playsound $0022
2writetext UnknownText_0x56ebd
closetext
2jump UnknownScript_0x56c36
; 0x56cb1
UnknownScript_0x56cb1: ; 0x56cb1
2writetext UnknownText_0x56ecb
closetext
loadmovesprites
end
; 0x56cb7
UnknownScript_0x56cb7: ; 0x56cb7
2writetext UnknownText_0x56ee8
closetext
loadmovesprites
end
; 0x56cbd
UnknownScript_0x56cbd: ; 0x56cbd
2writetext UnknownText_0x56f09
closetext
loadmovesprites
end
; 0x56cc3
UnknownScript_0x56cc3: ; 0x56cc3
2writetext UnknownText_0x56f35
closetext
loadmovesprites
end
; 0x56cc9
2013-04-30 23:28:11 -07:00
MenuDataHeader_0x56cc9: ; 0x56cc9
db $40 ; flags
db 02, 00 ; start coords
db 11, 15 ; end coords
dw MenuData2_0x56cd1
db 1 ; default option
; 0x56cd1
MenuData2_0x56cd1: ; 0x56cd1
db $80 ; flags
db 4 ; items
db "TM25 5500@"
db "TM14 5500@"
db "TM38 5500@"
db "CANCEL@"
; 0x56d01
2013-07-12 14:06:11 -07:00
ReceptionistScript_0x56d01: ; 0x56d01
faceplayer
loadfont
2writetext UnknownText_0x56e50
closetext
checkitem COIN_CASE
iffalse UnknownScript_0x56cc3
UnknownScript_0x56d0c: ; 0x56d0c
2writetext UnknownText_0x56e8b
special $004f
2013-04-30 23:28:11 -07:00
loadmenudata MenuDataHeader_0x56db0
interpretmenu2
writebackup
if_equal $1, UnknownScript_0x56d26
if_equal $2, UnknownScript_0x56d54
if_equal $3, UnknownScript_0x56d82
2jump UnknownScript_0x56cbd
; 0x56d26
UnknownScript_0x56d26: ; 0x56d26
checkcoins 100
if_equal $2, UnknownScript_0x56cb1
checkcode $1
if_equal $6, UnknownScript_0x56cb7
pokenamemem ABRA, $0
2call UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
waitbutton
playsound $0022
2writetext UnknownText_0x56ebd
closetext
writebyte ABRA
special $0039
givepoke ABRA, 5, 0, 0
takecoins 100
2jump UnknownScript_0x56d0c
; 0x56d54
UnknownScript_0x56d54: ; 0x56d54
checkcoins 800
if_equal $2, UnknownScript_0x56cb1
checkcode $1
if_equal $6, UnknownScript_0x56cb7
pokenamemem CUBONE, $0
2call UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
waitbutton
playsound $0022
2writetext UnknownText_0x56ebd
closetext
writebyte CUBONE
special $0039
givepoke CUBONE, 15, 0, 0
takecoins 800
2jump UnknownScript_0x56d0c
; 0x56d82
UnknownScript_0x56d82: ; 0x56d82
checkcoins 1500
if_equal $2, UnknownScript_0x56cb1
checkcode $1
if_equal $6, UnknownScript_0x56cb7
pokenamemem WOBBUFFET, $0
2call UnknownScript_0x56ca1
iffalse UnknownScript_0x56cbd
waitbutton
playsound $0022
2writetext UnknownText_0x56ebd
closetext
writebyte WOBBUFFET
special $0039
givepoke WOBBUFFET, 15, 0, 0
takecoins 1500
2jump UnknownScript_0x56d0c
; 0x56db0
2013-04-30 23:28:11 -07:00
MenuDataHeader_0x56db0: ; 0x56db0
db $40 ; flags
db 02, 00 ; start coords
db 11, 17 ; end coords
dw MenuData2_0x56db8
db 1 ; default option
; 0x56db8
MenuData2_0x56db8: ; 0x56db8
db $80 ; flags
db 4 ; items
db "ABRA 100@"
db "CUBONE 800@"
db "WOBBUFFET 1500@"
db "CANCEL@"
; 0x56df1
2013-07-12 14:06:11 -07:00
PharmacistScript_0x56df1: ; 0x56df1
faceplayer
loadfont
2writetext UnknownText_0x56f55
closetext
loadmovesprites
spriteface $fe, $2
end
; 0x56dfc
2013-07-12 14:06:11 -07:00
PokefanMScript_0x56dfc: ; 0x56dfc
faceplayer
loadfont
2writetext UnknownText_0x56f9e
closetext
loadmovesprites
spriteface $7, $3
end
; 0x56e07
2013-07-12 14:06:11 -07:00
CooltrainerMScript_0x56e07: ; 0x56e07
faceplayer
loadfont
2writetext UnknownText_0x56ff4
closetext
loadmovesprites
spriteface $8, $2
end
; 0x56e12
2013-07-12 14:06:11 -07:00
PokefanFScript_0x56e12: ; 0x56e12
faceplayer
loadfont
2writetext UnknownText_0x5702b
closetext
loadmovesprites
spriteface $9, $3
end
; 0x56e1d
2013-07-12 14:06:11 -07:00
CooltrainerFScript_0x56e1d: ; 0x56e1d
jumptextfaceplayer UnknownText_0x57097
; 0x56e20
2013-07-12 14:06:11 -07:00
GentlemanScript_0x56e20: ; 0x56e20
faceplayer
loadfont
2writetext UnknownText_0x570b1
closetext
loadmovesprites
spriteface $b, $3
end
; 0x56e2b
2013-07-12 14:06:11 -07:00
PokefanMScript_0x56e2b: ; 0x56e2b
jumptextfaceplayer UnknownText_0x5710d
; 0x56e2e
MapGoldenrodGameCornerSignpost30Script: ; 0x56e2e
jumptext UnknownText_0x571af
; 0x56e31
MapGoldenrodGameCornerSignpost17Script: ; 0x56e31
random $6
if_equal $0, MapGoldenrodGameCornerSignpost7Script
refreshscreen $0
writebyte $0
special $002a
loadmovesprites
end
; 0x56e40
MapGoldenrodGameCornerSignpost7Script: ; 0x56e40
refreshscreen $0
writebyte $1
special $002a
loadmovesprites
end
; 0x56e49
MapGoldenrodGameCornerSignpost29Script: ; 0x56e49
refreshscreen $0
special $002b
loadmovesprites
end
; 0x56e50
UnknownText_0x56e50: ; 0x56e50
db $0, "Welcome!", $51
db "We exchange your", $4f
db "game coins for", $55
db "fabulous prizes!", $57
; 0x56e8b
UnknownText_0x56e8b: ; 0x56e8b
db $0, "Which prize would", $4f
db "you like?", $57
; 0x56ea8
UnknownText_0x56ea8: ; 0x56ea8
text_from_ram $d099
db $0, ".", $4f
db "Is that right?", $57
; 0x56ebd
UnknownText_0x56ebd: ; 0x56ebd
db $0, "Here you go!", $57
; 0x56ecb
UnknownText_0x56ecb: ; 0x56ecb
db $0, "Sorry! You need", $4f
db "more coins.", $57
; 0x56ee8
UnknownText_0x56ee8: ; 0x56ee8
db $0, "Sorry. You can't", $4f
db "carry any more.", $57
; 0x56f09
UnknownText_0x56f09: ; 0x56f09
db $0, "OK. Please save", $4f
db "your coins and", $55
db "come again!", $57
; 0x56f35
UnknownText_0x56f35: ; 0x56f35
db $0, "Oh? You don't have", $4f
db "a COIN CASE.", $57
; 0x56f55
UnknownText_0x56f55: ; 0x56f55
db $0, "I always play this", $4f
db "slot machine. It", $51
db "pays out more than", $4f
db "others, I think.", $57
; 0x56f9e
UnknownText_0x56f9e: ; 0x56f9e
db $0, "I just love this", $4f
db "new slot machine.", $51
db "It's more of a", $4f
db "challenge than the", $55
db "ones in CELADON.", $57
; 0x56ff4
UnknownText_0x56ff4: ; 0x56ff4
db $0, "Life is a gamble.", $4f
db "I'm going to flip", $55
db "cards till I drop!", $57
; 0x5702b
UnknownText_0x5702b: ; 0x5702b
db $0, "Card flip…", $51
db "I prefer it over", $4f
db "the slots because", $51
db "it's easier to", $4f
db "figure the odds.", $51
db "But the payout is", $4f
db "much lower.", $57
; 0x57097
UnknownText_0x57097: ; 0x57097
db $0, "I won't quit until", $4f
db "I win!", $57
; 0x570b1
UnknownText_0x570b1: ; 0x570b1
db $0, "I taught BLIZZARD", $4f
db "to my #MON.", $51
db "It was hard to get", $4f
db "enough coins for", $51
db "it, but it was", $4f
db "worth it.", $57
; 0x5710d
UnknownText_0x5710d: ; 0x5710d
db $0, "I couldn't win at", $4f
db "the slots, and I", $51
db "blew it on card", $4f
db "flipping…", $51
db "I got so furious,", $4f
db "I tossed out my", $51
db "COIN CASE in the", $4f
db "UNDERGROUND.", $57
; 0x5718a
UnknownText_0x5718a: ; 0x5718a
db $0, "Wahahah! The coins", $4f
db "keep rolling in!", $57
; 0x571af
UnknownText_0x571af: ; 0x571af
db $0, "Someone left their", $4f
db "drink.", $51
db "It smells sweet.", $57
; 0x571db
GoldenrodGameCorner_MapEventHeader: ; 0x571db
; filler
db 0, 0
; warps
db 2
warp_def $d, $2, 10, GROUP_GOLDENROD_CITY, MAP_GOLDENROD_CITY
warp_def $d, $3, 10, GROUP_GOLDENROD_CITY, MAP_GOLDENROD_CITY
; xy triggers
db 0
; signposts
db 31
signpost 6, 6, $0, MapGoldenrodGameCornerSignpost17Script
signpost 7, 6, $0, MapGoldenrodGameCornerSignpost17Script
signpost 8, 6, $0, MapGoldenrodGameCornerSignpost17Script
signpost 9, 6, $0, MapGoldenrodGameCornerSignpost17Script
signpost 10, 6, $0, MapGoldenrodGameCornerSignpost17Script
signpost 11, 6, $3, MapGoldenrodGameCornerSignpost17Script
signpost 6, 7, $0, MapGoldenrodGameCornerSignpost17Script
signpost 7, 7, $0, MapGoldenrodGameCornerSignpost7Script
signpost 8, 7, $0, MapGoldenrodGameCornerSignpost17Script
signpost 9, 7, $0, MapGoldenrodGameCornerSignpost17Script
signpost 10, 7, $0, MapGoldenrodGameCornerSignpost17Script
signpost 11, 7, $4, MapGoldenrodGameCornerSignpost17Script
signpost 6, 12, $0, MapGoldenrodGameCornerSignpost17Script
signpost 7, 12, $0, MapGoldenrodGameCornerSignpost17Script
signpost 8, 12, $0, MapGoldenrodGameCornerSignpost17Script
signpost 9, 12, $0, MapGoldenrodGameCornerSignpost17Script
signpost 10, 12, $0, MapGoldenrodGameCornerSignpost17Script
signpost 11, 12, $3, MapGoldenrodGameCornerSignpost17Script
signpost 6, 13, $0, MapGoldenrodGameCornerSignpost29Script
signpost 7, 13, $0, MapGoldenrodGameCornerSignpost29Script
signpost 8, 13, $0, MapGoldenrodGameCornerSignpost29Script
signpost 9, 13, $0, MapGoldenrodGameCornerSignpost29Script
signpost 10, 13, $0, MapGoldenrodGameCornerSignpost29Script
signpost 11, 13, $4, MapGoldenrodGameCornerSignpost29Script
signpost 6, 18, $0, MapGoldenrodGameCornerSignpost29Script
signpost 7, 18, $0, MapGoldenrodGameCornerSignpost29Script
signpost 8, 18, $0, MapGoldenrodGameCornerSignpost29Script
signpost 9, 18, $0, MapGoldenrodGameCornerSignpost29Script
signpost 10, 18, $0, MapGoldenrodGameCornerSignpost29Script
signpost 11, 18, $3, MapGoldenrodGameCornerSignpost29Script
signpost 1, 12, $4, MapGoldenrodGameCornerSignpost30Script
; people-events
db 12
2013-07-12 14:06:11 -07:00
person_event SPRITE_CLERK, 6, 7, $6, $0, 255, 255, $80, 0, ClerkScript_0x56c25, $ffff
person_event SPRITE_RECEPTIONIST, 6, 20, $6, $0, 255, 255, $80, 0, ReceptionistScript_0x56c28, $ffff
person_event SPRITE_RECEPTIONIST, 6, 22, $6, $0, 255, 255, $80, 0, ReceptionistScript_0x56d01, $ffff
person_event SPRITE_PHARMACIST, 11, 12, $8, $0, 255, 2, $90, 0, PharmacistScript_0x56df1, $ffff
person_event SPRITE_PHARMACIST, 11, 12, $8, $0, 255, 4, $90, 0, PharmacistScript_0x56df1, $ffff
person_event SPRITE_POKEFAN_M, 14, 15, $9, $0, 255, 255, $b0, 0, PokefanMScript_0x56dfc, $ffff
person_event SPRITE_COOLTRAINER_M, 12, 18, $8, $0, 255, 255, $90, 0, CooltrainerMScript_0x56e07, $ffff
person_event SPRITE_POKEFAN_F, 10, 21, $9, $0, 255, 255, $80, 0, PokefanFScript_0x56e12, $ffff
person_event SPRITE_COOLTRAINER_F, 7, 14, $2, $12, 255, 255, $a0, 0, CooltrainerFScript_0x56e1d, $ffff
person_event SPRITE_GENTLEMAN, 14, 9, $9, $0, 255, 255, $90, 0, GentlemanScript_0x56e20, $ffff
person_event SPRITE_POKEFAN_M, 13, 6, $2, $11, 255, 255, $b0, 0, PokefanMScript_0x56e2b, $ffff
person_event SPRITE_POKEFAN_M, 14, 21, $9, $0, 255, 255, $80, 0, PokefanMScript_0x56c1a, $076b
; 0x57322