8idgueWm

1#debuglevel 5
2#########################################################################################################
3#  ULTIMATE GENIE3 PROGRESSIVE STEALING SCRIPT v4.50
4#  By Shroom of DR: The Fallen, with contributions from Pelic!~
5#  Send bug reports/feedback: skultamaphon@gmail.com / Shroomismschism @ AIM
6#
7# ********************* IMPORTANT INFO **************************************************
8# - Script requires the latest updated Automapper maps for Genie!
9# - http://www.genieclient.com/bulletin/topic/3592-how-to-use-the-genie-map-repository/
10# - IF you have problems with the MAPS, set your SVN to this URL! - https://fallenmappers.googlecode.com/svn/
11#
12# - REQUIRES modified Automapper script (named .automapper)- http://pastebin.com/wx1cM7ty
13# - REQUIRES modified travel script (named .travel) LATEST ONE HERE - http://pastebin.com/tVwTjDQP )
14# - REQUIRES ExpTracker Plugin
15# - (OPTIONAL) Uses Time Plugin
16# ***************************************************************************************
17#
18### SCRIPT NOTES + FUNCTIONALITY ###########
19#
20## SUPPORTED CITIES: (Can start in any location in these cities)
21# - Therenborough, Riverhaven, Arthe Dale, Crossing, Leth Deriel, Shard, Hib
22#
23# - STEALS from every shop in every major mainland city, moving from city to city until mind locked
24# - Automatically determines what items to steal based on your skill level. NEVER change item variables!
25# - As you progress in Thievery ranks, the script progressively steals harder items. Trains from 20 ranks to 1200+
26#
27# - If you go to JAIL, script will RECOVER, pay your fine and get your items and continue where it left off.
28# - It will also remove all your ARMOR before the stealing run, put it in a safe container, and put it all back on when the script finishes.
29#
30# AUTOMATICALLY STASHES YOUR IMPORTANT ITEMS
31# - IF any items in your bags match items you will steal, it will store those in your SAFE.CONTAINER and close it!
32# - This will prevent ever accidentally binning or pawning ANY of your important items or armor!! This has a 99.99% success rate.
33# - YOUR BIN/PAWN CONTAINER MUST BE A DIFFERENT CONTAINER THAN SAFE.CONTAINER FOR THIS TO WORK!
34#
35## - THIEVES: Will mark ALL items before stealing, leave shop if there is too much heat.
36## - Thieves will Bin 50% and Pawn 50% by default. Or Bin 100% by setting var PAWN OFF
37## - THIEVES Will also make use of Khris and Thief passages for travel to Leth/contacts for finding haven guild.
38# - Non-Thieves: Will only steal 1-2 times per shop, and will PAWN ALL items and dump those that cant sell.
39#
40########################################### DISCLAIMER ###################################################################
41# ~~ I AM NOT RESPONSIBLE FOR ANY LOST ITEMS. IT IS **HIGHLY RECOMMENDED** TO REGISTER YOUR MOST IMPORTANT ITEMS.
42# ~~ ALTHOUGH THIS SCRIPT DOES ~EVERYTHING POSSIBLE~ TO MAKE SURE IT DOESN'T LOSE YOUR ITEMS..
43# ~~ THERE IS ALWAYS A TINY CHANCE (HOWEVER SMALL) THAT SOMETHING MAY GO WRONG. BETTER TO BE SAFE THEN SORRY!
44# ~~ IF YOU WANT TO BE 100% SURE, PUT YOUR MOST IMPORTANT ITEMS IN YOUR VAULT, OR A CLOSED CONTAINER,
45# ~~ THIS SCRIPT SHOULD STASH YOUR IMPORTANT ITEMS AUTOMATICALLY!! I TEST THIS SCRIPT WITH MUTLIPLE SUPER RARE ITEMS
46# ~~ I HAVE ONLY EVER LOST ~ONE~ ITEM IN THOUSANDS OF RUNS, DUE TO A SMALL BUG WHICH I FIXED LONG AGO.
47# ~~ NEVERTHELESS - REGISTER YOUR MOST IMPORTANT STUFF TO BE SURE.
48##########################################################################################################################
49TOP:
50     send exp 0
51     waitforre ^EXP HELP for more information
52     gosub DEFAULT.VARIABLES
53##################################
54#       CUSTOM VARIABLES         #
55# YOU MUST SET THESE VARIABLES!  #
56##################################
57## BIN.CONTAINER and PAWN.CONTAINER MUST be two DIFFERENT containers IF you are a THIEF and BINNING ~AND~ PAWNING
58## IF you are a NON-THIEF, or JUST binning or JUST pawning, then these CAN be the same container.
59     var PAWN.CONTAINER Lootsack
60     var BIN.CONTAINER Lootsack
61
62## SAFE.CONTAINER ~MUST~ BE A DIFFERENT ~CLOSABLE~ CONTAINER THAN BIN AND PAWN. IF NOT YOU COULD LOSE ITEMS!
63     var SAFE.CONTAINER backpack
64
65## SINGLE.RUN ON WILL STOP STEALING AFTER A SINGLE CITY RUN. OFF WILL RUN UNTIL MIND LOCKED, MOVING FROM CITY TO CITY
66     var SINGLE.RUN OFF
67
68#RETURN.HOME YES returns you to your starting city at end of script. NO stays where you finish.
69     var RETURN.HOME NO
70
71## IMPORTANT.ITEMS is for ~DOUBLE CHECKING~ your most priceless items to ENSURE you don't lose them
72     var IMPORTANT.ITEMS mirror blade|katana|crossbow|mirror flail|quadrello|damaris orb|throwing hammer
73     var SNEAK OFF
74     var PLEAD innocent
75#####################################
76#        THIEF ONLY                 #
77# THIEVES MUST SET YOUR PASSWORD!   #
78#####################################
79     var HAVEN.PW thaethanana
80     var SHARD.PW borentelger
81     var khri1 Dark
82     var khri2 hasten
83     var BIN ON
84     var PAWN OFF
85     var STEALCOUNT 5
86#####################################
87# EMPATH ONLY 
88#####################################
89	 var PERC.HEALTH ON
90###############################
91##        TF/MISC             #
92## IGNORE THESE IF NOT IN TF  #
93###############################
94     var CLANITEM YES
95     var CLAN.ITEM.NAME human skull
96     var MAIN.SCRIPT master
97     var ROC 0
98################################################
99#          !!! END USER VARIABLES !!!          #
100#         DO NOT TOUCH ANYTHING BELOW!         #
101################################################
102#############################################################################################################################################
103#############################################################################################################################################
104     put #var save
105ACTION.INIT:
106     action math Pawned add 1 when You sell your
107     action math Binned add 1 when Nice work, $charactername
108     action math Charges add 1 when begins to shout loudly for help
109     action goto CLAN.HEAL when I now pronounce sentence
110     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|your belongings have been stripped|in a jail cell wearing a set of heavy manacles
111     action instant goto JAIL.CHECK when strip you of all your possessions|binds your hands behind your back|your possessions have been stripped|the last thing you see before you black out|Do not resist, for your crimes must be answered for
112     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
113     action instant goto JAIL.CHECK when all your belongings have been stripped|you are in a jail cell wearing a set of heavy manacles
114     action goto TOO.MANY.FINES when ^You think about stealing for a moment
115     action var ROC 0 when ^The Rite of Contrition matrix loses cohesion|^Your spell cannot maintain itself in this magically inert area
116     action var no.learn ON; put #echo >log Orange *** Not learning from %item in %SHOP @ $Thievery.Ranks ranks when You don't feel you learned anything useful
117     action put #echo >log Red *** Caught in %SHOP stealing: %item @ $Thievery.Ranks ranks when notices you attempting|Guards\! Guards\!|begins to shout
118     action put #echo >log Purple Stealing Mind Locked! Not learning anymore when You feel that for the moment you've learned all you can
119     # action send exit when eval $health < 50
120     gosub GUILD.CHECK
121     gosub SKILLCHECK
122     gosub WELCOME
123     if ("%guild" = "Necromancer") && (%ROC = 0) then gosub NECRO.PREP
124######################################################################################################################################
125     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
126     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
127     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|%AD.Tart.E|%AD.Tart.C|%AD.Tart.M|%AD.Tart.L|%AD.Tart.F|%KA.Grek
128     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
129     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|%L.Gentle|%L.Travel|%L.Cleric|%L.Jewelry|%L.Bridal|%L.Women
130     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
131     var STEAL.LIST.HIB %SC.Weap|%H.Shield|%H.Jewel|%H.Tog|%H.Herb|%H.Sund|%H.Lamp|%H.Music|%H.Alch|%H.Forge|%H.WM|%R.Gen|%R.Tobac
132     var STEAL.LIST.MISC cigar|scroll|tart|naphtha|sling|mining helm|tobacco|bagpipes|cowl|dwarven hammer|lamp|robe
133######################################################################################################################################
134     var STEAL.LIST %STEAL.LIST.THEREN|%STEAL.LIST.HAVEN|%STEAL.LIST.ARTHE|%STEAL.LIST.CROSS|%STEAL.LIST.LETH|%STEAL.LIST.SHARD|%STEAL.LIST.MISC
135######################################################################################################################################
136     echo
137     echo **** CHECKING FOR ARMOR......
138     echo
139     pause 0.5
140     gosub ARMOR.CHECK
141     gosub CITY.CHECK
142
143     if_3 then
144          {
145            debuglevel 5
146               echo
147               echo *** DEBUG MODE ENABLED.
148               echo *** RE-INITIALIZING SCRIPT FROM CHECKPOINT..
149               echo *** SKIPPING BAG CHECK...
150               pause
151               goto START
152          }
153# CHECKING BAGS
154     echo
155     echo ****** CHECKING YOUR CURRENT BAG CONTENTS TO AVOID PAWNING/BINNING YOUR ITEMS....
156     echo ****** WILL STASH ALL VULNERABLE ITEMS IN YOUR: %SAFE.CONTAINER
157     echo
158     pause
159     gosub BAG.CHECK %PAWN.CONTAINER
160     gosub BAG.CHECK %BIN.CONTAINER
161     pause 0.5
162START:
163     echo
164     echo *** THIEVERY SKILL RANGE - %skillrange
165     echo
166     pause
167     if ("%BIN" = "OFF") then
168          {
169               echo
170               echo *** PAWNING ALL ITEMS FOR MAX PROFIT...
171               echo
172               pause
173          }
174     if_2 then var CITYCODE %2
175     if_1 then goto %1
176############################################################################################
177############################################################################################
178####                         BEGIN STEALING SECTION                                    #####
179############################################################################################
180############################################################################################
181MAINLOOP:
182STEALING.RUN:
183     var LAST STEALING.RUN
184     gosub STOWING
185STEAL.BEGIN:
186     put #echo >Log Crimson ** Starting Stealing Run from: %CITYCODE
187     pause 0.5
188     goto %CITYCODE.STEAL
189######################################################
190#  THERENGIA STEALING (THEREN/ROSSMAN/RIVERHAVEN     #
191######################################################
192### THERENBOROUGH
193THEREN.STEAL:
194     var CURRENT.CITY THEREN
195     var LAST THEREN.STEAL
196     if matchre("$roomobjs","(Baronial guardsman)") then put surrender guard
197     pause 0.5
198     pause 0.5
199     gosub COOKIE
200THEREN.EXP.CHECK.0:
201     if $Thievery.Ranks < 50 then goto THEREN.NOSTEAL
202     if $Thievery.Ranks >= 690 then goto THEREN.TO.ROSE
203THEREN.TO.TARSHA:
204     var LAST THEREN.TO.TARSHA
205     gosub AUTOMOVE tarsha
206THEREN.TARSHA:
207     var shopcode T.Tarsha
208     var SHOP Tarsha's Emporium
209     gosub STEAL %T.Tarsha
210THEREN.TO.ROSE:
211     var LAST THEREN.TO.ROSE
212     gosub AUTOMOVE theatre
213THEREN.ROSE:
214     var shopcode T.Rose
215     var SHOP Rose of the Theater - Attire
216     gosub STEAL %T.Rose
217THEREN.TO.MUSIC:
218     var LAST THEREN.TO.MUSIC
219     gosub AUTOMOVE rose of the theatre
220THEREN.MUSIC:
221     var shopcode T.Music
222     var SHOP Rose of the Theater - Instruments
223     gosub STEAL %T.Music.Num %T.Music
224THEREN.EXP.CHECK.1:
225     if $Thievery.Ranks >= 590 then goto THEREN.TO.ARMOR
226THEREN.TO.HATS:
227     var LAST THEREN.TO.HATS
228     gosub AUTOMOVE hats
229THEREN.HATS:
230     var shopcode T.Hats
231     var SHOP Theren Hats
232     gosub STEAL %T.Hats
233THEREN.EXP.CHECK.2:
234     if $Thievery.Ranks >= 300 then goto THEREN.TO.ARMOR
235THEREN.TO.SWEET:
236     var LAST THEREN.TO.SWEET
237     gosub AUTOMOVE sweet
238THEREN.SWEET:
239     var shopcode T.Sweet
240     var SHOP Theren Sweet Delights
241     gosub STEAL %T.Sweet
242THEREN.TO.CUPCAKE:
243     var LAST THEREN.TO.CUPCAKE
244     gosub AUTOMOVE cup
245THEREN.CUPCAKE:
246     var shopcode T.Cupcake
247     var SHOP Theren Cupcake
248     gosub STEAL %T.Cupcake
249THEREN.TO.ARMOR:
250     var LAST THEREN.TO.ARMOR
251     gosub AUTOMOVE armor
252THEREN.ARMOR:
253     var shopcode T.Arm
254     var SHOP Theren Armor
255     gosub STEAL %T.Arm
256THEREN.TO.GIFT:
257     var LAST THEREN.TO.GIFT
258     gosub AUTOMOVE gift
259THEREN.GIFT:
260     var shopcode T.Gift
261     var SHOP Theren Gift Shop
262     gosub STEAL %T.Gift
263THEREN.EXP.CHECK.3:
264     if $Thievery.Ranks >= 700 then goto THEREN.TO.KRRISH
265THEREN.TO.GENERAL:
266     var LAST THEREN.TO.GENERAL
267     gosub AUTOMOVE general
268THEREN.GENERAL:
269     var shopcode T.Gen
270     var SHOP Theren General Store
271     gosub STEAL %T.Gen
272THEREN.TO.KRRISH:
273     var LAST THEREN.TO.KRRISH
274     gosub AUTOMOVE Krrish's home
275THEREN.KRRISH:
276     var shopcode T.Krrish
277     var SHOP Theren Krissh
278     gosub STEAL %T.Krrish
279THEREN.TO.LENSE:
280     var LAST THEREN.TO.LENSE
281     gosub AUTOMOVE lense
282THEREN.LENSE:
283     var shopcode T.Lense
284     var SHOP Theren Konezu's Lenses
285     gosub STEAL %T.Lense
286THEREN.EXP.CHECK.4:
287     if $Thievery.Ranks >= 460 then goto THEREN.TO.MEN
288THEREN.TO.CLERIC:
289     var LAST THEREN.TO.CLERIC
290     gosub AUTOMOVE cleric
291THEREN.CLERIC:
292     var shopcode T.Cleric
293     var SHOP Theren Cleric Shop
294     gosub STEAL %T.Cleric
295THEREN.TO.MEN:
296     var LAST THEREN.TO.MEN
297     gosub AUTOMOVE men's
298THEREN.MEN:
299     var shopcode T.Men
300     var SHOP Theren Courtly Men's Study
301     gosub STEAL %T.Men
302THEREN.TO.WOMEN:
303     var LAST THEREN.TO.WOMEN
304     gosub AUTOMOVE women's
305THEREN.WOMEN:
306     var shopcode T.Women
307     var SHOP Theren Courtly Women's Parlor
308     gosub STEAL %T.Women
309THEREN.TO.CLOTHING:
310     var LAST THEREN.TO.CLOTHING
311     gosub AUTOMOVE clothing
312THEREN.CLOTHING:
313     var shopcode T.Cloth
314     var SHOP Theren Courtly Clothing
315     gosub STEAL %T.Cloth
316THEREN.TO.ARMORY:
317      var LAST THEREN.TO.ARMORY
318      gosub AUTOMOVE 103
319      gosub AUTOMOVE moat
320      gosub AUTOMOVE 146
321THEREN.TO.DUNG:
322      gosub AUTOMOVE dungeon
323THEREN.TO.ARMORY.CONT:
324      gosub AUTOMOVE armory
325THEREN.ARMORY:
326     var shopcode T.Armory
327     var SHOP Theren Keep Armory
328     gosub STEAL %T.Armory
329THEREN.SURRENDER:
330     var LAST THEREN.LEAVE
331     gosub AUTOMOVE dungeon
332     if matchre("$roomobjs","(keep watchman)") then put surrender watch
333     put surrender guard
334     pause
335     pause 0.5
336THEREN.LEAVE:
337     var LAST THEREN.LEAVE
338     gosub AUTOMOVE 69
339     send jump moat
340     echo *** STUNNED!! Pausing to recover....
341     pause 12
342THEREN.STUNNED:
343     var LAST THEREN.STUNNED
344     pause 11
345     if $stunned = 1 then goto THEREN.STUNNED
346     pause 0.5
347     gosub STAND
348     pause 0.5
349     gosub AUTOMOVE 1
350     put go gate
351TRAVEL.HAVEN:
352TO.RIVERHAVEN:
353     pause 0.5
354     echo *** TRAVELLING.......
355     send .travel haven
356     waitforre ^YOU HAVE ARRIVED
357     pause 0.1
358############################################
359#  RIVERHAVEN STEALING
360############################################
361RIVERHAVEN.STEAL:
362HAVEN.STEAL:
363     var LAST HAVEN.STEAL
364     var CURRENT.CITY RIVERHAVEN
365     if matchre("$roomobjs","(Riverhaven Warden)") then put surrender warden
366     pause 0.5
367     pause 0.5
368     gosub COOKIE
369     gosub TIME.CHECK
370HAVEN.TO.TOG:
371     var LAST HAVEN.TO.TOG
372     gosub AUTOMOVE city tog
373HAVEN.TOG:
374     var shopcode RH.Tog
375     var SHOP Riverhaven Togs
376     gosub STEAL %RH.Tog
377HAVEN.EXP.CHECK.0:
378     if $Thievery.Ranks >= 340 then goto HAVEN.EXP.CHECK.1
379     if $Thievery.LearningRate > 31 then goto GO.PAWN.HAVEN
380HAVEN.TO.HERB:
381     var LAST HAVEN.TO.HERB
382     gosub AUTOMOVE herb
383HAVEN.HERB:
384     var shopcode RH.Herb
385     var SHOP Riverhaven Herbs
386     gosub STEAL %RH.Herb
387HAVEN.EXP.CHECK.1:
388     if $Thievery.Ranks >= 385 then goto HAVEN.EXP.CHECK.2
389HAVEN.TO.NAPHTHA:
390     var LAST HAVEN.TO.NAPHTHA
391     gosub AUTOMOVE Naptha
392HAVEN.NAPHTHA:
393     var shopcode RH.Naph
394     var SHOP Riverhaven Naptha Cart
395     var item.Location %RH.Naph.Loc
396     gosub STEAL %RH.Naph
397HAVEN.EXP.CHECK.2:
398     if $Thievery.Ranks >= 600 then goto HAVEN.TO.ARMS
399HAVEN.TO.FLOWER:
400     var LAST HAVEN.TO.FLOWER
401     gosub AUTOMOVE cecel
402HAVEN.FLOWER:
403     var shopcode RH.Flow
404     var SHOP Riverhaven Florist
405     gosub STEAL %RH.Flow
406HAVEN.TO.ARMS:
407     var LAST HAVEN.TO.ARMS
408     gosub AUTOMOVE noel
409HAVEN.ARMS:
410     var shopcode RH.Arms
411     var SHOP Riverhaven Noel's Arms
412     gosub STEAL %RH.Arms
413HAVEN.EXP.CHECK.3:
414     if $Thievery.Ranks >= 650 then goto HAVEN.EXP.CHECK.4
415     if $Thievery.LearningRate > 32 then goto GO.PAWN.HAVEN
416HAVEN.TO.GENERAL:
417     var LAST HAVEN.TO.GENERAL
418     gosub AUTOMOVE general
419HAVEN.GENERAL:
420     var shopcode RH.Gen
421     var SHOP Riverhaven General Store
422     gosub STEAL %RH.Gen
423HAVEN.EXP.CHECK.4:
424     if $Thievery.Ranks >= 600 then goto HAVEN.EXP.CHECK.5
425HAVEN.TO.CLOTH:
426     var LAST HAVEN.TO.CLOTH
427     gosub AUTOMOVE cloth
428HAVEN.CLOTH:
429     var shopcode RH.Cloth
430     var SHOP Riverhaven Clothiers
431     gosub STEAL %RH.Cloth
432HAVEN.EXP.CHECK.5:
433     # if $Thievery.Ranks >= 1200 then goto HAVEN.TO.JOY
434HAVEN.TO.ARTIFICER:
435     var LAST HAVEN.TO.ARTIFICER
436     gosub AUTOMOVE artif
437HAVEN.ARTIFICER:
438     var shopcode RH.Artif
439     var SHOP Riverhaven Artificer
440     gosub STEAL %RH.Artif
441HAVEN.EXP.CHECK.6:
442     if $Thievery.Ranks >= 460 then goto HAVEN.TO.MIRG
443HAVEN.TO.LOCKSMITH:
444     var LAST HAVEN.TO.LOCKSMITH
445     gosub AUTOMOVE locks
446HAVEN.LOCKSMITH:
447     var shopcode RH.Lock
448     var SHOP Riverhaven Locksmith
449     gosub STEAL %RH.Lock
450HAVEN.EXP.CHECK.7:
451     if $Thievery.LearningRate > 32 then goto GO.PAWN.HAVEN
452     if $Thievery.Ranks >= 414 then goto HAVEN.EXP.CHECK.8
453HAVEN.TO.JOY:
454     var LAST HAVEN.TO.JOY
455     gosub AUTOMOVE smara
456HAVEN.JOY:
457     var shopcode RH.Joy
458     var SHOP Riverhaven Joy Shop
459     gosub STEAL %RH.Joy
460     gosub MOVE out
461     pause 0.5
462HAVEN.EXP.CHECK.8:
463     if $Thievery.Ranks >= 330 then goto HAVEN.TO.MIRG
464HAVEN.TIME.0:
465     if ($Time.isDay = 1) then goto HAVEN.TO.SMOKE
466     if ($Time.isDay = 0) then goto HAVEN.TO.MIRG
467     gosub TIME.CHECK
468     if ("%TIME" = "DAY") then goto HAVEN.TO.SMOKE
469     goto HAVEN.TO.MIRG
470HAVEN.TO.SMOKE:
471     var LAST HAVEN.TO.SMOKE
472     gosub AUTOMOVE 42
473     send kneel
474     send go shop
475HAVEN.SMOKE:
476     var shopcode RH.Smoke
477     var SHOP Riverhaven Smoke Shop
478     gosub STEAL %RH.Smoke
479     send out
480     pause
481     pause 0.5
482     gosub STAND
483     pause 0.5
484     gosub HIDE
485HAVEN.TO.MIRG:
486     var LAST HAVEN.TO.MIRG
487     gosub AUTOMOVE jewel
488HAVEN.MIRG:
489     var shopcode RH.Mirg
490     var SHOP Riverhaven Goldsmiths
491     gosub STEAL %RH.Mirg
492HAVEN.EXP.CHECK.9:
493     if $Thievery.LearningRate > 32 then goto GO.PAWN.HAVEN
494HAVEN.TO.WEAPON:
495     var LAST HAVEN.TO.WEAPON
496     gosub AUTOMOVE weapon
497HAVEN.WEAPON:
498     var shopcode RH.Weap
499     var SHOP Riverhaven Weapon Shop
500     gosub STEAL %RH.Weap
501HAVEN.TO.BARD:
502     var LAST HAVEN.TO.BARD
503     gosub AUTOMOVE bard
504HAVEN.BARD:
505     var shopcode RH.Bard
506     var SHOP Riverhaven Bard Shop
507     gosub STEAL %RH.Bard
508HAVEN.TO.BARD2:
509     var LAST HAVEN.TO.BARD2
510     gosub MOVE go curt
511HAVEN.BARD2:
512     var shopcode RH.Bard2
513     var SHOP Riverhaven Bard2 Shop
514     gosub STEAL %RH.Bard2
515HAVEN.EXP.CHECK.10:
516     if $Thievery.LearningRate > 32 then goto GO.PAWN.HAVEN
517HAVEN.TO.IRON:
518     var LAST HAVEN.TO.IRON
519     gosub AUTOMOVE iron
520HAVEN.IRONWORKS:
521     var shopcode RH.Iron
522     var SHOP Riverhaven Ironworks
523     gosub STEAL %RH.Iron
524HAVEN.TO.CLERIC:
525     var LAST HAVEN.TO.CLERIC
526     gosub AUTOMOVE cleric shop
527HAVEN.EXP.CHECK.11:
528     if $Thievery.Ranks >= 465 then goto HAVEN.TO.CLERIC2
529HAVEN.CLERIC:
530     var shopcode RH.Cleric
531     var SHOP Riverhaven Cleric Shop
532     gosub STEAL %RH.Cleric
533HAVEN.TO.CLERIC2:
534     var LAST HAVEN.TO.CLERIC2
535     if !matchre("%guild","(Thief|Empath|Cleric)") then goto GO.PAWN.HAVEN
536     gosub MOVE go curt
537HAVEN.CLERIC2:
538     var shopcode RH.Cleric2
539     var SHOP Riverhaven Cleric2 Shop
540     gosub STEAL %RH.Cleric2
541GO.PAWN.HAVEN:
542     var CURRENT.CITY RIVERHAVEN
543     var LAST GO.PAWN.HAVEN
544     if ("%PAWN" = "OFF") then goto HAVEN.TO.BANK
545     gosub AUTOMOVE PAWN
546     pause 0.5
547     gosub PAWN.GOODS
548HAVEN.TO.BANK:
549     if ("%guild" = "Thief") then send khri stop
550     if ("%guild" = "Necromancer") then goto HAVEN.TELLER
551     pause 0.5
552     gosub AUTOMOVE exchange
553     gosub LIRUMS
554HAVEN.TELLER:
555     gosub AUTOMOVE teller
556     gosub BANK
557     send with 4 silver
558     pause 0.5
559     gosub MOVE go arch
560     gosub MOVE out
561     if ("%guild" = "Necromancer") && (%ROC = 0) then gosub NECRO.PREP
562     if ("%BIN" = "OFF") then goto DONE.STEALING.HAVEN
563HAVEN.FIND.GUILD:
564     var BIN.HAVEN 0
565     pause 0.5
566     match hole1 selling off some stolen goods
567     match hole2 Crescent Way
568     match hole3 Silvermoon Road
569     match hole4 the boss is with his own kind
570     match hole5 cooped up
571     match hole6 around the rookery
572     matchre NO.CONTACTS Apparently there are too many eyes on you|USAGE|walks off|look of disgust
573     send contact guild
574     matchwait 7
575     goto NO.CONTACTS
576NO.CONTACTS:
577     var LOCATION LOST
578hole1:
579     gosub AUTOMOVE 33
580     gosub SEARCH
581     pause
582     pause 0.5
583     send knock door
584     pause 0.5
585     send whisper door %HAVEN.PW
586     pause
587     gosub MOVE climb stair
588     gosub MOVE ne
589     gosub MOVE go corner
590     if matchre("$roomobjs","(Crow|Lady Swan)") then
591          {
592               var BIN.HAVEN 1
593               gosub BIN.GOODS
594          }
595     gosub MOVE out
596     gosub MOVE sw
597     send climb stair
598pause 0.5
599     send go door
600pause 0.5
601     if ("%LOCATION" = "LOST") && ("%BIN.HAVEN" = "0") then goto hole2
602     goto HAVEN.DONE.ASSESS
603hole2:
604     gosub AUTOMOVE 47
605     gosub SEARCH
606     pause
607     pause 0.5
608     send knock door
609     pause 0.5
610     send whisper door %HAVEN.PW
611     pause 0.5
612     send look shadow
613     pause 0.5
614     send search shadow
615     pause 0.5
616     gosub MOVE go open
617     gosub MOVE go cor
618     if matchre("$roomobjs","(Crow|Lady Swan)") then
619          {
620               var BIN.HAVEN 1
621               gosub BIN.GOODS
622          }
623     gosub MOVE out
624     gosub MOVE out
625     gosub MOVE go door
626     if ("%LOCATION" = "LOST") && ("%BIN.HAVEN" = "0") then goto hole3
627     goto HAVEN.DONE.ASSESS
628hole3:
629     gosub AUTOMOVE 36
630     gosub SEARCH
631     pause
632     pause 0.5
633     send knock door
634     pause 0.5
635     send whisper door %HAVEN.PW
636     pause 0.5
637     send look floor
638     pause 0.5
639     gosub MOVE go door
640     gosub MOVE go cor
641     if matchre("$roomobjs","(Crow|Lady Swan)") then
642          {
643               var BIN.HAVEN 1
644               gosub BIN.GOODS
645          }
646     gosub MOVE out
647     send climb door
648     pause 0.5
649     gosub MOVE out
650     if ("%LOCATION" = "LOST") && ("%BIN.HAVEN" = "0") then goto hole4
651     goto HAVEN.DONE.ASSESS
652hole4:
653     gosub AUTOMOVE 302
654     gosub SEARCH
655     pause
656     pause 0.5
657     send knock grat
658     pause
659     send whisper grat %HAVEN.PW
660     pause 0.5
661     gosub MOVE go door
662     gosub MOVE ne
663     gosub MOVE go nook
664     if matchre("$roomobjs","(Crow|Lady Swan)") then
665          {
666               var BIN.HAVEN 1
667               gosub BIN.GOODS
668          }
669     gosub MOVE out
670     gosub MOVE sw
671     gosub MOVE go door
672     gosub MOVE go grate
673     gosub MOVE out
674     if ("%LOCATION" = "LOST") && ("%BIN.HAVEN" = "0") then goto hole5
675     goto HAVEN.DONE.ASSESS
676hole5:
677     gosub AUTOMOVE 41
678     gosub SEARCH
679     pause
680     pause 0.5
681     send knock door
682     pause
683     send whisper door %HAVEN.PW
684     pause
685     gosub MOVE n
686     gosub MOVE go corn
687     if matchre("$roomobjs","(Crow|Lady Swan)") then
688          {
689               var BIN.HAVEN 1
690               gosub BIN.GOODS
691          }
692     gosub MOVE out
693     gosub MOVE s
694     gosub MOVE go door
695     if ("%LOCATION" = "LOST") && ("%BIN.HAVEN" = "0") then goto hole6
696     goto HAVEN.DONE.ASSESS
697hole6:
698     gosub AUTOMOVE 305
699     gosub SEARCH
700     pause
701     pause 0.5
702     send knock door
703     pause
704     send whisper door %HAVEN.PW
705     pause
706     gosub MOVE go arch
707     gosub MOVE climb st
708     gosub MOVE go cor
709     if matchre("$roomobjs","(Crow|Lady Swan)") then
710          {
711               var BIN.HAVEN 1
712               gosub BIN.GOODS
713          }
714     gosub MOVE out
715     gosub MOVE climb sta
716     gosub MOVE go arc
717     gosub MOVE go door
718     goto HAVEN.DONE.ASSESS
719HAVEN.DONE.ASSESS:
720     var LAST HAVEN.DONE.ASSESS
721     math RunsCompleted add 1
722     send exp
723     waitforre ^EXP HELP for more information
724HAVEN.SURRENDER:
725     var LAST DONE.STEALING.HAVEN
726     gosub AUTOMOVE guard
727     if matchre("$roomobjs","(Riverhaven Warden)") then put surrender warden
728     put surrender
729     pause 0.5
730     pause 0.5
731DONE.STEALING.HAVEN:
732     var LAST DONE.STEALING.HAVEN
733     gosub AUTOMOVE town
734     pause 0.5
735     if ("%SINGLE.RUN" = "ON") then goto FINISHED.SCRIPT
736     if ($Thievery.LearningRate >= 30) then goto FINISHED.SCRIPT
737     if ("%CITYCODE" = "SHARD") || ("%CITYCODE" = "CROSSING") || ("%CITYCODE" = "HIB") || ("%CITYCODE" = "LETH") then goto FINISHED.SCRIPT
738     if ("%CITYCODE" = "RIVERHAVEN") || ("%CITYCODE" = "ROSSMAN") || ("%CITYCODE" = "THEREN") && ($Thievery.LearningRate < 30) then goto TO.ARTHE
739     goto TO.ARTHE
740############################################################################
741## ZOLUREN STEALING SECTION (ARTHE / CROSSING / LETH  )                   ##
742############################################################################
743# ARTHE DALE
744CROSSING.STEAL:
745ARTHE.STEAL:
746TO.ARTHE:
747     var CURRENT.CITY ARTHE
748     var LAST TO.ARTHE
749     send .travel arthe
750     waitforre ^YOU HAVE ARRIVED
751     pause
752ARTHE:
753     var LAST CROSSING
754     gosub AUTOMOVE glaysker
755     pause 0.5
756     echo
757     echo *** STEALING FROM ARTHE DALE!
758     echo
759     gosub COOKIE
760ARTHE.EXP.CHECK.0:
761     if $Thievery.Ranks >= 460 then goto ARTHE.TO.ODDS
762ARTHE.TO.PATTERN:
763     gosub AUTOMOVE embroid
764ARTHE.THREADS:
765     var shopcode AD.Thread
766     var SHOP Arthe Dale Thread Shop
767     gosub STEAL %AD.Thread
768ARTHE.TO.FASHION:
769     gosub AUTOMOVE clothing
770ARTHE.FASHION:
771     var shopcode AD.Fash
772     var SHOP Arthe Dale Fashion Shop
773     gosub STEAL %AD.Fash
774ARTHE.TO.ODDS:
775     gosub AUTOMOVE Odds
776ARTHE.ODDS:
777     var shopcode AD.Odds
778     var SHOP Arthe Dale Odds'n'Ends Shop
779     gosub STEAL %AD.Odds
780     if $hidden then gosub unhide
781     gosub MOVE out
782ARTHE.EXP.CHECK.1:
783     if $Thievery.Ranks >= 600 then goto ARTHE.TIME.0
784ARTHE.TO.BARD:
785     gosub AUTOMOVE music
786ARTHE.BARD:
787     var shopcode AD.Bard
788     var SHOP Arthe Dale Bard Shop
789     gosub STEAL %AD.Bard
790     gosub MOVE out
791ARTHE.TIME.0:
792     if ($Time.isDay = 1) then goto ARTHE.TO.ARMOR
793     if ($Time.isDay = 0) then goto ARTHE.EXP.CHECK.2
794     gosub TIME.CHECK
795     if ("%TIME" = "NIGHT") then goto ARTHE.EXP.CHECK.2
796ARTHE.TO.ARMOR:
797     gosub AUTOMOVE Armor
798ARTHE.ARMOR:
799     var shopcode AD.Arm
800     var SHOP Arthe Dale Armor Shop
801     gosub STEAL %AD.Arm
802ARTHE.EXP.CHECK.2:
803     if $Thievery.Ranks >= 300 then goto ARTHE.TO.YULUGRI
804ARTHE.TO.FETA:
805     gosub AUTOMOVE feta
806ARTHE.FETA:
807     var shopcode AD.Feta
808     var SHOP Arthe Dale Feta's Kitchen
809     gosub STEAL %AD.Feta
810ARTHE.TO.YULUGRI:
811     gosub AUTOMOVE Yulugri
812ARTHE.YULUGRI:
813     var shopcode AD.Map
814     var SHOP Arthe Dale Yulugri
815     gosub STEAL %AD.Map
816ARTHE.EXP.CHECK.3:
817     if $Thievery.Ranks >= 300 then goto LEAVE.ARTHE
818ARTHE.TO.SMOKE:
819     gosub AUTOMOVE smoking
820ARTHE.SMOKE:
821     var shopcode AD.Smoke
822     var SHOP Arthe Dale Smoke Shop
823     gosub STEAL %AD.Smoke
824ARTHE.EXP.CHECK.4:
825     if $Thievery.Ranks >= 260 then goto LEAVE.ARTHE
826    if $Thievery.Ranks >= 220 then goto ARTHE.EXP.CHECK.7
827ARTHE.TO.TART:
828     gosub AUTOMOVE 631
829ARTHE.TART:
830     var shopcode AD.Tart.E
831     var SHOP Arthe Dale TART E
832     gosub STEAL %AD.Tart.E
833ARTHE.EXP.CHECK.5:
834     if $Thievery.Ranks >= 195 then goto ARTHE.EXP.CHECK.6
835ARTHE.TO.TART.C:
836     gosub AUTOMOVE 630
837ARTHE.TART.C:
838     var shopcode AD.Tart.C
839     var SHOP Arthe Dale TART C
840     gosub STEAL %AD.Tart.C
841ARTHE.EXP.CHECK.6:
842     if $Thievery.Ranks >= 212 then goto ARTHE.EXP.CHECK.7
843ARTHE.TO.TART.M:
844     gosub AUTOMOVE 629
845ARTHE.TART.M:
846     var shopcode AD.Tart.M
847     var SHOP Arthe Dale TART M
848     gosub STEAL %AD.Tart.M
849ARTHE.EXP.CHECK.7:
850     if $Thievery.Ranks >= 230 then goto LEAVE.ARTHE
851ARTHE.TO.TART.L:
852     gosub AUTOMOVE 628
853ARTHE.TART.L:
854     var shopcode AD.Tart.L
855     var SHOP Arthe Dale TART L
856     gosub STEAL %AD.Tart.L
857ARTHE.EXP.CHECK.8:
858     if $Thievery.Ranks >= 181 then goto LEAVE.ARTHE
859ARTHE.TO.TART.F:
860     gosub AUTOMOVE 627
861ARTHE.TART.F:
862     var shopcode AD.Tart.F
863     var SHOP Arthe Dale TART F
864     gosub STEAL %AD.Tart.F
865LEAVE.ARTHE:
866     if $hidden = 1 then gosub unhide
867     pause 0.1
868ARTHE.EXP.CHECK.9:
869     if $Thievery.Ranks >= 890 then goto DONE.KAERNA
870ARTHE.TO.KAERNA:
871     gosub AUTOMOVE grek
872KAERNA.GENERAL:
873     var shopcode KA.Grek
874     var SHOP Kaerna General
875     gosub STEAL %KA.Grek
876DONE.KAERNA:
877      if $hidden = 1 then gosub unhide
878      if ("%guild" = "Thief") then
879           {
880                send khri stop
881                if (%circle > 50) then gosub COOKIE.START sagacity
882           }
883      pause 0.5
884      goto TO.CROSSING
885##################################
886#### CROSSINGS
887##################################
888TO.CROSSING:
889     var CURRENT.CITY CROSSING
890     var LAST CROSSING
891     gosub AUTOMOVE crossing
892     gosub AUTOMOVE bank
893     goto WARRANT.CHECK.CROSS
894XING:
895CROSS:
896CROSSING:
897CROSSINGS:
898WARRANT.CHECK.CROSS:
899     var LAST CROSSINGS
900     var CURRENT.CITY CROSSING
901     echo
902     echo *** STEALING FROM CROSSING!
903     echo
904     if matchre("$roomobjs","(town guard)") then put surrender guard
905     pause 0.5
906     pause 0.1
907     send blink
908     pause 0.2
909CROSSING.EXP.CHECK.0:
910     if $Thievery.LearningRate > 32 then goto GO.CROSS.PAWN
911     gosub COOKIE
912     pause 0.2
913CROSSING.TO.SCRIPT:
914     var CURRENT.CITY CROSSING
915     var LAST CROSSING.TO.SCRIPT
916     gosub AUTOMOVE Temple
917     gosub AUTOMOVE Script
918CROSSING.SCRIPTORIUM:
919     var shopcode C.Script
920     var SHOP Crossing Scriptorium
921     gosub STEAL %C.Script.Num %C.Script
922     if $hidden then gosub unhide
923     gosub AUTOMOVE cross
924     gosub MOVE ne
925     pause 0.5
926     pause 0.5
927CROSSING.EXP.CHECK.1:
928     if $Thievery.Ranks >= 487 then goto CROSSING.EXP.CHECK.2
929     if $Thievery.LearningRate > 32 then goto GO.CROSS.PAWN
930CROSSING.TO.CARD:
931     var LAST CROSSING.TO.CARD
932     gosub AUTOMOVE Card shop
933CROSSING.CARD:
934     var shopcode C.Card
935     var SHOP Crossing Card Shop
936     gosub STEAL %C.Card
937CROSSING.EXP.CHECK.2:
938     if $Thievery.Ranks >= 700 then goto CROSSING.EXP.CHECK.3
939CROSSING.TO.CLOTHING:
940     var LAST CROSSING.TO.CLOTHING
941     gosub AUTOMOVE clothing
942CROSSING.CLOTHING:
943     var shopcode C.Stitch
944     var SHOP Crossing Clothing Shop
945     gosub STEAL %C.Stitch
946CROSSING.EXP.CHECK.3:
947     if $Thievery.Ranks >= 555 then goto CROSSING.EXP.CHECK.4
948     if $Thievery.LearningRate > 32 then goto GO.CROSS.PAWN
949CROSSING.TO.JEWELRY:
950     var LAST CROSSING.TO.JEWELRY
951     gosub AUTOMOVE jewel
952CROSSING.JEWELRY:
953     var shopcode C.Jewel
954     var SHOP Crossing Jewelry Shop
955     gosub STEAL %C.Jewel
956CROSSING.EXP.CHECK.4:
957     if $Thievery.Ranks >= 700 then goto CROSSING.EXP.CHECK.5
958CROSSING.TO.GENERAL:
959     var LAST CROSSING.TO.GENERAL
960     gosub AUTOMOVE General
961CROSSING.GENERAL:
962     var shopcode C.Gen
963     var SHOP Crossing General Store
964     gosub STEAL %C.Gen
965CROSSING.EXP.CHECK.5:
966     if $Thievery.Ranks >= 525 then goto CROSSING.EXP.CHECK.6
967     if $Thievery.LearningRate > 32 then goto GO.CROSS.PAWN
968CROSSING.TO.CLERIC:
969     var LAST CROSSING.TO.CLERIC
970     gosub AUTOMOVE duran
971CROSSING.CLERIC:
972     var shopcode C.Cler
973     var SHOP Crossing Cleric Shop
974     gosub STEAL %C.Cler
975CROSSING.EXP.CHECK.6:
976     if matchre("%guild","Cleric") && ($Thievery.Ranks >= 487) then goto CROSSING.TO.CLERIC2
977     if $Thievery.LearningRate > 32 then goto GO.CROSS.PAWN
978     goto CROSSING.EXP.CHECK.7
979CROSSING.TO.CLERIC2:
980     var LAST CROSSING.TO.CLERIC2
981     gosub AUTOMOVE 957
982CROSSING.CLERIC2:
983     var shopcode C.Cler2
984     var SHOP Crossing Cleric2 Shop
985     gosub STEAL %C.Cler2
986CROSSING.EXP.CHECK.7:
987     if $Thievery.LearningRate > 32 then goto GO.CROSS.PAWN
988     if $Thievery.Ranks >= 520 then goto CROSSING.TO.MUSIC
989CROSSING.TO.BATH:
990     var LAST CROSSING.TO.BATH
991     gosub AUTOMOVE bathhouse
992CROSSING.BATHHOUSE:
993     var shopcode C.Bath
994     var SHOP Crossing Bathhouse
995     var item.Location %C.Bath.Loc
996     gosub STEAL %C.Bath.Num %C.Bath
997CROSSING.TO.LOCK:
998     if $Thievery.Ranks >= 150 && $Thievery.Ranks < 250 then goto CROSSING.TO.MUSIC
999     var LAST CROSSING.TO.LOCK
1000     gosub AUTOMOVE locks
1001CROSSING.LOCKSMITH:
1002     var shopcode C.Lock
1003     var SHOP Crossing Locksmith
1004     gosub STEAL %C.Lock
1005CROSSING.TO.MUSIC:
1006     var LAST CROSSING.TO.MUSIC
1007     gosub AUTOMOVE Music
1008CROSSING.EXP.CHECK.8:
1009     if $Thievery.LearningRate > 32 then goto GO.CROSS.PAWN
1010     if $Thievery.Ranks >= 600 then goto CROSSING.TO.MUSIC.BACKROOM
1011CROSSING.MUSIC:
1012     var shopcode C.Music
1013     var SHOP Crossing Music Shop
1014     gosub STEAL %C.Music
1015CROSSING.TO.MUSIC.BACKROOM:
1016     var LAST CROSSING.TO.MUSIC.BACKROOM
1017     if $hidden then gosub unhide
1018     gosub MOVE go curtain
1019CROSSING.MUSIC.BACKROOM:
1020     var shopcode C.Music2
1021     var SHOP Xing music shop backroom
1022     var LAST CROSSING.TO.ARMOR
1023     gosub STEAL %C.Music2
1024     gosub MOVE go curtain
1025CROSSING.TO.ARMOR:
1026     var LAST CROSSING.TO.ARMOR
1027     gosub AUTOMOVE Armor
1028CROSSING.ARMOR:
1029     var shopcode C.Arm
1030     var SHOP Crossing Armor Shop
1031     gosub STEAL %C.Arm
1032CROSSING.TO.WEAPON:
1033     var LAST CROSSING.TO.WEAPON
1034     gosub AUTOMOVE Weapon
1035CROSSING.WEAPON:
1036     var shopcode C.Weap
1037     var SHOP Crossing Weapon Shop
1038     gosub STEAL %C.Weap
1039CROSSING.EXP.CHECK.9:
1040     if $Thievery.LearningRate > 32 then goto GO.CROSS.PAWN
1041     if $Thievery.Ranks >= 360 then goto CROSSING.EXP.CHECK.10
1042CROSSING.TO.FLORIST:
1043     var LAST CROSSING.TO.FLORIST
1044     gosub AUTOMOVE Florist
1045CROSSING.FLORIST:
1046     var shopcode C.Flow
1047     var SHOP Crossing Florist
1048     gosub STEAL %C.Flow
1049CROSSING.EXP.CHECK.10:
1050     if $Thievery.Ranks >= 300 then goto CROSSING.TO.EMPATH
1051CROSSING.TO.SHOE:
1052     var LAST CROSSING.TO.SHOE
1053     gosub AUTOMOVE Shoe
1054CROSSING.SHOES:
1055     var shopcode C.Cobb
1056     var SHOP Crossing Shoe Shop
1057     gosub STEAL %C.Cobb
1058CROSSING.TO.EMPATH:
1059     var LAST CROSSING.TO.EMPATH
1060     if !matchre("%guild","(Thief|Empath|Trader)") then goto CROSSING.EXP.CHECK.11
1061     gosub AUTOMOVE Emmiline
1062CROSSING.EMPATH:
1063     var shopcode C.Empath
1064     var SHOP Crossing Empath Shop
1065     var SECOND.ITEM 1
1066     var secondary %C.Empath.Alt
1067     gosub STEAL %C.Empath
1068CROSSING.TO.EMPATH2:
1069     var LAST CROSSING.TO.EMPATH2
1070     gosub MOVE w
1071CROSSING.EMPATH2:
1072     var shopcode C.Empath2
1073     var SHOP Crossing Empath Shop 2
1074     gosub STEAL %C.Empath2
1075CROSSING.TO.EMPATH3:
1076     var LAST CROSSING.TO.EMPATH3
1077     gosub MOVE e
1078     gosub MOVE go arch
1079CROSSING.EMPATH3:
1080     var shopcode C.Empath3
1081     var SHOP Crossing Empath Shop 3
1082     var SECOND.ITEM 1
1083     var item.Location %C.Empath3.Loc
1084     var secondary %C.Empath3.Alt
1085     gosub STEAL %C.Empath3
1086     gosub MOVE go arch
1087     gosub MOVE go door
1088     gosub MOVE go step
1089CROSSING.EXP.CHECK.11:
1090     if $Thievery.LearningRate > 32 then goto GO.CROSS.PAWN
1091     if $Thievery.Ranks >= 334 then goto CROSSING.TO.ALCHEMY
1092CROSSING.TO.HERBS:
1093     var LAST CROSSING.TO.HERBS
1094     gosub AUTOMOVE Herb
1095CROSSING.HERBS:
1096     var shopcode C.Herb
1097     var SHOP Crossing Herb Shop
1098     gosub STEAL %C.Herb
1099CROSSING.TO.ALCHEMY:
1100	 if $Thievery.Ranks >= 1050 then goto CROSSING.EXP.CHECK.13
1101     var LAST CROSSING.TO.ALCHEMY
1102     gosub AUTOMOVE Chizil
1103CROSSING.ALCHEMY:
1104     var shopcode C.Alch
1105     var SHOP Crossing Alchemy Shop
1106     gosub STEAL %C.Alch
1107CROSSING.EXP.CHECK.12:
1108     if $Thievery.Ranks >= 640 then goto CROSSING.EXP.CHECK.13
1109CROSSING.TO.TANNER:
1110     var LAST CROSSING.TO.TANNER
1111     if $hidden then gosub unhide
1112     gosub AUTOMOVE tanner
1113CROSSING.TANNER:
1114     var shopcode C.Tann
1115     var SHOP Crossing Tanner
1116     var item.Location %C.Tann.Loc
1117     gosub STEAL %C.Tann
1118CROSSING.EXP.CHECK.13:
1119     if $Thievery.Ranks >= 670 then goto CROSSING.TO.ARTIFICE
1120CROSSING.TO.HABER:
1121     var LAST CROSSING.TO.HABER
1122     gosub AUTOMOVE haber
1123CROSSING.HABERDASHERY:
1124     var shopcode C.Haber
1125     var SHOP Crossing Haberdashery
1126     gosub STEAL %C.Haber
1127CROSSING.TO.ARTIFICE:
1128     var LAST CROSSING.TO.ARTIFICE
1129     if $Thievery.Ranks >= 975 then goto GO.CROSS.PAWN
1130     gosub AUTOMOVE magic
1131CROSSING.ARTIFICER:
1132     var shopcode C.Artif
1133     var SHOP Crossing Artificer
1134     gosub STEAL %C.Artif
1135GO.PAWN.CROSS:
1136GO.CROSS.PAWN:
1137     var CURRENT.CITY CROSSING
1138     var LAST GO.CROSS.PAWN
1139     if $hidden then gosub unhide
1140     if ("%guild" = "Thief") then send khri stop
1141     pause 0.5
1142     if ("%PAWN" = "OFF") then goto GO.CROSS.BIN
1143     gosub AUTOMOVE pawn
1144     gosub PAWN.GOODS
1145     if ("%BIN" = "OFF") then goto DONE.STEALING.CROSS2
1146GO.CROSS.BIN:
1147     var LAST GO.CROSS.BIN
1148	 gosub AUTOMOVE 78
1149     gosub AUTOMOVE bin
1150     goto GO.BIN.CONT
1151	 
1152##OLD SAND SPIT METHOD
1153     #gosub AUTOMOVE sand spit tavern
1154     #gosub MOVE go back area
1155     #gosub MOVE climb ladder
1156     #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
1157          {
1158               gosub MOVE go other barrel
1159               goto GO.BIN.CONT
1160          }
1161     #if matchre("$roomobjs" , "^You also see some old barrels") then
1162          {
1163               gosub MOVE go other barrel
1164               goto GO.BIN.CONT
1165          }
1166     #if matchre("$roomobjs" , "^You also see an old barrel with a thieves guild sign") then
1167          {
1168               gosub MOVE go barrel
1169               goto GO.BIN.CONT
1170          }
1171GO.BIN.CONT:
1172	 pause .5
1173     gosub AUTOMOVE bin
1174     gosub BIN.GOODS
1175DONE.STEALING.CROSS:
1176     var LAST DONE.STEALING.CROSS
1177     # Leaving the THIEF GUILD
1178     gosub MOVE go door
1179     send ask kalag about nothing
1180     pause 0.5
1181     gosub MOVE go door
1182DONE.STEALING.CROSS2:
1183     var LAST DONE.STEALING.CROSS2
1184     if ("%guild" = "Necromancer") then goto CROSS.TELLER
1185     gosub AUTOMOVE exchange
1186     gosub KRONARS
1187CROSS.TELLER:
1188     gosub AUTOMOVE teller
1189     gosub BANK
1190	 send with 10 silver
1191     gosub MOVE out
1192     gosub MOVE out
1193     if ("%guild" = "Necromancer") && (%ROC = 0) then gosub NECRO.PREP
1194CROSS.SURRENDER:
1195     var LAST CROSSING.DECIDE
1196     gosub AUTOMOVE guard
1197     if matchre("$roomobjs","(town guard)") then put surrender guard
1198     pause 0.5
1199     pause 0.5
1200     gosub AUTOMOVE 42
1201CROSSING.DECIDE:
1202     if ("%SINGLE.RUN" = "ON") then goto FINISHED.SCRIPT
1203     if ($Thievery.LearningRate >= 30) then goto FINISHED.SCRIPT
1204     if ("%CITYCODE" = "SHARD") || ("%CITYCODE" = "HIB") || ("%CITYCODE" = "CROSSING") || ("%CITYCODE" = "LETH") && ($Thievery.LearningRate < 30) then goto TRAVEL.HAVEN
1205     if ("%CITYCODE" = "RIVERHAVEN") || ("%CITYCODE" = "ROSSMAN") || ("%CITYCODE" = "THEREN") && ($Thievery.LearningRate < 30) then goto HEAD.TO.LETH
1206     goto HEAD.TO.LETH
1207#####################################
1208## LETH DERIEL
1209#####################################
1210HEAD.TO.LETH:
1211     var CURRENT.CITY LETH
1212     var LAST HEAD.TO.LETH
1213     send .travel leth
1214     waitforre ^YOU HAVE ARRIVED
1215LETH.STEAL:
1216WARRANT.CHECK.LETH:
1217     var LAST WARRANT.CHECK.LETH
1218     if matchre("$roomobjs","(Elven Warden)") then put surrender warden
1219     pause 0.5
1220     pause 0.5
1221     echo
1222     echo *** STEALING FROM LETH DERIEL!
1223     echo
1224     gosub COOKIE
1225LETH.EXP.CHECK.0:
1226     if $Thievery.LearningRate > 32 then goto DONE.STEALING.LETH
1227     if $Thievery.Ranks >= 520 then goto LETH.TO.BOWYER
1228LETH.TO.SKIN:
1229     var LAST LETH.TO.SKIN
1230     gosub AUTOMOVE morik
1231LETH.SKIN.SHOP:
1232     var shopcode L.Skin
1233     var SHOP Leth Skin Shop
1234     gosub STEAL %L.Skin
1235LETH.TO.BOWYER:
1236     var LAST LETH.TO.BOWYER
1237     gosub AUTOMOVE Bow
1238LETH.BOWYER:
1239     var shopcode L.Bow
1240     var SHOP Leth Bowyer
1241     gosub STEAL %L.Bow
1242LETH.TO.ORIGAMI:
1243     var LAST LETH.TO.ORIGAMI
1244     gosub AUTOMOVE Origami
1245LETH.ORIGAMI.SHOP:
1246     var shopcode L.Orig
1247     var SHOP Leth Origami
1248     gosub STEAL %L.Orig.Num %L.Orig
1249LETH.EXP.CHECK.1:
1250     if $Thievery.LearningRate > 32 then goto DONE.STEALING.LETH
1251     if ($Thievery.Ranks > 400) then goto LETH.TO.WEAPON
1252     goto LETH.EXP.CHECK.2
1253LETH.TO.WEAPON:
1254     var LAST LETH.TO.WEAPON
1255     if $hidden then gosub unhide
1256     gosub AUTOMOVE weapon
1257LETH.WEAPON.SHOP:
1258     var shopcode L.Weap
1259     var SHOP Leth Weapon Shop
1260     gosub STEAL %L.Weap
1261LETH.EXP.CHECK.2:
1262     if $Thievery.Ranks >= 487 then goto LETH.TO.BARD2
1263LETH.TO.WICKER:
1264     var LAST LETH.TO.WICKER
1265     gosub AUTOMOVE Wicker
1266LETH.WICKER.SHOP:
1267     var shopcode L.Wick
1268     var SHOP Leth Wicker Shop
1269     gosub STEAL %L.Wick
1270LETH.EXP.CHECK.3:
1271     if $Thievery.LearningRate > 32 then goto DONE.STEALING.LETH
1272     if $Thievery.Ranks >= 300 then goto LETH.TO.BARD2
1273LETH.TO.BARD:
1274     var LAST LETH.TO.BARD
1275     gosub AUTOMOVE music
1276LETH.BARD.SHOP:
1277     var shopcode L.Bard
1278     var SHOP Leth Bard Shop
1279     gosub STEAL %L.Bard
1280LETH.TO.BARD2:
1281     var LAST LETH.TO.BARD2
1282     if $Thievery.Ranks > 980 then goto LETH.EXP.CHECK.4
1283     gosub AUTOMOVE siny
1284LETH.BARD.SHOP2:
1285     var shopcode L.Bard2
1286     var SHOP Leth Bard2 Shop
1287     gosub STEAL %L.Bard2
1288LETH.EXP.CHECK.4:
1289     if $Thievery.LearningRate > 32 then goto DONE.STEALING.LETH
1290     if $Thievery.Ranks >= 700 then goto LETH.TO.WOOD
1291LETH.TO.CLOTHES:
1292     var LAST LETH.TO.CLOTHES
1293     gosub AUTOMOVE Clothing
1294LETH.CLOTHES.SHOP:
1295     var shopcode L.Cloth
1296     var SHOP Leth Clothes Shop
1297     gosub STEAL %L.Cloth
1298     if $hidden then gosub unhide
1299LETH.TO.WOOD:
1300     var LAST LETH.TO.WOOD
1301     if $hidden then gosub unhide
1302     gosub AUTOMOVE wood
1303LETH.WOOD.SHOP:
1304     var shopcode L.Wood
1305     var SHOP Leth Wood Shop
1306     gosub STEAL %L.Wood
1307LETH.TO.GENERAL:
1308     var LAST LETH.TO.GENERAL
1309     gosub AUTOMOVE General
1310LETH.GENERAL.STORE:
1311     var shopcode L.Gen
1312     var SHOP Leth General Store
1313     var SECOND.ITEM 1
1314     var secondary %L.Gen.Alt
1315     gosub STEAL %L.Gen
1316LETH.EXP.CHECK.5:
1317     if $Thievery.LearningRate > 32 then goto DONE.STEALING.LETH
1318     if $Thievery.Ranks >= 465 then goto LETH.EXP.CHECK.6
1319LETH.TO.PERFUME:
1320     var LAST LETH.TO.PERFUME
1321     gosub AUTOMOVE Perfume
1322LETH.PERFUME.SHOP:
1323     var shopcode L.Perf
1324     var SHOP Leth Perfume Shop
1325     gosub STEAL %L.Perf
1326LETH.SURRENDER:
1327     var LAST LETH.EXP.CHECK.6
1328     gosub AUTOMOVE guard
1329     if matchre("$roomobjs","(Elven Warden)") then put surrender warden
1330     pause 0.5
1331     pause 0.5
1332LETH.EXP.CHECK.6:
1333     if $Thievery.LearningRate > 32 then goto DONE.STEALING.LETH
1334     #if $Thievery.Ranks >= 300 then goto LETH.TO.TREVELLYN
1335     goto DONE.STEALING.LETH
1336##########
1337LETH.TO.TREVELLYN:
1338     var LAST LETH.TO.TREVELLYN
1339     gosub AUTOMOVE shard
1340LETH.TO.JEWELRY:
1341     gosub AUTOMOVE fine jewelry
1342LETH.JEWELRY:
1343     var shopcode L.Jewelry
1344     var SHOP Leth Fine Jewelry
1345     gosub STEAL %L.Jewelry
1346LETH.TO.BRIDAL:
1347     gosub AUTOMOVE bridal
1348LETH.BRIDAL:
1349     var shopcode L.Bridal
1350     var SHOP Leth Bridal Fashions
1351     gosub STEAL %L.Bridal
1352LETH.TO.CLERICAL:
1353     gosub AUTOMOVE women
1354LETH.CLERICAL:
1355     var shopcode L.Cleric
1356     var SHOP Leth Clerical Supplies
1357     gosub STEAL %L.Cleric
1358LETH.TO.GENTLEMEN:
1359     gosub AUTOMOVE women
1360LETH.GENTLEMEN:
1361     var shopcode L.Gentle
1362     var SHOP Leth Gentlemen's Attire
1363     gosub STEAL %L.Gentle
1364LETH.TO.TRAVEL:
1365     gosub AUTOMOVE women
1366LETH.TRAVEL:
1367     var shopcode L.Travel
1368     var SHOP Leth Travel Fashions
1369     gosub STEAL %L.Travel
1370LEAVE.TREV:
1371     var LAST LETH.DECIDE
1372     gosub AUTOMOVE leth
1373##########
1374DONE.STEALING.LETH:
1375DONE.STEALING.LETH.BANK:
1376     var LAST DONE.STEALING.LETH
1377     if ("%guild" = "Necromancer") then goto LETH.TELLER
1378     gosub AUTOMOVE exchange
1379     gosub KRONARS
1380LETH.TELLER:
1381     gosub AUTOMOVE teller
1382     gosub BANK
1383     gosub AUTOMOVE portal
1384LETH.DECIDE:
1385     if ("%SINGLE.RUN" = "ON") then goto PAWN.LETH
1386     if $Thievery.LearningRate > 30 then goto PAWN.LETH
1387     if ("%CITYCODE" = "CROSSING") || ("%CITYCODE" = "RIVERHAVEN") || ("%CITYCODE" = "ROSSMAN") || ("%CITYCODE" = "THEREN") && ($Thievery.LearningRate < 30) then goto TO.SHARD
1388     if ("%CITYCODE" = "SHARD") || ("%CITYCODE" = "LETH") || ("%CITYCODE" = "HIB") && ($Thievery.LearningRate < 30) then goto ARTHE.STEAL
1389PAWN.LETH:
1390     send .travel cross
1391     waitforre ^YOU HAVE ARRIVED
1392GO.LETH.PAWN:
1393     var CURRENT.CITY LETH
1394     var LAST GO.LETH.PAWN
1395     if $hidden then gosub unhide
1396     if ("%guild" = "Thief") then send khri stop
1397     pause 0.5
1398     if ("%PAWN" = "OFF") then goto GO.LETH.BIN
1399     gosub AUTOMOVE PAWN
1400     gosub PAWN.GOODS
1401     if ("%BIN" = "OFF") then goto DONE.STEALING.LETH3
1402GO.LETH.BIN:
1403     var LAST GO.LETH.BIN
1404     gosub AUTOMOVE sand spit tavern
1405     gosub MOVE go back area
1406     gosub MOVE climb ladder
1407     if matchre("$roomobjs" , "^You also see some old barrels") then gosub MOVE go other barrel
1408     else gosub MOVE go barrel
1409     gosub AUTOMOVE bin
1410     gosub BIN.GOODS
1411DONE.STEALING.LETH2:
1412     var LAST DONE.STEALING.LETH2
1413     # Leaving the THIEF GUILD
1414     gosub MOVE go door
1415     send ask kalag about experience
1416     pause 0.5
1417     gosub MOVE go door
1418DONE.STEALING.LETH3:
1419     var LAST DONE.STEALING.LETH3
1420if ("%guild" = "Necromancer") then goto LETH3.TELLER
1421     gosub AUTOMOVE exchange
1422     gosub KRONARS
1423LETH3.TELLER:
1424     gosub AUTOMOVE teller
1425     gosub BANK
1426     goto FINISHED.SCRIPT
1427############################################################################
1428## ILLITHI STEALING SECTION (SHARD / HIB / BOAR CLAN ETC                  ##
1429############################################################################
1430TO.SHARD:
1431     var LAST TO.SHARD
1432     if ("%guild" = "Thief") then send khri stop
1433     pause 0.5
1434     send .travel shard
1435     waitforre ^YOU HAVE ARRIVED
1436OUTSIDE.SHARD:
1437     var LAST OUTSIDE.SHARD
1438     gosub AUTOMOVE east
1439     pause 0.5
1440     if "$zoneid" = "66" then send go gate
1441SHARD.STEAL:
1442SHARD.STEALING:
1443WARRANT.CHECK.SHARD:
1444     var LAST SHARD.STEAL
1445     var CURRENT.CITY SHARD
1446     if matchre("$roomobjs","(Shard sentinel)") then put surrender sentin
1447     pause 0.5
1448     pause 0.5
1449     echo
1450     echo *** STEALING FROM SHARD!
1451     echo
1452     pause 0.5
1453     gosub COOKIE
1454     gosub TIME.CHECK
1455SHARD.TO.GENERAL:
1456     var LAST SHARD.TO.GENERAL
1457     gosub AUTOMOVE general
1458SHARD.GENERAL:
1459     var shopcode S.Gen
1460     var SHOP Shard General Store
1461     gosub STEAL %S.Gen
1462     gosub MOVE out
1463SHARD.TIME.0:
1464     if ($Time.isDay = 0) then goto SHARD.TO.CLERIC
1465     if ($Time.isDay = 1) then goto SHARD.TO.WEAPON
1466     gosub TIME.CHECK
1467     if ("%TIME" = "NIGHT") then goto SHARD.TO.CLERIC
1468SHARD.TO.WEAPON:
1469     var LAST SHARD.TO.WEAPON
1470     gosub AUTOMOVE fiona
1471SHARD.WEAPON:
1472     var shopcode S.Weap
1473     var SHOP Shard Weapon Shop
1474     gosub STEAL %S.Weap
1475SHARD.EXP.CHECK.0:
1476     if $Thievery.Ranks >= 555 then goto SHARD.TO.CLERIC
1477SHARD.TO.CLOTHING:
1478     var LAST SHARD.TO.CLOTHING
1479     gosub AUTOMOVE stitchery
1480SHARD.CLOTHING:
1481     var shopcode S.Stitch
1482     var SHOP Shard Stitchery
1483     gosub STEAL %S.Stitch
1484SHARD.TO.CLERIC:
1485     var LAST SHARD.TO.CLERIC
1486     if $Thievery.Ranks >= 460 then goto SHARD.TO.ALCHEMIST
1487     gosub AUTOMOVE cleric shop
1488SHARD.CLERIC:
1489     var shopcode S.Cleric
1490     var SHOP Shard Cleric Shop
1491     gosub STEAL %S.Cleric
1492SHARD.TO.ALCHEMIST:
1493	 if $Thievery.Ranks >= 1050 then goto SHARD.EXP.CHECK.1
1494     var LAST SHARD.TO.ALCHEMIST
1495     gosub AUTOMOVE alch
1496SHARD.ALCHEMIST:
1497     var shopcode S.Alch
1498     var SHOP Shard Alchemist
1499     gosub STEAL %S.Alch
1500SHARD.EXP.CHECK.1:
1501     if $Thievery.Ranks >= 334 then goto SHARD.TIME.1
1502     if $Thievery.LearningRate > 32 then goto GO.PAWN.SHARD
1503SHARD.TO.HERB:
1504     var LAST SHARD.TO.HERB
1505     gosub AUTOMOVE herb
1506SHARD.HERB:
1507     var shopcode S.Herb
1508     var SHOP Shard Herb
1509     gosub STEAL %S.Herb
1510SHARD.TIME.1:
1511     gosub TIME.CHECK
1512     if ($Time.isDay = 0) then goto SHARD.TO.REED
1513     if ($Time.isDay = 1) then goto SHARD.TO.ARTIFICER
1514     if ("%TIME" = "NIGHT") then goto SHARD.TO.REED
1515SHARD.TO.ARTIFICER:
1516     var LAST SHARD.TO.ARTIFICER
1517     gosub AUTOMOVE magic
1518SHARD.ARTIFICER:
1519     var shopcode S.Artif
1520     var SHOP Shard Artificer
1521     gosub STEAL %S.Artif
1522     send out
1523     pause 0.5
1524SHARD.TIME.2:
1525     gosub TIME.CHECK
1526     if ("%TIME" = "NIGHT") then goto SHARD.TO.ARMORY
1527SHARD.TO.MUSIC:
1528     var LAST SHARD.TO.MUSIC
1529     gosub AUTOMOVE music
1530SHARD.MUSIC:
1531     var shopcode S.Music
1532     var SHOP Shard Music Shop
1533     gosub STEAL %S.Music
1534SHARD.TO.LOCK:
1535     var LAST SHARD.TO.ARMORY
1536     send ask malik about thieves
1537     pause 0.5
1538     send order pick
1539     pause 0.5
1540     send offer 999999999
1541     pause 0.5
1542     send offer 999999999
1543     pause 12
1544     gosub STAND
1545SHARD.LOCK:
1546     var shopcode S.Lock
1547     var SHOP Shard Lockpick Shop
1548     gosub STEAL %S.Lock
1549     put go trap
1550     pause .5
1551SHARD.TIME.3:
1552     gosub TIME.CHECK
1553     if ("%TIME" = "NIGHT") then goto SHARD.TO.REED
1554SHARD.TO.ARMORY:
1555     var LAST SHARD.TO.ARMORY
1556     gosub AUTOMOVE armor
1557SHARD.ARMORY:
1558     var shopcode S.Armor
1559     var SHOP Shard Armory
1560     gosub STEAL %S.Armor
1561SHARD.TO.REED:
1562     var LAST SHARD.TO.REED
1563     gosub AUTOMOVE 593
1564SHARD.REED:
1565     var shopcode S.Reed
1566     var SHOP Shard Reed
1567     gosub STEAL %S.Reed.Num %S.Reed
1568SHARD.TO.SCHOLAR:
1569     var LAST SHARD.TO.SCHOLAR
1570     gosub AUTOMOVE scholar
1571SHARD.SCHOLAR:
1572     var shopcode S.Museum
1573     var SHOP Shard Scholar's Museum Gift Shop
1574     gosub STEAL %S.Museum
1575SHARD.TIME.4:
1576     gosub TIME.CHECK
1577     if ("%TIME" = "NIGHT") then goto SHARD.EXP.CHECK.2
1578SHARD.TO.BOWS:
1579     var LAST SHARD.TO.BOWS
1580     gosub AUTOMOVE bows
1581SHARD.BOWS:
1582     var shopcode S.Bow
1583     var SHOP Shard Bowyer
1584     gosub STEAL %S.Bow
1585     gosub MOVE out
1586SHARD.EXP.CHECK.2:
1587     if $Thievery.Ranks < 200 then goto SHARD.TO.COIN 
1588     if $Thievery.LearningRate > 32 then goto GO.PAWN.SHARD
1589SHARD.TO.SPIRE:
1590     var LAST SHARD.TO.SPIRE
1591     gosub AUTOMOVE spire
1592SHARD.SPIRE:
1593     var shopcode S.Spire
1594     var SHOP Spires of Glory
1595     gosub STEAL %S.Spire
1596SHARD.TO.COIN:
1597     if $Thievery.Ranks > 500 then goto SHARD.TO.TOKEN
1598     var LAST SHARD.TO.COIN
1599     gosub AUTOMOVE coin
1600SHARD.COIN:
1601     var shopcode S.Coin
1602     var SHOP Coin of the Realm
1603     var item.Location %S.Coin.Loc
1604     gosub STEAL %S.Coin
1605SHARD.TO.TOKEN:
1606     var LAST SHARD.TO.TOKEN
1607     gosub AUTOMOVE token
1608SHARD.TOKEN:
1609     var shopcode S.Token
1610     var SHOP Token Shop
1611     gosub STEAL %S.Token
1612SHARD.TO.BARBER:
1613     if $Thievery.Ranks > 950 then goto SHARD.TO.FRILLS
1614     var LAST SHARD.TO.BARBER
1615     gosub AUTOMOVE barber
1616SHARD.BARBER:
1617     var shopcode S.Barber
1618     var SHOP Shard Barber Shop
1619     gosub STEAL %S.Barber.Num %S.Barber
1620SHARD.TO.FRILLS:
1621     if $Thievery.Ranks >= 1050 then goto SHARD.TO.HERALDRY
1622     var LAST SHARD.TO.FRILLS
1623     gosub AUTOMOVE Little
1624SHARD.FRILLS:
1625     var shopcode S.Frill
1626     var SHOP Shard Little Frills
1627     gosub STEAL %S.Frill
1628SHARD.TO.HERALDRY:
1629     var LAST SHARD.TO.HERALDRY
1630     gosub AUTOMOVE herald
1631SHARD.HERALDRY:
1632     var shopcode S.Herald
1633     var SHOP Shard Heraldry Shop
1634     var item.Location %S.Herald.Loc
1635     gosub STEAL %S.Herald
1636SHARD.TO.GIFT:
1637     var LAST SHARD.TO.GIFT
1638     gosub AUTOMOVE gift
1639SHARD.GIFT:
1640     var shopcode S.Gift
1641     var SHOP Shard Gift Shop
1642     var item.Location %S.Gift.Loc
1643     gosub STEAL %S.Gift
1644SHARD.TO.TOY:
1645     if $Thievery.Ranks >= 1050 then goto SHARD.TO.MEMORY
1646     var LAST SHARD.TO.TOY
1647     gosub AUTOMOVE toy
1648SHARD.TOY:
1649     var shopcode S.Toy
1650     var SHOP Shard Toy Shop
1651     var item.Location %S.Toy.Loc
1652     gosub STEAL %S.Toy
1653SHARD.TO.MEMORY:
1654     var LAST SHARD.TO.MEMORY
1655     gosub AUTOMOVE 629
1656SHARD.MEMORY:
1657     var shopcode S.Memory
1658     var SHOP Shard Memories
1659     gosub STEAL S.Memory.Num %S.Memory
1660SHARD.TO.EASTGATE:
1661     var LAST SHARD.TO.EASTGATE
1662     if $Thievery.LearningRate > 32 then goto GO.PAWN.SHARD
1663     if $hidden then gosub unhide
1664     gosub AUTOMOVE East Gate
1665SHARD.EXP.CHECK.3:
1666     if $Thievery.Ranks >= 600 then goto SHARD.TO.SURVIVAL
1667EASTGATE.TO.TANNER:
1668     gosub AUTOMOVE tanner
1669SHARD.TANNER:
1670     var shopcode S.Tanner
1671     var SHOP Shard Tanner
1672     gosub STEAL %S.Tanner
1673SHARD.TO.SURVIVAL:
1674     if $hidden then gosub unhide
1675     gosub AUTOMOVE survival
1676SHARD.SURVIVAL:
1677     var shopcode S.Surv
1678     var SHOP Shard Survival
1679     var item.Location %S.Surv.Loc
1680     var SECOND.ITEM 1
1681     var secondary %S.Surv.Alt
1682     gosub STEAL %S.Surv
1683SHARD.TO.SURVIVAL2:
1684     gosub AUTOMOVE 33
1685SHARD.SURVIVAL2:
1686     var shopcode S.Surv2
1687     var SHOP Shard Survivalist Shop (Back room)
1688     var item.Location %S.Surv2.Loc
1689     var SECOND.ITEM 1
1690     var secondary %S.Surv2.Alt
1691     gosub STEAL %S.Surv2
1692     goto DONE.STEAL.SHARD
1693TO.STEELCLAW.WEAPON:
1694     if $hidden then gosub unhide
1695     pause 0.5
1696     gosub AUTOMOVE weapon
1697STEELCLAW.WEAPON:
1698     var shopcode SC.Weap
1699     var SHOP SteelClaw Clan Weapons
1700     gosub STEAL %SC.Weap
1701DONE.STEAL.SHARD:
1702var LAST GO.PAWN.SHARD
1703     if $hidden then gosub unhide
1704     if ("%guild" = "Thief") then send khri stop
1705     pause 0.5
1706     gosub AUTOMOVE East
1707GO.PAWN.SHARD:
1708     var CURRENT.CITY SHARD
1709     var LAST GO.PAWN.SHARD
1710     if ("%PAWN" = "OFF") then goto GO.BIN.SHARD
1711     gosub AUTOMOVE PAWN
1712     gosub PAWN.GOODS
1713SHARD.BIN.DECIDE:
1714     if ("%BIN" = "OFF") then goto SHARD.TO.BANK
1715GO.BIN.SHARD:
1716     var LAST GO.BIN.SHARD
1717     gosub AUTOMOVE 93
1718     gosub MOVE go well
1719     gosub MOVE climb ladder
1720     gosub MOVE w
1721     gosub MOVE out
1722     gosub MOVE w
1723     gosub MOVE se
1724     gosub MOVE go gap
1725     send knock door
1726     pause 0.5
1727     send '%SHARD.PW
1728     pause 0.5
1729     gosub MOVE go door
1730     gosub MOVE go arch
1731     gosub MOVE s
1732AT.SHARD.BIN:
1733     gosub BIN.GOODS
1734DONE.STEALING.SHARD:
1735     var LAST DONE.STEALING.SHARD
1736     send ask sais about exp
1737     pause 0.5
1738     gosub MOVE n
1739     gosub MOVE go arch
1740     gosub MOVE go door
1741     gosub MOVE n
1742     gosub MOVE nw
1743     gosub MOVE e
1744     gosub MOVE go fiss
1745     gosub MOVE e
1746     gosub MOVE climb ladder
1747     gosub MOVE up
1748SHARD.TO.BANK:
1749     var LAST SHARD.TO.BANK
1750     if ("%guild" = "Necromancer") then goto SHARD.TELLER
1751     gosub AUTOMOVE exchange
1752     gosub DOKORAS
1753SHARD.TELLER:
1754     gosub AUTOMOVE teller
1755     gosub BANK
1756	 send with 10 silver
1757     if ("%guild" = "Necromancer") && (%ROC = 0) then gosub NECRO.PREP
1758	 if ("%guild" = "Necromancer") then goto SURRENDER.SHARD
1759	 gosub AUTOMOVE exchange
1760	 send exch all dok for kro
1761SURRENDER.SHARD:
1762     var LAST DONE.SHARD
1763     gosub AUTOMOVE sentin
1764     if matchre("$roomobjs","(Shard sentinel)") then put surrender sentin
1765     pause
1766     pause 0.5
1767DONE.SHARD:
1768     if ("%CITYCODE" = "CROSSING") || ("%CITYCODE" = "RIVERHAVEN") || ("%CITYCODE" = "ROSSMAN") || ("%CITYCODE" = "THEREN") then goto FINISHED.SCRIPT
1769     if ($Thievery.LearningRate > 30) then goto FINISHED.SCRIPT
1770     if ("%SINGLE.RUN" = "ON") then goto FINISHED.SCRIPT
1771SHARD.TO.CROSS:
1772     var LAST SHARD.TO.CROSS
1773     if ("%CITYCODE" = "SHARD") || ("%CITYCODE" = "HIB") then
1774          {
1775               gosub AUTOMOVE E Gate
1776               gosub AUTOMOVE 65
1777          }
1778     goto HEAD.TO.LETH
1779GO.TO.CROSS:
1780     var LAST GO.TO.CROSS
1781     var BIN.CROSS 1
1782     var CITY CROSS
1783     gosub AUTOMOVE E Gate
1784     gosub AUTOMOVE 65
1785     pause 0.5
1786     send .travel cross
1787     waitforre ^YOU HAVE ARRIVED
1788     pause
1789     if ("%CITYCODE" = "CROSSING") || ("%CITYCODE" = "RIVERHAVEN") || ("%CITYCODE" = "ROSSMAN") || ("%CITYCODE" = "THEREN") then goto FINISHED.SCRIPT
1790     goto TO.ARTHE
1791GO.TO.HIB:
1792     var LAST GO.TO.HIB
1793     var BIN.HIB 1
1794     var CITY HIB
1795     gosub AUTOMOVE E Gate
1796     pause 0.5
1797     gosub AUTOMOVE 65
1798     pause 0.5
1799     send .travel hib
1800     waitforre ^YOU HAVE ARRIVED
1801####################################
1802# Hibarnhvidar
1803####################################
1804HIB.STEAL:
1805HIB.TO.SHIELD:
1806     var CURRENT.CITY HIB
1807     echo
1808     echo **** STEALING FROM HIB! ****
1809     echo
1810     pause 0.5
1811     gosub COOKIE
1812     gosub AUTOMOVE shield
1813HIB.SHIELD:
1814     var shopcode H.Shield
1815     var SHOP Hib Shield Shop
1816     gosub STEAL %H.Shield
1817HIB.EXP.CHECK.0:
1818     if $Thievery.Ranks < 600 then goto HIB.TO.TOGGERY
1819HIB.TO.JEWELRY:
1820     var LAST HIB.TO.JEWELRY
1821     gosub AUTOMOVE jewelry
1822HIB.JEWELRY:
1823     var shopcode H.Jewel
1824     var SHOP Hib Jewelry
1825     gosub STEAL %H.Jewel
1826HIB.TO.TOGGERY:
1827     var LAST HIB.TO.TOGGERY
1828     gosub AUTOMOVE togger
1829HIB.TOGGERY:
1830     var shopcode H.Tog
1831     var SHOP Hib Toggery
1832     gosub STEAL %H.Tog
1833HIB.TO.SUNDRIES:
1834     var LAST HIB.TO.SUNDRIES
1835     gosub AUTOMOVE general
1836HIB.SUNDRIES:
1837     var shopcode H.Sund
1838     var SHOP Hib Sundries
1839     gosub STEAL %H.Sund
1840     gosub MOVE OUT
1841HIB.TO.LAMPS:
1842     var LAST HIB.TO.LAMPS
1843     gosub AUTOMOVE lamp
1844HIB.LAMPS:
1845     var shopcode H.Lamp
1846     var SHOP Hib Lamps
1847     gosub STEAL %H.Lamp
1848HIB.EXP.CHECK.1:
1849     if $Thievery.Ranks >= 460 then goto HIB.TO.MUSIC
1850HIB.TO.HERBS:
1851     var LAST HIB.TO.HERBS
1852     gosub AUTOMOVE herb
1853HIB.HERBS:
1854     var shopcode H.Herb
1855     var SHOP Hib Herbs
1856     gosub STEAL %H.Herb
1857HIB.TO.MUSIC:
1858     var LAST HIB.TO.MUSIC
1859     gosub AUTOMOVE music
1860HIB.MUSIC:
1861     var shopcode H.Music
1862     var SHOP Hib Music Store
1863     gosub STEAL %H.Music
1864HIB.TO.ALCHEMY:
1865     var LAST HIB.TO.ALCHEMY
1866     gosub AUTOMOVE alchemy
1867HIB.ALCHEMY:
1868     var shopcode H.Alch
1869     var SHOP Hib Alchemist
1870     gosub STEAL %H.Alch
1871HIB.EXP.CHECK.2:
1872     if $Thievery.Ranks >= 430 then goto SURRENDER.HIB
1873HIB.TO.FORGE:
1874     var LAST HIB.TO.FORGE
1875     gosub AUTOMOVE forge
1876HIB.FORGE:
1877     var shopcode H.Forge
1878     var SHOP Hib Forge
1879     var item.Location %H.Forge.Loc
1880     gosub STEAL %H.Forge
1881SURRENDER.HIB:
1882     var LAST LEAVE.HIB
1883     gosub AUTOMOVE 200
1884     put surrender guard
1885     pause
1886     pause .5
1887LEAVE.HIB:
1888     var LAST LEAVE.HIB
1889     gosub AUTOMOVE 75
1890     send .travel raven
1891     waitforre ^YOU HAVE ARRIVED
1892RAVEN.STEAL:
1893     var LAST RAVEN.STEAL
1894     gosub AUTOMOVE 179
1895RAVEN.GENERAL:
1896     var shopcode R.Gen
1897     var SHOP Raven's Point General
1898     gosub STEAL %R.Gen
1899RAVEN.EXP.CHECK.0:
1900     if $Thievery.Ranks >= 600 then goto RETURN.TO.SHARD
1901RAVEN.TO.TOBACCO:
1902     var LAST RAVEN.TO.TOBACCO
1903     gosub AUTOMOVE 144
1904RAVEN.TOBACCO:
1905     var shopcode R.Tobac
1906     var SHOP Raven's Point Tobacco
1907     gosub STEAL %R.Tobac
1908RETURN.TO.SHARD:
1909     var LAST RETURN.TO.SHARD
1910     if $hidden then gosub unhide
1911     if ("%guild" = "Thief") then send khri stop
1912     pause 0.5
1913     gosub AUTOMOVE 133
1914     send .travel shard
1915     waitforre ^YOU HAVE ARRIVED
1916BACKINSHARD:
1917     var LAST BACKINSHARD
1918     gosub AUTOMOVE east
1919     goto SHARD.STEAL
1920############################################################################################
1921############################################################################################
1922FINISHED.SCRIPT:
1923     echo
1924     echo *** DONE STEALING!
1925     echo
1926     pause 0.1
1927     send open my %SAFE.CONTAINER
1928     pause 0.5
1929     put #echo >Log Cyan **** FINAL STEALING REPORT  ****
1930     put #echo >Log Cyan ~ Binned: %Binned Items  | Pawned: %Pawned Items
1931     put #echo >Log Cyan ~ %Charges Stealing Charge(s)! | Jailed %Jailed Time(s)!
1932     put #echo >Log Cyan ~ Thievery: $Thievery.Ranks - $Thievery.LearningRate / 34
1933     put #echo >Log Cyan ~ Profit: %Plat Plat, %Gold Gold, %Silver Silver, %Bronze Bronze and %Copper Copper
1934     pause 0.5
1935     gosub WEAR.ARMOR
1936     pause 0.5
1937     if ("%RETURN.HOME" = "NO") then goto COMPLETE
1938TRAVEL.HOME:
1939     echo
1940     echo **************************************
1941     echo * Travelling back to starting city!!
1942     echo **************************************
1943     echo
1944     pause
1945     if "$zoneid" = "1" then gosub AUTOMOVE 42
1946     if "$zoneid" = "30" then gosub AUTOMOVE town
1947     if "$zoneid" = "42" then gosub AUTOMOVE portal
1948     if "$zoneid" = "61" then gosub AUTOMOVE portal
1949     if "$zoneid" = "116" then gosub AUTOMOVE 75
1950     if "$zoneid" = "67" then gosub AUTOMOVE 1
1951     pause 0.5
1952TRAVEL:
1953     pause 0.5
1954     send .travel %CITYCODE
1955     waitforre YOU HAVE ARRIVED
1956     put #echo >Log Chartreuse *** Returned you to Starting City: %CITYCODE
1957     echo
1958     echo **** DONE!!!!
1959     echo
1960COMPLETE:
1961     pause 0.5
1962     put #parse DONE PAWNING
1963     put #parse DONE STEALING
1964     exit
1965############################################################################################
1966## STILL IN DEVELOPMENT
1967############################################################################################
1968CLAN.HEAL:
1969     put #echo >Log Red Your hands were cut off! Looking for healer!
1970     action goto CLAN.HEAL1 when eval $stunned = 1
1971     pause 3
1972CLAN.HEAL1:
1973     pause 10
1974     if $stunned = 1 then goto CLAN.HEAL
1975     action remove eval $stunned = 1
1976     gosub stand
1977CLAN.TO.EMPATH:
1978     gosub AUTOMOVE portal
1979     gosub MOVE go meeting portal
1980     send lean gwyd
1981     send lean bedlam
1982     pause 40
1983     gosub MOVE go exit portal
1984     pause
1985     goto %LAST
1986############################################################################################
1987#              END OF STEALING RUN TRAINING
1988############################################################################################
1989################################
1990#  PAWNING / BINNING LOGIC     #
1991################################
1992PAWN.GOODS:
1993     echo
1994     echo #### GETTING SOME COIN!  ####
1995     echo #### PAWNING %CURRENT.CITY HAUL! ####
1996     echo
1997     pause 0.5
1998     var BINORPAWN PAWN
1999     gosub BAG.EMPTY %PAWN.CONTAINER
2000     if ("%BIN" = "OFF") then gosub BAG.EMPTY %BIN.CONTAINER
2001     gosub STOW
2002     gosub STOWING
2003     return
2004############################################################################################
2005BIN.GOODS:
2006     echo
2007     echo ########  Binning %CURRENT.CITY Haul!  ########
2008     echo
2009     pause 0.5
2010     var BINORPAWN BIN
2011     gosub BAG.EMPTY %BIN.CONTAINER
2012     gosub STOW
2013     gosub STOWING
2014     return
2015############################################################################################
2016################################
2017#   STEALING SUB-ROUTINE       #
2018################################
2019STEAL:
2020     var item $0
2021     if ("%guild" != "Thief") then var STEALCOUNT %%shopcodeQuant
2022	 if ("%guild" = "Empath") && ("%PERC.HEALTH" = "ON") then gosub perc.health
2023STEAL.1:
2024     if contains("%item" , "nothing") then goto STEAL.RETURN
2025     if ("$righthand" != "Empty") || ("$lefthand" != "Empty") then gosub stowing
2026MARKING:
2027     if !$hidden then gosub HIDE
2028     if ("%marking" = "OFF") then goto STEALING
2029     if $roundtime > 0 then pause
2030     pause 0.5
2031     matchre MARKING ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2032     matchre MARK.LAST to take unwanted notice of you|You trace an X across your chest
2033     matchre SECONDARY.CHECK Mark what\?|^Something appears different
2034     matchre TOO.HOT you are being watched|looking for a reason to call the guards|beyond foolish|pretty sure you'll be caught
2035     matchre TOO.HOT it would likely be futile|gavel echoes through your mind|feel the taste of bitter failure
2036     matchre TOO.HOT a long shot|chances to lift it|quite the struggle|Guards! Guards!
2037     matchre STEALING Roundtime|^You can not make marks on
2038     send mark %item %item.Location
2039     matchwait
2040MARK.LAST:
2041     var marking OFF
2042STEALING:
2043     if $roundtime > 0 then pause
2044     pause 0.5
2045     matchre STEALING ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2046     matchre STEAL.1 ^You need at least one hand free
2047     matchre STEAL.RETURN You haven't picked something|You can't steal
2048     matchre TOO.HOT for help\.|realize that you are being watched
2049     matchre STEAL.CHECK Roundtime
2050     send steal %item %item.Location
2051     matchwait
2052STEAL.CHECK:
2053      math stolen add 1
2054      if "%no.learn" = "ON" then goto STEAL.RETURN
2055      if %stolen >= %STEALCOUNT then goto STEAL.RETURN
2056      if %stolen <= 1 then goto MARKING
2057      if %stolen = 2 then gosub stow
2058      if %stolen <= 3 then goto MARKING
2059      if %stolen = 4 then gosub stow
2060      if %stolen = 5 then goto MARKING
2061      if %stolen >= 6 then goto STEAL.RETURN
2062      goto MARKING
2063TOO.HOT:
2064     var LEAVE.SHOP YES
2065     put #echo >log Orchid Leaving: %SHOP...  TOO HOT!
2066STEAL.RETURN:
2067      action remove You don't feel you learned anything useful from this trivial theft
2068      action remove notices you attempting to make the grab and begins to shout for help.
2069      var stolen 0
2070      var no.learn OFF
2071      var item.location
2072      if ("%guild" = "Thief") then var marking ON
2073      if ("$righthand" != "Empty") || ("$lefthand" != "Empty") then gosub stow
2074      if $hidden then if ("%SNEAK" = "OFF") then gosub unhide
2075      if ("%guild" = "Necromancer") && (%ROC = 0) then gosub NECRO.PREP
2076      pause 0.1
2077      return
2078SECONDARY.CHECK:
2079     if (%SECOND.ITEM = 0) then goto STEAL.RETURN
2080     var item %secondary
2081     var SECOND.ITEM 0
2082     echo
2083     echo *** OUT OF STOCK! CHECKING FOR SECONDARY ITEMS..
2084     echo
2085     goto STEAL.1
2086#######################
2087#   PAWNING ROUTINE   #
2088#######################
2089PAWN:
2090     var PAWN.ITEM $0
2091PAWN.GET:
2092     pause 0.1
2093     pause 0.1
2094     matchre PAWN.GET ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2095     matchre PAWN.BIN ^You need a free hand
2096     matchre PAWN.SELL ^You get
2097     matchre PAWN.SELL ^You are already
2098     matchre PAWN.SELL ^You pick up
2099     matchre RETURN ^What were you referring to\?
2100     matchre RETURN ^You aren't holding that\.
2101     matchre RETURN ^Please rephrase that command\.|^I could not
2102     send get my %PAWN.ITEM in my %bag
2103     matchwait
2104PAWN.SELL:
2105     matchre PAWN.SELL ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2106     matchre PAWN.GET ^You sell your
2107     matchre PAWN.BIN slit a throat for this
2108     matchre BUCKET You'll want to empty that first
2109     send sell my %PAWN.ITEM
2110     matchwait 0.5
2111PAWN.BIN:
2112      if ("%BIN" = "OFF") then goto BUCKET
2113      matchre PAWN.BIN ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2114      matchre PAWN.GET ^You put
2115      matchre PAWN.GET ^What were you referring to\?
2116      matchre PAWN.GET ^You aren't holding that\.
2117      matchre PAWN.GET ^Please rephrase that command\.
2118      matchre BUCKET ^That's too heavy to go in there\!
2119      matchre BUCKET ^You can't put that in there\!
2120      matchre BUCKET ^There is no more room|too long to fit
2121      matchre BUCKET ^But that's closed\.
2122      matchre BUCKET ^What were you|^You can't do that
2123      matchre BUCKET ^There isn't enough room .* for your .* to fit\.
2124      if "$lefthand" != "Empty" then send put $lefthandnoun in my %BIN.CONTAINER
2125      if "$righthand" != "Empty" then send put $righthandnoun in my %BIN.CONTAINER
2126      matchwait 2
2127BUCKET:
2128     pause 0.1
2129     matchre BUCKET ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2130     matchre PAWN.GET ^You put
2131     matchre PAWN.GET ^You drop
2132     matchre PAWN.GET ^You toss
2133     if "$lefthand" != "Empty" then send put $lefthandnoun in bucket
2134     if "$righthand" != "Empty" then send put $righthandnoun in bucket
2135     matchwait 1
2136     gosub EMPTY.HANDS
2137     goto PAWN.GET
2138#######################
2139#   BINNING ROUTINE   #
2140#######################
2141BIN:
2142     var BIN.ITEM $0
2143BIN.GET:
2144     pause 0.1
2145     matchre BIN.GET ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2146     matchre BIN.DROP ^You need a free hand
2147     matchre BIN.ITEM ^You get
2148     matchre BIN.ITEM ^You are already
2149     matchre BIN.ITEM ^You pick up
2150     matchre RETURN ^What were you referring to\?
2151     matchre RETURN ^You aren't holding that\.
2152     matchre RETURN ^Please rephrase that command\.
2153     send get my %BIN.ITEM in my %bag
2154     matchwait
2155BIN.ITEM:
2156     matchre BIN.ITEM ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2157     matchre BIN.DROP \"You're not fooling anyone\, $charactername\.
2158     matchre BIN.GET \"Nice work\, $charactername\.\"
2159     matchre RETURN ^What were you referring to\?
2160     matchre RETURN ^You aren't holding that\.
2161     matchre RETURN ^Please rephrase that command\.
2162     send put my %BIN.ITEM in bin
2163     matchwait 1
2164BIN.DROP:
2165     gosub EMPTY.HANDS
2166     goto BIN.GET
2167############################################################################################
2168############################################################################################
2169BAG.EMPTY:
2170     var bag $0
2171     pause 0.1
2172     var contents null
2173     # action var contents $1 when ^You rummage through .+ and see (.*)\.
2174     action var contents $1 when ^In the .* you see (.*)\.
2175     send look in my %bag
2176     waitforre ^In the .* you see|^There is nothing in there\.
2177     action remove ^In the .* you see (.*)\.
2178     if "%contents" = "null" then return
2179     pause 0.5
2180     eval contents replace("%contents" , ", " , "|")
2181     eval contents replace("%contents" , " and a" , "|a")
2182     eval contents replace("%contents" , " and an" , "|an")
2183     eval contents replace("%contents" , " and some" , "|some")
2184     var contents |%contents|
2185     # eval total count("%contents", "|")
2186BAG.EMPTY.Loop:
2187     eval item element("%contents", 1)
2188     eval number count("%contents", "|%item")
2189     var count 0
2190     gosub BAG.EMPTY.RemoveLoop
2191     action setvariable item $1 when ^@(?:an?|some).* (\S+)$
2192     put #parse @%item
2193     counter set %count
2194     # if contains("%STEAL.LIST", "%item") then gosub BAG.EMPTY.itemAction
2195     if contains("%STEAL.LIST", "%item") then gosub %BINORPAWN %item
2196     if "%contents" != "|" then goto BAG.EMPTY.Loop
2197     return
2198BAG.EMPTY.RemoveLoop:
2199     eval number count("%contents", "|%item|")
2200     eval contents replace("%contents" , "|%item|" , "|")
2201     eval contents replace("%contents" , "||" , "|")
2202     evalmath count %count + %number
2203     if !contains("%contents", "|%item|") then return
2204     goto BAG.EMPTY.RemoveLoop
2205BAG.EMPTY.itemAction:
2206     counter subtract 1
2207     pause 0.2
2208     gosub %BINORPAWN %item
2209     pause 0.2
2210     if %c = 0 then return
2211     goto BAG.EMPTY.itemAction
2212############################################################################################
2213############################################################################################
2214#############################
2215#       STOW ROUTINE        #
2216#############################
2217STOW:
2218      math STOW.LOOP add 1
2219      if $roundtime > 0 then pause
2220      pause 0.5
2221      if contains("$lefthand" "$righthand" , "%large.items") then gosub EMPTY.HANDS
2222      if %STOW.LOOP > 1 then goto SECOND.BAG
2223      matchre STOW ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2224      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
2225      matchre STOW.RETURN /You put|What were you|You can't do|I could not|Perhaps you|Stow what/i
2226      if "$righthand" != "Empty" then send put $righthandnoun in my %BIN.CONTAINER
2227      pause 0.1
2228      if "$lefthand" != "Empty" then send put $lefthandnoun in my %PAWN.CONTAINER
2229      matchwait 7
2230      return
2231SECOND.BAG:
2232      pause 0.1
2233      pause 0.1
2234      matchre SECOND.BAG ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2235      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
2236      matchre STOW.RETURN /You put|What were you|I could not|Perhaps you|Stow what/i
2237      if "$righthand" != "Empty" then send put $righthandnoun in my %PAWN.CONTAINER
2238      pause 0.1
2239      if "$lefthand" != "Empty" then send put $lefthandnoun in my %BIN.CONTAINER
2240      matchwait 7
2241      return
2242STOW.RETURN:
2243     var STOW.LOOP 0
2244     return
2245DROP.ITEM:
2246     var STOW.LOOP 0
2247     gosub EMPTY.HANDS
2248     pause 0.2
2249     return
2250###############################################################################################
2251#         UBER CONTAINER CHECK
2252###############################################################################################
2253BAG.CHECK:
2254     var bag $0
2255     #var count 0
2256     pause 0.1
2257     var contents null
2258     send open my %SAFE.CONTAINER
2259     pause 0.1
2260     pause 0.1
2261     # action var contents $1 when ^You rummage through .+ and see (.*)\.
2262     action var contents $1 when ^In the .* you see (.*)\.
2263     send look in my %bag
2264     waitforre ^In the .* you see|^There is nothing in there\.
2265     action remove ^In the .* you see (.*)\.
2266     pause 0.1
2267     if "%contents" = "null" then
2268    {
2269        send close my %SAFE.CONTAINER
2270         pause 0.5
2271        return
2272    }
2273     pause 0.1
2274     eval contents replace("%contents" , ", " , "|")
2275     eval contents replace("%contents" , " and a" , "|a")
2276     eval contents replace("%contents" , " and an" , "|an")
2277     eval contents replace("%contents" , " and some" , "|some")
2278     var contents |%contents|
2279     eval total count("%contents", "|")
2280Loop:
2281     eval item element("%contents", 1)
2282     eval number count("%contents", "|%item")
2283     var count 0
2284     gosub RemoveLoop
2285     action var item $1 when ^@(?:an?|some) .* (\S+)$
2286     put #parse @%item
2287     counter set %count
2288     if contains("%IMPORTANT.ITEMS", "%item") then gosub storeitem
2289     pause 0.2
2290     if contains("%STEAL.LIST", "%item") then gosub storeitem
2291     if %contents != "|" then goto Loop
2292     send close my %SAFE.CONTAINER
2293     pause 0.5
2294     echo **** DONE STASHING ITEMS FROM %bag
2295     return
2296RemoveLoop:
2297     eval number count("%contents", "|%item|")
2298     eval contents replace("%contents", "|%item|", "|")
2299     eval contents replace("%contents", "||" "|")
2300     evalmath count %count + %number
2301     if !contains("%contents", "|%item|") then return
2302     goto RemoveLoop
2303storeitem:
2304     counter subtract 1
2305     pause 0.2
2306     send get %item from my %bag
2307     pause 0.5
2308     send put my %item in my %SAFE.CONTAINER
2309     pause 0.5
2310     pause 0.1
2311	 gosub STOW
2312     if %c < 1 then return
2313     goto storeitem
2314##########################################
2315#<         UTILITY GOSUBS               >#
2316##########################################
2317EMPTY.HANDS:
2318     pause 0.2
2319     pause 0.5
2320     if "$lefthand" != "Empty" then
2321          {
2322               gosub empty left
2323               pause 0.5
2324          }
2325     if "$righthand" != "Empty" then
2326          {
2327               gosub empty right
2328               pause 0.5
2329          }
2330     return
2331EMPTY:
2332var todo $0
2333EMPTY.IT:
2334     pause 0.3
2335          matchre EMPTY.IT ^\.\.\.wait\s+\d+\s+sec(?:onds?|s)?\.?|^Sorry\,
2336          matchre LOWER.HAND Whoah\!
2337          matchre LOWER.HAND If you still wish to drop it
2338          matchre return ^You drop
2339          matchre return already empty
2340          matchre return ^What were you referring to\?
2341          matchre return ^But you aren't holding that\.
2342          matchre return ^Roundtime
2343          matchre return shatters
2344     send empty %todo
2345     matchwait
2346LOWER.HAND:
2347     pause 0.3
2348     if "$righthand" != "Empty" then send lower $righthandnoun
2349     if "$lefthand" != "Empty" then send lower $lefthandnoun
2350     pause 0.5
2351     pause 0.5
2352     return
2353############################################
2354PAUSE:
2355     if $roundtime > 0 then pause $roundtime
2356     pause 0.1
2357     pause 0.5
2358     return
2359STAND:
2360pause 0.2
2361     matchre STAND ^(?:\(|\[|\s*)Roundtime\s*\:
2362     matchre STAND ^\.\.\.wait\s+\d+\s+sec(?:onds?|s)?\.?|^Sorry\,
2363     matchre STAND ^You are so unbalanced you cannot manage to stand\.
2364     matchre STAND ^The weight of all your possessions prevents you from standing\.
2365     matchre STAND ^You are overburdened and cannot manage to stand\.
2366     matchre STAND ^You are still stunned
2367     matchre STAND ^You try
2368     matchre RETURN ^You are already standing\.
2369     matchre RETURN ^You stand back up\.
2370     matchre RETURN ^You stand up\.
2371     matchre RETURN ^There doesn't seem to be anything to stand on here
2372     matchre RETURN ^You swim back up
2373     matchre RETURN ^You are already standing\.
2374     matchre RETURN ^You're unconscious
2375     send STAND
2376     matchwait
2377RETURN:
2378     pause 0.5
2379     pause 0.1
2380     return
2381RET.HIDE:
2382put stop hum
2383wait
2384pause .1
2385put ret
2386put ret
2387pause .5
2388pause .2
2389HIDE:
2390     pause 0.1
2391     matchre RET.HIDE You are too close|^You are a bit|^You are too busy
2392     matchre HIDE ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,|fail
2393     matchre RETURN notices your attempt|reveals you|ruining your hiding place|discovers you
2394     matchre RETURN ^You melt|^You blend|^Eh\?|^You slip|^Roundtime|You look around
2395     send hide
2396     matchwait 7
2397     RETURN
2398SNEAK:
2399     var direction $0
2400     if (("%guild" = "Thief") && (%circle < 50)) then goto SNEAK.HIDE
2401SNEAKING:
2402     matchre SNEAK.PAUSE ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2403     matchre RETURN Roundtime|You sneak|You duck|You quickly slip
2404     send sneak %direction
2405     matchwait
2406SNEAK.PAUSE:
2407     pause
2408     goto SNEAKING
2409SNEAK.HIDE:
2410     pause 0.2
2411     matchre SNEAK.HIDE notices your attempt|reveals you|ruining your hiding place|discovers you
2412     matchre SNEAKING ^You melt|^You blend|^Eh\?|^You slip|^Roundtime|You look around
2413     send hide
2414     matchwait
2415UNHIDE:
2416     pause 0.1
2417     matchre UNHIDE ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2418     matchre RETURN ^But you are not hidden\!
2419     matchre RETURN ^You come out of hiding\.
2420     send UNHIDE
2421     matchwait 2
2422     return
2423############################################################################################
2424# ARMOR REMOVAL SECTION
2425############################################################################################
2426ARMOR.CHECK:
2427     counter set 0
2428ARMOR.CHECK.1:
2429     pause .1
2430     matchre REMOVE.AND.STOW.1 (hand claw|knuckles|cowl|bascinet|cuirass|leathers|glove|mitts|gauntlets|handguards|thorakes|jerkin|collar|balaclava|longcoat|sleeves|sallet|aventail|greaves|vambraces|shield|buckler|\btarge\b|coif|gauntlet|half plate|lorica|breastplate|hauberk|field plate|tasset|ring mail|\bmask\b|\bhelm\b|shirt|coat|\bhood\b|pants)
2431     matchre ARMOR.COMPLETE You have nothing of that sort|You are wearing nothing of that sort|You aren't wearing anything like that
2432     send inv armor
2433     matchwait 5
2434     goto ARMOR.WARN
2435REMOVE.AND.STOW.1:
2436     var armor $0
2437REMOVE.ARMOR.1:
2438     pause 0.5
2439     var LAST REMOVE.ARMOR.1
2440     matchre REMOVE.ARMOR.1 ^\.\.\.wait\s+\d+\s+sec(?:onds|s)?\.?|^Sorry\,
2441     matchre STOW.ARMOR.1 ^You remove|^You loosen the straps securing|^You take|^You slide
2442     matchre STOW.ARMOR.1 ^You sling|^You work your way out of|^You pull|^You slip|^You aren't
2443     send remove %armor
2444     matchwait 5
2445STOW.ARMOR.1:
2446     pause 0.5
2447     var LAST STOW.ARMOR.1
2448     matchre STOW.ARMOR.1 ^\.\.\.wait|^Sorry, you may only type
2449     matchre ARMOR.DONE ^You put|^You slip|^What were you
2450     matchre NO.MORE.STOWING any more room in|closed|no matter how you arrange|too heavy|too long
2451     send put %armor in my %SAFE.CONTAINER
2452     matchwait 5
2453ARMOR.DONE:
2454     counter add 1
2455     pause 0.5
2456     var total.armor %c
2457     var armor%c %armor
2458     goto ARMOR.CHECK.1
2459NO.MORE.STOWING:
2460     echo ***  YOU HAVE NO MORE FREE BAG SPACE FOR ARMOR! MAKE SOME ROOM!
2461     echo ***  GONNA JUST GO FOR IT ANYWAY, YOU WILL BE HINDERED!
2462     put wear %armor
2463     wait
2464     goto ARMOR.COMPLETE
2465ARMOR.COMPLETE:
2466	 echo ##############################
2467     echo Armor Count: %total.armor
2468     if %total.armor < 1 then return
2469     echo Armor1: %armor1
2470     if %total.armor < 2 then return
2471     echo Armor2: %armor2
2472     if %total.armor < 3 then return
2473     echo Armor3: %armor3
2474     if %total.armor < 4 then return
2475     echo Armor4: %armor4
2476     if %total.armor < 5 then return
2477     echo Armor5: %armor5
2478     if %total.armor < 6 then return
2479     echo Armor6: %armor6
2480     if %total.armor < 7 then return
2481     echo Armor7: %armor7
2482     if %total.armor < 8 then return
2483     echo Armor8: %armor8
2484     if %total.armor < 9 then return
2485     echo Armor9: %armor9
2486     if %total.armor < 10 then return
2487     echo Armor10: %armor10
2488     pause
2489     return
2490############################################################################################
2491WEAR.ARMOR:
2492     echo **** PUTTING ARMOR BACK ON! ****
2493     send open my %SAFE.CONTAINER
2494     pause 0.5
2495     if %total.armor = 0 then RETURN
2496     if "%armor1" != "null" then
2497          {
2498               send get my %armor1 from my %SAFE.CONTAINER
2499               pause 0.5
2500               send wear my %armor1 from my %SAFE.CONTAINER
2501               pause 0.5
2502          }
2503     if "%armor2" != "null" then
2504          {
2505               gosub stowing
2506               send get my %armor2 from my %SAFE.CONTAINER
2507               pause 0.5
2508               send wear my %armor2 from my %SAFE.CONTAINER
2509               pause 0.5
2510          }
2511     if "%armor3" != "null" then
2512          {
2513               gosub stowing
2514               send get my %armor3 from my %SAFE.CONTAINER
2515               pause 0.5
2516               send wear my %armor3 from my %SAFE.CONTAINER
2517               pause 0.5
2518          }
2519     if "%armor4" != "null" then
2520          {
2521               gosub stowing
2522               send get my %armor4 from my %SAFE.CONTAINER
2523               pause 0.5
2524               send wear my %armor4 from my %SAFE.CONTAINER
2525               pause 0.5
2526          }
2527     if "%armor5" != "null" then
2528          {
2529               gosub stowing
2530               send get my %armor5 from my %SAFE.CONTAINER
2531               pause 0.5
2532               send wear my %armor5 from my %SAFE.CONTAINER
2533               pause 0.5
2534          }
2535     if "%armor6" != "null" then
2536          {
2537               gosub stowing
2538               send get my %armor6 from my %SAFE.CONTAINER
2539               pause 0.5
2540               send wear my %armor6 from my %SAFE.CONTAINER
2541               pause 0.5
2542          }
2543     if "%armor7" != "null" then
2544          {
2545               send get my %armor7 from my %SAFE.CONTAINER
2546               pause 0.5
2547               send wear my %armor7 from my %SAFE.CONTAINER
2548               pause 0.5
2549          }
2550     if "%armor8" != "null" then
2551          {
2552               send get my %armor8 from my %SAFE.CONTAINER
2553               pause 0.5
2554               send wear my %armor8 from my %SAFE.CONTAINER
2555               pause 0.5
2556          }
2557     if "%armor9" != "null" then
2558          {
2559               send get my %armor9 from my %SAFE.CONTAINER
2560               pause 0.5
2561               send wear my %armor9 from my %SAFE.CONTAINER
2562               pause 0.5
2563          }
2564     if "%armor10" != "null" then
2565          {
2566               send get my %armor10 from my %SAFE.CONTAINER
2567               pause 0.5
2568               send wear my %armor10 from my %SAFE.CONTAINER
2569               pause 0.5
2570          }
2571     return
2572############################################################################################
2573# BUFFS
2574############################################################################################
2575SAGACITY:
2576     gosub COOKIE.START sagacity
2577     goto WAIT.DONE
2578COOKIE.BREAK:
2579     send khri stop
2580     pause 0.5
2581KHRI.ASSES:
2582     matchre SAGACITY Sagacity
2583     matchre COOKIE.WAIT KHRI|You know how
2584     send khri
2585     matchwait 2
2586COOKIE.WAIT:
2587     echo
2588     echo *** WAITING FOR CONCENTRATION TO RECOVER.........
2589     echo
2590     pause 20
2591WAIT.DONE:
2592     if ($concentration < 65) then goto COOKIE.BREAK
2593COOKIE.BREAK.DONE:
2594     gosub EMPTY.HANDS
2595COOKIE:
2596     if ("%guild" = "Barbarian") then goto DANCE
2597     if ("%guild" != "Thief") then return
2598     echo *** PUTTING UP KHRI ***
2599     gosub COOKIE.START %khri1
2600     if ($concentration < 40) then return
2601     gosub COOKIE.START %khri2
2602     return
2603COOKIE.START:
2604     var khri $0
2605COOKIE.START.CONTINUE:
2606     matchre COOKIE.START.CONTINUE ^\.\.\.wait\s+\d+\s+sec(?:onds?|s)?\.?$|^Sorry\,
2607     matchre COOKIE.RETURN ^You're already using the .* meditation\.
2608	 matchre COOKIE.RETURN ^You already
2609     matchre COOKIE.RETURN ^Roundtime\:?\s+\d+\s+sec(?:onds|s)?\.?
2610     matchre COOKIE.RETURN ^\[Roundtime\:?\s+\d+\s+sec(?:onds|s)?\.?\]
2611     matchre COOKIE.RETURN ^\(Roundtime\:?\s+\d+\s+sec(?:onds|s)?\.?\)
2612     matchre COOKIE.RETURN ^Focusing|^With intense focus|^You carefully relax your mind|You are not|Your mind|valid khri
2613     matchre COOKIE.BREAK You strain, but cannot focus|You have not recovered from|Your mind is already focused
2614     send khri start %khri
2615     matchwait
2616COOKIE.RETURN:
2617     pause $roundtime
2618     pause 0.5
2619     return
2620	 
2621DANCE:
2622     echo *** BARB DANCE ***
2623     send form monkey
2624     pause $roundtime
2625     pause
2626     pause 0.5
2627     send form panther
2628     pause $roundtime
2629     pause
2630     pause 0.5
2631     send berserk wildfire
2632     pause 0.5
2633     return
2634
2635POWER.CHECK:
2636	 pause .5
2637	 matchre RETURN ^You sense the Guardian Spirit spell upon you
2638	 send power
2639	 matchwait 3
2640	 GOTO GUARDIAN.SPIRIT
2641GS1:
2642pause 5
2643GUARDIAN.SPIRIT:
2644	 echo *** GUARDIAN SPIRIT ***
2645	 pause .5
2646	 send prep gs
2647	 pause 20
2648	 matchre GS1 ^You're not ready
2649	 matchre END.GS ^You sense
2650	 send cast
2651	 pause .5
2652	 pause .5
2653	 RETURN
2654	 
2655PERC.HEALTH:
2656	 if ($Empathy.LearningRate > 32) then RETURN
2657	 GOSUB POWER.CHECK
2658	 echo *** PERCEIVING HEALTH ***
2659	 pause .5
2660	 pause .1
2661	 put perceive health
2662	 waitforre Roundtime|You sense|You find yourself unable|You are not ready
2663	 pause
2664	 pause
2665	 RETURN
2666	 
2667NECRO.PREP:
2668    echo *** PUTTING UP RITE OF CONTRITION! ***
2669    pause 0.5
2670    gosub OCCUPY.CHECK
2671    send prep roc
2672    waitforre ^You feel fully prepared
2673    send cast
2674    var ROC 1
2675    pause 0.1
2676    RETURN
2677OCCUPY.CHECK:
2678    matchre RANDOM.MOVE Also here: (.*)
2679    matchre RETURN ^Obvious exits|dark
2680    put look
2681    matchwait
2682RANDOM.MOVE:
2683    gosub moveRandomDirection
2684    goto OCCUPY.CHECK
2685############################################################################################
2686SKILLCHECK:
2687     send skill thievery
2688     echo
2689     echo **** Checking Your Skills.............
2690     echo
2691     pause
2692     if $Thievery.Ranks < 20 then goto NOOB
2693     if $Thievery.Ranks >= 20 && $Thievery.Ranks < 40 then goto CLASS1
2694     if $Thievery.Ranks >= 40 && $Thievery.Ranks < 60 then goto CLASS2
2695     if $Thievery.Ranks >= 60 && $Thievery.Ranks < 100 then goto CLASS3
2696     if $Thievery.Ranks >= 100 && $Thievery.Ranks < 150 then goto CLASS4
2697     if $Thievery.Ranks >= 150 && $Thievery.Ranks < 200 then goto CLASS5
2698     if $Thievery.Ranks >= 200 && $Thievery.Ranks < 250 then goto CLASS6
2699     if $Thievery.Ranks >= 250 && $Thievery.Ranks < 300 then goto CLASS7
2700     if $Thievery.Ranks >= 300 && $Thievery.Ranks < 400 then goto CLASS8
2701     if $Thievery.Ranks >= 400 && $Thievery.Ranks < 500 then goto CLASS9
2702     if $Thievery.Ranks >= 500 && $Thievery.Ranks < 600 then goto CLASS10
2703     if $Thievery.Ranks >= 600 && $Thievery.Ranks < 700 then goto CLASS11
2704     if $Thievery.Ranks >= 700 && $Thievery.Ranks < 800 then goto CLASS12
2705     if $Thievery.Ranks >= 800 && $Thievery.Ranks < 900 then goto CLASS13
2706     if $Thievery.Ranks >= 900 && $Thievery.Ranks < 1000 then goto CLASS14
2707     if $Thievery.Ranks >= 1000 && $Thievery.Ranks < 1200 then goto CLASS15
2708     if $Thievery.Ranks >= 1200 then goto CLASS16
2709     pause .5
2710     pause .5
2711     goto SKILLCHECK
2712############################################################################################
2713GUILD.CHECK:
2714     echo
2715     echo **** CHECKING GUILD...................
2716     echo
2717     action var guild $1;put #var guild $1 when Guild: (\S+)
2718     action var circle $1;put #var circle $1 when Circle: (\d+)
2719     send info;encum
2720     waitforre ^\s*Encumbrance\s*\:
2721     action remove Guild: (\S+)
2722     action remove Circle: (\d+)
2723     pause .2
2724     echo **** Guild: %guild  ****
2725     echo **** Circle: %circle ****
2726     pause .5
2727     pause .5
2728     if ("%guild" = "Thief") then
2729        {
2730            var marking ON
2731            if ("%HAVEN.PW" = "null") || ("%SHARD.PW" = "null") then goto NO.PASSWORD
2732            if ("%BIN" = "ON") && ("%PAWN" = "ON") && ("%BIN.CONTAINER" = "%PAWN.CONTAINER") then goto BAG.ALERT
2733        }
2734     if ("%guild" != "Thief") then
2735        {
2736            var BIN OFF
2737            var marking OFF
2738        }
2739     if ("%guild" = "Necromancer") then
2740        {
2741            var ROC 0
2742        }
2743     if $gamename != DRF then var CLANITEM NO
2744     put #var save
2745     return
2746############################################################################################
2747TIME.CHECK:
2748     echo **** CHECKING TIME....
2749     matchre NIGHT.TIME early evening|mid-evening|late evening|evening|midnight|night|dawn|sunset|approaching sunrise|sunrise|you can't tell
2750     matchre DAY.TIME early morning|mid-morning|midday|late morning|noon|early afternoon|mid-afternoon|late afternoon|dusk
2751     send time
2752     matchwait 5
2753     goto NIGHT.TIME
2754DAY.TIME:
2755     put #var TIME DAY
2756     var TIME DAY
2757     send observe weather
2758     pause 0.5
2759     return
2760NO.TIME:
2761NIGHT.TIME:
2762     put #var TIME NIGHT
2763     var TIME NIGHT
2764     send observe weather
2765     pause 0.5
2766     return
2767#####################################################################
2768## $$$$$$$$$$$$   PROFIT TRACKING / MATH SECTION  $$$$$$$$$$$$$$$$$$
2769#####################################################################
2770BANK:
2771     pause 0.1
2772     action (balancecheck) var Plat $1 when (\d+) platinum,?
2773     action (balancecheck) var Gold $1 when (\d+) gold,?
2774     action (balancecheck) var Silver $1 when (\d+) silver,?
2775     action (balancecheck) var Bronze $1 when (\d+) bronze,?
2776     action (balancecheck) var Copper $1 when (\d+) copper
2777     action (balancecheck) off
2778     action (profitparse) var Plat $1 when ^@(\d+)\d\d\d\d$
2779     action (profitparse) var Gold $1 when ^@\d+(\d)\d\d\d$
2780     action (profitparse) var Gold $1 when ^@(\d)\d\d\d$
2781     action (profitparse) var Silver $1 when ^@\d+\d(\d)\d\d$
2782     action (profitparse) var Silver $1 when ^@\d(\d)\d\d$
2783     action (profitparse) var Silver $1 when ^@(\d)\d\d$
2784     action (profitparse) var Bronze $1 when ^@\d+\d\d(\d)\d$
2785     action (profitparse) var Bronze $1 when ^@\d\d(\d)\d$
2786     action (profitparse) var Bronze $1 when ^@\d(\d)\d$
2787     action (profitparse) var Bronze $1 when ^@(\d)\d$
2788     action (profitparse) var Copper $1 when ^@\d+\d\d\d(\d)$
2789     action (profitparse) var Copper $1 when ^@\d\d\d(\d)$
2790     action (profitparse) var Copper $1 when ^@\d\d(\d)$
2791     action (profitparse) var Copper $1 when ^@\d(\d)$
2792     action (profitparse) var Copper $1 when ^@(\d)$
2793     action (profitparse) off
2794     var pre.dep 0
2795     var post.dep 0
2796     var profit 0
2797     gosub BANK.COIN.CLEAR
2798     pause 0.3
2799     action (balancecheck) on
2800     send check balance;encumbrance
2801     waitforre ^\s*Encumbrance\s*\:
2802     pause 0.5
2803     action (balancecheck) off
2804     pause 0.2
2805     gosub BANK.COIN.MATH
2806     gosub BANK.PREDEP.MATH
2807     send deposit all
2808     pause 0.5
2809     pause 0.5
2810     gosub BANK.COIN.CLEAR
2811     pause 0.5
2812     pause 0.5
2813     action (balancecheck) on
2814     send check balance;encumbrance
2815     waitforre ^\s*Encumbrance\s*\:
2816     pause 0.5
2817     action (balancecheck) off
2818     pause 0.1
2819     gosub BANK.COIN.MATH
2820     gosub BANK.POSTDEP.MATH
2821     evalmath profit %post.dep - %pre.dep
2822     math Profit add %profit
2823     pause 0.1
2824     gosub BANK.COIN.CLEAR
2825     action (profitparse) on
2826     pause 0.5
2827     put #parse @%Profit
2828     pause 0.5
2829     action (profitparse) off
2830     pause 0.1
2831     put #statusbar 1 Profit: %Plat Plat, %Gold Gold, %Silver Silver, %Bronze Bronze and %Copper Copper.
2832     put #parse MONEY DONE
2833     pause 0.1
2834     return
2835BANK.COIN.CLEAR:
2836     var Copper 0
2837     var Bronze 0
2838     var Silver 0
2839     var Gold 0
2840     var Plat 0
2841     pause 0.1
2842     return
2843BANK.COIN.MATH:
2844     math Bronze multiply 10
2845     math Silver multiply 100
2846     math Gold multiply 1000
2847     math Plat multiply 10000
2848     pause 0.1
2849     return
2850BANK.PREDEP.MATH:
2851     math pre.dep add %Copper
2852     math pre.dep add %Bronze
2853     math pre.dep add %Silver
2854     math pre.dep add %Gold
2855     math pre.dep add %Plat
2856     pause 0.1
2857     return
2858BANK.POSTDEP.MATH:
2859     math post.dep add %Copper
2860     math post.dep add %Bronze
2861     math post.dep add %Silver
2862     math post.dep add %Gold
2863     math post.dep add %Plat
2864     pause 0.1
2865     return
2866#############################################
2867# MONEY EXCHANGE
2868#############################################
2869LIRUMS:
2870     var Target.Currency LIRUMS
2871     gosub EXCHANGE KRONARS
2872     gosub EXCHANGE DOKORAS
2873     goto EXCHANGE.FINISH
2874KRONARS:
2875     var Target.Currency KRONARS
2876     gosub EXCHANGE LIRUMS
2877     gosub EXCHANGE DOKORAS
2878     goto EXCHANGE.FINISH
2879DOKORAS:
2880     var Target.Currency DOKORAS
2881     gosub EXCHANGE KRONARS
2882     gosub EXCHANGE LIRUMS
2883     goto EXCHANGE.FINISH
2884EXCHANGE:
2885     var Coin $0
2886EXCHANGE.CONTINUE:
2887     pause 0.1
2888     matchre EXCHANGE.CONTINUE ^\.\.\.wait\s+\d+\s+sec(?:onds?|s)?\.?|^Sorry\,
2889     matchre RETURN ^You hand your money to the money-changer\.\s*After collecting a.* fee, .* hands you .*\.
2890     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\.\"
2891     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 .*\.
2892     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\.\"
2893     matchre RETURN ^But you don't have any .*\.
2894     matchre FINISH ^There is no money-changer here\.
2895     put EXCHANGE ALL %Coin FOR %Target.Currency
2896     matchwait
2897EXCHANGE.FINISH:
2898     put #parse EXCHANGE DONE!
2899     return
2900############################################################################################
2901     ###############################################
2902     #        JAILED / DEBT PAYING ROUTINE         #
2903     #         ROBUST as a motherfucker.           #
2904     ###############################################
2905############################################################################################
2906JAIL.CHECK:
2907     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
2908     put #parse TAKING CARE OF BUSINESS
2909     put #script pause %MAIN.SCRIPT
2910     if "$zoneid" = "1" then goto CROSSING.JAIL
2911     if "$zoneid" = "30" then goto HAVEN.JAIL
2912     if "$zoneid" = "42" then goto THEREN.JAIL
2913     if "$zoneid" = "61" then goto LETH.JAIL
2914     if "$zoneid" = "116" then goto HIB.JAIL
2915     if "$zoneid" = "67" then goto SHARD.JAIL
2916     goto JAILED
2917THEREN.JAIL:
2918JAIL.THEREN:
2919     var CURRENT.CITY Theren
2920     echo Theren JAIL
2921     put #parse Theren JAIL
2922     goto JAILED
2923HAVEN.JAIL:
2924JAIL.HAVEN:
2925     var CURRENT.CITY Riverhaven
2926     echo RIVERHAVEN JAIL
2927     put #parse RIVERHAVEN JAIL
2928     goto JAILED
2929LETH.JAIL:
2930JAIL.LETH:
2931     var CURRENT.CITY Leth
2932     echo LETH JAIL
2933     put #parse LETH JAIL
2934     goto JAILED
2935CROSSING.JAIL:
2936CROSS.JAIL:
2937JAIL.CROSS:
2938     var CURRENT.CITY Crossing
2939     echo CROSSING JAIL
2940     put #parse CROSS JAIL
2941     goto JAILED
2942HIB.JAIL:
2943JAIL.HIB:
2944     var CURRENT.CITY Hib
2945     echo HIB JAIL
2946     put #parse HIB JAIL
2947     goto JAILED
2948SHARD.JAIL:
2949JAIL.SHARD:
2950     var CURRENT.CITY Shard
2951     echo SHARD JAIL
2952     put #parse SHARD JAIL
2953     goto JAILED
2954JAILED:
2955     math Jailed add 1
2956     echo *** YOU'VE BEEN JAILED! ***
2957     echo *** WAITING FOR SENTENCE! ***
2958     put #echo >log Red **** ARRESTED IN %CURRENT.CITY!! *****
2959     put #beep
2960     matchre PLEAD ^The eyes of the court are upon you|PLEAD INNOCENT or PLEAD GUILTY|Your silence shall be taken|plead
2961     matchwait 220
2962     goto JAILED
2963PLEAD:
2964     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
2965     send plead %PLEAD
2966     pause 0.5
2967GET.SACK:
2968GET_SACK:
2969     pause 2
2970     pause
2971     match DEBT You glance down at your empty hands
2972     match SACK sack
2973     send glance
2974     matchwait
2975DEBT:
2976     gosub STAND
2977     echo
2978     echo **** Did not have enough money to pay the fine ****
2979     echo
2980     # Walking to the bank to get moneys
2981     if "$zoneid" = "42" then goto THEREN.JAIL.GET.FINE
2982     gosub clear
2983     if ("%guild" = "Necromancer") && (%ROC = 0) then gosub NECRO.PREP
2984     pause 0.1
2985TO.TELLER:
2986     var plat 20
2987     if ("$zoneid" = "116") && ("$game" != "DRF") then
2988     {
2989     gosub automove 2teller
2990     goto FINECHECK.DOKORAS
2991     }
2992     gosub AUTOMOVE teller
2993     if "$zoneid" = "67" then goto FINECHECK.DOKORAS
2994     if "$zoneid" = "116" then goto FINECHECK.DOKORAS
2995     if "$zoneid" = "61" then goto FINE.CHECK.KRONARS
2996     if "$zoneid" = "1" then goto FINE.CHECK.KRONARS
2997     if "$zoneid" = "30" then goto FINECHECK.LIRUMS
2998     if "$zoneid" = "34a" then goto FINECHECK.LIRUMS
2999     if "$zoneid" = "42" then goto FINECHECK.LIRUMS
3000     pause
3001     echo
3002     echo *** UKNOWN JAIL LOCATION!!
3003     echo *** CRITICAL ERROR!
3004     echo
3005     put #echo >Log Red ***CRITICAL ERROR!!!!
3006     put #echo >Log Red ***UNKOWN JAIL LOCATION: Zone- $zoneid Room- $roomid
3007     pause 0.5
3008FINECHECK:
3009FINE.CHECK.KRONARS:
3010     matchre SET_FINE \((\d+) copper Kronars\)$
3011     match NO_FINE Wealth:
3012     send wealth
3013     matchwait
3014FINECHECK.LIRUMS:
3015     matchre SET_FINE_LIRUM \((\d+) copper Lirums\)$
3016     match NO_FINE Wealth:
3017     send wealth
3018     matchwait
3019FINECHECK.DOKORAS:
3020     matchre SET_FINE_DOKORAS \((\d+) copper Dokoras\)$
3021     match NO_FINE Wealth:
3022     send wealth
3023     matchwait
3024SET_FINE_LIRUM:
3025     pause 0.1
3026     var fine $1
3027     var currency lirum
3028     if %fine > 250000 then goto BIGGER_FINE
3029     if %fine > 100000 then goto BIG_FINE
3030     goto WITHDRAW
3031SET_FINE_DOKORAS:
3032     pause 0.1
3033     var fine $1
3034     var currency dokora
3035     if %fine > 250000 then goto BIGGER_FINE
3036     if %fine > 100000 then goto BIG_FINE
3037     goto WITHDRAW
3038SET_FINE:
3039     pause 0.1
3040     var fine $1
3041     var currency kronar
3042     if %fine > 200000 then goto BIGGER_FINE
3043     if %fine > 100000 then goto BIG_FINE
3044     goto WITHDRAW
3045WITHDRAW:
3046     pause 0.2
3047     matchre TO.TELLER ^You must be at a bank teller's window
3048     matchre PAY_DEBT ^The clerk counts out
3049     matchre NO.FUNDS we are not lending money|You don't have that much
3050     send withdraw %fine copper
3051     matchwait
3052BIG_FINE:
3053     pause 0.2
3054     matchre TO.TELLER ^You must be at a bank teller's window
3055     matchre PAY_DEBT ^The clerk counts out
3056     matchre NO.FUNDS we are not lending money|You don't have that much
3057     send withdraw %plat plat
3058     matchwait
3059BIGGER_FINE:
3060     if %fine >= 2000000 then var plat 300
3061     if %fine >= 1500000 then var plat 200
3062     if %fine >= 1200000 then var plat 150
3063     if %fine >= 900000 then var plat 120
3064     if %fine >= 500000 then var plat 90
3065     if %fine >= 450000 then var plat 50
3066     if %fine >= 400000 then var plat 45
3067     if %fine >= 350000 then var plat 40
3068     if %fine >= 250000 then var plat 35
3069     if %fine >= 200000 then var plat 25
3070     goto BIG_FINE
3071NO_FINE:
3072     echo
3073     echo *** You have no fine
3074     echo
3075     goto RETURN_TO_JAIL
3076PAY_DEBT:
3077     echo
3078     echo **** Paying off your debt! ***
3079     echo
3080     pause
3081     pause 0.5
3082     # Walking to pay off the debt
3083     gosub AUTOMOVE debt
3084     if ("%guild" = "Necromancer") && (%ROC = 0) then gosub NECRO.PREP
3085     send pay %fine
3086     pause
3087     gosub AUTOMOVE teller
3088     pause 0.5
3089     send dep all
3090     pause 0.5
3091RETURN_TO_JAIL:
3092     echo
3093     echo **** Heading back to jail now ****
3094     echo
3095     if "$zoneid" = "42" then goto THEREN.KEEP.JAIL
3096     if "$zoneid" = "67" then goto SHARD.JAIL.RETURN
3097     if "$zoneid" = "116" then goto HIB.JAIL.RETURN
3098     # Walking to the Guard House
3099     gosub AUTOMOVE Guard
3100     goto CLAN
3101HIB.JAIL.RETURN:
3102     gosub AUTOMOVE 200
3103     goto CLAN
3104     SHARD.JAIL.RETURN:
3105     gosub AUTOMOVE sentin
3106CLAN:
3107      if ("$gamename" = "DRF") && ("%CLANITEM" = "YES") then goto CLAN_ITEM
3108      else goto THE_SACK
3109CLAN_ITEM_PAUSE:
3110      pause 8
3111CLAN_ITEM:
3112      if ("%CLANITEM" = "NO") then goto THE_SACK
3113      if ("$gamename" = "DRF") then send remove %CLAN.ITEM.NAME
3114      pause
3115THE_SACK:
3116     pause 0.5
3117     matchre THE_SACK ^\.\.\.wait|^Sorry, you may only|What were you|I could not|Please rephrase
3118     matchre SACK_PRE ^You reach for your sack and retrieve the equipment
3119     matchre CLAN_ITEM_PAUSE ^You'll need to not be wearing anything
3120     matchre DEBT paid off your debt to society
3121     matchre SACK ^Realizing you're wearing too much
3122     send get $charactername sack
3123     matchwait
3124     goto GET_SACK
3125SACK_PRE:
3126      if ("%CLANITEM" = "YES") then put wear %CLAN.ITEM.NAME
3127      if ("%CLANITEM" = "YES") then put rub %CLAN.ITEM.NAME
3128      pause 0.5
3129      send open my small sack
3130      wait
3131      pause 0.5
3132SACK:
3133     pause 0.5
3134     pause 0.5
3135	 matchre STOW.IT mining cowl|mining cap|mining helm
3136     matchre ITEM khuj|quarterstaff|quarter staff|halberd|toad
3137     match OPEN_SACK That is closed.
3138     matchre GET_SACK_ITEM (\S+)(\.)
3139     matchre NO_MORE_ITEMS ^There is nothing in there|^I could not find
3140     send look in my small sack
3141     matchwait
3142STOW.IT:
3143	 var item $0
3144	 send get %item from my sack
3145	 pause .5
3146	 pause .2
3147	 send stow %item in my %BIN.CONTAINER
3148	 pause .5
3149	 send stow %item in my %PAWN.CONTAINER
3150	 goto SACK
3151ITEM:
3152     var item $0
3153     send get %item from my sack
3154     pause 0.5
3155     send wear %item
3156     pause 0.5
3157     send stow %item
3158     goto SACK
3159OPEN_SACK:
3160     send wear %CLAN.ITEM.NAME
3161     pause 0.5
3162     send open my sack
3163     wait
3164     goto SACK
3165GET_SACK_ITEM:
3166     pause
3167     if $1 = there then goto NO_MORE_ITEMS
3168     send get $1 from my sack
3169     pause 0.5
3170     if (("$1" = "backpack")||("$1" = "cauldron")) then
3171          {
3172               pause 0.5
3173               goto SACK
3174          }
3175     if ("$1" = ("obsidian")||("$1" = "toad")) then
3176          {
3177           send wear my $1
3178           send stow my $1
3179          }
3180     else
3181          {
3182           send stow my $1
3183           send wear my $1
3184          }
3185     pause 0.5
3186     goto SACK
3187NO_MORE_ITEMS:
3188     send drop sack
3189     pause
3190     echo
3191     echo **** Returning to what you were doing ****
3192     echo
3193     if contains("$lefthand" "$righthand" , "%large.items") then gosub EMPTY.HANDS
3194CHECKLOC:
3195     if "$zoneid" = "67" then goto SHARDJAIL
3196     if "$zoneid" = "116" then goto HIBJAIL
3197     if "$zoneid" = "61" then goto LETHJAIL
3198     if "$zoneid" = "1" then goto CROSSJAIL
3199     if "$zoneid" = "30" then goto HAVENJAIL
3200     if "$zoneid" = "42" then goto THEREN.JAIL.LEAVE
3201CROSSJAIL:
3202     gosub AUTOMOVE 42
3203     put #script resume %MAIN.SCRIPT
3204     put #parse TAKING CARE OF BUSINESS
3205     pause 0.5
3206     goto END
3207LETHJAIL:
3208     gosub AUTOMOVE portal
3209     put #script resume %MAIN.SCRIPT
3210     pause 0.5
3211     put #parse TAKING CARE OF BUSINESS
3212     pause 0.5
3213     goto END
3214HAVENJAIL:
3215     gosub AUTOMOVE town
3216     put #script resume %MAIN.SCRIPT
3217     put #parse TAKING CARE OF BUSINESS
3218     pause 0.5
3219     goto END
3220SHARDJAIL:
3221     gosub AUTOMOVE 57
3222     put #script resume %MAIN.SCRIPT
3223     put #parse TAKING CARE OF BUSINESS
3224     pause 0.5
3225     goto END
3226HIBJAIL:
3227     gosub AUTOMOVE 75
3228     put #script resume %MAIN.SCRIPT
3229     put #parse TAKING CARE OF BUSINESS
3230     pause 0.5
3231     goto END
3232THEREN.JAIL.LEAVE:
3233     save THEREN.JAIL.END
3234     goto THEREN.KEEP.ESCAPE
3235THEREN.JAIL.GET.FINE:
3236     save TO.TELLER
3237     goto THEREN.KEEP.ESCAPE
3238THEREN.KEEP.ESCAPE:
3239     gosub AUTOMOVE 69
3240     send jump moat
3241     pause 12
3242THEREN.STUNNED.WAIT:
3243     pause 10
3244     if $stunned = 1 then goto THEREN.STUNNED.WAIT
3245     pause 0.5
3246     gosub STAND
3247     pause 0.5
3248     goto THEREN.MOAT.LEAVE
3249THEREN.MOAT.LEAVE:
3250     var location THEREN.MOAT.LEAVE
3251     gosub MOVE s
3252     pause 2
3253     goto %s
3254THEREN.KEEP.JAIL:
3255     var location THEREN.KEEP.JAIL
3256     gosub AUTOMOVE 103
3257     gosub AUTOMOVE moat
3258     gosub AUTOMOVE 146
3259     gosub AUTOMOVE dungeon
3260     gosub STAND
3261     goto CLAN_ITEM
3262THEREN.JAIL.END:
3263     gosub AUTOMOVE 1
3264     pause 2
3265END:
3266     put #script resume %MAIN.SCRIPT
3267     put #script abort jail
3268     put #parse FREE FROM JAIL
3269     put #echo >Log SkyBlue Recovered from jail via stealing script.
3270     put #echo >Log SkyBlue Continuing script from last checkpoint..
3271     echo
3272     echo *** FREE FROM JAIL!
3273     pause 0.5
3274     pause
3275     goto %LAST
3276FREE.CROSSING:
3277     goto %LAST
3278FREE.LETH:
3279     goto GO.LETH.PAWN
3280FREE.HAVEN:
3281FREE.THEREN:
3282     goto %LAST
3283     goto GO.PAWN.STUFF.HAVEN
3284##########################################################################################################################################
3285##########################################################################################################################################
3286# LOCATION CHECKING LOGIC OLD
3287##########################################################################################################################################
3288##########################################################################################################################################
3289CITY.CHECK:
3290     if "$zoneid" = "42" then gosub AUTOMOVE quad
3291     if "$zoneid" = "30" then gosub AUTOMOVE town
3292     if "$zoneid" = "7" then gosub AUTOMOVE arthe
3293     if "$zoneid" = "1" then gosub AUTOMOVE 42
3294     if "$zoneid" = "61" then gosub AUTOMOVE portal
3295     if "$zoneid" = "67" then gosub AUTOMOVE 1
3296     if "$zoneid" = "116" then gosub AUTOMOVE 75
3297     pause 0.1
3298     if "$zoneid" = "42" then var CITYCODE THEREN
3299     if "$zoneid" = "30" then var CITYCODE RIVERHAVEN
3300     if "$zoneid" = "7" then var CITYCODE ARTHE
3301     if "$zoneid" = "1" then var CITYCODE CROSSING
3302     if "$zoneid" = "61" then var CITYCODE LETH
3303     if "$zoneid" = "67" then var CITYCODE SHARD
3304     if "$zoneid" = "116" then var CITYCODE HIB
3305     if !matchre("$zoneid","(1|7|42|30|61|67|116)") then goto ERROR.UNKNOWN
3306     pause 0.1
3307     echo *** %CITYCODE
3308     RETURN
3309
3310ERROR.UNKNOWN:
3311     put #beep
3312     echo
3313     echo **** ERROR: UNKNOWN LOCATION!
3314     echo **** YOU MUST START SCRIPT FROM ONE OF THE FOLLOWING CITIES:
3315     echo **** CROSSINGS / ARTHE DALE
3316     echo **** SHARD / HIB / LETH DERIEL
3317     echo **** THEREN  / RIVERHAVEN
3318     echo
3319     echo *** MOVE TO VALID CITY AND RESTART SCRIPT
3320     put #beep
3321     pause 2
3322     put #parse DONE STEALING
3323     put #parse STEALING DONE
3324     exit
3325############################################################################################
3326##########################
3327# MOVEMENT ENGINE
3328##########################
3329##### AUTOMOVE SUBROUTINE #####
3330AUTOMOVE:
3331    pause .1
3332    pause .1
3333     var Destination $0
3334     if !$standing then gosub STAND
3335     if $roomid = %Destination then return
3336AUTOMOVE_GO:
3337     matchre AUTOMOVE_RETURN ^SHOP CLOSED\!|SHOP CLOSED
3338     matchre AUTOMOVE_FAILED ^AUTOMAPPER MOVEMENT FAILED|^MOVE FAILED
3339     matchre AUTOMOVE_RETURN ^YOU HAVE ARRIVED
3340     send #goto %Destination
3341     matchwait
3342AUTOMOVE_STAND:
3343     send STAND
3344     pause 0.5
3345     if $standing then return
3346     goto AUTOMOVE_STAND
3347AUTOMOVE_FAILED:
3348     pause 0.5
3349     goto AUTOMOVE_GO
3350AUTOMOVE_RETURN:
3351     return
3352######################
3353# Conny's Random Movement Subroutine
3354# http://www.genieclient.com/bulletin/topic/1775-lf-random-movement-subroutine/page__view__findpost__p__7888
3355MOVE.RANDOM:
3356     random 1 8
3357     if %r = 1 and $north = 0 then goto MOVE.RANDOM
3358     if %r = 2 and $northeast = 0 then goto MOVE.RANDOM
3359     if %r = 3 and $east = 0 then goto MOVE.RANDOM
3360     if %r = 4 and $southeast = 0 then goto MOVE.RANDOM
3361     if %r = 5 and $south = 0 then goto MOVE.RANDOM
3362     if %r = 6 and $southwest = 0 then goto MOVE.RANDOM
3363     if %r = 7 and $west = 0 then goto MOVE.RANDOM
3364     if %r = 8 and $northwest = 0 then goto MOVE.RANDOM
3365     #
3366     if %r = 1 then var Direction NORTH
3367     if %r = 2 then var Direction NORTHEAST
3368     if %r = 3 then var Direction EAST
3369     if %r = 4 then var Direction SOUTHEAST
3370     if %r = 5 then var Direction SOUTH
3371     if %r = 6 then var Direction SOUTHWEST
3372     if %r = 7 then var Direction WEST
3373     if %r = 8 then var Direction NORTHWEST
3374     #
3375     if %r = 1 then var Reverse.Direction SOUTH
3376     if %r = 2 then var Reverse.Direction SOUTHWEST
3377     if %r = 3 then var Reverse.Direction WEST
3378     if %r = 4 then var Reverse.Direction NORTHWEST
3379     if %r = 5 then var Reverse.Direction NORTH
3380     if %r = 6 then var Reverse.Direction NORTHEAST
3381     if %r = 7 then var Reverse.Direction EAST
3382     if %r = 8 then var Reverse.Direction SOUTHEAST
3383     #
3384     var Exits 0
3385     if $north = 1 then math Exits add 1
3386     if $northeast = 1 then math Exits add 1
3387     if $east = 1 then math Exits add 1
3388     if $southeast = 1 then math Exits add 1
3389     if $south = 1 then math Exits add 1
3390     if $southwest = 1 then math Exits add 1
3391     if $west = 1 then math Exits add 1
3392     if $northwest = 1 then math Exits add 1
3393     #
3394     # don't move "back" on a path unless we hit a dead end
3395     if %Exits > 1 and "%Last.Direction" = "%Reverse.Direction" then goto MOVE.RANDOM
3396     #
3397     var Last.Direction %Direction
3398     gosub MOVE.RESUME
3399     return
3400MOVE:
3401     var Direction $0
3402    pause .1
3403    pause .1
3404MOVE.RESUME:
3405     matchre MOVE.RESUME ^\.\.\.wait\s+\d+\s+sec(?:onds?|s)?\.?$|^Sorry\,
3406     matchre MOVE.RETREAT ^You are engaged to .*\!
3407     matchre MOVE.STAND ^You can't do that while lying down\.
3408     matchre MOVE.STAND ^You must be standing to do that\.
3409     matchre MOVE.STAND ^You must stand first\.
3410     matchre MOVE.STAND ^Stand up first\.
3411     matchre MOVE.FAILED ^You can't go there\.
3412     matchre MOVE.FAILED ^I could not find what you were referring to\.
3413     matchre MOVE.FAILED ^What were you referring to\?
3414     matchre MOVE.RETURN ^It's pitch dark|^Obvious
3415     send %Direction
3416     matchwait
3417MOVE.RETREAT:
3418     matchre MOVE.RETREAT ^\.\.\.wait\s+\d+\s+sec(?:onds?|s)?\.?$|^Sorry\,
3419     matchre MOVE.RETREAT ^You retreat back to pole range.
3420     matchre MOVE.RETREAT ^You try to back away
3421     matchre MOVE.STAND ^You must stand first\.
3422     matchre MOVE.RESUME ^You retreat from combat\.
3423     matchre MOVE.RESUME ^You are already as far away as you can get\!
3424     send RETREAT
3425     matchwait
3426MOVE.STAND:
3427     matchre MOVE.STAND ^\.\.\.wait\s+\d+\s+sec(?:onds?|s)?\.?$|^Sorry\,
3428     matchre MOVE.STAND ^You are overburdened and cannot manage to stand\.
3429     matchre MOVE.STAND ^The weight
3430     matchre MOVE.STAND ^You try
3431     matchre MOVE.RESUME ^You are already standing\.
3432     matchre MOVE.RESUME ^You stand back up\.
3433     matchre MOVE.RESUME ^You stand up\.
3434     send STAND
3435     matchwait
3436MOVE.FAILED:
3437     gosub clear
3438     goto MOVE.RANDOM
3439MOVE.RETURN:
3440     return
3441moveRandomDirection:
3442var random.loop 0
3443if $north then
3444{
3445put north
3446return
3447}
3448if $south then
3449{
3450put south
3451return
3452}
3453if $east then
3454{
3455put east
3456return
3457}
3458if $southwest then
3459{
3460put southwest
3461return
3462}
3463if $west then
3464{
3465put west
3466return
3467}
3468if $southeast then
3469{
3470put southeast
3471return
3472}
3473if $northeast then
3474{
3475put northeast
3476return
3477}
3478if $northwest then
3479{
3480put northwest
3481return
3482}
3483if $out then
3484{
3485put out
3486return
3487}
3488if $up then
3489{
3490put up
3491return
3492}
3493if $down then
3494{
3495put down
3496return
3497}
3498echo no random direction possible? looking to attempt to reset room exit vars
3499#might need a counter here to prevent infinite loops
3500math random.loop add 1
3501if %random.loop > 5 then return
3502put look
3503waitforre ^Obvious
3504pause
3505goto moveRandomDirection
3506####################################
3507#  GOSUBS
3508####################################
3509stowAmmo:
3510     if matchre("$righthand","(partisan|shield|light crossbow|buckler|lumpy bundle|halberd|mistwood longbow|gloomwood khuj|halberd)") then gosub wear my $1
3511     if matchre("$lefthand","(partisan|shield|light crossbow|buckler|lumpy bundle|halberd|mistwood longbow|gloomwood khuj|halberd)") then gosub wear my $1
3512     if matchre("$roomobjs","(basilisk head arrow|cane arrow|bone-tipped arrow|stone-tipped arrow|serrated-bodkin arrow|razor-edged arrow)") then gosub stowit $1
3513     if contains("$roomobjs","(repeating crossbow|bloodwood dako'gi crossbow|forester's crossbow|assassin's crossbow") then gosub stowit $1
3514     if matchre("$roomobjs","(elongated stones|granite stone)") then gosub stowit stone
3515     if matchre("$roomobjs","(river rock|river rocks)") then gosub stowit rock
3516     if matchre("$roomobjs","(leafhead bolt|barbed bolt)") then gosub stowit bolt
3517     if contains("$roomobjs","throwing blade") then gosub stowblade
3518     if contains("$roomobjs","sleek quadrello") then gosub stowit quadrello
3519     if contains("$roomobjs","ironwood shield") then gosub stowit shield
3520     if contains("$roomobjs","hand claws") then gosub stowit hand claw
3521     if contains("$roomobjs","T'Kashi mirror flamberge") then gosub stowit mirror flamberge
3522     if contains("$roomobjs","T'Kashi mirror flail") then gosub stowit mirror flail
3523     if contains("$roomobjs","mirror blade") then gosub stowit mirror blade
3524     if contains("$roomobjs","mirror knife") then gosub stowit mirror knife
3525     if contains("$roomobjs","razor-sharp damascus steel sabre") then gosub stowit sabre
3526     if contains("$roomobjs","glaes and kertig-alloy katana capped with an ornate dragonfire amber pommel") then gosub stowit katana
3527     if !matchre("$roomobjs","(sabre|scimitar|flail|kneecapper|hammer|bone club|javelin|tago|staff sling|bludgeon|short bow|telo|flamberge|flail|nightstick|khuj|iltesh|ngalio|hirdu bow|halberd|mirror blade|katana|morning star|war club|shadowy-black sling|staff sling|mattock|leathers|balaclava|helmet|helm|gauntlets|mail gloves|sniper's crossbow|light crossbow|shield|targe|great helm|throwing club|bastard sword|jambiya|katar|throwing blade|composite bow|short bow)") then return
3528     gosub stowit $1
3529     goto stowAmmo
3530STOWING:
3531     var location STOWING
3532     if "$righthandnoun" = "rope" then send coil my rope
3533     if "$righthand" = "bundle" || "$lefthand" = "bundle" then put -wear bund;-drop bun
3534     if matchre("$righthandnoun","(crossbow|bow|short bow)") then gosub unload
3535     if matchre("$righthand","(partisan|shield|buckler|crossbow|lumpy bundle|halberd|staff|longbow|khuj)") then gosub wear my $1
3536     if matchre("$lefthand","(partisan|shield|buckler|crossbow|lumpy bundle|halberd|staff|longbow|khuj)") then gosub wear my $1
3537     if matchre("$lefthand","(longbow|khuj)") then gosub stow my $1 in my %SHEATH
3538     if "$righthand" != "Empty" then gosub STOW right
3539     if "$lefthand" != "Empty" then gosub STOW left
3540     return
3541STOWBLADE:
3542     if contains("$roomobjs","throwing blade") then gosub stow throwing blade
3543     pause 0.1
3544     pause 0.1
3545     if contains("$roomobjs","throwing blade") then goto stowblade
3546     pause 0.1
3547     return
3548STOWIT:
3549     var location stow1
3550     var todo $0
3551stow1:
3552     if matchre("$righthand","longbow") then goto stow4
3553     matchre stow2 any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide|not designed to carry
3554     matchre RETURN ^Wear what\?|^Stow what\?
3555     matchre RETURN ^You put your|^You easily|^You strap
3556     matchre RETURN ^You stop as you realize
3557     matchre RETURN ^But that is already in your inventory\.
3558     matchre RETURN ^That can't be picked up
3559     matchre location.unload ^You should unload the
3560     matchre location.unload ^You need to unload the
3561     send stow %todo
3562     send stow %todo
3563     goto retry
3564stow2:
3565     pause 0.3
3566     pause 0.1
3567     var location stow2
3568     matchre RETURN ^Wear what\?|^Stow what\?
3569     matchre RETURN ^You put your|^You easily|^You strap
3570     matchre RETURN ^But that is already in your inventory\.
3571     matchre stow3 any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide|not designed to carry
3572     matchre location.unload ^You should unload the
3573     matchre location.unload ^You need to unload the
3574     send stow %todo in my %PAWN.CONTAINER
3575     goto retry
3576stow3:
3577     pause 0.3
3578     pause 0.1
3579     var location stow3
3580     if "$lefthandnoun" = "bundle" then send drop bun
3581     if "$righthandnoun" = "bundle" then send drop bun
3582     matchre RETURN ^Wear what\?|^Stow what\?
3583     matchre RETURN ^You put your|^You easily|^You strap
3584     matchre RETURN ^But that is already in your inventory\.
3585     matchre stow4 any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide|not designed to carry
3586     matchre location.unload ^You should unload the
3587     matchre location.unload ^You need to unload the
3588     send stow %todo in my %BIN.CONTAINER
3589     send stow %todo in my %BIN.CONTAINER
3590     goto retry
3591stow4:
3592     pause 0.5
3593     pause 0.1
3594     var location stow4
3595     if "$lefthandnoun" = "bundle" then send drop bun
3596     if "$righthandnoun" = "bundle" then send drop bun
3597     matchre RETURN ^Wear what\?|^Stow what\?
3598     matchre RETURN ^You put your|^You easily|^You strap
3599     matchre RETURN ^But that is already in your inventory\.
3600     matchre STOW.DROP any more room|no matter how you arrange|^That's too heavy|too thick|too long|too wide
3601     matchre location.unload ^You should unload the
3602     matchre location.unload ^You need to unload the
3603     send stow %todo in my %PAWN.CONTAINER
3604     send stow %todo in my %THIRD.CONTAINER
3605     goto retry
3606STOW.DROP:
3607     gosub EMPTY.HANDS
3608     return
3609REM.WEAR:
3610     send rem bund
3611     send drop bund
3612     pause 0.1
3613     goto wear1
3614wear:
3615     var location wear1
3616     var todo $0
3617wear1:
3618     if "$lefthandnoun" = "bundle" then send drop bun
3619     if "$righthandnoun" = "bundle" then send drop bun
3620     matchre RETURN ^You sling
3621     matchre RETURN ^You attach
3622     matchre RETURN ^You put
3623     matchre RETURN ^You strap
3624     matchre RETURN ^You work your way into
3625     matchre RETURN ^You slide your left arm through
3626     matchre RETURN ^You hang
3627     matchre RETURN ^You slip
3628     matchre RETURN ^You drape
3629     matchre RETURN ^You remove
3630     matchre RETURN ^You slide
3631     matchre RETURN ^Roundtime
3632     matchre RETURN ^You can't
3633     matchre RETURN ^You are already wearing that\.
3634     matchre RETURN ^Wear what\?
3635     matchre RETURN ^The contours of the
3636     matchre RETURN ^You can't wear any more items like that\.
3637     matchre location.unload1 ^You should unload the
3638     matchre location.unload1 ^You need to unload the
3639     matchre RETURN ^You drop
3640     matchre RETURN ^What|^Remove|^Your
3641     send wear my %todo
3642     goto retry
3643get:
3644     var location get1
3645     var todo $0
3646get1:
3647     matchre return ^You get
3648     matchre return ^You pull
3649     matchre return ^You pick up
3650     matchre return ^You remove
3651     matchre return ^Roundtime
3652     matchre return ^You sling
3653     matchre return ^What were you referring to\?
3654     matchre return ^You are already holding that\.
3655     matchre return ^You need a free hand to pick that up\.
3656     matchre return ^But that is already in your inventory\.
3657     matchre return ^You fade in for a moment as you pick up
3658     matchre return ^You are not strong enough to pick that up\!
3659     send get %todo
3660     goto retry
3661search:
3662     var todo $0
3663     var location search
3664     matchre return ^Success\!
3665     matchre return ^Roundtime
3666     matchre return ^You search around for a moment
3667     put search %todo
3668     goto retry
3669retry:
3670     matchre location ^\.\.\.wait
3671     matchre location ^Sorry, you may
3672     matchre location ^Sorry, system is slow
3673     matchre location ^You don't seem to be able to move to do that
3674     matchre location.p ^It's all a blur
3675     matchre location.p ^You're unconscious\!
3676     matchre location.p ^You are still stunned
3677     matchre location.p There is no need for violence here\.
3678     matchre location.p ^You can't do that while entangled in a web
3679     matchre location.p ^You struggle against the shadowy webs to no avail\.
3680     matchre location.p ^You attempt that, but end up getting caught in an invisible box\.
3681     matchre location1 ^You should stop playing before you do that\.
3682     matchre location1 ^You are a bit too busy performing to do that\.
3683     matchre location1 ^You are concentrating too much upon your performance to do that\.
3684     matchwait
3685location.unload:
3686     gosub unload
3687     var location stow1
3688     gosub stow1
3689     goto %location
3690location.unload1:
3691     gosub unload
3692     var location wear1
3693     gosub wear1
3694     goto %location
3695location1:
3696     gosub stop.humming1
3697     goto %location
3698location.p:
3699     pause
3700location:
3701     pause 0.3
3702     goto %location
3703return.p:
3704     pause 0.1
3705unload:
3706     var location unload
3707     matchre RETURN ^You unload the
3708     matchre RETURN ^You remain concealed by your surroundings, convinced that your unloading
3709     matchre RETURN ^Roundtime:
3710     matchre RETURN ^But your
3711     matchre RETURN ^You don't have a
3712     matchre RETURN ^You can't unload such a weapon\.
3713     matchre RETURN ^Your
3714     send unload
3715     goto retry
3716#########################################################
3717CHECK.SATCHEL:
3718var temp.item null
3719var temp.number null
3720#dove grey cotton
3721#brilliant multicolored
3722#rough burlap
3723#black silk
3724FIRSTSAT:
3725     put tap first satchel
3726	 matchre GREY dove grey cotton
3727	 matchre MULTICOLOR brilliant multicolored
3728	 matchre BURLAP rough burlap
3729	 matchre SILK black silk
3730	 matchwait
3731SECONDSAT:
3732     put tap second satchel
3733THIRDSAT:
3734     put tap third satchel
3735FOURTHSAT:
3736     put tap fourth satchel
3737#########################################################
3738#########################################################
3739#########################################################
3740# DEFAULT VARIABLES
3741#########################################################
3742#########################################################
3743DEFAULT.VARIABLES:
3744     var large.items cauldron|stove|spear|wayerd pyramid
3745     var Profit 0
3746     var Jailed 0
3747     var Charges 0
3748     var Binned 0
3749     var Pawned 0
3750     var PLEAD innocent
3751     var marking OFF
3752     var currency kronar
3753     var item.Location
3754     var LAST MAINLOOP
3755     var SECOND.ITEM 0
3756     var SECOND.PAWN OFF
3757     var no.learn OFF
3758     var armor null
3759     var armor1 null
3760     var armor2 null
3761     var armor3 null
3762     var armor4 null
3763     var armor5 null
3764     var armor6 null
3765     var armor7 null
3766     var armor8 null
3767     var armor9 null
3768     var armor10 null
3769     var total.armor 0
3770     return
3771#########################################################################################
3772# PROGRESSIVE ITEM VARIABLE SECTION
3773#
3774# Please report any bugs, or items updates to skultamaphon at gmail.com
3775# If an item is too hard or stops teaching too early please let me know!
3776###########################################################################################
3777###########################
3778# SKILLS 20-39
3779###########################
3780CLASS1:
3781     ## THEREN
3782     var skillrange 20-39
3783     var T.Tarsha canons
3784     var T.Rose <nothing>
3785     var T.Music <nothing>
3786          var T.Music.Num
3787     var T.Hats <nothing>
3788     var T.Arm <nothing>
3789     var T.Gift <nothing>
3790     var T.Sweet cake
3791     var T.Cupcake cupcake
3792     var T.Gen charcoal
3793     var T.Krrish <nothing>
3794     var T.Lense <nothing>
3795     var T.Cleric block
3796     var T.Men <nothing>
3797     var T.Women <nothing>
3798     var T.Cloth <nothing>
3799     var T.Armory <nothing>
3800     var T.Forge copper slug
3801     ## HAVEN
3802     var skillrange 20-39
3803     var RH.Herb water
3804     var RH.Iron <nothing>
3805     var RH.Naph <nothing>
3806          var RH.Naph.Loc on cart
3807     var RH.Flow black orchid
3808     var RH.Seli <nothing>
3809     var RH.Arms <nothing>
3810     var RH.Gen purse
3811     var RH.Cloth <nothing>
3812     var RH.Artif <nothing>
3813     var RH.Joy chocolate
3814     var RH.Smoke <nothing>
3815     var RH.Weap <nothing>
3816     var RH.Bard pick
3817     var RH.Bard2 <nothing>
3818     var RH.Cleric grey-brown feather
3819     var RH.Cleric2  <nothing>
3820     var RH.Lock ordinary lockpick
3821     var RH.Tog  <nothing>
3822     var RH.Tog2  <nothing>
3823     var RH.Mirg <nothing>
3824     ## ARTHE DALE
3825     var AD.Feta biscuit
3826     var AD.Thread <nothing>
3827     var AD.Fash <nothing>
3828     var AD.Odds <nothing>
3829     var AD.Bard <nothing>
3830     var AD.Map <nothing>
3831     var AD.Arm <nothing>
3832     var AD.Smoke <nothing>
3833     var AD.Tart.E <nothing>
3834     var AD.Tart.C <nothing>
3835     var AD.Tart.M <nothing>
3836     var AD.Tart.L <nothing>
3837     var AD.Tart.F <nothing>
3838     var KA.Grek cheese
3839     ## CROSSINGS
3840     var skillrange 20-39
3841     var C.Alch water
3842     var C.Artif <nothing>
3843     var C.Bath reed
3844          var C.Bath.Num
3845          var C.Bath.Loc
3846     var C.Card <nothing>
3847     var C.Gen bark
3848     var C.Weap sling
3849     var C.Arm gloves
3850     var C.Music pick
3851     var C.Music2 <nothing>
3852     var C.Lock <nothing>
3853     var C.Empath <nothing>
3854          var C.Empath.Alt <nothing>
3855     var C.Empath2 garland
3856     var C.Empath3 card
3857          var C.Empath3.Loc
3858          var C.Empath3.Alt <nothing>
3859     var C.Cler chamomile
3860     var C.Haber <nothing>
3861     var C.Script <nothing>
3862     var C.Tann <nothing>
3863          var C.Tann.Loc
3864     var C.Jewel <nothing>
3865     var C.Stitch <nothing>
3866     var C.Cobb <nothing>
3867     var C.Herb <nothing>
3868     var C.Flow rose
3869     ## LETH
3870     var L.Skin <nothing>
3871     var L.Bow flights
3872     var L.Orig <nothing>
3873          var L.Orig.Num
3874     var L.Weap <nothing>
3875     var L.Wick <nothing>
3876     var L.Bard <nothing>
3877     var L.Bard2 <nothing>
3878     var L.Cloth <nothing>
3879     var L.Wood <nothing>
3880     var L.Gen <nothing>
3881          var L.Gen.Alt <nothing>
3882     var L.Perf <nothing>
3883     ## SHARD
3884     var skillrange 20-39
3885     var S.Gen charcoal
3886     var S.Weap <nothing>
3887     var S.Cleric chamomile
3888     var S.Stitch gloves
3889     var S.Alch water
3890     var S.Herb <nothing>
3891     var S.Artif <nothing>
3892     var S.Music pick
3893     var S.Armor leather gloves
3894     var S.Reed <nothing>
3895          var S.Reed.Num
3896     var S.Bow flights
3897     var S.Lock <nothing>
3898     var S.Coin <nothing>
3899          var S.Coin.Loc
3900     var S.Frill <nothing>
3901     var S.Herald <nothing>
3902          var S.Herald.Loc
3903     var S.Gift <nothing>
3904          var S.Gift.Loc
3905     var S.Toy <nothing>
3906          var S.Toy.Loc
3907     var S.Memory <nothing>
3908     var S.Token <nothing>
3909     var S.Museum <nothing>
3910     var S.Barber razor
3911     var S.Tanner <nothing>
3912     var S.Surv <nothing>
3913          var S.Surv.Loc
3914          var S.Surv.Alt <nothing>
3915     var S.Surv2 chicken flights
3916          var S.Surv2.Loc
3917          var S.Surv2.Alt hawk flights
3918     var S.Spire <nothing>
3919     # HIB AND RAVEN'S POINT
3920     var SC.Weap <nothing>
3921     var H.Shield <nothing>
3922     var H.Jewel <nothing>
3923     var H.Tog <nothing>
3924     var H.Herb <nothing>
3925     var H.Sund incense
3926     var H.Lamp charcoal
3927     var H.Music <nothing>
3928     var H.Alch <nothing>
3929     var H.Forge <nothing>
3930          var H.Forge.Loc on tab
3931     var H.WM zinc bar
3932          var H.WM.Num
3933          var H.WM.Loc on tab
3934     var R.Gen flights
3935     var R.Tobac <nothing>
3936     pause 0.1
3937     gosub ITEM.COUNT0
3938     return
3939##################################
3940# SKILLS 40-59
3941##################################
3942CLASS2:
3943     ## THEREN
3944     var skillrange 40-59
3945     var T.Tarsha canons
3946     var T.Rose socks
3947     var T.Music cloth
3948          var T.Music.Num
3949     var T.Hats nightcap
3950     var T.Arm <nothing>
3951     var T.Gift <nothing>
3952     var T.Sweet cake
3953     var T.Cupcake cupcake
3954     var T.Gen charcoal
3955     var T.Krrish <nothing>
3956     var T.Lense <nothing>
3957     var T.Cleric incense
3958     var T.Men <nothing>
3959     var T.Women <nothing>
3960     var T.Cloth <nothing>
3961     var T.Armory <nothing>
3962     var T.Forge copper slug
3963     ## HAVEN
3964     var skillrange 40-59
3965     var RH.Herb mixing stick
3966     var RH.Iron <nothing>
3967     var RH.Naph <nothing>
3968          var RH.Naph.Loc on cart
3969     var RH.Flow black orchid
3970     var RH.Seli <nothing>
3971     var RH.Arms dart
3972     var RH.Gen flint
3973     var RH.Cloth gown
3974     var RH.Artif <nothing>
3975     var RH.Joy <nothing>
3976     var RH.Smoke pouch
3977     var RH.Weap <nothing>
3978     var RH.Bard pick
3979     var RH.Bard2 hairpin
3980     var RH.Cleric incense
3981     var RH.Cleric2  <nothing>
3982     var RH.Lock ordinary lockpick
3983     var RH.Tog  <nothing>
3984     var RH.Tog2  <nothing>
3985     var RH.Mirg <nothing>
3986     # ARTHE DALE
3987     var skillrange 40-59
3988     var AD.Feta yogurt
3989     var AD.Thread pouch
3990     var AD.Fash <nothing>
3991     var AD.Odds <nothing>
3992     var AD.Bard <nothing>
3993     var AD.Map <nothing>
3994     var AD.Arm butcher's knife
3995     var AD.Smoke <nothing>
3996     var AD.Tart.E <nothing>
3997     var AD.Tart.C tart
3998     var AD.Tart.M <nothing>
3999     var AD.Tart.L tart
4000     var AD.Tart.F <nothing>
4001     var KA.Grek cheese
4002     # CROSSINGS
4003     var C.Alch water
4004     var C.Artif <nothing>
4005     var C.Bath soap
4006          var C.Bath.Num
4007          var C.Bath.Loc in basin
4008     var C.Card <nothing>
4009     var C.Gen purse
4010     var C.Weap sling
4011     var C.Arm leather gloves
4012     var C.Music pick
4013     var C.Music2 <nothing>
4014     var C.Lock slim lockpick
4015     var C.Empath <nothing>
4016          var C.Empath.Alt <nothing>
4017     var C.Empath2 garland
4018     var C.Empath3 card
4019          var C.Empath3.Loc on hook
4020          var C.Empath3.Alt
4021     var C.Cler chalice
4022     var C.Haber hood
4023     var C.Script <nothing>
4024     var C.Tann <nothing>
4025          var C.Tann.Loc
4026     var C.Jewel hairpin
4027     var C.Stitch beret
4028     var C.Cobb <nothing>
4029     var C.Herb <nothing>
4030     var C.Flow rose
4031     # LETH DERIEL
4032     var L.Skin <nothing>
4033     var L.Bow arrowhead
4034     var L.Orig <nothing>
4035          var L.Orig.Num
4036     var L.Weap <nothing>
4037     var L.Wick <nothing>
4038     var L.Bard <nothing>
4039     var L.Bard2 cloth
4040     var L.Cloth <nothing>
4041     var L.Wood <nothing>
4042     var L.Gen <nothing>
4043          var L.Gen.Alt <nothing>
4044     var L.Perf <nothing>
4045     # SHARD
4046     var skillrange 40-59
4047     var S.Gen hairbrush
4048     var S.Weap <nothing>
4049     var S.Cleric sirese flower
4050     var S.Stitch gloves
4051     var S.Alch mixing stick
4052     var S.Herb <nothing>
4053     var S.Artif <nothing>
4054     var S.Music rag
4055     var S.Armor leather gloves
4056     var S.Reed <nothing>
4057          var S.Reed.Num
4058     var S.Bow glue
4059     var S.Lock iron keyblank
4060     var S.Coin <nothing>
4061          var S.Coin.Loc
4062     var S.Frill gloves
4063     var S.Herald <nothing>
4064          var S.Herald.Loc
4065     var S.Gift <nothing>
4066          var S.Gift.Loc
4067     var S.Toy whistle
4068          var S.Toy.Loc
4069     var S.Memory <nothing>
4070     var S.Token <nothing>
4071     var S.Museum <nothing>
4072     var S.Barber oil
4073     var S.Tanner <nothing>
4074     var S.Surv oil
4075          var S.Surv.Loc
4076          var S.Surv.Alt <nothing>
4077     var S.Surv2 glue
4078          var S.Surv2.Loc
4079          var S.Surv2.Alt hawk flights
4080	 var S.Spire <nothing>
4081     # HIB AND RAVEN'S POINT
4082     var SC.Weap <nothing>
4083     var H.Shield <nothing>
4084     var H.Jewel <nothing>
4085     var H.Tog toothpicks
4086     var H.Herb <nothing>
4087     var H.Sund incense
4088     var H.Lamp torch
4089     var H.Music cloth
4090     var H.Alch mixing stick
4091     var H.Forge copper slug
4092          var H.Forge.Loc on tab
4093     var H.WM copper slug
4094          var H.WM.Num
4095          var H.WM.Loc on tab
4096     var R.Gen flights
4097     var R.Tobac pine pipe
4098     pause 0.1
4099     gosub ITEM.COUNT1
4100     return
4101##################################
4102# SKILLS 60-99
4103##################################
4104CLASS3:
4105     ## THEREN
4106     var skillrange 60-99
4107     var T.Tarsha canons
4108     var T.Rose socks
4109     var T.Music cloth
4110          var T.Music.Num
4111     var T.Hats nightcap
4112     var T.Arm <nothing>
4113     var T.Gift <nothing>
4114     var T.Sweet cake
4115     var T.Cupcake cupcake
4116     var T.Gen carving knife
4117     var T.Krrish <nothing>
4118     var T.Lense <nothing>
4119     var T.Cleric incense
4120     var T.Men <nothing>
4121     var T.Women <nothing>
4122     var T.Cloth <nothing>
4123     var T.Armory <nothing>
4124     var T.Forge copper slug
4125     ## HAVEN
4126      var skillrange 60-99
4127     var RH.Herb oil
4128     var RH.Iron <nothing>
4129     var RH.Naph <nothing>
4130          var RH.Naph.Loc on cart
4131     var RH.Flow black orchid
4132     var RH.Seli claw gloves
4133     var RH.Arms bolts
4134     var RH.Gen bark
4135     var RH.Cloth sash
4136     var RH.Artif <nothing>
4137     var RH.Joy troll
4138     var RH.Smoke sungrown cigar
4139     var RH.Weap <nothing>
4140     var RH.Bard <nothing>
4141     var RH.Bard2 hairpin
4142     var RH.Cleric candle
4143     var RH.Cleric2  <nothing>
4144     var RH.Lock stout lockpick
4145     var RH.Tog  <nothing>
4146     var RH.Tog2  <nothing>
4147     var RH.Mirg <nothing>
4148     # ARTHE DALE
4149     var skillrange 60-99
4150     var AD.Feta herb cheese
4151     var AD.Thread needle
4152     var AD.Fash snood
4153     var AD.Odds <nothing>
4154     var AD.Bard rag
4155     var AD.Map <nothing>
4156     var AD.Arm hood
4157     var AD.Smoke sungrown cigar
4158     var AD.Tart.E tart
4159     var AD.Tart.C tart
4160     var AD.Tart.M tart
4161     var AD.Tart.L <nothing>
4162     var AD.Tart.F tart
4163     var KA.Grek belt
4164     # CROSSINGS
4165     var C.Alch pestle
4166     var C.Artif <nothing>
4167     var C.Bath soap
4168          var C.Bath.Num
4169          var C.Bath.Loc in basin
4170     var C.Card <nothing>
4171     var C.Gen flint
4172     var C.Weap dagger
4173     var C.Arm leather aventail
4174     var C.Music rag
4175     var C.Music2 drum stick
4176     var C.Lock stout lockpick
4177     var C.Empath scalpel
4178          var C.Empath.Alt <nothing>
4179     var C.Empath2 garland
4180     var C.Empath3 card
4181          var C.Empath3.Loc on hook
4182          var C.Empath3.Alt <nothing>
4183     var C.Cler wine
4184     var C.Haber skullcap
4185     var C.Script <nothing>
4186     var C.Tann thread
4187          var C.Tann.Loc
4188     var C.Jewel anklet
4189     var C.Stitch cloche
4190     var C.Cobb moccasins
4191     var C.Herb <nothing>
4192     var C.Flow black orchid
4193     # LETH DERIEL
4194     var L.Skin <nothing>
4195     var L.Bow arrowhead
4196     var L.Orig white paper
4197          var L.Orig.Num
4198     var L.Weap <nothing>
4199     var L.Wick <nothing>
4200     var L.Bard recorder
4201     var L.Bard2 cloth
4202     var L.Cloth <nothing>
4203     var L.Wood <nothing>
4204     var L.Gen <nothing>
4205          var L.Gen.Alt <nothing>
4206     var L.Perf <nothing>
4207     # SHARD
4208     var skillrange 60-99
4209     var S.Gen unguent
4210     var S.Weap <nothing>
4211     var S.Cleric incense
4212     var S.Stitch hood
4213     var S.Alch pestle
4214     var S.Herb <nothing>
4215     var S.Artif <nothing>
4216     var S.Music cloth
4217     var S.Armor collar
4218     var S.Reed <nothing>
4219          var S.Reed.Num
4220     var S.Bow shears
4221     var S.Lock iron keyblank
4222     var S.Coin <nothing>
4223          var S.Coin.Loc
4224     var S.Frill straw hat
4225     var S.Herald <nothing>
4226          var S.Herald.Loc
4227     var S.Gift <nothing>
4228          var S.Gift.Loc
4229     var S.Toy whistle
4230          var S.Toy.Loc
4231     var S.Memory <nothing>
4232     var S.Token <nothing>
4233     var S.Museum <nothing>
4234     var S.Barber oil
4235     var S.Tanner thread
4236     var S.Surv wood pestle
4237          var S.Surv.Alt stone pestle
4238          var S.Surv.Loc
4239     var S.Surv2 falcon flights
4240          var S.Surv2.Alt wood shaper
4241          var S.Surv2.Loc
4242	 var S.Spire <nothing>
4243     # HIB AND RAVEN'S POINT
4244     var SC.Weap <nothing>
4245     var H.Shield <nothing>
4246     var H.Jewel <nothing>
4247     var H.Tog white soap
4248     var H.Herb <nothing>
4249     var H.Sund bone comb
4250     var H.Lamp lamp oil
4251     var H.Music cloth
4252     var H.Alch stone pestle
4253     var H.Forge copper slug
4254          var H.Forge.Loc on tab
4255     var H.WM copper slug
4256          var H.WM.Num
4257          var H.WM.Loc on tab
4258     var R.Gen flights
4259     var R.Tobac pipe
4260     pause 0.1
4261     gosub ITEM.COUNT1
4262     return
4263##################################
4264# SKILLS 100-149
4265##################################
4266CLASS4:
4267     ## THEREN
4268     var skillrange 100-149
4269     var T.Tarsha canons
4270     var T.Rose kilt
4271     var T.Music cloth
4272          var T.Music.Num
4273     var T.Hats nightcap
4274     var T.Arm <nothing>
4275     var T.Gift <nothing>
4276     var T.Sweet cake
4277     var T.Cupcake cupcake
4278     var T.Gen carving knife
4279     var T.Krrish <nothing>
4280     var T.Lense <nothing>
4281     var T.Cleric pestle
4282     var T.Men <nothing>
4283     var T.Women <nothing>
4284     var T.Cloth <nothing>
4285     var T.Armory <nothing>
4286     var T.Forge copper slug
4287     ## HAVEN
4288     var skillrange 100-149
4289     var RH.Herb pestle
4290     var RH.Iron <nothing>
4291     var RH.Naph <nothing>
4292          var RH.Naph.Loc on cart
4293     var RH.Flow black orchid
4294     var RH.Seli claw gloves
4295     var RH.Arms stiletto
4296     var RH.Gen spade
4297     var RH.Cloth gloves
4298     var RH.Artif <nothing>
4299     var RH.Joy troll
4300     var RH.Smoke apple pipe
4301     var RH.Weap <nothing>
4302     var RH.Bard linen cloth
4303     var RH.Bard2 earrings
4304     var RH.Cleric violets
4305     var RH.Cleric2  <nothing>
4306     var RH.Lock stout lockpick
4307     var RH.Tog  <nothing>
4308     var RH.Tog2  <nothing>
4309     var RH.Mirg <nothing>
4310     # ARTHE DALE
4311     var skillrange 100-149
4312     var AD.Feta herb cheese
4313     var AD.Thread bobbin
4314     var AD.Fash vest
4315     var AD.Odds fan
4316     var AD.Bard instrument skin
4317     var AD.Map <nothing>
4318     var AD.Arm sling
4319     var AD.Smoke telgi cigar
4320     var AD.Tart.E tart
4321     var AD.Tart.C tart
4322     var AD.Tart.M tart
4323     var AD.Tart.L tart
4324     var AD.Tart.F tart
4325     var KA.Grek boots
4326     # CROSSINGS
4327     var skillrange 100-149
4328     var C.Alch large jar
4329     var C.Artif <nothing>
4330     var C.Bath towel
4331          var C.Bath.Num
4332          var C.Bath.Loc on stand
4333     var C.Card <nothing>
4334     var C.Gen razor
4335     var C.Weap gauntlet
4336     var C.Arm reinforced greaves
4337     var C.Music ocarina
4338     var C.Music2 maple guiro
4339     var C.Lock stout lockpick
4340     var C.Empath <nothing>
4341          var C.Empath.Alt <nothing>
4342     var C.Empath2 garland
4343     var C.Empath3 card
4344          var C.Empath3.Loc on hook
4345          var C.Empath3.Alt <nothing>
4346     var C.Cler vial
4347     var C.Haber vest
4348     var C.Script <nothing>
4349     var C.Tann bodkin
4350          var C.Tann.Loc
4351     var C.Jewel clasp
4352     var C.Stitch muff
4353     var C.Cobb tights
4354     var C.Herb jadice flower
4355     var C.Flow <nothing>
4356     # LETH DERIEL
4357     var L.Skin buckskin pelt
4358     var L.Bow bolts
4359     var L.Orig silver paper
4360          var L.Orig.Num
4361     var L.Weap <nothing>
4362     var L.Wick wicker quiver
4363     var L.Bard ocarina
4364     var L.Bard2 cloth
4365     var L.Cloth moufles
4366     var L.Wood <nothing>
4367     var L.Gen dice
4368          var L.Gen.Alt <nothing>
4369     var L.Perf <nothing>
4370     # SHARD
4371     var skillrange 100-149
4372     var S.Gen razor
4373     var S.Weap <nothing>
4374     var S.Cleric vial
4375     var S.Stitch shawl
4376     var S.Alch pestle
4377     var S.Herb riolur leaf
4378     var S.Artif <nothing>
4379     var S.Music fife
4380     var S.Armor legguards
4381     var S.Reed <nothing>
4382          var S.Reed.Num
4383     var S.Bow crossbow bolts
4384     var S.Lock bronze keyblank
4385     var S.Coin <nothing>
4386          var S.Coin.Loc
4387     var S.Frill fan
4388     var S.Herald <nothing>
4389          var S.Herald.Loc
4390     var S.Gift <nothing>
4391          var S.Gift.Loc
4392     var S.Toy whistle
4393          var S.Toy.Loc
4394     var S.Memory <nothing>
4395     var S.Token <nothing>
4396     var S.Museum <nothing>
4397     var S.Barber oil
4398     var S.Tanner bodkin
4399     var S.Surv stone pestle
4400          var S.Surv.Alt wood pestle
4401          var S.Surv.Loc
4402     var S.Surv2 steel shaper
4403          var S.Surv2.Alt wood shaper
4404          var S.Surv2.Loc
4405	 var S.Spire <nothing>
4406     # HIB AND RAVEN'S POINT
4407     var SC.Weap <nothing>
4408     var H.Shield <nothing>
4409     var H.Jewel <nothing>
4410     var H.Tog white soap
4411     var H.Herb <nothing>
4412     var H.Sund bone comb
4413     var H.Lamp lamp oil
4414     var H.Music cloth
4415     var H.Alch stone pestle
4416     var H.Forge copper slug
4417          var H.Forge.Loc on tab
4418     var H.WM copper slug
4419          var H.WM.Num
4420          var H.WM.Loc on tab
4421     var R.Gen flights
4422     var R.Tobac pipe
4423     gosub ITEM.COUNT2
4424     return
4425##################################
4426# SKILLS 150-199
4427##################################
4428CLASS5:
4429     ## THEREN
4430     var skillrange 150-199
4431     var T.Tarsha canons
4432     var T.Rose shirt
4433     var T.Music four strings
4434          var T.Music.Num
4435     var T.Hats sailor hat
4436     var T.Arm <nothing>
4437     var T.Gift blue shirt
4438     var T.Sweet cake
4439     var T.Cupcake cupcake
4440     var T.Gen carving knife
4441     var T.Krrish <nothing>
4442     var T.Lense <nothing>
4443     var T.Cleric pestle
4444     var T.Men trousers
4445     var T.Women <nothing>
4446     var T.Cloth suspenders
4447     var T.Armory dagger
4448     var T.Forge copper slug
4449     ## HAVEN
4450     var skillrange 150-199
4451     var RH.Herb jar
4452     var RH.Iron <nothing>
4453     var RH.Naph naphtha
4454          var RH.Naph.Loc on cart
4455     var RH.Flow silk orchid
4456     var RH.Seli legwraps
4457     var RH.Arms kris
4458     var RH.Gen dagger sheath
4459     var RH.Cloth blouse
4460     var RH.Artif simple talisman
4461     var RH.Joy kitten
4462     var RH.Smoke lanival pipe
4463     var RH.Weap club
4464     var RH.Bard blouse
4465     var RH.Bard2 earrings
4466     var RH.Cleric herbs
4467     var RH.Cleric2  <nothing>
4468     var RH.Lock slim lockpick
4469     var RH.Tog beaded slippers
4470     var RH.Tog2 <nothing>
4471     var RH.Mirg <nothing>
4472     # ARTHE DALE
4473     var skillrange 150-199
4474     var AD.Feta aniblues cheese
4475     var AD.Thread bobbin
4476     var AD.Fash cape
4477     var AD.Odds fan
4478     var AD.Bard bodhran skin
4479     var AD.Map pipe
4480     var AD.Arm short sword
4481     var AD.Smoke cigarillo
4482     var AD.Tart.E tart
4483     var AD.Tart.C tart
4484     var AD.Tart.M tart
4485     var AD.Tart.L tart
4486     var AD.Tart.F tart
4487     var KA.Grek charm
4488     # CROSSINGS
4489     var skillrange 150-199
4490     var C.Alch dracon crystals
4491     var C.Artif talisman
4492     var C.Bath towel
4493          var C.Bath.Num
4494          var C.Bath.Loc on stand
4495     var C.Card case
4496     var C.Gen embossed quiver
4497     var C.Weap cutlass
4498     var C.Arm mail gloves
4499     var C.Music lyre
4500     var C.Music2 ebony guiro
4501     var C.Lock slim lockpick
4502     var C.Empath scalpel
4503          var C.Empath.Alt <nothing>
4504     var C.Empath2 garland
4505     var C.Empath3 button
4506          var C.Empath3.Loc on case
4507          var C.Empath3.Alt <nothing>
4508     var C.Cler coffer
4509     var C.Haber shirt
4510     var C.Script satchel
4511          var C.Script.Num second
4512     var C.Tann scraper
4513          var C.Tann.Loc
4514     var C.Jewel engagement ring
4515     var C.Stitch cloak
4516     var C.Cobb jack boots
4517     var C.Herb riolur leaf
4518     var C.Flow wreath
4519     # LETH DERIEL
4520     var L.Skin deer skin
4521     var L.Bow long arrows
4522     var L.Orig case
4523          var L.Orig.Num fourth
4524     var L.Weap <nothing>
4525          var L.Weap.Loc in catalog
4526     var L.Wick wicker quiver
4527     var L.Bard flute
4528     var L.Bard2 four strings
4529     var L.Cloth tunic
4530     var L.Wood log
4531     var L.Gen dice
4532          var L.Gen.Alt <nothing>
4533     var L.Perf <nothing>
4534     # SHARD
4535     var skillrange 150-199
4536     var S.Gen clippers
4537     var S.Weap targe
4538     var S.Cleric armband
4539     var S.Stitch blouse
4540     var S.Alch tukai stones
4541     var S.Herb riolur leaf
4542     var S.Artif simple talisman
4543     var S.Music bow
4544     var S.Armor mail gauntlets
4545     var S.Reed <nothing>
4546          var S.Reed.Num
4547     var S.Bow crossbow bolts
4548     var S.Lock bronze keyblank
4549     var S.Coin <nothing>
4550          var S.Coin.Loc
4551     var S.Frill lace fan
4552     var S.Herald target shield
4553          var S.Herald.Loc
4554     var S.Gift boggle doll
4555          var S.Gift.Loc in black basket
4556     var S.Toy beard
4557          var S.Toy.Loc
4558     var S.Memory <nothing>
4559     var S.Token <nothing>
4560     var S.Museum <nothing>
4561     var S.Barber oil
4562     var S.Tanner scraper
4563     var S.Surv stone pestle
4564          var S.Surv.Alt wood pestle
4565          var S.Surv.Loc
4566     var S.Surv2 blued shaper
4567          var S.Surv2.Alt steel shaper
4568          var S.Surv2.Loc
4569	 var S.Spire <nothing>
4570     # HIB AND RAVEN'S POINT
4571     var SC.Weap <nothing>
4572     var H.Shield <nothing>
4573     var H.Jewel <nothing>
4574     var H.Tog white soap
4575     var H.Herb <nothing>
4576     var H.Sund bone comb
4577     var H.Lamp lamp oil
4578     var H.Music cloth
4579     var H.Alch stone pestle
4580     var H.Forge copper slug
4581          var H.Forge.Loc on tab
4582     var H.WM copper slug
4583          var H.WM.Num
4584          var H.WM.Loc on tab
4585     var R.Gen flights
4586     var R.Tobac pipe
4587     gosub ITEM.COUNT2
4588     return
4589##################################
4590# SKILLS 200-249
4591##################################
4592CLASS6:
4593     ## THEREN
4594     var skillrange 200-249
4595     var T.Tarsha greques
4596     var T.Rose shirt
4597     var T.Music four strings
4598          var T.Music.Num
4599     var T.Hats sailor hat
4600     var T.Arm <nothing>
4601     var T.Gift blue shirt
4602     var T.Sweet cake
4603     var T.Cupcake cupcake
4604     var T.Gen carving knife
4605     var T.Krrish <nothing>
4606     var T.Lense <nothing>
4607     var T.Cleric pestle
4608     var T.Men trousers
4609     var T.Women <nothing>
4610     var T.Cloth suspenders
4611     var T.Armory dagger
4612     var T.Forge copper slug
4613     ## HAVEN
4614     var skillrange 200-249
4615     var RH.Herb jadice flower
4616     var RH.Iron <nothing>
4617     var RH.Naph naphtha
4618          var RH.Naph.Loc on cart
4619     var RH.Flow silk orchid
4620     var RH.Seli hood
4621     var RH.Arms rapier
4622     var RH.Gen scabbard
4623     var RH.Cloth skirt
4624     var RH.Artif simple talisman
4625     var RH.Joy bunny
4626     var RH.Smoke olvio pipe
4627     var RH.Weap club
4628     var RH.Bard alpargatas
4629     var RH.Bard2 wristlet
4630     var RH.Cleric chalice
4631     var RH.Cleric2 black bottle
4632     var RH.Lock slim lockpick
4633     var RH.Tog ivory shirt
4634     var RH.Tog2 <nothing>
4635     var RH.Mirg anklet
4636     # ARTHE DALE
4637     var skillrange 200-249
4638     var AD.Feta butter cheese
4639     var AD.Thread pattern
4640     var AD.Fash trousers
4641     var AD.Odds earring
4642     var AD.Bard itharr's
4643     var AD.Map pipe
4644     var AD.Arm wooden shield
4645     var AD.Smoke cigarillo
4646     var AD.Tart.E tart
4647     var AD.Tart.C tart
4648     var AD.Tart.M tart
4649     var AD.Tart.L tart
4650     var AD.Tart.F tart
4651     var KA.Grek charm
4652     # CROSSINGS
4653     var C.Alch tincture jar
4654     var C.Artif talisman
4655     var C.Bath bathrobe
4656          var C.Bath.Num
4657          var C.Bath.Loc
4658     var C.Card case
4659     var C.Gen backpack
4660     var C.Weap rapier
4661     var C.Arm chain aventail
4662     var C.Music bodhran skin
4663     var C.Music2 ebony guiro
4664     var C.Lock slim lockpick
4665     var C.Empath scalpel
4666          var C.Empath.Alt <nothing>
4667     var C.Empath2 garland
4668     var C.Empath3 oak stylus
4669          var C.Empath3.Loc in box
4670          var C.Empath3.Alt <nothing>
4671     var C.Cler coffer
4672     var C.Haber trousers
4673     var C.Script satchel
4674          var C.Script.Num second
4675     var C.Tann shears
4676          var C.Tann.Loc
4677     var C.Jewel coral hairpin
4678     var C.Stitch blouse
4679     var C.Cobb thigh boots
4680     var C.Herb riolur leaf
4681     var C.Flow corsage
4682     # LETH DERIEL
4683     var L.Skin sluagh hide
4684     var L.Bow long arrows
4685     var L.Orig case
4686          var L.Orig.Num third
4687     var L.Weap <nothing>
4688          var L.Weap.Loc in catalog
4689     var L.Wick mesh sack
4690     var L.Bard woodwind case
4691     var L.Bard2 four strings
4692     var L.Cloth doublet
4693     var L.Wood applewood log
4694     var L.Gen dice
4695          var L.Gen.Alt <nothing>
4696     var L.Perf panther perfume
4697     # SHARD
4698     var skillrange 200-249
4699     var S.Gen short sword
4700     var S.Weap targe
4701     var S.Cleric armband
4702     var S.Stitch cloak
4703     var S.Alch seol weed
4704     var S.Herb genich stem
4705     var S.Artif simple talisman
4706     var S.Music four strings
4707     var S.Armor choker
4708     var S.Reed thigh bag
4709          var S.Reed.Num second
4710     var S.Bow crossbow bolts
4711     var S.Lock wrist sheath
4712     var S.Coin coin case
4713          var S.Coin.Loc
4714     var S.Frill sandals
4715     var S.Herald ordinary shield
4716          var S.Herald.Loc
4717     var S.Gift boggle doll
4718          var S.Gift.Loc in black basket
4719     var S.Toy beard
4720          var S.Toy.Loc
4721     var S.Memory <nothing>
4722     var S.Token <nothing>
4723     var S.Museum black slippers
4724     var S.Barber tincture jar
4725     var S.Tanner shears
4726     var S.Surv stone pestle
4727          var S.Surv.Alt wood pestle
4728          var S.Surv.Loc
4729     var S.Surv2 stone-tipped arrows
4730          var S.Surv2.Alt steel shaper
4731          var S.Surv2.Loc
4732	 var S.Spire pouch
4733     # HIB AND RAVEN'S POINT
4734     var SC.Weap <nothing>
4735     var H.Shield <nothing>
4736     var H.Jewel <nothing>
4737     var H.Tog towel
4738     var H.Herb yelith root
4739     var H.Sund bone comb
4740     var H.Lamp lamp oil
4741     var H.Music scroll
4742     var H.Alch stone pestle
4743     var H.Forge copper slug
4744          var H.Forge.Loc on tab
4745     var H.WM copper slug
4746          var H.WM.Num
4747          var H.WM.Loc on tab
4748     var R.Gen flights
4749     var R.Tobac pipe
4750     gosub ITEM.COUNT2
4751     return
4752##################################
4753# SKILLS 250-299
4754##################################
4755CLASS7:
4756     ## THEREN
4757     var skillrange 250-299
4758     var T.Tarsha greques
4759     var T.Rose shirt
4760     var T.Music four strings
4761          var T.Music.Num
4762     var T.Hats sailor hat
4763     var T.Arm <nothing>
4764     var T.Gift blue shirt
4765     var T.Sweet cake
4766     var T.Cupcake cupcake
4767     var T.Gen reed torch
4768     var T.Krrish <nothing>
4769     var T.Lense <nothing>
4770     var T.Cleric pestle
4771     var T.Men trousers
4772     var T.Women <nothing>
4773     var T.Cloth suspenders
4774     var T.Armory dagger
4775     var T.Forge copper slug
4776     ## HAVEN
4777     var skillrange 250-299
4778     var RH.Herb riolur leaf
4779     var RH.Iron bronze gauntlets
4780     var RH.Naph naphtha
4781          var RH.Naph.Loc on cart
4782     var RH.Flow wreath
4783     var RH.Seli bronze gauntlets
4784     var RH.Arms composite bow
4785     var RH.Gen shears
4786     var RH.Cloth houpelande
4787     var RH.Artif cambrinth ring
4788     var RH.Joy bunny
4789     var RH.Smoke riverhaven tobacco
4790     var RH.Weap thorny mace
4791     var RH.Bard refill
4792     var RH.Bard2 necklace
4793     var RH.Cleric chalice
4794     var RH.Cleric2 black bottle
4795     var RH.Lock slim lockpick
4796     var RH.Tog ivory shirt
4797     var RH.Tog2 <nothing>
4798     var RH.Mirg anklet
4799     # ARTHE DALE
4800     var skillrange 250-299
4801     var AD.Feta kirm cheese
4802     var AD.Thread pattern
4803     var AD.Fash trousers
4804     var AD.Odds earring
4805     var AD.Bard silverlock
4806     var AD.Map pipe
4807     var AD.Arm vest
4808     var AD.Smoke spiced tobacco
4809     var AD.Tart.E tart
4810     var AD.Tart.C tart
4811     var AD.Tart.M tart
4812     var AD.Tart.L tart
4813     var AD.Tart.F tart
4814     var KA.Grek shirt
4815     # CROSSINGS
4816     var C.Alch tincture jar
4817     var C.Artif talisman
4818     var C.Bath bathrobe
4819          var C.Bath.Num
4820          var C.Bath.Loc
4821     var C.Card case
4822     var C.Gen backpack
4823     var C.Weap war club
4824     var C.Arm scale aventail
4825     var C.Music refill
4826     var C.Music2 guiro
4827     var C.Lock lockpick ring
4828     var C.Empath slippers
4829          var C.Empath.Alt <nothing>
4830     var C.Empath2 mortar
4831     var C.Empath3 oak stylus
4832          var C.Empath3.Loc in box
4833          var C.Empath3.Alt <nothing>
4834     var C.Cler chasuble
4835     var C.Haber doublet
4836     var C.Script satchel
4837          var C.Script.Num second
4838     var C.Tann pattern
4839          var C.Tann.Loc
4840     var C.Jewel bloodstone hairpin
4841     var C.Stitch leggings
4842     var C.Cobb hip boots
4843     var C.Herb ithor potion
4844     var C.Flow corsage
4845     # LETH DERIEL
4846     var L.Skin cougar pelt
4847     var L.Bow leather quiver
4848     var L.Orig case
4849          var L.Orig.Num third
4850     var L.Weap <nothing>
4851          var L.Weap.Loc in catalog
4852     var L.Wick mesh sack
4853     var L.Bard mirliton
4854     var L.Bard2 refill
4855     var L.Cloth jerkin
4856     var L.Wood hazelwood log
4857     var L.Gen dice
4858          var L.Gen.Alt <nothing>
4859     var L.Perf panther perfume
4860     # SHARD
4861     var skillrange 250-299
4862     var S.Gen chain helm
4863     var S.Weap stiletto
4864     var S.Cleric oil
4865     var S.Stitch tunic
4866     var S.Alch seolarn weed
4867     var S.Herb hisan salve
4868     var S.Artif elbaite runestone
4869     var S.Music refill
4870     var S.Lock wrist sheath
4871     var S.Armor mesh handguards
4872     var S.Coin coin case
4873          var S.Coin.Loc
4874     var S.Frill doll
4875     var S.Herald medium buckler
4876          var S.Herald.Loc
4877     var S.Gift badge
4878          var S.Gift.Loc on stand
4879     var S.Toy book
4880          var S.Toy.Loc
4881     var S.Reed thigh bag
4882          var S.Reed.Num second
4883     var S.Memory pin
4884     var S.Token <nothing>
4885     var S.Museum black slippers
4886     var S.Barber tincture jar
4887     var S.Bow barbed arrows
4888     var S.Tanner pattern
4889     var S.Surv marble pestle
4890          var S.Surv.Alt stone pestle
4891          var S.Surv.Loc
4892     var S.Surv2 stone-tipped arrows
4893          var S.Surv2.Alt steel shaper
4894          var S.Surv2.Loc
4895	 var S.Spire pouch
4896     # HIB AND RAVEN'S POINT
4897     var SC.Weap <nothing>
4898     var H.Shield <nothing>
4899     var H.Jewel <nothing>
4900     var H.Tog slippers
4901     var H.Herb nemoih root
4902     var H.Sund clippers
4903     var H.Lamp serpent lamp
4904     var H.Music drum skin
4905     var H.Alch stone mortar
4906     var H.Forge copper slug
4907          var H.Forge.Loc on tab
4908     var H.WM copper slug
4909          var H.WM.Num
4910          var H.WM.Loc on tab
4911     var R.Gen stone mortar
4912     var R.Tobac tobacco
4913     gosub ITEM.COUNT2
4914     return
4915##################################
4916# SKILLS 300-399
4917##################################
4918CLASS8:
4919     ## THEREN
4920     var skillrange 300-399
4921     var T.Tarsha greques
4922     var T.Rose shirt
4923     var T.Music four strings
4924          var T.Music.Num
4925     var T.Hats sailor hat
4926     var T.Arm <nothing>
4927     var T.Gift blue shirt
4928     var T.Sweet cake
4929     var T.Cupcake cupcake
4930     var T.Gen reed torch
4931     var T.Krrish <nothing>
4932     var T.Lense <nothing>
4933     var T.Cleric pestle
4934     var T.Men trousers
4935     var T.Women <nothing>
4936     var T.Cloth suspenders
4937     var T.Armory dagger
4938     var T.Forge copper slug
4939     ## HAVEN
4940     var skillrange 300-399
4941     var RH.Herb ithor potion
4942     var RH.Iron chain greaves
4943     var RH.Naph naphtha
4944          var RH.Naph.Loc on cart
4945     var RH.Flow silk orchid
4946     var RH.Seli aventail
4947     var RH.Arms sword
4948     var RH.Gen stove
4949     var RH.Cloth dress
4950     var RH.Artif cambrinth ring
4951     var RH.Joy bunny
4952     var RH.Smoke baron tobacco
4953     var RH.Weap goat-head mace
4954     var RH.Bard mandolin
4955     var RH.Bard2 amulet
4956     var RH.Cleric pomander
4957     var RH.Cleric2 wood shaper
4958     var RH.Lock lockpick ring
4959     var RH.Tog linen shirt
4960     var RH.Tog2 <nothing>
4961     var RH.Mirg toe-bells
4962     # ARTHE DALE
4963     var skillrange 300-399
4964     var AD.Feta anlibues cheese
4965     var AD.Thread pattern
4966     var AD.Fash frock
4967     var AD.Odds doll
4968     var AD.Bard peri'el's
4969     var AD.Map cherry pipe
4970     var AD.Arm cuirass
4971     var AD.Smoke whiskey cigar
4972     var AD.Tart.E tart
4973     var AD.Tart.C tart
4974     var AD.Tart.M tart
4975     var AD.Tart.L tart
4976     var AD.Tart.F tart
4977     var KA.Grek barrel
4978     # CROSSINGS
4979     var C.Alch tincture jar
4980     var C.Artif talisman
4981     var C.Bath bath towel
4982          var C.Bath.Num
4983          var C.Bath.Loc on rack
4984     var C.Card case
4985     var C.Gen stove
4986     var C.Weap longsword
4987     var C.Arm chain helm
4988     var C.Music mandolin
4989     var C.Music2 violin bow
4990     var C.Lock lockpick ring
4991     var C.Empath slippers
4992          var C.Empath.Alt scalpel
4993     var C.Empath2 mortar
4994     var C.Empath3 oak stylus
4995          var C.Empath3.Loc in box
4996          var C.Empath3.Alt button
4997     var C.Cler habit
4998     var C.Haber tabard
4999     var C.Script satchel
5000          var C.Script.Num second
5001     var C.Tann pattern
5002          var C.Tann.Loc
5003     var C.Jewel bloodstone hairpin
5004     var C.Stitch shirt
5005     var C.Cobb hip boots
5006     var C.Herb ithor potion
5007     var C.Flow boutonniere
5008     # LETH DERIEL
5009     var L.Skin reaver pelt
5010     var L.Bow composite bow
5011     var L.Orig origami case
5012          var L.Orig.Num fifth
5013     var L.Weap wolf-tail shield
5014     var L.Wick pannier
5015     var L.Bard keyed flute
5016     var L.Bard2 twelve strings
5017     var L.Cloth mantle
5018     var L.Wood ironwood log
5019     var L.Gen quiver
5020          var L.Gen.Alt <nothing>
5021     var L.Perf woodsmoke cologne
5022     var L.Bridal lace gloves
5023     var L.Women party dress
5024     var L.Jewelry bracelet
5025     var L.Cleric plain mantle
5026           var L.Cleric.Alt leather apron
5027     var L.Travel brogans
5028     var L.Gentle wool trousers
5029     # SHARD
5030     var skillrange 300-399
5031     var S.Gen backtube
5032     var S.Weap stiletto
5033     var S.Cleric bell
5034     var S.Stitch coat
5035     var S.Alch cauldron
5036     var S.Herb ithor potion
5037     var S.Artif elbaite runestone
5038     var S.Music gilded mandolin
5039     var S.Lock ivory lockpick
5040     var S.Armor helmet
5041     var S.Coin coin case
5042          var S.Coin.Loc
5043     var S.Frill doll
5044     var S.Herald medium buckler
5045          var S.Herald.Loc
5046     var S.Gift dagger
5047          var S.Gift.Loc on table
5048     var S.Toy black book
5049          var S.Toy.Loc
5050     var S.Reed thigh bag
5051          var S.Reed.Num
5052     var S.Memory pin
5053     var S.Token <nothing>
5054     var S.Museum black slippers
5055     var S.Barber horn-handled razor
5056     var S.Bow barbed arrows
5057     var S.Tanner pattern
5058     var S.Surv stone mortar
5059          var S.Surv.Alt stone pestle
5060          var S.Surv.Loc
5061     var S.Surv2 razor-tipped arrows
5062          var S.Surv2.Alt broad-barbed arrows
5063          var S.Surv2.Loc
5064	 var S.Spire backpack
5065     # HIB AND RAVEN'S POINT
5066     var SC.Weap <nothing>
5067     var H.Shield ordinary shield
5068     var H.Jewel earrings
5069     var H.Tog shirt
5070     var H.Herb nemoih root
5071     var H.Sund lamp
5072     var H.Lamp serpent lamp
5073     var H.Music horn
5074     var H.Alch granite mortar
5075     var H.Forge shaft
5076          var H.Forge.Loc on tab
5077     var H.WM copper shaft
5078          var H.WM.Num
5079          var H.WM.Loc on tab
5080     var R.Gen stone mortar
5081     var R.Tobac tobacco
5082     gosub ITEM.COUNT3
5083     return
5084##################################
5085# SKILLS 400-499
5086##################################
5087CLASS9:
5088     ## THEREN
5089     var skillrange 400-499
5090     var T.Tarsha houppelande
5091     var T.Rose cloak
5092     var T.Music harp case
5093          var T.Music.Num
5094     var T.Hats head-dress
5095     var T.Arm leather sheath
5096     var T.Gift throwing dagger
5097     var T.Sweet cake
5098     var T.Cupcake cupcake
5099     var T.Gen backsheath
5100     var T.Krrish bone
5101     var T.Lense bone ring
5102     var T.Cleric mobar blood
5103     var T.Men trousers
5104     var T.Women <nothing>
5105     var T.Cloth suspenders
5106     var T.Armory quiver
5107     var T.Forge hilt
5108     ## HAVEN
5109     var skillrange 400-499
5110     var RH.Herb ithor potion
5111     var RH.Iron steel greaves
5112     var RH.Naph naphtha
5113          var RH.Naph.Loc on cart
5114     var RH.Flow velvet rose
5115     var RH.Seli aventail
5116     var RH.Arms sword
5117     var RH.Gen stove
5118     var RH.Cloth gown
5119     var RH.Artif cambrinth ring
5120     var RH.Joy troll
5121     var RH.Smoke baron tobacco
5122     var RH.Weap goat-head mace
5123     var RH.Bard boots
5124     var RH.Bard2 amulet
5125     var RH.Cleric pomander
5126     var RH.Cleric2 wood shaper
5127     var RH.Lock slim lockpick
5128     var RH.Tog linen shirt
5129     var RH.Tog2 <nothing>
5130     var RH.Mirg toe-bells
5131     # ARTHE DALE
5132     var skillrange 400-499
5133     var AD.Smoke whiskey cigar
5134     var AD.Thread pattern
5135     var AD.Fash overall
5136     var AD.Odds monocle
5137     var AD.Bard peri'el's song
5138     var AD.Map map
5139     var AD.Arm shell shield
5140     var AD.Feta biscuit
5141     var AD.Tart.E tart
5142     var AD.Tart.C tart
5143     var AD.Tart.M tart
5144     var AD.Tart.L tart
5145     var AD.Tart.F tart
5146     var KA.Grek barrel
5147     # CROSSINGS
5148     var C.Alch stove
5149     var C.Arm jerkin
5150     var C.Artif jar
5151     var C.Bath towel
5152          var C.Bath.Num second
5153          var C.Bath.Loc on rack
5154     var C.Card case
5155     var C.Gen portable stove
5156     var C.Weap flail
5157     var C.Music repair kit
5158     var C.Music2 violin bow
5159     var C.Lock lockpick ring
5160     var C.Empath leather boots
5161          var C.Empath.Alt broadsword
5162     var C.Empath2 silver chart
5163     var C.Empath3 journal
5164          var C.Empath3.Loc in box
5165          var C.Empath3.Alt stylus
5166     var C.Cler silver bell
5167     var C.Cler2 burlap sack
5168     var C.Haber tail coat
5169     var C.Script satchel
5170          var C.Script.Num first
5171     var C.Tann potion
5172          var C.Tann.Loc in catalog
5173     var C.Jewel diamond engagement ring
5174     var C.Stitch long coat
5175     var C.Cobb hip boots
5176     var C.Herb ithor potion
5177     var C.Flow boutonniere
5178     # LETH DERIEL
5179     var L.Skin blood wolf pelt
5180     var L.Bow composite bow
5181     var L.Orig origami case
5182          var L.Orig.Num fifth
5183     var L.Weap hide shield
5184     var L.Wick willow backpack
5185     var L.Bard silverwood mirliton
5186     var L.Bard2 hat
5187     var L.Cloth silk jaque
5188     var L.Wood apple
5189     var L.Gen mesh backpack
5190          var L.Gen.Alt ankle sheath
5191     var L.Perf venom oil
5192     var L.Bridal wrist purse
5193     var L.Women party dress
5194     var L.Jewelry silver earring
5195     var L.Cleric plain mantle
5196           var L.Cleric.Alt leather apron
5197     var L.Travel brogans
5198     var L.Gentle wool trousers
5199     # SHARD
5200     var skillrange 400-499
5201     var S.Gen backtube
5202     var S.Weap oben
5203     var S.Cleric mobar blood
5204     var S.Stitch gown
5205     var S.Alch stove
5206     var S.Herb ithor potion
5207     var S.Artif belradi potion
5208     var S.Music gittern
5209     var S.Armor balaclava
5210     var S.Reed skirt
5211          var S.Reed.Num
5212     var S.Museum black slippers
5213     var S.Bow composite bow
5214     var S.Lock signet ring
5215     var S.Coin coin case
5216          var S.Coin.Loc on table
5217     var S.Frill doll
5218     var S.Herald ordinary shield
5219          var S.Herald.Loc on rack
5220     var S.Gift earring
5221          var S.Gift.Loc
5222     var S.Toy marionette
5223          var S.Toy.Loc on lion
5224     var S.Memory wrap
5225     var S.Token token
5226     var S.Barber razor
5227     var S.Tanner potion
5228     var S.Surv poncho
5229          var S.Surv.Loc
5230          var S.Surv.Alt steel dagger
5231     var S.Surv2 razor-tipped arrows
5232          var S.Surv2.Loc
5233          var S.Surv2.Alt broad-barbed arrows
5234     var S.Spire tabard
5235     # HIB AND RAVEN'S POINT
5236     var SC.Weap adze
5237     var H.Shield medium shield
5238     var H.Jewel necklace
5239     var H.Tog robe
5240     var H.Herb lujeakave elixir
5241     var H.Sund broadsword
5242     var H.Lamp dragon lamp
5243     var H.Music bagpipe
5244     var H.Alch bucket
5245     var H.Forge zinc bar
5246          var H.Forge.Loc on tab
5247     var H.WM zinc bar
5248          var H.WM.Num
5249          var H.WM.Loc on tab
5250     var R.Gen hammer
5251     var R.Tobac tobacco pouch
5252     gosub ITEM.COUNT3
5253     return
5254##################################
5255# SKILLS 500-599
5256##################################
5257CLASS10:
5258     ## THEREN
5259     var skillrange 500-599
5260     var T.Tarsha houppelande
5261     var T.Rose cloak
5262     var T.Music harp case
5263          var T.Music.Num
5264     var T.Hats head-dress
5265     var T.Arm leather sheath
5266     var T.Gift throwing dagger
5267     var T.Sweet cake
5268     var T.Cupcake cupcake
5269     var T.Gen backsheath
5270     var T.Krrish bone
5271     var T.Lense bone ring
5272     var T.Cleric mobar blood
5273     var T.Men trousers
5274     var T.Women dark veil
5275     var T.Cloth suspenders
5276     var T.Armory quiver
5277     var T.Forge hilt
5278     ## HAVEN
5279     var skillrange 500-599
5280     var RH.Herb ithor potion
5281     var RH.Iron medium shield
5282     var RH.Naph naphtha
5283          var RH.Naph.Loc on cart
5284     var RH.Flow velvet rose
5285     var RH.Seli skull helm
5286     var RH.Arms elven longsword
5287     var RH.Gen stove
5288     var RH.Cloth gown
5289     var RH.Artif cambrinth ring
5290     var RH.Joy troll
5291     var RH.Smoke baron tobacco
5292     var RH.Weap goat-head mace
5293     var RH.Bard boots
5294     var RH.Bard2 amulet
5295     var RH.Cleric pomander
5296     var RH.Cleric2 wood shaper
5297     var RH.Lock slim lockpick
5298     var RH.Tog tunic
5299     var RH.Tog2 thumb ring
5300     var RH.Mirg silk fan
5301     # ARTHE DALE
5302     var skillrange 500-599
5303     var AD.Smoke whiskey cigar
5304     var AD.Thread pattern
5305     var AD.Fash overall
5306     var AD.Odds monocle
5307     var AD.Bard peri'el's song
5308     var AD.Map map
5309     var AD.Arm shell shield
5310     var AD.Feta biscuit
5311     var AD.Tart.E tart
5312     var AD.Tart.C tart
5313     var AD.Tart.M tart
5314     var AD.Tart.L tart
5315     var AD.Tart.F tart
5316     var KA.Grek barrel
5317     # CROSSINGS
5318     var skillrange 500-599
5319     var C.Alch bucket
5320     var C.Arm breastplate
5321     var C.Artif jar
5322     var C.Bath towel
5323          var C.Bath.Num fourth
5324          var C.Bath.Loc on rack
5325     var C.Card case
5326     var C.Gen portable stove
5327     var C.Weap light crossbow
5328     var C.Music case of silver
5329     var C.Music2 tapani
5330     var C.Lock lockpick ring
5331     var C.Empath leather boots
5332          var C.Empath.Alt broadsword
5333     var C.Empath2 silver chart
5334     var C.Empath3 journal
5335          var C.Empath3.Loc in box
5336          var C.Empath3.Alt stylus
5337     var C.Cler silver bell
5338     var C.Cler2 burlap sack
5339     var C.Haber tail coat
5340     var C.Script satchel
5341          var C.Script.Num first
5342     var C.Tann potion
5343          var C.Tann.Loc in catalog
5344     var C.Jewel diamond engagement ring
5345     var C.Stitch long coat
5346     var C.Cobb hip boots
5347     var C.Herb ithor potion
5348     var C.Flow boutonniere
5349     # LETH DERIEL
5350     var L.Skin blood wolf pelt
5351     var L.Bow light crossbow
5352     var L.Orig origami case
5353          var L.Orig.Num fifth
5354     var L.Weap hide shield
5355     var L.Wick willow backpack
5356     var L.Bard silverwood mirliton
5357     var L.Bard2 hat
5358     var L.Cloth silk jaque
5359     var L.Wood apple
5360     var L.Gen mesh backpack
5361          var L.Gen.Alt ankle sheath
5362     var L.Perf venom oil
5363     var L.Bridal wrist purse
5364     var L.Women party dress
5365     var L.Jewelry silver earring
5366     var L.Cleric plain mantle
5367           var L.Cleric.Alt leather apron
5368     var L.Travel brogans
5369     var L.Gentle wool trousers
5370     # SHARD
5371     var skillrange 500-599
5372     var S.Gen backtube
5373     var S.Weap oben
5374     var S.Cleric mobar blood
5375     var S.Stitch gown
5376     var S.Alch stove
5377     var S.Herb ithor potion
5378     var S.Artif belradi potion
5379     var S.Music gittern
5380     var S.Armor balaclava
5381     var S.Reed skirt
5382          var S.Reed.Num
5383     var S.Museum black slippers
5384     var S.Bow composite bow
5385     var S.Lock signet ring
5386     var S.Coin coin case
5387          var S.Coin.Loc on table
5388     var S.Frill doll
5389     var S.Herald ordinary shield
5390          var S.Herald.Loc on rack
5391     var S.Gift earring
5392          var S.Gift.Loc
5393     var S.Toy marionette
5394          var S.Toy.Loc on lion
5395     var S.Memory wrap
5396     var S.Token token
5397     var S.Barber razor
5398     var S.Tanner potion
5399     var S.Surv wool poncho
5400          var S.Surv.Loc
5401          var S.Surv.Alt thigh quiver
5402     var S.Surv2 razor-tipped arrows
5403          var S.Surv2.Loc
5404          var S.Surv2.Alt broad-barbed arrows
5405	 var S.Spire tabard
5406     # HIB AND RAVEN'S POINT
5407     var SC.Weap adze
5408     var H.Shield medium shield
5409     var H.Jewel necklace
5410     var H.Tog robe
5411     var H.Herb lujeakave elixir
5412     var H.Sund envelope
5413     var H.Lamp dragon lamp
5414     var H.Music bagpipe
5415     var H.Alch bucket
5416     var H.Forge zinc bar
5417          var H.Forge.Loc on tab
5418     var H.WM zinc bar
5419          var H.WM.Num
5420          var H.WM.Loc on tab
5421     var R.Gen hammer
5422     var R.Tobac tobacco pouch
5423     gosub ITEM.COUNT3
5424     return
5425##################################
5426# SKILLS 600-699
5427##################################
5428CLASS11:
5429     ## THEREN
5430     var skillrange 600-699
5431     var T.Tarsha brocade bilaud
5432     var T.Rose woolen cloak
5433     var T.Music ebony harp
5434          var T.Music.Num
5435     var T.Hats head-dress
5436     var T.Arm leather sheath
5437     var T.Gift pyramid
5438     var T.Sweet cake
5439     var T.Cupcake cupcake
5440     var T.Gen towel
5441     var T.Krrish bones
5442     var T.Lense telescope
5443     var T.Cleric mobar blood
5444     var T.Men vest
5445     var T.Women dark veil
5446     var T.Cloth cane
5447     var T.Armory longsword
5448     var T.Forge hilt
5449     ## HAVEN
5450     var skillrange 600-699
5451     var RH.Herb ithor potion
5452     var RH.Iron chain helm
5453     var RH.Naph naphtha
5454          var RH.Naph.Loc on cart
5455     var RH.Flow velvet rose
5456     var RH.Seli skull helm
5457     var RH.Arms longsword
5458     var RH.Gen stove
5459     var RH.Cloth gown
5460     var RH.Artif potion
5461     var RH.Joy troll
5462     var RH.Smoke baron tobacco
5463     var RH.Weap goat-head mace
5464     var RH.Bard silk trews
5465     var RH.Bard2 spirit earrings
5466     var RH.Cleric pomander
5467     var RH.Cleric2 pendant
5468     var RH.Lock slim lockpick
5469     var RH.Tog tunic
5470     var RH.Tog2 thumb ring
5471     var RH.Mirg silk fan
5472     # ARTHE DALE
5473     var skillrange 600-699
5474     var AD.Smoke whiskey cigar
5475     var AD.Thread thief pattern
5476     var AD.Fash overall
5477     var AD.Odds monocle
5478     var AD.Bard peri'el's song
5479     var AD.Map map
5480     var AD.Arm leather coat
5481     var AD.Feta biscuit
5482     var AD.Tart.E tart
5483     var AD.Tart.C tart
5484     var AD.Tart.M tart
5485     var AD.Tart.L tart
5486     var AD.Tart.F tart
5487     var KA.Grek barrel
5488     # CROSSINGS
5489     var C.Alch bucket
5490     var C.Arm chain shirt
5491     var C.Artif urn
5492     var C.Bath towel
5493          var C.Bath.Num fourth
5494          var C.Bath.Loc on rack
5495     var C.Card case
5496     var C.Gen portable stove
5497     var C.Weap heavy crossbow
5498     var C.Music case of silver
5499     var C.Music2 tapani
5500     var C.Lock lockpick ring
5501     var C.Empath leather boots
5502          var C.Empath.Alt targe
5503     var C.Empath2 silver chart
5504     var C.Empath3 journal
5505          var C.Empath3.Loc in box
5506          var C.Empath3.Alt stylus
5507     var C.Cler silver bell
5508     var C.Cler2 chalice
5509     var C.Haber tail coat
5510     var C.Script satchel
5511          var C.Script.Num first
5512     var C.Tann potion
5513          var C.Tann.Loc in catalog
5514     var C.Jewel diamond wedding ring
5515     var C.Stitch long coat
5516     var C.Cobb hip boots
5517     var C.Herb ithor potion
5518     var C.Flow velvet rose
5519     # LETH DERIEL
5520     var L.Skin blood wolf pelt
5521     var L.Bow light crossbow
5522     var L.Orig origami case
5523          var L.Orig.Num fifth
5524     var L.Weap hide shield
5525     var L.Wick willow backpack
5526     var L.Bard silverwood mirliton
5527     var L.Bard2 hat
5528     var L.Cloth silk jaque
5529     var L.Wood apple
5530     var L.Gen mesh backpack
5531          var L.Gen.Alt ankle sheath
5532     var L.Perf venom oil
5533     var L.Bridal wreath
5534     var L.Women silk gown
5535     var L.Jewelry sapphire earring
5536     var L.Cleric ceremonial mantle
5537           var L.Cleric.Alt leather apron
5538     var L.Travel knee boots
5539     var L.Gentle white trousers
5540     # SHARD
5541     var skillrange 600-699
5542     var S.Gen great helm
5543     var S.Weap cutlass
5544     var S.Cleric mobar blood
5545     var S.Stitch gown
5546     var S.Alch stove
5547     var S.Herb ithor potion
5548     var S.Artif cambrinth ring
5549     var S.Music case of gold
5550     var S.Armor great helm
5551     var S.Reed skirt
5552          var S.Reed.Num
5553     var S.Museum blouse
5554     var S.Bow composite bow
5555     var S.Lock diamondique lockpick
5556     var S.Coin coin case
5557          var S.Coin.Loc on table
5558     var S.Frill doll
5559     var S.Herald medium buckler
5560          var S.Herald.Loc on rack
5561     var S.Gift earring
5562          var S.Gift.Loc
5563     var S.Toy marionette
5564          var S.Toy.Loc on lion
5565     var S.Memory wrap
5566     var S.Token token
5567     var S.Barber razor
5568     var S.Tanner potion
5569     var S.Surv thigh quiver
5570          var S.Surv.Loc
5571          var S.Surv.Alt canvas pack
5572     var S.Surv2 longbow
5573          var S.Surv2.Loc on stand
5574          var S.Surv2.Alt longbow
5575	 var S.Spire tabard
5576     # HIB AND RAVEN'S POINT
5577     var SC.Weap adze
5578     var H.Shield medium shield
5579     var H.Jewel necklace
5580     var H.Tog robe
5581     var H.Herb lujeakave elixir
5582     var H.Sund envelope
5583     var H.Lamp dragon lamp
5584     var H.Music bagpipe
5585     var H.Alch bucket
5586     var H.Forge zinc bar
5587          var H.Forge.Loc on tab
5588     var H.WM zinc bar
5589          var H.WM.Num
5590          var H.WM.Loc on tab
5591     var R.Gen hammer
5592     var R.Tobac tobacco pouch
5593     gosub ITEM.COUNT4
5594     return
5595##################################
5596# SKILLS 700-799
5597##################################
5598CLASS12:
5599     # THEREN
5600     var skillrange 700-799
5601     var T.Tarsha brocade bilaud
5602     var T.Rose woolen cloak
5603     var T.Music ebony harp
5604          var T.Music.Num
5605     var T.Hats head-dress
5606     var T.Arm leather sheath
5607     var T.Gift pyramid
5608     var T.Sweet cake
5609     var T.Cupcake cupcake
5610     var T.Gen towel
5611     var T.Krrish bones
5612     var T.Lense telescope
5613     var T.Cleric mobar blood
5614     var T.Men vest
5615     var T.Women dark veil
5616     var T.Cloth cane
5617     var T.Armory longsword
5618     var T.Forge hilt
5619     # HAVEN
5620     var skillrange 700-799
5621     var RH.Herb ithor potion
5622     var RH.Iron chain shirt
5623     var RH.Naph naphtha
5624          var RH.Naph.Loc on cart
5625     var RH.Flow velvet rose
5626     var RH.Seli skull helm
5627     var RH.Arms spear
5628     var RH.Gen stove
5629     var RH.Cloth gown
5630     var RH.Artif cambrinth orb
5631     var RH.Joy troll
5632     var RH.Smoke barons choice
5633     var RH.Weap mattock
5634     var RH.Bard mantle
5635     var RH.Bard2 spirit earrings
5636     var RH.Cleric pomander
5637     var RH.Cleric2 cambrinth ring
5638     var RH.Lock slim lockpick
5639     var RH.Tog tunic
5640     var RH.Tog2 thumb ring
5641     var RH.Mirg chain anklet
5642     var RH.Lock slim lockpick
5643     # ARTHE DALE
5644     var skillrange 700-799
5645     var AD.Smoke whiskey cigar
5646     var AD.Thread thief pattern
5647     var AD.Fash overall
5648     var AD.Odds ribbon
5649     var AD.Bard peri'el's song
5650     var AD.Map map
5651     var AD.Arm ring mail
5652     var AD.Feta biscuit
5653     var AD.Tart.E tart
5654     var AD.Tart.C tart
5655     var AD.Tart.M tart
5656     var AD.Tart.L tart
5657     var AD.Tart.F tart
5658     var KA.Grek barrel
5659     # CROSSINGS
5660     var C.Alch bucket
5661     var C.Arm ring mail
5662     var C.Artif urn
5663     var C.Bath towel
5664          var C.Bath.Num second
5665          var C.Bath.Loc on rack
5666     var C.Card case
5667     var C.Gen portable stove
5668     var C.Weap heavy crossbow
5669     var C.Music case of silver
5670     var C.Music2 tapani
5671     var C.Lock lockpick ring
5672     var C.Empath silk shirt
5673          var C.Empath.Alt broadsword
5674     var C.Empath2 silver chart
5675     var C.Empath3 journal
5676          var C.Empath3.Loc
5677          var C.Empath3.Alt stylus
5678     var C.Cler silver bell
5679     var C.Cler2 armband
5680     var C.Haber tail coat
5681     var C.Script satchel
5682          var C.Script.Num fourth
5683     var C.Tann potion
5684          var C.Tann.Loc in catalog
5685     var C.Jewel diamond wedding ring
5686     var C.Stitch long coat
5687     var C.Cobb hip boots
5688     var C.Herb ithor potion
5689     var C.Flow velvet rose
5690     # LETH DERIEL
5691     var L.Skin blood wolf pelt
5692     var L.Bow heavy crossbow
5693          var L.Orig.Num fifth
5694     var L.Orig case
5695     var L.Weap hide shield
5696     var L.Wick willow backpack
5697     var L.Bard silverwood mirliton
5698     var L.Bard2 hat
5699     var L.Cloth silk jaque
5700     var L.Wood caravan
5701     var L.Gen mesh backpack
5702          var L.Gen.Alt ankle sheath
5703     var L.Perf venom oil
5704     var L.Bridal wreath
5705     var L.Women silk gown
5706     var L.Jewelry sapphire earring
5707     var L.Cleric ceremonial mantle
5708           var L.Cleric.Alt leather apron
5709     var L.Travel knee boots
5710     var L.Gentle white trousers
5711     # SHARD
5712     var skillrange 700-799
5713     var S.Gen leather armor
5714     var S.Weap blade
5715     var S.Cleric mobar blood
5716     var S.Stitch gown
5717     var S.Alch bucket
5718     var S.Herb ithor potion
5719     var S.Artif celestite runestone
5720     var S.Music case
5721     var S.Armor great helm
5722     var S.Reed skirt
5723          var S.Reed.Num
5724     var S.Museum earring
5725     var S.Bow silverwillow crossbow
5726     var S.Lock diamondique lockpick
5727     var S.Coin coin case
5728          var S.Coin.Loc on table
5729     var S.Frill doll
5730     var S.Herald oval shield
5731          var S.Herald.Loc on rack
5732     var S.Gift museum globe
5733          var S.Gift.Loc
5734     var S.Toy marionette
5735          var S.Toy.Loc on lion
5736     var S.Memory wrap
5737     var S.Token token
5738     var S.Barber razor
5739     var S.Tanner pelt potion
5740     var S.Surv cap
5741          var S.Surv.Loc
5742          var S.Surv.Alt cowl
5743     var S.Surv2 chunenguti
5744          var S.Surv2.Loc on stand
5745          var S.Surv2.Alt longbow
5746	 var S.Spire armband
5747     # HIB AND RAVEN'S POINT
5748     var SC.Weap adze
5749     var H.Shield medium shield
5750     var H.Jewel necklace
5751     var H.Tog robe
5752     var H.Herb lujeakave elixir
5753     var H.Sund envelope
5754     var H.Lamp dragon lamp
5755     var H.Music bagpipe
5756     var H.Alch bucket
5757     var H.Forge zinc bar
5758          var H.Forge.Loc on tab
5759     var H.WM zinc bar
5760          var H.WM.Num
5761          var H.WM.Loc on tab
5762     var R.Gen hammer
5763     var R.Tobac tobacco pouch
5764     gosub ITEM.COUNT4
5765     return
5766##################################
5767# SKILLS 800-899
5768##################################
5769CLASS13:
5770     # THEREN
5771     var skillrange 800-899
5772     var T.Tarsha brocade bilaud
5773     var T.Rose woolen cloak
5774     var T.Music ebony harp
5775          var T.Music.Num
5776     var T.Hats head-dress
5777     var T.Arm chain handguards
5778     var T.Gift pyramid
5779     var T.Gen towel
5780     var T.Sweet cake
5781     var T.Cupcake cupcake
5782     var T.Krrish bowl
5783     var T.Lense telescope
5784     var T.Cleric mobar blood
5785     var T.Men vest
5786     var T.Women dark veil
5787     var T.Cloth cane
5788     var T.Armory longsword
5789     var T.Forge hilt
5790     # HAVEN
5791     var skillrange 800-899
5792     var RH.Herb ithor potion
5793     var RH.Iron chain shirt
5794     var RH.Naph naphtha
5795          var RH.Naph.Loc on cart
5796     var RH.Flow velvet rose
5797     var RH.Seli sheepskin robe
5798     var RH.Arms spear
5799     var RH.Gen portable stove
5800     var RH.Cloth gown
5801     var RH.Artif cambrinth orb
5802     var RH.Joy troll
5803     var RH.Smoke barons choice
5804     var RH.Weap mattock
5805     var RH.Bard mantle
5806     var RH.Bard2 spirit tailband
5807     var RH.Cleric pomander
5808     var RH.Cleric2 cambrinth ring
5809     var RH.Tog tunic
5810     var RH.Tog2 thumb ring
5811     var RH.Mirg chain anklet
5812     var RH.Lock slim lockpick
5813     # ARTHE DALE
5814     var skillrange 800-899
5815     var AD.Smoke whiskey cigar
5816     var AD.Thread thief pattern
5817     var AD.Fash overall
5818     var AD.Odds ribbon
5819     var AD.Bard peri'el's song
5820     var AD.Map map
5821     var AD.Arm ring mail
5822     var AD.Feta biscuit
5823     var AD.Tart.E tart
5824     var AD.Tart.C tart
5825     var AD.Tart.M tart
5826     var AD.Tart.L tart
5827     var AD.Tart.F tart
5828     var KA.Grek barrel
5829     # CROSSINGS
5830     var skillrange 800-899
5831     var C.Alch bucket
5832     var C.Arm ring mail
5833     var C.Artif urn
5834     var C.Bath towel
5835          var C.Bath.Num second
5836          var C.Bath.Loc on rack
5837     var C.Card case
5838     var C.Gen portable stove
5839     var C.Weap heavy crossbow
5840     var C.Music case of silver
5841     var C.Music2 tapani
5842     var C.Lock lockpick ring
5843     var C.Empath silk shirt
5844          var C.Empath.Alt broadsword
5845     var C.Empath2 silver chart
5846     var C.Empath3 cebi root
5847          var C.Empath3.Loc
5848          var C.Empath3.Alt stylus
5849     var C.Cler silver bell
5850     var C.Cler2 armband
5851     var C.Haber tail coat
5852     var C.Script satchel
5853          var C.Script.Num fourth
5854     var C.Tann potion
5855          var C.Tann.Loc in catalog
5856     var C.Jewel diamond wedding ring
5857     var C.Stitch long coat
5858     var C.Cobb hip boots
5859     var C.Herb ithor potion
5860     var C.Flow velvet rose
5861     # LETH DERIEL
5862     var skillrange 800-899
5863     var L.Skin blood wolf pelt
5864     var L.Bow heavy crossbow
5865          var L.Orig.Num fifth
5866     var L.Orig case
5867     var L.Weap takouba
5868     var L.Wick willow backpack
5869     var L.Bard silverwood mirliton
5870     var L.Bard2 hat
5871     var L.Cloth silk jaque
5872     var L.Wood caravan
5873     var L.Gen mesh backpack
5874          var L.Gen.Alt ankle sheath
5875     var L.Perf venom oil
5876     var L.Bridal wreath
5877     var L.Women silk gown
5878     var L.Jewelry sapphire earring
5879     var L.Cleric ceremonial mantle
5880           var L.Cleric.Alt leather apron
5881     var L.Travel knee boots
5882     var L.Gentle white trousers
5883     # SHARD
5884     var skillrange 800-899
5885     var S.Gen leather armor
5886     var S.Weap blade
5887     var S.Cleric mobar blood
5888     var S.Stitch gown
5889     var S.Alch bucket
5890     var S.Herb ithor potion
5891     var S.Artif celestite runestone
5892     var S.Music case
5893     var S.Armor great helm
5894     var S.Reed skirt
5895          var S.Reed.Num
5896     var S.Museum earrings
5897     var S.Bow silverwillow crossbow
5898     var S.Lock diamondique lockpick
5899     var S.Coin coin case
5900          var S.Coin.Loc on table
5901     var S.Frill doll
5902     var S.Herald oval shield
5903          var S.Herald.Loc on rack
5904     var S.Gift museum globe
5905          var S.Gift.Loc
5906     var S.Toy marionette
5907          var S.Toy.Loc on lion
5908     var S.Memory wrap
5909     var S.Token token
5910     var S.Barber razor
5911     var S.Tanner pelt potion
5912     var S.Surv cap
5913          var S.Surv.Loc
5914          var S.Surv.Alt cowl
5915     var S.Surv2 chunenguti
5916          var S.Surv2.Loc on stand
5917          var S.Surv2.Alt longbow
5918     var S.Spire armband
5919     # HIB AND RAVEN'S POINT
5920     var SC.Weap adze
5921     var H.Shield medium shield
5922     var H.Jewel necklace
5923     var H.Tog robe
5924     var H.Herb lujeakave elixir
5925     var H.Sund broadsword
5926     var H.Lamp dragon lamp
5927     var H.Music bagpipe
5928     var H.Alch bucket
5929     var H.Forge zinc bar
5930          var H.Forge.Loc on tab
5931     var H.WM zinc bar
5932          var H.WM.Num
5933          var H.WM.Loc on tab
5934     var R.Gen hammer
5935     var R.Tobac tobacco pouch
5936     gosub ITEM.COUNT5
5937     return
5938##################################
5939# SKILLS 900-999
5940##################################
5941CLASS14:
5942     # THEREN
5943     var skillrange 900-999
5944     var T.Tarsha brocade bilaud
5945     var T.Rose woolen cloak
5946     var T.Music ebony harp
5947          var T.Music.Num
5948     var T.Hats head-dress
5949     var T.Arm chain handguards
5950     var T.Gift pyramid
5951     var T.Gen towel
5952     var T.Sweet cake
5953     var T.Cupcake cupcake
5954     var T.Krrish bowl
5955     var T.Lense telescope
5956     var T.Cleric mobar blood
5957     var T.Men tunic
5958     var T.Women dark veil
5959     var T.Cloth gold cufflinks
5960     var T.Armory pick
5961     var T.Forge hilt
5962     # HAVEN
5963     var skillrange 900-999
5964     var RH.Herb ithor potion
5965     var RH.Iron chain shirt
5966     var RH.Naph naphtha
5967          var RH.Naph.Loc on cart
5968     var RH.Flow velvet rose
5969     var RH.Seli sheepskin robe
5970     var RH.Arms flamberge
5971     var RH.Gen portable stove
5972     var RH.Cloth gown
5973     var RH.Artif cambrinth orb
5974     var RH.Joy troll
5975     var RH.Smoke barons choice
5976     var RH.Weap lucerne hammer
5977     var RH.Bard mantle
5978     var RH.Bard2 spirit tailband
5979     var RH.Cleric pomander
5980     var RH.Cleric2 cambrinth ring
5981     var RH.Tog tunic
5982     var RH.Tog2 thumb ring
5983     var RH.Mirg chainmail belt
5984     var RH.Lock slim lockpick
5985     # ARTHE DALE
5986     var skillrange 900-999
5987     var AD.Smoke whiskey cigar
5988     var AD.Thread thief pattern
5989     var AD.Fash overall
5990     var AD.Odds ribbon
5991     var AD.Bard peri'el's song
5992     var AD.Map map
5993     var AD.Arm ring mail
5994     var AD.Feta biscuit
5995     var AD.Tart.E tart
5996     var AD.Tart.C tart
5997     var AD.Tart.M tart
5998     var AD.Tart.L tart
5999     var AD.Tart.F tart
6000     var KA.Grek barrel
6001     # CROSSINGS
6002     var C.Alch bucket
6003     var C.Arm ring mail
6004     var C.Artif urn
6005     var C.Bath towel
6006          var C.Bath.Num second
6007          var C.Bath.Loc on rack
6008     var C.Card case
6009     var C.Gen portable stove
6010     var C.Weap heavy crossbow
6011     var C.Music case of silver
6012     var C.Music2 tapani
6013     var C.Lock lockpick ring
6014     var C.Empath silk shirt
6015          var C.Empath.Alt broadsword
6016     var C.Empath2 rock chart
6017     var C.Empath3 gold band
6018          var C.Empath3.Loc
6019          var C.Empath3.Alt medallion
6020     var C.Cler silver bell
6021     var C.Cler2 armband
6022     var C.Haber tail coat
6023     var C.Script satchel
6024          var C.Script.Num second
6025     var C.Tann potion
6026          var C.Tann.Loc in catalog
6027     var C.Jewel diamond wedding ring
6028     var C.Stitch long coat
6029     var C.Cobb hip boots
6030     var C.Herb ithor potion
6031     var C.Flow velvet rose
6032     # LETH DERIEL
6033     var skillrange 900-999
6034     var L.Skin blood wolf pelt
6035     var L.Bow heavy crossbow
6036     var L.Orig origami case
6037          var L.Orig.Num fifth
6038     var L.Weap takouba
6039     var L.Wick willow backpack
6040     var L.Bard silverwood mirliton
6041     var L.Bard2 hat
6042     var L.Cloth silk jaque
6043     var L.Wood caravan
6044     var L.Gen mesh backpack
6045          var L.Gen.Alt ankle sheath
6046     var L.Perf venom oil
6047     var L.Bridal wreath
6048     var L.Women silk gown
6049     var L.Jewelry sapphire earring
6050     var L.Cleric ceremonial mantle
6051           var L.Cleric.Alt leather apron
6052     var L.Travel knee boots
6053     var L.Gentle white trousers
6054     # SHARD
6055     var skillrange 900-999
6056     var S.Gen leather armor
6057     var S.Weap blade
6058     var S.Cleric mobar blood
6059     var S.Stitch gown
6060     var S.Alch bucket
6061     var S.Herb ithor potion
6062     var S.Artif celestite runestone
6063     var S.Music case
6064     var S.Armor great helm
6065     var S.Reed skirt
6066          var S.Reed.Num
6067     var S.Museum earrings
6068     var S.Bow silverwillow crossbow
6069     var S.Lock diamondique lockpick
6070     var S.Coin coin case
6071          var S.Coin.Loc on table
6072     var S.Frill doll
6073     var S.Herald oval shield
6074          var S.Herald.Loc on rack
6075     var S.Gift museum globe
6076          var S.Gift.Loc
6077     var S.Toy marionette
6078          var S.Toy.Loc on lion
6079     var S.Memory wrap
6080     var S.Token token
6081     var S.Barber razor
6082     var S.Tanner pelt potion
6083     var S.Surv mining cap
6084          var S.Surv.Loc
6085          var S.Surv.Alt mining helm
6086     var S.Surv2 chunenguti
6087          var S.Surv2.Loc on stand
6088          var S.Surv2.Alt longbow
6089     var S.Spire armband
6090     # HIB AND RAVEN'S POINT
6091     var SC.Weap adze
6092     var H.Shield medium shield
6093     var H.Jewel necklace
6094     var H.Tog robe
6095     var H.Herb lujeakave elixir
6096     var H.Sund broadsword
6097     var H.Lamp dragon lamp
6098     var H.Music bagpipe
6099     var H.Alch bucket
6100     var H.Forge zinc bar
6101          var H.Forge.Loc on tab
6102     var H.WM zinc bar
6103          var H.WM.Num
6104          var H.WM.Loc on tab
6105     var R.Gen hammer
6106     var R.Tobac tobacco pouch
6107     gosub ITEM.COUNT5
6108     return
6109##################################
6110# SKILLS 1000-1200
6111##################################
6112CLASS15:
6113CLASS16:
6114CLASS17:
6115     var skillrange 1000-1200+
6116     var T.Tarsha brocade bilaud
6117     var T.Rose woolen cloak
6118     var T.Music bagpipe
6119          var T.Music.Num third
6120     var T.Hats head-dress
6121     var T.Arm chain handguards
6122     var T.Gift pyramid
6123     var T.Gen towel
6124     var T.Sweet cake
6125     var T.Cupcake cupcake
6126     var T.Krrish bowl
6127     var T.Lense telescope
6128     var T.Cleric mobar blood
6129     var T.Men tunic
6130     var T.Women dark veil
6131     var T.Cloth cane
6132     var T.Armory longsword
6133     var T.Forge hilt
6134     var skillrange 1000-1200
6135     var RH.Herb  ithor potion
6136     var RH.Iron chain shirt
6137     var RH.Naph naphtha
6138          var RH.Naph.Loc on cart
6139     var RH.Flow velvet rose
6140     var RH.Seli sheepskin robe
6141     var RH.Arms flamberge
6142     var RH.Gen portable stove
6143     var RH.Cloth gown
6144     var RH.Artif cambrinth orb
6145     var RH.Joy troll
6146     var RH.Smoke barons choice
6147     var RH.Weap lucerne hammer
6148     var RH.Bard silk mantle
6149     var RH.Bard2 knot tailband
6150     var RH.Cleric pomander
6151     var RH.Cleric2 cambrinth ring
6152     var RH.Tog diadem
6153     var RH.Tog2 slippers
6154     var RH.Mirg charm
6155     var RH.Lock slim lockpick
6156     # ARTHE DALE
6157     var skillrange 850-1000
6158     var AD.Smoke whiskey cigar
6159     var AD.Thread thief pattern
6160     var AD.Fash overall
6161     var AD.Odds scarf
6162     var AD.Bard peri'el's song
6163     var AD.Map map
6164     var AD.Arm ring mail
6165     var AD.Feta biscuit
6166     var AD.Tart.E tart
6167     var AD.Tart.C tart
6168     var AD.Tart.M tart
6169     var AD.Tart.L tart
6170     var AD.Tart.F tart
6171     var KA.Grek barrel
6172     # CROSSINGS
6173     var C.Alch bucket
6174     var C.Arm ring mail
6175     var C.Artif bottle
6176     var C.Bath towel
6177          var C.Bath.Num second
6178          var C.Bath.Loc on rack
6179     var C.Card case
6180     var C.Gen portable stove
6181     var C.Weap heavy crossbow
6182     var C.Music case of silver
6183     var C.Music2 tapani
6184     var C.Lock lockpick ring
6185     var C.Empath silk shirt
6186          var C.Empath.Alt broadsword
6187     var C.Empath2 rock chart
6188     var C.Empath3 cebi root
6189          var C.Empath3.Loc
6190          var C.Empath3.Alt medallion
6191     var C.Cler silver bell
6192     var C.Cler2 armband
6193     var C.Haber tail coat
6194     var C.Script satchel
6195          var C.Script.Num second
6196     var C.Tann potion
6197          var C.Tann.Loc in catalog
6198     var C.Jewel diamond wedding ring
6199     var C.Stitch long coat
6200     var C.Cobb hip boots
6201     var C.Herb ithor potion
6202     var C.Flow velvet rose
6203     # LETH DERIEL
6204     var L.Skin blood wolf pelt
6205     var L.Bow heavy crossbow
6206          var L.Orig.Num fifth
6207     var L.Orig case
6208     var L.Weap takouba
6209     var L.Wick willow backpack
6210     var L.Bard silverwood mirliton
6211     var L.Bard2 leather songbook
6212     var L.Cloth silk jaque
6213     var L.Wood caravan
6214     var L.Gen mesh tunic
6215          var L.Gen.Alt mesh backpack
6216     var L.Perf venom oil
6217     var L.Bridal wreath
6218     var L.Women silk gown
6219     var L.Jewelry sapphire earring
6220     var L.Cleric ceremonial mantle
6221           var L.Cleric.Alt leather apron
6222     var L.Travel knee boots
6223     var L.Gentle white trousers
6224     # SHARD
6225     var skillrange 1000-1200
6226     var S.Gen leather armor
6227     var S.Weap blade
6228     var S.Cleric mobar blood
6229     var S.Stitch gown
6230     var S.Alch bucket
6231     var S.Herb ithor potion
6232     var S.Artif celestite runestone
6233     var S.Music case
6234     var S.Armor great helm
6235     var S.Reed skirt
6236          var S.Reed.Num
6237     var S.Museum globe
6238     var S.Bow ironwood crossbow
6239     var S.Lock diamondique lockpick
6240     var S.Coin coin case
6241          var S.Coin.Loc on table
6242     var S.Frill doll
6243     var S.Herald oval shield
6244          var S.Herald.Loc on rack
6245     var S.Gift museum globe
6246          var S.Gift.Loc
6247     var S.Toy marionette
6248          var S.Toy.Loc on lion
6249     var S.Memory flute
6250		  var S.Memory.Num fourth
6251     var S.Token token
6252     var S.Barber razor
6253		  var S.Barber.Num second
6254     var S.Tanner potion
6255     var S.Surv cap
6256          var S.Surv.Loc
6257          var S.Surv.Alt cowl
6258     var S.Surv2 chunenguti
6259          var S.Surv2.Loc on stand
6260          var S.Surv2.Alt longbow
6261     var S.Spire armband
6262     # HIB AND RAVEN'S POINT
6263     var SC.Weap adze
6264     var H.Shield medium shield
6265     var H.Jewel necklace
6266     var H.Tog robe
6267     var H.Herb lujeakave elixir
6268     var H.Sund broadsword
6269     var H.Lamp dragon lamp
6270     var H.Music bagpipe
6271     var H.Alch bucket
6272     var H.Forge zinc bar
6273          var H.Forge.Loc on tab
6274     var H.WM zinc bar
6275          var H.WM.Num
6276          var H.WM.Loc on tab
6277     var R.Gen hammer
6278     var R.Tobac tobacco pouch
6279     gosub ITEM.COUNT5
6280     return
6281###############################################
6282###############################################
6283# ITEM QUANTITY
6284###############################################
6285###############################################
6286########################
6287# 20-49
6288########################
6289ITEM.COUNT0:
6290     var T.TarshaQuant 1
6291     var T.RoseQuant 1
6292     var T.MusicQuant 1
6293     var T.HatsQuant 1
6294     var T.ArmQuant 1
6295     var T.GiftQuant 1
6296     var T.SweetQuant 1
6297     var T.CupcakeQuant 1
6298     var T.GenQuant 1
6299     var T.KrrishQuant 1
6300     var T.LenseQuant 1
6301     var T.ClericQuant 1
6302     var T.MenQuant 1
6303     var T.WomenQuant 1
6304     var T.ClothQuant 1
6305     var T.ArmoryQuant 1
6306     var T.ForgeQuant 1
6307
6308     var RH.HerbQuant 1
6309     var RH.IronQuant 1
6310     var RH.NaphQuant 1
6311     var RH.FlowQuant 1
6312     var RH.SeliQuant 1
6313     var RH.ArmsQuant 1
6314     var RH.GenQuant 1
6315     var RH.ClothQuant 1
6316     var RH.ArtifQuant 1
6317     var RH.JoyQuant 1
6318     var RH.SmokeQuant 1
6319     var RH.WeapQuant 1
6320     var RH.BardQuant 1
6321     var RH.Bard2Quant 1
6322     var RH.ClericQuant 1
6323     var RH.Cleric2Quant 1
6324     var RH.LockQuant 1
6325     var RH.TogQuant 1
6326     var RH.Tog2Quant 1
6327     var RH.MirgQuant 1
6328
6329     var AD.FetaQuant 1
6330     var AD.ThreadQuant 1
6331     var AD.FashQuant 1
6332     var AD.OddsQuant 1
6333     var AD.BardQuant 1
6334     var AD.MapQuant 1
6335     var AD.ArmQuant 1
6336     var AD.SmokeQuant 1
6337     var AD.Tart.EQuant 1
6338     var AD.Tart.CQuant 1
6339     var AD.Tart.MQuant 1
6340     var AD.Tart.LQuant 1
6341     var AD.Tart.FQuant 1
6342     var KA.GrekQuant 1
6343
6344     var C.AlchQuant 2
6345     var C.ArtifQuant 1
6346     var C.BathQuant 1
6347     var C.CardQuant 1
6348     var C.GenQuant 1
6349     var C.WeapQuant 1
6350     var C.ArmQuant 1
6351     var C.MusicQuant 1
6352     var C.Music2Quant 1
6353     var C.LockQuant 1
6354     var C.EmpathQuant 1
6355     var C.Empath2Quant 1
6356     var C.Empath3Quant 1
6357     var C.ClerQuant 1
6358     var C.HaberQuant 1
6359     var C.ScriptQuant 1
6360     var C.TannQuant 1
6361     var C.JewelQuant 1
6362     var C.StitchQuant 1
6363     var C.CobbQuant 1
6364     var C.HerbQuant 1
6365     var C.FlowQuant 1
6366
6367     var L.SkinQuant 1
6368     var L.BowQuant 1
6369     var L.OrigQuant 1
6370     var L.WeapQuant 1
6371     var L.WickQuant 1
6372     var L.BardQuant 1
6373     var L.Bard2Quant 1
6374     var L.ClothQuant 1
6375     var L.WoodQuant 1
6376     var L.GenQuant 1
6377     var L.PerfQuant 1
6378     var L.BridalQuant 1
6379     var L.JewelryQuant 1
6380     var L.ClericQuant 1
6381     var L.TravelQuant 1
6382     var L.GentleQuant 1
6383
6384     var S.GenQuant 1
6385     var S.WeapQuant 1
6386     var S.ClericQuant 1
6387     var S.StitchQuant 1
6388     var S.AlchQuant 1
6389     var S.HerbQuant 1
6390     var S.ArtifQuant 1
6391     var S.MusicQuant 1
6392     var S.ArmorQuant 1
6393     var S.ReedQuant 1
6394     var S.MuseumQuant 1
6395     var S.BowQuant 1
6396     var S.SpireQuant 1
6397     var S.LockQuant 1
6398     var S.CoinQuant 1
6399     var S.FrillQuant 1
6400     var S.HeraldQuant 1
6401     var S.GiftQuant 1
6402     var S.ToyQuant 1
6403     var S.MemoryQuant 1
6404     var S.TokenQuant 1
6405     var S.BarberQuant 1
6406     var S.TannerQuant 1
6407     var S.SurvQuant 1
6408     var S.Surv2Quant 1
6409
6410     var SC.WeapQuant 1
6411     var H.ShieldQuant 1
6412     var H.JewelQuant 1
6413     var H.TogQuant 1
6414     var H.HerbQuant 1
6415     var H.SundQuant 1
6416     var H.LampQuant 1
6417     var H.MusicQuant 1
6418     var H.AlchQuant 1
6419     var H.ForgeQuant 1
6420     var H.WMQuant 1
6421     var H.GenQuant 1
6422     var H.TobacQuant 1
6423     return
6424########################
6425# 50-99
6426########################
6427ITEM.COUNT1:
6428     var T.TarshaQuant 1
6429     var T.RoseQuant 1
6430     var T.MusicQuant 1
6431     var T.HatsQuant 1
6432     var T.ArmQuant 1
6433     var T.GiftQuant 1
6434     var T.SweetQuant 2
6435     var T.CupcakeQuant 2
6436     var T.GenQuant 2
6437     var T.KrrishQuant 1
6438     var T.LenseQuant 1
6439     var T.ClericQuant 1
6440     var T.MenQuant 1
6441     var T.WomenQuant 1
6442     var T.ClothQuant 1
6443     var T.ArmoryQuant 1
6444     var T.ForgeQuant 1
6445
6446     var RH.HerbQuant 1
6447     var RH.IronQuant 1
6448     var RH.NaphQuant 1
6449     var RH.FlowQuant 1
6450     var RH.SeliQuant 1
6451     var RH.ArmsQuant 1
6452     var RH.GenQuant 2
6453     var RH.ClothQuant 2
6454     var RH.ArtifQuant 1
6455     var RH.JoyQuant 2
6456     var RH.SmokeQuant 2
6457     var RH.WeapQuant 1
6458     var RH.BardQuant 1
6459     var RH.Bard2Quant 1
6460     var RH.ClericQuant 1
6461     var RH.Cleric2Quant 1
6462     var RH.LockQuant 1
6463     var RH.TogQuant 1
6464     var RH.Tog2Quant 1
6465     var RH.MirgQuant 1
6466
6467     var AD.FetaQuant 1
6468     var AD.ThreadQuant 1
6469     var AD.FashQuant 2
6470     var AD.OddsQuant 2
6471     var AD.BardQuant 1
6472     var AD.MapQuant 1
6473     var AD.ArmQuant 1
6474     var AD.SmokeQuant 2
6475     var AD.Tart.EQuant 1
6476     var AD.Tart.CQuant 2
6477     var AD.Tart.MQuant 2
6478     var AD.Tart.LQuant 2
6479     var AD.Tart.FQuant 1
6480     var KA.GrekQuant 1
6481
6482     var C.AlchQuant 2
6483     var C.ArtifQuant 2
6484     var C.BathQuant 2
6485     var C.CardQuant 2
6486     var C.GenQuant 2
6487     var C.WeapQuant 2
6488     var C.ArmQuant 2
6489     var C.MusicQuant 2
6490     var C.Music2Quant 1
6491     var C.LockQuant 2
6492     var C.EmpathQuant 1
6493     var C.Empath2Quant 1
6494     var C.Empath3Quant 1
6495     var C.ClerQuant 2
6496     var C.HaberQuant 2
6497     var C.ScriptQuant 2
6498     var C.TannQuant 2
6499     var C.JewelQuant 2
6500     var C.StitchQuant 2
6501     var C.CobbQuant 2
6502     var C.HerbQuant 2
6503     var C.FlowQuant 2
6504
6505     var L.SkinQuant 2
6506     var L.BowQuant 2
6507     var L.OrigQuant 2
6508     var L.WeapQuant 2
6509     var L.WickQuant 2
6510     var L.BardQuant 2
6511     var L.Bard2Quant 2
6512     var L.ClothQuant 2
6513     var L.WoodQuant 2
6514     var L.GenQuant 2
6515     var L.PerfQuant 2
6516     var L.BridalQuant 1
6517     var L.JewelryQuant 1
6518     var L.ClericQuant 1
6519     var L.TravelQuant 1
6520     var L.GentleQuant 1
6521
6522     var S.GenQuant 2
6523     var S.WeapQuant 2
6524     var S.ClericQuant 2
6525     var S.StitchQuant 2
6526     var S.AlchQuant 2
6527     var S.HerbQuant 2
6528     var S.ArtifQuant 2
6529     var S.MusicQuant 2
6530     var S.ArmorQuant 2
6531     var S.ReedQuant 2
6532     var S.MuseumQuant 2
6533     var S.BowQuant 2
6534     var S.LockQuant 2
6535     var S.CoinQuant 2
6536     var S.FrillQuant 2
6537     var S.HeraldQuant 2
6538	 var S.SpireQuant 1
6539     var S.GiftQuant 2
6540     var S.ToyQuant 2
6541     var S.MemoryQuant 2
6542     var S.TokenQuant 2
6543     var S.BarberQuant 2
6544     var S.TannerQuant 2
6545     var S.SurvQuant 2
6546     var S.Surv2Quant 2
6547
6548     var SC.WeapQuant 2
6549     var H.ShieldQuant 2
6550     var H.JewelQuant 2
6551     var H.TogQuant 2
6552     var H.HerbQuant 2
6553     var H.SundQuant 2
6554     var H.LampQuant 2
6555     var H.MusicQuant 2
6556     var H.AlchQuant 2
6557     var H.ForgeQuant 2
6558     var H.WMQuant 2
6559     var H.GenQuant 2
6560     var H.TobacQuant 2
6561     return
6562########################
6563# 100-299
6564########################
6565ITEM.COUNT2:
6566     var T.TarshaQuant 1
6567     var T.RoseQuant 1
6568     var T.MusicQuant 1
6569     var T.HatsQuant 1
6570     var T.ArmQuant 1
6571     var T.GiftQuant 1
6572     var T.SweetQuant 2
6573     var T.CupcakeQuant 2
6574     var T.GenQuant 2
6575     var T.KrrishQuant 1
6576     var T.LenseQuant 1
6577     var T.ClericQuant 1
6578     var T.MenQuant 1
6579     var T.WomenQuant 1
6580     var T.ClothQuant 1
6581     var T.ArmoryQuant 1
6582     var T.ForgeQuant 1
6583
6584     var RH.HerbQuant 2
6585     var RH.IronQuant 2
6586     var RH.NaphQuant 2
6587     var RH.FlowQuant 2
6588     var RH.SeliQuant 2
6589     var RH.ArmsQuant 1
6590     var RH.GenQuant 2
6591     var RH.ClothQuant 2
6592     var RH.ArtifQuant 1
6593     var RH.JoyQuant 2
6594     var RH.SmokeQuant 2
6595     var RH.WeapQuant 2
6596     var RH.BardQuant 2
6597     var RH.Bard2Quant 1
6598     var RH.ClericQuant 2
6599     var RH.Cleric2Quant 1
6600     var RH.LockQuant 2
6601     var RH.TogQuant 2
6602     var RH.Tog2Quant 1
6603     var RH.MirgQuant 1
6604
6605     var AD.FetaQuant 2
6606     var AD.ThreadQuant 1
6607     var AD.FashQuant 1
6608     var AD.OddsQuant 1
6609     var AD.BardQuant 2
6610     var AD.MapQuant 1
6611     var AD.ArmQuant 2
6612     var AD.SmokeQuant 2
6613     var AD.Tart.EQuant 2
6614     var AD.Tart.CQuant 3
6615     var AD.Tart.MQuant 3
6616     var AD.Tart.LQuant 2
6617     var AD.Tart.FQuant 3
6618     var KA.GrekQuant 1
6619
6620     var C.AlchQuant 2
6621     var C.ArtifQuant 2
6622     var C.BathQuant 2
6623     var C.CardQuant 1
6624     var C.GenQuant 2
6625     var C.WeapQuant 2
6626     var C.ArmQuant 2
6627     var C.MusicQuant 2
6628     var C.Music2Quant 1
6629     var C.LockQuant 2
6630     var C.EmpathQuant 1
6631     var C.Empath2Quant 1
6632     var C.Empath3Quant 1
6633     var C.ClerQuant 2
6634     var C.HaberQuant 2
6635     var C.ScriptQuant 2
6636     var C.TannQuant 2
6637     var C.JewelQuant 2
6638     var C.StitchQuant 2
6639     var C.CobbQuant 2
6640     var C.HerbQuant 2
6641     var C.FlowQuant 2
6642
6643     var L.SkinQuant 2
6644     var L.BowQuant 2
6645     var L.OrigQuant 1
6646     var L.WeapQuant 1
6647     var L.WickQuant 2
6648     var L.BardQuant 2
6649     var L.Bard2Quant 1
6650     var L.ClothQuant 2
6651     var L.WoodQuant 1
6652     var L.GenQuant 1
6653     var L.PerfQuant 2
6654     var L.BridalQuant 1
6655     var L.WomenQuant 1
6656     var L.JewelryQuant 1
6657     var L.ClericQuant 1
6658     var L.TravelQuant 1
6659     var L.GentleQuant 1
6660
6661     var S.GenQuant 2
6662     var S.WeapQuant 2
6663     var S.ClericQuant 2
6664     var S.StitchQuant 2
6665     var S.AlchQuant 2
6666     var S.HerbQuant 2
6667     var S.ArtifQuant 2
6668     var S.MusicQuant 2
6669     var S.ArmorQuant 2
6670     var S.ReedQuant 1
6671     var S.MuseumQuant 1
6672     var S.BowQuant 1
6673     var S.LockQuant 2
6674     var S.CoinQuant 1
6675	 var S.SpireQuant 1
6676     var S.FrillQuant 1
6677     var S.HeraldQuant 1
6678     var S.GiftQuant 1
6679     var S.ToyQuant 1
6680     var S.MemoryQuant 2
6681     var S.TokenQuant 2
6682     var S.BarberQuant 1
6683     var S.TannerQuant 2
6684     var S.SurvQuant 1
6685     var S.Surv2Quant 1
6686
6687     var SC.WeapQuant 2
6688     var H.ShieldQuant 2
6689     var H.JewelQuant 2
6690     var H.TogQuant 2
6691     var H.HerbQuant 2
6692     var H.SundQuant 2
6693     var H.LampQuant 2
6694     var H.MusicQuant 2
6695     var H.AlchQuant 2
6696     var H.ForgeQuant 2
6697     var H.WMQuant 2
6698     var H.GenQuant 2
6699     var H.TobacQuant 2
6700     return
6701########################
6702# 300-599
6703########################
6704ITEM.COUNT3:
6705     var T.TarshaQuant 1
6706     var T.RoseQuant 1
6707     var T.MusicQuant 1
6708     var T.HatsQuant 1
6709     var T.ArmQuant 1
6710     var T.GiftQuant 1
6711     var T.SweetQuant 2
6712     var T.CupcakeQuant 2
6713     var T.GenQuant 2
6714     var T.KrrishQuant 1
6715     var T.LenseQuant 1
6716     var T.ClericQuant 1
6717     var T.MenQuant 1
6718     var T.WomenQuant 1
6719     var T.ClothQuant 1
6720     var T.ArmoryQuant 1
6721     var T.ForgeQuant 1
6722
6723     var RH.HerbQuant 2
6724     var RH.IronQuant 2
6725     var RH.NaphQuant 2
6726     var RH.FlowQuant 2
6727     var RH.SeliQuant 2
6728     var RH.ArmsQuant 1
6729     var RH.GenQuant 2
6730     var RH.ClothQuant 2
6731     var RH.ArtifQuant 1
6732     var RH.JoyQuant 2
6733     var RH.SmokeQuant 2
6734     var RH.WeapQuant 2
6735     var RH.BardQuant 2
6736     var RH.Bard2Quant 1
6737     var RH.ClericQuant 2
6738     var RH.Cleric2Quant 1
6739     var RH.LockQuant 2
6740     var RH.TogQuant 2
6741     var RH.Tog2Quant 1
6742     var RH.MirgQuant 1
6743
6744     var AD.FetaQuant 2
6745     var AD.ThreadQuant 1
6746     var AD.FashQuant 1
6747     var AD.OddsQuant 1
6748     var AD.BardQuant 1
6749     var AD.MapQuant 1
6750     var AD.ArmQuant 2
6751     var AD.SmokeQuant 2
6752     var AD.Tart.EQuant 2
6753     var AD.Tart.CQuant 3
6754     var AD.Tart.MQuant 3
6755     var AD.Tart.LQuant 2
6756     var AD.Tart.FQuant 3
6757     var KA.GrekQuant 1
6758
6759     var C.AlchQuant 2
6760     var C.ArtifQuant 2
6761     var C.BathQuant 2
6762     var C.CardQuant 2
6763     var C.GenQuant 2
6764     var C.WeapQuant 1
6765     var C.ArmQuant 2
6766     var C.MusicQuant 2
6767     var C.Music2Quant 1
6768     var C.LockQuant 1
6769     var C.EmpathQuant 1
6770     var C.Empath2Quant 1
6771     var C.Empath3Quant 1
6772     var C.ClerQuant 2
6773     var C.HaberQuant 2
6774     var C.ScriptQuant 2
6775     var C.TannQuant 2
6776     var C.JewelQuant 2
6777     var C.StitchQuant 2
6778     var C.CobbQuant 2
6779     var C.HerbQuant 2
6780     var C.FlowQuant 2
6781
6782     var L.SkinQuant 2
6783     var L.BowQuant 2
6784     var L.OrigQuant 2
6785     var L.WeapQuant 2
6786     var L.WickQuant 2
6787     var L.BardQuant 2
6788     var L.Bard2Quant 1
6789     var L.ClothQuant 2
6790     var L.WoodQuant 1
6791     var L.GenQuant 1
6792     var L.PerfQuant 2
6793     var L.BridalQuant 1
6794     var L.WomenQuant 1
6795     var L.JewelryQuant 1
6796     var L.ClericQuant 1
6797     var L.TravelQuant 1
6798     var L.GentleQuant 1
6799
6800     var S.GenQuant 2
6801     var S.WeapQuant 2
6802     var S.ClericQuant 2
6803     var S.StitchQuant 2
6804     var S.AlchQuant 2
6805     var S.HerbQuant 2
6806     var S.ArtifQuant 2
6807     var S.MusicQuant 2
6808     var S.ArmorQuant 2
6809     var S.ReedQuant 1
6810     var S.MuseumQuant 1
6811     var S.BowQuant 1
6812     var S.LockQuant 2
6813     var S.CoinQuant 1
6814     var S.FrillQuant 1
6815	 var S.SpireQuant 1
6816     var S.HeraldQuant 1
6817     var S.GiftQuant 1
6818     var S.ToyQuant 1
6819     var S.MemoryQuant 2
6820     var S.TokenQuant 2
6821     var S.BarberQuant 1
6822     var S.TannerQuant 2
6823     var S.SurvQuant 1
6824     var S.Surv2Quant 1
6825
6826     var SC.WeapQuant 2
6827     var H.ShieldQuant 2
6828     var H.JewelQuant 2
6829     var H.TogQuant 2
6830     var H.HerbQuant 2
6831     var H.SundQuant 2
6832     var H.LampQuant 2
6833     var H.MusicQuant 2
6834     var H.AlchQuant 2
6835     var H.ForgeQuant 2
6836     var H.WMQuant 2
6837     var H.GenQuant 2
6838     var H.TobacQuant 2
6839     return
6840########################
6841# 600-799
6842########################
6843ITEM.COUNT4:
6844     var T.TarshaQuant 1
6845     var T.RoseQuant 1
6846     var T.MusicQuant 1
6847     var T.HatsQuant 1
6848     var T.ArmQuant 1
6849     var T.GiftQuant 1
6850     var T.SweetQuant 2
6851     var T.CupcakeQuant 2
6852     var T.GenQuant 2
6853     var T.KrrishQuant 1
6854     var T.LenseQuant 1
6855     var T.ClericQuant 1
6856     var T.MenQuant 1
6857     var T.WomenQuant 1
6858     var T.ClothQuant 1
6859     var T.ArmoryQuant 1
6860     var T.ForgeQuant 1
6861
6862     var RH.HerbQuant 2
6863     var RH.IronQuant 2
6864     var RH.NaphQuant 2
6865     var RH.FlowQuant 2
6866     var RH.SeliQuant 2
6867     var RH.ArmsQuant 1
6868     var RH.GenQuant 2
6869     var RH.ClothQuant 2
6870     var RH.ArtifQuant 1
6871     var RH.JoyQuant 2
6872     var RH.SmokeQuant 2
6873     var RH.WeapQuant 2
6874     var RH.BardQuant 2
6875     var RH.Bard2Quant 1
6876     var RH.ClericQuant 2
6877     var RH.Cleric2Quant 1
6878     var RH.LockQuant 2
6879     var RH.TogQuant 2
6880     var RH.Tog2Quant 1
6881     var RH.MirgQuant 1
6882
6883     var AD.FetaQuant 2
6884     var AD.ThreadQuant 1
6885     var AD.FashQuant 2
6886     var AD.OddsQuant 2
6887     var AD.BardQuant 2
6888     var AD.MapQuant 2
6889     var AD.ArmQuant 2
6890     var AD.SmokeQuant 2
6891     var AD.Tart.EQuant 2
6892     var AD.Tart.CQuant 3
6893     var AD.Tart.MQuant 3
6894     var AD.Tart.LQuant 2
6895     var AD.Tart.FQuant 3
6896     var KA.GrekQuant 1
6897
6898     var C.AlchQuant 2
6899     var C.ArtifQuant 2
6900     var C.BathQuant 2
6901     var C.CardQuant 2
6902     var C.GenQuant 2
6903     var C.WeapQuant 2
6904     var C.ArmQuant 2
6905     var C.MusicQuant 2
6906     var C.Music2Quant 1
6907     var C.LockQuant 2
6908     var C.EmpathQuant 1
6909     var C.Empath2Quant 1
6910     var C.Empath3Quant 1
6911     var C.ClerQuant 2
6912     var C.HaberQuant 2
6913     var C.ScriptQuant 2
6914     var C.TannQuant 2
6915     var C.JewelQuant 2
6916     var C.StitchQuant 2
6917     var C.CobbQuant 2
6918     var C.HerbQuant 2
6919     var C.FlowQuant 2
6920
6921     var L.SkinQuant 2
6922     var L.BowQuant 2
6923     var L.OrigQuant 2
6924     var L.WeapQuant 2
6925     var L.WickQuant 2
6926     var L.BardQuant 2
6927     var L.Bard2Quant 1
6928     var L.ClothQuant 2
6929     var L.WoodQuant 1
6930     var L.GenQuant 1
6931     var L.PerfQuant 2
6932     var L.WomenQuant 1
6933     var L.BridalQuant 1
6934     var L.JewelryQuant 1
6935     var L.ClericQuant 1
6936     var L.TravelQuant 1
6937     var L.GentleQuant 1
6938
6939     var S.GenQuant 2
6940     var S.WeapQuant 2
6941     var S.ClericQuant 2
6942     var S.StitchQuant 2
6943     var S.AlchQuant 2
6944     var S.HerbQuant 2
6945     var S.ArtifQuant 2
6946     var S.MusicQuant 2
6947     var S.ArmorQuant 2
6948     var S.ReedQuant 1
6949     var S.MuseumQuant 1
6950     var S.BowQuant 1
6951	 var S.SpireQuant 1
6952     var S.LockQuant 2
6953     var S.CoinQuant 1
6954     var S.FrillQuant 1
6955     var S.HeraldQuant 1
6956     var S.GiftQuant 1
6957     var S.ToyQuant 1
6958     var S.MemoryQuant 2
6959     var S.TokenQuant 2
6960     var S.BarberQuant 1
6961     var S.TannerQuant 2
6962     var S.SurvQuant 1
6963     var S.Surv2Quant 1
6964
6965     var SC.WeapQuant 2
6966     var H.ShieldQuant 2
6967     var H.JewelQuant 2
6968     var H.TogQuant 2
6969     var H.HerbQuant 2
6970     var H.SundQuant 2
6971     var H.LampQuant 2
6972     var H.MusicQuant 2
6973     var H.AlchQuant 2
6974     var H.ForgeQuant 2
6975     var H.WMQuant 2
6976     var H.GenQuant 2
6977     var H.TobacQuant 2
6978     return
6979########################
6980# 800-1400
6981########################
6982ITEM.COUNT5:
6983     var T.TarshaQuant 1
6984     var T.RoseQuant 1
6985     var T.MusicQuant 2
6986     var T.HatsQuant 2
6987     var T.ArmQuant 1
6988     var T.GiftQuant 2
6989     var T.SweetQuant 2
6990     var T.CupcakeQuant 2
6991     var T.GenQuant 2
6992     var T.KrrishQuant 2
6993     var T.LenseQuant 2
6994     var T.ClericQuant 1
6995     var T.MenQuant 1
6996     var T.WomenQuant 1
6997     var T.ClothQuant 1
6998     var T.ArmoryQuant 1
6999     var T.ForgeQuant 1
7000
7001     var RH.HerbQuant 2
7002     var RH.IronQuant 2
7003     var RH.NaphQuant 2
7004     var RH.FlowQuant 2
7005     var RH.SeliQuant 2
7006     var RH.ArmsQuant 1
7007     var RH.GenQuant 2
7008     var RH.ClothQuant 2
7009     var RH.ArtifQuant 1
7010     var RH.JoyQuant 2
7011     var RH.SmokeQuant 2
7012     var RH.WeapQuant 2
7013     var RH.BardQuant 2
7014     var RH.Bard2Quant 1
7015     var RH.ClericQuant 2
7016     var RH.Cleric2Quant 1
7017     var RH.LockQuant 2
7018     var RH.TogQuant 2
7019     var RH.Tog2Quant 1
7020     var RH.MirgQuant 1
7021
7022     var AD.FetaQuant 2
7023     var AD.ThreadQuant 1
7024     var AD.FashQuant 2
7025     var AD.OddsQuant 2
7026     var AD.BardQuant 2
7027     var AD.MapQuant 2
7028     var AD.ArmQuant 2
7029     var AD.SmokeQuant 2
7030     var AD.Tart.EQuant 2
7031     var AD.Tart.CQuant 3
7032     var AD.Tart.MQuant 3
7033     var AD.Tart.LQuant 2
7034     var AD.Tart.FQuant 3
7035     var KA.GrekQuant 1
7036
7037     var C.AlchQuant 2
7038     var C.ArtifQuant 2
7039     var C.BathQuant 2
7040     var C.CardQuant 2
7041     var C.GenQuant 2
7042     var C.WeapQuant 2
7043     var C.ArmQuant 2
7044     var C.MusicQuant 2
7045     var C.Music2Quant 1
7046     var C.LockQuant 2
7047     var C.EmpathQuant 1
7048     var C.Empath2Quant 1
7049     var C.Empath3Quant 1
7050     var C.ClerQuant 2
7051     var C.HaberQuant 2
7052     var C.ScriptQuant 2
7053     var C.TannQuant 2
7054     var C.JewelQuant 2
7055     var C.StitchQuant 2
7056     var C.CobbQuant 2
7057     var C.HerbQuant 2
7058     var C.FlowQuant 2
7059
7060     var L.SkinQuant 2
7061     var L.BowQuant 2
7062     var L.OrigQuant 2
7063     var L.WeapQuant 2
7064     var L.WickQuant 2
7065     var L.BardQuant 2
7066     var L.Bard2Quant 1
7067     var L.ClothQuant 2
7068     var L.WoodQuant 1
7069     var L.GenQuant 1
7070     var L.PerfQuant 2
7071     var L.WomenQuant 1
7072     var L.BridalQuant 1
7073     var L.JewelryQuant 1
7074     var L.ClericQuant 1
7075     var L.TravelQuant 1
7076     var L.GentleQuant 1
7077
7078     var S.GenQuant 2
7079     var S.WeapQuant 2
7080     var S.ClericQuant 2
7081     var S.StitchQuant 2
7082     var S.AlchQuant 2
7083     var S.HerbQuant 2
7084     var S.ArtifQuant 2
7085     var S.MusicQuant 2
7086     var S.ArmorQuant 2
7087     var S.ReedQuant 1
7088     var S.MuseumQuant 1
7089     var S.BowQuant 1
7090     var S.LockQuant 2
7091	 var S.SpireQuant 1
7092     var S.CoinQuant 1
7093     var S.FrillQuant 1
7094     var S.HeraldQuant 1
7095     var S.GiftQuant 1
7096     var S.ToyQuant 1
7097     var S.MemoryQuant 2
7098     var S.TokenQuant 2
7099     var S.BarberQuant 1
7100     var S.TannerQuant 2
7101     var S.SurvQuant 1
7102     var S.Surv2Quant 1
7103
7104     var SC.WeapQuant 2
7105     var H.ShieldQuant 2
7106     var H.JewelQuant 2
7107     var H.TogQuant 2
7108     var H.HerbQuant 2
7109     var H.SundQuant 2
7110     var H.LampQuant 2
7111     var H.MusicQuant 2
7112     var H.AlchQuant 2
7113     var H.ForgeQuant 2
7114     var H.WMQuant 2
7115     var H.GenQuant 2
7116     var H.TobacQuant 2
7117     return
7118##############################
7119# WARNINGS
7120##############################
7121WELCOME:
7122     echo ************************************************************
7123     echo *       Welcome $charactername - %circle %guild !~
7124     echo *    To Shroom's Ultimate Genie3 Mainland Stealing Script!
7125     echo *     Completely automated Progressive Stealing!
7126     echo *   Send bug reports/feedback to skultamaphon@gmail.com
7127     echo ************************************************************
7128     pause 2
7129     echo ************************************************************
7130     echo ***  MAKE SURE YOU HAVE PLENTY OF PLATS IN THE BANK
7131     echo ***  IN THE CITIES YOU ARE STEALING IN TO PAY FINES!
7132     echo ************************************************************
7133     pause 2
7134     RETURN
7135BAG.ALERT:
7136     echo
7137     echo **************************************************************************************************
7138     echo *  ERROR!!!
7139     echo *  You cannot set bin.container and pawn.container as the same container!!
7140     echo *  If you are binning AND pawning.. You MUST set them to different containers!
7141     echo *  THIEVES - If you are binning and pawning, you MUST have THREE different containers (bin/pawn/safe).
7142     echo *  If you want to use only two containers and have bin/pawn as the same container, set PAWN to OFF
7143     echo *  It is NOT recommended to turn BIN OFF, as over time this will *really* hurt your THIEF REP
7144     echo ***************************************************************************************************
7145     exit
7146THEREN.NOSTEAL:
7147     echo ***************************************************************************************************
7148     echo **** Sorry! Theren is too rough for noobs.
7149     echo **** Come back when you have a little more Thievery skill (~100+)
7150     echo **** It is recommended to start in either Crossings or Riverhaven as a nooblet...
7151     echo **** Take some classes and hit the beggar and steal water until you get better!
7152     echo ***************************************************************************************************
7153     pause 10
7154     gosub AUTOMOVE portal
7155     send .travel haven
7156     waitforre ^YOU HAVE ARRIVED
7157     goto HAVEN.STEAL
7158     put #parse DONE STEALING
7159     exit
7160TOO.MANY.FINES:
7161     put #echo >Log Red **** TOO MANY FINES IN %CITYCODE !! RESET YOUR HEAT!!!
7162     echo
7163     echo ****************************** WARNING !!!! ************************************
7164     echo **** YOU HAVE TOO MANY OUTSTANDING FINES TO STEAL FROM THIS PROVINCE!
7165     echo **** YOU ARE AT HIGH RISK OF BEING THUGGED! GO TO JAIL NOW!!!
7166     echo **** YOU MUST GO SURRENDER TO A TOWN GUARD AND GO TO JAIL IMMEDIATELY TO RESET YOUR 'HEAT'!
7167     echo **** LAY LOW FOR A FEW DAYS OR STEAL FROM A DIFFERENT PROVINCE TO LET YOUR HEAT "COOL DOWN"
7168     echo ********************************************************************************
7169     pause 3
7170     echo
7171     echo **** GO TO JAIL IMMEDIATELY AND LAY LOW IN THIS TOWN FOR A FEW DAYS TO RESET YOUR HEAT!!
7172     echo *** If you are getting caught too often, email me your thievery ranks and log of your items you are getting caught on
7173     echo *** skultamaphon@gmail.com -  shroomismschism @ AIM
7174     echo ***************************************************************************************************
7175     gosub AUTOMOVE guard
7176     pause 2
7177     send surrender guard
7178     pause
7179     send surrender sent
7180     send surrender ward
7181     pause 0.5
7182     put #parse DONE STEALING
7183     exit
7184NO.FUNDS:
7185     put #echo >Log Red **** Warning: Out of funds in %CITYCODE !!
7186     put #echo >Log Red **** Get some money from another town and pay your fine and get your stuff!!
7187     echo
7188     echo *************************************************************
7189     echo * WARNING! YOU DON'T HAVE ENOUGH MONEY TO PAY THIS FINE!
7190     echo * GO GET SOME FUNDS FROM ANOTHER BANK AND PAY YOUR FINE AND GET YOUR STUFF!
7191     echo * IT IS RECOMMENDED TO KEEP PLENTY OF PLATS IN THE BANK FOR THOSE THIEVERY CHARGES
7192     echo * THEY CAN REALLY RACK UP ESPECIALLY IF YOU DO NOT REGULARLY CLEAR YOUR HEAT!
7193     echo *************************************************************
7194     put #parse DONE STEALING
7195     exit
7196NO.PASSWORD:
7197     echo
7198     echo ***********************************************************
7199     echo *        YOU DIDN'T SET YOUR THIEF GUILD PASSWORDS!
7200     echo *  SET VARIABLES HAVEN.PW and SHARD.PW TO ~YOUR~ PASSWORDS
7201     echo ***********************************************************
7202     exit
7203NOOB:
7204     echo
7205     echo ***********************************************************************************
7206     echo * You are too Noob to steal from shops!!!
7207     echo * Hit the beggar or get some classes / steal some water until you get at least 20 ranks.
7208     echo ***********************************************************************************
7209     echo
7210     put #parse DONE STEALING
7211     exit
7212ARMOR.WARN:
7213     echo *************************************************************
7214     echo ** WARNING: Script could not find all your armor
7215     echo ** Remove any remaining armor and type "GO" to continue
7216     echo *************************************************************
7217     matchre RETURN GO|go
7218     matchwait
7219HELP:
7220     echo *********************************************************************************************************************
7221     echo *** Usage is .steal <1> <2> <3> 1- Label you want to skip to, 2- Starting City - 3- Type anything to skip bag check
7222     echo *** Variables useful for debugging purposes, or for re-starting the script from a certain point.
7223     echo *** otherwise just start script with NO variables ( . steal )
7224     echo **********************************************************************************************************************
7225     exit