F7qKs6c6

1#debuglevel 5
2#########################################################################################################
3#  ULTIMATE GENIE3 PROGRESSIVE STEALING SCRIPT v5.6 for Dragonrealms. Updated 8/22/15
4#  By Shroom of TF. With code contributions from Pelic/Rubinium.
5#  © 2005 Chris Sansalone, all rights reserved. Not for resale or distribution without author's consent.
6#  Send any bug reports/feedback to: skultamaphon@gmail.com / Shroomismschism @ AIM
7#########################################################################################################
8# ********************* IMPORTANT INFO / PREREQUISITES ***********************************************************
9# - Script requires the latest updated Automapper maps for Genie! See this thread for instructions:
10# - http://www.genieclient.com/bulletin/topic/3592-how-to-use-the-genie-map-repository/
11#
12# - REQUIRES Automapper latest updated maps
13# - MAY require using my modified Automapper script (IF you have problems with the default script moving properly) - http://pastebin.com/wx1cM7ty
14# - REQUIRES modified travel script. LATEST VERSION HERE - http://pastebin.com/tVwTjDQP ) - This script is for city to city travel
15# - REQUIRES ExpTracker Plugin (Find on the Genie forums)
16# - (OPTIONAL) Uses Time Plugin
17#
18# #######################################################################################################
19# ********************* SCRIPT NOTES AND FUNCTIONALITY ***********************************************************
20#   SUPPORTED CITIES: (Can start in any location in these cities)
21# - Therenborough, Riverhaven, Arthe Dale, Crossing, Leth Deriel, Shard, Hib, Ratha, Aesry
22#  (This script does not support clan stealing and likely never will - the clan justice is just a pain to deal with) 
23#
24# - STEALS from every shop in every supported city, moving from city to city until mind locked
25# - Automatically determines what items to steal based on your skill level. NEVER change item variables!
26# - As you progress in Thievery ranks, the script progressively steals harder items. Trains from 20 ranks to 1200+
27#
28# - If you go to JAIL, script will RECOVER, pay your fine, retrieve your items and continue where it left off.
29#
30# - It will remove all your ARMOR before the stealing run, put it in a safe container, and put it all back on when the script finishes.
31#
32#  AUTOMATICALLY HIDES/STASHES YOUR IMPORTANT ITEMS - Never lose items!
33# - IF any items in your bags match names with items you will steal, it will store those in your SAFE_CONTAINER and close it!
34# - This will prevent ever accidentally binning or pawning ANY of your important items or armor!!
35#
36# - THIEVES: Will mark ALL items before stealing, leave shop if there is too much heat.
37# - THIEVES will Bin 50% and Pawn 50% by default. Or Bin 100% by setting var PAWN OFF
38# - THIEVES Will also make use of Khris and Thief passages for travel to Leth and contacts for finding haven guild.
39# - Thieves MUST use THREE (3) separate bags if you are both binning and pawning items. 2 for bin and pawn and 1 for your safe items. 
40# - Non-Thieves: Will only steal 1-5 times per shop and will PAWN ALL items and dump those that cant sell.
41#
42#  CITY TRAVEL LOGIC:
43# - If you start in Theren it will go Theren > Haven > Arthe > Xing > Leth > Shard (or stop when locked)
44# - If you start in Hib it will go Hib > Shard > Leth > Arthe > Xing > Haven 
45# - If you start in Aesry or Ratha, it will stop after it finishes that city, for obvious reasons. 
46# - If you Start in Xing or Leth it will head north to Haven. If you start in Haven it will head south. Start in Shard it will head north. 
47# - Currently, the script will NOT END in Hib or Theren, mainly due to limitations for many people (out of the way and a hassle) 
48# - But if you START the script in Hib or Theren it will steal from there and move on. 
49# -(Ice road to Hib being a pain.. shortcut to Theren requiring high levels of Athletics)
50#
51# SCRIPT USAGE - 
52# 1  .steal   
53# Default (no variables) - loads the script from the beginning
54# (THIS IS THE METHOD YOU SHOULD ALWAYS USE TO LOAD SCRIPT)
55#
56# 2  .steal  LABEL.TO.SKIP.TO  
57# (ONE variable) - The usage of a first variable will skip directly to that particular label in a script  (It must be a valid label)
58# THIS METHOD IS MAINLY FOR TROUBLESHOOTING PURPOSES ONLY
59#
60# 3  .steal  LABEL.TO.SKIP.TO   TYPEANYTHING  
61# (TWO variables) -  A SECOND variable after the first, will SKIP THE BAG CHECK SECTION and then go to the specified label. 
62# This will SKIP the bag check section, so it doesn't stash items into your safe container that you have already stolen
63# THIS IS USEFUL FOR RESTARTING THE SCRIPT MIDWAY THROUGH  AND SKIPPING TO A CERTAIN  LABEL, 
64# WITHOUT THE SCRIPT PUTTING ALREADY STOLEN ITEMS INTO YOUR SAFE CONTAINER
65# OR FOR TROUBLESHOOTING PURPOSES. THIS WILL ALSO TURN DEBUGMODE 10 ON. 
66# A SECOND VARIABLE  SHOULD ~ONLY~ BE USED  IF THE SCRIPT HAS ALREADY STASHED YOUR ITEMS FROM THE BEGINNING CHECK
67# YOU RISK LOSING YOUR ITEMS  IF YOU USE A SECOND VARIABLE  WITHOUT FIRST HAVING ALREADY STASHED YOUR ITEMS
68# STARTING THE SCRIPT WITH VARIABLES SHOULD ONLY REALLY BE USED FOR TROUBLESHOOTING OR TESTING PURPOSES
69#
70######################################## DISCLAIMER #############################################################################################
71# ~~ I AM NOT RESPONSIBLE FOR ANY LOST ITEMS. IT IS **HIGHLY RECOMMENDED** TO REGISTER YOUR MOST VALUABLE ITEMS.
72# ~~ ALTHOUGH THIS SCRIPT DOES ~EVERYTHING POSSIBLE~ TO MAKE SURE IT DOESN'T LOSE YOUR ITEMS..
73# ~~ THERE IS ALWAYS A TINY CHANCE (HOWEVER SMALL) THAT SOMETHING MAY GO WRONG.
74# ~~ IF YOU WANT TO BE 100% SURE, PUT YOUR MOST IMPORTANT ITEMS IN YOUR VAULT, OR A CLOSED CONTAINER,
75# ~~ THIS SCRIPT AUTOMATICALLY STASHES YOUR VULNERABLE ITEMS IN YOUR SAFE CONTAINER! THIS IS A SPECIAL FEATURE THAT TOOK A WHILE TO PERFECT!
76# ~~ I TEST THIS SCRIPT WITH MULTIPLE SUPER RARE ITEMS~ I HAVE ONLY EVER LOST 1 or 2 ITEMS IN THOUSANDS OF RUNS,
77# ~~ DUE TO A BUG WHICH I FIXED YEARS AGO, ~BEFORE~ I HAD THIS AUTO-STASH FEATURE 
78# ~~ NEVERTHELESS - REGISTER YOUR MOST IMPORTANT STUFF TO BE SURE. BETTER TO BE SAFE THEN SORRY!
79#################################################################################################################################################
80
81#####################################
82#        USER VARIABLES                             #
83# YOU MUST SET THESE VARIABLES!   #
84####################################
85## IF you are a THIEF and BINNING ~AND~ PAWNING - BIN_CONTAINER and PAWN_CONTAINER ~MUST~ BE TWO DIFFERENT CONTAINERS!
86## IF you are a NON-THIEF, JUST pawning, or JUST binning - then these SHOULD be the SAME container.
87     var PAWN_CONTAINER pack
88     var BIN_CONTAINER haversack
89
90## WARNING!! SAFE_CONTAINER IS *MANDATORY* AND ~MUST~ BE A DIFFERENT CLOSABLE CONTAINER THEN BOTH BIN AND PAWN. 
91## IF NOT YOU COULD LOSE YOUR ITEMS! IDEALLY THIS SHOULD BE YOUR LARGEST CONTAINER! 
92     var SAFE_CONTAINER lootsack
93
94## IMPORTANT_ITEMS is for ~DOUBLE CHECKING~ your most priceless items to ENSURE you don't lose them
95## Script will already scan your bags and stash any vulnerable items in your safe container. 
96## This is just a secondary layer of protection! Not necessary but good for peace of mind. 
97     var IMPORTANT_ITEMS \btarge\b|basilisk arrow|crossbow bolt|shield|\bbuckler\b|mirror blade|katana|crossbow|mirror flail|quadrello|orb|throwing hammer
98     
99## SINGLE_RUN - ON WILL STOP STEALING AFTER A SINGLE CITY RUN. 
100## OFF WILL RUN UNTIL MIND LOCKED, MOVING FROM CITY TO CITY
101     var SINGLE_RUN OFF
102	
103## SHARD RUN ON WILL LEAVE YOU IN SHARD DESPITE SINGLE RUN VARIABLE
104## Example: If you start in Hib, script will end in Shard, regardless of your thievery learningrate. 
105## USEFUL FOR LOWER LEVELS WHO CAN'T CLIMB THE UNDERGONDOLA
106	var SHARD_RUN OFF
107
108## RETURN_HOME - YES returns you to your original starting city at the end of script. 
109## NO stays at whatever city you finish in.
110     var RETURN_HOME NO
111
112## PLEAD INNOCENT OR GUILTY
113     var PLEAD innocent
114
115## MY CUSTOM TRAVEL SCRIPT NAME (if you want to use a separate script named travel)
116## YOU CAN RENAME IT ANYTHING YOU WANT, JUST CHANGE THE VARIABLE HERE IF IT IS DIFFERENT THAN .TRAVEL
117     var TRAVEL_SCRIPT travel
118     
119## ARE YOU A PREMIUM MEMBER AND WANT TO USE THE PREMIUM BANK WHEN EXCHANGING CURRENCIES?
120## IF SO SET THIS VARIABLE TO ON
121     var PREMIUM ON
122
123## STEALTH - ON continues stealing until both Thievery AND Stealth is locked 
124## (Only works in Crossings - This is for noobs only)
125     var STEALTH OFF
126     
127## SNEAK ON WILL SNEAK FROM SHOP TO SHOP (Not recommended)
128##(THIS WILL INCREASE TOTAL TIME SIGNIFICANTLY!)
129     var SNEAK OFF
130     
131## HEALTH CHECK - Will check for wounds before script, will exit script if you have significant injuries. 
132## Recommend leaving ON or else you risk getting caught much more often.
133## You can turn this off if you want to script with bleeders..
134     var HEALTH_CHECK ON
135     
136###########################################
137#       THIEF ONLY VARIABLES                               #
138# THIEVES MUST SET YOUR PASSWORDS!     #
139##########################################
140     var HAVEN_PW nosortydeu
141     var SHARD_PW atilalhe
142     var khri1 plunder
143     var khri2 focus
144## WARNING!! IT IS ~NOT~ RECOMMEND TO TURN BIN OFF!
145## NOT BINNING ITEMS FOR A LONG TIME CAN DESTROY YOUR THIEF REP - AND YOU RUN A VERY HIGH CHANCE OF BEING THUGGED!
146## WHICH MOST LIKELY MEANS INSTANT DEATH FROM USING THIEF PASSAGES OR ENTERING THE THIEF GUILD. 
147## IF DESIRED, YOU CAN TURN PAWN OFF FOR MAXIMUM REP. 
148     var BIN ON
149     var PAWN ON
150     
151## MARK.ALL ON TO MARK EVERY ITEM YOU STEAL.  * RECOMMENDED FOR HIGHER LEVEL THIEVES
152## OFF TO SKIP THE SECOND AND FOURTH MARK  * RECOMMENDED FOR LOW LEVEL THIEVES  WHO CANNOT MARK  MORE THAN TWO TIMES 
153## STEALCOUNT IS THE MAX NUMBER OF TIMES YOU WILL STEAL FROM A SHOP - REGARDLESS OF MARK. 
154## 5 IS THE ABSOLUTE MAX FOR STEALCOUNT! ANY HIGHER AND YOU WILL BE CAUGHT. 
155     var MARK.ALL ON
156     var STEALCOUNT 5
157     
158###############################
159# NECROMANCER VARIABLES     #
160###############################
161## FOR EOTB AND ROC CHOOSE EITHER OFF or ON
162## CHOOSE YOUR MANA AMOUNT AND CAST TIME (OR SET TO 0 TO WAIT FOR FULL CAST)
163     var EOTB ON
164     var eotbMana 20
165     var ROC OFF
166     var rocMana 5
167     var castPause 20
168## Enter any "room titles" where you do NOT want to cast. Several have been added as an example.  
169## Note, all banks should already be accounted for.
170     var donotcastlist The Crossing, Western Gate|The Crossing, Hodierna Way|Northeast Wilds, Outside Northeast Gate
171
172###############################
173# EMPATH ONLY VARIABLES       #
174###############################
175## POWER (Perceive), PercHealth and GuardianSpirit can be OFF or ON
176## CHOOSE ONE IF DESIRED TO PERCEIVE BEFORE EACH SHOP
177## POWER IS FOR NOOB EMPATHS WHILE PERC IS FOR HIGHER LEVEL EMPATHS
178## CHOOSE YOUR MANA AMOUNT AND CAST TIME (OR SET TO 0 TO WAIT FOR FULL CAST)
179     var POWER OFF
180     var PercHealth OFF
181     var GuardianSpirit OFF
182     var gsMana 15
183     var ECastPause 20
184     
185###############################
186##       TF VARIABLES         #
187## IGNORE THESE IF NOT IN TF  #
188###############################
189     var ClanItem NO
190     var CLAN_ITEM_NAME human skull
191     var MAIN_SCRIPT prime
192################################################
193#          !!! END USER VARIABLES !!!          #
194#         DO NOT TOUCH ANYTHING BELOW!         #
195################################################
196### DEFAULT VARIABLES
197     var runTime 0
198     var Banked 0
199     var Profit 0
200     var Plat 0
201     var Gold 0
202     var Silver 0
203     var Bronze 0-
204     var Copper 0
205     var Plats 0
206     var Golds 0
207     var Silvers 0
208     var Bronzes 0
209     var Coppers 0
210     put #tvar Plat 0
211     put #tvar Gold 0
212     put #tvar Silver 0
213     put #tvar Bronze 0
214     put #tvar Copper 0
215     var currency kronar
216     var itemLocation
217     var Jailed 0
218     var Charges 0
219     var Binned 0
220     var Pawned 0
221     var SECOND_ITEM 0
222     var SECOND_PAWN OFF
223     var marking OFF
224     var noLearn OFF
225	var noSteal OFF
226     var Rite OFF
227     var Eyes OFF
228     var nosell null
229     var armor null
230     var armor1 null
231     var armor2 null
232     var armor3 null
233     var armor4 null
234     var armor5 null
235     var armor6 null
236     var armor7 null
237     var armor8 null
238     var armor9 null
239     var armor10 null
240     var total.armor 0
241#############################################################################################################################################
242     put #var save
243ACTION.INIT:
244     var LAST ACTION.INIT
245     action math Pawned add 1 when You sell your
246     action math Binned add 1 when Nice work, $charactername
247     action math Charges add 1 when begins to shout for help|begins to shout loudly for help
248     action var Eyes ON when ^Your spell subtly alters|^You feel an unsteady|^Your spell injects more psychic corruption
249     action var Eyes OFF when ^Your corruptive mutation fades|^Your corruption fades
250     action var Rite ON when ^You weave a field of sublime|^The Rite of Contrition matrix redoubles
251     action var Rite OFF when ^The Rite of Contrition matrix loses
252     action var nosell $1 when ^\w+ shakes his head (.+)$  
253	action var nosteal ON when ^You stop as you realize that the
254     action goto TOO.MANY.FINES when ^You think about stealing for a moment
255     action instant goto JAIL.CHECK when a sound not unlike that of a tomb|binds you in chains|firmly off to jail|drag you off to jail|brings you to the jail|Dwarves burst out from everywhere
256     action instant goto JAIL.CHECK when your belongings have been stripped|in a jail cell wearing a set of heavy manacles|strip you of all your possessions|binds your hands behind your back
257     action instant goto JAIL.CHECK when the last thing you see before you black out|your possessions have been stripped|Do not resist, for your crimes must be answered for
258     action instant goto JAIL.CHECK when Your silence shall be taken as an indication of your guilt|The eyes of the court are upon you|Your silence can only be taken as evidence of your guilt
259     action instant goto JAIL.CHECK when all your belongings have been stripped|^The guard brings you to the jail
260     action var noLearn ON; put #echo >log Orange *** Not learning from %item in %SHOP @ $Thievery.Ranks ranks when You don't feel you learned anything useful
261     action put #echo >log Red *** Caught in %SHOP stealing: %item @ $Thievery.Ranks ranks when notices you attempting|Guards\! Guards\!|begins to shout
262     action put #echo >log Purple *** Stealing Mind Locked! Not learning anymore when You feel that for the moment you've learned all you can   
263     # action send exit when eval $health < 50
264     # action goto CLAN.HEAL when I now pronounce sentence
265     if ("%PREMIUM" = "ON") then gosub PREMIUM.CHECK
266	gosub GUILD.CHECK
267     if ("$guild" = "Necromancer") then gosub NECROSTART
268     gosub CITY.CHECK
269     gosub HEALTH_CHECK
270     gosub SKILLCHECK
271     gosub WELCOME
272######################################################################################################################################
273     var STEAL.LIST.THEREN %T.Tarsha|%T.Rose|%T.Music|%T.Hats|%T.Arm|%T.Gift|%T.Sweet|%T.Cupcake|%T.Gen|%T.Krrish|%T.Lense|%T.Cleric|%T.Men|%T.Women|%T.Cloth|%T.Armory|%T.Forge
274     var STEAL.LIST.HAVEN %RH.Herb|%RH.Iron|%RH.Naph|%RH.Flow|%RH.Seli|%RH.Arms|%RH.Gen|%RH.Cloth|%RH.Artif|%RH.Joy|%RH.Smoke|%RH.Weap|%RH.Bard|%RH.Bard2|%RH.Cleric|%RH.Cleric2|%RH.Lock|%RH.Tog|%RH.Tog2|%RH.Mirg
275     var STEAL.LIST.ARTHE %AD.Feta|%AD.Thread|%AD.Fash|%AD.Odds|%AD.Bard|%AD.Map|%AD.Arm|%AD.Tart.E|%KA.Grek|%AD.Smoke|%KA.Grek
276     var STEAL.LIST.CROSS %C.Alch|%C.Artif|%C.Bath|%C.Card|%C.Gen|%C.Weap|%C.Arm|%C.Music|%C.Music2|%C.Lock|%C.Empath|%C.Empath2|%C.Empath3|%C.Cler|%C.Haber|%C.Script|%C.Tann|%C.Jewel|%C.Stitch|%C.Cobb|%C.Herb|%C.Flow
277     var STEAL.LIST.LETH %L.Skin|%L.Bow|%L.Orig|%L.Weap|%L.Wick|%L.Bard|%L.Bard2|%L.Cloth|%L.Wood|%L.Gen|%L.Gen.Alt|%L.Perf
278     var STEAL.LIST.SHARD %S.Gen|%S.Weap|%S.Cleric|%S.Stitch|%S.Alch|%S.Herb|%S.Artif|%S.Music|%S.Armor|%S.Reed|%S.Bow|%S.Lock|%S.Coin|%S.Frill|%S.Herald|%S.Gift|%S.Spire|%S.Toy|%S.Memory|%S.Token|%S.Museum|%S.Barber|%S.Tanner|%S.Surv|%S.Surv.Alt|%S.Surv2|%S.Surv2.Alt
279     var STEAL.LIST.HIB %SC.Weap|%H.Shield|%H.Jewel|%H.Tog|%H.Herb|%H.Sund|%H.Lamp|%H.Music|%H.Alch|%H.Forge|%RP.Gen|%RP.Tobac
280     var STEAL.LIST.RATHA %R.Bait|%R.Gen|%R.Herb|%R.Forge|%R.Tailor|%R.Hair|%R.Leather|%R.Music|%R.Magic|%R.Origami|%R.Jewelry|%R.Ring
281     var STEAL.LIST.AESRY %A.Herb|%A.Tanner|%A.Clothing|%A.Script|%A.Cleric|%A.Origami|%A.Jewelry|%A.Magic|%A.Slings|%A.Puzzle|%A.Footwear|%A.Shields|%A.Weapon|%A.Armor|%A.Gen|%A.Flower|%A.Music
282     var STEAL.LIST.MISC cigar|scroll|naphtha|sling|mining helm|tobacco|bagpipes|cowl|dwarven hammer|lamp|robe|string
283######################################################################################################################################
284     var STEAL.LIST %STEAL.LIST.THEREN|%STEAL.LIST.HAVEN|%STEAL.LIST.ARTHE|%STEAL.LIST.CROSS|%STEAL.LIST.LETH|%STEAL.LIST.SHARD|%STEAL.LIST.HIB|%STEAL.LIST.RATHA|%STEAL.LIST.AESRY|%STEAL.LIST.MISC
285     var large.items cauldron|stove|spear|wayerd pyramid
286######################################################################################################################################
287ARMOR.INIT:
288     var LAST ARMOR.INIT
289     echo
290     echo **** CHECKING WORN ARMOR...
291     echo
292     pause 0.2
293     gosub STOWING
294     gosub ARMOR.CHECK
295     if_2 then
296          {
297               echo
298               echo *** YOU STARTED SCRIPT WITH A SECOND VARIABLE
299               echo *** THIS IS FOR TROUBLESHOOTING/TESTING PURPOSES ONLY!!!
300               echo ( FOR STARTING SCRIPT MIDWAY AND JUMPING TO A LABEL, WHILE SKIPPING THE BAG CHECK ) 
301               echo
302               pause 3
303               echo !!!! WARNING !!! WARNING !!!!! 
304               echo !!!! SKIPPING BAG CHECK !!!!
305               echo !!!! YOU MAY LOSE YOUR ITEMS IF YOU DID NOT ALREADY MOVE ITEMS TO YOUR SAFE CONTAINER!!
306               echo !!!! ABORT SCRIPT ~NOW~ AND RESTART WITH NO OPTIONS (.steal) IF YOU ARE NOT DOING THIS ON PURPOSE !!
307               echo !!!! CONTINUING IN 10 SECONDS...
308               pause 7
309               echo
310               echo *** ~~~~ DEBUG MODE ENABLED ~~~~
311               echo *** STARTING SCRIPT FROM %1 LABEL...
312               echo
313               pause 3
314               debuglevel 10
315               goto START
316          }
317CHECKING.BAGS:
318     var LAST CHECKING.BAGS
319     echo
320     echo ****** CHECKING YOUR CURRENT BAG CONTENTS TO AVOID PAWNING/BINNING YOUR ITEMS....
321     echo ****** WILL STASH ALL VULNERABLE ITEMS IN YOUR: %SAFE_CONTAINER
322     echo
323     pause 0.2
324     gosub BAG.CHECK %PAWN_CONTAINER
325     gosub BAG.CHECK %BIN_CONTAINER
326
327START:
328     var LAST START
329     echo
330     echo *** THIEVERY SKILL RANGE - %skillrange
331     echo
332     pause
333     if ("%BIN" = "OFF") then
334          {
335               echo
336               echo *** PAWNING ALL ITEMS FOR MAX PROFIT...
337               echo
338               pause
339          }
340     timer start
341     gosub CITY.CHECK
342     if_1 then goto %1
343############################################################################################
344############################################################################################
345####                         BEGIN STEALING SECTION                                    #####
346############################################################################################
347############################################################################################
348MAINLOOP:
349STEALING.RUN:
350     var LAST STEALING.RUN
351     gosub STOWING
352STEAL.BEGIN:
353     put #echo >Log SkyBlue ** Starting Stealing Run from: %CITY
354     pause 0.5
355     goto %CITY.STEAL
356######################################################
357#  THERENGIA STEALING (THEREN/ROSSMAN/RIVERHAVEN     #
358######################################################
359### THERENBOROUGH
360THEREN.STEAL:
361     var CURRENT.CITY THEREN
362     var LAST THEREN.STEAL
363     if ("%POWER" = "ON") || ("%PercHealth" = "ON") || ("%GuardianSpirit" = "ON") || ("ROC" = "ON") || ("EOTB" = "ON") then
364          {
365               echo *** NOT CASTING ANY SPELLS WHILE IN THEREN!
366               echo *** TOO MANY MAGICALLY INERT ROOMS! THEREN SUCKS!
367               pause 3
368          }
369     if matchre("$roomobjs","(Baronial guardsman)") then put surrender guard
370     pause 0.5
371     pause 0.1
372     gosub COOKIE
373THEREN.EXP.CHECK.0:
374     if $Thievery.Ranks < 50 then goto THEREN.NOSTEAL
375     if $Thievery.Ranks >= 690 then goto THEREN.TO.ROSE
376THEREN.TO.TARSHA:
377     var LAST THEREN.TO.ROSE
378     gosub AUTOMOVE tarsha
379THEREN.TARSHA:
380     var shopcode T.Tarsha
381     var SHOP Tarsha's Emporium
382     gosub STEAL %T.Tarsha
383THEREN.TO.ROSE:
384     var LAST THEREN.TO.MUSIC
385     gosub AUTOMOVE theatre
386THEREN.ROSE:
387     var shopcode T.Rose
388     var SHOP Rose of the Theater - Attire
389     gosub STEAL %T.Rose
390THEREN.TO.MUSIC:
391     var LAST THEREN.EXP.CHECK.1:
392     gosub AUTOMOVE rose of the theatre
393THEREN.MUSIC:
394     var shopcode T.Music
395     var SHOP Rose of the Theater - Instruments
396     gosub STEAL %T.Music.Num %T.Music
397THEREN.EXP.CHECK.1:
398     if $Thievery.Ranks >= 590 then goto THEREN.TO.ARMOR
399THEREN.TO.HATS:
400     var LAST THEREN.EXP.CHECK.2
401     gosub AUTOMOVE hats
402THEREN.HATS:
403     var shopcode T.Hats
404     var SHOP Theren Hats
405     gosub STEAL %T.Hats
406THEREN.EXP.CHECK.2:
407     if $Thievery.Ranks >= 300 then goto THEREN.TO.ARMOR
408THEREN.TO.SWEET:
409     var LAST THEREN.TO.CUPCAKE
410     gosub AUTOMOVE sweet
411THEREN.SWEET:
412     var shopcode T.Sweet
413     var SHOP Theren Sweet Delights
414     gosub STEAL %T.Sweet
415THEREN.TO.CUPCAKE:
416     var LAST THEREN.TO.ARMOR
417     gosub AUTOMOVE cup
418THEREN.CUPCAKE:
419     var shopcode T.Cupcake
420     var SHOP Theren Cupcake
421     gosub STEAL %T.Cupcake
422THEREN.TO.ARMOR:
423     var LAST THEREN.TO.GIFT
424     gosub AUTOMOVE armor
425THEREN.ARMOR:
426     var shopcode T.Arm
427     var SHOP Theren Armor
428     gosub STEAL %T.Arm
429THEREN.TO.GIFT:
430     var LAST THEREN.EXP.CHECK.3
431     gosub AUTOMOVE gift
432THEREN.GIFT:
433     var shopcode T.Gift
434     var SHOP Theren Gift Shop
435     gosub STEAL %T.Gift
436THEREN.EXP.CHECK.3:
437     if $Thievery.Ranks >= 700 then goto THEREN.TO.KRRISH
438THEREN.TO.GENERAL:
439     var LAST THEREN.TO.KRRISH
440     gosub AUTOMOVE general
441THEREN.GENERAL:
442     var shopcode T.Gen
443     var SHOP Theren General Store
444     gosub STEAL %T.Gen
445THEREN.TO.KRRISH:
446     var LAST THEREN.TO.LENSE
447     gosub AUTOMOVE Krrish's home
448THEREN.KRRISH:
449     var shopcode T.Krrish
450     var SHOP Theren Krissh
451     gosub STEAL %T.Krrish
452THEREN.TO.LENSE:
453     var LAST THEREN.EXP.CHECK.4
454     gosub AUTOMOVE lense
455THEREN.LENSE:
456     var shopcode T.Lense
457     var SHOP Theren Konezu's Lenses
458     gosub STEAL %T.Lense
459THEREN.EXP.CHECK.4:
460     if $Thievery.Ranks >= 460 then goto THEREN.TO.MEN
461THEREN.TO.CLERIC:
462     var LAST THEREN.TO.MEN
463     gosub AUTOMOVE cleric
464THEREN.CLERIC:
465     var shopcode T.Cleric
466     var SHOP Theren Cleric Shop
467     gosub STEAL %T.Cleric
468THEREN.TO.MEN:
469     var LAST THEREN.TO.WOMEN
470     gosub AUTOMOVE men's
471THEREN.MEN:
472     var shopcode T.Men
473     var SHOP Theren Courtly Men's Study
474     gosub STEAL %T.Men
475THEREN.TO.WOMEN:
476     var LAST THEREN.TO.CLOTHING
477     gosub AUTOMOVE women's
478THEREN.WOMEN:
479     var shopcode T.Women
480     var SHOP Theren Courtly Women's Parlor
481     gosub STEAL %T.Women
482THEREN.TO.CLOTHING:
483     var LAST THEREN.TO.ARMORY
484     gosub AUTOMOVE clothing
485THEREN.CLOTHING:
486     var shopcode T.Cloth
487     var SHOP Theren Courtly Clothing
488     gosub STEAL %T.Cloth
489THEREN.TO.ARMORY:
490     var LAST THEREN.TO.ARMORY
491     gosub AUTOMOVE 103
492     gosub AUTOMOVE moat
493     gosub AUTOMOVE 146
494THEREN.TO.DUNG:
495     gosub AUTOMOVE dungeon
496THEREN.TO.ARMORY.CONT:
497     gosub AUTOMOVE armory
498THEREN.ARMORY:
499     var shopcode T.Armory
500     var SHOP Theren Keep Armory
501     gosub STEAL %T.Armory
502THEREN.LEAVE:
503     var LAST THEREN.LEAVE
504     gosub AUTOMOVE 69
505     send jump moat
506     echo *** STUNNED!! Pausing to recover....
507     pause 12
508THEREN.STUNNED:
509     var LAST THEREN.STUNNED
510     pause 11
511     if $stunned = 1 then goto THEREN.STUNNED
512     gosub STAND
513     pause 0.5
514     gosub AUTOMOVE 1
515     put go gate
516TRAVEL.HAVEN:
517TO.RIVERHAVEN:
518     pause 0.5
519     echo *** TRAVELLING TO HAVEN.....
520     send .%TRAVEL_SCRIPT haven
521     waitforre ^YOU HAVE ARRIVED
522     pause 0.1
523############################################
524#  RIVERHAVEN STEALING
525############################################
526RIVERHAVEN.STEAL:
527HAVEN.STEAL:
528     var LAST HAVEN.STEAL
529     var CURRENT.CITY RIVERHAVEN
530     if matchre("$roomobjs","(Riverhaven Warden)") then put surrender warden
531     pause 0.5
532     pause 0.1
533     gosub COOKIE
534     if ("%guild" = "Necromancer") then gosub NECROPREP
535     gosub TIME.CHECK
536HAVEN.TO.TOG:
537     var LAST HAVEN.EXP.CHECK.0
538     gosub AUTOMOVE city tog
539HAVEN.TOG:
540     var shopcode RH.Tog
541     var SHOP Riverhaven Togs
542     gosub STEAL %RH.Tog
543HAVEN.EXP.CHECK.0:
544     if $Thievery.Ranks >= 340 then goto HAVEN.EXP.CHECK.1
545     if $Thievery.LearningRate > 31 then goto GO.PAWN.HAVEN
546HAVEN.TO.HERB:
547     var LAST HAVEN.EXP.CHECK.1
548     gosub AUTOMOVE herb
549HAVEN.HERB:
550     var shopcode RH.Herb
551     var SHOP Riverhaven Herbs
552     gosub STEAL %RH.Herb
553HAVEN.EXP.CHECK.1:
554     if $Thievery.Ranks >= 385 then goto HAVEN.EXP.CHECK.2
555HAVEN.TO.NAPHTHA:
556     var LAST HAVEN.EXP.CHECK.2
557     gosub AUTOMOVE Naptha
558HAVEN.NAPHTHA:
559     var shopcode RH.Naph
560     var SHOP Riverhaven Naptha Cart
561     var itemLocation %RH.Naph.Loc
562     gosub STEAL %RH.Naph
563HAVEN.EXP.CHECK.2:
564     var itemLocation 
565     if $Thievery.Ranks >= 600 then goto HAVEN.TO.ARMS
566HAVEN.TO.FLOWER:
567     var LAST HAVEN.TO.ARMS
568     gosub AUTOMOVE cecel
569HAVEN.FLOWER:
570     var shopcode RH.Flow
571     var SHOP Riverhaven Florist
572     gosub STEAL %RH.Flow
573HAVEN.TO.ARMS:
574     var LAST HAVEN.EXP.CHECK.3
575     gosub AUTOMOVE noel
576HAVEN.ARMS:
577     var shopcode RH.Arms
578     var SHOP Riverhaven Noel's Arms
579     gosub STEAL %RH.Arms
580HAVEN.EXP.CHECK.3:
581     if $Thievery.Ranks >= 650 then goto HAVEN.EXP.CHECK.4
582     if $Thievery.LearningRate > 33 then goto GO.PAWN.HAVEN
583HAVEN.TO.GENERAL:
584     var LAST HAVEN.EXP.CHECK.4
585     gosub AUTOMOVE general
586HAVEN.GENERAL:
587     var shopcode RH.Gen
588     var SHOP Riverhaven General Store
589     gosub STEAL %RH.Gen
590HAVEN.EXP.CHECK.4:
591     if $Thievery.Ranks >= 600 then goto HAVEN.EXP.CHECK.5
592HAVEN.TO.CLOTH:
593     var LAST HAVEN.EXP.CHECK.5
594     gosub AUTOMOVE cloth
595HAVEN.CLOTH:
596     var shopcode RH.Cloth
597     var SHOP Riverhaven Clothiers
598     gosub STEAL %RH.Cloth
599HAVEN.EXP.CHECK.5:
600     # if $Thievery.Ranks >= 1200 then goto HAVEN.TO.JOY
601HAVEN.TO.ARTIFICER:
602     var LAST HAVEN.EXP.CHECK.6
603     gosub AUTOMOVE artif
604HAVEN.ARTIFICER:
605     var shopcode RH.Artif
606     var SHOP Riverhaven Artificer
607     gosub STEAL %RH.Artif
608HAVEN.EXP.CHECK.6:
609     if $Thievery.Ranks >= 138 then goto HAVEN.EXP.CHECK.7
610HAVEN.TO.LOCKSMITH:
611     var LAST HAVEN.EXP.CHECK.7
612     gosub AUTOMOVE locks
613HAVEN.LOCKSMITH:
614     var shopcode RH.Lock
615     var SHOP Riverhaven Locksmith
616     gosub STEAL %RH.Lock
617HAVEN.EXP.CHECK.7:
618     if $Thievery.LearningRate > 33 then goto GO.PAWN.HAVEN
619     if $Thievery.Ranks >= 414 then goto HAVEN.EXP.CHECK.8
620HAVEN.TO.JOY:
621     var LAST HAVEN.EXP.CHECK.8
622     gosub AUTOMOVE smara
623HAVEN.JOY:
624     var shopcode RH.Joy
625     var SHOP Riverhaven Joy Shop
626     gosub STEAL %RH.Joy
627     gosub MOVE out
628     pause 0.5
629HAVEN.EXP.CHECK.8:
630     if $Thievery.Ranks >= 238 then goto HAVEN.TO.MIRG
631HAVEN.TIME.0:
632     gosub TIME.CHECK
633     if ("%TIME" = "DAY") then goto HAVEN.TO.SMOKE
634     goto HAVEN.TO.MIRG
635HAVEN.TO.SMOKE:
636     var LAST HAVEN.TO.MIRG
637     gosub AUTOMOVE 42
638     send kneel
639     send go shop
640HAVEN.SMOKE:
641     var shopcode RH.Smoke
642     var SHOP Riverhaven Smoke Shop
643     gosub STEAL %RH.Smoke
644     send out
645     pause
646     gosub STAND
647     gosub HIDE
648HAVEN.TO.MIRG:
649     var LAST HAVEN.TO.WEAPON
650     gosub AUTOMOVE jewel
651HAVEN.MIRG:
652     var shopcode RH.Mirg
653     var SHOP Riverhaven Goldsmiths
654     gosub STEAL %RH.Mirg
655HAVEN.EXP.CHECK.9:
656     if $Thievery.LearningRate > 33 then goto GO.PAWN.HAVEN
657HAVEN.TO.WEAPON:
658     var LAST HAVEN.TO.BARD
659     gosub AUTOMOVE weapon
660HAVEN.WEAPON:
661     var shopcode RH.Weap
662     var SHOP Riverhaven Weapon Shop
663     gosub STEAL %RH.Weap
664HAVEN.TO.BARD:
665     var LAST HAVEN.TO.BARD2
666     gosub AUTOMOVE bard
667HAVEN.BARD:
668     var shopcode RH.Bard
669     var SHOP Riverhaven Bard Shop
670     gosub STEAL %RH.Bard
671HAVEN.TO.BARD2:
672     var LAST HAVEN.EXP.CHECK.10
673     gosub AUTOMOVE bard
674     gosub MOVE go curt
675HAVEN.BARD2:
676     var shopcode RH.Bard2
677     var SHOP Riverhaven Bard2 Shop
678     gosub STEAL %RH.Bard2
679HAVEN.EXP.CHECK.10:
680     if $Thievery.LearningRate > 33 then goto GO.PAWN.HAVEN
681HAVEN.TO.IRON:
682     var LAST HAVEN.TO.CLERIC
683     gosub AUTOMOVE iron
684HAVEN.IRONWORKS:
685     var shopcode RH.Iron
686     var SHOP Riverhaven Ironworks
687     gosub STEAL %RH.Iron
688HAVEN.TO.CLERIC:
689     var LAST HAVEN.TO.CLERIC2
690     gosub AUTOMOVE cleric shop
691HAVEN.EXP.CHECK.11:
692     if $Thievery.Ranks >= 465 then goto HAVEN.TO.CLERIC2
693HAVEN.CLERIC:
694     var shopcode RH.Cleric
695     var SHOP Riverhaven Cleric Shop
696     gosub STEAL %RH.Cleric
697HAVEN.TO.CLERIC2:
698     var LAST GO.PAWN.HAVEN
699     if !matchre("%guild","(Thief|Empath|Cleric)") then goto GO.PAWN.HAVEN
700     gosub MOVE go curt
701HAVEN.CLERIC2:
702     var shopcode RH.Cleric2
703     var SHOP Riverhaven Cleric2 Shop
704     gosub STEAL %RH.Cleric2
705GO.PAWN.HAVEN:
706     var CURRENT.CITY RIVERHAVEN
707     var LAST GO.PAWN.HAVEN
708     if ("%PAWN" = "OFF") then goto HAVEN.TO.BANK
709     gosub AUTOMOVE PAWN
710     pause 0.5
711     if ("%guild" = "Necromancer") then gosub NECROPREP
712     gosub PAWN.GOODS
713HAVEN.TO.BANK:
714     var LAST HAVEN.TO.BANK
715     if ("%guild" = "Thief") then send khri stop
716     if ("%guild" = "Necromancer") then goto HAVEN.TELLER
717     if ("%PREMIUM" = "ON") then goto HAVEN.PREMIUM
718     gosub AUTOMOVE exchange
719     gosub LIRUMS
720     goto HAVEN.TELLER
721HAVEN.PREMIUM:
722     gosub AUTOMOVE premium exchange
723     gosub LIRUMS
724HAVEN.TELLER:
725     gosub AUTOMOVE teller
726     var Banked 1
727     gosub BANK
728     if ("%guild" = "Thief") then gosub PUT with 4 silver
729     gosub MOVE go arch
730     if ("%guild" = "Necromancer") then gosub NECROPREP
731     gosub MOVE out
732     if ("%BIN" = "OFF") then goto DONE.STEALING.HAVEN
733GO.BIN.HAVEN:
734HAVEN.GO.BIN:
735HAVEN.FIND.GUILD:
736     var LAST HAVEN.FIND.GUILD
737     var BIN.HAVEN 0
738     pause 0.5
739     match hole1 selling off some stolen goods
740     match hole2 Crescent Way
741     match hole3 Silvermoon Road
742     match hole4 the boss is with his own kind
743     match hole5 cooped up
744     match hole6 around the rookery
745     matchre NO.CONTACTS Apparently there are too many eyes on you|USAGE|walks off|look of disgust
746     send contact guild
747     matchwait 7
748     goto NO.CONTACTS
749NO.CONTACTS:
750     var LOCATION LOST
751hole1:
752     var LAST hole1
753     gosub AUTOMOVE 33
754     gosub SEARCH
755     pause $roundtime
756     pause 0.5
757     gosub PUT knock door
758     gosub PUT whisper door %HAVEN_PW
759     gosub MOVE climb stair
760     gosub MOVE ne
761     gosub MOVE go corner
762athole1:
763     if matchre("$roomobjs","(Crow|Lady Swan)") then
764          {
765               var BIN.HAVEN 1
766               gosub BIN.GOODS
767               gosub CIRCLE.CHECK
768          }
769     gosub MOVE out
770     gosub MOVE sw
771     send climb stair
772     pause 0.5
773     send go door
774     pause 0.5
775     if ("%LOCATION" = "LOST") && ("%BIN.HAVEN" = "0") then goto hole2
776     goto HAVEN.DONE.ASSESS
777hole2:
778     var LAST hole2
779     gosub AUTOMOVE 47
780     gosub SEARCH
781     pause $roundtime
782     pause 0.5
783     gosub PUT knock door
784     gosub PUT whisper door %HAVEN_PW
785     gosub PUT look shadow
786     gosub PUT search shadow
787     pause 0.5
788     gosub MOVE go open
789     gosub MOVE go cor
790athole2:
791     if matchre("$roomobjs","(Crow|Lady Swan)") then
792          {
793               var BIN.HAVEN 1
794               gosub BIN.GOODS
795               gosub CIRCLE.CHECK
796          }
797     gosub MOVE out
798     gosub MOVE out
799     gosub MOVE go door
800     if ("%LOCATION" = "LOST") && ("%BIN.HAVEN" = "0") then goto hole3
801     goto HAVEN.DONE.ASSESS
802hole3:
803     var LAST hole3
804     gosub AUTOMOVE 36
805     gosub SEARCH
806     pause $roundtime
807     gosub PUT knock door
808     gosub PUT whisper door %HAVEN_PW
809     gosub PUT look floor
810     gosub MOVE go door
811     gosub MOVE go cor
812athole3:
813     if matchre("$roomobjs","(Crow|Lady Swan)") then
814          {
815               var BIN.HAVEN 1
816               gosub BIN.GOODS
817               gosub CIRCLE.CHECK
818          }
819     gosub MOVE out
820     send climb door
821     pause 0.5
822     gosub MOVE out
823     if ("%LOCATION" = "LOST") && ("%BIN.HAVEN" = "0") then goto hole4
824     goto HAVEN.DONE.ASSESS
825hole4:
826     var LAST hole4
827     gosub AUTOMOVE 302
828     gosub SEARCH
829     pause $roundtime
830     gosub PUT knock grat
831     gosub PUT whisper grat %HAVEN_PW
832     gosub MOVE go door
833     gosub MOVE ne
834     gosub MOVE go nook
835athole4:
836     if matchre("$roomobjs","(Crow|Lady Swan)") then
837          {
838               var BIN.HAVEN 1
839               gosub BIN.GOODS
840               gosub CIRCLE.CHECK
841          }
842     gosub MOVE out
843     gosub MOVE sw
844     gosub MOVE go door
845     gosub MOVE go grate
846     gosub MOVE out
847     if ("%LOCATION" = "LOST") && ("%BIN.HAVEN" = "0") then goto hole5
848     goto HAVEN.DONE.ASSESS
849hole5:
850     var LAST hole5
851     gosub AUTOMOVE 41
852     gosub SEARCH
853     pause $roundtime
854     pause 0.5
855     gosub PUT knock door
856     gosub PUT whisper door %HAVEN_PW
857     gosub MOVE n
858     gosub MOVE go corn
859athole5:
860     if matchre("$roomobjs","(Crow|Lady Swan)") then
861          {
862               var BIN.HAVEN 1
863               gosub BIN.GOODS
864               gosub CIRCLE.CHECK
865          }
866     gosub MOVE out
867     gosub MOVE s
868     gosub MOVE go door
869     if ("%LOCATION" = "LOST") && ("%BIN.HAVEN" = "0") then goto hole6
870     goto HAVEN.DONE.ASSESS
871hole6:
872     var LAST hole6
873     gosub AUTOMOVE 305
874     gosub SEARCH
875     pause $roundtime
876     gosub PUT knock door
877     gosub PUT whisper door %HAVEN_PW
878     gosub MOVE go arch
879     gosub MOVE climb st
880     gosub MOVE go cor
881athole6:
882     if matchre("$roomobjs","(Crow|Lady Swan)") then
883          {
884               var BIN.HAVEN 1
885               gosub BIN.GOODS
886               gosub CIRCLE.CHECK
887          }
888     gosub MOVE out
889     gosub MOVE climb sta
890     gosub MOVE go arc
891     gosub MOVE go door
892     goto HAVEN.DONE.ASSESS
893HAVEN.DONE.ASSESS:
894     var LAST HAVEN.DONE.ASSESS
895     math RunsCompleted add 1
896     send exp
897     waitforre ^EXP HELP for more information
898DONE.STEALING.HAVEN:
899     var LAST DONE.STEALING.HAVEN
900     gosub AUTOMOVE town
901     if ("%SINGLE_RUN" = "ON") then goto FINISHED.SCRIPT
902     if ($Thievery.LearningRate >= 30) then goto FINISHED.SCRIPT
903     if ("%CITY" = "SHARD") || ("%CITY" = "CROSSING") || ("%CITY" = "HIB") || ("%CITY" = "LETH") then goto FINISHED.SCRIPT
904     if ("%CITY" = "RIVERHAVEN") || ("%CITY" = "ROSSMAN") || ("%CITY" = "THEREN") && ($Thievery.LearningRate < 30) then goto TO.ARTHE
905     goto TO.ARTHE
906############################################################################
907## ZOLUREN STEALING SECTION (ARTHE / CROSSING / LETH  )                   ##
908############################################################################
909# ARTHE DALE
910CROSSING.STEAL:
911ARTHE.STEAL:
912TO.ARTHE:
913     var CURRENT.CITY ARTHE
914     var LAST TO.ARTHE
915     if ($zoneid = 30) && ($roomid != 8) then gosub AUTOMOVE 8
916     if ($zoneid = 1) && ($roomid != 42) then gosub AUTOMOVE 42
917     if ($zoneid = 7) then goto ARTHE
918     send .%TRAVEL_SCRIPT arthe
919     waitforre ^YOU HAVE ARRIVED
920     pause
921ARTHE:
922     var LAST CROSSING
923     gosub AUTOMOVE glaysker
924     pause 0.5
925     echo
926     echo *** STEALING FROM ARTHE DALE!
927     echo
928     gosub COOKIE
929     if ("%guild" = "Necromancer") then gosub NECROPREP
930ARTHE.EXP.CHECK.0:
931     if $Thievery.Ranks >= 460 then goto ARTHE.TO.ODDS
932ARTHE.TO.PATTERN:
933     var LAST ARTHE.TO.FASHION
934     gosub AUTOMOVE embroid
935ARTHE.THREADS:
936     var shopcode AD.Thread
937     var SHOP Arthe Dale Thread Shop
938     gosub STEAL %AD.Thread
939ARTHE.TO.FASHION:
940     var LAST ARTHE.TO.ODDS
941     gosub AUTOMOVE clothing
942ARTHE.FASHION:
943     var shopcode AD.Fash
944     var SHOP Arthe Dale Fashion Shop
945     gosub STEAL %AD.Fash
946ARTHE.TO.ODDS:
947     var LAST ARTHE.EXP.CHECK.1
948     gosub AUTOMOVE Odds
949ARTHE.ODDS:
950     var shopcode AD.Odds
951     var SHOP Arthe Dale Odds'n'Ends Shop
952     gosub STEAL %AD.Odds
953     if $hidden then gosub unhide
954     gosub MOVE out
955ARTHE.EXP.CHECK.1:
956     if $Thievery.Ranks >= 600 then goto ARTHE.TIME.0
957ARTHE.TO.BARD:
958     var LAST ARTHE.TIME.0
959     gosub AUTOMOVE music
960ARTHE.BARD:
961     var shopcode AD.Bard
962     var SHOP Arthe Dale Bard Shop
963     gosub STEAL %AD.Bard
964     gosub MOVE out
965ARTHE.TIME.0:
966     if ($Time.isDay = 1) then goto ARTHE.TO.ARMOR
967     if ($Time.isDay = 0) then goto ARTHE.EXP.CHECK.2
968     gosub TIME.CHECK
969     if ("%TIME" = "NIGHT") then goto ARTHE.EXP.CHECK.2
970ARTHE.TO.ARMOR:
971     var LAST ARTHE.EXP.CHECK.2
972     gosub AUTOMOVE Armor
973ARTHE.ARMOR:
974     var shopcode AD.Arm
975     var SHOP Arthe Dale Armor Shop
976     gosub STEAL %AD.Arm
977ARTHE.EXP.CHECK.2:
978     if $Thievery.Ranks >= 300 then goto ARTHE.TO.YULUGRI
979ARTHE.TO.FETA:
980     var LAST ARTHE.TO.YULUGRI
981     gosub AUTOMOVE feta
982ARTHE.FETA:
983     var shopcode AD.Feta
984     var itemLocation %AD.FETA.Loc
985     var SHOP Arthe Dale Feta's Kitchen
986     gosub STEAL %AD.Feta
987ARTHE.TO.YULUGRI:
988     var LAST ARTHE.EXP.CHECK.3
989     gosub AUTOMOVE Yulugri
990ARTHE.YULUGRI:
991     var shopcode AD.Map
992     var SHOP Arthe Dale Yulugri
993     gosub STEAL %AD.Map
994ARTHE.EXP.CHECK.3:
995     if $Thievery.Ranks >= 300 then goto LEAVE.ARTHE
996ARTHE.TO.SMOKE:
997     var LAST ARTHE.EXP.CHECK.4
998     gosub AUTOMOVE smoking
999ARTHE.SMOKE:
1000     var shopcode AD.Smoke
1001     var SHOP Arthe Dale Smoke Shop
1002     gosub STEAL %AD.Smoke
1003ARTHE.EXP.CHECK.4:
1004     if $Thievery.Ranks >= 260 then goto LEAVE.ARTHE
1005     if $Thievery.Ranks >= 220 then goto ARTHE.EXP.CHECK.7
1006ARTHE.TO.TART:
1007     var LAST ARTHE.EXP.CHECK.5
1008     gosub AUTOMOVE 631
1009ARTHE.TART:
1010     var shopcode AD.Tart.E
1011     var SHOP Arthe Dale TART E
1012     gosub STEAL %AD.Tart.E
1013ARTHE.EXP.CHECK.5:
1014     if $Thievery.Ranks >= 195 then goto ARTHE.EXP.CHECK.6
1015ARTHE.TO.TART.C:
1016     var LAST ARTHE.EXP.CHECK.6
1017     gosub AUTOMOVE 630
1018ARTHE.TART.C:
1019     var shopcode AD.Tart.C
1020     var SHOP Arthe Dale TART C
1021     gosub STEAL %AD.Tart.E
1022ARTHE.EXP.CHECK.6:
1023     if $Thievery.Ranks >= 212 then goto ARTHE.EXP.CHECK.7
1024ARTHE.TO.TART.M:
1025     var LAST ARTHE.EXP.CHECK.7
1026     gosub AUTOMOVE 629
1027ARTHE.TART.M:
1028     var shopcode AD.Tart.M
1029     var SHOP Arthe Dale TART M
1030     gosub STEAL %AD.Tart.E
1031ARTHE.EXP.CHECK.7:
1032     if $Thievery.Ranks >= 230 then goto LEAVE.ARTHE
1033ARTHE.TO.TART.L:
1034     var LAST ARTHE.EXP.CHECK.8
1035     gosub AUTOMOVE 628
1036ARTHE.TART.L:
1037     var shopcode AD.Tart.L
1038     var SHOP Arthe Dale TART L
1039     gosub STEAL %AD.Tart.E
1040ARTHE.EXP.CHECK.8:
1041     if $Thievery.Ranks >= 181 then goto LEAVE.ARTHE
1042ARTHE.TO.TART.F:
1043     gosub AUTOMOVE 627
1044ARTHE.TART.F:
1045     var shopcode AD.Tart.F
1046     var SHOP Arthe Dale TART F
1047     gosub STEAL %AD.Tart.E
1048LEAVE.ARTHE:
1049     var LAST ARTHE.EXP.CHECK.9
1050     if $hidden = 1 then gosub unhide
1051     pause 0.1
1052ARTHE.EXP.CHECK.9:
1053     if $Thievery.Ranks >= 890 then goto DONE.KAERNA
1054ARTHE.TO.KAERNA:
1055     var LAST DONE.KAERNA
1056     gosub AUTOMOVE grek
1057KAERNA.GENERAL:
1058     var shopcode KA.Grek
1059     var SHOP Kaerna General
1060     gosub STEAL %KA.Grek
1061DONE.KAERNA:
1062     if $hidden = 1 then gosub unhide
1063     if ("%guild" = "Thief") then
1064          {
1065               gosub COOKIE.START meditate
1066          }
1067     pause 0.5
1068     goto TO.CROSSING
1069##################################
1070#### CROSSINGS
1071##################################
1072TO.CROSSING:
1073     var CURRENT.CITY CROSSING
1074     var LAST CROSSING
1075     gosub AUTOMOVE crossing
1076     gosub AUTOMOVE 152
1077     goto WARRANT.CHECK.CROSS
1078XING:
1079CROSS:
1080CROSSING:
1081CROSSINGS:
1082WARRANT.CHECK.CROSS:
1083     var LAST CROSSINGS
1084     var CURRENT.CITY CROSSING
1085     echo
1086     echo *** STEALING FROM CROSSING!
1087     echo
1088     if matchre("$roomobjs","(town guard)") then put surrender guard
1089     pause 0.5
1090CROSSING.EXP.CHECK.0:
1091     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1092     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 30) then goto GO.CROSS.PAWN
1093     gosub COOKIE
1094     if ("%guild" = "Necromancer") then gosub NECROPREP
1095     pause 0.2
1096CROSSING.TO.SCRIPT:
1097     var CURRENT.CITY CROSSING
1098     var LAST CROSSING.EXP.CHECK.1
1099     gosub AUTOMOVE Temple
1100     gosub AUTOMOVE Script
1101CROSSING.SCRIPTORIUM:
1102     var shopcode C.Script
1103     var SHOP Crossing Scriptorium
1104     gosub STEAL %C.Script.Num %C.Script
1105     if $hidden then gosub unhide
1106     gosub AUTOMOVE cross
1107	pause 0.5
1108CROSSING.EXP.CHECK.1:
1109     if $Thievery.Ranks >= 487 then goto CROSSING.EXP.CHECK.2
1110     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1111     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1112CROSSING.TO.CARD:
1113     var LAST CROSSING.EXP.CHECK.2
1114     gosub AUTOMOVE Card shop
1115CROSSING.CARD:
1116     var shopcode C.Card
1117     var SHOP Crossing Card Shop
1118     gosub STEAL %C.Card
1119CROSSING.EXP.CHECK.2:
1120     if $Thievery.Ranks >= 400 then goto CROSSING.EXP.CHECK.3
1121     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1122     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1123CROSSING.TO.CLOTHING:
1124     var LAST CROSSING.EXP.CHECK.3
1125     if $Thievery.LearningRate > 33 then goto GO.CROSS.PAWN
1126     gosub AUTOMOVE clothing
1127CROSSING.CLOTHING:
1128     var shopcode C.Stitch
1129     var SHOP Crossing Clothing Shop
1130     gosub STEAL %C.Stitch
1131CROSSING.EXP.CHECK.3:
1132     if $Thievery.Ranks >= 655 then goto CROSSING.EXP.CHECK.4
1133     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1134     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1135CROSSING.TO.JEWELRY:
1136     var LAST CROSSING.EXP.CHECK.4
1137     gosub AUTOMOVE jewel
1138CROSSING.JEWELRY:
1139     var shopcode C.Jewel
1140     var SHOP Crossing Jewelry Shop
1141     gosub STEAL %C.Jewel
1142CROSSING.EXP.CHECK.4:
1143     if $Thievery.Ranks >= 750 then goto CROSSING.EXP.CHECK.5
1144     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1145     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1146CROSSING.TO.GENERAL:
1147     var LAST CROSSING.EXP.CHECK.5
1148     gosub AUTOMOVE General
1149CROSSING.GENERAL:
1150     var shopcode C.Gen
1151     var SHOP Crossing General Store
1152     gosub STEAL %C.Gen
1153CROSSING.EXP.CHECK.5:
1154     if $Thievery.Ranks >= 481 then goto CROSSING.EXP.CHECK.6
1155     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1156     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1157CROSSING.TO.CLERIC:
1158     var LAST CROSSING.EXP.CHECK.6
1159     gosub AUTOMOVE duran
1160CROSSING.CLERIC:
1161     var shopcode C.Cler
1162     var SHOP Crossing Cleric Shop
1163     gosub STEAL %C.Cler
1164CROSSING.EXP.CHECK.6:
1165     if matchre("%guild","Cleric") && ($Thievery.Ranks >= 487) then goto CROSSING.TO.CLERIC2
1166     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1167     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1168     goto CROSSING.EXP.CHECK.7
1169CROSSING.TO.CLERIC2:
1170     var LAST CROSSING.EXP.CHECK.7
1171     gosub AUTOMOVE 957
1172CROSSING.CLERIC2:
1173     var shopcode C.Cler2
1174     var SHOP Crossing Cleric2 Shop
1175     gosub STEAL %C.Cler2
1176CROSSING.EXP.CHECK.7:
1177     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1178     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1179     if $Thievery.Ranks >= 520 then goto CROSSING.TO.MUSIC
1180CROSSING.TO.BATH:
1181     var LAST CROSSING.TO.LOCK
1182     gosub AUTOMOVE bathhouse
1183CROSSING.BATHHOUSE:
1184     var shopcode C.Bath
1185     var SHOP Crossing Bathhouse
1186     var itemLocation %C.Bath.Loc
1187     gosub STEAL %C.Bath.Num %C.Bath
1188CROSSING.TO.LOCK:
1189     var itemLocation
1190     var LAST CROSSING.TO.MUSIC
1191     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1192     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1193     if $Thievery.Ranks >= 150 && $Thievery.Ranks < 250 then goto CROSSING.TO.MUSIC
1194     gosub AUTOMOVE locks
1195CROSSING.LOCKSMITH:
1196     var shopcode C.Lock
1197     var SHOP Crossing Locksmith
1198     gosub STEAL %C.Lock
1199CROSSING.TO.MUSIC:
1200     var LAST CROSSING.TO.MUSIC.BACKROOM
1201     gosub AUTOMOVE Music
1202CROSSING.EXP.CHECK.8:
1203     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1204     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1205     if $Thievery.Ranks >= 600 then goto CROSSING.TO.MUSIC.BACKROOM
1206CROSSING.MUSIC:
1207     var shopcode C.Music
1208     var SHOP Crossing Music Shop
1209     gosub STEAL %C.Music
1210CROSSING.TO.MUSIC.BACKROOM:
1211     var LAST CROSSING.TO.ARMOR
1212     if $hidden then gosub unhide
1213     gosub MOVE go curtain
1214CROSSING.MUSIC.BACKROOM:
1215     var shopcode C.Music2
1216     var SHOP Xing music shop backroom
1217     var LAST CROSSING.TO.ARMOR
1218     gosub STEAL %C.Music2
1219     gosub MOVE go curtain
1220CROSSING.TO.ARMOR:
1221     var LAST CROSSING.TO.WEAPON
1222     gosub AUTOMOVE Armor
1223CROSSING.ARMOR:
1224     var shopcode C.Arm
1225     var SHOP Crossing Armor Shop
1226     gosub STEAL %C.Arm
1227CROSSING.TO.WEAPON:
1228     var LAST CROSSING.EXP.CHECK.9
1229     gosub AUTOMOVE Weapon
1230CROSSING.WEAPON:
1231     var shopcode C.Weap
1232     var SHOP Crossing Weapon Shop
1233     gosub STEAL %C.Weap
1234CROSSING.EXP.CHECK.9:
1235     if $Thievery.Ranks >= 350 then goto CROSSING.EXP.CHECK.10
1236     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1237     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1238CROSSING.TO.FLORIST:
1239     var LAST CROSSING.EXP.CHECK.10
1240     gosub AUTOMOVE Florist
1241CROSSING.FLORIST:
1242     var shopcode C.Flow
1243     var SHOP Crossing Florist
1244     gosub STEAL %C.Flow
1245CROSSING.EXP.CHECK.10:
1246     if $Thievery.Ranks >= 300 then goto CROSSING.TO.EMPATH
1247     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1248     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1249CROSSING.TO.SHOE:
1250     var LAST CROSSING.TO.EMPATH
1251     gosub AUTOMOVE Shoe
1252CROSSING.SHOES:
1253     var shopcode C.Cobb
1254     var SHOP Crossing Shoe Shop
1255     gosub STEAL %C.Cobb
1256CROSSING.TO.EMPATH:
1257     var LAST CROSSING.TO.EMPATH2
1258     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1259     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1260     if !matchre("%guild","(Thief|Empath|Trader)") then goto CROSSING.EXP.CHECK.11
1261     gosub AUTOMOVE Emmiline
1262CROSSING.EMPATH:
1263     var shopcode C.Empath
1264     var SHOP Crossing Empath Shop
1265     var SECOND_ITEM 1
1266     var secondary %C.Empath.Alt
1267     gosub STEAL %C.Empath
1268CROSSING.TO.EMPATH2:
1269     var LAST CROSSING.TO.EMPATH3
1270     gosub MOVE w
1271CROSSING.EMPATH2:
1272     var shopcode C.Empath2
1273     var SHOP Crossing Empath Shop 2
1274     gosub STEAL %C.Empath2
1275CROSSING.TO.EMPATH3:
1276     var LAST CROSSING.EXP.CHECK.11
1277     gosub MOVE e
1278     gosub MOVE go arch
1279CROSSING.EMPATH3:
1280     var shopcode C.Empath3
1281     var SHOP Crossing Empath Shop 3
1282     var SECOND_ITEM 1
1283     var itemLocation %C.Empath3.Loc
1284     var secondary %C.Empath3.Alt
1285     gosub STEAL %C.Empath3
1286     gosub MOVE go arch
1287     gosub MOVE go door
1288     gosub MOVE go step
1289CROSSING.EXP.CHECK.11:
1290     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1291     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1292     if $Thievery.Ranks >= 334 then goto CROSSING.TO.ALCHEMY
1293CROSSING.TO.HERBS:
1294     var LAST CROSSING.TO.ALCHEMY
1295     gosub AUTOMOVE Herb
1296CROSSING.HERBS:
1297     var shopcode C.Herb
1298     var SHOP Crossing Herb Shop
1299     gosub STEAL %C.Herb
1300CROSSING.TO.ALCHEMY:
1301     if $Thievery.Ranks >= 1050 then goto CROSSING.EXP.CHECK.13
1302     var LAST CROSSING.EXP.CHECK.12
1303     gosub AUTOMOVE Chizil
1304CROSSING.ALCHEMY:
1305     var shopcode C.Alch
1306     var SHOP Crossing Alchemy Shop
1307     gosub STEAL %C.Alch
1308CROSSING.EXP.CHECK.12:
1309     if $Thievery.Ranks >= 640 then goto CROSSING.EXP.CHECK.13
1310     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1311     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1312CROSSING.TO.TANNER:
1313     var LAST CROSSING.EXP.CHECK.13
1314     if $hidden then gosub unhide
1315     gosub AUTOMOVE tanner
1316CROSSING.TANNER:
1317     var shopcode C.Tann
1318     var SHOP Crossing Tanner
1319     var itemLocation %C.Tann.Loc
1320     gosub STEAL %C.Tann
1321CROSSING.EXP.CHECK.13:
1322     if $Thievery.Ranks >= 670 then goto CROSSING.TO.ARTIFICE
1323     if ($Thievery.LearningRate > 33) && ("%STEALTH" != "ON") then goto GO.CROSS.PAWN
1324     if ($Thievery.LearningRate > 33) && ($Stealth.LearningRate > 25) then goto GO.CROSS.PAWN
1325CROSSING.TO.HABER:
1326     var LAST CROSSING.TO.ARTIFICE
1327     gosub AUTOMOVE haber
1328CROSSING.HABERDASHERY:
1329     var shopcode C.Haber
1330     var SHOP Crossing Haberdashery
1331     gosub STEAL %C.Haber
1332CROSSING.TO.ARTIFICE:
1333     var LAST GO.CROSS.PAWN
1334     if $Thievery.Ranks >= 975 then goto GO.CROSS.PAWN
1335     gosub AUTOMOVE magic
1336CROSSING.ARTIFICER:
1337     var shopcode C.Artif
1338     var SHOP Crossing Artificer
1339     gosub STEAL %C.Artif
1340GO.PAWN.CROSS:
1341GO.CROSS.PAWN:
1342     var CURRENT.CITY CROSSING
1343     var LAST GO.CROSS.PAWN
1344     if $hidden then gosub unhide
1345     if ("%guild" = "Thief") then send khri stop
1346     if ("%PAWN" = "OFF") && ("%guild" = "Thief") then goto GO.CROSS.BIN
1347     gosub AUTOMOVE pawn
1348     gosub PAWN.GOODS
1349     if ("%BIN" = "OFF") then goto DONE.STEALING.CROSS2
1350## TO THIEF GUILD
1351GO.CROSS.BIN:
1352     var LAST GO.CROSS.BIN
1353     gosub AUTOMOVE 78
1354     goto GO.BIN.CONT
1355
1356##OLD SAND SPIT METHOD
1357     #gosub AUTOMOVE sand spit tavern
1358     #gosub MOVE go back area
1359     #gosub MOVE climb ladder
1360     #if matchre("$roomobjs" , "^You also see a witchclaw door with a large stone archway, a dark yew door, some old barrels, a rickety ladder and an old barrel with a thieves guild sign carved into the side") then
1361     #     {
1362     #          gosub MOVE go other barrel
1363     #          goto GO.BIN.CONT
1364     #     }
1365     #if matchre("$roomobjs" , "^You also see some old barrels") then
1366     #     {
1367     #          gosub MOVE go other barrel
1368     #          goto GO.BIN.CONT
1369     #     }
1370     #if matchre("$roomobjs" , "^You also see an old barrel with a thieves guild sign") then
1371     #     {
1372     #          gosub MOVE go barrel
1373     #          goto GO.BIN.CONT
1374     #     }
1375GO.BIN.CONT:
1376     gosub AUTOMOVE bin
1377     gosub BIN.GOODS
1378DONE.STEALING.CROSS:
1379     var LAST DONE.STEALING.CROSS
1380     gosub MOVE go door
1381     gosub CIRCLE.CHECK
1382     pause 0.5
1383     gosub MOVE go door
1384# Leaving the THIEF GUILD
1385DONE.STEALING.CROSS2:
1386     var LAST DONE.STEALING.CROSS2
1387     if ("%PREMIUM" = "ON") then goto CROSS.PREMIUM
1388     gosub AUTOMOVE exchange
1389     gosub KRONARS
1390     goto CROSS.TELLER
1391CROSS.PREMIUM:
1392     gosub AUTOMOVE premium exchange
1393     gosub KRONARS
1394CROSS.TELLER:
1395     gosub AUTOMOVE teller
1396     gosub BANK
1397     send with 10 silver
1398     gosub MOVE out
1399     if ("%guild" = "Necromancer") then gosub NECROPREP
1400     gosub MOVE out
1401CROSSING.DECIDE:
1402     if ($roomid != 42) then gosub AUTOMOVE 42
1403     if ("%SINGLE_RUN" = "ON") then goto FINISHED.SCRIPT
1404     if ($Thievery.LearningRate >= 30) then goto FINISHED.SCRIPT
1405     if ("%CITY" = "SHARD") || ("%CITY" = "HIB") || ("%CITY" = "CROSSING") || ("%CITY" = "LETH") && ($Thievery.LearningRate < 30) then goto TRAVEL.HAVEN
1406     if ("%CITY" = "RIVERHAVEN") || ("%CITY" = "ROSSMAN") || ("%CITY" = "THEREN") && ($Thievery.LearningRate < 30) then goto HEAD.TO.LETH
1407     goto HEAD.TO.LETH
1408#####################################
1409## LETH DERIEL
1410#####################################
1411HEAD.TO.LETH:
1412     var CURRENT.CITY LETH
1413     var LAST HEAD.TO.LETH
1414     if ($zoneid = 1) && ($roomid != 42) then gosub AUTOMOVE 42
1415     send .%TRAVEL_SCRIPT leth
1416     waitforre ^YOU HAVE ARRIVED
1417LETH.STEAL:
1418WARRANT.CHECK.LETH:
1419     var LAST WARRANT.CHECK.LETH
1420     if matchre("$roomobjs","(Elven Warden)") then put surrender warden
1421     pause 0.5
1422     echo
1423     echo *** STEALING FROM LETH DERIEL!
1424     echo
1425     gosub COOKIE
1426     if ("%guild" = "Necromancer") then gosub NECROPREP
1427LETH.EXP.CHECK.0:
1428     if $Thievery.LearningRate > 33 then goto DONE.STEALING.LETH
1429     if $Thievery.Ranks >= 520 then goto LETH.TO.BOWYER
1430LETH.TO.SKIN:
1431     var LAST LETH.TO.BOWYER
1432     gosub AUTOMOVE morik
1433LETH.SKIN.SHOP:
1434     var shopcode L.Skin
1435     var SHOP Leth Skin Shop
1436     gosub STEAL %L.Skin
1437LETH.TO.BOWYER:
1438     var LAST LETH.TO.ORIGAMI
1439     gosub AUTOMOVE Bow
1440LETH.BOWYER:
1441     var shopcode L.Bow
1442     var SHOP Leth Bowyer
1443     gosub STEAL %L.Bow
1444LETH.TO.ORIGAMI:
1445     var LAST LETH.EXP.CHECK.1
1446     gosub AUTOMOVE Origami
1447LETH.ORIGAMI.SHOP:
1448     var shopcode L.Orig
1449     var SHOP Leth Origami
1450     gosub STEAL %L.Orig.Num %L.Orig
1451LETH.EXP.CHECK.1:
1452     if $Thievery.LearningRate > 33 then goto DONE.STEALING.LETH
1453     if ($Thievery.Ranks > 400) then goto LETH.TO.WEAPON
1454     goto LETH.EXP.CHECK.2
1455LETH.TO.WEAPON:
1456     var LAST LETH.EXP.CHECK.2
1457     if $hidden then gosub unhide
1458     gosub AUTOMOVE weapon
1459LETH.WEAPON.SHOP:
1460     var shopcode L.Weap
1461     var SHOP Leth Weapon Shop
1462     gosub STEAL %L.Weap
1463LETH.EXP.CHECK.2:
1464     if $Thievery.Ranks >= 487 then goto LETH.TO.BARD2
1465LETH.TO.WICKER:
1466     var LAST LETH.EXP.CHECK.3
1467     gosub AUTOMOVE Wicker
1468LETH.WICKER.SHOP:
1469     var shopcode L.Wick
1470     var SHOP Leth Wicker Shop
1471     gosub STEAL %L.Wick
1472LETH.EXP.CHECK.3:
1473     if $Thievery.LearningRate > 33 then goto DONE.STEALING.LETH
1474     if $Thievery.Ranks >= 300 then goto LETH.TO.BARD2
1475LETH.TO.BARD:
1476     var LAST LETH.TO.BARD2
1477     gosub AUTOMOVE music
1478LETH.BARD.SHOP:
1479     var shopcode L.Bard
1480     var SHOP Leth Bard Shop
1481     gosub STEAL %L.Bard
1482LETH.TO.BARD2:
1483     var LAST LETH.EXP.CHECK.4
1484     if $Thievery.Ranks > 980 then goto LETH.EXP.CHECK.4
1485     gosub AUTOMOVE siny
1486LETH.BARD.SHOP2:
1487     var shopcode L.Bard2
1488     var SHOP Leth Bard2 Shop
1489     gosub STEAL %L.Bard2
1490LETH.EXP.CHECK.4:
1491     if $Thievery.LearningRate > 33 then goto DONE.STEALING.LETH
1492     if $Thievery.Ranks >= 700 then goto LETH.TO.WOOD
1493LETH.TO.CLOTHES:
1494     var LAST LETH.TO.WOOD
1495     gosub AUTOMOVE Clothing
1496LETH.CLOTHES.SHOP:
1497     var shopcode L.Cloth
1498     var SHOP Leth Clothes Shop
1499     gosub STEAL %L.Cloth
1500     if $hidden then gosub unhide
1501LETH.TO.WOOD:
1502     var LAST LETH.TO.GENERAL
1503     if $hidden then gosub unhide
1504     gosub AUTOMOVE wood
1505LETH.WOOD.SHOP:
1506     var shopcode L.Wood
1507     var SHOP Leth Wood Shop
1508     gosub STEAL %L.Wood
1509LETH.TO.GENERAL:
1510     var LAST LETH.EXP.CHECK.5
1511     gosub AUTOMOVE General
1512LETH.GENERAL.STORE:
1513     var shopcode L.Gen
1514     var SHOP Leth General Store
1515     var SECOND_ITEM 1
1516     var secondary %L.Gen.Alt
1517     gosub STEAL %L.Gen
1518LETH.EXP.CHECK.5:
1519     if $Thievery.LearningRate > 33 then goto DONE.STEALING.LETH
1520     if $Thievery.Ranks >= 465 then goto DONE.STEALING.LETH
1521LETH.TO.PERFUME:
1522     var LAST DONE.STEALING.LETH
1523     gosub AUTOMOVE Perfume
1524LETH.PERFUME.SHOP:
1525     var shopcode L.Perf
1526     var SHOP Leth Perfume Shop
1527     gosub STEAL %L.Perf
1528DONE.STEALING.LETH:
1529DONE.STEALING.LETH.BANK:
1530     var LAST DONE.STEALING.LETH
1531     gosub AUTOMOVE exchange
1532     gosub KRONARS
1533LETH.TELLER:
1534     gosub AUTOMOVE teller
1535     gosub BANK
1536     gosub AUTOMOVE portal
1537PAWN.LETH:
1538     send .%TRAVEL_SCRIPT cross
1539     waitforre ^YOU HAVE ARRIVED
1540GO.LETH.PAWN:
1541     var CURRENT.CITY LETH
1542     var LAST GO.LETH.PAWN
1543     if $hidden then gosub unhide
1544     if ("%guild" = "Thief") then send khri stop
1545     pause 0.5
1546     if ("%PAWN" = "OFF") then goto GO.LETH.BIN
1547     gosub AUTOMOVE PAWN
1548     gosub PAWN.GOODS
1549     if ("%BIN" = "OFF") then goto DONE.STEALING.LETH3
1550     if ("%guild" != "Thief") then goto DONE.STEALING.LETH3
1551GO.LETH.BIN:
1552     var LAST GO.LETH.BIN
1553     #gosub AUTOMOVE sand spit tavern
1554     #gosub MOVE go back area
1555     #gosub MOVE climb ladder
1556     #if matchre("$roomobjs" , "(You also see some old barrels|and an old barrel with a thieves guild)") then gosub MOVE go other barrel
1557     #else gosub MOVE go barrel
1558     gosub AUTOMOVE 78
1559	gosub AUTOMOVE bin
1560     gosub BIN.GOODS
1561DONE.STEALING.LETH2:
1562     var LAST DONE.STEALING.LETH2
1563     # Leaving the THIEF GUILD
1564     gosub MOVE go door
1565	gosub CIRCLE.CHECK
1566     pause 0.5
1567     gosub MOVE go door
1568DONE.STEALING.LETH3:
1569     var LAST DONE.STEALING.LETH3
1570     gosub AUTOMOVE exchange
1571     gosub KRONARS
1572LETH3.TELLER:
1573     gosub AUTOMOVE teller
1574     gosub BANK
1575LETH.DECIDE:
1576     if ($zoneid = 1) && ($roomid != 42) then gosub AUTOMOVE 42
1577     if ("%SINGLE_RUN" = "ON") then goto FINISHED.SCRIPT
1578     if $Thievery.LearningRate > 32 then goto FINISHED.SCRIPT
1579     if ("%CITY" = "CROSSING") || ("%CITY" = "RIVERHAVEN") || ("%CITY" = "ROSSMAN") || ("%CITY" = "THEREN") && ($Thievery.LearningRate < 30) then goto TO.SHARD
1580     if ("%CITY" = "SHARD") || ("%CITY" = "LETH") || ("%CITY" = "HIB") && ($Thievery.LearningRate < 30) then goto ARTHE.STEAL
1581     goto FINISHED.SCRIPT
1582############################################################################
1583## ILLITHI STEALING SECTION (SHARD / HIB / BOAR CLAN ETC                  ##
1584############################################################################
1585TO.SHARD:
1586     var LAST TO.SHARD
1587     if ("%guild" = "Thief") then send khri stop
1588     pause 0.5
1589     if ($zoneid = 61) && ($roomid != 18) then gosub AUTOMOVE 18
1590     send .%TRAVEL_SCRIPT shard
1591     waitforre ^YOU HAVE ARRIVED
1592OUTSIDE.SHARD:
1593     var LAST OUTSIDE.SHARD
1594     gosub AUTOMOVE east
1595     pause 0.5
1596     if ($zoneid = 66) then send go gate
1597SHARD.STEAL:
1598SHARD.STEALING:
1599WARRANT.CHECK.SHARD:
1600     var LAST SHARD.STEAL
1601     var CURRENT.CITY SHARD
1602     if matchre("$roomobjs","(Shard sentinel)") then put surrender sentin
1603     pause 0.5
1604     echo
1605     echo *** STEALING FROM SHARD!
1606     echo
1607     pause 0.5
1608     gosub TIME.CHECK
1609     if ("%TIME" = "NIGHT") then put #echo >Log Yellow *** Night time! Many shops closed. Reduced stealing. Much doh!
1610     gosub COOKIE
1611     if ("%guild" = "Necromancer") then gosub NECROPREP
1612SHARD.TO.GENERAL:
1613     var LAST SHARD.TIME.0
1614     gosub AUTOMOVE general
1615SHARD.GENERAL:
1616     var shopcode S.Gen
1617     var SHOP Shard General Store
1618     gosub STEAL %S.Gen
1619	gosub PUT go door
1620SHARD.TIME.0:
1621     if ($Time.isDay = 0) then goto SHARD.TO.CLERIC
1622     if ($Time.isDay = 1) then goto SHARD.TO.WEAPON
1623     if ("%TIME" = "NIGHT") then goto SHARD.TO.CLERIC
1624SHARD.TO.WEAPON:
1625     var LAST SHARD.EXP.CHECK.0
1626     gosub AUTOMOVE fiona
1627SHARD.WEAPON:
1628     var shopcode S.Weap
1629     var SHOP Shard Weapon Shop
1630     gosub STEAL %S.Weap
1631SHARD.EXP.CHECK.0:
1632     if $Thievery.Ranks >= 555 then goto SHARD.TO.CLERIC
1633SHARD.TO.CLOTHING:
1634     var LAST SHARD.TO.CLERIC
1635     gosub AUTOMOVE stitchery
1636SHARD.CLOTHING:
1637     var shopcode S.Stitch
1638     var SHOP Shard Stitchery
1639     gosub STEAL %S.Stitch
1640SHARD.TO.CLERIC:
1641     var LAST SHARD.TO.ALCHEMIST
1642     if $Thievery.Ranks >= 400 then goto SHARD.TO.ALCHEMIST
1643     gosub AUTOMOVE cleric shop
1644SHARD.CLERIC:
1645     var shopcode S.Cleric
1646     var SHOP Shard Cleric Shop
1647     gosub STEAL %S.Cleric
1648SHARD.TO.ALCHEMIST:
1649     if $Thievery.Ranks >= 1050 then goto SHARD.EXP.CHECK.1
1650     var LAST SHARD.TO.SHARD.EXP.CHECK.1
1651     gosub AUTOMOVE zieq
1652SHARD.ALCHEMIST:
1653     var shopcode S.Alch
1654     var SHOP Shard Alchemist
1655     gosub STEAL %S.Alch
1656SHARD.EXP.CHECK.1:
1657     if $Thievery.Ranks >= 334 then goto SHARD.TIME.1
1658     if $Thievery.LearningRate > 33 then goto GO.PAWN.SHARD
1659SHARD.TO.HERB:
1660     var LAST SHARD.TIME.1
1661     gosub AUTOMOVE herb
1662SHARD.HERB:
1663     var shopcode S.Herb
1664     var SHOP Shard Herb
1665     gosub STEAL %S.Herb
1666     gosub MOVE out
1667SHARD.TIME.1:
1668     if ($Time.isDay = 0) then goto SHARD.TO.REED
1669     if ($Time.isDay = 1) then goto SHARD.TO.ARTIFICER
1670     if ("%TIME" = "NIGHT") then goto SHARD.TO.REED
1671SHARD.TO.ARTIFICER:
1672     var LAST SHARD.TIME.2
1673     gosub AUTOMOVE magic
1674SHARD.ARTIFICER:
1675     var shopcode S.Artif
1676     var SHOP Shard Artificer
1677     gosub STEAL %S.Artif
1678     send out
1679     pause 0.5
1680SHARD.TIME.2:
1681     if ("%TIME" = "NIGHT") then goto SHARD.TO.ARMORY
1682SHARD.TO.MUSIC:
1683     var LAST SHARD.TO.LOCK
1684     gosub AUTOMOVE music
1685SHARD.MUSIC:
1686     var shopcode S.Music
1687     var SHOP Shard Music Shop
1688     gosub STEAL %S.Music
1689SHARD.TO.LOCK:
1690     var LAST SHARD.TIME.3
1691     if ($invisible = 1) then gosub stopinvis
1692	pause 0.1
1693	if ($invisible = 1) then gosub stopinvis
1694     gosub PUT ask malik about thieves
1695     gosub PUT order pick
1696     pause 0.001
1697     gosub PUT offer 999999999
1698     gosub PUT offer 999999999
1699     pause 0.5
1700	pause 0.1
1701     gosub STAND
1702SHARD.LOCK:
1703     var shopcode S.Lock
1704     var SHOP Shard Lockpick Shop
1705     gosub STEAL %S.Lock
1706     gosub PUT go trap
1707     pause 0.5
1708SHARD.TIME.3:
1709     if ("%TIME" = "NIGHT") then goto SHARD.TO.REED
1710SHARD.TO.ARMORY:
1711     var LAST SHARD.TO.REED
1712     gosub AUTOMOVE armor
1713SHARD.ARMORY:
1714     var shopcode S.Armor
1715     var SHOP Shard Armory
1716     gosub STEAL %S.Armor
1717SHARD.TO.REED:
1718     var LAST SHARD.TO.SCHOLAR
1719     gosub AUTOMOVE 593
1720SHARD.REED:
1721     var shopcode S.Reed
1722     var SHOP Shard Reed
1723     gosub STEAL %S.Reed.Num %S.Reed
1724SHARD.TO.SCHOLAR:
1725     var LAST SHARD.TIME.4
1726     gosub AUTOMOVE scholar
1727SHARD.SCHOLAR:
1728     var shopcode S.Museum
1729     var SHOP Shard Scholar's Museum Gift Shop
1730     gosub STEAL %S.Museum
1731SHARD.TIME.4:
1732     if ("%TIME" = "NIGHT") then goto SHARD.EXP.CHECK.2
1733SHARD.TO.BOWS:
1734     var LAST SHARD.EXP.CHECK.2
1735     gosub AUTOMOVE bows
1736SHARD.BOWS:
1737     var shopcode S.Bow
1738     var SHOP Shard Bowyer
1739     gosub STEAL %S.Bow
1740     gosub MOVE out
1741SHARD.EXP.CHECK.2:
1742     if $Thievery.Ranks < 200 then goto SHARD.TO.COIN
1743     if $Thievery.LearningRate > 33 then goto GO.PAWN.SHARD
1744SHARD.TO.SPIRE:
1745     var LAST SHARD.TO.COIN
1746     gosub AUTOMOVE spire
1747SHARD.SPIRE:
1748     var shopcode S.Spire
1749     var SHOP Spires of Glory
1750     gosub STEAL %S.Spire
1751SHARD.TO.COIN:
1752     if $Thievery.Ranks > 500 then goto SHARD.TO.TOKEN
1753     var LAST SHARD.TO.TOKEN
1754     gosub AUTOMOVE coin
1755SHARD.COIN:
1756     var shopcode S.Coin
1757     var SHOP Coin of the Realm
1758     var itemLocation %S.Coin.Loc
1759     gosub STEAL %S.Coin
1760SHARD.TO.TOKEN:
1761     var LAST SHARD.TO.BARBER
1762     gosub AUTOMOVE token
1763SHARD.TOKEN:
1764     var shopcode S.Token
1765     var SHOP Token Shop
1766     gosub STEAL %S.Token
1767SHARD.TO.BARBER:
1768     if $Thievery.Ranks > 950 then goto SHARD.TO.FRILLS
1769     var LAST SHARD.TO.FRILLS
1770     gosub AUTOMOVE barber
1771SHARD.BARBER:
1772     var shopcode S.Barber
1773     var SHOP Shard Barber Shop
1774     gosub STEAL %S.Barber
1775SHARD.TO.FRILLS:
1776     if $Thievery.Ranks >= 1050 then goto SHARD.TO.HERALDRY
1777     var LAST SHARD.TO.HERALDRY
1778     gosub AUTOMOVE Little
1779SHARD.FRILLS:
1780     var shopcode S.Frill
1781     var SHOP Shard Little Frills
1782     gosub STEAL %S.Frill
1783SHARD.TO.HERALDRY:
1784     var LAST SHARD.TO.GIFT
1785     gosub AUTOMOVE herald
1786SHARD.HERALDRY:
1787     var shopcode S.Herald
1788     var SHOP Shard Heraldry Shop
1789     var itemLocation %S.Herald.Loc
1790     gosub STEAL %S.Herald
1791SHARD.TO.GIFT:
1792     var LAST SHARD.TO.TOY
1793     gosub AUTOMOVE gift
1794SHARD.GIFT:
1795     var shopcode S.Gift
1796     var SHOP Shard Gift Shop
1797     var itemLocation %S.Gift.Loc
1798     gosub STEAL %S.Gift
1799SHARD.TO.TOY:
1800     if $Thievery.Ranks >= 1050 then goto SHARD.TO.MEMORY
1801     var LAST SHARD.TO.MEMORY
1802     gosub AUTOMOVE toy
1803SHARD.TOY:
1804     var shopcode S.Toy
1805     var SHOP Shard Toy Shop
1806     var itemLocation %S.Toy.Loc
1807     gosub STEAL %S.Toy
1808SHARD.TO.MEMORY:
1809     var LAST SHARD.TO.EASTGATE
1810     gosub AUTOMOVE 629
1811SHARD.MEMORY:
1812     var shopcode S.Memory
1813     var SHOP Shard Memories
1814     gosub STEAL %S.Memory.Num %S.Memory
1815SHARD.TO.EASTGATE:
1816     var LAST SHARD.TO.EASTGATE
1817     if $Thievery.LearningRate > 33 then goto GO.PAWN.SHARD
1818     if $hidden then gosub unhide
1819     gosub AUTOMOVE East Gate
1820SHARD.EXP.CHECK.3:
1821     if $Thievery.Ranks >= 600 then goto SHARD.TO.SURVIVAL
1822EASTGATE.TO.TANNER:
1823     gosub AUTOMOVE tanner
1824SHARD.TANNER:
1825     var shopcode S.Tanner
1826     var SHOP Shard Tanner
1827     gosub STEAL %S.Tanner
1828SHARD.TO.SURVIVAL:
1829     var LAST GO.PAWN.SHARD
1830     if $hidden then gosub unhide
1831     gosub AUTOMOVE survival
1832SHARD.SURVIVAL:
1833     var shopcode S.Surv
1834     var SHOP Shard Survival
1835     var itemLocation %S.Surv.Loc
1836     var SECOND_ITEM 1
1837     var secondary %S.Surv.Alt
1838     gosub STEAL %S.Surv
1839SHARD.TO.SURVIVAL2:
1840     gosub AUTOMOVE 33
1841SHARD.SURVIVAL2:
1842     var shopcode S.Surv2
1843     var SHOP Shard Survivalist Shop (Back room)
1844     var itemLocation %S.Surv2.Loc
1845     var SECOND_ITEM 1
1846     var secondary %S.Surv2.Alt
1847     gosub STEAL %S.Surv2
1848     goto DONE.STEAL.SHARD
1849TO.STEELCLAW.WEAPON:
1850     if $hidden then gosub unhide
1851     pause 0.5
1852     gosub AUTOMOVE weapon
1853STEELCLAW.WEAPON:
1854     var shopcode SC.Weap
1855     var SHOP SteelClaw Clan Weapons
1856     gosub STEAL %SC.Weap
1857DONE.STEAL.SHARD:
1858var LAST GO.PAWN.SHARD
1859     if $hidden then gosub unhide
1860     if ("%guild" = "Thief") then send khri stop
1861     pause 0.5
1862     gosub AUTOMOVE East
1863GO.PAWN.SHARD:
1864     var CURRENT.CITY SHARD
1865     var LAST GO.PAWN.SHARD
1866     if ("%PAWN" = "OFF") then goto GO.BIN.SHARD
1867     gosub AUTOMOVE PAWN
1868     gosub PAWN.GOODS
1869SHARD.BIN.DECIDE:
1870     if ("%BIN" = "OFF") then goto SHARD.TO.BANK
1871GO.BIN.SHARD:
1872     var LAST GO.BIN.SHARD
1873     gosub AUTOMOVE 93
1874     gosub MOVE go well
1875     gosub MOVE climb ladder
1876     gosub MOVE w
1877     gosub MOVE out
1878     gosub MOVE w
1879     gosub MOVE se
1880     gosub MOVE go gap
1881     send knock door
1882     pause 0.5
1883     send '%SHARD_PW
1884     pause 0.5
1885     gosub MOVE go door
1886     gosub MOVE go arch
1887     gosub MOVE s
1888AT.SHARD.BIN:
1889     gosub BIN.GOODS
1890DONE.STEALING.SHARD:
1891     var LAST DONE.STEALING.SHARD
1892     gosub CIRCLE.CHECK
1893     pause 0.5
1894     gosub MOVE n
1895     gosub MOVE go arch
1896     gosub MOVE go door
1897     gosub MOVE n
1898     gosub MOVE nw
1899     gosub MOVE e
1900     gosub MOVE go fiss
1901     gosub MOVE e
1902     gosub MOVE climb ladder
1903     gosub MOVE up
1904SHARD.TO.BANK:
1905     var LAST SHARD.TO.BANK
1906     gosub AUTOMOVE exchange
1907     gosub DOKORAS
1908SHARD.TELLER:
1909     gosub AUTOMOVE teller
1910     gosub BANK
1911     send with 5 silver
1912     if ("%guild" = "Necromancer") then gosub NECROPREP
1913     gosub AUTOMOVE exchange
1914     send exch all dok for kro
1915DONE.SHARD:
1916     if ("%CITY" = "CROSSING") || ("%CITY" = "RIVERHAVEN") || ("%CITY" = "ROSSMAN") || ("%CITY" = "THEREN") then goto FINISHED.SCRIPT
1917	if ("%CITY" = "HIB") || ("%CITY" = "SHARD") && ("%SHARD_RUN" = "ON") then goto FINISHED.SCRIPT
1918     if ($Thievery.LearningRate > 30) then goto FINISHED.SCRIPT
1919     if ("%SINGLE_RUN" = "ON") then goto FINISHED.SCRIPT
1920SHARD.TO.CROSS:
1921     var LAST SHARD.TO.CROSS
1922     if ("%CITY" = "SHARD") || ("%CITY" = "HIB") then
1923          {
1924               gosub AUTOMOVE E Gate
1925               gosub AUTOMOVE 65
1926          }
1927     goto HEAD.TO.LETH
1928GO.TO.CROSS:
1929     var LAST GO.TO.CROSS
1930     var BIN.CROSS 1
1931     var CITY CROSS
1932     gosub AUTOMOVE E Gate
1933     gosub AUTOMOVE 65
1934     pause 0.5
1935     send .%TRAVEL_SCRIPT cross
1936     waitforre ^YOU HAVE ARRIVED
1937     pause
1938     if ("%CITY" = "CROSSING") || ("%CITY" = "RIVERHAVEN") || ("%CITY" = "ROSSMAN") || ("%CITY" = "THEREN") then goto FINISHED.SCRIPT
1939     goto TO.ARTHE
1940GO.TO.HIB:
1941     var LAST GO.TO.HIB
1942     var BIN.HIB 1
1943     var CITY HIB
1944     gosub AUTOMOVE E Gate
1945     gosub AUTOMOVE 65
1946     pause 0.5
1947     send .%TRAVEL_SCRIPT hib
1948     waitforre ^YOU HAVE ARRIVED
1949####################################
1950# Hibarnhvidar
1951####################################
1952HIB.STEAL:
1953HIB.TO.SHIELD:
1954     var CURRENT.CITY HIB
1955     var LAST HIB.EXP.CHECK.0
1956     echo
1957     echo **** STEALING FROM HIB! ****
1958     echo
1959     pause 0.5
1960     gosub COOKIE
1961     if ("%guild" = "Necromancer") then gosub NECROPREP
1962     gosub AUTOMOVE shield
1963HIB.SHIELD:
1964     var shopcode H.Shield
1965     var SHOP Hib Shield Shop
1966     gosub STEAL %H.Shield
1967HIB.EXP.CHECK.0:
1968     if $Thievery.Ranks < 600 then goto HIB.TO.TOGGERY
1969HIB.TO.JEWELRY:
1970     var LAST HIB.TO.TOGGERY
1971     gosub AUTOMOVE jewelry
1972HIB.JEWELRY:
1973     var shopcode H.Jewel
1974     var SHOP Hib Jewelry
1975     gosub STEAL %H.Jewel
1976HIB.TO.TOGGERY:
1977     var LAST HIB.TO.SUNDRIES
1978     gosub AUTOMOVE togger
1979HIB.TOGGERY:
1980     var shopcode H.Tog
1981     var SHOP Hib Toggery
1982     gosub STEAL %H.Tog
1983HIB.TO.SUNDRIES:
1984     var LAST HIB.TO.LAMPS
1985     gosub AUTOMOVE general
1986HIB.SUNDRIES:
1987     var shopcode H.Sund
1988     var SHOP Hib Sundries
1989     gosub STEAL %H.Sund
1990     gosub MOVE OUT
1991HIB.TO.LAMPS:
1992     var LAST HIB.EXP.CHECK.1
1993     gosub AUTOMOVE lamp
1994HIB.LAMPS:
1995     var shopcode H.Lamp
1996     var SHOP Hib Lamps
1997     gosub STEAL %H.Lamp
1998HIB.EXP.CHECK.1:
1999     if $Thievery.Ranks >= 460 then goto HIB.TO.MUSIC
2000HIB.TO.HERBS:
2001     var LAST HIB.TO.MUSIC
2002     gosub AUTOMOVE herb
2003HIB.HERBS:
2004     var shopcode H.Herb
2005     var SHOP Hib Herbs
2006     gosub STEAL %H.Herb
2007HIB.TO.MUSIC:
2008     var LAST HIB.TO.ALCHEMY
2009     gosub AUTOMOVE music
2010HIB.MUSIC:
2011     var shopcode H.Music
2012     var SHOP Hib Music Store
2013     gosub STEAL %H.Music
2014HIB.TO.ALCHEMY:
2015     var LAST HIB.EXP.CHECK.2
2016     gosub AUTOMOVE alchemy
2017HIB.ALCHEMY:
2018     var shopcode H.Alch
2019     var SHOP Hib Alchemist
2020     gosub STEAL %H.Alch
2021HIB.EXP.CHECK.2:
2022     if $Thievery.Ranks >= 430 then goto LEAVE.HIB
2023HIB.TO.FORGE:
2024     var LAST LEAVE.HIB
2025     gosub AUTOMOVE forge
2026HIB.FORGE:
2027     var shopcode H.Forge
2028     var SHOP Hib Forge
2029     var itemLocation %H.Forge.Loc
2030     gosub STEAL %H.Forge
2031LEAVE.HIB:
2032     var LAST LEAVE.HIB
2033     gosub AUTOMOVE 75
2034     pause 0.5
2035     send .%TRAVEL_SCRIPT raven
2036     waitforre ^YOU HAVE ARRIVED
2037     pause 0.5
2038RAVEN.STEAL:
2039     var LAST RAVEN.EXP.CHECK.0
2040     gosub AUTOMOVE 179
2041RAVEN.GENERAL:
2042     var shopcode RP.Gen
2043     var SHOP Raven's Point General
2044     gosub STEAL %RP.Gen
2045RAVEN.EXP.CHECK.0:
2046     if $Thievery.Ranks >= 530 then goto RETURN.TO.SHARD
2047RAVEN.TO.TOBACCO:
2048     var LAST RETURN.TO.SHARD
2049     gosub AUTOMOVE 144
2050RAVEN.TOBACCO:
2051     var shopcode RP.Tobac
2052     var SHOP Raven's Point Tobacco
2053     gosub STEAL %RP.Tobac
2054RETURN.TO.SHARD:
2055     var LAST RETURN.TO.SHARD
2056     if $hidden then gosub unhide
2057     if ("%guild" = "Thief") then send khri stop
2058     pause 0.5
2059     gosub AUTOMOVE 133
2060     send .%TRAVEL_SCRIPT shard
2061     waitforre ^YOU HAVE ARRIVED
2062BACKINSHARD:
2063     var LAST BACKINSHARD
2064     gosub AUTOMOVE east
2065     goto SHARD.STEAL
2066
2067####################################
2068# RATHA STEALING
2069####################################
2070RATHA.STEAL:
2071     var CURRENT.CITY RATHA
2072     echo
2073     echo **** STEALING FROM RATHA! ****
2074     echo
2075     pause 0.5
2076     gosub COOKIE
2077     if ("%guild" = "Necromancer") then gosub NECROPREP
2078RATHA.EXP.CHECK.0:
2079     if $Thievery.Ranks < 500 then goto RATHA.TO.GENERAL
2080RATHA.TO.BAIT:
2081     var LAST RATHA.TO.GENERAL
2082     gosub AUTOMOVE bait
2083RATHA.BAIT:
2084     var shopcode R.Bait
2085     var SHOP Ratha Bait Shop
2086     gosub STEAL %R.Bait
2087RATHA.TO.GENERAL:
2088     var LAST RATHA.TO.HERB
2089     gosub AUTOMOVE general
2090RATHA.GENERAL:
2091     var shopcode R.Gen
2092     var SHOP Ratha General Store
2093     gosub STEAL %R.Gen
2094RATHA.TO.HERB:
2095     var LAST RATHA.TO.FORGE
2096     gosub AUTOMOVE herbalist
2097RATHA.HERB:
2098     var shopcode R.Herb
2099     var SHOP Ratha Herbalist
2100     gosub STEAL %R.Herb
2101RATHA.TO.FORGE:
2102     var LAST RATHA.TO.TAILOR
2103     gosub AUTOMOVE weapon
2104RATHA.FORGE:
2105     var shopcode R.Forge
2106     var SHOP Ratha Krrikt'k's Forge
2107     gosub STEAL %R.Forge
2108     gosub MOVE OUT
2109RATHA.TO.TAILOR:
2110     var LAST RATHA.TO.LEATHER
2111     gosub AUTOMOVE tailor
2112RATHA.TAILOR:
2113     var shopcode R.Tailor
2114     var SHOP Ratha Tailor
2115     gosub STEAL %R.Tailor
2116RATHA.TO.LEATHER:
2117     var LAST RATHA.TO.HAIR
2118     gosub AUTOMOVE leather
2119RATHA.LEATHER:
2120     var shopcode R.Leather
2121     var SHOP Ratha Leather
2122     gosub STEAL %R.Leather
2123RATHA.EXP.CHECK.1:
2124     #if $Thievery.Ranks >= 200 then goto RATHA.TO.MUSIC
2125RATHA.TO.HAIR:
2126     var LAST RATHA.TO.MUSIC
2127     gosub AUTOMOVE hair
2128RATHA.HAIR:
2129     var shopcode R.Hair
2130     var SHOP Ratha Hair Care
2131     gosub STEAL %R.Hair
2132RATHA.TO.MUSIC:
2133     var LAST RATHA.TO.MAGIC
2134     gosub AUTOMOVE music
2135RATHA.MUSIC:
2136     var shopcode R.Music
2137     var SHOP Ratha Music Shop
2138     gosub STEAL %R.Music
2139RATHA.TO.MAGIC:
2140     var LAST RATHA.TO.ORIGAMI
2141     gosub AUTOMOVE magic
2142RATHA.MAGIC:
2143     var shopcode R.Magic
2144     var SHOP Ratha Magic Supplies
2145     gosub STEAL %R.Magic
2146RATHA.TO.ORIGAMI:
2147     var LAST RATHA.TO.JEWELRY
2148     gosub AUTOMOVE origami
2149RATHA.ORIGAMI:
2150     var shopcode R.Origami
2151     var SHOP Ratha Origami Shop
2152     var itemLocation %R.Origami.LOC
2153     gosub STEAL %R.Origami
2154RATHA.TO.JEWELRY:
2155     var LAST RATHA.EXP.CHECK.2
2156     gosub AUTOMOVE jewelry
2157RATHA.JEWELRY:
2158     var shopcode R.Jewelry
2159     var SHOP Ratha Jewelry Shop
2160     gosub STEAL %R.Jewelry
2161RATHA.EXP.CHECK.2:
2162     #if $Thievery.Ranks >= 430 then goto RATHA.TO.RING
2163RATHA.TO.CLERIC:
2164     var LAST RATHA.TO.CLERIC2
2165     gosub AUTOMOVE divine
2166RATHA.CLERIC:
2167     var shopcode R.Cleric
2168     var SHOP Ratha Cleric Shop
2169     gosub STEAL %R.Cleric
2170RATHA.TO.CLERIC2:
2171     var LAST RATHA.TO.RING
2172     gosub AUTOMOVE odds
2173RATHA.CLERIC2:
2174     var shopcode R.Cleric2
2175     var SHOP Ratha Cleric Shop
2176     gosub STEAL %R.Cleric2
2177RATHA.TO.RING:
2178     var LAST GO.PAWN.RATHA
2179     gosub AUTOMOVE chabalu
2180RATHA.RING:
2181     var shopcode R.Ring
2182     var SHOP Ratha Ring Shop
2183     gosub STEAL %R.Ring
2184GO.PAWN.RATHA:
2185GO.RATHA.PAWN:
2186     var CURRENT.CITY RATHA
2187     var LAST GO.RATHA.PAWN
2188     if $hidden then gosub unhide
2189     if ("%guild" = "Thief") then send khri stop
2190     pause 0.5
2191     if ("%PAWN" = "OFF") then goto GO.RATHA.BIN
2192     gosub AUTOMOVE pawn
2193     gosub PAWN.GOODS
2194     if ("%BIN" = "OFF") then goto DONE.STEALING.RATHA2
2195GO.RATHA.BIN:
2196     var LAST GO.RATHA.BIN
2197     gosub AUTOMOVE chabalu
2198     pause 0.5
2199     send ask chabalu about cellar
2200     wait
2201     pause 0.5
2202     gosub MOVE trap door
2203     gosub MOVE go tunnel
2204     gosub MOVE west
2205     gosub AUTOMOVE bin
2206     pause 0.5
2207     gosub BIN.GOODS
2208DONE.STEALING.RATHA:
2209     var LAST DONE.STEALING.RATHA
2210     # Leaving the THIEF GUILD
2211     gosub CIRCLE.CHECK
2212     pause
2213DONE.STEALING.RATHA2:
2214     var LAST DONE.STEALING.CROSS2
2215     if ("%PREMIUM" = "ON") then goto RATHA.PREMIUM
2216     gosub AUTOMOVE 1exchange
2217     gosub LIRUMS
2218     goto RATHA.TELLER
2219RATHA.PREMIUM:
2220     gosub AUTOMOVE premium exchange
2221     gosub LIRUMS
2222RATHA.TELLER:
2223     gosub AUTOMOVE 1teller
2224     gosub BANK
2225     #send with 10 silver
2226#RATHA.SURRENDER:
2227     #var LAST RATHA.SURRENDER
2228     #gosub AUTOMOVE 1guard
2229     #if matchre("$roomobjs","(high guard)") then put surrender guard
2230     #pause 0.5
2231     #pause 0.5
2232     #gosub AUTOMOVE 252
2233     goto FINISHED.SCRIPT
2234
2235####################################
2236# AESRY STEALING
2237####################################
2238AESRY.STEAL:
2239AESRY.TO.HERB:
2240     var CURRENT.CITY AESRY
2241     var LAST AESRY.EXP.CHECK.0
2242     echo
2243     echo **** STEALING FROM AESRY! ****
2244     echo
2245     pause 0.5
2246     gosub COOKIE
2247     if ("%guild" = "Necromancer") then gosub NECROPREP
2248     gosub AUTOMOVE herb
2249AESRY.HERB:
2250     var shopcode A.Herb
2251     var SHOP Aesry Herb Shop
2252     gosub STEAL %A.Herb
2253AESRY.EXP.CHECK.0:
2254     if $Thievery.Ranks < 600 then goto AESRY.TO.CLOTHING
2255AESRY.TO.TANNER:
2256     var LAST AESRY.EXP.CHECK.1
2257     gosub AUTOMOVE tanning
2258AESRY.TANNER:
2259     var shopcode A.Tanner
2260     var SHOP Aesry Tanning Supplies
2261     gosub STEAL %A.Tanner
2262AESRY.EXP.CHECK.1:
2263     #if $Thievery.Ranks >= 700 then goto AESRY.TO.SCRIPT
2264AESRY.TO.CLOTHING:
2265     var LAST AESRY.TO.SCRIPT
2266     gosub AUTOMOVE clothing
2267AESRY.CLOTHING:
2268     var shopcode A.Clothing
2269     var SHOP Aesry Clothing Shop
2270     gosub STEAL %A.Clothing
2271AESRY.TO.SCRIPT:
2272     var LAST AESRY.TO.CLERIC
2273     gosub AUTOMOVE script
2274AESRY.SCRIPT:
2275     var shopcode A.Script
2276     var SHOP Aesry Scriptorium
2277     gosub STEAL %A.Script
2278AESRY.TO.CLERIC:
2279     var LAST AESRY.TO.ORIGAMI
2280     gosub AUTOMOVE clerical
2281AESRY.CLERIC:
2282     var shopcode A.Cleric
2283     var SHOP Aesry Clerical Supplies
2284     gosub STEAL %A.Cleric
2285AESRY.TO.ORIGAMI:
2286     var LAST AESRY.TO.JEWELRY
2287     gosub AUTOMOVE origami
2288AESRY.ORIGAMI:
2289     var shopcode A.Origami
2290     var SHOP Aesry Origami Shop
2291     gosub STEAL %A.Origami
2292AESRY.TO.JEWELRY:
2293     var LAST AESRY.TO.MAGIC
2294     gosub AUTOMOVE jewelry
2295AESRY.JEWELRY:
2296     var shopcode A.Jewelry
2297     var SHOP Aesry Jewelry Shop
2298     gosub STEAL %A.Jewelry
2299AESRY.TO.MAGIC:
2300     var LAST AESRY.TO.SLINGS
2301     gosub AUTOMOVE magic
2302AESRY.MAGIC:
2303     var shopcode A.Magic
2304     var SHOP Aesry Magic Supplies
2305     gosub STEAL %A.Magic
2306AESRY.TO.SLINGS:
2307     var LAST AESRY.TO.PUZZLE
2308     gosub AUTOMOVE bowyer
2309AESRY.SLINGS:
2310     var shopcode A.Slings
2311     var SHOP Aesry Slings and Arrows
2312     gosub STEAL %A.Slings
2313AESRY.TO.PUZZLE:
2314     var LAST AESRY.TO.FOOTWEAR
2315     gosub AUTOMOVE puzzle
2316AESRY.EXP.CHECK.2:
2317     #if $Thievery.Ranks >= 430 then goto AESRY.TO.SHIELDS
2318AESRY.PUZZLE:
2319     var shopcode A.Puzzle
2320     var SHOP Aesy Puzzle Shop
2321     gosub STEAL %A.Puzzle
2322AESRY.TO.FOOTWEAR:
2323     var LAST AESRY.TO.SHIELDS
2324     gosub AUTOMOVE footwear
2325AESRY.FOOTWEAR:
2326     var shopcode A.Footwear
2327     var SHOP Aesry Footwear
2328     gosub STEAL %A.Footwear
2329AESRY.TO.SHIELDS:
2330     var LAST AESRY.TO.WEAPON
2331     gosub AUTOMOVE shield
2332AESRY.SHIELDS:
2333     var shopcode A.Shields
2334     var SHOP Aesry Shields
2335     gosub STEAL %A.Shields
2336AESRY.TO.WEAPON:
2337     var LAST AESRY.TO.ARMOR
2338     gosub AUTOMOVE weapon
2339AESRY.WEAPON:
2340     var shopcode A.Weapon
2341     var SHOP Aesry Weapon Shop
2342     gosub STEAL %A.Weapon
2343AESRY.TO.ARMOR:
2344     var LAST AESRY.TO.GENERAL
2345     gosub AUTOMOVE armor
2346AESRY.ARMOR:
2347     var shopcode A.Armor
2348     var SHOP Aesry Armor Shop
2349     gosub STEAL %A.Armor
2350AESRY.TO.GENERAL:
2351     var LAST AESRY.TO.FLOWER
2352     gosub AUTOMOVE general
2353AESRY.GENERAL:
2354     var shopcode A.General
2355     var SHOP Aesry General Store
2356     gosub STEAL %A.Gen
2357AESRY.TO.FLOWER:
2358     var LAST AESRY.TO.MUSIC
2359     gosub AUTOMOVE flower
2360AESRY.FLOWER:
2361     var shopcode A.Flower
2362     var SHOP Aesry Flower Shop
2363     gosub STEAL %A.Flower
2364AESRY.TO.MUSIC:
2365     var LAST GO.PAWN.AESRY
2366     gosub AUTOMOVE bardic
2367AESRY.MUSIC:
2368     var shopcode A.Music
2369     var SHOP Aesry Music Shop
2370     gosub STEAL %A.Music
2371GO.PAWN.AESRY:
2372GO.AESRY.PAWN:
2373     var CURRENT.CITY AESRY
2374     var LAST GO.AESRY.PAWN
2375     if $hidden then gosub unhide
2376     if ("%guild" = "Thief") then send khri stop
2377     pause 0.5
2378     gosub AUTOMOVE pawn
2379     gosub PAWN.GOODS
2380DONE.STEALING.AESRY:
2381     var LAST DONE.STEALING.AESRY
2382     if ("%PREMIUM" = "ON") then goto AESRY.PREMIUM
2383     gosub AUTOMOVE exchange
2384     gosub LIRUMS
2385     goto AESRY.TELLER
2386AESRY.PREMIUM:
2387     gosub AUTOMOVE premium exchange
2388     gosub LIRUMS
2389AESRY.TELLER:
2390     gosub AUTOMOVE 1teller
2391     gosub BANK
2392     goto FINISHED.SCRIPT
2393
2394############################################################################################
2395############################################################################################
2396FINISHED.SCRIPT:
2397     timer stop
2398     gosub TIME.CALC
2399     gosub COMBINE.BANK
2400     echo
2401     echo *** DONE STEALING!
2402     echo
2403     pause 0.1
2404     send open my %SAFE_CONTAINER
2405     pause 0.5
2406     put #echo >Log Lime ***************** FINAL STEALING REPORT ******************
2407     put #echo >Log Lime *** Thievery Ranks: $Thievery.Ranks -- $Thievery.LearningRate/34
2408     put #echo >Log Lime *** Total Time: %runTime minutes
2409     put #echo >Log Lime *** Start City: %CITY | End City: %CURRENT.CITY
2410     put #echo >Log Lime *** %Charges Stealing Charge(s). %Jailed trip(s) to jail
2411     put #echo >Log Lime *** Binned: %Binned Items  | Pawned: %Pawned Items
2412     put #echo >Log Lime *** Profit: %Plats Plat, %Golds Gold, %Silvers Silver, %Bronzes Bronze and %Coppers Copper
2413     put #echo >Log Lime ********************** END REPORT ***************************
2414     echo ********************* FINAL STEALING REPORT ****************************
2415     echo **** Thievery Ranks: $Thievery.Ranks -- $Thievery.LearningRate/34
2416     echo **** Total Time: %runTime minutes
2417     echo **** Start City: %CITY | End City: %CURRENT.CITY
2418     echo **** %Charges Stealing Charge(s). %Jailed trip(s) to jail
2419     echo **** Binned: %Binned Items  | Pawned: %Pawned Items
2420     echo **** Profit: %Plats Plat, %Golds Gold, %Silvers Silver, %Bronzes Bronze and %Coppers Copper
2421     echo ***********************************************************************
2422     pause 5
2423     if ("%ARMOR.STOW" = "ON") then gosub WEAR.ARMOR
2424     if ("%RETURN_HOME" != "YES") then goto COMPLETE
2425TRAVEL.HOME:
2426     echo **************************************
2427     echo * Travelling back to starting city!!
2428     echo **************************************
2429     pause
2430     if ($zoneid = 1) then 
2431          {
2432               if ("%CITY" != "CROSSING") then 
2433                    {
2434                         gosub AUTOMOVE 42
2435                         goto TRAVEL
2436                    }
2437               else goto AT.STARTING.CITY
2438          }
2439     if ($zoneid = 30) then
2440          {
2441               if ("%CITY" != "RIVERHAVEN") then 
2442                    {
2443                         gosub AUTOMOVE town
2444                         goto TRAVEL
2445                    }
2446               else goto AT.STARTING.CITY
2447          }
2448     if ($zoneid = 42) then
2449          {
2450               if ("%CITY" != "THEREN") then 
2451                    {
2452                         gosub AUTOMOVE portal
2453                         goto TRAVEL
2454                    }
2455               else goto AT.STARTING.CITY
2456          }
2457     if ($zoneid = 61) then
2458          {
2459               if ("%CITY" != "LETH") then 
2460                    {
2461                         gosub AUTOMOVE portal
2462                         goto TRAVEL
2463                    }
2464               else goto AT.STARTING.CITY
2465          }
2466     if ($zoneid = 67) then
2467          {
2468               if ("%CITY" != "SHARD") then 
2469                    {
2470                         gosub AUTOMOVE east
2471                         gosub AUTOMOVE 65
2472                         goto TRAVEL
2473                    }
2474               else goto AT.STARTING.CITY    
2475          }
2476     if ($zoneid = 116) then
2477          {
2478               if ("%CITY" != "HIB") then 
2479                    {
2480                         gosub AUTOMOVE 75
2481                         goto TRAVEL
2482                    }
2483               else goto AT.STARTING.CITY
2484          }
2485     if ($zoneid = 99) then goto ALREADY.THERE
2486     if ($zoneid = 90) then goto ALREADY.THERE
2487     pause 0.5
2488     goto COMPLETE
2489ALREADY.THERE:
2490     echo
2491     echo *** YOU ARE ON AN ISLAND! THIS IS YOUR STARTING CITY DOOFUS!
2492     echo
2493     goto COMPLETE
2494AT.STARTING.CITY:
2495	echo
2496	echo *** ALREADY AT YOUR STARTING CITY! 
2497	echo
2498	goto COMPLETE
2499TRAVEL:
2500     pause 0.5
2501     send .%TRAVEL_SCRIPT %CITY
2502     waitforre YOU HAVE ARRIVED
2503TRAVEL.COMPLETE:
2504     put #echo >Log Chartreuse *** Returned you to Starting City: %CITY
2505COMPLETE:
2506     echo
2507     echo **** DONE STEALING!!
2508     echo
2509     pause 0.5
2510     put #parse DONE PAWNING
2511     put #parse DONE STEALING
2512     exit
2513############################################################################################
2514## CLAN DEVELOPMENT
2515############################################################################################
2516CLAN.HEAL:
2517     put #echo >Log Red Your hands were cut off! Looking for healer!
2518     action goto CLAN.HEAL1 when eval $stunned = 1
2519     pause 3
2520CLAN.HEAL1:
2521     pause 10
2522     if $stunned = 1 then goto CLAN.HEAL
2523     action remove eval $stunned = 1
2524     gosub stand
2525CLAN.TO.EMPATH:
2526     gosub AUTOMOVE portal
2527     gosub MOVE go meeting portal
2528     send lean gwyd
2529     send lean bedlam
2530     pause 40
2531     gosub MOVE go exit portal
2532     pause
2533     goto %LAST
2534############################################################################################
2535#              END OF STEALING RUN TRAINING
2536############################################################################################
2537############################################################################################
2538############################################################################################
2539############################################################################################
2540###             ~~~ SCRIPT ENGINE BEGIN  ~~~ 
2541############################################################################################
2542############################################################################################
2543############################################################################################
2544################################
2545# STEALING SUB-ROUTINE       #
2546################################
2547STEAL:
2548     var item $0
2549	if ("%noSteal" = "ON") then goto STEAL.RETURN
2550     if ("%guild" != "Thief") then var STEALCOUNT %%shopcodeQuant
2551     pause 0.1
2552     pause 0.1
2553	pause 0.1
2554     if ("%guild" = "Empath") && ("%POWER" = "ON") then gosub POWER.CHECK.NOOB
2555     if ("%guild" = "Empath") && ("%PercHealth" = "ON") then gosub PercHealth
2556STEAL.1:
2557     if contains("%item" , "nothing") then goto STEAL.RETURN
2558     if ("$righthand" != "Empty") || ("$lefthand" != "Empty") then gosub stowing
2559MARKING:
2560	if ("%guild" != "Thief") then goto STEALING
2561	if ("%marking" = "OFF") then goto STEALING
2562     if !$hidden then 
2563          {
2564               gosub HIDE
2565               pause $roundtime
2566          }
2567     if $roundtime > 0 then pause 0.5
2568     pause 0.1
2569     pause 0.1
2570     pause 0.1
2571     matchre MARKING ^\.\.\.wait|^Sorry\,
2572     matchre MARK.LAST to take unwanted notice of you|You manage to avoid the shopkeep's notice this time|You trace an X across your chest
2573     matchre SECONDARY.CHECK Mark what\?|^Something appears different
2574     matchre STEAL.LAST perhaps it's a little risky|troublesome to be unnoticed|troublesome to lift|about even odds
2575     matchre TOO.HOT you are being watched|looking for a reason to call the guards|beyond foolish|pretty sure you'll be caught
2576     matchre TOO.HOT it would likely be futile|judge's gavel echoes through your mind|feel the taste of bitter failure|paying far too much attention to it
2577     matchre TOO.HOT somewhat of a long shot|don't think well of your chances to lift it|may be quite the struggle to nab|Guards! Guards!
2578     matchre TOO.HOT miracles occasionally happen|you'll be spotted pretty easily|maybe you shouldn't try it
2579     matchre STEALING Roundtime|^You can not make marks on|it should be possible
2580     send mark %item %itemLocation
2581     matchwait
2582MARK.LAST:
2583     var marking OFF
2584     goto STEALING
2585STEAL.LAST:
2586     var stolen 5
2587     goto STEALING
2588STEALING:
2589     math stolen add 1
2590STEAL.REAL:
2591     if !$hidden then gosub HIDE
2592     if $roundtime > 0 then pause
2593     pause 0.2
2594     pause 0.1
2595     pause 0.1
2596     matchre STEAL.REAL ^\.\.\.wait|^Sorry\,
2597     matchre STEAL.1 ^You need at least one hand free
2598     matchre STEAL.RETURN You haven't picked something|You can't steal
2599     matchre TOO.HOT for help\.|realize that you are being watched|^Guards! Guards!
2600     matchre STEAL.CHECK Roundtime
2601     send steal %item %itemLocation
2602     matchwait
2603STEAL.CHECK:
2604     if ("%noLearn" = "ON") then goto STEAL.RETURN
2605     if (%stolen >= %STEALCOUNT) then goto STEAL.RETURN
2606     if (%stolen = 1) then
2607          {
2608          if ("%MARK.ALL" = "ON") then
2609               {
2610                    goto MARKING
2611               }
2612          else goto STEALING
2613          }
2614     if (%stolen = 2) then
2615          {
2616               gosub stow
2617               goto MARKING
2618          }
2619     if (%stolen = 3) then goto MARKING
2620     if (%stolen = 4) then 
2621          { 
2622          if ("%MARK.ALL" = "ON") then 
2623               { 
2624                    gosub STOW 
2625                    goto MARKING 
2626               }
2627          else gosub STOW 
2628          goto STEALING 
2629          }
2630     if (%stolen = 5) then goto MARKING
2631     if (%stolen >= 6) then
2632          {
2633               gosub stow
2634               goto STEAL.RETURN
2635          }
2636     goto STEAL.RETURN
2637TOO.HOT:
2638     var LEAVE.SHOP YES
2639     put #echo >log Orchid Leaving: %SHOP...  TOO HOT!
2640STEAL.RETURN:
2641     action remove You don't feel you learned anything useful from this trivial theft
2642     action remove notices you attempting to make the grab and begins to shout for help.
2643     var stolen 0
2644     var noLearn OFF
2645	var noSteal OFF
2646     var itemLocation 
2647     if ("%guild" = "Thief") then var marking ON
2648     if ("$righthand" != "Empty") || ("$lefthand" != "Empty") then gosub stow
2649     if $hidden then if ("%SNEAK" = "OFF") then gosub unhide
2650     if ("%guild" = "Necromancer") && (%ROC = 0) then gosub NECROPREP
2651     RETURN
2652SECONDARY.CHECK:
2653     if (%SECOND_ITEM = 0) then goto STEAL.RETURN
2654     echo
2655     echo *** OUT OF STOCK! CHECKING FOR SECONDARY ITEMS..
2656     echo
2657     var item %secondary
2658     var SECOND_ITEM 0
2659     goto STEAL.1
2660#######################
2661#   PAWNING ROUTINE   #
2662#######################
2663PAWN:
2664     var PAWN.ITEM $0
2665PAWN.GET:
2666     if %c < 1 then RETURN
2667     pause 0.001
2668     pause 0.001
2669     matchre PAWN.GET ^\.\.\.wait|^Sorry\,
2670     matchre PAWN.BIN ^You need a free hand
2671     matchre PAWN.SELL ^You get
2672     matchre PAWN.SELL ^You are already
2673     matchre PAWN.SELL ^You pick up
2674     matchre RETURN ^What were you referring to\?
2675     matchre RETURN ^You aren't holding that\.
2676     matchre RETURN ^Please rephrase that command\.|^I could not
2677     send get my %PAWN.ITEM in my %bag
2678     matchwait
2679PAWN.SELL:
2680     counter subtract 1
2681     if ($invisible = 1) then gosub stopinvis
2682     if ((matchre("%nosell", "$righthand")) || (matchre("%nosell", "$lefthand")) then goto PAWN.BIN
2683     matchre PAWN.SELL ^\.\.\.wait|^Sorry\,
2684     matchre PAWN.GET ^You sell your
2685     matchre PAWN.BIN ^You can't pawn
2686     matchre PAWN.BIN slit a throat for this|isn't worth my time|shakes his head
2687     matchre BUCKET You'll want to empty that first
2688     send sell my %PAWN.ITEM
2689     matchwait 5
2690PAWN.BIN:
2691     if ("%BIN" = "OFF") then goto BUCKET
2692     matchre PAWN.BIN ^\.\.\.wait|^Sorry\,
2693     matchre PAWN.GET ^You put
2694     matchre PAWN.GET ^What were you referring to\?
2695     matchre PAWN.GET ^You aren't holding that\.
2696     matchre PAWN.GET ^Please rephrase that command\.
2697     matchre BUCKET ^That's too heavy to go in there\!
2698     matchre BUCKET ^You can't put that in there\!
2699     matchre BUCKET ^There is no more room|too long to fit
2700     matchre BUCKET ^But that's closed\.
2701     matchre BUCKET ^What were you|^You can't do that
2702     matchre BUCKET ^There isn't enough room .* for your .* to fit\.
2703     if ("$lefthand" != "Empty") then send put $lefthandnoun in my %BIN_CONTAINER
2704     if ("$righthand" != "Empty") then send put $righthandnoun in my %BIN_CONTAINER
2705     matchwait 5
2706BUCKET:
2707     if "$zoneid" = "30" then 
2708          {
2709               gosub EMPTY.HANDS
2710               goto PAWN.GET
2711          }
2712     pause 0.1
2713     matchre BUCKET ^\.\.\.wait|^Sorry\,
2714     matchre PAWN.GET ^You put
2715     matchre PAWN.GET ^You drop
2716     matchre PAWN.GET ^You toss
2717     if ("$lefthand" != "Empty") then send put $lefthandnoun in bucket
2718     if ("$righthand" != "Empty") then send put $righthandnoun in bucket
2719     matchwait 1
2720     gosub EMPTY.HANDS
2721     goto PAWN.GET
2722#######################
2723#   BINNING ROUTINE   #
2724#######################
2725BIN:
2726     var BIN.ITEM $0
2727BIN.GET:
2728     if %c < 1 then RETURN
2729     pause 0.001
2730     matchre BIN.GET ^\.\.\.wait|^Sorry\,
2731     matchre BIN.DROP ^You need a free hand
2732     matchre BIN.ITEM ^You get
2733     matchre BIN.ITEM ^You are already
2734     matchre BIN.ITEM ^You pick up
2735     matchre RETURN ^What were you referring to\?
2736     matchre RETURN ^You aren't holding that\.
2737     matchre RETURN ^Please rephrase that command\.
2738     send get my %BIN.ITEM in my %bag
2739     matchwait 5
2740BIN.ITEM:
2741     counter subtract 1
2742     matchre BIN.ITEM ^\.\.\.wait|^Sorry\,
2743     matchre BIN.DROP \"You're not fooling anyone\, $charactername\.
2744     matchre BIN.DROP ^Swan raises an eyebrow
2745	matchre BIN.DROP ^Saishla raises an eyebrow in your direction
2746     matchre BIN.GET \"Nice work\, $charactername\.\"
2747     matchre RETURN ^What were you referring to\?
2748     matchre RETURN ^You aren't holding that\.
2749     matchre RETURN ^Please rephrase that command\.
2750     send put my %BIN.ITEM in bin
2751     matchwait 5
2752BIN.DROP:
2753     gosub STOW.BIN
2754     gosub EMPTY.HANDS
2755     goto BIN.GET
2756################################
2757#  PAWNING / BINNING LOGIC     #
2758################################
2759PAWN.GOODS:
2760     echo
2761     echo #### GETTING SOME COIN!  ####
2762     echo #### PAWNING %CURRENT.CITY HAUL! ####
2763     echo
2764     pause 0.2
2765     var BINORPAWN PAWN
2766     gosub BAG.EMPTY %PAWN_CONTAINER
2767     pause 0.001
2768     if ("%BIN" = "OFF") then gosub BAG.EMPTY %BIN_CONTAINER
2769     gosub STOW
2770     gosub STOWING
2771     RETURN
2772BIN.GOODS:
2773     echo
2774     echo ########  Binning %CURRENT.CITY Haul!  ########
2775     echo
2776     pause 0.2
2777     var BINORPAWN BIN
2778     gosub BAG.EMPTY %BIN_CONTAINER
2779     pause 0.001
2780     gosub BAG.EMPTY %PAWN_CONTAINER
2781     pause 0.5
2782     # send dump junk
2783     gosub STOW
2784     gosub STOWING
2785     RETURN
2786#############################
2787#       STOW ROUTINE        #
2788#############################
2789STOW:
2790     if (("$righthand" = "Empty") && ("$lefthand" = "Empty")) then return
2791     math STOW.LOOP add 1
2792     pause 0.1
2793     pause 0.01
2794     pause 0.01
2795     if contains("$lefthand" "$righthand" , "%large.items") then gosub EMPTY.HANDS
2796     if matchre("%item","(%BIN_CONTAINER|%PAWN_CONTAINER)") then gosub EMPTY.HANDS
2797     if %STOW.LOOP > 1 then goto SECOND.BAG
2798     matchre STOW ^\.\.\.wait|^Sorry\,
2799     matchre SECOND.BAG /You just can't get|no matter how you arrange|^There isn't any more room|too wide|too heavy|too long to fit|won't fit/i
2800     matchre STOW.RETURN /You put|What were you|You can't do|I could not|Perhaps you|Stow what/i
2801     if ("$righthand" != "Empty") then send put my $righthandnoun in my %BIN_CONTAINER
2802     if ("$lefthand" != "Empty") then send put my $lefthandnoun in my %PAWN_CONTAINER
2803     matchwait 7
2804     RETURN
2805SECOND.BAG:
2806     pause 0.001
2807     matchre SECOND.BAG ^\.\.\.wait|^Sorry\,
2808     matchre DROP.ITEM /You just can't get|You can't do|no matter how you arrange|^There isn't any more room||too wide|too heavy|too long to fit|won't fit/i
2809     matchre STOW.RETURN /You put|What were you|I could not|Perhaps you|Stow what/i
2810     if ("$righthand" != "Empty") then send put my $righthandnoun in my %PAWN_CONTAINER
2811     if ("$lefthand" != "Empty") then send put my $lefthandnoun in my %BIN_CONTAINER
2812     matchwait 7
2813     RETURN
2814STOW.RETURN:
2815     var STOW.LOOP 0
2816     RETURN
2817DROP.ITEM:
2818     var STOW.LOOP 0
2819     gosub EMPTY.HANDS
2820     pause 0.2
2821     RETURN    
2822STOW.BIN:
2823     pause 0.1
2824	put open my %SAFE_CONTAINER
2825     pause 0.001
2826	pause 0.001
2827     pause 0.001
2828     matchre SECOND.BAG ^\.\.\.wait|^Sorry\,
2829     matchre DROP.ITEM /You just can't get|You can't do|no matter how you arrange|^There isn't any more room||too wide|too heavy|too long to fit|won't fit/i
2830     matchre STOW.BIN.RETURN /You put|What were you|I could not|Perhaps you|Stow what/i
2831     if ("$righthand" != "Empty") then send put my $righthandnoun in my %SAFE_CONTAINER
2832     if ("$lefthand" != "Empty") then send put my $lefthandnoun in my %SAFE_CONTAINER
2833     matchwait 7
2834STOW.BIN.RETURN:
2835     pause 0.001
2836     send close my %SAFE_CONTAINER
2837     pause 0.001
2838     RETURN
2839############################################################################################
2840# ARMOR REMOVAL
2841############################################################################################
2842ARMOR.CHECK:
2843     counter set 0
2844ARMOR.CHECK.1:
2845     pause 0.1
2846     pause 0.1
2847     matchre REMOVE.AND.STOW (gauntlet|gloves|steel mail gloves|parry stick|handwraps|hand claws|jacket|footwraps|aegis|buckler|hood|\bheater|pavise|scutum|shield|sipar|\btarge\b|aventail|backplate|balaclava|barbute|bascinet|breastplate|\bcap\b|coat|cowl|cuirass|fauld|greaves|hauberk|helm|\bhood\b|jerkin|leathers|lorica|mantle|mask|morion|pants|(?<=(field|fluted|full|half) )\bplate\b|handguards|robe|sallet|shirt|sleeves|tabard|tasset|thorakes|vambraces|vest|collar|coif|mitt|steel mail)
2848     matchre ARMOR.NONE You have nothing of that sort|You are wearing nothing of that sort|You aren't wearing anything like that
2849     send inv armor
2850     matchwait 5
2851     goto ARMOR.WARN
2852ARMOR.CHECK.2:
2853     pause 0.1
2854     pause 0.1
2855     matchre REMOVE.AND.STOW (gauntlet|gloves|steel mail gloves|parry stick|handwraps|hand claws|jacket|footwraps|aegis|buckler|hood|\bheater|pavise|scutum|shield|sipar|\btarge\b|aventail|backplate|balaclava|barbute|bascinet|breastplate|\bcap\b|coat|cowl|cuirass|fauld|greaves|hauberk|helm|\bhood\b|jerkin|leathers|lorica|mantle|mask|morion|pants|(?<=(field|fluted|full|half) )\bplate\b|handguards|robe|sallet|shirt|sleeves|tabard|tasset|thorakes|vambraces|vest|collar|coif|mitt|steel mail)
2856     matchre ARMOR.COMPLETE You have nothing of that sort|You are wearing nothing of that sort|You aren't wearing anything like that
2857     send inv armor
2858     matchwait 5
2859     goto ARMOR.WARN
2860REMOVE.AND.STOW:
2861     var armor $0
2862REMOVE.ARMOR:
2863     pause 0.1
2864     pause 0.1
2865     var LAST REMOVE.ARMOR
2866     matchre REMOVE.ARMOR ^\.\.\.wait|^Sorry\,
2867     matchre STOW.ARMOR ^You remove|^You loosen the straps securing|^You take|^You slide
2868     matchre STOW.ARMOR ^You sling|^You work your way out of|^You pull|^You slip|^You aren't
2869     send remove %armor
2870     matchwait 5
2871STOW.ARMOR:
2872     pause 0.1
2873     pause 0.1
2874     var LAST STOW.ARMOR
2875     matchre STOW.ARMOR ^\.\.\.wait|^Sorry\,
2876     matchre ARMOR.DONE ^You put|^You slip|^What were you
2877     matchre NO.MORE.STOWING any more room in|closed|no matter how you arrange|too heavy|too long
2878     send put %armor in my %SAFE_CONTAINER
2879     matchwait 5
2880ARMOR.DONE:
2881     counter add 1
2882     pause 0.5
2883     var total.armor %c
2884     var armor%c %armor
2885     goto ARMOR.CHECK.2
2886ARMOR.NONE:
2887     echo **** NO ARMOR FOUND!
2888     var ARMOR.STOW OFF
2889     RETURN
2890NO.MORE.STOWING:
2891     echo ***  YOU HAVE NO MORE FREE BAG SPACE FOR ARMOR! MAKE SOME ROOM OR GET BIGGER BAGS!
2892     echo ***  GONNA JUST GO FOR IT ANYWAY, YOU WILL BE HINDERED! QUIT SCRIPT IF YOU WANT TO ABORT
2893     put wear %armor
2894     wait
2895     pause 3
2896     goto ARMOR.COMPLETE
2897ARMOR.COMPLETE:
2898     var ARMOR.STOW ON
2899     echo #######################################
2900     echo # Saved Armor Count: %total.armor
2901     if %total.armor < 1 then RETURN
2902     echo # Armor1: %armor1
2903     if %total.armor < 2 then RETURN
2904     echo # Armor2: %armor2
2905     if %total.armor < 3 then RETURN
2906     echo # Armor3: %armor3
2907     if %total.armor < 4 then RETURN
2908     echo # Armor4: %armor4
2909     if %total.armor < 5 then RETURN
2910     echo # Armor5: %armor5
2911     if %total.armor < 6 then RETURN
2912     echo # Armor6: %armor6
2913     if %total.armor < 7 then RETURN
2914     echo # Armor7: %armor7
2915     if %total.armor < 8 then RETURN
2916     echo # Armor8: %armor8
2917     if %total.armor < 9 then RETURN
2918     echo # Armor9: %armor9
2919     if %total.armor < 10 then RETURN
2920     echo # Armor10: %armor10
2921     echo #######################################
2922     echo
2923     pause 1
2924     RETURN
2925############################################################################################
2926WEAR.ARMOR:
2927     echo **** PUTTING YOUR ARMOR BACK ON! ****
2928     send open my %SAFE_CONTAINER
2929     pause
2930     if %total.armor = 0 then RETURN
2931     if "%armor1" != "null" then
2932          {
2933               send get my %armor1 from my %SAFE_CONTAINER
2934               pause 0.5
2935               send wear my %armor1 from my %SAFE_CONTAINER
2936               pause 0.5
2937          }
2938     if "%armor2" != "null" then
2939          {
2940               gosub stowing
2941               send get my %armor2 from my %SAFE_CONTAINER
2942               pause 0.5
2943               send wear my %armor2 from my %SAFE_CONTAINER
2944               pause 0.5
2945          }
2946     if "%armor3" != "null" then
2947          {
2948               gosub stowing
2949               send get my %armor3 from my %SAFE_CONTAINER
2950               pause 0.5
2951               send wear my %armor3 from my %SAFE_CONTAINER
2952               pause 0.5
2953          }
2954     if "%armor4" != "null" then
2955          {
2956               gosub stowing
2957               send get my %armor4 from my %SAFE_CONTAINER
2958               pause 0.5
2959               send wear my %armor4 from my %SAFE_CONTAINER
2960               pause 0.5
2961          }
2962     if "%armor5" != "null" then
2963          {
2964               gosub stowing
2965               send get my %armor5 from my %SAFE_CONTAINER
2966               pause 0.5
2967               send wear my %armor5 from my %SAFE_CONTAINER
2968               pause 0.5
2969          }
2970     if "%armor6" != "null" then
2971          {
2972               gosub stowing
2973               send get my %armor6 from my %SAFE_CONTAINER
2974               pause 0.5
2975               send wear my %armor6 from my %SAFE_CONTAINER
2976               pause 0.5
2977          }
2978     if "%armor7" != "null" then
2979          {
2980               send get my %armor7 from my %SAFE_CONTAINER
2981               pause 0.5
2982               send wear my %armor7 from my %SAFE_CONTAINER
2983               pause 0.5
2984          }
2985     if "%armor8" != "null" then
2986          {
2987               send get my %armor8 from my %SAFE_CONTAINER
2988               pause 0.5
2989               send wear my %armor8 from my %SAFE_CONTAINER
2990               pause 0.5
2991          }
2992     if "%armor9" != "null" then
2993          {
2994               send get my %armor9 from my %SAFE_CONTAINER
2995               pause 0.5
2996               send wear my %armor9 from my %SAFE_CONTAINER
2997               pause 0.5
2998          }
2999     if "%armor10" != "null" then
3000          {
3001               send get my %armor10 from my %SAFE_CONTAINER
3002               pause 0.5
3003               send wear my %armor10 from my %SAFE_CONTAINER
3004               pause 0.5
3005          }
3006     RETURN
3007############################################################################################
3008############################################################################################
3009# GOSUBS 
3010############################################################################################
3011############################################################################################
3012BAG.EMPTY:
3013     var bag $0
3014     pause .0001
3015     var contents null
3016     action var contents $1 when ^You rummage through .+ and see (.*)\.
3017     action var contents $1 when ^In the .* you see (.*)\.
3018     send look in my %bag
3019     waitforre ^In the .* you see|^There is nothing in there\.|^You rummage
3020     action remove ^In the .* you see (.*)\.|^You rummage through .+ and see (.*)\.
3021     if "%contents" = "null" then RETURN
3022     pause .0001
3023     eval contents replace("%contents" , ", " , "|")
3024     eval contents replace("%contents" , " and a" , "|a")
3025     eval contents replace("%contents" , " and an" , "|an")
3026     eval contents replace("%contents" , " and some" , "|some")
3027     var contents |%contents|
3028     eval total count("%contents", "|")
3029BAG.EMPTY.Loop:
3030     eval item element("%contents", 1)
3031     eval number count("%contents", "|%item")
3032     var count 0
3033     gosub BAG.EMPTY.RemoveLoop
3034     action setvariable item $1 when ^@(?:an?|some).* (\S+)$
3035     put #parse @%item
3036     counter set %count
3037     if contains("%STEAL.LIST", "%item") then gosub BAG.EMPTY.itemAction
3038     # if contains("%STEAL.LIST", "%item") then gosub %BINORPAWN %item
3039     if "%contents" != "|" then goto BAG.EMPTY.Loop
3040     RETURN
3041BAG.EMPTY.RemoveLoop:
3042     eval number count("%contents", "|%item|")
3043     eval contents replace("%contents" , "|%item|" , "|")
3044     eval contents replace("%contents" , "||" , "|")
3045     evalmath count %count + %number
3046     if !contains("%contents", "|%item|") then RETURN
3047     goto BAG.EMPTY.RemoveLoop
3048BAG.EMPTY.itemAction:
3049     gosub %BINORPAWN %item
3050     #counter subtract 1
3051     if %c < 1 then RETURN
3052     goto BAG.EMPTY.itemAction
3053############################################################################################
3054###############################################################################################
3055# UB3R 1337 CONTAINER CHECK
3056###############################################################################################
3057BAG.CHECK:
3058     var bag $0
3059     #var count 0
3060     pause 0.1
3061     var contents null
3062     send open my %SAFE_CONTAINER
3063     wait
3064     pause 0.001
3065     pause 0.001
3066     # action var contents $1 when ^You rummage through .+ and see (.*)\.
3067     action var contents $1 when ^In the .* you see (.*)\.
3068     send look in my %bag
3069     waitforre ^In the .* you see|^There is nothing in there\.
3070     action remove ^In the .* you see (.*)\.|^There is nothing in there\.
3071     pause 0.001
3072     pause 0.001
3073     if "%contents" = "null" then
3074          {
3075               send close my %SAFE_CONTAINER
3076               pause 0.5
3077               RETURN
3078          }
3079     eval contents replace("%contents" , ", " , "|")
3080     eval contents replace("%contents" , " and a" , "|a")
3081     eval contents replace("%contents" , " and an" , "|an")
3082     eval contents replace("%contents" , " and some" , "|some")
3083     var contents |%contents|
3084     eval total count("%contents", "|")
3085Loop:
3086     eval item element("%contents", 1)
3087     eval number count("%contents", "|%item")
3088     var count 0
3089     gosub RemoveLoop
3090     action var item $1 when ^@(?:an?|some) .* (\S+)$
3091     put #parse @%item
3092     counter set %count
3093     if contains("%IMPORTANT_ITEMS", "%item") then gosub storeitem
3094     if contains("%STEAL.LIST", "%item") then gosub storeitem
3095     if %contents != "|" then goto Loop
3096     send close my %SAFE_CONTAINER
3097     wait
3098     pause 0.001
3099     pause 0.001
3100     echo **** DONE STASHING ITEMS FROM %bag
3101     RETURN
3102RemoveLoop:
3103     eval number count("%contents", "|%item|")
3104     eval contents replace("%contents", "|%item|", "|")
3105     eval contents replace("%contents", "||" "|")
3106     evalmath count %count + %number
3107     if !contains("%contents", "|%item|") then RETURN
3108     goto RemoveLoop
3109storeitem:
3110     counter subtract 1
3111     gosub GET %item from my %bag
3112     gosub PUT_IT my %item in my %SAFE_CONTAINER
3113     if %c < 1 then RETURN
3114     goto storeitem
3115
3116#####################################
3117# THIEF BUFFS
3118#####################################
3119COOKIE:
3120     if ("%guild" = "Barbarian") then goto DANCE
3121     if ("%guild" != "Thief") then RETURN
3122     echo *** PUTTING UP KHRI ***
3123     if ($concentration < 50) then goto COOKIE.BREAK
3124     gosub COOKIE.START %khri1
3125     gosub COOKIE.START %khri2
3126     RETURN
3127COOKIE.START:
3128     var khri $0
3129COOKIE.START.CONTINUE:
3130     matchre COOKIE.START.CONTINUE ^\.\.\.wait|^Sorry\,
3131     matchre COOKIE.KNEEL ^Your mind and body are willing|Sitting, kneeling, or lying
3132     matchre COOKIE.START.CONTINUE ^\.\.\.wait|^Sorry\,
3133     matchre COOKIE.RETURN ^You're already using the .* meditation\.
3134     matchre COOKIE.RETURN ^You already
3135     matchre COOKIE.RETURN ^Roundtime\:?\s+\d+\s+sec(?:onds|s)?\.?
3136     matchre COOKIE.RETURN ^\[Roundtime\:?\s+\d+\s+sec(?:onds|s)?\.?\]
3137     matchre COOKIE.RETURN ^\(Roundtime\:?\s+\d+\s+sec(?:onds|s)?\.?\)
3138     matchre COOKIE.RETURN ^Focusing|^With intense focus|^You carefully relax your mind|You are not|Your mind|valid khri|^Your thoughts
3139     matchre COOKIE.BREAK You strain, but cannot focus|You have not recovered from|Your mind is already focused
3140     send khri %khri
3141     matchwait
3142COOKIE.BREAK:
3143     send khri stop
3144COOKIE.WAIT:
3145	pause 0.5
3146     put khri meditate
3147	pause
3148     pause
3149     if ($concentration > 50) then goto COOKIE
3150     echo
3151     echo *** WAITING FOR CONCENTRATION TO RECOVER.........
3152     echo
3153     pause 20
3154WAIT.DONE:
3155     if ($concentration < 50) then goto COOKIE.BREAK
3156COOKIE.BREAK.DONE:
3157     gosub EMPTY.HANDS
3158     goto COOKIE
3159COOKIE.KNEEL:
3160     gosub PUT kneel
3161     gosub PUT khri %khri
3162     pause $roundtime
3163     pause 0.5
3164     gosub stand
3165     RETURN
3166COOKIE.RETURN:
3167     pause $roundtime
3168     pause .001
3169     pause .001
3170     RETURN
3171#####################################
3172# BARB BUFFS
3173#####################################
3174DANCE:
3175     echo *** BARB DANCE ***
3176     gosub PUT form monkey
3177     pause $roundtime
3178     pause 0.5
3179     gosub PUT form panther
3180     pause $roundtime
3181     pause 0.5
3182     gosub PUT berserk wildfire
3183     pause 0.5
3184     RETURN
3185#####################################
3186# EMPATH BUFFS
3187#####################################
3188POWER.CHECK.NOOB:
3189     if ($Attunement.LearningRate > 30) then RETURN
3190     pause 0.5
3191     gosub PUT power
3192     pause
3193     pause
3194POWER.STUN.CHECK:
3195     if ($stunned = 1) then
3196          {
3197               echo *** STUNNED! PAUSING...
3198               pause 5
3199               goto POWER.STUN.CHECK
3200          }
3201     RETURN
3202
3203PercHealth:
3204     if ($Empathy.LearningRate > 32) then RETURN
3205     if ($Attunement.LearningRate > 32) then RETURN
3206     if ("%GuardianSpirit" = "ON") then GOSUB POWER.CHECK
3207     if ($zoneid = 42) then RETURN
3208     echo *** PERCEIVING HEALTH ***
3209     pause 0.001
3210     pause 0.001
3211     gosub PUT perceive health
3212     pause
3213     POWER.STUN.CHECK2:
3214     if $stunned = 1 then
3215          {
3216               echo *** STUNNED! PAUSING...
3217               pause 5
3218               goto POWER.STUN.CHECK2
3219          }
3220     pause 0.001
3221     pause 0.001
3222     RETURN
3223
3224POWER.CHECK:
3225     if ($Attunement.LearningRate > 30) then RETURN
3226     if ($zoneid = 42) then RETURN
3227     pause 0.001
3228     pause 0.001
3229     matchre RETURN ^You sense the Guardian Spirit spell upon you
3230     matchre GuardianSpirit ^Roundtime
3231     send power
3232     matchwait 3
3233     GOTO GuardianSpirit
3234GS1:
3235pause 5
3236GuardianSpirit:
3237     if (*"%GuardianSpirit" != "ON") then RETURN
3238     if ($zoneid = 42) then RETURN
3239          if ($Empathy.Ranks < 75) && ($Attunement.Ranks < 75) || ($Empathy.Ranks < 50) && ($Attunement.Ranks < 100) || ($Empathy.Ranks < 100) && ($Attunement.Ranks < 50) then
3240          {
3241               echo
3242               echo *** You do not appear to have enough combined Empathy or Attunement for Guardian Spirit ***
3243               echo *** If this is an error, please email/IM me with your Empathy and Attunement Ranks
3244               echo *** Turning Guardian Spirit OFF for now.
3245               pause 5
3246               var GuardianSpirit OFF
3247               RETURN
3248          }
3249     echo *** GUARDIAN SPIRIT ***
3250     pause 0.5
3251     gosub PREPARE gs %gsMana
3252     if (%ECastPause > 0) then gosub SPELL_WAIT
3253     else pause %ECastPause
3254     gosub SPELL_CAST
3255     RETURN
3256#####################################
3257# NECRO BUFFS
3258#####################################
3259NECROSTART:
3260     var Rite OFF
3261     var Eyes OFF
3262     action var $1 ON when ^You sense the (\w+)
3263     gosub PUT power
3264     pause 0.5
3265     pause 0.1
3266     action remove ^You sense the (\w+)
3267
3268NECROPREP:
3269     if ("$guild" != "Necromancer") then RETURN
3270     var cast $0
3271     pause 0.1
3272     gosub ROC
3273     gosub EOTB
3274     RETURN
3275     
3276ROC:
3277     if ("%Rite" = "ON") then goto NECRO.DONE
3278     if ("%ROC" != "ON") then goto NECRO.DONE
3279     echo **** Checking ROC ****
3280     if ("$preparedspell" != "None") then gosub RELEASE
3281     if (((matchre("$roomobjs", "exchange board")) || (matchre("$roomname", "([T|t]eller|[E|e]xchange|[B|b]ank)")) || (matchre("$roomname", "(%donotcastlist)"))) then RETURN
3282     gosub NECRO.CHECKROOM
3283     gosub PREPARE roc %rocMana
3284     if (%castPause > 0) then gosub SPELL_WAIT
3285     else 
3286          {    
3287               pause %castPause
3288               if ((!("$roomplayers" = "")) && (matchre("$preparedspell", "(Rite of Contrition|Eyes of the Blind)")) then gosub MOVE.RANDOM
3289               gosub SPELL_CAST
3290          }
3291     RETURN
3292     
3293EOTB:
3294     if ("%EOTB" != "ON") then goto NECRO.DONE
3295     if (("%Eyes" = "ON") && ($invisible = 1)) then goto NECRO.DONE
3296     echo  **** Checking EOTB ****
3297     if ("$preparedspell" != "None") then gosub RELEASE
3298## ** Waits for invis pulse or casts the spell if invisible is off..
3299     if (("%Eyes" = "ON") && ($invisible = 0)) then
3300          {
3301## ** This return is slightly different, it will not wait for pulse inside the exchange. 
3302## ** It will also not wait for a pulse if destination = exchange, account or any teller trips to the exchange when moving areas. 
3303## ** It should wait for a pulse inside the teller if going anywhere else.
3304          if (((matchre("$roomobjs", "exchange rate board")) || (matchre("$roomname", "([T|t]eller|[E|e]xchange|[B|b]ank)")) || (matchre("$roomname", "(%donotcastlist)"))) && ((matchre("$roomname", "([T|t]eller|[E|e]xchange|[B|b]ank)")) && (matchre("%Destination", "(teller|exchange)")))) then RETURN
3305          matchre EOTB ^Your spell subtly|^Your corruptive mutation fades
3306          matchwait 30
3307          put #echo >log Red *** Error with EOTB not pulsing invis. Attempting to recast.
3308          }
3309    if ($invisible = 1) then RETURN
3310     
3311## ** If script made it to this section then EOTB must be recast.  
3312## ** This will not cast while inside the bank or any other unapproved rooms.
3313     if (((matchre("$roomobjs", "exchange rate board")) || (matchre("$roomname", "([T|t]eller|[E|e]xchange|[B|b]ank)")) || (matchre("$roomname", "(%donotcastlist)"))) then RETURN
3314     if ($stamina < 50) then RETURN
3315     gosub NECRO.CHECKROOM
3316     gosub PREPARE eotb %eotbMana
3317     if (%castPause > 0) then gosub SPELL_WAIT
3318     else 
3319          {    
3320               pause %castPause
3321               if ((!("$roomplayers" = "")) && (matchre("$preparedspell", "(Rite of Contrition|Eyes of the Blind)")) then gosub MOVE.RANDOM
3322               gosub SPELL_CAST
3323          }
3324    RETURN
3325NECRO.DONE:
3326     delay 0.0001
3327     RETURN
3328
3329NECRO.CHECKROOM:
3330     if !("$roomplayers" = "") then gosub MOVE.RANDOM
3331     send search
3332     waitforre ^Roundtime|^You scan the
3333     pause $roundtime
3334     pause 0.5
3335     if !("$roomplayers" = "") then gosub MOVE.RANDOM
3336     echo **** FOUND EMPTY ROOM! ***
3337RETURN    
3338
3339stopinvis:
3340     gosub PUT hum scale
3341     pause 0.1
3342     pause 0.1
3343     gosub PUT stop hum
3344     RETURN
3345##############################################################################################
3346#        UBER PROFIT TRACKING / BANK EXCHANGE V.9000    W/ CROSS SCRIPT INJECTION                  #
3347##############################################################################################
3348BANK:
3349     send wealth
3350     waitforre ^Wealth|^I could|^\.\.\.wait|^Sorry\,
3351     pause 0.001
3352     action (balancecheck) var Plat $1 when ^.*\s(\d+)\splatinum\,?
3353     action (balancecheck) var Gold $1 when ^.*\s(\d+)\sgold\,?
3354     action (balancecheck) var Silver $1 when ^.*\s(\d+)\ssilver\,?
3355     action (balancecheck) var Bronze $1 when ^.*\s(\d+)\sbronze\,?
3356     action (balancecheck) var Copper $1 when ^.*\s(\d+)\scopper
3357     action (balancecheck) off
3358     action (profitparse) var Plat $1 when ^PROFITPARSE\s(\d+)\d\d\d\d\sPROFITPARSE
3359     action (profitparse) var Gold $1 when ^PROFITPARSE\s\d+(\d)\d\d\d\sPROFITPARSE
3360     action (profitparse) var Gold $1 when ^PROFITPARSE\s(\d)\d\d\d\sPROFITPARSE
3361     action (profitparse) var Silver $1 when ^PROFITPARSE\s\d+\d(\d)\d\d\sPROFITPARSE
3362     action (profitparse) var Silver $1 when ^PROFITPARSE\s\d(\d)\d\d\sPROFITPARSE
3363     action (profitparse) var Silver $1 when ^PROFITPARSE\s(\d)\d\d\sPROFITPARSE
3364     action (profitparse) var Bronze $1 when ^PROFITPARSE\s\d+\d\d(\d)\d\sPROFITPARSE
3365     action (profitparse) var Bronze $1 when ^PROFITPARSE\s\d\d(\d)\d\sPROFITPARSE
3366     action (profitparse) var Bronze $1 when ^PROFITPARSE\s\d(\d)\d\sPROFITPARSE
3367     action (profitparse) var Bronze $1 when ^PROFITPARSE\s(\d)\d\sPROFITPARSE
3368     action (profitparse) var Copper $1 when ^PROFITPARSE\s\d+\d\d\d(\d)\sPROFITPARSE
3369     action (profitparse) var Copper $1 when ^PROFITPARSE\s\d\d\d(\d)\sPROFITPARSE
3370     action (profitparse) var Copper $1 when ^PROFITPARSE\s\d\d(\d)\sPROFITPARSE
3371     action (profitparse) var Copper $1 when ^PROFITPARSE\s\d(\d)\sPROFITPARSE
3372     action (profitparse) var Copper $1 when ^PROFITPARSE\s(\d)\sPROFITPARSE
3373     action (profitparse) off
3374     var preDeposit 0
3375     var postDeposit 0
3376     var profit 0
3377     gosub BANK.COIN.CLEAR
3378     action (balancecheck) on
3379     pause 0.01
3380     if ($invisible = 1) then gosub stopinvis
3381     put -check balance;-1 encumbrance
3382     waitforre ^\s*Encumbrance\s*\:
3383     pause 0.01
3384     action (balancecheck) off
3385     gosub BANK.COIN.MATH
3386     gosub BANK.PREDEP.MATH
3387     pause 0.01
3388     if ($invisible = 1) then gosub stopinvis
3389     put -deposit all;-1 encumbrance
3390     waitforre ^\s*Encumbrance\s*\:
3391     pause 0.01
3392     gosub BANK.COIN.CLEAR
3393     action (balancecheck) on
3394     pause 0.01
3395     if ($invisible = 1) then gosub stopinvis
3396     put -check balance;-1 encumbrance
3397     waitforre ^\s*Encumbrance\s*\:
3398     pause 0.01
3399     action (balancecheck) off
3400     gosub BANK.COIN.MATH
3401     gosub BANK.POSTDEP.MATH
3402     evalmath profit (%postDeposit - %preDeposit)
3403     math Profit add %profit
3404     pause 0.01
3405     gosub BANK.COIN.CLEAR
3406     action (profitparse) on
3407     put #parse PROFITPARSE %Profit PROFITPARSE
3408     action (profitparse) off
3409
3410## Multiple Bank Deposit Adding
3411     if (%Banked > 0) then 
3412          { 
3413               put #tvar Plat 0
3414               put #tvar Gold 0
3415               put #tvar Silver 0
3416               put #tvar Bronze 0
3417               put #tvar Copper 0
3418          }
3419     math Banked add 1
3420
3421SAVE.PROFIT:
3422## Saves your profit from each bank deposit in temp global variables for use in other scripts and for multiple city deposits 
3423     put #tvar Plat %Plat
3424     put #tvar Gold %Gold
3425     put #tvar Silver %Silver
3426     put #tvar Bronze %Bronze
3427     put #tvar Copper %Copper
3428     pause 0.1
3429     put #statusbar 1 Stealing Profit: %Plat Plat, %Gold Gold, %Silver Silver, %Bronze Bronze and %Copper Copper
3430     put #parse MONEY DONE
3431     RETURN
3432#############################################
3433# BANK GOSUBS
3434#############################################
3435COMBINE.BANK:
3436     math Plats add $Plat
3437     math Golds add $Gold
3438     math Silvers add $Silver
3439     math Bronzes add $Bronze
3440     math Coppers add $Copper
3441     RETURN
3442BANK.COIN.CLEAR:
3443     var Copper 0
3444     var Bronze 0
3445     var Silver 0
3446     var Gold 0
3447     var Plat 0
3448     RETURN
3449BANK.COIN.MATH:
3450     math Bronze multiply 10
3451     math Silver multiply 100
3452     math Gold multiply 1000
3453     math Plat multiply 10000
3454     RETURN
3455BANK.PREDEP.MATH:
3456     math preDeposit add %Copper
3457     math preDeposit add %Bronze
3458     math preDeposit add %Silver
3459     math preDeposit add %Gold
3460     math preDeposit add %Plat
3461     RETURN
3462BANK.POSTDEP.MATH:
3463     math postDeposit add %Copper
3464     math postDeposit add %Bronze
3465     math postDeposit add %Silver
3466     math postDeposit add %Gold
3467     math postDeposit add %Plat
3468     RETURN
3469#############################################
3470## EXCHANGE
3471#############################################
3472LIRUMS:
3473     var Target.Currency LIRUMS
3474     gosub EXCHANGE KRONARS
3475     gosub EXCHANGE DOKORAS
3476     goto EXCHANGE.FINISH
3477KRONARS:
3478     var Target.Currency KRONARS
3479     gosub EXCHANGE LIRUMS
3480     gosub EXCHANGE DOKORAS
3481     goto EXCHANGE.FINISH
3482DOKORAS:
3483     var Target.Currency DOKORAS
3484     gosub EXCHANGE KRONARS
3485     gosub EXCHANGE LIRUMS
3486     goto EXCHANGE.FINISH
3487EXCHANGE:
3488     var Coin $0
3489EXCHANGE.CONTINUE:
3490     if ($invisible = 1) then gosub stopinvis
3491     pause 0.1
3492     matchre EXCHANGE.CONTINUE ^\.\.\.wait\s+\d+\s+sec(?:onds?|s)?\.?|^Sorry\,
3493     matchre RETURN ^You hand your money to the money-changer\.\s*After collecting a.* fee, .* hands you .*\.
3494     matchre RETURN ^The money-changer says crossly, \"A transaction that small isn't worth my time\.\s*The minimum is one bronze or ten coppers\.\"
3495     matchre RETURN ^You count out all of your .* and drop them in the proper jar\.\s*After figuring a .* fee in the ledger beside the jar\, you reach into the one filled with .* and withdraw .*\.
3496     matchre RETURN ^One of the guards mutters\, \"None of that\, $charactername\.\s*You'd be lucky to get anything at all with an exchange that small\.\"
3497     matchre RETURN ^But you don't have any .*\.
3498     matchre FINISH ^There is no money-changer here\.
3499     put EXCHANGE ALL %Coin FOR %Target.Currency
3500     matchwait
3501EXCHANGE.FINISH:
3502     put #parse EXCHANGE DONE!
3503     RETURN
3504############################################################################################
3505############################################################################################
3506# JAILED / DEBT PAYING ROUTINE         #
3507#  ROBUST AS A MOTHERFUCKER            #
3508############################################################################################
3509############################################################################################
3510JAIL.CHECK:
3511     action instant goto PLEAD when ^The eyes of the court are upon you|PLEAD INNOCENT or PLEAD GUILTY|Your silence shall be taken|How do you plead|Shouldn't you be worrying about something else
3512     put #parse TAKING CARE OF BUSINESS
3513     put #script pause %MAIN_SCRIPT
3514     if ($zoneid = 1) then goto CROSSING.JAIL
3515     if ($zoneid = 30) then goto HAVEN.JAIL
3516     if ($zoneid = 42) then goto THEREN.JAIL
3517     if ($zoneid = 61) then goto LETH.JAIL
3518     if ($zoneid = 116) then goto HIB.JAIL
3519     if ($zoneid = 67) then goto SHARD.JAIL
3520     if ($zoneid = 99) then goto AESRY.JAIL
3521     if ($zoneid = 90) then goto RATHA.JAIL
3522     pause 0.5
3523     goto JAILED
3524
3525AESRY.JAIL:
3526JAIL.AESRY:
3527     var CURRENT.CITY Aesry
3528     echo Aesry JAIL
3529     put #parse Aesry JAIL
3530     goto JAILED
3531RATHA.JAIL:
3532JAIL.RATHA:
3533     var CURRENT.CITY Ratha
3534     echo Ratha JAIL
3535     put #parse Ratha JAIL
3536     goto JAILED
3537THEREN.JAIL:
3538JAIL.THEREN:
3539     var CURRENT.CITY Theren
3540     echo Theren JAIL
3541     put #parse Theren JAIL
3542     goto JAILED
3543HAVEN.JAIL:
3544JAIL.HAVEN:
3545     var CURRENT.CITY Riverhaven
3546     echo RIVERHAVEN JAIL
3547     put #parse RIVERHAVEN JAIL
3548     goto JAILED
3549LETH.JAIL:
3550JAIL.LETH:
3551     var CURRENT.CITY Leth
3552     echo LETH JAIL
3553     put #parse LETH JAIL
3554     goto JAILED
3555CROSSING.JAIL:
3556CROSS.JAIL:
3557JAIL.CROSS:
3558     var CURRENT.CITY Crossing
3559     echo CROSSING JAIL
3560     put #parse CROSS JAIL
3561     goto JAILED
3562HIB.JAIL:
3563JAIL.HIB:
3564     var CURRENT.CITY Hib
3565     echo HIB JAIL
3566     put #parse HIB JAIL
3567     goto JAILED
3568SHARD.JAIL:
3569JAIL.SHARD:
3570     var CURRENT.CITY Shard
3571     echo SHARD JAIL
3572     put #parse SHARD JAIL
3573     goto JAILED
3574
3575JAILED:
3576     math Jailed add 1
3577     echo *** YOU'VE BEEN JAILED! ***
3578     echo *** WAITING FOR SENTENCE! ***
3579     put #echo >log Red **** ARRESTED IN %CURRENT.CITY!! *****
3580     put #beep
3581     matchre PLEAD ^The eyes of the court are upon you|PLEAD INNOCENT or PLEAD GUILTY|Your silence shall be taken|plead
3582     matchwait 220
3583     goto JAILED
3584PLEAD:
3585     action remove ^The eyes of the court are upon you|PLEAD INNOCENT or PLEAD GUILTY|Your silence shall be taken|How do you plead|Shouldn't you be worrying about something else
3586     send plead %PLEAD
3587     wait
3588     pause 0.5
3589     pause 0.1
3590     if ($roomid = 23) then goto STOCKS
3591GET.SACK:
3592GET_SACK:
3593     pause 0.1
3594     pause 0.1
3595     match DEBT You glance down at your empty hands
3596     match SACK sack
3597     send glance
3598     matchwait
3599DEBT:
3600     gosub STAND
3601     echo
3602     echo **** Getting some coin to pay fine  ****
3603     echo
3604     if ($zoneid = 42) then goto THEREN.JAIL.GET.FINE
3605     gosub clear
3606     if ("%guild" = "Necromancer") then gosub NECROPREP
3607     if ($zoneid = 90) then
3608          {
3609               var GUARD 1guard
3610               if ($roomid = 349) then var GUARD 1guard
3611               if ($roomid = 581) then var GUARD 3guard
3612          }
3613     pause 0.1
3614TO.TELLER:
3615     var plat 20
3616     if ($zoneid = 116) then
3617          {
3618               gosub automove 2teller
3619               goto FINECHECK.DOKORAS
3620          }
3621     if ($zoneid = 90) then 
3622          {
3623               gosub AUTOMOVE 1teller
3624               goto FINECHECK.LIRUMS
3625          }
3626     gosub AUTOMOVE teller
3627     if ($zoneid = 67) then goto FINECHECK.DOKORAS
3628     if ($zoneid = 116) then goto FINECHECK.DOKORAS
3629     if ($zoneid = 61) then goto FINE.CHECK.KRONARS
3630     if ($zoneid = 1) then goto FINE.CHECK.KRONARS
3631     if ($zoneid = 30) then goto FINECHECK.LIRUMS
3632     if ($zoneid = 99) then goto FINECHECK.LIRUMS
3633     if ($zoneid = 34a) then goto FINECHECK.LIRUMS
3634     if ($zoneid = 42) then goto FINECHECK.LIRUMS
3635     pause
3636     echo
3637     echo *** UKNOWN JAIL LOCATION!!
3638     echo *** CRITICAL ERROR!
3639     echo
3640     put #echo >Log Red ***CRITICAL ERROR!!!!
3641     put #echo >Log Red ***UNKOWN JAIL LOCATION: Zone- $zoneid Room- $roomid
3642     pause 0.1
3643FINECHECK:
3644FINE.CHECK.KRONARS:
3645     matchre SET_FINE \((\d+) copper Kronars\)$
3646     match NO_FINE Wealth:
3647     send wealth
3648     matchwait
3649FINECHECK.LIRUMS:
3650     matchre SET_FINE_LIRUM \((\d+) copper Lirums\)$
3651     match NO_FINE Wealth:
3652     send wealth
3653     matchwait
3654FINECHECK.DOKORAS:
3655     matchre SET_FINE_DOKORAS \((\d+) copper Dokoras\)$
3656     match NO_FINE Wealth:
3657     send wealth
3658     matchwait
3659SET_FINE_LIRUM:
3660     pause 0.1
3661     var fine $1
3662     var currency lirum
3663     if (%fine > 250000) then goto BIGGER_FINE
3664     if (%fine > 100000) then goto BIG_FINE
3665     goto WITHDRAW
3666SET_FINE_DOKORAS:
3667     pause 0.1
3668     var fine $1
3669     var currency dokora
3670     if (%fine > 250000) then goto BIGGER_FINE
3671     if (%fine > 100000) then goto BIG_FINE
3672     goto WITHDRAW
3673SET_FINE:
3674     pause 0.1
3675     var fine $1
3676     var currency kronar
3677     if (%fine > 200000) then goto BIGGER_FINE
3678     if (%fine > 100000) then goto BIG_FINE
3679     goto WITHDRAW
3680WITHDRAW:
3681     if ($invisible = 1) then gosub stopinvis
3682     pause 0.2
3683     pause 0.1
3684     matchre TO.TELLER ^You must be at a bank teller's window
3685     matchre PAY_DEBT ^The clerk counts out
3686     matchre NO.FUNDS we are not lending money|You don't have that much
3687     send withdraw %fine copper
3688     matchwait
3689BIG_FINE: 
3690     if ($invisible = 1) then gosub stopinvis
3691     pause 0.2
3692     pause 0.1
3693     matchre TO.TELLER ^You must be at a bank teller's window
3694     matchre PAY_DEBT ^The clerk counts out
3695     matchre NO.FUNDS we are not lending money|You don't have that much
3696     send withdraw %plat plat
3697     matchwait
3698BIGGER_FINE:
3699     if (%fine >= 2000000) then var plat 300
3700     if (%fine >= 1500000) then var plat 200
3701     if (%fine >= 1200000) then var plat 150
3702     if (%fine >= 900000) then var plat 120
3703     if (%fine >= 500000) then var plat 90
3704     if (%fine >= 450000) then var plat 50
3705     if (%fine >= 400000) then var plat 45
3706     if (%fine >= 350000) then var plat 40
3707     if (%fine >= 250000) then var plat 35
3708     if (%fine >= 200000) then var plat 25
3709     goto BIG_FINE
3710NO_FINE:
3711     echo
3712     echo *** You have no fine
3713     echo
3714     goto RETURN_TO_JAIL
3715PAY_DEBT:
3716     echo
3717     echo **** Paying off your debt! ***
3718     echo
3719     pause
3720     pause 0.5
3721     # Walking to pay off the debt
3722     gosub AUTOMOVE debt
3723     if ($invisible = 1) then gosub stopinvis
3724     send pay %fine
3725     pause
3726     if ($zoneid = 116) then
3727          {
3728               gosub automove 2teller
3729               goto DONE_DEBT
3730          }
3731     if ($zoneid = 90) then 
3732          {
3733               gosub AUTOMOVE 1teller
3734               goto DONE_DEBT
3735          }
3736     gosub AUTOMOVE teller
3737DONE_DEBT:
3738     pause 0.1
3739     if ($invisible = 1) then gosub stopinvis
3740     send dep all
3741     pause 0.1
3742RETURN_TO_JAIL:
3743     echo
3744     echo **** Heading back to jail now ****
3745     echo
3746     if ($zoneid = 42) then goto THEREN.KEEP.JAIL
3747     if ($zoneid = 90) then goto RATHA.JAIL.RETURN
3748     if ($zoneid = 67) then goto SHARD.JAIL.RETURN
3749     if ($zoneid = 116) then goto HIB.JAIL.RETURN
3750     # Walking to the Guard House
3751     gosub AUTOMOVE Guard
3752     goto CLAN
3753RATHA.JAIL.RETURN:
3754     gosub AUTOMOVE %GUARD
3755     goto CLAN
3756HIB.JAIL.RETURN:
3757     gosub AUTOMOVE 200
3758     goto CLAN
3759     SHARD.JAIL.RETURN:
3760     gosub AUTOMOVE sentin
3761CLAN:
3762     if ("$gamename" = "DRF") && ("%ClanItem" != "NO") then goto CLAN_ITEM
3763     else goto THE_SACK
3764CLAN_ITEM_PAUSE:
3765     pause 8
3766CLAN_ITEM:
3767     if ("%ClanItem" = "NO") then goto THE_SACK
3768     if ("$gamename" = "DRF") then send remove %CLAN_ITEM_NAME
3769     pause
3770THE_SACK:
3771     if ($invisible = 1) then gosub stopinvis
3772     pause 0.5
3773     matchre THE_SACK ^\.\.\.wait|^Sorry, you may only|What were you|I could not|Please rephrase
3774     matchre SACK_PRE ^You reach for your sack and retrieve the equipment
3775     matchre CLAN_ITEM_PAUSE ^You'll need to not be wearing anything
3776     matchre DEBT paid off your debt to society
3777     matchre SACK ^Realizing you're wearing too much
3778     send get $charactername sack
3779     matchwait
3780     goto GET_SACK
3781STOCKS:
3782echo
3783echo *** You got the stocks! Wait it out!
3784echo
3785waitforre ^You accept a sack and retrieve the equipment
3786SACK_PRE:
3787     if ("%ClanItem" = "YES") then put wear %CLAN_ITEM_NAME
3788     if ("%ClanItem" = "YES") then put rub %CLAN_ITEM_NAME
3789     pause 0.5
3790     send open my small sack
3791     wait
3792     pause 0.5
3793SACK:
3794     pause 0.5
3795     pause 0.5
3796     matchre STOW.IT mining cowl|mining cap|mining helm
3797     matchre ITEM khuj|quarterstaff|quarter staff|halberd|toad
3798     match OPEN_SACK That is closed.
3799     matchre GET_SACK_ITEM (\S+)(\.)
3800     matchre NO_MORE_ITEMS ^There is nothing in there|^I could not find
3801     send look in my small sack
3802     matchwait
3803STOW.IT:
3804     var item $0
3805     send get %item from my sack
3806     pause 0.5
3807     pause 0.2
3808     send stow %item in my %BIN_CONTAINER
3809     pause 0.5
3810     send stow %item in my %PAWN_CONTAINER
3811     goto SACK
3812ITEM:
3813     var item $0
3814     gosub GET %item from my sack
3815     pause 0.5
3816     send wear %item
3817     pause 0.5
3818     send stow %item
3819     goto SACK
3820OPEN_SACK:
3821     send wear %CLAN_ITEM_NAME
3822     pause 0.5
3823     send open my sack
3824     wait
3825     goto SACK
3826GET_SACK_ITEM:
3827     pause
3828     if $1 = there then goto NO_MORE_ITEMS
3829     send get $1 from my sack
3830     pause 0.5
3831     if (("$1" = "backpack")||("$1" = "cauldron")) then
3832          {
3833               pause 0.5
3834               goto SACK
3835          }
3836     if ("$1" = ("obsidian")||("$1" = "toad")) then
3837          {
3838           send wear my $1
3839           send stow my $1
3840          }
3841     else
3842          {
3843           send stow my $1
3844           send wear my $1
3845          }
3846     pause 0.5
3847     goto SACK
3848NO_MORE_ITEMS:
3849     send drop sack
3850     pause
3851     echo
3852     echo **** Returning to what you were doing ****
3853     echo
3854     if ($standing = 0) then gosub stand
3855     if contains("$lefthand" "$righthand" , "%large.items") then gosub EMPTY.HANDS
3856CHECKLOC:
3857     if ($zoneid = 67) then goto SHARDJAIL
3858     if ($zoneid = 116) then goto HIBJAIL
3859     if ($zoneid = 61) then goto LETHJAIL
3860     if ($zoneid = 1) then goto CROSSJAIL
3861     if ($zoneid = 30) then goto HAVENJAIL
3862     if ($zoneid = 42) then goto THEREN.JAIL.LEAVE
3863     if ($zoneid = 90) then goto RATHAJAIL
3864     if ($zoneid = 99) then goto AESRYJAIL
3865RATHAJAIL:
3866     gosub AUTOMOVE 51
3867     put #script resume %MAIN_SCRIPT
3868     put #parse TAKING CARE OF BUSINESS
3869     pause 0.5
3870     goto END
3871AESRYJAIL:
3872     gosub AUTOMOVE 76
3873     put #script resume %MAIN_SCRIPT
3874     put #parse TAKING CARE OF BUSINESS
3875     pause 0.5
3876     goto END
3877CROSSJAIL:
3878     gosub AUTOMOVE 42
3879     put #script resume %MAIN_SCRIPT
3880     put #parse TAKING CARE OF BUSINESS
3881     pause 0.5
3882     goto END
3883LETHJAIL:
3884     gosub AUTOMOVE portal
3885     put #script resume %MAIN_SCRIPT
3886     pause 0.5
3887     put #parse TAKING CARE OF BUSINESS
3888     pause 0.5
3889     goto END
3890HAVENJAIL:
3891     gosub AUTOMOVE town
3892     put #script resume %MAIN_SCRIPT
3893     put #parse TAKING CARE OF BUSINESS
3894     pause 0.5
3895     goto END
3896SHARDJAIL:
3897     gosub AUTOMOVE 57
3898     put #script resume %MAIN_SCRIPT
3899     put #parse TAKING CARE OF BUSINESS
3900     pause 0.5
3901     goto END
3902HIBJAIL:
3903     gosub AUTOMOVE 75
3904     put #script resume %MAIN_SCRIPT
3905     put #parse TAKING CARE OF BUSINESS
3906     pause 0.5
3907     goto END
3908THEREN.JAIL.LEAVE:
3909     save THEREN.JAIL.END
3910     goto THEREN.KEEP.ESCAPE
3911THEREN.JAIL.GET.FINE:
3912     save TO.TELLER
3913     goto THEREN.KEEP.ESCAPE
3914THEREN.KEEP.ESCAPE:
3915     gosub AUTOMOVE 69
3916     send jump moat
3917     pause 12
3918THEREN.STUNNED.WAIT:
3919     pause 10
3920     if $stunned = 1 then goto THEREN.STUNNED.WAIT
3921     pause 0.5
3922     gosub STAND
3923     pause 0.5
3924     goto THEREN.MOAT.LEAVE
3925THEREN.MOAT.LEAVE:
3926     var location THEREN.MOAT.LEAVE
3927     gosub MOVE s
3928     pause 2
3929     goto %s
3930THEREN.KEEP.JAIL:
3931     var location THEREN.KEEP.JAIL
3932     gosub AUTOMOVE 103
3933     gosub AUTOMOVE moat
3934     gosub AUTOMOVE 146
3935     gosub AUTOMOVE dungeon
3936     gosub STAND
3937     goto CLAN_ITEM
3938THEREN.JAIL.END:
3939     gosub AUTOMOVE 1
3940     pause 2
3941END:
3942     put #script resume %MAIN_SCRIPT
3943     put #script abort jail
3944     put #parse FREE FROM JAIL
3945     put #echo >Log SkyBlue *** RECOVERED FROM JAIL VIA STEALING SCRIPT
3946     put #echo >Log SkyBlue *** CONTINUING SCRIPT FROM LAST CHECKPOINT..
3947     echo
3948     echo *** FREE FROM JAIL!
3949     pause 0.5
3950     pause
3951     goto %LAST
3952FREE.CROSSING:
3953     goto %LAST
3954FREE.LETH:
3955     goto GO.LETH.PAWN
3956FREE.HAVEN:
3957FREE.THEREN:
3958     goto %LAST
3959     goto GO.PAWN.STUFF.HAVEN
3960##########################################################################################################################################
3961##########################################################################################################################################
3962# LOCATION CHECKING LOGIC 
3963##########################################################################################################################################
3964##########################################################################################################################################
3965CITY.CHECK:
3966     if $zoneid = 42 then gosub AUTOMOVE quad
3967     #if $zoneid = 30 then gosub AUTOMOVE town
3968     if $zoneid = 7 then gosub AUTOMOVE arthe
3969     if $zoneid = 61 then gosub AUTOMOVE portal
3970     if $zoneid = 67 then gosub AUTOMOVE 1
3971     if $zoneid = 116 then gosub AUTOMOVE 75
3972     if $zoneid = 99 then var CITY AESRY
3973     if $zoneid = 90 then var CITY RATHA
3974     if $zoneid = 42 then var CITY THEREN
3975     if $zoneid = 30 then var CITY RIVERHAVEN
3976     if $zoneid = 7 then var CITY ARTHE
3977     if $zoneid = 1 then var CITY CROSSING
3978     if $zoneid = 61 then var CITY LETH
3979     if $zoneid = 67 then var CITY SHARD
3980     if $zoneid = 116 then var CITY HIB
3981     if !matchre("$zoneid","(1|7|42|30|61|67|90|99|116)") then goto ERROR.UNKNOWN
3982     echo
3983     echo *** STARTING CITY: %CITY
3984     echo
3985     pause 0.5
3986     RETURN
3987
3988ERROR.UNKNOWN:
3989     put #beep
3990     echo
3991     echo **** ERROR: UNKNOWN LOCATION!
3992     echo **** SCRIPT ONLY SUPPORTS THE FOLLOWING CITIES:
3993     echo **** THEREN / RIVERHAVEN
3994     echo **** CROSSINGS / ARTHE DALE
3995     echo **** LETH DERIEL / SHARD / HIBARNHVIDAR 
3996     echo **** RATHA / AESRY
3997     echo *** MOVE TO VALID CITY AND RESTART SCRIPT
3998     echo
3999     put #beep
4000     put #beep
4001     pause 3
4002     echo **** ERROR: UNKNOWN LOCATION!
4003     echo **** ABORTING SCRIPT
4004     put #beep
4005     put #beep
4006     put #beep
4007     put #parse DONE STEALING
4008     put #parse STEALING DONE
4009     exit
4010############################################################################################
4011##########################
4012# MOVEMENT ENGINE
4013##########################
4014##### AUTOMOVE SUBROUTINE #####
4015AUTOMOVE:
4016     pause 0.1
4017     pause 0.1
4018	pause 0.1
4019     var Destination $0
4020     if ("%guild" = "Necromancer") then gosub EOTB
4021     if !$standing then gosub STAND
4022     if $roomid = %Destination then RETURN
4023AUTOMOVE_GO:
4024     matchre AUTOMOVE_RETURN ^SHOP CLOSED\!|SHOP CLOSED
4025     matchre AUTOMOVE_FAILED ^AUTOMAPPER MOVEMENT FAILED|^MOVE FAILED
4026     matchre AUTOMOVE_RETURN ^YOU HAVE ARRIVED
4027     send #goto %Destination
4028     matchwait
4029AUTOMOVE_STAND:
4030     send STAND
4031     pause 0.5
4032     if $standing then RETURN
4033     goto AUTOMOVE_STAND
4034AUTOMOVE_FAILED:
4035     pause 0.5
4036     pause 0.5
4037     pause 0.5
4038     goto AUTOMOVE_GO
4039AUTOMOVE_RETURN:
4040     if matchre("%Destination", "teller|exchange|debt|PAWN") then if $invisible = 1 then gosub stopinvis
4041     pause 0.2
4042     pause 0.1
4043	pause 0.1
4044     RETURN
4045######################
4046# Random Movement Subroutine
4047######################
4048MOVE.RANDOM:
4049     random 1 8
4050     if %r = 1 and $north = 0 then goto MOVE.RANDOM
4051     if %r = 2 and $northeast = 0 then goto MOVE.RANDOM
4052     if %r = 3 and $east = 0 then goto MOVE.RANDOM
4053     if %r = 4 and $southeast = 0 then goto MOVE.RANDOM
4054     if %r = 5 and $south = 0 then goto MOVE.RANDOM
4055     if %r = 6 and $southwest = 0 then goto MOVE.RANDOM
4056     if %r = 7 and $west = 0 then goto MOVE.RANDOM
4057     if %r = 8 and $northwest = 0 then goto MOVE.RANDOM
4058     #
4059     if %r = 1 then var Direction NORTH
4060     if %r = 2 then var Direction NORTHEAST
4061     if %r = 3 then var Direction EAST
4062     if %r = 4 then var Direction SOUTHEAST
4063     if %r = 5 then var Direction SOUTH
4064     if %r = 6 then var Direction SOUTHWEST
4065     if %r = 7 then var Direction WEST
4066     if %r = 8 then var Direction NORTHWEST
4067     #
4068     if %r = 1 then var Reverse.Direction SOUTH
4069     if %r = 2 then var Reverse.Direction SOUTHWEST
4070     if %r = 3 then var Reverse.Direction WEST
4071     if %r = 4 then var Reverse.Direction NORTHWEST
4072     if %r = 5 then var Reverse.Direction NORTH
4073     if %r = 6 then var Reverse.Direction NORTHEAST
4074     if %r = 7 then var Reverse.Direction EAST
4075     if %r = 8 then var Reverse.Direction SOUTHEAST
4076     #
4077     var Exits 0
4078     if $north = 1 then math Exits add 1
4079     if $northeast = 1 then math Exits add 1
4080     if $east = 1 then math Exits add 1
4081     if $southeast = 1 then math Exits add 1
4082     if $south = 1 then math Exits add 1
4083     if $southwest = 1 then math Exits add 1
4084     if $west = 1 then math Exits add 1
4085     if $northwest = 1 then math Exits add 1
4086     #
4087     # don't move "back" on a path unless we hit a dead end
4088     if %Exits > 1 and "%Last.Direction" = "%Reverse.Direction" then goto MOVE.RANDOM
4089     #
4090     var Last.Direction %Direction
4091     gosub MOVE.RESUME
4092     RETURN
4093MOVE:
4094    var Direction $0
4095    pause 0.1
4096    pause 0.1
4097MOVE.RESUME:
4098     matchre MOVE.RESUME ^\.\.\.wait|^Sorry\,
4099     matchre MOVE.RETREAT ^You are engaged to .*\!
4100     matchre MOVE.STAND ^You can't do that while lying down\.
4101     matchre MOVE.STAND ^You must be standing to do that\.
4102     matchre MOVE.STAND ^You must stand first\.
4103     matchre MOVE.STAND ^Stand up first\.
4104     matchre MOVE.FAILED ^You can't go there\.
4105     matchre MOVE.FAILED ^I could not find what you were referring to\.
4106     matchre MOVE.FAILED ^What were you referring to\?
4107     matchre MOVE.RETURN ^It's pitch dark|^Obvious
4108     send %Direction
4109     matchwait
4110MOVE.RETREAT:
4111     matchre MOVE.RETREAT ^\.\.\.wait|^Sorry\,
4112     matchre MOVE.RETREAT ^You retreat back to pole range.
4113     matchre MOVE.RETREAT ^You try to back away
4114     matchre MOVE.STAND ^You must stand first\.
4115     matchre MOVE.RESUME ^You retreat from combat\.
4116     matchre MOVE.RESUME ^You are already as far away as you can get\!
4117     send RETREAT
4118     matchwait
4119MOVE.STAND:
4120     matchre MOVE.STAND ^\.\.\.wait|^Sorry\,
4121     matchre MOVE.STAND ^You are overburdened and cannot manage to stand\.
4122     matchre MOVE.STAND ^The weight
4123     matchre MOVE.STAND ^You try
4124     matchre MOVE.RESUME ^You are already standing\.
4125     matchre MOVE.RESUME ^You stand back up\.
4126     matchre MOVE.RESUME ^You stand up\.
4127     send STAND
4128     matchwait
4129MOVE.FAILED:
4130     gosub clear
4131     goto MOVE.RANDOM
4132MOVE.RETURN:
4133     RETURN
4134
4135##########################################
4136#  UTILITY GOSUBS                                        #
4137##########################################
4138############################################################################################
4139SKILLCHECK:
4140     send skill thievery
4141     echo
4142     echo **** Checking Your Skills.............
4143     echo
4144     pause 0.5
4145     if $Thievery.Ranks < 20 then goto NOOB
4146     if $Thievery.Ranks >= 20 && $Thievery.Ranks < 40 then goto CLASS1
4147     if $Thievery.Ranks >= 40 && $Thievery.Ranks < 60 then goto CLASS2
4148     if $Thievery.Ranks >= 60 && $Thievery.Ranks < 100 then goto CLASS3
4149     if $Thievery.Ranks >= 100 && $Thievery.Ranks < 150 then goto CLASS4
4150     if $Thievery.Ranks >= 150 && $Thievery.Ranks < 200 then goto CLASS5
4151     if $Thievery.Ranks >= 200 && $Thievery.Ranks < 250 then goto CLASS6
4152     if $Thievery.Ranks >= 250 && $Thievery.Ranks < 300 then goto CLASS7
4153     if $Thievery.Ranks >= 300 && $Thievery.Ranks < 400 then goto CLASS8
4154     if $Thievery.Ranks >= 400 && $Thievery.Ranks < 500 then goto CLASS9
4155     if $Thievery.Ranks >= 500 && $Thievery.Ranks < 600 then goto CLASS10
4156     if $Thievery.Ranks >= 600 && $Thievery.Ranks < 700 then goto CLASS11
4157     if $Thievery.Ranks >= 700 && $Thievery.Ranks < 800 then goto CLASS12
4158     if $Thievery.Ranks >= 800 && $Thievery.Ranks < 900 then goto CLASS13
4159     if $Thievery.Ranks >= 900 && $Thievery.Ranks < 1000 then goto CLASS14
4160     if $Thievery.Ranks >= 1000 && $Thievery.Ranks < 1200 then goto CLASS15
4161     if $Thievery.Ranks >= 1200 then goto CLASS16
4162     pause 0.1
4163     goto SKILLCHECK
4164############################################################################################
4165EMPTY.HANDS:
4166     delay 0.0001
4167     if ("$lefthand" != "Empty") then gosub empty left
4168     if ("$righthand" != "Empty") then gosub empty right
4169     pause 0.1
4170     RETURN
4171EMPTY:
4172var hand $0
4173EMPTY.IT:
4174     pause 0.1
4175     pause 0.1
4176          matchre EMPTY.IT ^\.\.\.wait|^Sorry\,
4177          matchre LOWER.HAND Whoah\!
4178          matchre LOWER.HAND If you still wish to drop it
4179          matchre WEBBED ^You can't do that while entangled in a web
4180          matchre IMMOBILE ^You don't seem to be able to move to do that
4181          matchre RETURN ^You drop
4182          matchre RETURN already empty
4183          matchre RETURN ^What were you referring to\?
4184          matchre RETURN ^Please rephrase that command\.
4185          matchre RETURN ^What were you referring to\?
4186          matchre RETURN ^But you aren't holding that\.
4187          matchre RETURN ^Roundtime
4188          matchre RETURN ^Having no further use for .*\, you discard it\.
4189          matchre RETURN ^I could not find what you were referring to\.
4190          matchre RETURN shatters
4191     send empty %hand
4192     matchwait
4193LOWER.HAND:
4194     pause 0.1
4195     pause 0.1
4196     if "$righthand" != "Empty" then send lower $righthandnoun
4197     if "$lefthand" != "Empty" then send lower $lefthandnoun
4198     pause 0.1
4199     pause 0.1
4200     pause 0.1
4201     RETURN
4202#CIRCLE
4203CIRCLE.CHECK:
4204     if $zoneid = 1 then var GL kalag
4205     if $zoneid = 30 then var GL crow
4206     if $zoneid = 67 then var GL saishla
4207     if $zoneid = 90 then var GL dwillig
4208     pause 0.5
4209     matchre CIRCLE.UP Excellent work, $charactername|Congrats, $charactername|$charactername, you made it to the next rank|I'll let it be known you've moved up in the underworld|You're ready to train for your next rank|You are ready to train for your next level
4210     matchre CIRCLE.RETURN You have some work to do|you should work on
4211     put ask %GL about exp
4212	put ask %GL about exp
4213     matchwait 9
4214     RETURN
4215CIRCLE.UP:
4216     pause 0.1
4217     pause 0.1
4218     action var circle $1;put #var circle $1 when Circle: (\d+)
4219     send info;encum
4220     waitforre ^\s*Encumbrance\s*\:
4221     action remove Circle: (\d+)
4222     pause 0.1
4223     pause 0.1
4224     put #echo >Log Chartreuse *** DING!!! CIRCLE $circle ! **** 
4225     goto CIRCLE.CHECK
4226CIRCLE.RETURN:
4227	pause 0.1
4228	pause 0.1
4229     RETURN
4230############################################################################################
4231GUILD.CHECK:
4232     echo
4233     echo **** CHECKING GUILD...................
4234     echo
4235	pause 0.1
4236     pause 0.1
4237     pause 0.1
4238	action var guild $1;put #var guild $1 when Guild: (\S+)
4239     action var circle $1;put #var circle $1 when Circle: (\d+)
4240     send info;encum
4241     waitforre ^\s*Encumbrance\s*\:
4242     action remove Guild: (\S+)
4243     action remove Circle: (\d+)
4244     pause 0.1
4245     echo **** Guild: %guild  ****
4246     echo **** Circle: %circle ****
4247     if ("%guild" = "Thief") then
4248        {
4249            var marking ON
4250            if ("%HAVEN_PW" = "null") || ("%SHARD_PW" = "null") then goto NO.PASSWORD
4251            if ("%BIN" = "ON") && ("%PAWN" = "ON") && ("%BIN_CONTAINER" = "%PAWN_CONTAINER") then goto BAG.ALERT
4252            #if (%STEALCOUNT = 5) && ($Thievery.Ranks < 120) then var STEALCOUNT 4
4253        }
4254     if ("%guild" != "Thief") then
4255        {
4256            var BIN OFF
4257            var marking OFF
4258        }
4259     if $gamename != DRF then var ClanItem NO
4260     put #var save
4261     RETURN
4262############################################################################################
4263TIME.CALC:
4264     evalmath runTime (%t / 60)
4265     evalmath runTime round(%runTime,2)
4266     RETURN
4267TIME.CHECK:
4268     echo **** CHECKING TIME....
4269     matchre NIGHT.TIME early evening|mid-evening|late evening|evening|midnight|night|dawn|sunset|approaching sunrise|sunrise|you can't tell
4270     matchre DAY.TIME early morning|mid-morning|midday|late morning|noon|early afternoon|mid-afternoon|late afternoon|dusk
4271     send time
4272     matchwait 5
4273     goto NIGHT.TIME
4274DAY.TIME:
4275     put #var TIME DAY
4276     var TIME DAY
4277     send observe weather
4278     pause 0.5
4279     RETURN
4280NO.TIME:
4281NIGHT.TIME:
4282     put #var TIME NIGHT
4283     var TIME NIGHT
4284     send observe weather
4285     pause 0.5
4286     RETURN
4287##############################################################################################
4288PREMIUM.CHECK:
4289     matchre PREMIUM.NO ^You are not currently a Premium
4290     matchre PREMIUM.YES ^Your premium service has been continuous
4291     put ltb info
4292     matchwait 5
4293     goto PREMIUM.NO
4294PREMIUM.NO:
4295     var PREMIUM OFF
4296     echo *** PREMIUM ACCOUNT NOT ACTIVE
4297     echo *** USING REGULAR BANK TO EXCHANGE COINS
4298     pause
4299     RETURN
4300PREMIUM.YES:
4301     var PREMIUM ON
4302     echo *** PREMIUM ACCOUNT ENABLED
4303     echo *** USING PREMIUM BANK TO EXCHANGE COINS
4304     pause
4305     RETURN
4306##############################################################################################
4307PAUSE:
4308     if ($roundtime > 0) then pause $roundtime
4309     pause 0.5
4310     pause 0.1
4311     RETURN
4312STAND:
4313     pause 0.2
4314     matchre STAND ^Roundtime\:?|^\[Roundtime\:?|^\(Roundtime\:?
4315     matchre STAND ^\.\.\.wait|^Sorry\,
4316     matchre STAND ^You are so unbalanced you cannot manage to stand\.
4317     matchre STAND ^The weight of all your possessions prevents you from standing\.
4318     matchre STAND ^You are overburdened and cannot manage to stand\.
4319     matchre STAND ^You are still stunned
4320     matchre STAND ^You try
4321     matchre STUNNED ^You are still stunned
4322     matchre WEBBED ^You can't do that while entangled in a web
4323     matchre IMMOBILE ^You don't seem to be able to move to do that
4324     matchre RETURN ^You are already standing\.
4325     matchre RETURN ^You stand back up\.
4326     matchre RETURN ^You stand up\.
4327     matchre RETURN ^There doesn't seem to be anything to stand on here
4328     matchre RETURN ^You swim back up
4329     matchre RETURN ^You are already standing\.
4330     matchre RETURN ^You're unconscious
4331     send STAND
4332     matchwait
4333RET.HIDE:
4334     put stop hum
4335     wait
4336     pause 0.1
4337     pause 0.1
4338     put ret
4339     put ret
4340     pause 0.5
4341     pause 0.2
4342HIDE:
4343     pause 0.1
4344     matchre HIDE ^\.\.\.wait|^Sorry\,
4345     matchre RET.HIDE You are too close|^You are a bit|^You are too busy
4346     matchre STUNNED ^You are still stunned
4347     matchre WEBBED ^You can't do that while entangled in a web
4348     matchre IMMOBILE ^You don't seem to be able to move to do that
4349     matchre RETURN ^.* notices your attempt to hide\!
4350     matchre RETURN ^.* reveals you, ruining your hiding attempt\!|
4351     matchre RETURN ^.* discovers you, ruining your hiding place\!
4352     matchre RETURN ^You melt|^You blend|^Eh\?|^You slip|^Roundtime|You look around
4353     send hide
4354     matchwait 5
4355     RETURN
4356SNEAK:
4357     var direction $0
4358     if (("%guild" = "Thief") && (%circle < 50)) then goto SNEAK.HIDE
4359SNEAKING:
4360     pause 0.1
4361     matchre SNEAK.PAUSE ^\.\.\.wait|^Sorry\,
4362     matchre RETURN Roundtime|You sneak|You duck|You quickly slip
4363     send sneak %direction
4364     matchwait 5
4365SNEAK.PAUSE:
4366     pause
4367     goto SNEAKING
4368SNEAK.HIDE:
4369     pause 0.2
4370     matchre STUNNED ^You are still stunned
4371     matchre WEBBED ^You can't do that while entangled in a web
4372     matchre IMMOBILE ^You don't seem to be able to move to do that
4373     matchre SNEAK.HIDE notices your attempt|reveals you|ruining your hiding place|discovers you
4374     matchre SNEAKING ^You melt|^You blend|^Eh\?|^You slip|^Roundtime|You look around
4375     send hide
4376     matchwait
4377UNHIDE:
4378     pause 0.1
4379     matchre UNHIDE ^\.\.\.wait|^Sorry\,
4380     matchre STUNNED ^You are still stunned
4381     matchre WEBBED ^You can't do that while entangled in a web
4382     matchre IMMOBILE ^You don't seem to be able to move to do that
4383     matchre RETURN ^But you are not hidden\!
4384     matchre RETURN ^You come out of hiding\.
4385     send UNHIDE
4386     matchwait 5
4387     RETURN
4388STOWING:
4389     var location STOWING
4390     pause 0.1
4391     if "$righthandnoun" = "rope" then put coil my rope
4392     if "$righthand" = "bundle" || "$lefthand" = "bundle" then put wear bund;drop bun
4393     if matchre("$righthandnoun","(crossbow|bow|short bow)") then gosub unload
4394     if matchre("$righthand","(partisan|shield|buckler|crossbow|lumpy bundle|halberd|staff|longbow|khuj)") then gosub wear my $1
4395     if matchre("$lefthand","(partisan|shield|buckler|crossbow|lumpy bundle|halberd|staff|longbow|khuj)") then gosub wear my $1
4396     if matchre("$lefthand","(longbow|khuj)") then gosub stow my $1 in my %SHEATH
4397     if "$righthand" != "Empty" then GOSUB STOW right
4398     if "$lefthand" != "Empty" then GOSUB STOW left
4399     RETURN
4400STOWIT:
4401     var location stow1
4402     var todo $0
4403stow1:
4404     pause 0.1
4405     pause 0.1
4406     if matchre("$righthand","longbow") then goto stow4
4407     matchre stow2 any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide|not designed to carry
4408     matchre RETURN ^Wear what\?|^Stow what\?
4409     matchre RETURN ^You put your|^You easily|^You strap
4410     matchre RETURN ^You stop as you realize
4411     matchre RETURN ^But that is already in your inventory\.
4412     matchre RETURN ^That can't be picked up
4413     matchre location.unload ^You should unload the
4414     matchre location.unload ^You need to unload the
4415     send stow %todo
4416     send stow %todo
4417     goto retry
4418stow2:
4419     pause 0.3
4420     pause 0.1
4421     var location stow2
4422     matchre RETURN ^Wear what\?|^Stow what\?
4423     matchre RETURN ^You put your|^You easily|^You strap
4424     matchre RETURN ^But that is already in your inventory\.
4425     matchre stow3 any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide|not designed to carry
4426     matchre location.unload ^You should unload the
4427     matchre location.unload ^You need to unload the
4428     send stow %todo in my %PAWN_CONTAINER
4429     goto retry
4430stow3:
4431     pause 0.3
4432     pause 0.1
4433     var location stow3
4434     if "$lefthandnoun" = "bundle" then send drop bun
4435     if "$righthandnoun" = "bundle" then send drop bun
4436     matchre RETURN ^Wear what\?|^Stow what\?
4437     matchre RETURN ^You put your|^You easily|^You strap
4438     matchre RETURN ^But that is already in your inventory\.
4439     matchre stow4 any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide|not designed to carry
4440     matchre location.unload ^You should unload the
4441     matchre location.unload ^You need to unload the
4442     send stow %todo in my %BIN_CONTAINER
4443     send stow %todo in my %BIN_CONTAINER
4444     goto retry
4445stow4:
4446     pause 0.5
4447     pause 0.1
4448     var location stow4
4449     if "$lefthandnoun" = "bundle" then send drop bun
4450     if "$righthandnoun" = "bundle" then send drop bun
4451     matchre RETURN ^Wear what\?|^Stow what\?
4452     matchre RETURN ^You put your|^You easily|^You strap
4453     matchre RETURN ^But that is already in your inventory\.
4454     matchre STOW.DROP any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide
4455     matchre location.unload ^You should unload the
4456     matchre location.unload ^You need to unload the
4457     send stow %todo in my %PAWN_CONTAINER
4458     send stow %todo in my %SAFE_CONTAINER
4459     goto retry
4460
4461REM.WEAR:
4462     put rem bund
4463     put drop bund
4464     wait
4465     pause 0.5
4466     goto wear1
4467#### WEAR SUB
4468WEAR:
4469     delay 0.0001
4470     var stow $0
4471     var LOCATION WEAR_1
4472     WEAR_1:
4473     matchre WAIT ^\.\.\.wait|^Sorry\,
4474     matchre IMMOBILE ^You don't seem to be able to move to do that
4475     matchre WEBBED ^You can't do that while entangled in a web
4476     matchre STUNNED ^You are still stunned
4477     matchre STOW_1 ^You can't wear that\!
4478     matchre STOW_1 ^You can't wear any more items like that\.
4479     matchre STOW_1 ^You need at least one free hand for that\.
4480     matchre STOW_1 ^This .* can't fit over the .* you are already wearing which also covers and protects your .*\.
4481     matchre RETURN ^You (?:sling|put|slide|slip|attach|work|strap) .*\.
4482     matchre RETURN ^You are already wearing that\.
4483     matchre RETURN ^What were you referring to\?
4484     matchre RETURN ^Wear what\?
4485     send wear %stow
4486     matchwait 15
4487     put #echo >$Log Crimson $datetime *** MISSING MATCH IN WEAR! (utility.inc) ***
4488     put #echo >$Log Crimson $datetime Stow = %stow
4489     put #log $datetime MISSING MATCH IN WEAR (utility.inc)
4490     return
4491search:
4492     var todo $0
4493     var location search
4494     matchre RETURN ^Success\!
4495     matchre RETURN ^Roundtime
4496     matchre RETURN ^You search around for a moment
4497     put search %todo
4498	matchwait 5
4499     goto retry
4500retry:
4501     matchre location ^\.\.\.wait
4502     matchre location ^Sorry, you may
4503     matchre location ^Sorry, system is slow
4504     matchre location ^You don't seem to be able to move to do that
4505     matchre location.p ^It's all a blur
4506     matchre location.p ^You're unconscious\!
4507     matchre location.p ^You are still stunned
4508     matchre location.p There is no need for violence here\.
4509     matchre location.p ^You can't do that while entangled in a web
4510     matchre location.p ^You struggle against the shadowy webs to no avail\.
4511     matchre location.p ^You attempt that, but end up getting caught in an invisible box\.
4512     matchre location1 ^You should stop playing before you do that\.
4513     matchre location1 ^You are a bit too busy performing to do that\.
4514     matchre location1 ^You are concentrating too much upon your performance to do that\.
4515     matchwait
4516location.unload:
4517     gosub unload
4518     var location stow1
4519     gosub stow1
4520     goto %location
4521location.unload1:
4522     gosub unload
4523     var location wear1
4524     gosub wear1
4525     goto %location
4526location1:
4527     gosub stop.humming1
4528     goto %location
4529location.p:
4530     pause
4531location:
4532     pause 0.3
4533     goto %location
4534RETURN.p:
4535     pause 0.1
4536unload:
4537     var location unload
4538     matchre RETURN ^You unload the
4539     matchre RETURN ^You remain concealed by your surroundings, convinced that your unloading
4540     matchre RETURN ^Roundtime:
4541     matchre RETURN ^But your
4542     matchre RETURN ^You don't have a
4543     matchre RETURN ^You can't unload such a weapon\.
4544     matchre RETURN ^Your
4545     send unload
4546     goto retry
4547     
4548#### PUT SUB
4549PUT:
4550     delay 0.0001
4551     var command $0
4552     var LOCATION PUT_1
4553     PUT_1:
4554     matchre WAIT ^\.\.\.wait|^Sorry\,
4555     matchre IMMOBILE ^You don't seem to be able to move to do that
4556     matchre WEBBED ^You can't do that while entangled in a web
4557     matchre STUNNED ^You are still stunned
4558     matchre PUT_STOW ^You need a free hand
4559     matchre WAIT ^\[Enter your command again if you want to\.\]
4560     matchre RETURN_CLEAR ^Roundtime\:?|^\[Roundtime\:?|^\(Roundtime\:?
4561     matchre RETURN_CLEAR ^I could not find what you were referring to\.
4562     matchre RETURN_CLEAR ^Please rephrase that command\.
4563     matchre RETURN_CLEAR ^What were you referring to\?
4564     matchre RETURN_CLEAR ^.* what\?
4565     matchre RETURN_CLEAR ^You (?:hand|push|move|put|whisper|lean|tap|stop|drop|place|knock|fade|toss|set|add|offer|search|circle|fake|slip|weave|shove|try|must|wave|sit|fail|turn|are already|can't|glance|bend|kneel|carefully|quietly|sense|begin|rub|sprinkle) .*(?:\.|\!|\?)
4566     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\.
4567     matchre RETURN_CLEAR ^USAGE\:
4568     matchre RETURN_CLEAR ^Your (?:actions|dance).*\.
4569     matchre RETURN_CLEAR ^You.*analyze
4570     matchre RETURN_CLEAR ^Having no further use for .*\, you discard it\.
4571     matchre RETURN_CLEAR ^You don't have a .* coin on you\!\s*The .* spider looks at you in forlorn disappointment\.
4572     matchre RETURN_CLEAR ^The .* spider turns away\, looking like it's not hungry for what you're offering\.
4573     matchre RETURN_CLEAR ^Brother Durantine nods slowly\.
4574     matchre RETURN_CLEAR ^Durantine waves a small censer over a neatly-wrapped package and intones a short prayer before he hands it to you\.
4575     matchre RETURN_CLEAR ^After a moment\, .*\.
4576     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\.
4577     matchre RETURN_CLEAR ^Maybe you should stand up\.
4578     matchre RETURN_CLEAR ^The clerk counts out .*\.
4579     matchre RETURN_CLEAR ^The .* is not damaged enough to warrant repair\.
4580     matchre RETURN_CLEAR ^There is no more room in .*\.
4581     matchre RETURN_CLEAR ^There is nothing in there\.
4582     matchre RETURN_CLEAR ^In the .* you see .*\.
4583     matchre RETURN_CLEAR ^This spell cannot be targeted\.
4584     matchre RETURN_CLEAR ^You cannot figure out how to do that\.
4585     matchre RETURN_CLEAR ^You will now store .* in your .*\.
4586     matchre RETURN_CLEAR ^That tool does not seem suitable for that task\.
4587     matchre RETURN_CLEAR ^There isn't any more room in .* for that\.
4588     matchre RETURN_CLEAR ^\[Ingredients can be added by using ASSEMBLE Ingredient1 WITH Ingredient2\]
4589     matchre RETURN_CLEAR ^\s*LINK ALL CANCEL\s*\- Breaks all links
4590     matchre RETURN_CLEAR ^This ritual may only be performed on a corpse\.
4591     matchre RETURN_CLEAR ^There is nothing else to face\!
4592     matchre RETURN_CLEAR ^You're already stalking
4593	matchre RETURN_CLEAR ^An offer
4594	matchre RETURN_CLEAR ^Malik nods
4595	matchre RETURN_CLEAR ^Obvious exits
4596	matchre RETURN_CLEAR ^Obvious paths
4597     matchre RETURN_CLEAR ^But the merchant can't see you|are invisible
4598     matchre STAND ^You should stand up first\.
4599     # matchre RETURN_CLEAR ^
4600     matchre RETURN ^\s*Encumbrance\s*\:
4601     send %command
4602     matchwait 15
4603     put #echo >$Log Crimson $datetime *** MISSING MATCH IN PUT! ***
4604     put #echo >$Log Crimson $datetime Command = %command
4605     put #log $datetime MISSING MATCH IN PUT 
4606     RETURN
4607    
4608PUT_STOW:
4609     gosub stow
4610     goto PUT_1
4611
4612#### GET SUB
4613GET:
4614     delay 0.0001
4615     var get $0
4616     var LOCATION GET_1
4617     GET_1:
4618     matchre WAIT ^\.\.\.wait|^Sorry\,
4619     matchre WAIT ^You struggle with .* great weight but can't quite lift it\!
4620     matchre IMMOBILE ^You don't seem to be able to move to do that
4621     matchre WEBBED ^You can't do that while entangled in a web
4622     matchre STUNNED ^You are still stunned
4623     matchre HOLD_1 ^But that is already in your inventory\.
4624     # matchre RETURN ^\s*You get .*\.
4625     matchre RETURN ^You pick up .*\.
4626     matchre RETURN ^You carefully remove .* from the bundle\.
4627     matchre RETURN ^You are already holding that\.
4628     matchre RETURN ^Get what\?
4629     matchre RETURN ^I could not find what you were referring to\.
4630     matchre RETURN ^What were you referring to\?
4631     matchre RETURN ^You (?:get|grab) .*(?:\.|\!|\?)
4632     matchre RETURN ^As best it can\, .* moves in your direction\.
4633     send get %get
4634     matchwait 15
4635     put #echo >$Log Crimson $datetime *** MISSING MATCH IN GET! ***
4636     put #echo >$Log Crimson $datetime Get = %get
4637     put #log $datetime MISSING MATCH IN GET
4638     RETURN
4639
4640#### DOUBLE PUT SUB
4641PUT_IT:
4642     delay 0.0001
4643     var putit $0
4644     var LOCATION PUT_IT_1
4645     PUT_IT_1:
4646     matchre WAIT ^\.\.\.wait|^Sorry\,
4647     matchre IMMOBILE ^You don't seem to be able to move to do that
4648     matchre WEBBED ^You can't do that while entangled in a web
4649     matchre STUNNED ^You are still stunned
4650     matchre RETURN ^You (?:hand|push|move|put|tap|drop|place|knock|toss|set|add|search|circle|fake|slip|weave|shove|try|must|wave|sit|fail|turn|are already|can't|glance|bend|kneel|carefully|quietly|sense|begin|rub|sprinkle) .*(?:\.|\!|\?)
4651     matchre RETURN ^Please rephrase that command\.
4652     matchre RETURN ^.* what\?
4653     matchre RETURN ^I could not find what you were referring to\.
4654     matchre RETURN ^What were you referring to\?
4655     send put %putit
4656     matchwait 15
4657     put #echo >$Log Crimson $datetime *** MISSING MATCH IN PUT_IT!  ***
4658     put #echo >$Log Crimson $datetime PutIt = %putit
4659     put #log $datetime MISSING MATCH IN PUT_IT 
4660     RETURN
4661
4662#### SPELL CASTING
4663PREPARE:
4664     delay 0.0001
4665     var prepare $0
4666     var LOCATION PREPARE_1
4667     PREPARE_1:
4668     matchre WAIT ^\.\.\.wait|^Sorry\,
4669     matchre STUNNED ^You are still stunned
4670     matchre WEBBED ^You can't do that while entangled in a web
4671     matchre IMMOBILE ^You don't seem to be able to move to do that
4672     matchre SPELL_CAST_RETURN ^You are already preparing the .* spell\!
4673     matchre SPELL_CAST_RETURN ^You begin chanting .* to invoke the .* spell\.
4674     matchre SPELL_CAST_RETURN ^You mutter .* to yourself while preparing the .* spell\.
4675     matchre SPELL_CAST_RETURN ^With .* movements you prepare your body for the .* spell\.
4676     matchre SPELL_CAST_RETURN ^You raise your .* skyward\, chanting the .* of the .* spell\.
4677     matchre SPELL_CAST_RETURN ^You trace .* sigil in the air\, shaping the pattern of the .* spell\.
4678     matchre SPELL_CAST_RETURN ^You rock back and forth\, humming tunelessly as you invoke the .* spell\.
4679     matchre SPELL_CAST_RETURN ^The wailing of lost souls accompanies your preparations of the .* spell\.
4680     matchre SPELL_CAST_RETURN ^Your eyes darken to black as a starless night as you prepare the .* spell\.
4681     matchre SPELL_CAST_RETURN ^You close your eyes and breathe deeply, gathering energy for the .* spell\.
4682     matchre SPELL_CAST_RETURN ^Your eyes darken to black as a starless night as you prepare the .* spell\.
4683     matchre SPELL_CAST_RETURN ^The wailing of lost souls accompanies your preparations of the .* spell\.
4684     matchre SPELL_CAST_RETURN ^A soft breeze surrounds your body as you confidently prepare the .* spell\.
4685     matchre SPELL_CAST_RETURN ^Tiny tendrils of lightning jolt between your hands as you prepare the .* spell\.
4686     matchre SPELL_CAST_RETURN ^Heatless orange flames blaze between your fingertips as you prepare the .* spell\.
4687     matchre SPELL_CAST_RETURN ^Entering a trance-like state\, your hands begin to tremble as you prepare the .* spell\.
4688     matchre SPELL_CAST_RETURN ^You adeptly sing the incantations for the .* spell\, setting the words to a favorite tune\.
4689     matchre SPELL_CAST_RETURN ^You bring your hand slowly to your forehead as you begin chanting the words of the .* spell\.
4690     matchre SPELL_CAST_RETURN ^Icy blue frost crackles up your arms with the ferocity of a blizzard as you begin to prepare the .* spell\!
4691     matchre SPELL_CAST_RETURN ^You have to strain to harness the energy for this spell, and you aren't sure you can get enough to cast it\.
4692     matchre SPELL_CAST_RETURN ^You giggle to yourself as you move through the syncopated gestures that accompany the preparations of the .* spell\.
4693     matchre SPELL_CAST_RETURN ^Darkly gleaming motes of sanguine light swirl briefly about your fingertips as you gesture while uttering the .* spell\.
4694     matchre SPELL_CAST_RETURN ^As you begin to solemnly intone the .* spell a blue glow swirls about forming a nimbus that surrounds your entire being\.
4695     matchre SPELL_CAST_RETURN ^Your skin briefly withers and tightens\, becoming gaunt as the energies of the .* spell begin to build up through your body\.
4696     matchre SPELL_CAST_RETURN ^You trace an intricate rune in the air with your finger\, illusory lines lingering several seconds as you prepare the .* spell\.
4697     matchre SPELL_CAST_RETURN ^You begin reciting a solemn incantation\, causing familiar patterns of geometric shapes to circle your hand as the .* spell forms\.
4698     matchre SPELL_CAST_RETURN ^You take up a handful of dirt in your palm to prepare the .* spell\.  As you whisper arcane words\, you gently blow the dust away and watch as it becomes swirling motes of glittering light that veil your hands in a pale aura\.
4699     matchre SPELL_CAST_RETURN ^You recall the exact details of the .* symbiosis\, preparing to integrate it with the next spell you cast\.
4700     matchre SPELL_CAST_RETURN ^But you've already prepared the .* symbiosis\!
4701     matchre SPELL_CAST_DONE ^What do you want to prepare\?
4702     matchre SPELL_CAST_DONE ^That is not a spell you can cast\.
4703     matchre SPELL_CAST_DONE ^You wouldn't have the first clue how to do that\.
4704     matchre SPELL_CAST_DONE ^You stop\, convinced that there's no way to control that much mana\.
4705     matchre SPELL_CAST_FAIL ^You have to strain to harness the energy for this spell, and you aren't sure you can get enough to cast it\.
4706     matchre SPELL_CAST_FAIL ^You feel intense strain as you try to manipulate the mana streams to form this pattern\, and you are not certain that you will have enough mental stamina to complete it\.
4707     send prepare %prepare
4708     matchwait 15
4709     put #echo >$Log Crimson $datetime *** MISSING MATCH IN PREPARE! (utility.inc) ***
4710     put #echo >$Log Crimson $datetime Prepare = %prepare
4711     put #log $datetime MISSING MATCH IN PREPARE! (utility.inc)
4712     goto SPELL_CAST_RETURN
4713SPELL_WAIT:
4714     delay 0.0001
4715     if ("$preparedspell" = "None") then return
4716     matchre SPELL_CAST ^You feel fully prepared to cast your spell\.
4717     matchre SPELL_CAST_FAIL ^Your concentration slips for a moment\, and your spell is lost\.
4718     matchwait
4719SPELL_CAST:
4720     delay 0.0001
4721     var LOCATION SPELL_CAST_1
4722     if ((!("$roomplayers" = "")) && (matchre("$preparedspell", "(Rite of Contrition|Eyes of the Blind)")) then gosub MOVE.RANDOM
4723     SPELL_CAST_1:
4724     matchre WAIT ^\.\.\.wait|^Sorry\,
4725     matchre STUNNED ^You are still stunned
4726     matchre WEBBED ^You can't do that while entangled in a web
4727     matchre IMMOBILE ^You don't seem to be able to move to do that
4728     matchre SPELL_CAST_DONE ^Roundtime\:?|^\[Roundtime\:?|^\(Roundtime\:?
4729     matchre SPELL_CAST_DONE ^You wave your hand\.
4730     matchre SPELL_CAST_DONE ^You gesture\.
4731     matchre SPELL_CAST_DONE ^Focus the power of justice on whom\?
4732     matchre SPELL_CAST_DONE ^A brilliant silver glow surrounds .* for a few moments\, then fades\, leaving it somehow changed\.
4733     matchre SPELL_CAST_FAIL ^You don't have a spell prepared\!
4734     matchre SPELL_CAST_FAIL ^Your concentration slips for a moment\, and your spell is lost\.
4735     put -cast;-2 gesture
4736     matchwait
4737SPELL_WAIT_TARGET:
4738     delay 0.0001
4739     if ("$preparedspell" = "None") then return
4740     matchre RETURN ^You feel fully prepared to cast your spell\.
4741     matchre RETURN ^Your concentration slips for a moment\, and your spell is lost\.
4742     matchre RETURN ^Your target pattern dissipates because the creature is dead\, but the main spell remains intact
4743     matchwait
4744SPELL_CAST_TARGET:
4745     delay 0.0001
4746     if ("$preparedspell" = "None") then return
4747     var target $0
4748     var LOCATION SPELL_CAST_TARGET_1
4749     SPELL_CAST_TARGET_1:
4750     matchre WAIT ^\.\.\.wait|^Sorry\,
4751     matchre STUNNED ^You are still stunned
4752     matchre WEBBED ^You can't do that while entangled in a web
4753     matchre IMMOBILE ^You don't seem to be able to move to do that
4754     matchre SPELL_CAST_DONE ^Roundtime\:?|^\[Roundtime\:?|^\(Roundtime\:?
4755     matchre SPELL_CAST_DONE ^You gesture\.
4756     matchre SPELL_CAST_DONE ^Focus the power of justice on whom\?
4757     matchre SPELL_CAST_DONE ^A brilliant silver glow surrounds .* for a few moments\, then fades\, leaving it somehow changed\.
4758     matchre SPELL_CAST_FAIL ^You don't have a spell prepared\!
4759     matchre SPELL_CAST_FAIL ^Your concentration slips for a moment\, and your spell is lost\.
4760     put -cast %target;-2 gesture
4761     matchwait
4762SPELL_CAST_DONE:
4763     delay 0.0001
4764     put #queue clear
4765     return
4766SPELL_CAST_FAIL:
4767     delay 0.0001
4768     gosub RELEASE
4769SPELL_CAST_RETURN:
4770     delay 0.0001
4771     return
4772RELEASE_MANA:
4773     delay 0.0001
4774     if ("$preparedspell" != "None") then gosub RELEASE spell
4775     gosub RELEASE mana
4776     put #echo Crimson *****************************************************
4777     put #echo Crimson ***** ATTUNEMENT IS LOW.  WAITING TO REGAIN IT. *****
4778     put #echo Crimson *****************************************************
4779     if ($mana < 80) then waiteval ($mana > 79)
4780CHECK_MANA:
4781     delay 0.0001
4782     if ($mana < 25) then goto RELEASE_MANA
4783     return
4784RELEASE:
4785     delay 0.0001
4786     var release $0
4787     var LOCATION RELEASE_1
4788     RELEASE_1:
4789     matchre WAIT ^\.\.\.wait|^Sorry\,
4790     matchre STUNNED ^You are still stunned
4791     matchre WEBBED ^You can't do that while entangled in a web
4792     matchre IMMOBILE ^You don't seem to be able to move to do that
4793     matchre RETURN ^\s*Encumbrance\s*\:
4794     put -release %release;-encumbrance
4795     matchwait
4796HARNESS:
4797     delay 0.0001
4798     var harness $0
4799     var LOCATION HARNESS_1
4800     HARNESS_1:
4801     matchre WAIT ^\.\.\.wait|^Sorry\,
4802     matchre STUNNED ^You are still stunned
4803     matchre WEBBED ^You can't do that while entangled in a web
4804     matchre IMMOBILE ^You don't seem to be able to move to do that
4805     matchre RELEASE ^You strain\, but cannot harness that much power\.
4806     matchre RETURN ^You tap into the mana from .* of the surrounding streams and
4807     send harness %harness
4808     matchwait
4809     
4810#### HEALTH CHECKING
4811HEALTH_CHECK:
4812     if ("%HEALTH_CHECK" = "ON") then RETURN
4813     delay 0.0001
4814     put #tvar needHealing 0
4815     delay 0.5
4816     matchre HEALTH.GOOD ^You have no significant injuries\.
4817     matchre HEALTH.BAD ^hand
4818     matchre HEALTH.BAD ^\s*Encumbrance\s+\:
4819     put -health;-2 encumbrance
4820     matchwait 15
4821     goto HEALTH_CHECK
4822HEALTH.BAD:
4823     delay 0.0001
4824     put #tvar needHealing 1
4825     delay 0.5
4826     goto TOO.HURT
4827HEALTH.GOOD:
4828     delay 0.0001
4829     put #queue clear
4830     put #tvar needHealing 0
4831     delay 0.5
4832     RETURN
4833     
4834#### CATCH AND RETRY SUBS
4835WAIT:
4836     delay 0.0001
4837     pause 0.1
4838     if (!$standing) then gosub STAND
4839     goto %LOCATION
4840WEBBED:
4841     delay 0.0001
4842     if ($webbed) then waiteval (!$webbed)
4843     if (!$standing) then gosub STAND
4844     goto %LOCATION
4845IMMOBILE:
4846     delay 0.0001
4847     if contains("$prompt" , "I") then pause 20
4848     if (!$standing) then gosub STAND
4849     goto %LOCATION
4850STUNNED:
4851     delay 0.0001
4852     if ($stunned) then waiteval (!$stunned)
4853     if (!$standing) then gosub STAND
4854     goto %LOCATION
4855#### RETURNS
4856RETURN_CLEAR:
4857     delay 0.0001
4858     put #queue clear
4859     pause 0.0001
4860     return
4861RETURN:
4862     delay 0.0001
4863     return
4864#########################################################
4865
4866#########################################################################################
4867# PROGRESSIVE ITEM VARIABLE SECTION
4868#
4869# Please report any bugs, or items updates to skultamaphon at gmail.com
4870# If an item is too hard or stops teaching too early please let me know!
4871###########################################################################################
4872###########################
4873# SKILLS 20-39
4874###########################
4875CLASS1:
4876     ## THEREN
4877     var skillrange 20-39
4878     var T.Tarsha canons
4879     var T.Rose <nothing>
4880     var T.Music <nothing>
4881          var T.Music.Num
4882     var T.Hats <nothing>
4883     var T.Arm <nothing>
4884     var T.Gift <nothing>
4885     var T.Sweet cake
4886     var T.Cupcake cupcake
4887     var T.Gen charcoal
4888     var T.Krrish <nothing>
4889     var T.Lense <nothing>
4890     var T.Cleric block
4891     var T.Men <nothing>
4892     var T.Women <nothing>
4893     var T.Cloth <nothing>
4894     var T.Armory <nothing>
4895     var T.Forge copper slug
4896     ## HAVEN
4897     var skillrange 20-39
4898     var RH.Herb water
4899     var RH.Iron <nothing>
4900     var RH.Naph <nothing>
4901          var RH.Naph.Loc on cart
4902     var RH.Flow black orchid
4903     var RH.Seli <nothing>
4904     var RH.Arms <nothing>
4905     var RH.Gen purse
4906     var RH.Cloth <nothing>
4907     var RH.Artif <nothing>
4908     var RH.Joy chocolate
4909     var RH.Smoke <nothing>
4910     var RH.Weap <nothing>
4911     var RH.Bard pick
4912     var RH.Bard2 <nothing>
4913     var RH.Cleric grey-brown feather
4914     var RH.Cleric2  <nothing>
4915     var RH.Lock ordinary lockpick
4916     var RH.Tog  <nothing>
4917     var RH.Tog2  <nothing>
4918     var RH.Mirg <nothing>
4919     ## ARTHE DALE
4920     var skillrange 20-39
4921     var AD.Feta biscuit
4922          var AD.FETA.Loc
4923     var AD.Thread <nothing>
4924     var AD.Fash <nothing>
4925     var AD.Odds <nothing>
4926     var AD.Bard <nothing>
4927     var AD.Map <nothing>
4928     var AD.Arm <nothing>
4929     var AD.Smoke <nothing>
4930     var AD.Tart.E <nothing>
4931     var AD.Tart.C <nothing>
4932     var AD.Tart.M <nothing>
4933     var AD.Tart.L <nothing>
4934     var AD.Tart.F <nothing>
4935     var KA.Grek cheese
4936     ## CROSSINGS
4937     var skillrange 20-39
4938     var C.Alch water
4939     var C.Artif <nothing>
4940     var C.Bath reed
4941          var C.Bath.Num
4942          var C.Bath.Loc
4943     var C.Card <nothing>
4944     var C.Gen bark
4945     var C.Weap <nothing>
4946     var C.Arm rugged gloves
4947     var C.Music pick
4948     var C.Music2 <nothing>
4949     var C.Lock <nothing>
4950     var C.Empath <nothing>
4951          var C.Empath.Alt <nothing>
4952     var C.Empath2 <nothing>
4953     var C.Empath3 <nothing>
4954          var C.Empath3.Loc
4955          var C.Empath3.Alt <nothing>
4956     var C.Cler chamomile
4957     var C.Haber <nothing>
4958     var C.Script <nothing>
4959     var C.Tann <nothing>
4960          var C.Tann.Loc
4961     var C.Jewel <nothing>
4962     var C.Stitch <nothing>
4963     var C.Cobb <nothing>
4964     var C.Herb <nothing>
4965     var C.Flow rose
4966     ## LETH
4967     var skillrange 20-39
4968     var L.Skin <nothing>
4969     var L.Bow flights
4970     var L.Orig <nothing>
4971          var L.Orig.Num
4972     var L.Weap <nothing>
4973     var L.Wick <nothing>
4974     var L.Bard <nothing>
4975     var L.Bard2 <nothing>
4976     var L.Cloth <nothing>
4977     var L.Wood <nothing>
4978     var L.Gen <nothing>
4979          var L.Gen.Alt <nothing>
4980     var L.Perf <nothing>
4981     ## SHARD
4982     var skillrange 20-39
4983     var S.Gen charcoal
4984     var S.Weap <nothing>
4985     var S.Cleric chamomile
4986     var S.Stitch gloves
4987     var S.Alch water
4988     var S.Herb <nothing>
4989     var S.Artif <nothing>
4990     var S.Music pick
4991     var S.Armor leather gloves
4992     var S.Reed <nothing>
4993          var S.Reed.Num
4994     var S.Bow flights
4995     var S.Lock <nothing>
4996     var S.Coin <nothing>
4997          var S.Coin.Loc
4998     var S.Frill <nothing>
4999     var S.Herald <nothing>
5000          var S.Herald.Loc
5001     var S.Gift <nothing>
5002          var S.Gift.Loc
5003     var S.Toy <nothing>
5004          var S.Toy.Loc
5005     var S.Memory <nothing>
5006		var S.Memory.Num first
5007     var S.Token <nothing>
5008     var S.Museum <nothing>
5009     var S.Barber razor
5010     var S.Tanner <nothing>
5011     var S.Surv <nothing>
5012          var S.Surv.Loc
5013          var S.Surv.Alt <nothing>
5014     var S.Surv2 chicken flights
5015          var S.Surv2.Loc
5016          var S.Surv2.Alt hawk flights
5017     var S.Spire <nothing>
5018     # HIB AND RAVEN'S POINT
5019     var skillrange 20-39
5020     var SC.Weap <nothing>
5021     var H.Shield <nothing>
5022     var H.Jewel <nothing>
5023     var H.Tog <nothing>
5024     var H.Herb <nothing>
5025     var H.Sund incense
5026     var H.Lamp charcoal
5027     var H.Music <nothing>
5028     var H.Alch <nothing>
5029     var H.Forge zinc bar
5030          var H.Forge.Loc on tab
5031     var RP.Gen flights
5032     var RP.Tobac <nothing>
5033     # RATHA
5034     var skillrange 20-39
5035     var R.Bait worms
5036     var R.Gen rope
5037     var R.Herb water
5038     var R.Forge <nothing>
5039     var R.Tailor stockings
5040     var R.Leather <nothing>
5041     var R.Hair unguent
5042     var R.Music <nothing>
5043     var R.Magic <nothing>
5044     var R.Origami <nothing>
5045          var R.Origami.LOC
5046     var R.Jewelry <nothing>
5047     var R.Cleric chamomile
5048     var R.Cleric2 <nothing>
5049     var R.Ring <nothing>
5050     # AESRY SURLAENIS'A
5051     var skillrange 20-39
5052     var A.Herb water
5053     var A.Tanner <nothing>
5054     var A.Clothing <nothing>
5055     var A.Script <nothing>
5056     var A.Cleric pao
5057     var A.Origami <nothing>
5058     var A.Jewelry <nothing>
5059     var A.Magic <nothing>
5060     var A.Slings flights
5061     var A.Puzzle <nothing>
5062     var A.Footwear <nothing>
5063     var A.Shields <nothing>
5064     var A.Weapon <nothing>
5065     var A.Armor <nothing>
5066     var A.Gen charcoal
5067     var A.Flower <nothing>
5068     var A.Music pick
5069     pause 0.1
5070     gosub ITEM.COUNT0
5071     RETURN
5072##################################
5073# SKILLS 40-59
5074##################################
5075CLASS2:
5076     ## THEREN
5077     var skillrange 40-59
5078     var T.Tarsha canons
5079     var T.Rose socks
5080     var T.Music cloth
5081          var T.Music.Num
5082     var T.Hats nightcap
5083     var T.Arm <nothing>
5084     var T.Gift <nothing>
5085     var T.Sweet cake
5086     var T.Cupcake cupcake
5087     var T.Gen charcoal
5088     var T.Krrish <nothing>
5089     var T.Lense <nothing>
5090     var T.Cleric incense
5091     var T.Men <nothing>
5092     var T.Women <nothing>
5093     var T.Cloth <nothing>
5094     var T.Armory <nothing>
5095     var T.Forge copper slug
5096     ## HAVEN
5097     var skillrange 40-59
5098     var RH.Herb mixing stick
5099     var RH.Iron <nothing>
5100     var RH.Naph <nothing>
5101          var RH.Naph.Loc on cart
5102     var RH.Flow black orchid
5103     var RH.Seli <nothing>
5104     var RH.Arms dart
5105     var RH.Gen flint
5106     var RH.Cloth gown
5107     var RH.Artif <nothing>
5108     var RH.Joy truffle
5109     var RH.Smoke pouch
5110     var RH.Weap <nothing>
5111     var RH.Bard pick
5112     var RH.Bard2 hairpin
5113     var RH.Cleric incense
5114     var RH.Cleric2  <nothing>
5115     var RH.Lock ordinary lockpick
5116     var RH.Tog  <nothing>
5117     var RH.Tog2  <nothing>
5118     var RH.Mirg <nothing>
5119     # ARTHE DALE
5120     var skillrange 40-59
5121     var AD.Feta milk
5122          var AD.FETA.Loc on counter
5123     var AD.Thread pouch
5124     var AD.Fash <nothing>
5125     var AD.Odds <nothing>
5126     var AD.Bard <nothing>
5127     var AD.Map <nothing>
5128     var AD.Arm smooth rocks
5129     var AD.Smoke <nothing>
5130     var AD.Tart.E <nothing>
5131     var AD.Tart.C <nothing>
5132     var AD.Tart.M <nothing>
5133     var AD.Tart.L <nothing>
5134     var AD.Tart.F <nothing>
5135     var KA.Grek socks
5136     # CROSSINGS
5137     var skillrange 40-59
5138     var C.Alch alcohol
5139     var C.Artif <nothing>
5140     var C.Bath reed
5141          var C.Bath.Num
5142          var C.Bath.Loc
5143     var C.Card <nothing>
5144     var C.Gen small box
5145     var C.Weap arrows
5146     var C.Arm rugged gloves
5147     var C.Music pick
5148     var C.Music2 <nothing>
5149     var C.Lock slim lockpick
5150     var C.Empath <nothing>
5151          var C.Empath.Alt <nothing>
5152     var C.Empath2 <nothing>
5153     var C.Empath3 <nothing>
5154          var C.Empath3.Loc on hook
5155          var C.Empath3.Alt
5156     var C.Cler lavender
5157     var C.Haber hood
5158     var C.Script <nothing>
5159     var C.Tann <nothing>
5160          var C.Tann.Loc
5161     var C.Jewel <nothing>
5162     var C.Stitch hair bow
5163     var C.Cobb <nothing>
5164     var C.Herb <nothing>
5165     var C.Flow rose
5166     # LETH DERIEL
5167     var skillrange 40-59
5168     var L.Skin <nothing>
5169     var L.Bow arrowhead
5170     var L.Orig <nothing>
5171          var L.Orig.Num
5172     var L.Weap <nothing>
5173     var L.Wick <nothing>
5174     var L.Bard <nothing>
5175     var L.Bard2 cloth
5176     var L.Cloth <nothing>
5177     var L.Wood <nothing>
5178     var L.Gen <nothing>
5179          var L.Gen.Alt <nothing>
5180     var L.Perf <nothing>
5181     # SHARD
5182     var skillrange 40-59
5183     var S.Gen hairbrush
5184     var S.Weap <nothing>
5185     var S.Cleric sirese flower
5186     var S.Stitch gloves
5187     var S.Alch mixing stick
5188     var S.Herb <nothing>
5189     var S.Artif <nothing>
5190     var S.Music rag
5191     var S.Armor leather gloves
5192     var S.Reed <nothing>
5193          var S.Reed.Num
5194     var S.Bow glue
5195     var S.Lock iron keyblank
5196     var S.Coin <nothing>
5197          var S.Coin.Loc
5198     var S.Frill gloves
5199     var S.Herald <nothing>
5200          var S.Herald.Loc
5201     var S.Gift <nothing>
5202          var S.Gift.Loc
5203     var S.Toy whistle
5204          var S.Toy.Loc
5205     var S.Memory <nothing>
5206		var S.Memory.Num first
5207     var S.Token <nothing>
5208     var S.Museum <nothing>
5209     var S.Barber oil
5210     var S.Tanner <nothing>
5211     var S.Surv oil
5212          var S.Surv.Loc
5213          var S.Surv.Alt <nothing>
5214     var S.Surv2 glue
5215          var S.Surv2.Loc
5216          var S.Surv2.Alt hawk flights
5217      var S.Spire <nothing>
5218     # HIB AND RAVEN'S POINT
5219     var skillrange 40-59
5220     var SC.Weap <nothing>
5221     var H.Shield <nothing>
5222     var H.Jewel <nothing>
5223     var H.Tog toothpicks
5224     var H.Herb <nothing>
5225     var H.Sund incense
5226     var H.Lamp torch
5227     var H.Music cloth
5228     var H.Alch mixing stick
5229     var H.Forge copper slug
5230          var H.Forge.Loc on tab
5231     var RP.Gen flights
5232     var RP.Tobac pine pipe
5233     # RATHA
5234     var skillrange 40-59
5235     var R.Bait cheese
5236     var R.Gen biscuit
5237     var R.Herb alcohol
5238     var R.Forge <nothing>
5239     var R.Tailor stockings
5240     var R.Leather <nothing>
5241     var R.Hair unguent
5242     var R.Music rag
5243     var R.Magic <nothing>
5244     var R.Origami <nothing>
5245          var R.Origami.LOC
5246     var R.Jewelry <nothing>
5247     var R.Cleric plume feather
5248     var R.Cleric2 <nothing>
5249     var R.Ring <nothing>
5250     # AESRY SURLAENIS'A
5251     var skillrange 40-59
5252     var A.Herb stick
5253     var A.Tanner thread
5254     var A.Clothing <nothing>
5255     var A.Script <nothing>
5256     var A.Cleric sage
5257     var A.Origami paper
5258     var A.Jewelry <nothing>
5259     var A.Magic <nothing>
5260     var A.Slings fishtail arrowhead
5261     var A.Puzzle beanbags
5262     var A.Footwear socks
5263     var A.Shields <nothing>
5264     var A.Weapon <nothing>
5265     var A.Armor <nothing>
5266     var A.Gen flint
5267     var A.Flower <nothing>
5268     var A.Music pick
5269     pause 0.1
5270     gosub ITEM.COUNT1
5271     RETURN
5272##################################
5273# SKILLS 60-99
5274##################################
5275CLASS3:
5276     ## THEREN
5277     var skillrange 60-99
5278     var T.Tarsha canons
5279     var T.Rose socks
5280     var T.Music cloth
5281          var T.Music.Num
5282     var T.Hats nightcap
5283     var T.Arm <nothing>
5284     var T.Gift <nothing>
5285     var T.Sweet cake
5286     var T.Cupcake cupcake
5287     var T.Gen carving knife
5288     var T.Krrish <nothing>
5289     var T.Lense <nothing>
5290     var T.Cleric incense
5291     var T.Men <nothing>
5292     var T.Women <nothing>
5293     var T.Cloth <nothing>
5294     var T.Armory <nothing>
5295     var T.Forge copper slug
5296     ## HAVEN
5297      var skillrange 60-99
5298     var RH.Herb oil
5299     var RH.Iron <nothing>
5300     var RH.Naph <nothing>
5301          var RH.Naph.Loc on cart
5302     var RH.Flow black orchid
5303     var RH.Seli claw gloves
5304     var RH.Arms bolts
5305     var RH.Gen bark
5306     var RH.Cloth sash
5307     var RH.Artif <nothing>
5308     var RH.Joy water
5309     var RH.Smoke sungrown cigar
5310     var RH.Weap club
5311     var RH.Bard pick
5312     var RH.Bard2 hairpin
5313     var RH.Cleric candle
5314     var RH.Cleric2  <nothing>
5315     var RH.Lock stout lockpick
5316     var RH.Tog  <nothing>
5317     var RH.Tog2  <nothing>
5318     var RH.Mirg <nothing>
5319     # ARTHE DALE
5320     var skillrange 60-99
5321     var AD.Feta yogurt
5322          var AD.FETA.Loc
5323     var AD.Thread pouch
5324     var AD.Fash snood
5325     var AD.Odds <nothing>
5326     var AD.Bard <nothing>
5327     var AD.Map <nothing>
5328     var AD.Arm hood
5329     var AD.Smoke sungrown cigar
5330     var AD.Tart.E <nothing>
5331     var AD.Tart.C <nothing>
5332     var AD.Tart.M tart
5333     var AD.Tart.L <nothing>
5334     var AD.Tart.F <nothing>
5335     var KA.Grek boots
5336     # CROSSINGS
5337     var skillrange 60-99
5338     var C.Alch pestle
5339     var C.Artif <nothing>
5340     var C.Bath soap
5341          var C.Bath.Num
5342          var C.Bath.Loc in basin
5343     var C.Card <nothing>
5344     var C.Gen flint
5345     var C.Weap arrows
5346     var C.Arm rugged aventail
5347     var C.Music rag
5348     var C.Music2 drum stick
5349     var C.Lock stout lockpick
5350     var C.Empath <nothing>
5351          var C.Empath.Alt <nothing>
5352     var C.Empath2 <nothing>
5353     var C.Empath3 <nothing>
5354          var C.Empath3.Loc on hook
5355          var C.Empath3.Alt <nothing>
5356     var C.Cler incense
5357     var C.Haber skullcap
5358     var C.Script <nothing>
5359     var C.Tann thread
5360          var C.Tann.Loc
5361     var C.Jewel hairpin
5362     var C.Stitch cloche
5363     var C.Cobb moccasins
5364     var C.Herb <nothing>
5365     var C.Flow <nothing>
5366     # LETH DERIEL
5367     var skillrange 60-99
5368     var L.Skin <nothing>
5369     var L.Bow arrowhead
5370     var L.Orig white paper
5371          var L.Orig.Num
5372     var L.Weap <nothing>
5373     var L.Wick <nothing>
5374     var L.Bard recorder
5375     var L.Bard2 cloth
5376     var L.Cloth <nothing>
5377     var L.Wood <nothing>
5378     var L.Gen <nothing>
5379          var L.Gen.Alt <nothing>
5380     var L.Perf <nothing>
5381     # SHARD
5382     var skillrange 60-99
5383     var S.Gen unguent
5384     var S.Weap <nothing>
5385     var S.Cleric incense
5386     var S.Stitch hood
5387     var S.Alch pestle
5388     var S.Herb <nothing>
5389     var S.Artif <nothing>
5390     var S.Music cloth
5391     var S.Armor collar
5392     var S.Reed <nothing>
5393          var S.Reed.Num
5394     var S.Bow shears
5395     var S.Lock iron keyblank
5396     var S.Coin <nothing>
5397          var S.Coin.Loc
5398     var S.Frill straw hat
5399     var S.Herald <nothing>
5400          var S.Herald.Loc
5401     var S.Gift <nothing>
5402          var S.Gift.Loc
5403     var S.Toy whistle
5404          var S.Toy.Loc
5405     var S.Memory <nothing>
5406		var S.Memory.Num first
5407     var S.Token <nothing>
5408     var S.Museum <nothing>
5409     var S.Barber oil
5410     var S.Tanner thread
5411     var S.Surv wood pestle
5412          var S.Surv.Alt stone pestle
5413          var S.Surv.Loc
5414     var S.Surv2 falcon flights
5415          var S.Surv2.Alt wood shaper
5416          var S.Surv2.Loc
5417      var S.Spire <nothing>
5418     # HIB AND RAVEN'S POINT
5419     var skillrange 60-99
5420     var SC.Weap <nothing>
5421     var H.Shield <nothing>
5422     var H.Jewel <nothing>
5423     var H.Tog white soap
5424     var H.Herb <nothing>
5425     var H.Sund bone comb
5426     var H.Lamp lamp oil
5427     var H.Music cloth
5428     var H.Alch stone pestle
5429     var H.Forge copper slug
5430          var H.Forge.Loc on tab
5431     var RP.Gen flights
5432     var RP.Tobac pipe
5433     # RATHA
5434     var skillrange 60-99
5435     var R.Bait pole
5436     var R.Gen lobscouse stew
5437     var R.Herb pestle
5438     var R.Forge <nothing>
5439     var R.Tailor shirt
5440     var R.Leather <nothing>
5441     var R.Hair hairbrush
5442     var R.Music pick
5443     var R.Magic <nothing>
5444     var R.Origami <nothing>
5445          var R.Origami.LOC
5446     var R.Jewelry chain
5447     var R.Cleric wine
5448     var R.Cleric2 <nothing>
5449     var R.Ring <nothing>
5450     # AESRY SURLAENIS'A
5451     var skillrange 60-99
5452     var A.Herb pestle
5453     var A.Tanner thread
5454     var A.Clothing britches
5455     var A.Script <nothing>
5456     var A.Cleric incense
5457     var A.Origami <nothing>
5458     var A.Jewelry bracelet
5459     var A.Magic <nothing>
5460     var A.Slings shaper
5461     var A.Puzzle beanbags
5462     var A.Footwear socks
5463     var A.Shields <nothing>
5464     var A.Weapon <nothing>
5465     var A.Armor <nothing>
5466     var A.Gen trowel
5467     var A.Flower wristlet
5468     var A.Music bow
5469     pause 0.1
5470     gosub ITEM.COUNT1
5471     RETURN
5472##################################
5473# SKILLS 100-149
5474##################################
5475CLASS4:
5476     ## THEREN
5477     var skillrange 100-149
5478     var T.Tarsha gorget 
5479     var T.Rose kilt
5480     var T.Music cloth
5481          var T.Music.Num
5482     var T.Hats nightcap
5483     var T.Arm <nothing>
5484     var T.Gift <nothing>
5485     var T.Sweet cake
5486     var T.Cupcake cupcake
5487     var T.Gen satchel
5488     var T.Krrish <nothing>
5489     var T.Lense <nothing>
5490     var T.Cleric mortar
5491     var T.Men <nothing>
5492     var T.Women <nothing>
5493     var T.Cloth <nothing>
5494     var T.Armory dagger
5495     var T.Forge copper slug
5496     ## HAVEN
5497     var skillrange 100-149
5498     var RH.Herb yelith root
5499     var RH.Iron bronze gauntlets
5500     var RH.Naph naphtha
5501          var RH.Naph.Loc on cart
5502     var RH.Flow <nothing>
5503     var RH.Seli studded helm
5504     var RH.Arms kris
5505     var RH.Gen knapsack
5506     var RH.Cloth robes
5507     var RH.Artif simple talisman
5508     var RH.Joy perfume
5509     var RH.Smoke apple pipe
5510     var RH.Weap club
5511     var RH.Bard tipper
5512     var RH.Bard2 beaded earrings
5513     var RH.Cleric pomander
5514     var RH.Cleric2 bottle
5515     var RH.Lock stout lockpick
5516     var RH.Tog beaded slippers
5517     var RH.Tog2 <nothing>
5518     var RH.Mirg <nothing>
5519     # ARTHE DALE
5520     var skillrange 100-149
5521     var AD.Feta wayfarer cheese
5522          var AD.FETA.Loc
5523     var AD.Thread pouch
5524     var AD.Fash neckerchief
5525     var AD.Odds fan
5526     var AD.Bard rag
5527     var AD.Map <nothing>
5528     var AD.Arm bodkin
5529     var AD.Smoke telgi cigar
5530     var AD.Tart.E tart
5531     var AD.Tart.C tart
5532     var AD.Tart.M tart
5533     var AD.Tart.L tart
5534     var AD.Tart.F tart
5535     var KA.Grek boots
5536     # CROSSINGS
5537     var skillrange 100-149
5538     var C.Alch pestle
5539     var C.Artif <nothing>
5540     var C.Bath towel
5541          var C.Bath.Num
5542          var C.Bath.Loc on stand
5543     var C.Card <nothing>
5544     var C.Gen knapsack
5545     var C.Weap dagger
5546     var C.Arm rugged gloves
5547     var C.Music cloth
5548     var C.Music2 maple guiro
5549     var C.Lock slim lockpick
5550     var C.Empath <nothing>
5551          var C.Empath.Alt <nothing>
5552     var C.Empath2 scalpel
5553     var C.Empath3 button
5554          var C.Empath3.Loc on case
5555          var C.Empath3.Alt <nothing>
5556     var C.Cler wine
5557     var C.Haber tam
5558     var C.Script <nothing>
5559     var C.Tann thread
5560          var C.Tann.Loc
5561     var C.Jewel pin
5562     var C.Stitch sash
5563     var C.Cobb sandals
5564     var C.Herb jadice flower
5565     var C.Flow <nothing>
5566     # LETH DERIEL
5567     var skillrange 100-149
5568     var L.Skin buckskin pelt
5569     var L.Bow bolts
5570     var L.Orig silver paper
5571          var L.Orig.Num
5572     var L.Weap <nothing>
5573     var L.Wick wicker quiver
5574     var L.Bard ocarina
5575     var L.Bard2 cloth
5576     var L.Cloth moufles
5577     var L.Wood <nothing>
5578     var L.Gen dice
5579          var L.Gen.Alt <nothing>
5580     var L.Perf <nothing>
5581     # SHARD
5582     var skillrange 100-149
5583     var S.Gen short sword
5584     var S.Weap targe
5585     var S.Cleric candle
5586     var S.Stitch cloak
5587     var S.Alch large bowl
5588     var S.Herb riolur leaf
5589     var S.Artif <nothing>
5590     var S.Music tipper
5591     var S.Armor reinforced greaves
5592     var S.Reed <nothing>
5593          var S.Reed.Num
5594     var S.Bow arrows
5595     var S.Lock bronze lockpick
5596     var S.Coin <nothing>
5597          var S.Coin.Loc
5598     var S.Frill willow fan
5599     var S.Herald <nothing>
5600          var S.Herald.Loc
5601     var S.Gift doll
5602          var S.Gift.Loc on shelf
5603     var S.Toy whistle
5604          var S.Toy.Loc
5605     var S.Memory <nothing>
5606		var S.Memory.Num first
5607     var S.Token <nothing>
5608     var S.Museum <nothing>
5609     var S.Barber clippers
5610     var S.Tanner hide scraper
5611     var S.Surv wood pestle
5612          var S.Surv.Alt stone pestle
5613          var S.Surv.Loc
5614     var S.Surv2 wood shaper
5615          var S.Surv2.Alt steel shaper
5616          var S.Surv2.Loc
5617      var S.Spire <nothing>
5618     # HIB AND RAVEN'S POINT
5619     var skillrange 100-149
5620     var SC.Weap <nothing>
5621     var H.Shield <nothing>
5622     var H.Jewel <nothing>
5623     var H.Tog white soap
5624     var H.Herb <nothing>
5625     var H.Sund bone comb
5626     var H.Lamp lamp oil
5627     var H.Music cloth
5628     var H.Alch stone pestle
5629     var H.Forge copper slug
5630          var H.Forge.Loc on tab
5631     var RP.Gen flights
5632     var RP.Tobac pipe
5633CLASS4.ISLAND:
5634     # RATHA
5635     var skillrange 100-149
5636     var R.Bait pole
5637     var R.Gen polish
5638     var R.Herb large jar
5639     var R.Forge dagger
5640     var R.Tailor sash
5641     var R.Leather <nothing>
5642     var R.Hair clippers
5643     var R.Music tambourine
5644     var R.Magic talisman
5645     var R.Origami white paper
5646          var R.Origami.LOC
5647     var R.Jewelry bangle
5648     var R.Cleric candle
5649     var R.Cleric2 <nothing>
5650     var R.Ring <nothing>
5651     # AESRY SURLAENIS'A
5652     var skillrange 100-149
5653     var A.Herb pestle
5654     var A.Tanner shears
5655     var A.Clothing britches
5656     var A.Script trimmed scroll
5657     var A.Cleric candle
5658     var A.Origami <nothing>
5659     var A.Jewelry bracelet
5660     var A.Magic <nothing>
5661     var A.Slings canvas sling
5662     var A.Puzzle basic puzzle
5663     var A.Footwear pouch
5664     var A.Shields <nothing>
5665     var A.Weapon <nothing>
5666     var A.Armor <nothing>
5667     var A.Gen tinderbox
5668     var A.Flower wristlet
5669     var A.Music cloth
5670     gosub ITEM.COUNT2
5671     RETURN
5672##################################
5673# SKILLS 150-199
5674##################################
5675CLASS5:
5676     ## THEREN
5677     var skillrange 150-199
5678     var T.Tarsha canons
5679     var T.Rose shirt
5680     var T.Music four strings
5681          var T.Music.Num
5682     var T.Hats sailor hat
5683     var T.Arm <nothing>
5684     var T.Gift blue shirt
5685     var T.Sweet cake
5686     var T.Cupcake cupcake
5687     var T.Gen carving knife
5688     var T.Krrish <nothing>
5689     var T.Lense <nothing>
5690     var T.Cleric pestle
5691     var T.Men trousers
5692     var T.Women <nothing>
5693     var T.Cloth suspenders
5694     var T.Armory dagger
5695     var T.Forge copper slug
5696     ## HAVEN
5697     var skillrange 150-199
5698     var RH.Herb riolur leaf
5699     var RH.Iron bronze gauntlets
5700     var RH.Naph naphtha
5701          var RH.Naph.Loc on cart
5702     var RH.Flow <nothing>
5703     var RH.Seli studded helm
5704     var RH.Arms rapier
5705     var RH.Gen razor
5706     var RH.Cloth jerkin
5707     var RH.Artif simple talisman
5708     var RH.Joy troll
5709     var RH.Smoke lanival pipe
5710     var RH.Weap <nothing>
5711     var RH.Bard tipper
5712     var RH.Bard2 earrings
5713     var RH.Cleric pomander
5714     var RH.Cleric2 bottle
5715     var RH.Lock slim lockpick
5716     var RH.Tog beaded slippers
5717     var RH.Tog2 <nothing>
5718     var RH.Mirg <nothing>
5719     # ARTHE DALE
5720     var skillrange 150-199
5721     var AD.Feta anlibues cheese
5722          var AD.FETA.Loc
5723     var AD.Thread bobbin
5724     var AD.Fash shawl
5725     var AD.Odds fan
5726     var AD.Bard four strings
5727     var AD.Map <nothing>
5728     var AD.Arm sword
5729     var AD.Smoke cigarillo
5730     var AD.Tart.E tart
5731     var AD.Tart.C tart
5732     var AD.Tart.M tart
5733     var AD.Tart.L tart
5734     var AD.Tart.F tart
5735     var KA.Grek skinning knife
5736     # CROSSINGS
5737     var skillrange 150-199
5738     var C.Alch dracon crystals
5739     var C.Artif talisman
5740     var C.Bath bathrobe
5741          var C.Bath.Num
5742          var C.Bath.Loc
5743     var C.Card <nothing>
5744     var C.Gen sheath
5745     var C.Weap kris
5746     var C.Arm rugged vambraces
5747     var C.Music ocarina
5748     var C.Music2 ebony guiro
5749     var C.Lock lockpick ring
5750     var C.Empath <nothing>
5751          var C.Empath.Alt <nothing>
5752     var C.Empath2 garland
5753     var C.Empath3 button
5754          var C.Empath3.Loc on case
5755          var C.Empath3.Alt <nothing>
5756     var C.Cler silver vial
5757     var C.Haber jerkin
5758     var C.Script <nothing>
5759     var C.Tann bodkin
5760          var C.Tann.Loc
5761     var C.Jewel engagement ring
5762     var C.Stitch cloak
5763     var C.Cobb snowshoes
5764     var C.Herb junliar stem
5765     var C.Flow <nothing>
5766     # LETH DERIEL
5767     var skillrange 150-199
5768     var L.Skin deer skin
5769     var L.Bow long arrows
5770     var L.Orig case
5771          var L.Orig.Num fourth
5772     var L.Weap <nothing>
5773          var L.Weap.Loc in catalog
5774     var L.Wick wicker quiver
5775     var L.Bard flute
5776     var L.Bard2 four strings
5777     var L.Cloth tunic
5778     var L.Wood log
5779     var L.Gen dice
5780          var L.Gen.Alt <nothing>
5781     var L.Perf <nothing>
5782     # SHARD
5783     var skillrange 150-199
5784     var S.Gen clippers
5785     var S.Weap targe
5786     var S.Cleric armband
5787     var S.Stitch blouse
5788     var S.Alch tukai stones
5789     var S.Herb riolur leaf
5790     var S.Artif talisman
5791     var S.Music bow
5792     var S.Armor mail gauntlets
5793     var S.Reed <nothing>
5794          var S.Reed.Num
5795     var S.Bow crossbow bolts
5796     var S.Lock bronze keyblank
5797     var S.Coin coin case
5798          var S.Coin.Loc
5799     var S.Frill lace fan
5800     var S.Herald <nothing>
5801          var S.Herald.Loc
5802     var S.Gift boggle doll
5803          var S.Gift.Loc in black basket
5804     var S.Toy whistle
5805          var S.Toy.Loc
5806     var S.Memory <nothing>
5807		var S.Memory.Num first
5808     var S.Token <nothing>
5809     var S.Museum <nothing>
5810     var S.Barber oil
5811     var S.Tanner scraper
5812     var S.Surv stone pestle
5813          var S.Surv.Alt wood pestle
5814          var S.Surv.Loc
5815     var S.Surv2 steel shaper
5816          var S.Surv2.Alt pine box
5817          var S.Surv2.Loc
5818      var S.Spire <nothing>
5819     # HIB AND RAVEN'S POINT
5820     var skillrange 150-199
5821     var SC.Weap <nothing>
5822     var H.Shield <nothing>
5823     var H.Jewel <nothing>
5824     var H.Tog white soap
5825     var H.Herb <nothing>
5826     var H.Sund bone comb
5827     var H.Lamp <nothing>
5828     var H.Music cloth
5829     var H.Alch stone pestle
5830     var H.Forge shaft
5831          var H.Forge.Loc on rack
5832     var RP.Gen pestle
5833		var RP.Gen.Loc on table
5834     var RP.Tobac pipe
5835     # RATHA
5836     var skillrange 150-199
5837     var R.Bait pole
5838     var R.Gen breaker
5839     var R.Herb cebi root
5840     var R.Forge dagger
5841     var R.Tailor tunic
5842     var R.Leather <nothing>
5843     var R.Hair clippers
5844     var R.Music flute
5845     var R.Magic <nothing>
5846     var R.Origami white paper
5847          var R.Origami.LOC
5848     var R.Jewelry clasp
5849     var R.Cleric vial
5850     var R.Cleric2 <nothing>
5851     var R.Ring <nothing>
5852     # AESRY SURLAENIS'A
5853     var skillrange 150-199
5854     var A.Herb cebi root
5855     var A.Tanner bodkin
5856     var A.Clothing tunic
5857     var A.Script trimmed scroll
5858     var A.Cleric wine
5859     var A.Origami plain paper
5860     var A.Jewelry bracelet
5861     var A.Magic <nothing>
5862     var A.Slings rocks
5863     var A.Puzzle intermediate puzzle
5864     var A.Footwear woolen tights
5865     var A.Shields kite shield
5866     var A.Weapon telek
5867     var A.Armor <nothing>
5868     var A.Gen razor
5869     var A.Flower necklace
5870     var A.Music bow
5871     gosub ITEM.COUNT2
5872     RETURN
5873##################################
5874# SKILLS 200-249
5875##################################
5876CLASS6:
5877     ## THEREN
5878     var skillrange 200-249
5879     var T.Tarsha greques
5880     var T.Rose shirt
5881     var T.Music four strings
5882          var T.Music.Num
5883     var T.Hats sailor hat
5884     var T.Arm <nothing>
5885     var T.Gift blue shirt
5886     var T.Sweet cake
5887     var T.Cupcake cupcake
5888     var T.Gen carving knife
5889     var T.Krrish <nothing>
5890     var T.Lense <nothing>
5891     var T.Cleric pestle
5892     var T.Men trousers
5893     var T.Women <nothing>
5894     var T.Cloth suspenders
5895     var T.Armory dagger
5896     var T.Forge copper slug
5897     ## HAVEN
5898     var skillrange 200-249
5899     var RH.Herb muljin sap
5900     var RH.Iron bronze gauntlets
5901     var RH.Naph naphtha
5902          var RH.Naph.Loc on cart
5903     var RH.Flow velvet rose
5904     var RH.Seli aventail
5905     var RH.Arms sword
5906     var RH.Gen shears
5907     var RH.Cloth doublet
5908     var RH.Artif simple talisman
5909     var RH.Joy bunny
5910     var RH.Smoke baron tobacco
5911     var RH.Weap mace
5912     var RH.Bard lyre
5913     var RH.Bard2 wristlet
5914     var RH.Cleric chalice
5915     var RH.Cleric2 black bottle
5916     var RH.Lock slim lockpick
5917     var RH.Tog ivory shirt
5918     var RH.Tog2 <nothing>
5919     var RH.Mirg anklet
5920     # ARTHE DALE
5921     var skillrange 200-249
5922     var AD.Feta butter cheese
5923          var AD.FETA.Loc
5924     var AD.Thread pattern
5925     var AD.Fash trousers
5926     var AD.Odds earring
5927     var AD.Bard itharr's
5928     var AD.Map pipe
5929     var AD.Arm wooden shield
5930     var AD.Smoke cigarillo
5931     var AD.Tart.E tart
5932     var AD.Tart.C tart
5933     var AD.Tart.M tart
5934     var AD.Tart.L tart
5935     var AD.Tart.F tart
5936     var KA.Grek charm
5937     # CROSSINGS
5938     var skillrange 200-249
5939     var C.Alch tincture jar
5940     var C.Artif talisman
5941     var C.Bath bathrobe
5942          var C.Bath.Num
5943          var C.Bath.Loc
5944     var C.Card case
5945     var C.Gen backpack
5946     var C.Weap mace
5947     var C.Arm chain aventail
5948     var C.Music bodhran skin
5949     var C.Music2 ebony guiro
5950     var C.Lock slim lockpick
5951     var C.Empath scalpel
5952          var C.Empath.Alt <nothing>
5953     var C.Empath2 garland
5954     var C.Empath3 oak stylus
5955          var C.Empath3.Loc on box
5956          var C.Empath3.Alt <nothing>
5957     var C.Cler basin
5958     var C.Haber trousers
5959     var C.Script satchel
5960          var C.Script.Num second
5961     var C.Tann shears
5962          var C.Tann.Loc
5963     var C.Jewel coral hairpin
5964     var C.Stitch blouse
5965     var C.Cobb thigh boots
5966     var C.Herb riolur leaf
5967     var C.Flow corsage
5968     # LETH DERIEL
5969     var skillrange 200-249
5970     var L.Skin sluagh hide
5971     var L.Bow long arrows
5972     var L.Orig case
5973          var L.Orig.Num third
5974     var L.Weap <nothing>
5975          var L.Weap.Loc in catalog
5976     var L.Wick mesh sack
5977     var L.Bard woodwind case
5978     var L.Bard2 four strings
5979     var L.Cloth doublet
5980     var L.Wood applewood log
5981     var L.Gen dice
5982          var L.Gen.Alt <nothing>
5983     var L.Perf panther perfume
5984     # SHARD
5985     var skillrange 200-249
5986     var S.Gen short sword
5987     var S.Weap targe
5988     var S.Cleric armband
5989     var S.Stitch cloak
5990     var S.Alch seol weed
5991     var S.Herb genich stem
5992     var S.Artif simple talisman
5993     var S.Music four strings
5994     var S.Armor choker
5995     var S.Reed thigh bag
5996          var S.Reed.Num second
5997     var S.Bow crossbow bolts
5998     var S.Lock wrist sheath
5999     var S.Coin coin case
6000          var S.Coin.Loc
6001     var S.Frill sandals
6002     var S.Herald target shield
6003          var S.Herald.Loc
6004     var S.Gift boggle doll
6005          var S.Gift.Loc in black basket
6006     var S.Toy beard
6007          var S.Toy.Loc
6008     var S.Memory <nothing>
6009		var S.Memory.Num first
6010     var S.Token <nothing>
6011     var S.Museum black slippers
6012     var S.Barber tincture jar
6013     var S.Tanner shears
6014     var S.Surv stone pestle
6015          var S.Surv.Alt wood pestle
6016          var S.Surv.Loc
6017     var S.Surv2 steel shaper
6018          var S.Surv2.Alt stone-tipped arrows
6019          var S.Surv2.Loc
6020      var S.Spire pouch
6021     # HIB AND RAVEN'S POINT
6022     var skillrange 200-249
6023     var SC.Weap <nothing>
6024     var H.Shield <nothing>
6025     var H.Jewel <nothing>
6026     var H.Tog towel
6027     var H.Herb yelith root
6028     var H.Sund bone comb
6029     var H.Lamp serpent lamp
6030     var H.Music scroll
6031     var H.Alch stone pestle
6032     var H.Forge shaft
6033          var H.Forge.Loc on rack
6034     var RP.Gen stone mortar
6035     var RP.Tobac pipe
6036     # RATHA
6037     var skillrange 200-249
6038     var R.Bait pole
6039     var R.Gen strap
6040     var R.Herb riolur leaf
6041     var R.Forge sap
6042     var R.Tailor trousers
6043     var R.Leather gauntlets
6044     var R.Hair <nothing>
6045     var R.Music six strings
6046     var R.Magic talisman
6047     var R.Origami white paper
6048          var R.Origami.LOC
6049     var R.Jewelry silver chain
6050     var R.Cleric censer
6051     var R.Cleric2 <nothing>
6052     var R.Ring <nothing>
6053     # AESRY SURLAENIS'A
6054     var skillrange 200-249
6055     var A.Herb nemoih root
6056     var A.Tanner scraper
6057     var A.Clothing shirt
6058     var A.Script painted scroll
6059     var A.Cleric sandals
6060     var A.Origami plain paper
6061     var A.Jewelry bracelet
6062     var A.Magic <nothing>
6063     var A.Slings rocks
6064     var A.Puzzle bunny
6065     var A.Footwear lace stockings
6066     var A.Shields kite shield
6067     var A.Weapon telek
6068     var A.Armor <nothing>
6069     var A.Gen razor
6070     var A.Flower circlet
6071     var A.Music four strings
6072     gosub ITEM.COUNT2
6073     RETURN
6074##################################
6075# SKILLS 250-299
6076##################################
6077CLASS7:
6078     ## THEREN
6079     var skillrange 250-299
6080     var T.Tarsha greques
6081     var T.Rose shirt
6082     var T.Music four strings
6083          var T.Music.Num
6084     var T.Hats sailor hat
6085     var T.Arm <nothing>
6086     var T.Gift blue shirt
6087     var T.Sweet cake
6088     var T.Cupcake cupcake
6089     var T.Gen reed torch
6090     var T.Krrish <nothing>
6091     var T.Lense <nothing>
6092     var T.Cleric pestle
6093     var T.Men trousers
6094     var T.Women <nothing>
6095     var T.Cloth suspenders
6096     var T.Armory dagger
6097     var T.Forge copper slug
6098     ## HAVEN
6099     var skillrange 250-299
6100     var RH.Herb riolur leaf
6101     var RH.Iron bronze gauntlets
6102     var RH.Naph naphtha
6103          var RH.Naph.Loc on cart
6104     var RH.Flow wreath
6105     var RH.Seli bronze gauntlets
6106     var RH.Arms composite bow
6107     var RH.Gen shears
6108     var RH.Cloth houpelande
6109     var RH.Artif cambrinth ring
6110     var RH.Joy bunny
6111     var RH.Smoke riverhaven tobacco
6112     var RH.Weap thorny mace
6113     var RH.Bard refill
6114     var RH.Bard2 necklace
6115     var RH.Cleric chalice
6116     var RH.Cleric2 black bottle
6117     var RH.Lock slim lockpick
6118     var RH.Tog ivory shirt
6119     var RH.Tog2 <nothing>
6120     var RH.Mirg anklet
6121     # ARTHE DALE
6122     var skillrange 250-299
6123     var AD.Feta kirm cheese
6124          var AD.FETA.Loc
6125     var AD.Thread pattern
6126     var AD.Fash trousers
6127     var AD.Odds earring
6128     var AD.Bard silverlock
6129     var AD.Map pipe
6130     var AD.Arm vest
6131     var AD.Smoke baron tobacco
6132     var AD.Tart.E tart
6133     var AD.Tart.C tart
6134     var AD.Tart.M tart
6135     var AD.Tart.L tart
6136     var AD.Tart.F tart
6137     var KA.Grek shirt
6138     # CROSSINGS
6139     var skillrange 250-299
6140     var C.Alch tincture jar
6141     var C.Artif talisman
6142     var C.Bath bathrobe
6143          var C.Bath.Num
6144          var C.Bath.Loc
6145     var C.Card case
6146     var C.Gen backpack
6147     var C.Weap hammer
6148     var C.Arm scale aventail
6149     var C.Music refill
6150     var C.Music2 violin bow
6151     var C.Lock lockpick ring
6152     var C.Empath slippers
6153          var C.Empath.Alt <nothing>
6154     var C.Empath2 mortar
6155     var C.Empath3 oak stylus
6156          var C.Empath3.Loc from box
6157          var C.Empath3.Alt <nothing>
6158     var C.Cler coffer
6159     var C.Haber doublet
6160     var C.Script satchel
6161          var C.Script.Num second
6162     var C.Tann pattern
6163          var C.Tann.Loc
6164     var C.Jewel bloodstone hairpin
6165     var C.Stitch leggings
6166     var C.Cobb hip boots
6167     var C.Herb ithor potion
6168     var C.Flow corsage
6169     # LETH DERIEL
6170     var skillrange 250-299
6171     var L.Skin cougar pelt
6172     var L.Bow leather quiver
6173     var L.Orig case
6174          var L.Orig.Num third
6175     var L.Weap <nothing>
6176          var L.Weap.Loc in catalog
6177     var L.Wick mesh sack
6178     var L.Bard mirliton
6179     var L.Bard2 refill
6180     var L.Cloth jerkin
6181     var L.Wood hazelwood log
6182     var L.Gen dice
6183          var L.Gen.Alt <nothing>
6184     var L.Perf panther perfume
6185     # SHARD
6186     var skillrange 250-299
6187     var S.Gen chain helm
6188     var S.Weap stiletto
6189     var S.Cleric bell
6190     var S.Stitch dress
6191     var S.Alch seolarn weed
6192     var S.Herb hisan salve
6193     var S.Artif elbaite runestone
6194     var S.Music refill
6195     var S.Lock wrist sheath
6196     var S.Armor mesh handguards
6197     var S.Coin coin case
6198          var S.Coin.Loc
6199     var S.Frill doll
6200     var S.Herald ordinary shield
6201          var S.Herald.Loc
6202     var S.Gift badge
6203          var S.Gift.Loc on stand
6204     var S.Toy book
6205          var S.Toy.Loc
6206     var S.Reed thigh bag
6207          var S.Reed.Num second
6208     var S.Memory pin
6209		var S.Memory.Num first
6210     var S.Token <nothing>
6211     var S.Museum black slippers
6212     var S.Barber tincture jar
6213     var S.Bow barbed arrows
6214     var S.Tanner potion
6215     var S.Surv marble pestle
6216          var S.Surv.Alt stone pestle
6217          var S.Surv.Loc
6218     var S.Surv2 stone-tipped arrows
6219          var S.Surv2.Alt steel shaper
6220          var S.Surv2.Loc
6221      var S.Spire pouch
6222     # HIB AND RAVEN'S POINT
6223     var skillrange 250-299
6224     var SC.Weap dirk
6225     var H.Shield ordinary shield
6226     var H.Jewel <nothing>
6227     var H.Tog shirt
6228     var H.Herb hisan salve
6229     var H.Sund lamp
6230     var H.Lamp serpent lamp
6231     var H.Music repair kit
6232     var H.Alch granite mortar
6233     var H.Forge shaft
6234          var H.Forge.Loc on rack
6235     var RP.Gen quiver
6236     var RP.Tobac tobacco pouch
6237     # RATHA
6238     var skillrange 250-299
6239     var R.Bait pole
6240     var R.Gen ditty bag
6241     var R.Herb ithor potion
6242     var R.Forge sap
6243     var R.Tailor vest
6244     var R.Leather gauntlets
6245     var R.Hair razor
6246     var R.Music refill
6247     var R.Magic talisman
6248     var R.Origami blue paper
6249          var R.Origami.LOC
6250     var R.Jewelry collar
6251     var R.Cleric censer
6252     var R.Cleric2 <nothing>
6253     var R.Ring <nothing>
6254     # AESRY SURLAENIS'A
6255     var skillrange 250-299
6256     var A.Herb ithor potion
6257     var A.Tanner shears
6258     var A.Clothing trousers
6259     var A.Script canvas scroll
6260     var A.Cleric armband
6261     var A.Origami white paper
6262     var A.Jewelry earcuff
6263     var A.Magic marble
6264     var A.Slings canvas sling
6265     var A.Puzzle wand
6266     var A.Footwear lace stockings
6267     var A.Shields kite shield
6268     var A.Weapon telek
6269     var A.Armor chausses
6270     var A.Gen mirror
6271     var A.Flower wreath
6272     var A.Music seven strings
6273     gosub ITEM.COUNT2
6274     RETURN
6275##################################
6276# SKILLS 300-399
6277##################################
6278CLASS8:
6279     ## THEREN
6280     var skillrange 300-399
6281     var T.Tarsha greques
6282     var T.Rose shirt
6283     var T.Music four strings
6284          var T.Music.Num
6285     var T.Hats sailor hat
6286     var T.Arm <nothing>
6287     var T.Gift blue shirt
6288     var T.Sweet cake
6289     var T.Cupcake cupcake
6290     var T.Gen reed torch
6291     var T.Krrish <nothing>
6292     var T.Lense <nothing>
6293     var T.Cleric pestle
6294     var T.Men trousers
6295     var T.Women <nothing>
6296     var T.Cloth suspenders
6297     var T.Armory dagger
6298     var T.Forge copper slug
6299     ## HAVEN
6300     var skillrange 300-399
6301     var RH.Herb ithor potion
6302     var RH.Iron chain greaves
6303     var RH.Naph naphtha
6304          var RH.Naph.Loc on cart
6305     var RH.Flow silk orchid
6306     var RH.Seli aventail
6307     var RH.Arms sword
6308     var RH.Gen stove
6309     var RH.Cloth dress
6310     var RH.Artif cambrinth ring
6311     var RH.Joy bunny
6312     var RH.Smoke baron tobacco
6313     var RH.Weap goat-head mace
6314     var RH.Bard mandolin
6315     var RH.Bard2 amulet
6316     var RH.Cleric pomander
6317     var RH.Cleric2 wood shaper
6318     var RH.Lock lockpick ring
6319     var RH.Tog linen shirt
6320     var RH.Tog2 <nothing>
6321     var RH.Mirg toe-bells
6322     # ARTHE DALE
6323     var skillrange 300-399
6324     var AD.Feta anlibues cheese
6325          var AD.FETA.Loc
6326     var AD.Thread pattern
6327     var AD.Fash frock
6328     var AD.Odds doll
6329     var AD.Bard peri'el's
6330     var AD.Map pipe
6331     var AD.Arm cuirass
6332     var AD.Smoke whiskey cigar
6333     var AD.Tart.E tart
6334     var AD.Tart.C tart
6335     var AD.Tart.M tart
6336     var AD.Tart.L tart
6337     var AD.Tart.F tart
6338     var KA.Grek barrel
6339     # CROSSINGS
6340     var skillrange 300-399
6341     var C.Alch tincture jar
6342     var C.Artif talisman
6343     var C.Bath bath towel
6344          var C.Bath.Num
6345          var C.Bath.Loc on rack
6346     var C.Card case
6347     var C.Gen stove
6348     var C.Weap sabre
6349     var C.Arm chain helm
6350     var C.Music repair kit
6351     var C.Music2 violin bow
6352     var C.Lock lockpick ring
6353     var C.Empath scalpel
6354          var C.Empath.Alt slippers
6355     var C.Empath2 mortar
6356     var C.Empath3 journal
6357          var C.Empath3.Loc on shelf
6358          var C.Empath3.Alt button
6359     var C.Cler habit
6360     var C.Haber tabard
6361     var C.Script satchel
6362          var C.Script.Num second
6363     var C.Tann pattern
6364          var C.Tann.Loc
6365     var C.Jewel bloodstone hairpin
6366     var C.Stitch shirt
6367     var C.Cobb hip boots
6368     var C.Herb ithor potion
6369     var C.Flow boutonniere
6370     # LETH DERIEL
6371     var skillrange 300-399
6372     var L.Skin reaver pelt
6373     var L.Bow composite bow
6374     var L.Orig origami case
6375          var L.Orig.Num fifth
6376     var L.Weap wolf-tail shield
6377     var L.Wick pannier
6378     var L.Bard keyed flute
6379     var L.Bard2 twelve strings
6380     var L.Cloth mantle
6381     var L.Wood ironwood log
6382     var L.Gen dice ankle sheath 
6383          var L.Gen.Alt <nothing>
6384     var L.Perf spice perfume
6385     # SHARD
6386     var skillrange 300-399
6387     var S.Gen backtube
6388     var S.Weap telo
6389     var S.Cleric golden bell
6390     var S.Stitch coat
6391     var S.Alch cauldron
6392     var S.Herb ithor potion
6393     var S.Artif elbaite runestone
6394     var S.Music gilded mandolin
6395     var S.Lock ivory lockpick
6396     var S.Armor helmet
6397     var S.Coin coin case
6398          var S.Coin.Loc
6399     var S.Frill doll
6400     var S.Herald ordinary shield
6401          var S.Herald.Loc
6402     var S.Gift sack
6403          var S.Gift.Loc
6404     var S.Toy black book
6405          var S.Toy.Loc
6406     var S.Reed thigh bag
6407          var S.Reed.Num second
6408     var S.Memory pin
6409		var S.Memory.Num first
6410     var S.Token <nothing>
6411     var S.Museum <nothing>
6412     var S.Barber walnut razor
6413     var S.Bow short bow
6414     var S.Tanner pattern
6415     var S.Surv stone mortar
6416          var S.Surv.Alt stone pestle
6417          var S.Surv.Loc
6418     var S.Surv2 razor-tipped arrows
6419          var S.Surv2.Alt broad-barbed arrows
6420          var S.Surv2.Loc
6421      var S.Spire backpack
6422     # HIB AND RAVEN'S POINT
6423     var skillrange 300-399
6424     var SC.Weap dirk
6425     var H.Shield ordinary shield
6426     var H.Jewel earrings
6427     var H.Tog shirt
6428     var H.Herb hisan salve
6429     var H.Sund lamp
6430     var H.Lamp dragon lamp
6431     var H.Music repair kit
6432     var H.Alch granite mortar
6433     var H.Forge shaft
6434          var H.Forge.Loc on rack
6435     var RP.Gen quiver
6436     var RP.Tobac tobacco pouch
6437     # RATHA
6438     var skillrange 300-399
6439     var R.Bait pole
6440     var R.Gen quiver
6441     var R.Herb tincture jar
6442     var R.Forge sap
6443     var R.Tailor kilt
6444     var R.Leather gauntlets
6445     var R.Hair razor
6446     var R.Music lyre
6447     var R.Magic cambrinth ring
6448     var R.Origami bird instructions
6449          var R.Origami.LOC
6450     var R.Jewelry collar
6451     var R.Cleric oil
6452     var R.Cleric2 <nothing>
6453     var R.Ring <nothing>
6454     # AESRY SURLAENIS'A
6455     var skillrange 300-399
6456     var A.Herb seolarn weed
6457     var A.Tanner potion
6458     var A.Clothing doublet
6459     var A.Script canvas scroll
6460     var A.Cleric armband
6461     var A.Origami blue paper
6462     var A.Jewelry haedor
6463     var A.Magic cube
6464     var A.Slings needle arrows
6465     var A.Puzzle rings
6466     var A.Footwear spidersilk stockings
6467     var A.Shields kite shield
6468     var A.Weapon garz
6469     var A.Armor chausses
6470     var A.Gen lantern
6471     var A.Flower pillow
6472     var A.Music drum pouch
6473     gosub ITEM.COUNT3
6474     RETURN
6475##################################
6476# SKILLS 400-499
6477##################################
6478CLASS9:
6479     ## THEREN
6480     var skillrange 400-499
6481     var T.Tarsha houppelande
6482     var T.Rose cloak
6483     var T.Music harp case
6484          var T.Music.Num
6485     var T.Hats head-dress
6486     var T.Arm leather sheath
6487     var T.Gift throwing dagger
6488     var T.Sweet cake
6489     var T.Cupcake cupcake
6490     var T.Gen backsheath
6491     var T.Krrish bone
6492     var T.Lense bone ring
6493     var T.Cleric mobar blood
6494     var T.Men trousers
6495     var T.Women <nothing>
6496     var T.Cloth suspenders
6497     var T.Armory quiver
6498     var T.Forge hilt
6499     ## HAVEN
6500     var skillrange 400-499
6501     var RH.Herb ithor potion
6502     var RH.Iron steel greaves
6503     var RH.Naph naphtha
6504          var RH.Naph.Loc on cart
6505     var RH.Flow velvet rose
6506     var RH.Seli aventail
6507     var RH.Arms sword
6508     var RH.Gen stove
6509     var RH.Cloth gown
6510     var RH.Artif cambrinth ring
6511     var RH.Joy troll
6512     var RH.Smoke baron tobacco
6513     var RH.Weap goat-head mace
6514     var RH.Bard boots
6515     var RH.Bard2 amulet
6516     var RH.Cleric pomander
6517     var RH.Cleric2 wood shaper
6518     var RH.Lock slim lockpick
6519     var RH.Tog linen shirt
6520     var RH.Tog2 <nothing>
6521     var RH.Mirg toe-bells
6522     # ARTHE DALE
6523     var skillrange 400-499
6524     var AD.Smoke whiskey cigar
6525     var AD.Thread pattern
6526     var AD.Fash overall
6527     var AD.Odds monocle
6528     var AD.Bard peri'el's song
6529     var AD.Map map
6530     var AD.Arm breastplate
6531     var AD.Feta biscuit
6532          var AD.FETA.Loc
6533     var AD.Tart.E tart
6534     var AD.Tart.C tart
6535     var AD.Tart.M tart
6536     var AD.Tart.L tart
6537     var AD.Tart.F tart
6538     var KA.Grek barrel
6539     # CROSSINGS
6540     var skillrange 400-499
6541     var C.Alch stove
6542     var C.Arm bascinet
6543     var C.Artif orb
6544     var C.Bath towel
6545          var C.Bath.Num second
6546          var C.Bath.Loc on rack
6547     var C.Card case
6548     var C.Gen portable stove
6549     var C.Weap light crossbow
6550     var C.Music case of silver
6551     var C.Music2 bohdran
6552     var C.Lock lockpick ring
6553     var C.Empath silk shirt
6554          var C.Empath.Alt broadsword
6555     var C.Empath2 silver chart
6556     var C.Empath3 petal
6557          var C.Empath3.Loc on case
6558          var C.Empath3.Alt bandage
6559     var C.Cler silver bell
6560     var C.Cler2 burlap sack
6561     var C.Haber tail coat
6562     var C.Script satchel
6563          var C.Script.Num second
6564     var C.Tann potion
6565          var C.Tann.Loc in catalog
6566     var C.Jewel diamond engagement ring
6567     var C.Stitch long coat
6568     var C.Cobb hip boots
6569     var C.Herb ithor potion
6570     var C.Flow boutonniere
6571     # LETH DERIEL
6572     var skillrange 400-499
6573     var L.Skin blood wolf pelt
6574     var L.Bow composite bow
6575     var L.Orig origami case
6576          var L.Orig.Num fifth
6577     var L.Weap hide shield
6578     var L.Wick willow backpack
6579     var L.Bard silverwood mirliton
6580     var L.Bard2 hat
6581     var L.Cloth silk jaque
6582     var L.Wood apple
6583     var L.Gen mesh backpack
6584          var L.Gen.Alt ankle sheath
6585     var L.Perf venom oil
6586     # SHARD
6587     var skillrange 400-499
6588     var S.Gen backtube
6589     var S.Weap oben
6590     var S.Cleric mobar blood
6591     var S.Stitch gown
6592     var S.Alch stove
6593     var S.Herb ithor potion
6594     var S.Artif belradi potion
6595     var S.Music gittern
6596     var S.Armor balaclava
6597     var S.Reed thigh bag
6598          var S.Reed.Num
6599     var S.Museum black slippers
6600     var S.Bow short bow
6601     var S.Lock signet ring
6602     var S.Coin coin case
6603          var S.Coin.Loc on table
6604     var S.Frill doll
6605     var S.Herald ordinary shield
6606          var S.Herald.Loc on rack
6607     var S.Gift doll
6608          var S.Gift.Loc
6609     var S.Toy marionette
6610          var S.Toy.Loc on lion
6611     var S.Memory pin
6612		var S.Memory.Num second
6613     var S.Token token
6614     var S.Barber walnut razor
6615     var S.Tanner potion
6616     var S.Surv poncho
6617          var S.Surv.Loc
6618          var S.Surv.Alt steel dagger
6619     var S.Surv2 razor-tipped arrows
6620          var S.Surv2.Loc
6621          var S.Surv2.Alt broad-barbed arrows
6622     var S.Spire tabard
6623     # HIB AND RAVEN'S POINT
6624     var skillrange 400-499
6625     var SC.Weap adze
6626     var H.Shield medium shield
6627     var H.Jewel necklace
6628     var H.Tog robe
6629     var H.Herb lujeakave elixir
6630     var H.Sund broadsword
6631     var H.Lamp dragon lamp
6632     var H.Music bagpipe
6633     var H.Alch bucket
6634     var H.Forge zinc bar
6635          var H.Forge.Loc on tab
6636     var RP.Gen hammer
6637     var RP.Tobac tobacco pouch
6638     # RATHA
6639     var skillrange 400-499
6640     var R.Bait <nothing>
6641     var R.Gen quiver
6642     var R.Herb portable stove
6643     var R.Forge poignard
6644     var R.Tailor tunic
6645     var R.Leather gloves
6646     var R.Hair razor
6647     var R.Music repair kit
6648     var R.Magic naphtha
6649     var R.Origami primer
6650          var R.Origami.LOC
6651     var R.Jewelry wedding band
6652     var R.Cleric mobar blood
6653     var R.Cleric2 <nothing>
6654     var R.Ring <nothing>
6655     # AESRY SURLAENIS'A
6656     var skillrange 400-499
6657     var A.Herb ithor potion
6658     var A.Tanner pattern
6659     var A.Clothing trousers
6660     var A.Script parchment
6661     var A.Cleric mobar blood
6662     var A.Origami yak instructions
6663     var A.Jewelry ring
6664     var A.Magic marble
6665     var A.Slings wool sling
6666     var A.Puzzle bunny
6667     var A.Footwear clogs
6668     var A.Shields kite shield
6669     var A.Weapon telek
6670     var A.Armor chausses
6671     var A.Gen lantern
6672     var A.Flower pillow
6673     var A.Music syrinx
6674     gosub ITEM.COUNT3
6675     RETURN
6676##################################
6677# SKILLS 500-599
6678##################################
6679CLASS10:
6680     ## THEREN
6681     var skillrange 500-599
6682     var T.Tarsha houppelande
6683     var T.Rose cloak
6684     var T.Music harp case
6685          var T.Music.Num
6686     var T.Hats head-dress
6687     var T.Arm leather sheath
6688     var T.Gift throwing dagger
6689     var T.Sweet cake
6690     var T.Cupcake cupcake
6691     var T.Gen backsheath
6692     var T.Krrish bone
6693     var T.Lense bone ring
6694     var T.Cleric mobar blood
6695     var T.Men trousers
6696     var T.Women dark veil
6697     var T.Cloth suspenders
6698     var T.Armory quiver
6699     var T.Forge hilt
6700     ## HAVEN
6701     var skillrange 500-599
6702     var RH.Herb ithor potion
6703     var RH.Iron chain helm
6704     var RH.Naph naphtha
6705          var RH.Naph.Loc on cart
6706     var RH.Flow velvet rose
6707     var RH.Seli skull helm
6708     var RH.Arms longsword
6709     var RH.Gen stove
6710     var RH.Cloth gown
6711     var RH.Artif potion
6712     var RH.Joy troll
6713     var RH.Smoke baron tobacco
6714     var RH.Weap goat-head mace
6715     var RH.Bard silk trews
6716     var RH.Bard2 spirit earrings
6717     var RH.Cleric pomander
6718     var RH.Cleric2 pendant
6719     var RH.Lock slim lockpick
6720     var RH.Tog slippers
6721     var RH.Tog2 leggings
6722     var RH.Mirg silk fan
6723     # ARTHE DALE
6724     var skillrange 500-599
6725     var AD.Smoke whiskey cigar
6726     var AD.Thread pattern
6727     var AD.Fash overall
6728     var AD.Odds monocle
6729     var AD.Bard peri'el's song
6730     var AD.Map map
6731     var AD.Arm leather coat
6732     var AD.Feta biscuit
6733          var AD.FETA.Loc
6734     var AD.Tart.E tart
6735     var AD.Tart.C tart
6736     var AD.Tart.M tart
6737     var AD.Tart.L tart
6738     var AD.Tart.F tart
6739     var KA.Grek barrel
6740     # CROSSINGS
6741     var skillrange 500-599
6742     var C.Alch bucket
6743     var C.Arm chain tasset
6744     var C.Artif urn
6745     var C.Bath towel
6746          var C.Bath.Num fourth
6747          var C.Bath.Loc on rack
6748     var C.Card case
6749     var C.Gen portable stove
6750     var C.Weap light crossbow
6751     var C.Music case of silver
6752     var C.Music2 tapani
6753     var C.Lock lockpick ring
6754     var C.Empath silk shirt
6755          var C.Empath.Alt targe
6756     var C.Empath2 silver chart
6757     var C.Empath3 journal
6758          var C.Empath3.Loc on shelf
6759          var C.Empath3.Alt medallion
6760     var C.Cler silver bell
6761     var C.Cler2 armband
6762     var C.Haber tail coat
6763     var C.Script satchel
6764          var C.Script.Num first
6765     var C.Tann potion
6766          var C.Tann.Loc in catalog
6767     var C.Jewel diamond engagement ring
6768     var C.Stitch long coat
6769     var C.Cobb hip boots
6770     var C.Herb ithor potion
6771     var C.Flow boutonniere
6772     # LETH DERIEL
6773     var skillrange 500-599
6774     var L.Skin blood wolf pelt
6775     var L.Bow heavy crossbow
6776     var L.Orig origami case
6777          var L.Orig.Num fifth
6778     var L.Weap hide shield
6779     var L.Wick willow backpack
6780     var L.Bard silverwood mirliton
6781     var L.Bard2 hat
6782     var L.Cloth silk jaque
6783     var L.Wood caravan
6784     var L.Gen mesh backpack
6785          var L.Gen.Alt ankle sheath
6786     var L.Perf venom oil
6787     # SHARD
6788     var skillrange 500-599
6789     var S.Gen light crossbow
6790     var S.Weap oben
6791     var S.Cleric mobar blood
6792     var S.Stitch gown
6793     var S.Alch stove
6794     var S.Herb ithor potion
6795     var S.Artif belradi potion
6796     var S.Music gittern
6797     var S.Armor balaclava
6798     var S.Reed skirt
6799          var S.Reed.Num sixth
6800     var S.Museum black slippers
6801     var S.Bow light crossbow
6802     var S.Lock signet ring
6803     var S.Coin coin case
6804          var S.Coin.Loc on table
6805     var S.Frill doll
6806     var S.Herald ordinary shield
6807          var S.Herald.Loc on rack
6808     var S.Gift doll
6809          var S.Gift.Loc
6810     var S.Toy marionette
6811          var S.Toy.Loc on lion
6812     var S.Memory wrap
6813		var S.Memory.Num
6814     var S.Token token
6815     var S.Barber walnut razor
6816     var S.Tanner potion
6817     var S.Surv wool poncho
6818          var S.Surv.Loc
6819          var S.Surv.Alt thigh quiver
6820     var S.Surv2 chunenguti
6821          var S.Surv2.Loc on stand
6822          var S.Surv2.Alt longbow
6823      var S.Spire tabard
6824     # HIB AND RAVEN'S POINT
6825     var skillrange 500-599
6826     var SC.Weap adze
6827     var H.Shield medium shield
6828     var H.Jewel necklace
6829     var H.Tog robe
6830     var H.Herb lujeakave elixir
6831     var H.Sund envelope
6832     var H.Lamp dragon lamp
6833     var H.Music bagpipe
6834     var H.Alch bucket
6835     var H.Forge zinc bar
6836          var H.Forge.Loc on tab
6837     var RP.Gen hammer
6838     var RP.Tobac <nothing>
6839     # RATHA
6840     var skillrange 500-599
6841     var R.Bait <nothing>
6842     var R.Gen quiver
6843     var R.Herb bucket
6844     var R.Forge handaxe
6845     var R.Tailor tartan skirt
6846     var R.Leather boots
6847     var R.Hair razor
6848     var R.Music repair kit
6849     var R.Magic potion
6850     var R.Origami case
6851          var R.Origami.LOC
6852     var R.Jewelry pectoral
6853     var R.Cleric mobar blood
6854     var R.Cleric2 crystal vial
6855     var R.Ring <nothing>
6856     # AESRY SURLAENIS'A
6857     var skillrange 500-599
6858     var A.Herb bucket
6859     var A.Tanner potion
6860     var A.Clothing robe
6861     var A.Script parchment
6862     var A.Cleric thumb ring
6863     var A.Origami case
6864     var A.Jewelry pilonu
6865     var A.Magic marble
6866     var A.Slings crossbow
6867     var A.Puzzle box
6868     var A.Footwear harness
6869     var A.Shields oval shield
6870     var A.Weapon kasai
6871     var A.Armor coif
6872     var A.Gen lantern
6873     var A.Flower pillow
6874     var A.Music drum
6875     gosub ITEM.COUNT3
6876     RETURN
6877##################################
6878# SKILLS 600-699
6879##################################
6880CLASS11:
6881     ## THEREN
6882     var skillrange 600-699
6883     var T.Tarsha brocade bilaud
6884     var T.Rose woolen cloak
6885     var T.Music ebony harp
6886          var T.Music.Num
6887     var T.Hats head-dress
6888     var T.Arm leather sheath
6889     var T.Gift pyramid
6890     var T.Sweet cake
6891     var T.Cupcake cupcake
6892     var T.Gen towel
6893     var T.Krrish bones
6894     var T.Lense telescope
6895     var T.Cleric mobar blood
6896     var T.Men vest
6897     var T.Women dark veil
6898     var T.Cloth cane
6899     var T.Armory longsword
6900     var T.Forge hilt
6901     ## HAVEN
6902     var skillrange 600-699
6903     var RH.Herb ithor potion
6904     var RH.Iron ring mail
6905     var RH.Naph naphtha
6906          var RH.Naph.Loc on cart
6907     var RH.Flow velvet rose
6908     var RH.Seli skull helm
6909     var RH.Arms longsword
6910     var RH.Gen stove
6911     var RH.Cloth gown
6912     var RH.Artif potion
6913     var RH.Joy troll
6914     var RH.Smoke baron tobacco
6915     var RH.Weap goat-head mace
6916     var RH.Bard silk trews
6917     var RH.Bard2 spirit earrings
6918     var RH.Cleric pomander
6919     var RH.Cleric2 wood shaper
6920     var RH.Lock slim lockpick
6921     var RH.Tog gown
6922     var RH.Tog2 leggings
6923     var RH.Mirg belt
6924     # ARTHE DALE
6925     var skillrange 600-699
6926     var AD.Smoke whiskey cigar
6927     var AD.Thread thief pattern
6928     var AD.Fash overall
6929     var AD.Odds monocle
6930     var AD.Bard peri'el's song
6931     var AD.Map map
6932     var AD.Arm leather coat
6933     var AD.Feta biscuit
6934          var AD.FETA.Loc
6935     var AD.Tart.E tart
6936     var AD.Tart.C tart
6937     var AD.Tart.M tart
6938     var AD.Tart.L tart
6939     var AD.Tart.F tart
6940     var KA.Grek barrel
6941     # CROSSINGS
6942     var skillrange 600-699
6943     var C.Alch bucket
6944     var C.Arm chain shirt
6945     var C.Artif urn
6946     var C.Bath towel
6947          var C.Bath.Num fourth
6948          var C.Bath.Loc on rack
6949     var C.Card case
6950     var C.Gen portable stove
6951     var C.Weap greataxe
6952     var C.Music case of silver
6953     var C.Music2 tapani
6954     var C.Lock lockpick ring
6955     var C.Empath leather boots
6956          var C.Empath.Alt targe
6957     var C.Empath2 silver chart
6958     var C.Empath3 band
6959          var C.Empath3.Loc
6960          var C.Empath3.Alt medallion
6961     var C.Cler silver bell
6962     var C.Cler2 armband
6963     var C.Haber tail coat
6964     var C.Script satchel
6965          var C.Script.Num first
6966     var C.Tann potion
6967          var C.Tann.Loc in catalog
6968     var C.Jewel diamond wedding ring
6969     var C.Stitch long coat
6970     var C.Cobb hip boots
6971     var C.Herb ithor potion
6972     var C.Flow velvet rose
6973     # LETH DERIEL
6974     var skillrange 600-699
6975     var L.Skin blood wolf pelt
6976     var L.Bow heavy crossbow
6977     var L.Orig origami case
6978          var L.Orig.Num fifth
6979     var L.Weap hide shield
6980     var L.Wick willow backpack
6981     var L.Bard silverwood mirliton
6982     var L.Bard2 hat
6983     var L.Cloth silk jaque
6984     var L.Wood caravan
6985     var L.Gen mesh backpack
6986          var L.Gen.Alt ankle sheath
6987     var L.Perf venom oil
6988     # SHARD
6989     var skillrange 600-699
6990     var S.Gen great helm
6991     var S.Weap cutlass
6992     var S.Cleric mobar blood
6993     var S.Stitch gown
6994     var S.Alch stove
6995     var S.Herb ithor potion
6996     var S.Artif cambrinth ring
6997     var S.Music case of gold
6998     var S.Armor great helm
6999     var S.Reed skirt
7000          var S.Reed.Num fourth
7001     var S.Museum blouse
7002     var S.Bow light crossbow
7003     var S.Lock diamondique lockpick
7004     var S.Coin coin case
7005          var S.Coin.Loc on table
7006     var S.Frill doll
7007     var S.Herald medium buckler
7008          var S.Herald.Loc on rack
7009     var S.Gift earring
7010          var S.Gift.Loc
7011     var S.Toy marionette
7012          var S.Toy.Loc on lion
7013     var S.Memory wrap
7014		var S.Memory.Num
7015     var S.Token token
7016     var S.Barber walnut razor
7017     var S.Tanner potion
7018     var S.Surv thigh quiver
7019          var S.Surv.Loc
7020          var S.Surv.Alt canvas pack
7021     var S.Surv2 longbow
7022          var S.Surv2.Loc on stand
7023          var S.Surv2.Alt chunenguti
7024      var S.Spire tabard
7025     # HIB AND RAVEN'S POINT
7026     var skillrange 600-699
7027     var SC.Weap adze
7028     var H.Shield medium shield
7029     var H.Jewel necklace
7030     var H.Tog robe
7031     var H.Herb lujeakave elixir
7032     var H.Sund envelope
7033     var H.Lamp dragon lamp
7034     var H.Music bagpipe
7035     var H.Alch bucket
7036     var H.Forge zinc bar
7037          var H.Forge.Loc on tab
7038     var RP.Gen hammer
7039     var RP.Tobac tobacco pouch
7040     # RATHA
7041     var skillrange 600-699
7042     var R.Bait <nothing>
7043     var R.Gen quiver
7044     var R.Herb bucket
7045     var R.Forge handaxe
7046     var R.Tailor tartan skirt
7047     var R.Leather boots
7048     var R.Hair razor
7049     var R.Music repair kit
7050     var R.Magic potion
7051     var R.Origami case
7052          var R.Origami.LOC
7053     var R.Jewelry pectoral
7054     var R.Cleric mobar blood
7055     var R.Cleric2 crystal vial
7056     var R.Ring <nothing>
7057     # AESRY SURLAENIS'A
7058     var skillrange 600-699
7059     var A.Herb bucket
7060     var A.Tanner potion
7061     var A.Clothing robe
7062     var A.Script parchment
7063     var A.Cleric thumb ring
7064     var A.Origami case
7065     var A.Jewelry pilonu
7066     var A.Magic marble
7067     var A.Slings crossbow
7068     var A.Puzzle box
7069     var A.Footwear harness
7070     var A.Shields oval shield
7071     var A.Weapon kasai
7072     var A.Armor coif
7073     var A.Gen lantern
7074     var A.Flower flask
7075     var A.Music drum
7076     gosub ITEM.COUNT4
7077     RETURN
7078##################################
7079# SKILLS 700-799
7080##################################
7081CLASS12:
7082     # THEREN
7083     var skillrange 700-799
7084     var T.Tarsha brocade bilaud
7085     var T.Rose woolen cloak
7086     var T.Music ebony harp
7087          var T.Music.Num
7088     var T.Hats head-dress
7089     var T.Arm leather sheath
7090     var T.Gift pyramid
7091     var T.Sweet cake
7092     var T.Cupcake cupcake
7093     var T.Gen towel
7094     var T.Krrish bones
7095     var T.Lense telescope
7096     var T.Cleric mobar blood
7097     var T.Men vest
7098     var T.Women dark veil
7099     var T.Cloth cane
7100     var T.Armory longsword
7101     var T.Forge hilt
7102     # HAVEN
7103     var skillrange 700-799
7104     var RH.Herb ithor potion
7105     var RH.Iron chain shirt
7106     var RH.Naph naphtha
7107          var RH.Naph.Loc on cart
7108     var RH.Flow velvet rose
7109     var RH.Seli skull helm
7110     var RH.Arms spear
7111     var RH.Gen stove
7112     var RH.Cloth gown
7113     var RH.Artif cambrinth orb
7114     var RH.Joy troll
7115     var RH.Smoke barons choice
7116     var RH.Weap mattock
7117     var RH.Bard mantle
7118     var RH.Bard2 spirit earrings
7119     var RH.Cleric pomander
7120     var RH.Cleric2 cambrinth ring
7121     var RH.Lock slim lockpick
7122     var RH.Tog gown
7123     var RH.Tog2 thumb ring
7124     var RH.Mirg chain anklet
7125     var RH.Lock slim lockpick
7126     # ARTHE DALE
7127     var skillrange 700-799
7128     var AD.Smoke whiskey cigar
7129     var AD.Thread thief pattern
7130     var AD.Fash overall
7131     var AD.Odds ribbon
7132     var AD.Bard peri'el's song
7133     var AD.Map map
7134     var AD.Arm ring mail
7135     var AD.Feta biscuit
7136          var AD.FETA.Loc
7137     var AD.Tart.E tart
7138     var AD.Tart.C tart
7139     var AD.Tart.M tart
7140     var AD.Tart.L tart
7141     var AD.Tart.F tart
7142     var KA.Grek barrel
7143     # CROSSINGS
7144     var skillrange 700-799
7145     var C.Alch bucket
7146     var C.Arm scale shirt
7147     var C.Artif urn
7148     var C.Bath towel
7149          var C.Bath.Num second
7150          var C.Bath.Loc on rack
7151     var C.Card case
7152     var C.Gen portable stove
7153     var C.Weap greataxe
7154     var C.Music case of silver
7155     var C.Music2 tapani
7156     var C.Lock lockpick ring
7157     var C.Empath silk shirt
7158          var C.Empath.Alt broadsword
7159     var C.Empath2 silver chart
7160     var C.Empath3 band
7161          var C.Empath3.Loc
7162          var C.Empath3.Alt medallion
7163     var C.Cler silver bell
7164     var C.Cler2 armband
7165     var C.Haber tail coat
7166     var C.Script satchel
7167          var C.Script.Num first
7168     var C.Tann potion
7169          var C.Tann.Loc in catalog
7170     var C.Jewel diamond wedding ring
7171     var C.Stitch long coat
7172     var C.Cobb hip boots
7173     var C.Herb ithor potion
7174     var C.Flow velvet rose
7175     # LETH DERIEL
7176     var skillrange 700-799
7177     var L.Skin blood wolf pelt
7178     var L.Bow heavy crossbow
7179          var L.Orig.Num fifth
7180     var L.Orig case
7181     var L.Weap hide shield
7182     var L.Wick willow backpack
7183     var L.Bard silverwood mirliton
7184     var L.Bard2 hat
7185     var L.Cloth silk jaque
7186     var L.Wood caravan
7187     var L.Gen mesh backpack
7188          var L.Gen.Alt ankle sheath
7189     var L.Perf venom oil
7190     # SHARD
7191     var skillrange 700-799
7192     var S.Gen leather armor
7193     var S.Weap blade
7194     var S.Cleric mobar blood
7195     var S.Stitch gown
7196     var S.Alch bucket
7197     var S.Herb ithor potion
7198     var S.Artif celestite runestone
7199     var S.Music case
7200     var S.Armor great helm
7201     var S.Reed skirt
7202          var S.Reed.Num fourth
7203     var S.Museum earring
7204     var S.Bow silverwillow crossbow
7205     var S.Lock diamondique lockpick
7206     var S.Coin coin case
7207          var S.Coin.Loc on table
7208     var S.Frill doll
7209     var S.Herald oval shield
7210          var S.Herald.Loc on rack
7211     var S.Gift doll
7212          var S.Gift.Loc
7213     var S.Toy marionette
7214          var S.Toy.Loc on lion
7215     var S.Memory wrap
7216		var S.Memory.Num
7217     var S.Token token
7218     var S.Barber walnut razor
7219     var S.Tanner pelt potion
7220     var S.Surv cap
7221          var S.Surv.Loc
7222          var S.Surv.Alt cowl
7223     var S.Surv2 chunenguti
7224          var S.Surv2.Loc on stand
7225          var S.Surv2.Alt longbow
7226      var S.Spire armband
7227     # HIB AND RAVEN'S POINT
7228     var skillrange 700-799
7229     var SC.Weap adze
7230     var H.Shield medium shield
7231     var H.Jewel necklace
7232     var H.Tog robe
7233     var H.Herb lujeakave elixir
7234     var H.Sund envelope
7235     var H.Lamp dragon lamp
7236     var H.Music bagpipe
7237     var H.Alch bucket
7238     var H.Forge zinc bar
7239          var H.Forge.Loc on tab
7240     var RP.Gen hammer
7241     var RP.Tobac tobacco pouch
7242     # RATHA
7243     var skillrange 700-799
7244     var R.Bait <nothing>
7245     var R.Gen broadsword
7246     var R.Herb bucket
7247     var R.Forge jambaya
7248     var R.Tailor tartan skirt
7249     var R.Leather zombie mask
7250     var R.Hair razor
7251     var R.Music cittern
7252     var R.Magic charm
7253     var R.Origami case
7254          var R.Origami.LOC
7255     var R.Jewelry pectoral
7256     var R.Cleric mobar blood
7257     var R.Cleric2 crystal vial
7258     var R.Ring ironwood ring
7259     # AESRY SURLAENIS'A
7260     var skillrange 700-799
7261     var A.Herb bucket
7262     var A.Tanner potion
7263     var A.Clothing robe
7264     var A.Script parchment
7265     var A.Cleric chalice
7266     var A.Origami case
7267     var A.Jewelry pilonu
7268     var A.Magic marble
7269     var A.Slings crossbow
7270     var A.Puzzle box
7271     var A.Footwear thigh-boots
7272     var A.Shields oval shield
7273     var A.Weapon kasai
7274     var A.Armor coif
7275     var A.Gen lantern
7276     var A.Flower vial
7277     var A.Music drum
7278     gosub ITEM.COUNT4
7279     RETURN
7280##################################
7281# SKILLS 800-899
7282##################################
7283CLASS13:
7284     # THEREN
7285     var skillrange 800-899
7286     var T.Tarsha brocade bilaud
7287     var T.Rose woolen cloak
7288     var T.Music ebony harp
7289          var T.Music.Num
7290     var T.Hats head-dress
7291     var T.Arm chain handguards
7292     var T.Gift pyramid
7293     var T.Gen towel
7294     var T.Sweet cake
7295     var T.Cupcake cupcake
7296     var T.Krrish bowl
7297     var T.Lense telescope
7298     var T.Cleric mobar blood
7299     var T.Men vest
7300     var T.Women dark veil
7301     var T.Cloth cane
7302     var T.Armory longsword
7303     var T.Forge hilt
7304     # HAVEN
7305     var skillrange 800-899
7306     var RH.Herb ithor potion
7307     var RH.Iron chain shirt
7308     var RH.Naph naphtha
7309          var RH.Naph.Loc on cart
7310     var RH.Flow velvet rose
7311     var RH.Seli sheepskin robe
7312     var RH.Arms spear
7313     var RH.Gen portable stove
7314     var RH.Cloth gown
7315     var RH.Artif cambrinth orb
7316     var RH.Joy troll
7317     var RH.Smoke barons choice
7318     var RH.Weap mattock
7319     var RH.Bard mantle
7320     var RH.Bard2 spirit tailband
7321     var RH.Cleric pomander
7322     var RH.Cleric2 cambrinth ring
7323     var RH.Tog gown
7324     var RH.Tog2 thumb ring
7325     var RH.Mirg chain anklet
7326     var RH.Lock slim lockpick
7327     # ARTHE DALE
7328     var skillrange 800-899
7329     var AD.Smoke whiskey cigar
7330     var AD.Thread thief pattern
7331     var AD.Fash overall
7332     var AD.Odds ribbon
7333     var AD.Bard peri'el's song
7334     var AD.Map map
7335     var AD.Arm ring mail
7336     var AD.Feta biscuit
7337          var AD.FETA.Loc
7338     var AD.Tart.E tart
7339     var AD.Tart.C tart
7340     var AD.Tart.M tart
7341     var AD.Tart.L tart
7342     var AD.Tart.F tart
7343     var KA.Grek barrel
7344     # CROSSINGS
7345     var skillrange 800-899
7346     var C.Alch bucket
7347     var C.Arm scale shirt
7348     var C.Artif urn
7349     var C.Bath towel
7350          var C.Bath.Num second
7351          var C.Bath.Loc on rack
7352     var C.Card case
7353     var C.Gen portable stove
7354     var C.Weap greathammer
7355     var C.Music case of silver
7356     var C.Music2 tapani
7357     var C.Lock lockpick ring
7358     var C.Empath silk shirt
7359          var C.Empath.Alt broadsword
7360     var C.Empath2 silver chart
7361     var C.Empath3 cebi root
7362          var C.Empath3.Loc
7363          var C.Empath3.Alt medallion
7364     var C.Cler silver bell
7365     var C.Cler2 armband
7366     var C.Haber tail coat
7367     var C.Script satchel
7368          var C.Script.Num fourth
7369     var C.Tann potion
7370          var C.Tann.Loc in catalog
7371     var C.Jewel diamond wedding ring
7372     var C.Stitch long coat
7373     var C.Cobb hip boots
7374     var C.Herb ithor potion
7375     var C.Flow velvet rose
7376     # LETH DERIEL
7377     var skillrange 800-899
7378     var L.Skin blood wolf pelt
7379     var L.Bow heavy crossbow
7380          var L.Orig.Num fifth
7381     var L.Orig case
7382     var L.Weap takouba
7383     var L.Wick willow backpack
7384     var L.Bard silverwood mirliton
7385     var L.Bard2 hat
7386     var L.Cloth silk jaque
7387     var L.Wood caravan
7388     var L.Gen mesh backpack
7389          var L.Gen.Alt ankle sheath
7390     var L.Perf venom oil
7391     # SHARD
7392     var skillrange 800-899
7393     var S.Gen leather armor
7394     var S.Weap blade
7395     var S.Cleric mobar blood
7396     var S.Stitch gown
7397     var S.Alch bucket
7398     var S.Herb ithor potion
7399     var S.Artif celestite runestone
7400     var S.Music case
7401     var S.Armor great helm
7402     var S.Reed skirt
7403          var S.Reed.Num fourth
7404     var S.Museum earrings
7405     var S.Bow silverwillow crossbow
7406     var S.Lock diamondique lockpick
7407     var S.Coin coin case
7408          var S.Coin.Loc on table
7409     var S.Frill doll
7410     var S.Herald oval shield
7411          var S.Herald.Loc on rack
7412     var S.Gift doll
7413          var S.Gift.Loc
7414     var S.Toy doll
7415          var S.Toy.Loc
7416     var S.Memory wrap
7417		var S.Memory.Num
7418     var S.Token token
7419     var S.Barber walnut razor
7420     var S.Tanner pelt potion
7421     var S.Surv cap
7422          var S.Surv.Loc
7423          var S.Surv.Alt cowl
7424     var S.Surv2 chunenguti
7425          var S.Surv2.Loc on stand
7426          var S.Surv2.Alt longbow
7427     var S.Spire armband
7428     # HIB AND RAVEN'S POINT
7429     var skillrange 800-899
7430     var SC.Weap adze
7431     var H.Shield medium shield
7432     var H.Jewel necklace
7433     var H.Tog robe
7434     var H.Herb lujeakave elixir
7435     var H.Sund broadsword
7436     var H.Lamp dragon lamp
7437     var H.Music bagpipe
7438     var H.Alch bucket
7439     var H.Forge zinc bar
7440          var H.Forge.Loc on tab
7441     var RP.Gen hammer
7442     var RP.Tobac tobacco pouch
7443     # RATHA
7444     var skillrange 800-899
7445     var R.Bait <nothing>
7446     var R.Gen broadsword
7447     var R.Herb bucket
7448     var R.Forge jambaya
7449     var R.Tailor tartan skirt
7450     var R.Leather zombie mask
7451     var R.Hair razor
7452     var R.Music cittern
7453     var R.Magic charm
7454     var R.Origami case
7455          var R.Origami.LOC
7456     var R.Jewelry pectoral
7457     var R.Cleric mobar blood
7458     var R.Cleric2 prayer beads
7459     var R.Ring ironwood ring
7460     # AESRY SURLAENIS'A
7461     var skillrange 800-899
7462     var A.Herb bucket
7463     var A.Tanner potion
7464     var A.Clothing robe
7465     var A.Script parchment
7466     var A.Cleric chalice
7467     var A.Origami case
7468     var A.Jewelry pilonu
7469     var A.Magic marble
7470     var A.Slings crossbow
7471     var A.Puzzle box
7472     var A.Footwear thigh-boots
7473     var A.Shields oval shield
7474     var A.Weapon kasai
7475     var A.Armor coif
7476     var A.Gen lantern
7477     var A.Flower vial
7478     var A.Music drum
7479     gosub ITEM.COUNT5
7480     RETURN
7481##################################
7482# SKILLS 900-999
7483##################################
7484CLASS14:
7485     # THEREN
7486     var skillrange 900-999
7487     var T.Tarsha brocade bilaud
7488     var T.Rose woolen cloak
7489     var T.Music ebony harp
7490          var T.Music.Num
7491     var T.Hats head-dress
7492     var T.Arm chain handguards
7493     var T.Gift pyramid
7494     var T.Gen towel
7495     var T.Sweet cake
7496     var T.Cupcake cupcake
7497     var T.Krrish bowl
7498     var T.Lense telescope
7499     var T.Cleric mobar blood
7500     var T.Men tunic
7501     var T.Women dark veil
7502     var T.Cloth gold cufflinks
7503     var T.Armory pick
7504     var T.Forge hilt
7505     # HAVEN
7506     var skillrange 900-999
7507     var RH.Herb ithor potion
7508     var RH.Iron chain shirt
7509     var RH.Naph naphtha
7510          var RH.Naph.Loc on cart
7511     var RH.Flow velvet rose
7512     var RH.Seli sheepskin robe
7513     var RH.Arms flamberge
7514     var RH.Gen portable stove
7515     var RH.Cloth gown
7516     var RH.Artif cambrinth orb
7517     var RH.Joy troll
7518     var RH.Smoke barons choice
7519     var RH.Weap lucerne hammer
7520     var RH.Bard mantle
7521     var RH.Bard2 spirit tailband
7522     var RH.Cleric pomander
7523     var RH.Cleric2 cambrinth ring
7524     var RH.Tog gown
7525     var RH.Tog2 thumb ring
7526     var RH.Mirg chainmail belt
7527     var RH.Lock slim lockpick
7528     # ARTHE DALE
7529     var skillrange 900-999
7530     var AD.Smoke whiskey cigar
7531     var AD.Thread thief pattern
7532     var AD.Fash overall
7533     var AD.Odds ribbon
7534     var AD.Bard peri'el's song
7535     var AD.Map map
7536     var AD.Arm ring mail
7537     var AD.Feta biscuit
7538          var AD.FETA.Loc
7539     var AD.Tart.E tart
7540     var AD.Tart.C tart
7541     var AD.Tart.M tart
7542     var AD.Tart.L tart
7543     var AD.Tart.F tart
7544     var KA.Grek barrel
7545     # CROSSINGS
7546     var skillrange 900-999
7547     var C.Alch bucket
7548     var C.Arm plate fauld
7549     var C.Artif urn
7550     var C.Bath towel
7551          var C.Bath.Num second
7552          var C.Bath.Loc on rack
7553     var C.Card case
7554     var C.Gen portable stove
7555     var C.Weap greathammer
7556     var C.Music case of silver
7557     var C.Music2 tapani
7558     var C.Lock lockpick ring
7559     var C.Empath silk shirt
7560          var C.Empath.Alt broadsword
7561     var C.Empath2 rock chart
7562     var C.Empath3 cebi root
7563          var C.Empath3.Loc
7564          var C.Empath3.Alt medallion
7565     var C.Cler silver bell
7566     var C.Cler2 armband
7567     var C.Haber tail coat
7568     var C.Script satchel
7569          var C.Script.Num third
7570     var C.Tann potion
7571          var C.Tann.Loc in catalog
7572     var C.Jewel diamond wedding ring
7573     var C.Stitch long coat
7574     var C.Cobb hip boots
7575     var C.Herb ithor potion
7576     var C.Flow velvet rose
7577     # LETH DERIEL
7578     var skillrange 900-999
7579     var L.Skin blood wolf pelt
7580     var L.Bow heavy crossbow
7581     var L.Orig origami case
7582          var L.Orig.Num fifth
7583     var L.Weap takouba
7584     var L.Wick willow backpack
7585     var L.Bard silverwood mirliton
7586     var L.Bard2 hat
7587     var L.Cloth silk jaque
7588     var L.Wood caravan
7589     var L.Gen mesh backpack
7590          var L.Gen.Alt ankle sheath
7591     var L.Perf venom oil
7592     # SHARD
7593     var skillrange 900-999
7594     var S.Gen leather armor
7595     var S.Weap blade
7596     var S.Cleric mobar blood
7597     var S.Stitch gown
7598     var S.Alch bucket
7599     var S.Herb ithor potion
7600     var S.Artif celestite runestone
7601     var S.Music case
7602     var S.Armor great helm
7603     var S.Reed skirt
7604          var S.Reed.Num fourth
7605     var S.Museum earrings
7606     var S.Bow silverwillow crossbow
7607     var S.Lock diamondique lockpick
7608     var S.Coin coin case
7609          var S.Coin.Loc on table
7610     var S.Frill doll
7611     var S.Herald oval shield
7612          var S.Herald.Loc on rack
7613     var S.Gift doll
7614          var S.Gift.Loc
7615     var S.Toy museum globe
7616          var S.Toy.Loc on lion
7617     var S.Memory wrap
7618		var S.Memory.Num
7619     var S.Token token
7620     var S.Barber walnut razor
7621     var S.Tanner pelt potion
7622     var S.Surv mining cap
7623          var S.Surv.Loc
7624          var S.Surv.Alt mining helm
7625     var S.Surv2 chunenguti
7626          var S.Surv2.Loc on stand
7627          var S.Surv2.Alt longbow
7628     var S.Spire armband
7629     # HIB AND RAVEN'S POINT
7630     var skillrange 900-999
7631     var SC.Weap adze
7632     var H.Shield medium shield
7633     var H.Jewel necklace
7634     var H.Tog robe
7635     var H.Herb lujeakave elixir
7636     var H.Sund broadsword
7637     var H.Lamp dragon lamp
7638     var H.Music bagpipe
7639     var H.Alch bucket
7640     var H.Forge zinc bar
7641          var H.Forge.Loc on tab
7642     var RP.Gen hammer
7643     var RP.Tobac tobacco pouch
7644     # RATHA
7645     var skillrange 900-999
7646     var R.Bait <nothing>
7647     var R.Gen broadsword
7648     var R.Herb bucket
7649     var R.Forge jambaya
7650     var R.Tailor tartan skirt
7651     var R.Leather zombie mask
7652     var R.Hair razor
7653     var R.Music cittern
7654     var R.Magic charm
7655     var R.Origami case
7656          var R.Origami.LOC
7657     var R.Jewelry pectoral
7658     var R.Cleric mobar blood
7659     var R.Cleric2 prayer beads
7660     var R.Ring garnet ring
7661     # AESRY SURLAENIS'A
7662     var skillrange 900-999
7663     var A.Herb bucket
7664     var A.Tanner potion
7665     var A.Clothing robe
7666     var A.Script parchment
7667     var A.Cleric chalice
7668     var A.Origami case
7669     var A.Jewelry pilonu
7670     var A.Magic marble
7671     var A.Slings crossbow
7672     var A.Puzzle box
7673     var A.Footwear thigh-boots
7674     var A.Shields oval shield
7675     var A.Weapon kasai
7676     var A.Armor coif
7677     var A.Gen lantern
7678     var A.Flower vial
7679     var A.Music drum
7680     gosub ITEM.COUNT5
7681     RETURN
7682##################################
7683# SKILLS 1000-1200
7684##################################
7685CLASS15:
7686CLASS16:
7687CLASS17:
7688     var skillrange 1000-1200+
7689     var T.Tarsha brocade bilaud
7690     var T.Rose woolen cloak
7691     var T.Music bagpipe
7692          var T.Music.Num third
7693     var T.Hats head-dress
7694     var T.Arm chain handguards
7695     var T.Gift pyramid
7696     var T.Gen towel
7697     var T.Sweet cake
7698     var T.Cupcake cupcake
7699     var T.Krrish bowl
7700     var T.Lense telescope
7701     var T.Cleric mobar blood
7702     var T.Men tunic
7703     var T.Women dark veil
7704     var T.Cloth cane
7705     var T.Armory longsword
7706     var T.Forge hilt
7707     var skillrange 1000-1200
7708     var RH.Herb  ithor potion
7709     var RH.Iron chain shirt
7710     var RH.Naph naphtha
7711          var RH.Naph.Loc on cart
7712     var RH.Flow velvet rose
7713     var RH.Seli sheepskin robe
7714     var RH.Arms flamberge
7715     var RH.Gen portable stove
7716     var RH.Cloth gown
7717     var RH.Artif cambrinth orb
7718     var RH.Joy troll
7719     var RH.Smoke barons choice
7720     var RH.Weap lucerne hammer
7721     var RH.Bard silk mantle
7722     var RH.Bard2 knot tailband
7723     var RH.Cleric pomander
7724     var RH.Cleric2 cambrinth ring
7725     var RH.Tog diadem
7726     var RH.Tog2 slippers
7727     var RH.Mirg charm
7728     var RH.Lock slim lockpick
7729     # ARTHE DALE
7730     var skillrange 1000-1200+
7731     var AD.Smoke whiskey cigar
7732     var AD.Thread thief pattern
7733     var AD.Fash overall
7734     var AD.Odds scarf
7735     var AD.Bard peri'el's song
7736     var AD.Map map
7737     var AD.Arm ring mail
7738     var AD.Feta biscuit
7739          var AD.FETA.Loc
7740     var AD.Tart.E tart
7741     var AD.Tart.C tart
7742     var AD.Tart.M tart
7743     var AD.Tart.L tart
7744     var AD.Tart.F tart
7745     var KA.Grek barrel
7746     # CROSSINGS
7747     var skillrange 1000-1200+
7748     var C.Alch bucket
7749     var C.Arm plate fauld
7750     var C.Artif bottle
7751     var C.Bath towel
7752          var C.Bath.Num second
7753          var C.Bath.Loc on rack
7754     var C.Card case
7755     var C.Gen portable stove
7756     var C.Weap parry stick
7757     var C.Music case of silver
7758     var C.Music2 tapani
7759     var C.Lock lockpick ring
7760     var C.Empath silk shirt
7761          var C.Empath.Alt broadsword
7762     var C.Empath2 rock chart
7763     var C.Empath3 cebi root
7764          var C.Empath3.Loc
7765          var C.Empath3.Alt medallion
7766     var C.Cler silver bell
7767     var C.Cler2 armband
7768     var C.Haber tail coat
7769     var C.Script satchel
7770          var C.Script.Num third
7771     var C.Tann potion
7772          var C.Tann.Loc in catalog
7773     var C.Jewel diamond wedding ring
7774     var C.Stitch long coat
7775     var C.Cobb hip boots
7776     var C.Herb ithor potion
7777     var C.Flow velvet rose
7778     # LETH DERIEL
7779     var skillrange 1000-1200+
7780     var L.Skin blood wolf pelt
7781     var L.Bow heavy crossbow
7782          var L.Orig.Num fifth
7783     var L.Orig case
7784     var L.Weap takouba
7785     var L.Wick willow backpack
7786     var L.Bard silverwood mirliton
7787     var L.Bard2 leather songbook
7788     var L.Cloth silk jaque
7789     var L.Wood caravan
7790     var L.Gen mesh tunic
7791          var L.Gen.Alt mesh backpack
7792     var L.Perf venom oil
7793     # SHARD
7794     var skillrange 1000-1200
7795     var S.Gen leather armor
7796     var S.Weap blade
7797     var S.Cleric mobar blood
7798     var S.Stitch gown
7799     var S.Alch bucket
7800     var S.Herb ithor potion
7801     var S.Artif celestite runestone
7802     var S.Music case
7803     var S.Armor great helm
7804     var S.Reed skirt
7805          var S.Reed.Num
7806     var S.Museum globe
7807     var S.Bow ironwood crossbow
7808     var S.Lock diamondique lockpick
7809     var S.Coin coin case
7810          var S.Coin.Loc on table
7811     var S.Frill doll
7812     var S.Herald oval shield
7813          var S.Herald.Loc on rack
7814     var S.Gift doll
7815          var S.Gift.Loc
7816     var S.Toy marionette
7817          var S.Toy.Loc on lion
7818     var S.Memory wrap
7819            var S.Memory.Num
7820     var S.Token token
7821     var S.Barber walnut razor
7822            var S.Barber.Num
7823     var S.Tanner potion
7824     var S.Surv cap
7825          var S.Surv.Loc
7826          var S.Surv.Alt cowl
7827     var S.Surv2 chunenguti
7828          var S.Surv2.Loc on stand
7829          var S.Surv2.Alt longbow
7830     var S.Spire armband
7831     # HIB AND RAVEN'S POINT
7832     var skillrange 1000-1200+
7833     var SC.Weap adze
7834     var H.Shield medium shield
7835     var H.Jewel necklace
7836     var H.Tog robe
7837     var H.Herb lujeakave elixir
7838     var H.Sund broadsword
7839     var H.Lamp dragon lamp
7840     var H.Music bagpipe
7841     var H.Alch bucket
7842     var H.Forge zinc bar
7843          var H.Forge.Loc on tab
7844     var RP.Gen hammer
7845     var RP.Tobac tobacco pouch
7846     # RATHA
7847     var skillrange 1000-1200+
7848     var R.Bait <nothing>
7849     var R.Gen broadsword
7850     var R.Herb bucket
7851     var R.Forge jambaya
7852     var R.Tailor tartan skirt
7853     var R.Leather zombie mask
7854     var R.Hair razor
7855     var R.Music cittern
7856     var R.Magic charm
7857     var R.Origami case
7858          var R.Origami.LOC
7859     var R.Jewelry pectoral
7860     var R.Cleric mobar blood
7861     var R.Cleric2 gold vial
7862     var R.Ring garnet ring
7863     # AESRY SURLAENIS'A
7864     var skillrange 1000-1200+
7865     var A.Herb bucket
7866     var A.Tanner potion
7867     var A.Clothing robe
7868     var A.Script parchment
7869     var A.Cleric chalice
7870     var A.Origami case
7871     var A.Jewelry pilonu
7872     var A.Magic marble
7873     var A.Slings crossbow
7874     var A.Puzzle box
7875     var A.Footwear thigh-boots
7876     var A.Shields oval shield
7877     var A.Weapon kasai
7878     var A.Armor coif
7879     var A.Gen lantern
7880     var A.Flower vial
7881     var A.Music drum
7882     gosub ITEM.COUNT5
7883     RETURN
7884###############################################
7885###############################################
7886# ITEM QUANTITY
7887###############################################
7888###############################################
7889########################
7890# 20-49
7891########################
7892ITEM.COUNT0:
7893     var T.TarshaQuant 1
7894     var T.RoseQuant 1
7895     var T.MusicQuant 1
7896     var T.HatsQuant 1
7897     var T.ArmQuant 1
7898     var T.GiftQuant 1
7899     var T.SweetQuant 1
7900     var T.CupcakeQuant 1
7901     var T.GenQuant 1
7902     var T.KrrishQuant 1
7903     var T.LenseQuant 1
7904     var T.ClericQuant 1
7905     var T.MenQuant 1
7906     var T.WomenQuant 1
7907     var T.ClothQuant 1
7908     var T.ArmoryQuant 1
7909     var T.ForgeQuant 1
7910
7911     var RH.HerbQuant 1
7912     var RH.IronQuant 1
7913     var RH.NaphQuant 1
7914     var RH.FlowQuant 3
7915     var RH.SeliQuant 1
7916     var RH.ArmsQuant 1
7917     var RH.GenQuant 1
7918     var RH.ClothQuant 1
7919     var RH.ArtifQuant 1
7920     var RH.JoyQuant 2
7921     var RH.SmokeQuant 1
7922     var RH.WeapQuant 1
7923     var RH.BardQuant 1
7924     var RH.Bard2Quant 1
7925     var RH.ClericQuant 1
7926     var RH.Cleric2Quant 1
7927     var RH.LockQuant 1
7928     var RH.TogQuant 1
7929     var RH.Tog2Quant 1
7930     var RH.MirgQuant 1
7931
7932     var AD.FetaQuant 1
7933     var AD.ThreadQuant 1
7934     var AD.FashQuant 1
7935     var AD.OddsQuant 1
7936     var AD.BardQuant 1
7937     var AD.MapQuant 1
7938     var AD.ArmQuant 1
7939     var AD.SmokeQuant 1
7940     var AD.Tart.EQuant 1
7941     var AD.Tart.CQuant 1
7942     var AD.Tart.MQuant 1
7943     var AD.Tart.LQuant 1
7944     var AD.Tart.FQuant 1
7945     var KA.GrekQuant 1
7946
7947     var C.AlchQuant 5
7948     var C.ArtifQuant 1
7949     var C.BathQuant 1
7950     var C.CardQuant 1
7951     var C.GenQuant 4
7952     var C.WeapQuant 1
7953     var C.ArmQuant 1
7954     var C.MusicQuant 1
7955     var C.Music2Quant 1
7956     var C.LockQuant 1
7957     var C.EmpathQuant 1
7958     var C.Empath2Quant 1
7959     var C.Empath3Quant 1
7960     var C.ClerQuant 1
7961     var C.HaberQuant 1
7962     var C.ScriptQuant 1
7963     var C.TannQuant 1
7964     var C.JewelQuant 1
7965     var C.StitchQuant 1
7966     var C.CobbQuant 1
7967     var C.HerbQuant 1
7968     var C.FlowQuant 3
7969
7970     var L.SkinQuant 1
7971     var L.BowQuant 1
7972     var L.OrigQuant 1
7973     var L.WeapQuant 1
7974     var L.WickQuant 1
7975     var L.BardQuant 1
7976     var L.Bard2Quant 1
7977     var L.ClothQuant 1
7978     var L.WoodQuant 1
7979     var L.GenQuant 1
7980     var L.PerfQuant 1
7981
7982     var S.GenQuant 1
7983     var S.WeapQuant 1
7984     var S.ClericQuant 1
7985     var S.StitchQuant 1
7986     var S.AlchQuant 1
7987     var S.HerbQuant 1
7988     var S.ArtifQuant 1
7989     var S.MusicQuant 1
7990     var S.ArmorQuant 1
7991     var S.ReedQuant 1
7992     var S.MuseumQuant 1
7993     var S.BowQuant 1
7994     var S.SpireQuant 1
7995     var S.LockQuant 1
7996     var S.CoinQuant 1
7997     var S.FrillQuant 1
7998     var S.HeraldQuant 1
7999     var S.GiftQuant 1
8000     var S.ToyQuant 1
8001     var S.MemoryQuant 1
8002     var S.TokenQuant 1
8003     var S.BarberQuant 1
8004     var S.TannerQuant 1
8005     var S.SurvQuant 1
8006     var S.Surv2Quant 1
8007     var RP.GenQuant 1
8008     var RP.TobacQuant 1
8009
8010     var SC.WeapQuant 1
8011     var H.ShieldQuant 1
8012     var H.JewelQuant 1
8013     var H.TogQuant 1
8014     var H.HerbQuant 1
8015     var H.SundQuant 1
8016     var H.LampQuant 1
8017     var H.MusicQuant 1
8018     var H.AlchQuant 1
8019     var H.ForgeQuant 1
8020     var H.GenQuant 1
8021     var H.TobacQuant 1
8022
8023     var R.BaitQuant 2
8024     var R.GenQuant 3
8025     var R.HerbQuant 5
8026     var R.ForgeQuant 1
8027     var R.TailorQuant 1
8028     var R.LeatherQuant 1
8029     var R.HairQuant 1
8030     var R.MusicQuant 1
8031     var R.MagicQuant 1
8032     var R.OrigamiQuant 1
8033     var R.JewelryQuant 1
8034     var R.ClericQuant 1
8035     var R.RingQuant 1
8036
8037     var A.HerbQuant 5
8038     var A.TannerQuant 1
8039     var A.ClothingQuant 1
8040     var A.ScriptQuant 1
8041     var A.ClericQuant 1
8042     var A.OrigamiQuant 1
8043     var A.JewelryQuant 1
8044     var A.MagicQuant 1
8045     var A.SlingsQuant 1
8046     var A.PuzzleQuant 1
8047     var A.FootwearQuant 1
8048     var A.ShieldsQuant 1
8049     var A.WeaponQuant 1
8050     var A.ArmorQuant 1
8051     var A.GenQuant 3
8052     var A.FlowerQuant 1
8053     var A.MusicQuant 1
8054     RETURN
8055########################
8056# 50-99
8057########################
8058ITEM.COUNT1:
8059     var T.TarshaQuant 1
8060     var T.RoseQuant 1
8061     var T.MusicQuant 1
8062     var T.HatsQuant 1
8063     var T.ArmQuant 1
8064     var T.GiftQuant 1
8065     var T.SweetQuant 2
8066     var T.CupcakeQuant 2
8067     var T.GenQuant 2
8068     var T.KrrishQuant 1
8069     var T.LenseQuant 1
8070     var T.ClericQuant 1
8071     var T.MenQuant 1
8072     var T.WomenQuant 1
8073     var T.ClothQuant 1
8074     var T.ArmoryQuant 1
8075     var T.ForgeQuant 1
8076
8077     var RH.HerbQuant 2
8078     var RH.IronQuant 1
8079     var RH.NaphQuant 1
8080     var RH.FlowQuant 3
8081     var RH.SeliQuant 1
8082     var RH.ArmsQuant 2
8083     var RH.GenQuant 2
8084     var RH.ClothQuant 2
8085     var RH.ArtifQuant 1
8086     var RH.JoyQuant 2
8087     var RH.SmokeQuant 2
8088     var RH.WeapQuant 1
8089     var RH.BardQuant 1
8090     var RH.Bard2Quant 1
8091     var RH.ClericQuant 2
8092     var RH.Cleric2Quant 1
8093     var RH.LockQuant 1
8094     var RH.TogQuant 1
8095     var RH.Tog2Quant 1
8096     var RH.MirgQuant 1
8097
8098     var AD.FetaQuant 2
8099     var AD.ThreadQuant 2
8100     var AD.FashQuant 2
8101     var AD.OddsQuant 2
8102     var AD.BardQuant 1
8103     var AD.MapQuant 1
8104     var AD.ArmQuant 1
8105     var AD.SmokeQuant 2
8106     var AD.Tart.EQuant 1
8107     var AD.Tart.CQuant 2
8108     var AD.Tart.MQuant 2
8109     var AD.Tart.LQuant 2
8110     var AD.Tart.FQuant 1
8111     var KA.GrekQuant 1
8112
8113     var C.AlchQuant 4
8114     var C.ArtifQuant 2
8115     var C.BathQuant 2
8116     var C.CardQuant 2
8117     var C.GenQuant 2
8118     var C.WeapQuant 2
8119     var C.ArmQuant 2
8120     var C.MusicQuant 2
8121     var C.Music2Quant 1
8122     var C.LockQuant 2
8123     var C.EmpathQuant 2
8124     var C.Empath2Quant 1
8125     var C.Empath3Quant 1
8126     var C.ClerQuant 2
8127     var C.HaberQuant 2
8128     var C.ScriptQuant 2
8129     var C.TannQuant 2
8130     var C.JewelQuant 2
8131     var C.StitchQuant 2
8132     var C.CobbQuant 2
8133     var C.HerbQuant 2
8134     var C.FlowQuant 2
8135
8136     var L.SkinQuant 2
8137     var L.BowQuant 2
8138     var L.OrigQuant 2
8139     var L.WeapQuant 2
8140     var L.WickQuant 2
8141     var L.BardQuant 2
8142     var L.Bard2Quant 2
8143     var L.ClothQuant 2
8144     var L.WoodQuant 2
8145     var L.GenQuant 2
8146     var L.PerfQuant 2
8147
8148     var S.GenQuant 2
8149     var S.WeapQuant 2
8150     var S.ClericQuant 2
8151     var S.StitchQuant 2
8152     var S.AlchQuant 2
8153     var S.HerbQuant 2
8154     var S.ArtifQuant 2
8155     var S.MusicQuant 2
8156     var S.ArmorQuant 2
8157     var S.ReedQuant 2
8158     var S.MuseumQuant 2
8159     var S.BowQuant 2
8160     var S.LockQuant 2
8161     var S.CoinQuant 2
8162     var S.FrillQuant 2
8163     var S.HeraldQuant 2
8164      var S.SpireQuant 1
8165     var S.GiftQuant 2
8166     var S.ToyQuant 2
8167     var S.MemoryQuant 2
8168     var S.TokenQuant 2
8169     var S.BarberQuant 2
8170     var S.TannerQuant 2
8171     var S.SurvQuant 2
8172     var S.Surv2Quant 2
8173     var RP.GenQuant 1
8174     var RP.TobacQuant 1
8175
8176     var SC.WeapQuant 2
8177     var H.ShieldQuant 2
8178     var H.JewelQuant 2
8179     var H.TogQuant 2
8180     var H.HerbQuant 2
8181     var H.SundQuant 2
8182     var H.LampQuant 2
8183     var H.MusicQuant 2
8184     var H.AlchQuant 2
8185     var H.ForgeQuant 2
8186     var H.GenQuant 2
8187     var H.TobacQuant 2
8188
8189     var R.BaitQuant 3
8190     var R.GenQuant 3
8191     var R.HerbQuant 2
8192     var R.ForgeQuant 1
8193     var R.TailorQuant 2
8194     var R.LeatherQuant 2
8195     var R.HairQuant 2
8196     var R.MusicQuant 2
8197     var R.MagicQuant 1
8198     var R.OrigamiQuant 2
8199     var R.JewelryQuant 1
8200     var R.ClericQuant 2
8201     var R.RingQuant 1
8202
8203     var A.HerbQuant 2
8204     var A.TannerQuant 2
8205     var A.ClothingQuant 2
8206     var A.ScriptQuant 2
8207     var A.ClericQuant 2
8208     var A.OrigamiQuant 2
8209     var A.JewelryQuant 2
8210     var A.MagicQuant 2
8211     var A.SlingsQuant 2
8212     var A.PuzzleQuant 2
8213     var A.FootwearQuant 2
8214     var A.ShieldsQuant 2
8215     var A.WeaponQuant 2
8216     var A.ArmorQuant 2
8217     var A.GenQuant 2
8218     var A.FlowerQuant 3
8219     var A.MusicQuant 2
8220     RETURN
8221########################
8222# 100-299
8223########################
8224ITEM.COUNT2:
8225     var T.TarshaQuant 2
8226     var T.RoseQuant 2
8227     var T.MusicQuant 2
8228     var T.HatsQuant 2
8229     var T.ArmQuant 2
8230     var T.GiftQuant 2
8231     var T.SweetQuant 2
8232     var T.CupcakeQuant 2
8233     var T.GenQuant 2
8234     var T.KrrishQuant 2
8235     var T.LenseQuant 2
8236     var T.ClericQuant 2
8237     var T.MenQuant 2
8238     var T.WomenQuant 2
8239     var T.ClothQuant 2
8240     var T.ArmoryQuant 2
8241     var T.ForgeQuant 2
8242
8243     var RH.HerbQuant 3
8244     var RH.IronQuant 2
8245     var RH.NaphQuant 2
8246     var RH.FlowQuant 3
8247     var RH.SeliQuant 2
8248     var RH.ArmsQuant 2
8249     var RH.GenQuant 2
8250     var RH.ClothQuant 2
8251     var RH.ArtifQuant 2
8252     var RH.JoyQuant 2
8253     var RH.SmokeQuant 2
8254     var RH.WeapQuant 2
8255     var RH.BardQuant 2
8256     var RH.Bard2Quant 2
8257     var RH.ClericQuant 2
8258     var RH.Cleric2Quant 2
8259     var RH.LockQuant 2
8260     var RH.TogQuant 2
8261     var RH.Tog2Quant 2
8262     var RH.MirgQuant 2
8263
8264     var AD.FetaQuant 3
8265     var AD.ThreadQuant 3
8266     var AD.FashQuant 2
8267     var AD.OddsQuant 2
8268     var AD.BardQuant 3
8269     var AD.MapQuant 2
8270     var AD.ArmQuant 2
8271     var AD.SmokeQuant 2
8272     var AD.Tart.EQuant 2
8273     var AD.Tart.CQuant 2
8274     var AD.Tart.MQuant 3
8275     var AD.Tart.LQuant 2
8276     var AD.Tart.FQuant 3
8277     var KA.GrekQuant 2
8278
8279     var C.AlchQuant 4
8280     var C.ArtifQuant 2
8281     var C.BathQuant 3
8282     var C.CardQuant 2
8283     var C.GenQuant 4
8284     var C.WeapQuant 3
8285     var C.ArmQuant 3
8286     var C.MusicQuant 3
8287     var C.Music2Quant 2
8288     var C.LockQuant 3
8289     var C.EmpathQuant 2
8290     var C.Empath2Quant 2
8291     var C.Empath3Quant 2
8292     var C.ClerQuant 3
8293     var C.HaberQuant 4
8294     var C.ScriptQuant 2
8295     var C.TannQuant 3
8296     var C.JewelQuant 3
8297     var C.StitchQuant 3
8298     var C.CobbQuant 3
8299     var C.HerbQuant 3
8300     var C.FlowQuant 3
8301
8302     var L.SkinQuant 2
8303     var L.BowQuant 2
8304     var L.OrigQuant 2
8305     var L.WeapQuant 2
8306     var L.WickQuant 2
8307     var L.BardQuant 2
8308     var L.Bard2Quant 2
8309     var L.ClothQuant 2
8310     var L.WoodQuant 2
8311     var L.GenQuant 2
8312     var L.PerfQuant 2
8313
8314     var S.GenQuant 3
8315     var S.WeapQuant 2
8316     var S.ClericQuant 3
8317     var S.StitchQuant 3
8318     var S.AlchQuant 2
8319     var S.HerbQuant 1
8320     var S.ArtifQuant 1
8321     var S.MusicQuant 2
8322     var S.ArmorQuant 2
8323     var S.ReedQuant 2
8324     var S.MuseumQuant 1
8325     var S.BowQuant 2
8326     var S.LockQuant 2
8327     var S.CoinQuant 1
8328     var S.SpireQuant 2
8329     var S.FrillQuant 2
8330     var S.HeraldQuant 2
8331     var S.GiftQuant 1
8332     var S.ToyQuant 2
8333     var S.MemoryQuant 2
8334     var S.TokenQuant 2
8335     var S.BarberQuant 1
8336     var S.TannerQuant 2
8337     var S.SurvQuant 2
8338     var S.Surv2Quant 2
8339     var RP.GenQuant 2
8340     var RP.TobacQuant 1
8341
8342     var SC.WeapQuant 2
8343     var H.ShieldQuant 2
8344     var H.JewelQuant 2
8345     var H.TogQuant 1
8346     var H.HerbQuant 2
8347     var H.SundQuant 2
8348     var H.LampQuant 1
8349     var H.MusicQuant 2
8350     var H.AlchQuant 2
8351     var H.ForgeQuant 1
8352     var H.GenQuant 2
8353     var H.TobacQuant 2
8354
8355     var R.BaitQuant 4
8356     var R.GenQuant 4
8357     var R.HerbQuant 2
8358     var R.ForgeQuant 2
8359     var R.TailorQuant 3
8360     var R.LeatherQuant 3
8361     var R.HairQuant 3
8362     var R.MusicQuant 3
8363     var R.MagicQuant 2
8364     var R.OrigamiQuant 3
8365     var R.JewelryQuant 2
8366     var R.ClericQuant 2
8367     var R.RingQuant 1
8368
8369     var A.HerbQuant 2
8370     var A.TannerQuant 2
8371     var A.ClothingQuant 2
8372     var A.ScriptQuant 2
8373     var A.ClericQuant 2
8374     var A.OrigamiQuant 2
8375     var A.JewelryQuant 2
8376     var A.MagicQuant 2
8377     var A.SlingsQuant 2
8378     var A.PuzzleQuant 2
8379     var A.FootwearQuant 2
8380     var A.ShieldsQuant 1
8381     var A.WeaponQuant 2
8382     var A.ArmorQuant 2
8383     var A.GenQuant 2
8384     var A.FlowerQuant 3
8385     var A.MusicQuant 2
8386     RETURN
8387########################
8388# 300-599
8389########################
8390ITEM.COUNT3:
8391     var T.TarshaQuant 2
8392     var T.RoseQuant 2
8393     var T.MusicQuant 2
8394     var T.HatsQuant 2
8395     var T.ArmQuant 2
8396     var T.GiftQuant 2
8397     var T.SweetQuant 2
8398     var T.CupcakeQuant 2
8399     var T.GenQuant 2
8400     var T.KrrishQuant 2
8401     var T.LenseQuant 2
8402     var T.ClericQuant 2
8403     var T.MenQuant 2
8404     var T.WomenQuant 2
8405     var T.ClothQuant 2
8406     var T.ArmoryQuant 2
8407     var T.ForgeQuant 2
8408
8409     var RH.HerbQuant 3
8410     var RH.IronQuant 3
8411     var RH.NaphQuant 3
8412     var RH.FlowQuant 3
8413     var RH.SeliQuant 3
8414     var RH.ArmsQuant 3
8415     var RH.GenQuant 3
8416     var RH.ClothQuant 3
8417     var RH.ArtifQuant 3
8418     var RH.JoyQuant 3
8419     var RH.SmokeQuant 3
8420     var RH.WeapQuant 3
8421     var RH.BardQuant 3
8422     var RH.Bard2Quant 3
8423     var RH.ClericQuant 3
8424     var RH.Cleric2Quant 3
8425     var RH.LockQuant 3
8426     var RH.TogQuant 3
8427     var RH.Tog2Quant 3
8428     var RH.MirgQuant 3
8429
8430     var AD.FetaQuant 4
8431     var AD.ThreadQuant 4
8432     var AD.FashQuant 4
8433     var AD.OddsQuant 2
8434     var AD.BardQuant 4
8435     var AD.MapQuant 3
8436     var AD.ArmQuant 3
8437     var AD.SmokeQuant 3
8438     var AD.Tart.EQuant 4
8439     var AD.Tart.CQuant 4
8440     var AD.Tart.MQuant 3
8441     var AD.Tart.LQuant 4
8442     var AD.Tart.FQuant 3
8443     var KA.GrekQuant 3
8444
8445     var C.AlchQuant 4
8446     var C.ArtifQuant 2
8447     var C.BathQuant 3
8448     var C.CardQuant 3
8449     var C.GenQuant 4
8450     var C.WeapQuant 4
8451     var C.ArmQuant 3
8452     var C.MusicQuant 4
8453     var C.Music2Quant 2
8454     var C.LockQuant 3
8455     var C.EmpathQuant 3
8456     var C.Empath2Quant 2
8457     var C.Empath3Quant 2
8458     var C.ClerQuant 4
8459     var C.HaberQuant 3
8460     var C.ScriptQuant 3
8461     var C.TannQuant 4
8462     var C.JewelQuant 3
8463     var C.StitchQuant 3
8464     var C.CobbQuant 3
8465     var C.HerbQuant 3
8466     var C.FlowQuant 4
8467
8468     var L.SkinQuant 4
8469     var L.BowQuant 3
8470     var L.OrigQuant 3
8471     var L.WeapQuant 3
8472     var L.WickQuant 4
8473     var L.BardQuant 3
8474     var L.Bard2Quant 2
8475     var L.ClothQuant 3
8476     var L.WoodQuant 3
8477     var L.GenQuant 4
8478     var L.PerfQuant 3
8479
8480     var S.GenQuant 4
8481     var S.WeapQuant 3
8482     var S.ClericQuant 4
8483     var S.StitchQuant 3
8484     var S.AlchQuant 4
8485     var S.HerbQuant 3
8486     var S.ArtifQuant 2
8487     var S.MusicQuant 4
8488     var S.ArmorQuant 3
8489     var S.ReedQuant 3
8490     var S.MuseumQuant 3
8491     var S.BowQuant 4
8492     var S.SpireQuant 2
8493     var S.LockQuant 4
8494     var S.CoinQuant 3
8495     var S.FrillQuant 3
8496     var S.HeraldQuant 3
8497     var S.GiftQuant 3
8498     var S.ToyQuant 3
8499     var S.MemoryQuant 2
8500     var S.TokenQuant 3
8501     var S.BarberQuant 3
8502     var S.TannerQuant 2
8503     var S.SurvQuant 3
8504     var S.Surv2Quant 2
8505     var RP.GenQuant 2
8506     var RP.TobacQuant 2
8507
8508     var SC.WeapQuant 2
8509     var H.ShieldQuant 2
8510     var H.JewelQuant 3
8511     var H.TogQuant 3
8512     var H.HerbQuant 4
8513     var H.SundQuant 3
8514     var H.LampQuant 3
8515     var H.MusicQuant 3
8516     var H.AlchQuant 3
8517     var H.ForgeQuant 3
8518     var H.GenQuant 4
8519     var H.TobacQuant 3
8520
8521     var R.BaitQuant 4
8522     var R.GenQuant 3
8523     var R.HerbQuant 3
8524     var R.ForgeQuant 2
8525     var R.TailorQuant 3
8526     var R.LeatherQuant 3
8527     var R.HairQuant 3
8528     var R.MusicQuant 3
8529     var R.MagicQuant 2
8530     var R.OrigamiQuant 3
8531     var R.JewelryQuant 3
8532     var R.ClericQuant 3
8533     var R.RingQuant 2
8534
8535     var A.HerbQuant 4
8536     var A.TannerQuant 3
8537     var A.ClothingQuant 4
8538     var A.ScriptQuant 3
8539     var A.ClericQuant 3
8540     var A.OrigamiQuant 3
8541     var A.JewelryQuant 3
8542     var A.MagicQuant 2
8543     var A.SlingsQuant 3
8544     var A.PuzzleQuant 3
8545     var A.FootwearQuant 3
8546     var A.ShieldsQuant 3
8547     var A.WeaponQuant 3
8548     var A.ArmorQuant 3
8549     var A.GenQuant 3
8550     var A.FlowerQuant 3
8551     var A.MusicQuant 3
8552     RETURN
8553########################
8554# 600-799
8555########################
8556ITEM.COUNT4:
8557     var T.TarshaQuant 3
8558     var T.RoseQuant 2
8559     var T.MusicQuant 3
8560     var T.HatsQuant 3
8561     var T.ArmQuant 3
8562     var T.GiftQuant 3
8563     var T.SweetQuant 2
8564     var T.CupcakeQuant 2
8565     var T.GenQuant 3
8566     var T.KrrishQuant 3
8567     var T.LenseQuant 3
8568     var T.ClericQuant 3
8569     var T.MenQuant 3
8570     var T.WomenQuant 3
8571     var T.ClothQuant 3
8572     var T.ArmoryQuant 3
8573     var T.ForgeQuant 3
8574
8575     var RH.HerbQuant 4
8576     var RH.IronQuant 3
8577     var RH.NaphQuant 3
8578     var RH.FlowQuant 3
8579     var RH.SeliQuant 3
8580     var RH.ArmsQuant 4
8581     var RH.GenQuant 3
8582     var RH.ClothQuant 4
8583     var RH.ArtifQuant 3
8584     var RH.JoyQuant 3
8585     var RH.SmokeQuant 3
8586     var RH.WeapQuant 3
8587     var RH.BardQuant 4
8588     var RH.Bard2Quant 2
8589     var RH.ClericQuant 4
8590     var RH.Cleric2Quant 2
8591     var RH.LockQuant 3
8592     var RH.TogQuant 3
8593     var RH.Tog2Quant 2
8594     var RH.MirgQuant 2
8595
8596     var AD.FetaQuant 3
8597     var AD.ThreadQuant 4
8598     var AD.FashQuant 3
8599     var AD.OddsQuant 3
8600     var AD.BardQuant 3
8601     var AD.MapQuant 3
8602     var AD.ArmQuant 3
8603     var AD.SmokeQuant 3
8604     var AD.Tart.EQuant 3
8605     var AD.Tart.CQuant 3
8606     var AD.Tart.MQuant 3
8607     var AD.Tart.LQuant 3
8608     var AD.Tart.FQuant 3
8609     var KA.GrekQuant 3
8610
8611     var C.AlchQuant 4
8612     var C.ArtifQuant 2
8613     var C.BathQuant 4
8614     var C.CardQuant 3
8615     var C.GenQuant 4
8616     var C.WeapQuant 3
8617     var C.ArmQuant 3
8618     var C.MusicQuant 3
8619     var C.Music2Quant 2
8620     var C.LockQuant 3
8621     var C.EmpathQuant 3
8622     var C.Empath2Quant 2
8623     var C.Empath3Quant 2
8624     var C.ClerQuant 3
8625     var C.HaberQuant 4
8626     var C.ScriptQuant 3
8627     var C.TannQuant 3
8628     var C.JewelQuant 3
8629     var C.StitchQuant 4
8630     var C.CobbQuant 3
8631     var C.HerbQuant 3
8632     var C.FlowQuant 3
8633
8634     var L.SkinQuant 4
8635     var L.BowQuant 3
8636     var L.OrigQuant 3
8637     var L.WeapQuant 3
8638     var L.WickQuant 3
8639     var L.BardQuant 3
8640     var L.Bard2Quant 3
8641     var L.ClothQuant 3
8642     var L.WoodQuant 3
8643     var L.GenQuant 3
8644     var L.PerfQuant 4
8645
8646     var S.GenQuant 3
8647     var S.WeapQuant 3
8648     var S.ClericQuant 4
8649     var S.StitchQuant 4
8650     var S.AlchQuant 3
8651     var S.HerbQuant 4
8652     var S.ArtifQuant 3
8653     var S.MusicQuant 3
8654     var S.ArmorQuant 3
8655     var S.ReedQuant 3
8656     var S.MuseumQuant 2
8657     var S.BowQuant 3
8658     var S.SpireQuant 3
8659     var S.LockQuant 3
8660     var S.CoinQuant 3
8661     var S.FrillQuant 3
8662     var S.HeraldQuant 2
8663     var S.GiftQuant 3
8664     var S.ToyQuant 3
8665     var S.MemoryQuant 3
8666     var S.TokenQuant 2
8667     var S.BarberQuant 3
8668     var S.TannerQuant 3
8669     var S.SurvQuant 3
8670     var S.Surv2Quant 3
8671     var RP.GenQuant 4
8672     var RP.TobacQuant 4
8673     
8674     var SC.WeapQuant 2
8675     var H.ShieldQuant 2
8676     var H.JewelQuant 2
8677     var H.TogQuant 2
8678     var H.HerbQuant 2
8679     var H.SundQuant 2
8680     var H.LampQuant 2
8681     var H.MusicQuant 2
8682     var H.AlchQuant 2
8683     var H.ForgeQuant 2
8684     var H.GenQuant 2
8685     var H.TobacQuant 2
8686
8687     var R.BaitQuant 4
8688     var R.GenQuant 4
8689     var R.HerbQuant 4
8690     var R.ForgeQuant 4
8691     var R.TailorQuant 3
8692     var R.LeatherQuant 3
8693     var R.HairQuant 4
8694     var R.MusicQuant 4
8695     var R.MagicQuant 3
8696     var R.OrigamiQuant 3
8697     var R.JewelryQuant 3
8698     var R.ClericQuant 3
8699     var R.RingQuant 2
8700
8701     var A.HerbQuant 4
8702     var A.TannerQuant 4
8703     var A.ClothingQuant 4
8704     var A.ScriptQuant 3
8705     var A.ClericQuant 4
8706     var A.OrigamiQuant 4
8707     var A.JewelryQuant 3
8708     var A.MagicQuant 3
8709     var A.SlingsQuant 3
8710     var A.PuzzleQuant 3
8711     var A.FootwearQuant 4
8712     var A.ShieldsQuant 3
8713     var A.WeaponQuant 3
8714     var A.ArmorQuant 3
8715     var A.GenQuant 4
8716     var A.FlowerQuant 4
8717     var A.MusicQuant 4
8718     RETURN
8719########################
8720# 800-1400
8721########################
8722ITEM.COUNT5:
8723     var T.TarshaQuant 4
8724     var T.RoseQuant 4
8725     var T.MusicQuant 4
8726     var T.HatsQuant 3
8727     var T.ArmQuant 3
8728     var T.GiftQuant 3
8729     var T.SweetQuant 3
8730     var T.CupcakeQuant 3
8731     var T.GenQuant 3
8732     var T.KrrishQuant 3
8733     var T.LenseQuant 3
8734     var T.ClericQuant 3
8735     var T.MenQuant 3
8736     var T.WomenQuant 3
8737     var T.ClothQuant 3
8738     var T.ArmoryQuant 3
8739     var T.ForgeQuant 3
8740
8741     var RH.HerbQuant 4
8742     var RH.IronQuant 3
8743     var RH.NaphQuant 4
8744     var RH.FlowQuant 4
8745     var RH.SeliQuant 4
8746     var RH.ArmsQuant 4
8747     var RH.GenQuant 4
8748     var RH.ClothQuant 3
8749     var RH.ArtifQuant 3
8750     var RH.JoyQuant 4
8751     var RH.SmokeQuant 4
8752     var RH.WeapQuant 4
8753     var RH.BardQuant 4
8754     var RH.Bard2Quant 4
8755     var RH.ClericQuant 4
8756     var RH.Cleric2Quant 3
8757     var RH.LockQuant 4
8758     var RH.TogQuant 3
8759     var RH.Tog3Quant 3
8760     var RH.MirgQuant 3
8761
8762     var AD.FetaQuant 4
8763     var AD.ThreadQuant 4
8764     var AD.FashQuant 4
8765     var AD.OddsQuant 4
8766     var AD.BardQuant 4
8767     var AD.MapQuant 4
8768     var AD.ArmQuant 4
8769     var AD.SmokeQuant 4
8770     var AD.Tart.EQuant 4
8771     var AD.Tart.CQuant 4
8772     var AD.Tart.MQuant 4
8773     var AD.Tart.LQuant 4
8774     var AD.Tart.FQuant 4
8775     var KA.GrekQuant 4
8776
8777     var C.AlchQuant 4
8778     var C.ArtifQuant 4
8779     var C.BathQuant 4
8780     var C.CardQuant 4
8781     var C.GenQuant 4
8782     var C.WeapQuant 4
8783     var C.ArmQuant 4
8784     var C.MusicQuant 4
8785     var C.Music2Quant 4
8786     var C.LockQuant 4
8787     var C.EmpathQuant 4
8788     var C.Empath2Quant 4
8789     var C.Empath3Quant 4
8790     var C.ClerQuant 4
8791     var C.HaberQuant 4
8792     var C.ScriptQuant 4
8793     var C.TannQuant 4
8794     var C.JewelQuant 4
8795     var C.StitchQuant 4
8796     var C.CobbQuant 4
8797     var C.HerbQuant 4
8798     var C.FlowQuant 4
8799
8800     var L.SkinQuant 4
8801     var L.BowQuant 4
8802     var L.OrigQuant 4
8803     var L.WeapQuant 4
8804     var L.WickQuant 4
8805     var L.BardQuant 4
8806     var L.Bard2Quant 4
8807     var L.ClothQuant 4
8808     var L.WoodQuant 4
8809     var L.GenQuant 4
8810     var L.PerfQuant 4
8811
8812     var S.GenQuant 4
8813     var S.WeapQuant 4
8814     var S.ClericQuant 4
8815     var S.StitchQuant 4
8816     var S.AlchQuant 4
8817     var S.HerbQuant 4
8818     var S.ArtifQuant 4
8819     var S.MusicQuant 4
8820     var S.ArmorQuant 4
8821     var S.ReedQuant 4
8822     var S.MuseumQuant 4
8823     var S.BowQuant 4
8824     var S.LockQuant 4
8825     var S.SpireQuant 4
8826     var S.CoinQuant 4
8827     var S.FrillQuant 4
8828     var S.HeraldQuant 4
8829     var S.GiftQuant 4
8830     var S.ToyQuant 4
8831     var S.MemoryQuant 4
8832     var S.TokenQuant 4
8833     var S.BarberQuant 4
8834     var S.TannerQuant 4
8835     var S.SurvQuant 4
8836     var S.Surv2Quant 4
8837     var RP.GenQuant 4
8838     var RP.TobacQuant 4
8839     
8840     var SC.WeapQuant 4
8841     var H.ShieldQuant 4
8842     var H.JewelQuant 4
8843     var H.TogQuant 4
8844     var H.HerbQuant 4
8845     var H.SundQuant 4
8846     var H.LampQuant 4
8847     var H.MusicQuant 4
8848     var H.AlchQuant 4
8849     var H.ForgeQuant 4
8850     var H.GenQuant 4
8851     var H.TobacQuant 4
8852
8853     var R.BaitQuant 4
8854     var R.GenQuant 4
8855     var R.HerbQuant 4
8856     var R.ForgeQuant 4
8857     var R.TailorQuant 4
8858     var R.LeatherQuant 4
8859     var R.HairQuant 4
8860     var R.MusicQuant 4
8861     var R.MagicQuant 4
8862     var R.OrigamiQuant 4
8863     var R.JewelryQuant 4
8864     var R.ClericQuant 4
8865     var R.RingQuant 2
8866
8867     var A.HerbQuant 4
8868     var A.TannerQuant 4
8869     var A.ClothingQuant 4
8870     var A.ScriptQuant 4
8871     var A.ClericQuant 4
8872     var A.OrigamiQuant 4
8873     var A.JewelryQuant 4
8874     var A.MagicQuant 4
8875     var A.SlingsQuant 4
8876     var A.PuzzleQuant 4
8877     var A.FootwearQuant 4
8878     var A.ShieldsQuant 4
8879     var A.WeaponQuant 4
8880     var A.ArmorQuant 4
8881     var A.GenQuant 4
8882     var A.FlowerQuant 4
8883     var A.MusicQuant 4
8884     RETURN
8885##############################
8886# WARNINGS
8887##############################
8888WELCOME:
8889     echo ************************************************************
8890     echo *       Welcome $charactername - Circle %circle %guild !~
8891     echo *    To Shroom's Ultimate Genie3 Mainland Stealing Script!
8892     echo *     Completely automated Progressive Stealing!
8893     echo *   Send bug reports/feedback to skultamaphon@gmail.com
8894     echo ************************************************************
8895     pause
8896     echo ************************************************************
8897     echo ***  MAKE SURE YOU HAVE PLENTY OF PLATS IN THE BANK
8898     echo ***  IN THE CITIES YOU ARE STEALING IN TO PAY FINES!
8899     echo ************************************************************
8900     pause 2
8901     RETURN
8902TOO.HURT:
8903     echo
8904     echo **************************************************************************************************
8905     echo *   YOU ARE TOO INJURED TO STEAL SHIT!
8906     echo *   GO GET HEALED FIRST YOU NUB!
8907     echo ***************************************************************************************************
8908     put #parse DONE STEALING
8909     exit
8910BAG.ALERT:
8911     echo
8912     echo **************************************************************************************************
8913     echo *  ERROR!!!
8914     echo *  You cannot set BIN_CONTAINER and PAWN_CONTAINER as the same container!!
8915     echo *  If you are binning AND pawning.. You MUST set them to different containers!
8916     echo *  THIEVES - If you are binning and pawning, you MUST have THREE different containers (bin/pawn/safe).
8917     echo *  If you want to use only two containers and have bin/pawn as the same container, set PAWN to OFF
8918     echo *  It is NOT recommended to turn BIN OFF, as over time this will kill your THIEF REP
8919     echo ***************************************************************************************************
8920     exit
8921THEREN.NOSTEAL:
8922     echo ***************************************************************************************************
8923     echo **** Sorry! Theren is too hard for noobs.
8924     echo **** Come back when you have a little more Thievery skill (~100+)
8925     echo **** It is recommended to start in either Crossings or Riverhaven as a noob
8926     echo ***************************************************************************************************
8927     pause 10
8928     gosub AUTOMOVE portal
8929     send .%TRAVEL_SCRIPT haven
8930     waitforre ^YOU HAVE ARRIVED
8931     goto HAVEN.STEAL
8932     put #parse DONE STEALING
8933     exit
8934TOO.MANY.FINES:
8935     put #echo >Log Red **** TOO MANY FINES IN %CITY !! RESET YOUR HEAT!!!
8936     echo
8937     echo ****************************** WARNING !!!! ************************************************************************************************************
8938     echo **** YOU HAVE TOO MANY OUTSTANDING FINES TO STEAL FROM THIS PROVINCE!
8939     echo **** YOU ARE AT HIGH RISK OF BEING THUGGED! GO TO JAIL NOW!!!
8940     echo **** YOU MUST GO SURRENDER TO A TOWN GUARD AND GO TO JAIL IMMEDIATELY TO RESET YOUR 'HEAT'!
8941     echo **** LAY LOW FOR A FEW DAYS OR STEAL FROM A DIFFERENT PROVINCE TO LET YOUR HEAT "COOL DOWN"
8942     echo ********************************************************************************************************************************************************
8943     pause 5
8944     echo **********************************************************************************************************************************************************
8945     echo **** DO NOT PASS GO! GO DIRECTLY TO JAIL AND LAY LOW IN THIS TOWN FOR A FEW DAYS TO RESET YOUR HEAT!!
8946     echo *** If you are getting caught too often (on the same items),
8947     echo *** email me your thievery ranks and log of your items you are getting caught on
8948     echo *** skultamaphon@gmail.com -  shroomismschism @ AIM
8949     echo **********************************************************************************************************************************************************
8950     pause 5
8951     gosub AUTOMOVE guard
8952     pause 2
8953     send surrender guard
8954     pause
8955     send surrender sent
8956     send surrender ward
8957     pause 0.5
8958     put #parse DONE STEALING
8959     exit
8960NO.FUNDS:
8961     put #echo >Log Red **** Warning: Out of funds in %CITY !!
8962     put #echo >Log Red **** Get some money from another town and pay your fine and get your stuff!!
8963     echo
8964     echo *************************************************************************************************************************************
8965     echo * WARNING! YOU DON'T HAVE ENOUGH MONEY TO PAY THIS FINE!
8966     echo * GO GET SOME FUNDS FROM ANOTHER BANK AND PAY YOUR FINE AND GET YOUR STUFF!
8967     echo * IT IS RECOMMENDED TO KEEP PLENTY OF PLATS IN THE BANK FOR THOSE THIEVERY CHARGES
8968     echo * THEY CAN REALLY RACK UP ESPECIALLY IF YOU DO NOT REGULARLY CLEAR YOUR HEAT!
8969     echo *************************************************************************************************************************************
8970     put #parse DONE STEALING
8971     exit
8972NO.PASSWORD:
8973     echo
8974     echo ***********************************************************************************************************
8975     echo *  YOU DIDN'T SET YOUR THIEF GUILD PASSWORDS!
8976     echo *  SET VARIABLES HAVEN_PW and SHARD_PW TO ~YOUR~ PASSWORDS
8977     echo ***********************************************************************************************************
8978     exit
8979NOOB:
8980     echo
8981     echo ***********************************************************************************************************
8982     echo * You are too Noob to steal from shops!!!
8983     echo * Hit the beggar or get some classes / steal some water until you get at least 20 ranks.
8984     echo ***********************************************************************************************************
8985     echo
8986     put #parse DONE STEALING
8987     exit
8988ARMOR.WARN:
8989     echo *************************************************************************************
8990     echo ** WARNING: Script could not find all your armor
8991     echo ** Remove any remaining armor and type "GO" to continue
8992     echo *************************************************************************************
8993     matchre RETURN GO|go
8994     matchwait
8995HELP:
8996     echo # - USAGE - Simply start script with .steal
8997     echo # - For Troubleshooting/testing - .steal <label to skip to> <type anything to SKIP BAG CHECK>
8998     echo # - For example - .steal CROSS.TO.CARD YES will skip directly to CROSS.TO.CARD label and skip the bag check and turn on debug mode
8999     echo # - This is for testing/troubleshooting purposes only, usually after already starting stealing script and you want to restart it halfway through. 
9000     echo # - Skips the bag check so it doesn't put already stolen items in your safe container
9001     echo # - This is assuming you already went through the beginning bag check - USE AT YOUR OWN RISK!
9002     exit