GgBY863f

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