jail.cmd

#############################################################
# STANDALONE JAIL SCRIPT BY SHROOM
# RUN WHILE IN JAIL OR AFTER - DOES NOT MATTER
# WILL GET COIN, PAY YOUR FINE AND RECOVER YOUR GEAR
#############################################################

#debuglevel 5
var PLEAD guilty
var BIN_CONTAINER bag
var PAWN_CONTAINER haversack
var SAFE_CONTAINER backpack
var BACKUP_CONTAINER sack
#put #script abort all except jail
## TF ONLY VARIABLES
var CLANITEM YES
var CLAN_ITEM_NAME human skull
## DEFAULT VARIABLES
var fine 0
var copperfine 0
var bronzefine 0
var silverfine 0
var goldfine 0
var platfine 0
action instant var fine 0;var platfine 0;var goldfine 0;var silverfine 0;var bronzefine 0;var copperfine 0;if ($1) then evalmath platfine $1*10000;if ($2) then evalmath goldfine $2*1000;if ($3) then evalmath silverfine $3*100;if ($4) then evalmath bronzefine $4*10;if ($5) then var copperfine $5;evalmath fine %platfine+%goldfine+%silverfine+%bronzefine+%copperfine when I pronounce a fine upon you of (?:(\d+) platinum[,.]?)?(?:(?: and)? ?(\d+) gold[,.]?)?(?:(?: and)? ?(\d+) silver[,.]?)?(?:(?: and)? ?(\d+) bronze[,.]?)?(?:(?: and)? ?(\d+) copper\.)?

if ("$gamename" != "DRF") then var CLANITEM NO
if_1 then goto %1
############################################################################################
############################################################################################
# JAILED / DEBT PAYING ROUTINE         #
#  ROBUST AS A MOTHERFUCKER            #
############################################################################################
############################################################################################
JAILED:
JAIL_CHECK:
     action (jail) off
     put #parse TAKING CARE OF BUSINESS
     action instant goto PLEAD when ^The eyes of the court|PLEAD INNOCENT or PLEAD GUILTY|Your silence shall be taken|How do you plead\?|Shouldn't you be worrying|You don't seem to be able
     var currentfine 0
     #put #script pause %ScriptName
     if ("$zoneid" = "1") then goto CROSSING_JAIL
     if ("$zoneid" = "30") then goto HAVEN_JAIL
     if ("$zoneid" = "42") then goto THEREN_JAIL
     if ("$zoneid" = "47") then goto MUSPARI_JAIL
     if ("$zoneid" = "61") then goto LETH_JAIL
     if ("$zoneid" = "116") then goto HIB_JAIL
     if ("$zoneid" = "107") then goto MERKRESH_JAIL
     if ("$zoneid" = "67") then goto SHARD_JAIL
     if ("$zoneid" = "69") then goto SHARD_JAIL
     if ("$zoneid" = "99") then goto AESRY_JAIL
     if ("$zoneid" = "90") then goto RATHA_JAIL
     pause 0.2
     goto JAILED
AESRY_JAIL:
AESRY.JAIL:
     var CURRENT_CITY AESRY
     echo Aesry JAIL
     put #parse AESRY JAIL
     goto INIT_JAIL
RATHA_JAIL:
RATHA.JAIL:
     var CURRENT_CITY RATHA
     echo Ratha JAIL
     put #parse RATHA JAIL
	 var RATHA.JAIL 1
     if ($roomid = 382) then var RATHA.JAIL 1
     if ($roomid = 631) then var RATHA.JAIL 3
     goto INIT_JAIL
MERKRESH_JAIL:
MERKRESH.JAIL:
     var CURRENT_CITY MERKRESH
     echo Mer'Kresh JAIL
     put #parse MERKRESH JAIL
     goto INIT_JAIL     
MUSPARI_JAIL:
MUSPARI.JAIL:
     var CURRENT_CITY MUSPARI
     echo MUSPAR'I JAIL
     put #parse MUSPARI JAIL
     goto INIT_JAIL
THEREN_JAIL:
THEREN.JAIL:
     var CURRENT_CITY THEREN
     echo Theren JAIL
     put #parse THEREN JAIL
     goto INIT_JAIL
HAVEN_JAIL:
HAVEN.JAIL:
     var CURRENT_CITY RIVERHAVEN
     echo RIVERHAVEN JAIL
     put #parse RIVERHAVEN JAIL
     goto INIT_JAIL
LETH_JAIL:
LETH.JAIL:
     var CURRENT_CITY LETH
     echo LETH JAIL
     put #parse LETH JAIL
     goto INIT_JAIL
CROSSING_JAIL:
CROSSING.JAIL:
     var CURRENT_CITY CROSSING
     echo CROSSING JAIL
     put #parse CROSS JAIL
     goto INIT_JAIL
HIB_JAIL:
HIB.JAIL:
     var CURRENT_CITY HIB
     echo HIB JAIL
     put #parse HIB JAIL
     goto INIT_JAIL
SHARD_JAIL:
SHARD.JAIL:
     var CURRENT_CITY SHARD
     echo SHARD JAIL
     put #parse SHARD JAIL
     goto INIT_JAIL
INIT_JAIL:
     math Jailed add 1
     echo
     echo *** YOU'VE BEEN JAILED IN %CURRENT_CITY! ***
     echo
     echo *** Taking care of business..
     put #echo >log Orange **** ARRESTED IN %CURRENT_CITY ****
     if (%Jailed = 1) then var JAIL %CURRENT_CITY
     if (%Jailed = 2) then var JAIL2 %CURRENT_CITY
     if (%Jailed = 3) then var JAIL3 %CURRENT_CITY
     if (%Jailed = 4) then var JAIL4 %CURRENT_CITY
     if ("$roomname" = "Guard House, Jail Cell") then goto JAIL_FORAGE
     if ($zoneid = 1) && ($roomid = 23) then goto GET_SACK
     if ($zoneid = 1) && ($roomid = 406) then goto PLEAD
     if ($zoneid = 1) && !matchre("$roomid" , "(620|406|0)") then goto GET_SACK
     if ("$roomname" = "The Great Tower, Cell") then goto JAIL_FORAGE
     if ($zoneid = 67) && ($roomid = 528) then goto PLEAD
     if ($zoneid = 67) && ($roomid = 527) then goto GET_SACK
     if ($zoneid = 67) && !matchre("$roomid" , "(528|527|0|32)") then goto GET_SACK
     if ("$roomname" = "Town Jail, The Cell") then goto JAIL_FORAGE
     if ($zoneid = 30) && ($roomid = 270) then goto PLEAD
     if ($zoneid = 30) && ($roomid = 76) then goto GET_SACK
     if ($zoneid = 30) && !matchre("$roomid" , "(76|270|0)") then goto GET_SACK
     if ("$roomname" = "Muspar'i, Jail Cell") then goto JAIL_FORAGE
     if ($zoneid = 47) && ($roomid = 255) then goto PLEAD
     if ($zoneid = 47) && ($roomid = 254) then goto GET_SACK
     if ($zoneid = 47) && !matchre("$roomid" , "(255|254|0)") then goto GET_SACK
     if ("$roomname" = "Theren Keep, Cell") then goto JAIL_FORAGE
     if ($zoneid = 42) && ($roomid = 125) then goto PLEAD
     if ($zoneid = 42) && ($roomid = 319) then goto GET_SACK
     if ($zoneid = 42) && !matchre("$roomid" , "(319|125|0)") then goto GET_SACK
     if ("$roomname" = "Gallows Tree, Cell") then goto JAIL_FORAGE
     if ($zoneid = 61) && ($roomid = 180) then goto PLEAD
     if ($zoneid = 61) && !matchre("$roomid" , "(181|0)") then goto GET_SACK
     if ($zoneid = 107) && ($roomid = 268) then goto PLEAD
     if ($zoneid = 107) && !matchre("$roomid" , "(306|268|0)") then goto GET_SACK
     if ("$roomname" = "Justice Office, Cell") then goto JAIL_FORAGE
     if ($zoneid = 116) && ($roomid = 202) then goto PLEAD
     if ($zoneid = 99) && ($roomid = 163) then goto PLEAD
     if ($zoneid = 99) && !matchre("$roomid" , "(161|0)") then goto GET_SACK
     if matchre("$roomname", "Ratha, Jail") then var RATHA.JAIL 1;goto JAIL_FORAGE
     if matchre("$roomname", "Malk'smo Holding Cell") then var RATHA.JAIL 3;goto JAIL_FORAGE
     if ($zoneid = 90) && ($roomid = 349) then var RATHA.JAIL 1;goto PLEAD
     if ($zoneid = 90) && ($roomid = 581) then var RATHA.JAIL 3;goto PLEAD
     if ($zoneid = 90) && !matchre("$roomid" , "(581|349|0)") then goto GET_SACK
     pause 0.0001
     echo *** WAITING FOR SENTENCE! ***
JAIL_FORAGE:
     pause 0.2
     if (!$standing) then gosub STAND
     if !matchre("$zoneid" , "(107|67|61|30|47)") then goto PLEAD_WAIT
     gosub KICKEM
     if ("$zoneid" = "67") then gosub collect dust bunny
     if ("$zoneid" = "61") then gosub collect dust bunny
     if ("$zoneid" = "30") then gosub collect coin
     if ("$zoneid" = "47") then gosub collect coin
     if ("$zoneid" = "107") then gosub collect coin
     pause 0.5
     goto JAIL_FORAGE

PLEAD_WAIT:
     waitforre ^The eyes of the court|PLEAD INNOCENT or PLEAD GUILTY|Your silence shall be taken|How do you plead\?|Shouldn't you be worrying|You don't seem to be able
PLEAD:
     if ("$roomname" = "The Great Tower, Cell") then goto JAIL_FORAGE
     if ("$roomname" = "Guard House, Jail Cell") then goto JAIL_FORAGE
     if ("$roomname" = "Town Jail, The Cell") then goto JAIL_FORAGE
     if ("$roomname" = "Muspar'i, Jail Cell") then goto JAIL_FORAGE
     if ("$roomname" = "Theren Keep, Cell") then goto JAIL_FORAGE
     if ("$roomname" = "Gallows Tree, Cell") then goto JAIL_FORAGE
     if ("$roomname" = "Justice Office, Cell") then goto JAIL_FORAGE
     if ("$roomname" = "Ratha, Jail") then var RATHA.JAIL 1;goto JAIL_FORAGE
     if ("$roomname" = "Malk'smo Holding Cell") then var RATHA.JAIL 3;goto JAIL_FORAGE
     action remove ^The eyes of the court|PLEAD INNOCENT or PLEAD GUILTY|Your silence shall be taken|How do you plead\?|Shouldn't you be worrying|You don't seem to be able
     if matchre("innocent", tolower("%PLEAD")) && ("$guild" = "Thief") then send khri cunning
     pause 0.5
     pause 0.3
     send plead %PLEAD
     pause 2
     pause 0.5
     echo FINE: %fine
     var currentfine %fine
     if matchre("innocent", tolower("%PLEAD")) && ("$guild" = "Thief") then send khri stop cunning
     pause 0.4
     if ($zoneid = 1) && ($roomid = 23) then goto STOCKS
GET_SACK:
     pause 0.2
     pause 0.1
     matchre GET_SACK ^\.\.\.wait|^Sorry\,
     matchre DEBT ^You glance down at your empty hands
     matchre PLEAD ^You don't seem to be able to move
     matchre STOCKS ^Given your helpless condition
     matchre SACK small sack
     send glance
     matchwait 15
DEBT:
     var fine 0
     var wealth 0
     echo
     echo **** GETTING COIN FROM BANK TO PAY FINE ****
     echo
     gosub STAND
     if matchre("$roomobjs","(\brat\b|monkey|\bcat\b|\bpig\b)") then
          {
               gosub put get $1
               gosub stowing
          }
     pause 0.2
     if ("$zoneid" = "42") then goto THEREN_JAIL_GET_FINE
     gosub clear
     if ("$guild" = "Necromancer") then gosub NECRO.PREP
     if ("$zoneid" = "90") then
          {
               var GUARD 1guard
               if ("$roomid" = "349") then var GUARD 1guard
               if ("$roomid" = "581") then var GUARD 3guard
          }
     pause 0.1
TO_TELLER:
     var plat 20
     gosub AUTOMOVE teller
     if ("$zoneid" = "107") then goto FINECHECK_QI
     if ("$zoneid" = "99") then goto FINECHECK_QI
     if ("$zoneid" = "90") then goto FINECHECK_QI
     if ("$zoneid" = "61") then goto FINECHECK_ZOLUREN
     if ("$zoneid" = "1") then goto FINECHECK_ZOLUREN
     if ("$zoneid" = "30") then goto FINECHECK_THERENGIA
     if ("$zoneid" = "34a") then goto FINECHECK_THERENGIA
     if ("$zoneid" = "42") then goto FINECHECK_THERENGIA
     if ("$zoneid" = "47") then goto FINECHECK_THERENGIA
     if ("$zoneid" = "67") then goto FINECHECK_ILITHI
     if ("$zoneid" = "116") then goto FINECHECK_FORFEDHDAR
     pause
     echo
     echo *** CRITICAL ERROR!
     echo *** UKNOWN JAIL LOCATION!!
     echo
     put #echo >Log Red *** CRITICAL ERROR!!!!
     put #echo >Log Red *** UNKOWN JAIL LOCATION: Zone- $zoneid Room- $roomid
     put #echo >Log Red *** PAY YOUR FINE MANUALLY!
     pause 0.1
     exit
FINECHECK_QI:
var LOCATION FINECHECK_QI
     matchre SET_FINE Qi\.\s*\(([\d,]+) copper Lirums
     send wealth
     matchwait 8
     goto NO_FINE
FINECHECK_THERENGIA:
var LOCATION FINECHECK_THERENGIA
     matchre SET_FINE Therengia\.\s*\(([\d,]+) copper Lirums
     send wealth
     matchwait 8
     goto NO_FINE
FINECHECK_ZOLUREN:
var LOCATION FINECHECK_ZOLUREN
     matchre SET_FINE Zoluren\.\s*\(([\d,]+) copper Kronars
     send wealth
     matchwait 8
     goto NO_FINE
FINECHECK_ILITHI:
var LOCATION FINECHECK_ILITHI
     matchre SET_FINE Ilithi\.\s*\(([\d,]+) copper Dokoras
     send wealth
     matchwait 8
     goto NO_FINE
FINECHECK_FORFEDHDAR:
var LOCATION FINECHECK_FORFEDHDAR
     matchre SET_FINE Forfedhdar\.\s*\(([\d,]+) copper Dokoras
     send wealth
     matchwait 8
     goto NO_FINE
SET_FINE:
     pause 0.1
     var fine $1
     pause 0.1
     eval fine replacere("%fine", ",", "")
     eval fine replacere("%fine", " ", "")
     echo ============
     echo *** FINE: %fine
     echo ============
     math currentfine add %fine
     if ("$zoneid" = "107") then goto CASHCHECK_QI
     if ("$zoneid" = "99") then goto CASHCHECK_QI
     if ("$zoneid" = "90") then goto CASHCHECK_QI
     if ("$zoneid" = "61") then goto CASHCHECK_ZOLUREN
     if ("$zoneid" = "1") then goto CASHCHECK_ZOLUREN
     if ("$zoneid" = "30") then goto CASHCHECK_THERENGIA
     if ("$zoneid" = "34a") then goto CASHCHECK_THERENGIA
     if ("$zoneid" = "42") then goto CASHCHECK_THERENGIA
     if ("$zoneid" = "47") then goto CASHCHECK_THERENGIA
     if ("$zoneid" = "67") then goto CASHCHECK_ILITHI
     if ("$zoneid" = "116") then goto CASHCHECK_FORFEDHDAR     
##### CHECK CURRENT COINS ON YOU
CASHCHECK_QI:
var LOCATION CASHCHECK_QI
     matchre NO_WEALTH ^No Lirums
     matchre SET_WEALTH Lirums\s\(([\d,]+) copper Lirums\)\.
     send wealth
     matchwait 15
     goto NO_WEALTH
CASHCHECK_THERENGIA:
var LOCATION CASHCHECK_THERENGIA
     matchre NO_WEALTH ^No Lirums
     matchre SET_WEALTH Lirums\s\(([\d,]+) copper Lirums\)\.
     send wealth
     matchwait 15
     goto NO_WEALTH
CASHCHECK_ZOLUREN:
var LOCATION CASHCHECK_ZOLUREN
     matchre NO_WEALTH ^No Kronars
     matchre SET_WEALTH Kronars\s\(([\d,]+) copper Kronars\)\.
     send wealth
     matchwait 15
     goto NO_WEALTH
CASHCHECK_ILITHI:
var LOCATION CASHCHECK_ILITHI
     matchre NO_WEALTH ^No Dokoras
     matchre SET_WEALTH Dokoras\s\(([\d,]+) copper Dokoras\)\.
     send wealth
     matchwait 15
     goto NO_WEALTH
CASHCHECK_FORFEDHDAR:
var LOCATION CASHCHECK_FORFEDHDAR
     matchre NO_WEALTH ^No Dokoras
     matchre SET_WEALTH Dokoras\s\(([\d,]+) copper Dokoras\)\.
     send wealth
     matchwait 15
     goto NO_WEALTH

SET_WEALTH:
     var wealth $1
     eval wealth replacere("%wealth", ",", "")
     eval wealth replacere("%wealth", " ", "")
     goto FINE_PROCESS
NO_WEALTH:
     var wealth 0
FINE_PROCESS:
     echo ================
     echo *** WEALTH: %wealth
     echo ================
     pause 0.1
     if (%fine > 10000) then
          {
               put #echo >Log Crimson *** Warning! Large Fines in %CURRENT_CITY - Heat is getting too much!
               put #echo >Log Crimson *** Consider laying low for a few days or switching provinces
               put #parse STEALING.TOO.HOT!
          }
     if (%wealth > %fine) then
          {
               echo =============================
               echo *** Paying debt with cash on hand!
               echo =============================
               pause 0.4
               goto PAY_DEBT
          }
     if (%fine > 250000) then goto BIGGER_FINE
     if (%fine > 100000) then goto BIG_FINE
     goto WITHDRAW
WITHDRAW:
var LOCATION WITHDRAW
     if ($invisible = 1) then gosub stopinvis
     pause 0.2
     pause 0.1
     matchre WITHDRAW ^\.\.\.wait|^Sorry\,
     matchre BANK_INVIS ^How can you withdraw money when the clerk can't even see
     matchre TO_TELLER ^You must be at a bank teller's window
     matchre PAY_DEBT ^The clerk counts out
     matchre NO_FUNDS we are not lending money|You don't have that much
     matchre NO_FUNDS ^The clerk tells you\, \"You don't have that much money in your account\.
     send withdraw %fine copper
     matchwait 15
     goto NO_FUNDS
BIG_FINE:
var LOCATION BIG_FINE
     if ($invisible = 1) then gosub stopinvis
     pause 0.2
     pause 0.1
     matchre BIG_FINE ^\.\.\.wait|^Sorry\,
     matchre BANK_INVIS ^How can you withdraw money when the clerk can't even see
     matchre TO_TELLER ^You must be at a bank teller's window
     matchre PAY_DEBT ^The clerk counts out
     matchre NO_FUNDS we are not lending money|You don't have that much
     matchre NO_FUNDS ^The clerk tells you\, \"You don't have that much money in your account\.
     send withdraw %plat plat
     matchwait 15
     goto NO_FUNDS
BANK_INVIS:
     delay 0.001
     if ("$guild" = "Necromancer") then
          {
               gosub PUT release eotb
               pause 0.3
          }
     if ("$guild" = "Thief") then
          {
               gosub PUT khri stop silence vanish
               pause 0.3
          }
     if ("$guild" = "Moon Mage") then
          {
               gosub PUT release rf
               pause 0.3
          }
     pause 0.3
     goto %LOCATION
BIGGER_FINE:
var LOCATION BIGGER_FINE
     if (%fine > 200000) then var plat 25
     if (%fine > 250000) then var plat 35
     if (%fine > 350000) then var plat 40
     if (%fine > 400000) then var plat 45
     if (%fine > 450000) then var plat 50
     if (%fine > 500000) then var plat 90
     if (%fine > 900000) then var plat 120
     if (%fine > 1200000) then var plat 150
     if (%fine > 1500000) then var plat 200
     if (%fine > 2000000) then var plat 300
     goto BIG_FINE
NO_FINE:
     echo
     echo *** You have no fine
     echo
     goto RETURN_TO_JAIL
PAY_DEBT:
var LOCATION PAY_DEBT
     echo
     echo **** Paying off your debt! ***
     echo
     pause 0.3
     # Walking to pay off the debt
     gosub AUTOMOVE debt
     if ($invisible = 1) then gosub stopinvis
     pause 0.2
     send pay %fine
     pause
     gosub AUTOMOVE teller
DONE_DEBT:
var LOCATION DONE_DEBT
     pause 0.1
     if ($invisible = 1) then gosub stopinvis
     send deposit all
     pause 0.1
RETURN_TO_JAIL:
     echo
     echo **** Heading back to jail now ****
     echo
     pause 0.5
     if ("$zoneid" = "42") then goto THEREN_KEEP_JAIL
     if ("$zoneid" = "47") then goto MUSPARI_JAIL_RETURN
     if ("$zoneid" = "90") then goto RATHA_JAIL_RETURN
     if ("$zoneid" = "67") then goto SHARD_JAIL_RETURN
     if ("$zoneid" = "116") then goto HIB_JAIL_RETURN
     # Walking to the Guard House
     gosub AUTOMOVE guard
     goto CLAN
MUSPARI_JAIL_RETURN:
     gosub AUTOMOVE jail
     goto CLAN
RATHA_JAIL_RETURN:
     if ("%RATHA.JAIL" = "1") then gosub AUTOMOVE 1GUARD
     if ("%RATHA.JAIL" = "3") then gosub AUTOMOVE 3GUARD
     goto CLAN
HIB_JAIL_RETURN:
     gosub AUTOMOVE 200
     goto CLAN
SHARD_JAIL_RETURN:
     gosub AUTOMOVE sentin
	goto CLAN
RATHA_CHECK:
	if ("$zoneid" = "90") && ("$roomid" = "349") then gosub AUTOMOVE 581
	if ("$zoneid" = "90") && ("$roomid" = "581") then gosub AUTOMOVE 349
CLAN:
     var fullhands 0
     var removed 0
     var removeCheck 0
     var itemsRemoved 0
     var item1 NULL
     var item2 NULL
     var savedleft NULL
     var savedright NULL
CLAN_ITEM:
     if (toupper("%CLANITEM" = "NO") then goto THE_SACK
     if ("$gamename" = "DRF") && (toupper("%CLANITEM" = "YES") then send remove my %CLAN_ITEM_NAME
     pause 0.3
THE_SACK:
     if ($invisible = 1) then gosub stopinvis
     pause 0.5
     matchre THE_SACK ^\.\.\.wait|^Sorry\,|^I could not|^Please rephrase
	matchre CHECK_LOC ^What were you
     matchre SACK_PRE ^You reach for your sack and retrieve the equipment
     matchre INV_CHECK ^You'll need to not be wearing anything
     matchre INV_CHECK ^Realizing you're wearing too much
     matchre DEBT paid off your debt to society
     send get $charactername sack
     matchwait 15
     goto GET_SACK
CHECK_LOC:
	if ($zoneid = 90) && ($roomid = 349) then 
		{
			var RATHA.JAIL 3
			gosub automove 581
			goto THE_SACK
		}
     if ($zoneid = 90) && ($roomid = 581) then 
		{
			var RATHA.JAIL 1
			gosub automove 349
			goto THE_SACK
		}
	echo *** OH NO! CAN'T FIND YOUR JAIL SACK!!! RECOVER YOUR GEAR MANUALLY!!
	put #echo >Log Red *** CRITICAL ERROR!!! CAN'T FIND JAIL SACK!! RECOVER GEAR MANUALLY!!
	exit
INVCHECK:
INV_CHECK:
     echo
     echo *** Removing worn items before grabbing sack!!
     echo
     if ("$lefthand" != "Empty") && ("$righthand" != "Empty") then goto CRIT.ERROR
     pause 0.6
     matchre THE_SACK You aren't wearing anything special
     put inv
     matchwait 2
     matchre THE_SACK You aren't wearing anything special
     matchre REMOVE_JAILITEM \b(spher|key|skull|sphere|gwethdesuan|(?<!wea)ring|toad|obsidian|band)
     matchre REMOVE_ITEM (\S+)(\.)
     put inv
     matchwait 20
     put #echo >Log Red *** Missing Match Label in INV_CHECK
     put #log $datetime MISSING MATCH IN INV_CHECK ***
REMOVE_ITEM:
     var wornItem $0
     var removed yes
     math removeCheck add 1
     # eval wornItem replacere("%wornItem", " (?:with[^\|]*|\w+(?<!crack|bloodsoak|brand|hood|finger)ed[^\|]*|\w+(?<!glow|display|hang)ing[^\|]*)",  "|")
     if ("$lefthand" != "Empty") && ("$righthand" != "Empty") then goto CRIT.ERROR
     gosub PUT remove my %wornItem
     pause 0.5
     pause 0.2
     if %itemsRemoved = 0 then var item1 %wornItem
     if %itemsRemoved = 1 then var item2 %wornItem
     math itemsRemoved add 1
     if (removeCheck > 2) then goto CRIT.ERROR
     goto INV_CHECK
REMOVE_ITEM:
     var wornItem $1
     var removed 1
     math removeCheck add 1
     if ((%removeCheck > 2) && (%fullhands = 1)) then goto CRAZY_ERROR
     if ((%removeCheck > 2) && (%fullhands = 0)) then goto CRIT_ERROR
     # eval wornItem replacere("%wornItem", " (?:with[^\|]*|\w+(?<!crack|bloodsoak|brand|hood|finger)ed[^\|]*|\w+(?<!glow|display|hang)ing[^\|]*)",  "|")
     if (("$lefthand" != "Empty") && ("$righthand" != "Empty")) then goto CRIT_ERROR
     if ("%wornItem" = "ring") && matchre("$righthandnoun", "ring") then gosub PUT remove my second %wornItem
     else gosub PUT remove my %wornItem
     pause 0.5
     pause 0.2
     if (%itemsRemoved = 0) then var item1 %wornItem
     if (%itemsRemoved = 1) then var item2 %wornItem
     math itemsRemoved add 1
     if ((%removeCheck > 2) && (%fullhands = 1)) then goto CRAZY_ERROR
     if ((%removeCheck > 2) && (%fullhands = 0)) then goto CRIT_ERROR
     goto INV_CHECK
REMOVE_JAILITEM:
     var jailitem $1
     var removed 1
     math removeCheck add 1
     if ((%removeCheck > 2) && (%fullhands = 1)) then goto CRAZY_ERROR
     if ((%removeCheck > 2) && (%fullhands = 0)) then goto CRIT_ERROR
     if (("$lefthand" != "Empty") && ("$righthand" != "Empty")) then goto CRIT_ERROR
     if ("%jailitem" = "ring") && matchre("$righthandnoun", "ring") then gosub PUT remove my second %jailitem
     else gosub PUT remove my %jailitem
     pause 0.5
     pause 0.2
     if (%itemsRemoved = 0) then var item1 %jailitem
     if (%itemsRemoved = 1) then var item2 %jailitem
     math itemsRemoved add 1
     if ((%removeCheck > 2) && (%fullhands = 1)) then goto CRAZY_ERROR
     if ((%removeCheck > 2) && (%fullhands = 0)) then goto CRIT_ERROR
     goto INV_CHECK
     
CRIT_ERROR:
     echo ========================================================
     echo ** HANDS ARE TOO FULL OF ITEMS THAT PERSIST THROUGH JAIL
     echo ** DROPPING ITEMS TEMPORARILY TO CLEAR INVENTORY BEFORE GETTING SACK
     echo ** WILL PICK UP AFTER GETTING SACK
     echo ** CONSIDER REDUCING AMOUNT OF ITEMS THAT PERSIST THROUGH JAIL
     echo ** MOST ARE JUST STUPID FLUFF ANYWAY
     echo ========================================================
     pause
     pause 2
     var itemsRemoved 0
     var fullhands 1
     var savedright $righthandnoun
     var savedleft $lefthandnoun
     gosub EMPTY_RIGHT
     gosub EMPTY_LEFT
     goto INV_CHECK
CRAZY_ERROR:
     echo ==============================================================
     echo ** CONGRATS! YOU ARE THE FIRST PERSON IN RECORDED HISTORY TO EVER SEE THIS ERROR!
     echo ** YOU HAVE 4 OR MORE ITEMS THAT PERSIST THROUGH JAIL... WTF M8?
     echo ** YOU NEED TO REMOVE ALL YOUR ITEMS AND RECOVER YOUR GEAR MANUALLY
     echo ** get <charactername> sack
     echo ** PLEASE REDUCE THE AMOUNT OF ITEMS YOU HAVE THAT PERSIST THROUGH JAIL!
     echo =============================================================
     put #echo >Log Red ===========================================================
     put #echo >Log Red * MAJOR CRITICAL ERROR! DO NOT PASS GO! DO NOT COLLECT 200!
     put #echo >Log Red * YOU HAVE 72 HOURS TO RECOVER YOUR GEAR
     put #echo >Log Red * YOU HAVE TOO MANY ITEMS THAT PERSIST THROUGH JAIL! (MORE THAN 4)
     put #echo >Log Red * COULD NOT RECOVER YOUR JAIL SACK - DO NOT WANT TO LOSE YOUR ITEMS
     put #echo >Log Red * REMOVE ALL YOUR WORN ITEMS AND RECOVER YOUR JAIL SACK MANUALLY
     put #echo >Log Red * PLEASE REDUCE THE AMOUNT OF ITEMS THAT PERSIST THROUGH JAIL
     put #echo >Log Red * MOST OF THEM ARE FLUFF ANYWAY - SCRIPT CAN HANDLE 4 MAX
     put #echo >Log Red * REMOVE ALL WORN ITEMS AND RECOVER GEAR AT GUARD HOUSE
     put #echo >Log Red =========================================================
     pause 4
     put WEAR $righthandnoun
     pause 0.2
     put WEAR $lefthandnoun
     pause 0.2
     put GET %savedleft
     pause 0.4
     put WEAR %savedleft
     pause 0.4
     put GET %savedright
     pause 0.4
     put WEAR %savedright
     pause 0.5
     exit
##################################################################################################
STOCKS:
     echo
     echo *** You got the stocks! Wait it out or plead for mercy
     echo
     pause
     send plead release
     waitforre ^You accept a sack and retrieve the equipment|^YOU HAVE BEEN
     pause 0.5
     pause 0.5
     pause 0.2
     if (!$standing) then gosub STAND
SACK_PRE:
     pause 0.001
     pause 0.1
     if (toupper("%CLANITEM" = "YES") then gosub put wear %CLAN_ITEM_NAME
     if (toupper("%CLANITEM" = "YES") then gosub put rub %CLAN_ITEM_NAME
     pause 0.2
     pause 0.1
     if ("$righthand" != "Empty") then gosub put wear my $righthand
     pause 0.2
     gosub PUT open my %SAFE_CONTAINER
     gosub PUT open my %BACKUP_CONTAINER
     pause 0.2
     pause 0.3
     if ("%removed" = "yes") then
          {
          if ("%item1" != "null") then gosub PUT wear my %item1
          if ("%item2" != "null") then gosub PUT wear my %item2
          pause 0.1
          pause 0.1
          if matchre("$righthandnoun|$lefthandnoun", "ring") then gosub PUT wear my ring
          if matchre("$righthandnoun|$lefthandnoun", "key") then gosub PUT wear my key
          if matchre("$righthandnoun|$lefthandnoun", "toad") then gosub PUT wear my toad
          if matchre("$righthandnoun|$lefthandnoun", "gwethdesuan") then gosub PUT wear my gweth
          if matchre("$righthandnoun|$lefthandnoun", "obsidian") then gosub PUT wear my obsidian
          if matchre("$righthandnoun|$lefthandnoun", "rat") then gosub PUT wear my rat
          if matchre("$righthandnoun|$lefthandnoun", "rat") then gosub PUT stow my rat
          if matchre("$righthandnoun|$lefthandnoun", "kitten") then gosub PUT wear my kitten
          if matchre("$righthandnoun|$lefthandnoun", "kitten") then gosub PUT stow my kitten
          if matchre("$righthandnoun|$lefthandnoun", "pig") then gosub PUT wear my pig
          if matchre("$righthandnoun|$lefthandnoun", "pig") then gosub PUT stow my pig
          if matchre("$roomobjs","(\bpig\b|kitten|\brat\b)") then gosub stow $1
          pause 0.3
          pause 0.01
          pause 0.01
          if matchre("$righthandnoun|$lefthandnoun", "ring") then gosub PUT wear my second ring
          if matchre("$righthandnoun|$lefthandnoun", "rat") then gosub PUT wear my second rat
          pause 0.3
          pause 0.01
          pause 0.01
          if matchre("$righthandnoun|$lefthandnoun", "ring") then gosub PUT wear my third ring
          pause 0.3
          pause 0.01
          pause 0.01
          if matchre("$righthandnoun|$lefthandnoun", "ring") then gosub PUT wear my fourth ring
          if matchre("$righthandnoun|$lefthandnoun", "kitten") then gosub PUT stow my kitten
          if matchre("$righthandnoun|$lefthandnoun", "rat") then gosub PUT stow my rat
          if matchre("$righthandnoun|$lefthandnoun", "pig") then gosub PUT stow my pig
          pause 0.3
          pause 0.01
          pause 0.01
          if matchre("$righthandnoun|$lefthandnoun", "ring") then gosub PUT wear my fifth ring
          if matchre("$righthandnoun|$lefthandnoun", "ring") then gosub PUT put my ring in my %SAFE_CONTAINER
          if matchre("$righthandnoun|$lefthandnoun", "rat") then gosub PUT put my rat in my %SAFE_CONTAINER
          if matchre("$righthandnoun|$lefthandnoun", "pig") then gosub PUT put my pig in my %SAFE_CONTAINER
          if matchre("$righthandnoun|$lefthandnoun", "kitten") then gosub PUT put my kitten in my %SAFE_CONTAINER
          if matchre("$righthandnoun|$lefthandnoun", "ring") then gosub PUT put my second ring in my %SAFE_CONTAINER
          pause 0.1
          if matchre("$righthandnoun|$lefthandnoun", "ring") then gosub PUT put my third ring in my %SAFE_CONTAINER
          if matchre("$righthandnoun|$lefthandnoun", "ring") then gosub PUT put my fourth ring in my %SAFE_CONTAINER
          pause 0.1
          }
     pause 0.001
     pause 0.001
     if ("$righthand" != "Empty") then
          {
               if ("$righthandnoun" != "sack") then gosub PUT put my $righthandnoun in my %SAFE_CONTAINER
          }
     if ("$lefthand" != "Empty") then
          {
               if ("$lefthandnoun" != "sack") then gosub PUT put $lefthandnoun in my %SAFE_CONTAINER
          }
     pause 0.1
     pause 0.1
     if ("$righthand" != "Empty") || ("$lefthand" != "Empty") then
          {
               if ("$righthandnoun" != "sack") then gosub PUT put $righthandnoun in my %BACKUP_CONTAINER
               if ("$lefthandnoun" != "sack") then gosub PUT put $lefthandnoun in my %BACKUP_CONTAINER
               pause 0.2
          }
SACK:
     pause 0.1
     pause 0.2
     gosub PUT open my small sack
     gosub JAIL.EMPTY small.sack
     pause 0.5
     pause 0.5
     matchre PET \brat\b|kitten|\bpig\b
     matchre STOW_IT backpack|duffel bag|haversack|knapsack
     # matchre STOW_IT mining (\S+)(\.)
     matchre ODD_ITEM khuj|quarterstaff|quarter staff|halberd|toad|key
     matchre GET_SACK_ITEM (\S+)(?: with a.*)?(\.)
     matchre NO_MORE_ITEMS ^There is nothing in there|^I could not find|^What were you
     match SACK That is closed.
     send look in my small sack
     matchwait 15
     put #echo >Log Red *** Missing match label in - SACK:
     put #log $datetime MISSING MATCH IN SACK: ***
     gosub stowing
     goto NO_MORE_ITEMS
PET:
     var item $0
     pause 0.1
     gosub PUT get %item
     pause 0.5
     send wear %item
     pause 0.2
     gosub stowing
     pause 0.5
     goto SACK
STOW_IT:
     var item $0
     send get %item from my small sack
     pause 0.5
     pause 0.2
     send put my %item in my %SAFE_CONTAINER
     pause 0.5
     pause 0.1
     if ("$lefthand" != "Empty") then gosub PUT my $lefthand in my %PAWN_CONTAINER
     pause 0.1
     pause 0.5
     if ("$lefthand" != "Empty") then gosub PUT my $lefthand in my %BIN_CONTAINER
     pause 0.2
     goto SACK
ODD_ITEM:
     var item $0
     gosub GET %item from my small sack
     pause 0.5
     pause 0.2
     send wear my %item
     pause 0.5
     pause 0.2
     send put my $lefthand in my %SAFE_CONTAINER
     pause 0.5
     if ("$lefthand" != "Empty") then send put my $lefthand in my %BACKUP_CONTAINER
     pause 0.4
     if ("$lefthand" != "Empty") then send wear my $lefthand
     pause 0.4
     if ("$lefthand" = "Empty") then goto SACK
     if ("$lefthand" != "Empty") then gosub PUT put $lefthandnoun in my %BIN_CONTAINER
     if ("$lefthand" != "Empty") then gosub PUT put $lefthandnoun in my %PAWN_CONTAINER
     pause 0.3
     goto SACK
GET_SACK_ITEM:
     pause 0.5
     if $1 = there then goto NO_MORE_ITEMS
     send get $1 from my small sack
     pause 0.5
     pause 0.1
     pause 0.1
     pause 0.1
     pause 0.1
     pause 0.1
     if (("$1" = "backpack") || ("$1" = "cauldron")) then
          {
               pause 0.5
               goto SACK
          }
     if ("$1" = ("obsidian") || ("$1" = "toad") || ("$1" = "rat") then
          {
               send wear my $1
               pause 0.5
               send stow my $1
               pause 0.5
          }
     else
          {
               send put my $lefthand in my %SAFE_CONTAINER
               pause 0.5
               if ("$lefthand" != "Empty") then send put my $lefthand in my %BACKUP_CONTAINER
               pause 0.4
               if ("$lefthand" != "Empty") then send wear my $lefthand
               pause 0.4
               if ("$lefthand" = "Empty") then goto SACK
               if ("$lefthand" != "Empty") then gosub PUT put $lefthandnoun in my %BIN_CONTAINER
               if ("$lefthand" != "Empty") then gosub PUT put $lefthandnoun in my %PAWN_CONTAINER
               pause 0.1
          }
     pause 0.5
     goto SACK
NO_MORE_ITEMS:
     pause 0.001
     pause 0.001
     pause 0.001
     send drop my small sack
     pause 0.2
     pause 0.1
     if matchre("$roomobjs","(\brat\b|monkey|\bcat\b|\bpig\b)") then
          {
               gosub put get $1
               gosub stowing
          }
     pause 0.1
     if ("$righthand" != "Empty") then gosub PUT put $righthandnoun in my %SAFE_CONTAINER
     if ("$lefthand" != "Empty") then gosub PUT put $lefthandnoun in my %SAFE_CONTAINER
     pause 0.2
     if ("$righthand" != "Empty") then gosub PUT put $righthandnoun in my %BACKUP_CONTAINER
     if ("$lefthand" != "Empty") then gosub PUT put $lefthandnoun in my %BACKUP_CONTAINER
     pause 0.2
     gosub PUT close my %SAFE_CONTAINER
     gosub PUT close my %BACKUP_CONTAINER
     echo
     echo **** DONE WITH JAIL / SACK SEQUENCE ****
     echo
     gosub PUT rub my gweth
     pause
     if (!$standing) then gosub STAND
CHECKLOC:
     if ("$zoneid" = "67") then goto SHARD_JAIL_DONE
     if ("$zoneid" = "116") then goto HIB_JAIL_DONE
     if ("$zoneid" = "107") then goto MERKRESH_JAIL_DONE
     if ("$zoneid" = "61") then goto LETH_JAIL_DONE
     if ("$zoneid" = "1") then goto CROSS_JAIL_DONE
     if ("$zoneid" = "30") then goto HAVEN_JAIL_DONE
     if ("$zoneid" = "42") then goto THEREN_JAIL_LEAVE
     if ("$zoneid" = "47") then goto MUSPARI_JAIL_DONE
     if ("$zoneid" = "90") then goto RATHA_JAIL_DONE
     if ("$zoneid" = "99") then goto AESRY_JAIL_DONE
MERKRESH_JAIL_DONE:
     gosub AUTOMOVE 55
     put #script resume %ScriptName
     put #parse TAKING CARE OF BUSINESS
     goto JAIL_END
RATHA_JAIL_DONE:
     gosub AUTOMOVE 51
     put #script resume %ScriptName
     put #parse TAKING CARE OF BUSINESS
     goto JAIL_END
AESRY_JAIL_DONE:
     gosub AUTOMOVE 76
     put #script resume %ScriptName
     put #parse TAKING CARE OF BUSINESS
     goto JAIL_END
MUSPARI_JAIL_DONE:
     gosub AUTOMOVE 48
     put #script resume %ScriptName
     put #parse TAKING CARE OF BUSINESS
     goto JAIL_END
CROSS_JAIL_DONE:
     gosub AUTOMOVE 42
     put #script resume %ScriptName
     put #parse TAKING CARE OF BUSINESS
     goto JAIL_END
LETH_JAIL_DONE:
     gosub AUTOMOVE portal
     put #script resume %ScriptName
     put #parse TAKING CARE OF BUSINESS
     goto JAIL_END
HAVEN_JAIL_DONE:
     gosub AUTOMOVE town
     put #script resume %ScriptName
     put #parse TAKING CARE OF BUSINESS
     goto JAIL_END
SHARD_JAIL_DONE:
     gosub AUTOMOVE 57
     put #script resume %ScriptName
     put #parse TAKING CARE OF BUSINESS
     goto JAIL_END
HIB_JAIL_DONE:
     gosub AUTOMOVE 75
     put #script resume %ScriptName
     put #parse TAKING CARE OF BUSINESS
     goto JAIL_END
THEREN_JAIL_LEAVE:
     save THEREN_JAIL_END
     goto THEREN_KEEP_ESCAPE
THEREN_JAIL_GET_FINE:
     save TO_TELLER
THEREN_KEEP_ESCAPE:
     gosub AUTOMOVE 69
     send jump moat
     pause 3
THEREN_STUNNED_WAIT:
     echo **** Stunned! Pausing to recover..
     pause 10
     if $stunned = 1 then goto THEREN_STUNNED_WAIT
     pause 0.5
     gosub STAND
     pause 0.5
THEREN_MOAT_LEAVE:
     var location THEREN_MOAT_LEAVE
     gosub MOVE s
     pause 2
     goto %s
THEREN_KEEP_JAIL:
     var location THEREN_KEEP_JAIL
     pause 0.2
     if ("$guild" = "Necromancer") then gosub NECRO.PREP
     if ("$guild" = "Thief") then gosub KHRI.START silence
     if ("$guild" = "Moon Mage") then gosub MOONIE.PREP
     pause 0.1
     pause 0.2
     ### TO KEEP THROUGH MOAT
     gosub AUTOMOVE 102
     gosub AUTOMOVE 112
     gosub AUTOMOVE 116
     gosub AUTOMOVE 161
     gosub AUTOMOVE 137
     gosub AUTOMOVE dungeon
     gosub STAND
     goto CLAN_ITEM
THEREN_JAIL_END:
THEREN_JAIL_DONE:
     gosub AUTOMOVE 1
     pause 2
JAIL_END:
     pause 0.1
     math totalFine add %fine
     pause 0.1
	put #echo >Log SkyBlue *** RECOVERED FROM JAIL VIA ~JAIL~ SCRIPT
     put #echo >Log SkyBlue *** FINE PAID: %fine
     if matchre("$roomobjs","(\brat\b|monkey|\bcat\b|\bpig\b)") then
          {
               gosub put get $1
               gosub stowing
          }
	echo 
	echo *** FREE FROM JAIL!
	echo
     put #parse FREE FROM JAIL
     put #parse DONE JAIL!
     put #parse JAIL DONE!
	put #parse FREE FROM JAIL
	exit
NO.FUNDS:
NO_FUNDS:
     put #echo >Log Red **** OUT OF MONEY TO PAY FINE! GET MORE MONEY!
     echo ***********************************************
     echo ** YOU DON'T HAVE ENOUGH MONEY TO PAY YOUR FINE!!!
     echo ** GET SOME MORE MONEY FROM ANOTHER BANK!
     echo ** PAY YOUR FINE MANUALLY AND GET YOUR GEAR FROM JAIL!
     echo **********************************************
     put #parse OUT.OF.FUNDS
     exit
#######################################################################################
# END
#######################################################################################

##### AUTOMOVE SUBROUTINE #####
AUTOMOVE:
     delay 0.0001
     var Destination $0
     var automovefailCounter 0
     if $roomid = 0 then GOSUB MOVE_RANDOM
     if (!$standing) then gosub AUTOMOVE.STAND
     if ("%goPawn" = "ON") then goto PAWN.SKIP
     if ("$roomid" = "%Destination") then return
AUTOMOVE.GO:
     matchre AUTOMOVE.FAILED ^(?:AUTOMAPPER )?MOVE(?:MENT)? FAILED
     matchre AUTOMOVE.RETURN ^YOU HAVE ARRIVED(?:\!)?
     matchre AUTOMOVE.RETURN ^SHOP CLOSED(?:\!)?
     matchre AUTOMOVE.RETURN ^SHOP IS CLOSED(?:\!)?
     matchre AUTOMOVE.FAIL.BAIL ^DESTINATION NOT FOUND
     send #goto %Destination
     matchwait
AUTOMOVE.STAND:
     pause 0.1
     matchre AUTOMOVE.STAND ^\.\.\.wait|^Sorry\,
     matchre AUTOMOVE.STAND ^Roundtime\:?|^\[Roundtime\:?|^\(Roundtime\:?
     matchre AUTOMOVE.STAND ^The weight of all your possessions prevents you from standing\.
     matchre AUTOMOVE.STAND ^You are still stunned\.
     matchre AUTOMOVE.STAND.PLAYING ^You are a bit too busy performing to do that\.
     matchre AUTOMOVE.RETURN ^You stand(?:\s*back)? up\.
     matchre AUTOMOVE.RETURN ^You are already standing\.
     matchre AUTOMOVE.RETURN ^You begin to get up and 
     send stand
     matchwait
AUTOMOVE.FAILED:
     evalmath automovefailCounter (automovefailCounter + 1)
     if (%automovefailCounter > 3) then goto AUTOMOVE.FAIL.BAIL
     send #mapper reset
     pause 0.5
     goto AUTOMOVE.GO
AUTOMOVE.FAIL.BAIL:
     put #echo
     put #echo >$Log Crimson *** AUTOMOVE FAILED. ***
     put #echo >$Log Destination: %Destination
     put #echo Crimson *** AUTOMOVE FAILED.  ***
     put #echo Crimson Destination: %Destination
     put #echo Crimson Skipping to next shop
     put #echo
     put #parse MOVE FAILED
     gosub clear 
     goto %LAST
AUTOMOVE.RETURN:
     if matchre("%Destination", "teller|exchange|debt|PAWN") then if $invisible = 1 then gosub stopinvis
     pause 0.001
     RETURN
AUTOMOVE.STAND.PLAYING:
     matchre AUTOMOVE.STAND ^You stop playing your song\.|^In the name of love\?
     send stop play
     matchwait 10
     goto AUTOMOVE.STAND
##############################################################################################
MOVE_RANDOM:
     delay 0.0001
     random 1 8
     if (%r = 1) && (!$north) then goto MOVE_RANDOM
     if (%r = 2) && (!$northeast) then goto MOVE_RANDOM
     if (%r = 3) && (!$east) then goto MOVE_RANDOM
     if (%r = 4) && (!$southeast) then goto MOVE_RANDOM
     if (%r = 5) && (!$south) then goto MOVE_RANDOM
     if (%r = 6) && (!$southwest) then goto MOVE_RANDOM
     if (%r = 7) && (!$west) then goto MOVE_RANDOM
     if (%r = 8) && (!$northwest) then goto MOVE_RANDOM
     #
     if (%r = 1) then var Direction north
     if (%r = 2) then var Direction northeast
     if (%r = 3) then var Direction east
     if (%r = 4) then var Direction southeast
     if (%r = 5) then var Direction south
     if (%r = 6) then var Direction southwest
     if (%r = 7) then var Direction west
     if (%r = 8) then var Direction northwest
     #
     if (%r = 1) then var Reverse.Direction south
     if (%r = 2) then var Reverse.Direction southwest
     if (%r = 3) then var Reverse.Direction west
     if (%r = 4) then var Reverse.Direction northwest
     if (%r = 5) then var Reverse.Direction north
     if (%r = 6) then var Reverse.Direction northeast
     if (%r = 7) then var Reverse.Direction east
     if (%r = 8) then var Reverse.Direction southeast
     #
     var Exits 0
     if ($north) then math Exits add 1
     if ($northeast) then math Exits add 1
     if ($east) then math Exits add 1
     if ($southeast) then math Exits add 1
     if ($south) then math Exits add 1
     if ($southwest) then math Exits add 1
     if ($west) then math Exits add 1
     if ($northwest) then math Exits add 1
     #
     # don't move "back" on a path unless we hit a dead end
     if (%Exits > 1) && ("%Last.Direction" = "%Reverse.Direction") then goto MOVE_RANDOM
     #
     var Last.Direction %Direction
     # Trigger to set variable for occupied room, when roaming.
     action instant var Occupied 1 when ^Also here\:|^Also in the room\:
     var Occupied 0
     gosub MOVE_RESUME
     #if (%Occupied) then goto MOVE_RANDOM
     return
MOVE:
     delay 0.0001
     var Direction $0
     var movefailCounter 0
MOVE_RESUME:
     matchre MOVE_RESUME ^\.\.\.wait|^Sorry\,
     matchre MOVE_RESUME ^You make your way up the .*\.\s*Partway up\, you make the mistake of looking down\.\s*Struck by vertigo\, you cling to the .* for a few moments\, then slowly climb back down\.
     matchre MOVE_RESUME ^You pick your way up the .*\, but reach a point where your footing is questionable\.\s*Reluctantly\, you climb back down\.
     matchre MOVE_RESUME ^You approach the .*\, but the steepness is intimidating\.
     matchre MOVE_RESUME ^You struggle
     matchre MOVE_RESUME ^You blunder
     matchre MOVE_RESUME ^You slap
     matchre MOVE_RESUME ^You work
     matchre MOVE_RESUME make much headway
     matchre MOVE_RESUME ^You flounder around in the water\.
     matchre MOVE_RETREAT ^You are engaged to .*\!
     matchre MOVE_STAND ^You start up the .*\, but slip after a few feet and fall to the ground\!\s*You are unharmed but feel foolish\.
     matchre MOVE_STAND ^Running heedlessly over the rough terrain\, you trip over an exposed root and land face first in the dirt\.
     matchre MOVE_STAND ^You can't do that while lying down\.
     matchre MOVE_STAND ^You can't do that while sitting\!
     matchre MOVE_STAND ^You must be standing to do that\.
     matchre MOVE_STAND ^You must stand first\.
     matchre MOVE_STAND ^Stand up first.
     matchre MOVE_DIG ^You make no progress in the mud \-\- mostly just shifting of your weight from one side to the other\.
     matchre MOVE_DIG ^You find yourself stuck in the mud\, unable to move much at all after your pathetic attempts\.
     matchre MOVE_DIG ^You struggle forward\, managing a few steps before ultimately falling short of your goal\.
     matchre MOVE_DIG ^Like a blind\, lame duck\, you wallow in the mud in a feeble attempt at forward motion\.
     matchre MOVE_DIG ^The mud holds you tightly\, preventing you from making much headway\.
     matchre MOVE_DIG ^You fall into the mud with a loud \*SPLUT\*\.
     matchre MOVE_FAILED ^You can't go there
     matchre MOVE_FAILED ^I could not find what you were referring to\.
     matchre MOVE_FAILED ^What were you referring to\?
     matchre MOVE_RETURN ^It's pitch dark
     matchre MOVE_RETURN ^Obvious
     send %Direction
     matchwait
MOVE_STAND:
     pause 0.1
     matchre MOVE_STAND ^\.\.\.wait|^Sorry\,
     matchre MOVE_STAND ^You are overburdened and cannot manage to stand\.
     matchre MOVE_STAND ^The weight
     matchre MOVE_STAND ^You try
     matchre MOVE_RETREAT ^You are already standing\.
     matchre MOVE_RETREAT ^You stand(?:\s*back)? up\.
     matchre MOVE_RETREAT ^You stand up\.
     send stand
     matchwait
MOVE_RETREAT:
     pause 0.1
     matchre MOVE_RETREAT ^\.\.\.wait|^Sorry\,
     matchre MOVE_RETREAT ^You retreat back to pole range\.
     matchre MOVE_RETREAT ^You try to back away
     matchre MOVE_STAND ^You must stand first\.
     matchre MOVE_RESUME ^You retreat from combat\.
     matchre MOVE_RESUME ^You are already as far away as you can get\!
     send retreat
     matchwait
MOVE_DIG:
     pause 0.1
     matchre MOVE_DIG ^\.\.\.wait|^Sorry\,
     matchre MOVE_DIG ^You struggle to dig off the thick mud caked around your legs\.
     matchre MOVE_STAND ^You manage to dig enough mud away from your legs to assist your movements\.
     matchre MOVE_DIG_STAND ^Maybe you can reach better that way\, but you'll need to stand up for that to really do you any good\.
     matchre MOVE_RESUME ^You will have to kneel
     send dig
     matchwait
MOVE_DIG_STAND:
     pause 0.1
     matchre MOVE_DIG_STAND ^\.\.\.wait|^Sorry\,
     matchre MOVE_DIG_STAND ^The weight
     matchre MOVE_DIG_STAND ^You try
     matchre MOVE_DIG_STAND ^You are overburdened and cannot manage to stand\.
     matchre MOVE_DIG ^You stand(?:\s*back)? up\.
     matchre MOVE_DIG ^You are already standing\.
     send stand
     matchwait
MOVE_FAILED:
     evalmath movefailCounter (movefailCounter + 1)
     if (%movefailCounter > 3) then goto MOVE_FAIL_BAIL
     pause 0.5
     goto MOVE_RESUME
MOVE_FAIL_BAIL:
     put #echo
     put #echo >$Log Crimson *** MOVE FAILED. ***
     put #echo Crimson *** MOVE FAILED.  ***
     put #echo
     exit
MOVE_RETURN:
     return
KNEEL:
     pause 0.2
     send kneel
     pause 0.5
STAND:
     pause 0.1
     pause 0.1
     matchre STAND ^Roundtime\:?|^\[Roundtime\:?|^\(Roundtime\:?
     matchre STAND.PLAYING ^You are a bit too busy performing
     matchre STAND ^\.\.\.wait|^Sorry\,
     matchre KNEEL ^You are so unbalanced you cannot manage to stand\.
     matchre KNEEL ^The weight of all your possessions prevents you from standing\.
     matchre KNEEL ^You are overburdened and cannot manage to stand\.
     matchre STAND ^You are still stunned
     matchre STAND ^You try
     matchre STUNNED ^You are still stunned
     matchre WEBBED ^You can't do that while entangled in a web
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre RETURN ^You are already standing\.
     matchre RETURN ^You stand back up\.
     matchre RETURN ^You stand up\.
     matchre RETURN ^There doesn't seem to be anything to stand on here
     matchre RETURN ^You swim back up
     matchre RETURN ^You are already standing\.
     matchre RETURN ^You're unconscious
     send STAND
     matchwait 8
     goto STAND
STAND.PLAYING:
     send stop play
     pause 0.1
     goto STAND

## Stow subs
STOWING:
     delay 0.0001
     var LOCATION STOWING
     if "$righthand" = "vine" then put drop vine
     if "$lefthand" = "vine" then put drop vine
     if "$righthandnoun" = "rope" then put coil my rope
     if "$righthand" = "bundle" || "$lefthand" = "bundle" then put wear bund;drop bun
     #if matchre("$righthandnoun","(crossbow|bow|short bow)") then gosub unload
     if matchre("$righthandnoun","(block|granite block)") then put drop block
     if matchre("$lefthandnoun","(block|granite block)") then put drop block
     if matchre("$righthand","(partisan|shield|buckler|lumpy bundle|halberd|staff|longbow|khuj)") then gosub wear my $1
     if matchre("$lefthand","(partisan|shield|buckler|lumpy bundle|halberd|staff|longbow|khuj)") then gosub wear my $1
     if matchre("$lefthand","(longbow|khuj)") then gosub stow my $1 in my %SHEATH
     if "$righthand" != "Empty" then GOSUB STOW right
     if "$lefthand" != "Empty" then GOSUB STOW left
     RETURN
STOW:
     var LOCATION STOW1
     var todo $0
STOW1:
     delay 0.0001
     if "$righthand" = "vine" then put drop vine
     if "$lefthand" = "vine" then put drop vine
     matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre WEBBED ^You can't do that while entangled in a web
     matchre STUNNED ^You are still stunned
     matchre STOW2 not designed to carry anything|any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide|^But that's closed|I can't find your container|^You can't 
     matchre RETURN ^Wear what\?|^Stow what\?  Type 'STOW HELP' for details\.
     matchre RETURN ^You put
     matchre RETURN ^You open
     matchre RETURN needs to be
     matchre RETURN ^You stop as you realize
     matchre RETURN ^But that is already in your inventory\.
     matchre RETURN ^That can't be picked up
     matchre LOCATION.unload ^You should unload the
     matchre LOCATION.unload ^You need to unload the
     put stow %todo
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN STOW! (jail.cmd) ***
     put #echo >$Log Crimson $datetime Stow = %todo
     put #log $datetime MISSING MATCH IN STOW (jail.cmd)
STOW2:
     delay 0.0001
     var LOCATION STOW2
     matchre RETURN ^Wear what\?|^Stow what\?
     matchre RETURN ^You put
     matchre RETURN ^But that is already in your inventory\.
     matchre stow3 any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide|not designed to carry anything|^But that's closed
     matchre LOCATION.unload ^You should unload the
     matchre LOCATION.unload ^You need to unload the
     put stow %todo in my %PAWN_CONTAINER
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN STOW2! (jail.cmd) ***
     put #echo >$Log Crimson $datetime Stow = %todo
     put #log $datetime MISSING MATCH IN STOW2 (jail.cmd)
STOW3:
     delay 0.0001
     var LOCATION STOW3
     if "$lefthandnoun" = "bundle" then put drop bun
     if "$righthandnoun" = "bundle" then put drop bun
     matchre open.thing ^But that's closed
     matchre RETURN ^Wear what\?|^Stow what\?
     matchre RETURN ^You put
     matchre RETURN ^But that is already in your inventory\.
     matchre STOW4 any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide|not designed to carry anything|^But that's closed
     matchre LOCATION.unload ^You should unload the
     matchre LOCATION.unload ^You need to unload the
     put stow %todo in my %BIN_CONTAINER
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN STOW3! (jail.cmd) ***
     put #echo >$Log Crimson $datetime Stow = %todo
     put #log $datetime MISSING MATCH IN STOW3 (jail.cmd)
STOW4:
     delay 0.0001
     var LOCATION stow4
     var bagsFull 1
     if "$lefthandnoun" = "bundle" then put drop bun
     if "$righthandnoun" = "bundle" then put drop bun
     matchre open.thing ^But that's closed
     matchre RETURN ^Wear what\?|^Stow what\?
     matchre RETURN ^You put your
     matchre RETURN ^But that is already in your inventory\.
     matchre REM.WEAR any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide
     matchre LOCATION.unload ^You should unload the
     matchre LOCATION.unload ^You need to unload the
     put stow %todo in my %SAFE_CONTAINER
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN STOW4! (jail.cmd) ***
     put #echo >$Log Crimson $datetime Stow = %todo
     put #log $datetime MISSING MATCH IN STOW4 (jail.cmd)
OPEN.THING:
     put open %SAFE_CONTAINER
     put open %BIN_CONTAINER
     pause 0.2
     goto STOWING
REM.WEAR:
     put rem bund
     put drop bund
     wait
     pause 0.5
     goto WEAR1    
#### PUT SUB
PUT:
     delay 0.0001
     var command $0
     var LOCATION PUT.1
     PUT.1:
     matchre WAIT ^\.\.\.wait|^Sorry\,|^Please wait\.
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre WEBBED ^You can't do that while entangled in a web
     matchre STUNNED ^You are still stunned
     matchre STAND ^You should stand up first\.|^Maybe you should stand up\.
     matchre WAIT ^\[Enter your command again if you want to\.\]
     matchre RETURN_CLEAR You'?r?e? (?:hand|slip|put|get|.+ to|.+ fan|can't|leap|tug|quickly|dance|reverently|breathe|switch|deftly|swiftly|untie|sheathe|strap|slide|desire|raise|sling|pull|drum|trace|wear|tap|recall|press|hang|gesture|push|move|whisper|lean|tilt|cannot|mind|drop|drape|loosen|work|lob|spread|not|fill|will|now|slowly|quickly|spin|filter|need|shouldn't|pour|blow|twist|struggle|place|knock|toss|set|add|search|circle|fake|weave|shove|try|must|wave|sit|fail|turn|already|can\'t|glance|bend|swing|chop|bash|dodge|feint|draw|parry|carefully|quietly|sense|begin|rub|sprinkle|stop|combine|take|decide|insert|lift|retreat|load|fumble|exhale|yank|allow|have|are|wring|icesteel|scan|vigorously|adjust|bundle|ask|form|lose|remove|accept|pick|silently|realize|open|grab|fade|offer|tap|aren't|kneel|don\'t|close|let|find|attempt|tie|roll|attach|feel(?! fully rested)|read|reach|gingerly|come|effortlessly|corruption|count|secure|unload|remain|release|shield) .*(?:\.|\!|\?)?
     matchre RETURN_CLEAR ^Brother Durantine|^Durantine|^Mags|^Ylono|^Malik|^Kilam|^Ragge|^Randal|^Catrox|^Kamze|^Unspiek|^Wyla|^Ladar|^Dagul|^Granzer|^Fekoeti|^Diwitt|(?:An|The|A) attendant|^The clerk|A Dwarven|^.*He says\,
     matchre RETURN_CLEAR ^The (?: clerk|teller|attendant|mortar|pestle|tongs|bowl|riffler|hammer|gem|book|page|lockpick|sconce|voice|waters) .*(?:\.|\!|\?)?
     matchre RETURN_CLEAR ^Quietly touching your lips with the tips of your fingers as you kneel\, you make the Cleric's sign with your hand\.
     matchre RETURN_CLEAR ^You sense that you are as pure of spirit as you can be\, and you are ready for whatever rituals might face you\.
     matchre RETURN_CLEAR ^You don't have a (.+) coin on you\!\s*The (.+) spider looks at you in forlorn disappointment\.|^The (.+) spider turns away
     matchre RETURN_CLEAR ^Roundtime\:?|^\[Roundtime\:?|^\(Roundtime\:?|^\[Roundtime|^Roundtime|\[Roundtime
     matchre RETURN_CLEAR ^.* looks over .* and says\, \"That will cost .* to repair\.\s*Just give it to me again if you want\, and I'll have it ready in .*\.\"
     matchre RETURN_CLEAR ^.* says\, \"It will cost .* and take .* to repair .*\.\s*Just ask me again and I can get started\.\"
     matchre RETURN_CLEAR \"Lucky for you\!\s*That isn't damaged\!\"|\"I will not repair something that isn't broken\.\"
     matchre RETURN_CLEAR \"I'm sorry\, but I don't work on those\.\"|\"There isn't a scratch on that\, and I'm not one to rob you\.\"
     matchre RETURN_CLEAR I don't work on those here\.|\"I don\'t repair those here|Please don't lose this ticket\!
     matchre RETURN_CLEAR This is an exclusive item reserved for a certain subset of the population
     matchre RETURN_CLEAR suddenly leaps toward you|and flies towards you|with a flick
     matchre RETURN_CLEAR ^Please rephrase that command\.|^I could not find|^Perhaps you should|^I don\'t|^Weirdly\,
     matchre RETURN_CLEAR ^That (?:is|has) already|^(.+) what\?
     matchre RETURN_CLEAR ^The .*(is|has|are|slides|fades)
     matchre RETURN_CLEAR ^Obvious (?:exits|paths)
     matchre RETURN_CLEAR \[You're|\[This is|too injured
     matchre RETURN_CLEAR ^Moving|Brushing|Recalling|Unaware
     matchre RETURN_CLEAR ^.*\[Praying for \d+ sec\.\]
     matchre RETURN_CLEAR ^You cannot do that while engaged\!
     matchre RETURN_CLEAR ^.+ is not in need|^That is closed\.
     matchre RETURN_CLEAR ^This is a .* spell|The spell requires
     matchre RETURN_CLEAR ^But (?:that|you|the)
     matchre RETURN_CLEAR ^What (?:were you|is it)
     matchre RETURN_CLEAR ^There (?:is|is not|isn't|doesn\'t)
     matchre RETURN_CLEAR ^In the name of love\?|^Play on
     matchre RETURN_CLEAR ^That (?:cannot|area|can't|won't|would)
     matchre RETURN_CLEAR ^With a (?:keen|practiced)
     matchre RETURN_CLEAR ^Some (?:polished|people|tarnished|.* zills)
     matchre RETURN_CLEAR ^(\S+) has accepted
     matchre RETURN_CLEAR ^Subservient type|^The shadows|^Close examination|^Try though
     matchre RETURN_CLEAR ^USAGE\:|^Using your
     matchre RETURN_CLEAR ^Allows a Moon Mage|^Smoking commands are
     matchre RETURN_CLEAR ^A (?:slit|pair|shadow) .*(?:\.|\!|\?)?
     matchre RETURN_CLEAR ^Your (?:actions|dance|nerves) .*(?:\.|\!|\?)?
     matchre RETURN_CLEAR ^You.*analyze
     matchre RETURN_CLEAR ^Having no further use for .*\, you discard it\.
     matchre RETURN_CLEAR ^After a moment\, .*\.
     matchre RETURN_CLEAR ^.* (?:is|are) not in need of cleaning\.
     matchre RETURN_CLEAR ^The .* is not damaged enough to warrant repair\.
     matchre RETURN_CLEAR \[Type INVENTORY HELP for more options\]
     matchre RETURN_CLEAR \[Use INVENTORY HELP for more options\.\]
     matchre RETURN_CLEAR ^A vortex|^A chance for
     matchre RETURN_CLEAR ^In a flash|^It is locked
     matchre RETURN_CLEAR ^An aftershock
     matchre RETURN_CLEAR ^In the .* you see .*\.
     matchre RETURN_CLEAR .* (?:Dokoras|Kronars|Lirums)
     matchre RETURN_CLEAR ^This spell cannot be targeted\.
     matchre RETURN_CLEAR ^You cannot figure out how to do that\.S
     matchre RETURN_CLEAR ^You will now store .* in your .*\.
     matchre RETURN_CLEAR ^That tool does not seem suitable for that task\.
     matchre RETURN_CLEAR ^There (isn\'t|doesn\'t seem to be) any more room in .*
     matchre RETURN_CLEAR ^\[Ingredients can be added by using ASSEMBLE Ingredient1 WITH Ingredient2\]
     matchre RETURN_CLEAR ^\s*LINK ALL CANCEL\s*\- Breaks all links
     matchre RETURN_CLEAR ^This ritual may only be performed on a corpse\.
     matchre RETURN_CLEAR ^There is nothing else to face\!
     matchre RETURN_CLEAR ^Stalking is an inherently stealthy endeavor\, try being out of sight\.
     matchre RETURN_CLEAR ^You're already stalking
     matchre RETURN_CLEAR ^There aren't any .*\.
     matchre RETURN_CLEAR ^You don't think you have enough focus to do that\.
     matchre RETURN_CLEAR ^You have no idea how to cast that spell\.
     matchre RETURN_CLEAR ^An offer|shakes (his|her) head
     matchre RETURN_CLEAR ^Tie it off when it's empty\?
     matchre RETURN_CLEAR ^But the merchant can't see you|are invisible
     matchre RETURN_CLEAR Page|^As the world|^Obvious|^A ravenous energy
     matchre RETURN_CLEAR ^In the|^The attendant|^That is already open\.|^Your inner
     matchre RETURN_CLEAR ^(\S+) hands you|^Searching methodically|^But you haven\'t prepared a symbiosis\!
     matchre RETURN_CLEAR ^Illustrations of complex\,|^It is labeled|^Your nerves
     matchre RETURN_CLEAR ^The lockpick|^Doing that|is not required to continue crafting
     matchre RETURN_CLEAR ^Without (any|a)
     # matchre RETURN_CLEAR ^
     matchre RETURN ^\s*Encumbrance\s*\:
     send %command
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN PUT! ***
     put #echo >$Log Crimson $datetime Command = %command
     put #log $datetime MISSING MATCH IN PUT
     RETURN
PUT.STOW:
     gosub stow
     goto PUT.1
stopinvis:
     delay 0.001
     if ("$Guild" = "Necromancer") then
          {
               gosub PUT release eotb
               pause 0.3
          }
     if ("$Guild" = "Thief") then
          {
               gosub PUT khri stop silence vanish
               pause 0.3
          }
     if ("$Guild" = "Moon Mage") then
          {
               gosub PUT release rf
               pause 0.3
          }
     pause 0.3
     RETURN
#############################
#### GET SUB
GET:
     delay 0.0001
     var get $0
     var LOCATION GET.1
     GET.1:
     matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre WAIT ^You struggle with .* great weight but can't quite lift it\!
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre WEBBED ^You can't do that while entangled in a web
     matchre STUNNED ^You are still stunned
     matchre RETURN ^But that is already in your inventory\.
     # matchre RETURN ^\s*You get .*\.
     matchre RETURN ^You pick up .*\.
     matchre RETURN ^You carefully remove .* from the bundle\.
     matchre RETURN ^You are already holding that\.
     matchre RETURN ^Get what\?
     matchre RETURN ^I could not find what you were referring to\.
     matchre RETURN ^What were you referring to\?
     matchre RETURN ^You (?:get|grab) .*(?:\.|\!|\?)
     matchre RETURN ^As best it can\, .* moves in your direction\.
     send get %get
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN GET! ***
     put #echo >$Log Crimson $datetime Get = %get
     put #log $datetime MISSING MATCH IN GET
     RETURN

#### DOUBLE PUT SUB
PUT.IT:
     delay 0.0001
     var putit $0
     var LOCATION PUT.IT.1
     PUT.IT.1:
     matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre WEBBED ^You can't do that while entangled in a web
     matchre STUNNED ^You are still stunned
     matchre RETURN ^You (?:hand|push|move|put|whisper|lean|tap|pick|silently|slip|stop|open|close|drop|place|knock|grab|fade|toss|set|add|offer|search|circle|fake|weave|shove|try|must|wave|sit|fail|turn|are already|can't|glance|bend|kneel|carefully|quietly|sense|begin|rub|sprinkle) .*(?:\.|\!|\?)
     matchre RETURN ^Please rephrase that command\.
     matchre RETURN ^.* what\?
     matchre RETURN ^I could not find what you were referring to\.
     matchre RETURN ^What were you referring to\?
     matchre RETURN ^Perhaps you should be holding that first\.
     send put %putit
     matchwait 15
     put #echo >$Log Crimson $datetime *** MISSING MATCH IN PUT.IT!  ***
     put #echo >$Log Crimson $datetime PutIt = %putit
     put #log $datetime MISSING MATCH IN PUT.IT
     RETURN
##################
DUMP_CHECK:
     delay 0.0001
     if !def(Dump.Time) then put #var Dump.Time $gametime
     put #var Dump.Last {#evalmath ($gametime - $Dump.Time)}
     if ($Dump.Last < 600) then return
     gosub DUMP_JUNK
     put #var Dump.Time $gametime
     put #save var
     return
DUMP_JUNK:
     delay 0.0001
     var LOCATION DUMP_JUNK_1
     DUMP_JUNK_1:
     matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre STUNNED ^You are still stunned
     matchre WEBBED ^You can't do that while entangled in a web
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre RETURN ^\[You have marked this room to be cleaned by the janitor\.  It should arrive shortly\.\]
     matchre RETURN ^The janitor was recently summoned to this room\.\s+Please wait \d+ seconds\.
     matchre RETURN ^You should just kick yourself in the shin\.  There is no junk here\.
     send dump junk
     matchwait
CLEAN_ROOM:
     delay 0.0001
     var dumpster NULL
     if matchre("$roomobjs", "origami|an Imperial dira|glass reservoir|steel striker|black cube|tiny chitinous leg|coiled spring|brown clay|bloated animal bladder|sharp blade|tiny hammer|sealed vial|stoppered vial|iron disc|metal spring|tiny metal lever|broken needle|short needle|short curved blade|silver studs|thin metal circle|steel pin|broken rune|runestone|bronze seal|glass sphere|tiny bronze face|cracked black crystal|capillary tube|some junk") then gosub DUMP_CHECK 
     if matchre("$roomobjs", "a bucket of viscous gloop|a waste bucket") then var dumpster bucket
     if matchre("$roomobjs", "a disposal bin|a waste bin|firewood bin") then var dumpster bin
     if matchre("$roomname", "Garden Rooftop\, Medical Pavilion") then var dumpster gutter
     if matchre("$roomobjs", "a large stone turtle") then var dumpster turtle
     if matchre("$roomobjs", "trash receptacle") then var dumpster receptacle
     if matchre("$roomobjs", "a waste basket") then var dumpster basket
     if matchre("$roomobjs", "a tree hollow") then var dumpster hollow
     if matchre("$roomobjs", "a bottomless pit") then var dumpster pit
     if matchre("$roomobjs", "a driftwood log") then var dumpster log
     if matchre("$roomobjs", "an oak crate") then var dumpster crate
     if matchre("$roomobjs", "ivory urn") then var dumpster urn
     pause 0.1
     if ("%dumpster" = "NULL") then return
     CLEAN_ROOM_2:
     delay 0.0001
     var object NULL
     if matchre("$roomobjs", "a rock") then var object rock
     if matchre("$roomobjs", "razorsharp claw") then var object claw
     if matchre("$roomobjs", "a vine") then var object vine
     if matchre("$roomobjs", "some grass") then var object grass
     if !matchre("%object", "NULL") then
          {
               gosub GET %object
               gosub PUT_IT my %object in %dumpster
               goto CLEAN_ROOM_2
          }
     gosub KICKEM
     else return 
COLLECT:
     delay 0.0001
     var collect $0
     var LOCATION COLLECT_1
     if matchre("$roomobjs", "origami|an Imperial dira|glass reservoir|steel striker|black cube|tiny chitinous leg|coiled spring|brown clay|bloated animal bladder|sharp blade|tiny hammer|sealed vial|stoppered vial|iron disc|metal spring|tiny metal lever|broken needle|short needle|short curved blade|silver studs|thin metal circle|steel pin|broken rune|runestone|bronze seal|glass sphere|tiny bronze face|cracked black crystal|capillary tube|some junk") then gosub DUMP_CHECK 
     COLLECT_1:
     matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre STUNNED ^You are still stunned
     matchre WEBBED ^You can't do that while entangled in a web
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre RETURN ^You cannot collect anything while in combat\!
     matchre RETURN ^You manage to collect a pile of .*\.
     matchre RETURN ^The room is too cluttered to find anything here\!
     matchre RETURN ^You survey the area and realize that any collecting efforts would be futile\.
     matchre WAIT ^Roundtime\:?|^\[Roundtime\:?|^\(Roundtime\:?
     send collect %collect
     matchwait  
KICKEM:
     delay 0.0001
     if matchre("$roomobjs" , "a pile of \S+") then gosub KICKIT
     if matchre("$roomobjs" , "a pile of \S+") then gosub KICKIT
     if matchre("$roomobjs" , "a pile of \S+") then gosub KICKIT
     return
KICKIT:
     delay 0.0001
     var LOCATION KICKIT_1
     KICKIT_1:
     matchre WAIT ^\.\.\.wait|^Sorry\,
     matchre STUNNED ^You are still stunned
     matchre WEBBED ^You can't do that while entangled in a web
     matchre IMMOBILE ^You don't seem to be able to move to do that
     matchre RETURN ^I could not find what you were referring to\.
     matchre RETURN ^You take a step back and run up to the pile of .*\.
     send kick pile
     matchwait
##########################################################################################################################################
JAIL.EMPTY:
     var bag $0
     pause .0001
     var contents null
     action var contents $1 when ^You rummage through .+ and see (.*)\.
     action var contents $1 when ^In the .* you see (.*)\.
     send look in my %bag
     waitforre ^In the .* you see|^There is nothing in there\.|^You rummage
     action remove ^In the .* you see (.*)\.|^You rummage through .+ and see (.*)\.
     if "%contents" = "null" then RETURN
     pause .0001
     eval contents replace("%contents" , ", " , "|")
     eval contents replace("%contents" , " and a" , "|a")
     eval contents replace("%contents" , " and an" , "|an")
     eval contents replace("%contents" , " and some" , "|some")
     eval contents replace("%contents"," with a miner's lamp on it",  "")
     eval contents replace("%contents"," with a wax label on it",  "")
     eval contents replace("%contents"," on it",  "")
     var contents |%contents|
     eval total count("%contents", "|")
JAIL.EMPTY.Loop:
     eval item element("%contents", 1)
     eval number count("%contents", "|%item")
     var count 0
     gosub JAIL.EMPTY.RemoveLoop
     action setvariable item $1 when ^@(?:an?|some).* (\S+)$
     put #parse @%item
     counter set %count
     gosub JAIL.EMPTY.ItemAction
     if "%contents" != "|" then goto JAIL.EMPTY.Loop
     RETURN
JAIL.EMPTY.RemoveLoop:
     eval number count("%contents", "|%item|")
     eval contents replace("%contents" , "|%item|" , "|")
     eval contents replace("%contents" , "||" , "|")
     evalmath count %count + %number
     if !contains("%contents", "|%item|") then RETURN
     goto JAIL.EMPTY.RemoveLoop
JAIL.EMPTY.ItemAction:
     counter subtract 1
     gosub GET %item from my %bag
     gosub PUT WEAR my %item
     pause 0.1
     pause 0.2
     if ("%item" = "%SAFE_CONTAINER") then gosub PUT open my %SAFE_CONTAINER
     gosub PUT.IT my %item in my %BIN_CONTAINER
     if %c < 1 then RETURN
     goto JAIL.EMPTY.ItemAction

CRIT.ERROR:
     echo
     echo ***********************************************************************************************
     echo *** CRITICAL ERROR!  WARNING! WARNING!
     echo *** You have run into some crazy never before seen error!!
     echo *** Your hands are too full to remove all of your items before getting your jail sack
     echo ***
     echo *** Consider reducing the number of items you use which persist through jail. Most are just fluff anyway.
     echo *** Script is really only set up to support 2. I don't want to potentially lose an important item.
     echo *** ABORTING SCRIPT TO BE ON THE SAFE SIDE SO YOU DON'T LOSE ANYTHING
     echo *** REMOVE ALL YOUR WORN ITEMS - RETRIEVE YOUR JAIL SACK MANUALLY
     echo *** SEND ME A LOG OF YOUR HANGUP AND ITEMS AND I WILL SEE IF I CAN CODE FOR IT IN THE SCRIPT
     echo ***********************************************************************************************
     echo
     pause 5
     exit
     
#### CATCH AND RETRY SUBS
WAIT:
     delay 0.0001
     pause 0.1
     if (!$standing) then gosub STAND
     goto %LOCATION
WEBBED:
     delay 0.0001
     if ($webbed) then waiteval (!$webbed)
     if (!$standing) then gosub STAND
     goto %LOCATION
IMMOBILE:
     delay 0.0001
     if contains("$prompt" , "I") then pause 20
     if (!$standing) then gosub STAND
     goto %LOCATION
STUNNED:
     delay 0.0001
     if ($stunned) then waiteval (!$stunned)
     if (!$standing) then gosub STAND
     goto %LOCATION
#### RETURNS
RETURN_CLEAR:
RETURN.CLEAR:
     delay 0.0001
     put #queue clear
     pause 0.0001
     return
RETURN:
     delay 0.0001
     return