tx1tBUjB

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