pokecrystal-board/maps/GoldenrodGameCorner.asm

GoldenrodGameCorner_MapScriptHeader: ; 0x56bf4
	; trigger count
	db 0

	; callback count
	db 1

	; callbacks

	dbw 2, UnknownScript_0x56bf9
; 0x56bf9

UnknownScript_0x56bf9: ; 0x56bf9
	checkevent EVENT_BEAT_ELITE_FOUR
	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
	checkflag ENGINE_5E
	iftrue UnknownScript_0x56c19
	disappear $d
UnknownScript_0x56c19: ;0x56c19
	return
; 0x56c1a

PokefanMScript_0x56c1a: ; 0x56c1a
	faceplayer
	loadfont
	writetext UnknownText_0x5718a
	closetext
	loadmovesprites
	spriteface $d, RIGHT
	end
; 0x56c25

ClerkScript_0x56c25: ; 0x56c25
	jumpstd $0032
; 0x56c28

ReceptionistScript_0x56c28: ; 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
; 0x56c4d

UnknownScript_0x56c4d: ; 0x56c4d
	checkcoins 5500
	if_equal $2, UnknownScript_0x56cb1
	itemtotext TM_25, $0
	scall UnknownScript_0x56ca1
	iffalse UnknownScript_0x56cbd
	giveitem TM_25, $1
	iffalse UnknownScript_0x56cb7
	takecoins 5500
	jump UnknownScript_0x56ca6
; 0x56c69

UnknownScript_0x56c69: ; 0x56c69
	checkcoins 5500
	if_equal $2, UnknownScript_0x56cb1
	itemtotext TM_14, $0
	scall UnknownScript_0x56ca1
	iffalse UnknownScript_0x56cbd
	giveitem TM_14, $1
	iffalse UnknownScript_0x56cb7
	takecoins 5500
	jump UnknownScript_0x56ca6
; 0x56c85

UnknownScript_0x56c85: ; 0x56c85
	checkcoins 5500
	if_equal $2, UnknownScript_0x56cb1
	itemtotext TM_38, $0
	scall UnknownScript_0x56ca1
	iffalse UnknownScript_0x56cbd
	giveitem TM_38, $1
	iffalse UnknownScript_0x56cb7
	takecoins 5500
	jump UnknownScript_0x56ca6
; 0x56ca1

UnknownScript_0x56ca1: ; 0x56ca1
	writetext UnknownText_0x56ea8
	yesorno
	end
; 0x56ca6

UnknownScript_0x56ca6: ; 0x56ca6
	waitbutton
	playsound SFX_TRANSACTION
	writetext UnknownText_0x56ebd
	closetext
	jump UnknownScript_0x56c36
; 0x56cb1

UnknownScript_0x56cb1: ; 0x56cb1
	writetext UnknownText_0x56ecb
	closetext
	loadmovesprites
	end
; 0x56cb7

UnknownScript_0x56cb7: ; 0x56cb7
	writetext UnknownText_0x56ee8
	closetext
	loadmovesprites
	end
; 0x56cbd

UnknownScript_0x56cbd: ; 0x56cbd
	writetext UnknownText_0x56f09
	closetext
	loadmovesprites
	end
; 0x56cc3

UnknownScript_0x56cc3: ; 0x56cc3
	writetext UnknownText_0x56f35
	closetext
	loadmovesprites
	end
; 0x56cc9


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


ReceptionistScript_0x56d01: ; 0x56d01
	faceplayer
	loadfont
	writetext UnknownText_0x56e50
	closetext
	checkitem COIN_CASE
	iffalse UnknownScript_0x56cc3
UnknownScript_0x56d0c: ; 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
; 0x56d26

UnknownScript_0x56d26: ; 0x56d26
	checkcoins 100
	if_equal $2, UnknownScript_0x56cb1
	checkcode $1
	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
; 0x56d54

UnknownScript_0x56d54: ; 0x56d54
	checkcoins 800
	if_equal $2, UnknownScript_0x56cb1
	checkcode $1
	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
; 0x56d82

UnknownScript_0x56d82: ; 0x56d82
	checkcoins 1500
	if_equal $2, UnknownScript_0x56cb1
	checkcode $1
	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
; 0x56db0


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


PharmacistScript_0x56df1: ; 0x56df1
	faceplayer
	loadfont
	writetext UnknownText_0x56f55
	closetext
	loadmovesprites
	spriteface $fe, LEFT
	end
; 0x56dfc

PokefanMScript_0x56dfc: ; 0x56dfc
	faceplayer
	loadfont
	writetext UnknownText_0x56f9e
	closetext
	loadmovesprites
	spriteface $7, RIGHT
	end
; 0x56e07

CooltrainerMScript_0x56e07: ; 0x56e07
	faceplayer
	loadfont
	writetext UnknownText_0x56ff4
	closetext
	loadmovesprites
	spriteface $8, LEFT
	end
; 0x56e12

PokefanFScript_0x56e12: ; 0x56e12
	faceplayer
	loadfont
	writetext UnknownText_0x5702b
	closetext
	loadmovesprites
	spriteface $9, RIGHT
	end
; 0x56e1d

CooltrainerFScript_0x56e1d: ; 0x56e1d
	jumptextfaceplayer UnknownText_0x57097
; 0x56e20

GentlemanScript_0x56e20: ; 0x56e20
	faceplayer
	loadfont
	writetext UnknownText_0x570b1
	closetext
	loadmovesprites
	spriteface $b, RIGHT
	end
; 0x56e2b

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 Functionc373
	loadmovesprites
	end
; 0x56e40

MapGoldenrodGameCornerSignpost7Script: ; 0x56e40
	refreshscreen $0
	writebyte $1
	special Functionc373
	loadmovesprites
	end
; 0x56e49

MapGoldenrodGameCornerSignpost29Script: ; 0x56e49
	refreshscreen $0
	special Functionc380
	loadmovesprites
	end
; 0x56e50

UnknownText_0x56e50: ; 0x56e50
	text "Welcome!"

	para "We exchange your"
	line "game coins for"
	cont "fabulous prizes!"
	done
; 0x56e8b

UnknownText_0x56e8b: ; 0x56e8b
	text "Which prize would"
	line "you like?"
	done
; 0x56ea8

UnknownText_0x56ea8: ; 0x56ea8
	text_from_ram StringBuffer3
	text "."
	line "Is that right?"
	done
; 0x56ebd

UnknownText_0x56ebd: ; 0x56ebd
	text "Here you go!"
	done
; 0x56ecb

UnknownText_0x56ecb: ; 0x56ecb
	text "Sorry! You need"
	line "more coins."
	done
; 0x56ee8

UnknownText_0x56ee8: ; 0x56ee8
	text "Sorry. You can't"
	line "carry any more."
	done
; 0x56f09

UnknownText_0x56f09: ; 0x56f09
	text "OK. Please save"
	line "your coins and"
	cont "come again!"
	done
; 0x56f35

UnknownText_0x56f35: ; 0x56f35
	text "Oh? You don't have"
	line "a COIN CASE."
	done
; 0x56f55

UnknownText_0x56f55: ; 0x56f55
	text "I always play this"
	line "slot machine. It"

	para "pays out more than"
	line "others, I think."
	done
; 0x56f9e

UnknownText_0x56f9e: ; 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
; 0x56ff4

UnknownText_0x56ff4: ; 0x56ff4
	text "Life is a gamble."
	line "I'm going to flip"
	cont "cards till I drop!"
	done
; 0x5702b

UnknownText_0x5702b: ; 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
; 0x57097

UnknownText_0x57097: ; 0x57097
	text "I won't quit until"
	line "I win!"
	done
; 0x570b1

UnknownText_0x570b1: ; 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
; 0x5710d

UnknownText_0x5710d: ; 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
; 0x5718a

UnknownText_0x5718a: ; 0x5718a
	text "Wahahah! The coins"
	line "keep rolling in!"
	done
; 0x571af

UnknownText_0x571af: ; 0x571af
	text "Someone left their"
	line "drink."

	para "It smells sweet."
	done
; 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
	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