sample scripting from sgdq

inn
{
	let $price = args[0]
	let #price = to_int($price)
	let $s = inn_intro_1 + $price + inn_intro_2
	say $s
	show_yesno()
	if yesno_result == "no" then goto _no

	if gold < #price then goto _too_poor

	say inn_good_night
	let gold = gold - #price
	// TODO fade-out
	if hp >= maxhp then goto _fill_mp // not really needed
	let hp = maxhp
	label _fill_mp
	if mp >= maxmp then goto _full // not really needed
	let mp = maxmp
	label _full
	// TODO fade-in
	say inn_good_morning
	goto _end

	label _no
	say inn_no
	goto _end

	label _too_poor
	say inn_too_poor

	label _end
	pause()
}