polishedcrystal optimized game corner TM script

CeladonGameCornerTMVendor:
	faceplayer
	opentext
	writetext CeladonPrizeRoom_PrizeVendorIntroText
	checkitem COIN_CASE
	sif false
		jumptext CeladonPrizeRoom_NoCoinCaseText
	writetext CeladonPrizeRoom_AskWhichPrizeText
CeladonPrizeRoom_tmcounterloop:
	special Special_DisplayCoinCaseBalance
	loadmenudata CeladonPrizeRoom_TMMenuDataHeader
	verticalmenu
	closewindow
	addvar -1
	sif >, 3
		jumptext CeladonPrizeRoom_ComeAgainText
	loadarray .TMPrizeArray
	readarray 0
	checktmhm -1
	sif true, then
		writetext CeladonPrizeRoom_AlreadyHaveTMText
	selse
		readarrayhalfword 1
		checkcoins -1
		sif =, 2, then
			writetext CeladonPrizeRoom_NotEnoughCoinsText
		selse
			readarray 0
			tmhmtotext -1, $0
			writetext CeladonPrizeRoom_ConfirmTMPurchaseText
			yesorno
			sif false, then
				jumptext CeladonPrizeRoom_ComeAgainText
			selse
				readarray 0
				givetmhm -1
				readarrayhalfword 1
				takecoins -1
				waitsfx
				playsound SFX_TRANSACTION
				writetext CeladonPrizeRoom_HereYouGoText
			sendif
		sendif
	sendif
	jump CeladonPrizeRoom_tmcounterloop

.TMPrizeArray:
	dbw TM_DOUBLE_TEAM, 3500
.TMPrizeArrayEntrySizeEnd:
	dbw TM_TOXIC, 5500
	dbw TM_GIGA_IMPACT, 7500

CeladonPrizeRoom_PrizeVendorIntroText:
	ctxt "Welcome!"

	para "We exchange your"
	line "coins for fabulous"
	cont "prizes!"
	sdone

CeladonPrizeRoom_AskWhichPrizeText:
	ctxt "Which prize would"
	line "you like?"
	done

CeladonPrizeRoom_ConfirmTMPurchaseText:
	ctxt "OK, so you wanted"
	line "<STRBF3>?"
	done

CeladonPrizeRoom_HereYouGoText:
	ctxt "Here you go!"
	sdone

CeladonPrizeRoom_AlreadyHaveTMText:
	ctxt "You already have"
	line "that TM."
	sdone

CeladonPrizeRoom_NotEnoughCoinsText:
	ctxt "You don't have"
	line "enough coins."
	sdone

CeladonPrizeRoom_ComeAgainText:
	ctxt "Oh. Please come"
	line "back with coins!"
	done

CeladonPrizeRoom_NoCoinCaseText:
	ctxt "Oh? You don't have"
	line "a Coin Case."
	done