DEBUG 10

var RETURN_ROOM 0
var FINISH 0
var AIN_CONTRACTS 0
var HUM_TYPE jig
var CONTAINTER tote
var BALANCE 0
var LOC 0
var RECEIVE 0
VAR PRICE 0
VAR DELIVER 0
VAR SALES 0
var PERCENTAGE 0
var POUCH red
var CSV C:\Users\Matt\Desktop\ContractCSV.csv
var VERBOSE C:\Users\Matt\Desktop\Contract.txt

#LOCATION ACTIONS
action var LOC RAVEN when eval $zoneid = 123
action var LOC AIN when eval $zoneid = 114
action var LOC HIB when eval $zoneid = 116
action var LOC BOAR when eval $zoneid = 127

#SCRIPT ACTIONS
action var FINISH 1 when finishup
action send remo feed;send give car;send wear feed when These animals will need to be fed soon
action send stand;send ret when eval $standing=0
action math BALANCE subtract %PRICE when You count out some coins, and the clerk notes that your dues are settled.
action math BALANCE add $1 when handing you your payment of (\d+) (Dokoras|Lirums|Kronars).

# Emergency Failure Actions
action goto EXIT when \[You're in death's grasp
action goto EXIT when \[You're dying
action goto EXIT when You feel yourself falling
action goto EXIT when You feel like you're dying
action goto EXIT when \[You're near death
action goto EXIT when You're unconscious
action goto EXIT WHEN DEAD>
action goto EXIT when eval $dead = 1
action send quit;send #script abort when fire at you
action send quit;send #script abort when target you
action send quit;send #script abort when someone snipes at you
action goto EXIT when \[You're in very bad shape
action goto EXIT when \[You're in extremely bad shape
action goto EXIT when \[You're smashed up
action goto EXIT when \[You're terribly wounded
action goto EXIT when ^You are a ghost
action goto EXIT when ^You are dead
action goto LEAVE when \[You're very beat up
action goto LEAVE when \[You're extremely beat up
action goto LEAVE when \[You're badly hurt
action goto LEAVE when \[You're in bad shape

#INITIAL SET OF LOC

if $zoneid = 123 then var LOC RAVEN
if $zoneid = 114 then var LOC AIN
if $zoneid = 116 then var LOC HIB
if $zoneid = 127 then var LOC BOAR

CHECK_FOR_AIN_CONTRACT:
	match GOT_TWO_AIN You tap a
	put tap my second Ain Contract
	matchwait 1
	match GOT_ONE_AIN You tap a
	put tap my Ain Contract
	matchwait 1
	goto START_POINT

GOT_TWO_AIN:
	math AIN_CONTRACTS set 2
	goto GO_TO_AIN

GOT_ONE_AIN:
	math AIN_CONTRACTS set 1
	goto START_POINT

START_POINT:
	if "%1" = "hib" then goto HIB_GO_IN2
	if "%1" = "boar" then goto BOAR_GO_IN
	if "%1" = "raven" then goto RAVEN_GO_IN
	if "%1" = "ain" then goto AIN_GO_IN
	if "%1" = "toain" then goto GO_TO_AIN

#MAIN SECTION
AT_HIB:

	put #var caravan 0
	gosub HIT_BANK
	if $roomid <> 16 then
	{
		put #var caravan 1
		gosub go_room 16
	}
	put #var caravan 0
HIB_GO_IN:
	action goto HIB_TO_BOAR from Hibarnhvidar
	pause 2
	put look on car
	pause 2
	action remove when from Hibarnhvidar
	put go old brewery
	gosub CONTRACT_CHECK
	move out
	put tell car to follow
	put #var caravan 1
	if %GO_TO_AIN = 1 then goto GO_TO_AIN

HIB_TO_BOAR:
	put #statusbar 9 ** HIB TO BOAR **
	put tell car to go fast
	gosub go_room 217
	put for grass
	pause 1
	pause 1
	put put grass in feed
	put for grass
	pause 1
	pause 1
	put put grass in feed
	gosub go_room 6
	put tell caravan to lead to boar clan
	put app my %POUCH pouch
	pause 3
	pause 1
	waiteval $roomid = 82
	put tell car to follow
	put tell car to go fast
	gosub go_room 103
	gosub go_room 19
	pause 3
BOAR_GO_IN:
	action goto BOAR_TO_HIB when from Boar Clan
	pause 2
	put look on car
	pause 2
	action remove from Boar Clan
	put tell car to wait
	put #var caravan 0
	put go door
	put go door
	gosub CONTRACT_CHECK
	move out
	put tell car to follow
	put #var caravan 1
	if %GO_TO_AIN = 1 then goto GO_TO_AIN

BOAR_TO_HIB:
	gosub go_room 510
	put for grass
	pause 1
	pause 1
	put put grass in feed
	put for grass
	pause 1
	pause 1
	put put grass in feed
	gosub go_room 1
	put tell car to lead to hib
	put app my %POUCH pouch
	pause 3
	pause 1
	waiteval $roomid = 6
	put tell car to follow
	put tell car to go fast
	gosub go_room 49
	gosub go_room 16
HIB_GO_IN2:
	action goto HIB_TO_RAVEN when from Hibarnhvidar
	pause 2
	put look on car
	pause 2
	action remove when from Hibarnhvidar
	put go old brewery
	gosub CONTRACT_CHECK
	move out
	put tell car to follow
	put #var caravan 1
	if %GO_TO_AIN = 1 then goto GO_TO_AIN
HIB_TO_RAVEN:

	gosub go_room 3
	gosub go_room 43
	put tell car to lead to raven
	put app my %POUCH pouch
	pause 3
	pause 1
	waiteval $roomid = 65
	put tell car to follow
	put tell car to go fast
	put for grass
	pause 1
	pause 1
	put put grass in feed
	put for grass
	pause 1
	pause 1
	put put grass in feed
	gosub go_room 130
RAVEN_GO_IN:
	action goto RAVEN_TO_HIB when from Raven's Point
	pause 2
	put look on car
	pause 2
	action remove when from Raven's Point
	put go outpost
	gosub CONTRACT_CHECK
	put go door
	put tell car to follow
	put #var caravan 1
	if %GO_TO_AIN = 1 then goto GO_TO_AIN
RAVEN_TO_HIB:

	gosub go_room 61
	put tell car to lead to hib
	put app my %POUCH pouch
	pause 3
	pause 1
	waiteval $roomid = 42
	put tell car to follow
	put tell car to go fast
	gosub go_room 169
	goto BEGIN

GO_TO_AIN:
	math GO_TO_AIN set 1
	put $var caravan 1
	if $zoneid = 127 then
	{
		gosub go_room 510
		put for grass
		pause 1
		pause 1
		put put grass in feed
		put for grass
		pause 1
		pause 1
		put put grass in feed
		gosub go_room 1
		put tell car to lead to hib
		put app my %POUCH pouch
		pause 3
		pause 1
		waiteval $roomid = 6
		put tell car to follow
		put tell car to go fast
		gosub go_room 49
	}
	pause 2
	if $zoneid = 116 then gosub go_room 3
	gosub go_room 174
	waitforre (?:comes to an easy landing|"Two roisaen|"One roisaen|"Last call for)
	put go ferry
	waitfor You come to a very soft stop
	move go dock
	waitfor , following you.
	move n
	waitfor , following you.
	move nw
	waitfor , following you.
	move u
	waitfor , following you.
AIN_GO_IN:
	put #var caravan 0
	put go building
	gosub CONTRACT_CHECK
	move out
	put #var caravan 1
	move d
	waitfor , following you.
	move se
	waitfor , following you.
	move d
	waitfor , following you.
	waitforre (?:comes to an easy landing|"Two roisaen|"One roisaen|"Last call for)
	put go ferry
	waitfor You come to a very soft stop
	move go dock
	waitfor , following you.
	move w
	waitfor , following you.
	gosub go_room 169
	gosub go_room 16
	goto BEGIN


#GOSUB SECTION
HIT_BANK:
	put #var caravan 0
	var RETURN_ROOM $roomid
	put tell car to wait
	gosub go_room 227
	put dep all
	put with 100 silver
	gosub go_room %RETURN_ROOM
	return

CONTRACT_CHECK:
	put stow left
	put stow right
	put get %LOC contract
	pause 2
	if "$righthandnoun" = "contract" then
	{
		put give clerk
		pause 1
		goto CONTRACT_CHECK
	}
	if %FINISH = 1 then return
	else
	{
		if %SEP_ROOMS = 1 then
		{
			gosub go_room %LOC_MINISTER
			pause 2
		}
		if $zoneid = 123 then var RECEIVE RAVEN
		if $zoneid = 114 then var RECEIVE AIN
		if $zoneid = 116 then var RECEIVE HIB
		if $zoneid = 127 then var RECEIVE BOAR
		action var PRICE $1 when for a total of (\d+)\.
		pause 2
		put ask minister for contract
		pause 2
		action remove for a total of (\d+)\.
		if "$righthand" = "Raven's Point contract" then var DELIVER RAVEN
		if "$righthand" = "Ain Ghazal contract" then var DELIVER AIN
		if "$righthand" = "Hibarnhvidar contract" then var DELIVER HIB
		if "$righthand" = "Boar's Clan contract" then var DELIVER BOAR
		if %SEP_ROOMS = 1 then
		{
			gosub go_room %LOC_CLERK
			pause 2
		}
		pause 1
		put speculate finesse
		put give contract to clerk
		if "$righthand" = "Ain Ghazal contract" then
		{
			math AIN_CONTRACTS add 1
			if %AIN_CONTRACTS >= 2 then
			{
				math AIN_CONTRACTS set 0
				math GO_TO_AIN set 1
			}
		}
		pause 1
		put pay clerk
		action var SALES $1 when goods are currently worth (\d+)
		pause 2
		put app cont
		pause 2
		action remove when goods are currently worth (\d+)
		put stow right
		evalmath PERCENTAGE (((%SALES-%PRICE)/%PRICE)*100)
		echo from %RECEIVE to %DELIVER, costing %PRICE, sold for %SALES, a %PERCENTAGE\% percent increase
		put #log >%CSV %RECEIVE,%DELIVER,%PRICE,%SALES,%PERCENTAGE
		put #log >%VERBOSE from %RECEIVE to %DELIVER, costing %PRICE, sold for %SALES, a %PERCENTAGE percent increase
	}
return

go_room:
   pause 1
   match good_move YOU HAVE ARRIVED
   match go_room MOVE FAILED
   put #goto $1 $2
   matchwait
good_move:
   pause
   return