AVfa6F3X

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