pokecrystal-board/maps/GoldenrodGameCorner.asm

GoldenrodGameCorner_MapScriptHeader:
	; trigger count
	db 0

	; callback count
	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 $d
	return

UnknownScript_0x56c11:
	checkflag ENGINE_5E
	iftrue UnknownScript_0x56c19
	disappear $d
UnknownScript_0x56c19: ;0x56c19
	return

PokefanMScript_0x56c1a:
	faceplayer
	loadfont
	writetext UnknownText_0x5718a
	closetext
	loadmovesprites
	spriteface $d, RIGHT
	end

ClerkScript_0x56c25:
	jumpstd $0032

ReceptionistScript_0x56c28:
	faceplayer
	loadfont
	writetext UnknownText_0x56e50
	closetext
	checkitem COIN_CASE
	iffalse UnknownScript_0x56cc3
	writetext UnknownText_0x56e8b
UnknownScript_0x56c36: ; 056c36
	special Function24b25
	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, $1
	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, $1
	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, $1
	iffalse UnknownScript_0x56cb7
	takecoins 5500
	jump UnknownScript_0x56ca6

UnknownScript_0x56ca1:
	writetext UnknownText_0x56ea8
	yesorno
	end

UnknownScript_0x56ca6:
	waitbutton
	playsound SFX_TRANSACTION
	writetext UnknownText_0x56ebd
	closetext
	jump UnknownScript_0x56c36

UnknownScript_0x56cb1:
	writetext UnknownText_0x56ecb
	closetext
	loadmovesprites
	end

UnknownScript_0x56cb7:
	writetext UnknownText_0x56ee8
	closetext
	loadmovesprites
	end

UnknownScript_0x56cbd:
	writetext UnknownText_0x56f09
	closetext
	loadmovesprites
	end

UnknownScript_0x56cc3:
	writetext UnknownText_0x56f35
	closetext
	loadmovesprites
	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
	closetext
	checkitem COIN_CASE
	iffalse UnknownScript_0x56cc3
UnknownScript_0x56d0c:
	writetext UnknownText_0x56e8b
	special Function24b25
	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
	waitbutton
	playsound SFX_TRANSACTION
	writetext UnknownText_0x56ebd
	closetext
	writebyte ABRA
	special Functionc230
	givepoke ABRA, 5, 0, 0
	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
	waitbutton
	playsound SFX_TRANSACTION
	writetext UnknownText_0x56ebd
	closetext
	writebyte CUBONE
	special Functionc230
	givepoke CUBONE, 15, 0, 0
	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
	waitbutton
	playsound SFX_TRANSACTION
	writetext UnknownText_0x56ebd
	closetext
	writebyte WOBBUFFET
	special Functionc230
	givepoke WOBBUFFET, 15, 0, 0
	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
	closetext
	loadmovesprites
	spriteface $fe, LEFT
	end

PokefanMScript_0x56dfc:
	faceplayer
	loadfont
	writetext UnknownText_0x56f9e
	closetext
	loadmovesprites
	spriteface $7, RIGHT
	end

CooltrainerMScript_0x56e07:
	faceplayer
	loadfont
	writetext UnknownText_0x56ff4
	closetext
	loadmovesprites
	spriteface $8, LEFT
	end

PokefanFScript_0x56e12:
	faceplayer
	loadfont
	writetext UnknownText_0x5702b
	closetext
	loadmovesprites
	spriteface $9, RIGHT
	end

CooltrainerFScript_0x56e1d:
	jumptextfaceplayer UnknownText_0x57097

GentlemanScript_0x56e20:
	faceplayer
	loadfont
	writetext UnknownText_0x570b1
	closetext
	loadmovesprites
	spriteface $b, RIGHT
	end

PokefanMScript_0x56e2b:
	jumptextfaceplayer UnknownText_0x5710d

MapGoldenrodGameCornerSignpost30Script:
	jumptext UnknownText_0x571af

MapGoldenrodGameCornerSignpost17Script:
	random $6
	if_equal $0, MapGoldenrodGameCornerSignpost7Script
	refreshscreen $0
	writebyte $0
	special Functionc373
	loadmovesprites
	end

MapGoldenrodGameCornerSignpost7Script:
	refreshscreen $0
	writebyte $1
	special Functionc373
	loadmovesprites
	end

MapGoldenrodGameCornerSignpost29Script:
	refreshscreen $0
	special Functionc380
	loadmovesprites
	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, 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
	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