	const_def 2
	const BLACK_POND_SHOP_CLERK
	const BLACK_POND_MERCHANT_WIFE_SHOP

BlackPondShop_MapScripts:
	db 2 ; scene_scripts
	scene_script .DummyScene        ; SCENE_BLACK_POND_SHOP_WIFE_NOTHING
	scene_script .WifeComeBackScene ; SCENE_BLACK_POND_SHOP_WIFE_BACK

        db 0 ; callbacks

.DummyScene:
	end

.WifeComeBackScene:
	moveobject BLACK_POND_MERCHANT_WIFE_SHOP, 1, 5
	appear BLACK_POND_MERCHANT_WIFE_SHOP
	turnobject BLACK_POND_MERCHANT_WIFE_SHOP, UP
	applymovement BLACK_POND_MERCHANT_WIFE_SHOP, .WifeComeBack
	pause 10
	turnobject BLACK_POND_MERCHANT_WIFE_SHOP, LEFT
	pause 40
	turnobject BLACK_POND_SHOP_CLERK, RIGHT
	showemote EMOTE_BOLT, BLACK_POND_MERCHANT_WIFE_SHOP, 30
	pause 30
	turnobject BLACK_POND_SHOP_CLERK, DOWN
	pause 10
	turnobject BLACK_POND_MERCHANT_WIFE_SHOP, DOWN
	setscene SCENE_BLACK_POND_SHOP_NOTHING
        setevent EVENT_BLACKPOND_PRICES_LOW
	end

.WifeComeBack:
	step RIGHT
	step UP
	jump_step UP
	step_end

BlackPondShopClerkScript:
	opentext
	checkevent EVENT_BLACKPOND_PRICES_LOW
	iftrue .LowPrices
	pokemart MARTTYPE_BLACK_POND_WTF, MART_BLACK_POND_CREEK
        setevent EVENT_BLACKPOND_PRICES_HIGH
	jump .done

.LowPrices:
        checkevent EVENT_GOT_EXP_SHARE
        iffalse .GiveExpShare
	pokemart MARTTYPE_STANDARD, MART_BLACK_POND_CREEK
	jump .done
.GiveExpShare:
	writetext .ExpShareText1
	waitbutton
	verbosegiveitem EXP_SHARE
        setevent EVENT_GOT_EXP_SHARE
	writetext .ExpShareText2
	waitbutton
	; FALLTHROUGH
.done:
	closetext
	end

.ExpShareText1:
	text "Oh, hi<…>"
	para "<…> Sup?"
	para "<…>"
	line "Listen, I'm sorry!"
	para "My previous prices"
	line "were way too high."
	para "Please accept this"
	line "gift along with"
	cont "my apologies."
	done

.ExpShareText2:
	text "Activate it once"
	line "and all #MONs"
	cont "in your party will"
	cont "receive XP after a"
	cont "fight."
	para "Cool uh?"
	done

BlackPondShopWifeScript:
	checkevent EVENT_GOT_EXP_SHARE
	iftrue .Shop
	opentext
	writetext .WifeTiredText
	waitbutton
	closetext
	end
.Shop:
	opentext
	pokemart MARTTYPE_STANDARD, MART_BLACK_POND_CREEK
	closetext
	end

.WifeTiredText:
	text "I'm sorry sweetie."
	para "My husband is not"
	line "a bad person."
	para "But he's an idiot!"
	done

BlackPondShop_MapEvents:
	db 0, 0 ; filler

	db 2 ; warp_events
	warp_event  1,  5, BLACK_POND_CREEK, 4
	warp_event  2,  5, BLACK_POND_CREEK, 4

	; coord_events
	db 0
	; bg_events
	db 0

	; object_events
	db 2
	object_event  1,  2, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackPondShopClerkScript, -1
	object_event  2,  2, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackPondShopWifeScript, EVENT_BLACKPOND_SHOP_WIFE_INSIDE_VISIBLE
