backroom.lic

=begin
	Backroom access script
	Because I'm sick of people asking for it...
	I'm also sick of doing a command line script for it
	So... directions are...    ;backroom #    where # is the # of the item you want to buy
	(Item should be least expensive item in the shop)
	Must start script with empty hands.
	Must have coins on you to afford 100 of the item you're intending to purchase to get backroom access
	If script fails, you can enter a second script variable to purchase a specific number of the item...
	Secondary usage is...   ;backroom <item number>  <amount to buy>   (;backroom 1 25) to buy 25 of item #1
	author: Gibreficul
	tags: backroom, utility, purchase
=end

if script.vars.empty?
	echo "Please enter an item number to purchase"
	echo "SCRIPT EXITING"
	exit
elsif GameObj.right_hand.name !~ /empty/i
	echo "RIGHT HAND FULL, PLEASE CLEAR IT"
	echo "SCRIPT EXITING"
	exit
elsif GameObj.left_hand.name !~ /empty/i
	echo "LEFT HAND FULL, PLEASE CLEAR IT"
	echo "SCRIPT EXITING"
	exit
else
	num = script.vars[1]
	if script.vars[2]
		repetitions = script.vars[2].to_i
	else
		repetitions = 100
	end
	iterations = 0
	repetitions.times{
		put "order #{num}"
		put "buy"
		t = Time.now
		wait_until{GameObj.right_hand.name !~ /empty/i || Time.now > t + 5}
		if Time.now > t + 5
			echo "TIMEOUT, YOU MIGHT BE OUT OF COINS, OR TOO ENCUMBERED TO GET THE ITEM"
			echo "SCRIPT BOUGHT #{iterations} ITEMS"
			echo "SCRIPT EXITING"
			exit
		else
			put "Drop right"
			wait_until{GameObj.right_hand.name =~ /empty/i}
			iterations += 1
		end
	}
	fput "order"
end