Quote from: Skoad on October 02, 2020, 11:08:26 AM

This must be a popular week. I TOO have come back to UO after a 8 year break (my son was born at that time) and today is my first day back. Anyway, welcome back!

Now Skoad pops back up!  Talk about a blast from the past!  Welcome back.

Haha. Not wanting to hijack this guys thread, but thanks! Its been a long time coming. UO has been calling my name for years and ive been dying to get back here. Just havnt had the time. Now im forcing myself to make it. Of course this was one of my first stops. I dont even think the game was done installing yet before I made it here.

Super old post, but wondering if anyone has any idea why it is not trying to restock/grab resources.

It simply just tries to use the resources within the secure and I am given the message "That must be in your pack for you to use"

So I changed my client version to 7.0.23.1 earlier, did all kinds of mods by hand.. Then proceeded to move around the map only to see that most of it is covered with snow.

Im just wondering if there is any way to turn the snow tiles back into grass tiles. As far as I know, there isnt... but I could be wrong.

Thanks.

This has been one of my favorite books since I was 12. Favorite being Enders Shadow but Enders Game is the next in line.

Im excited for the movie but at the same time, Im worried they will ruin the story and miss vital details.

Im not sure what its expecting. I cant figure that part out. Im far too nub to know whats going on with this old script. Ive done all I can with it. I just know it suppose smelts items if they are not "exceptional" but not sure how it is suppose to determine that.

74 views and no one has any ideas or fixes to throw at me? 

After massive amount of time spent trying to find away to do bods on a pre-aos shard.. I ran across this script on the old.easyuo.com boards. I had to do a lot of editing but got it running SOMEWHAT smoothly.

I fixed all the click locations and item IDs (just about everyone had to be changed) except I didnt touch the smithy section yet. Just tailoring.

Biggest issue im having now is that I dont know how it knows if the item is exceptional or not(obviously it cant check #property since pre-aos). It has an option to select if I want to make exceptional, but doesnt seem to be checking if the item is exceptional or not. It would cut the item immediately after crafting it as I guess it thought it wasnt an exceptional. So I turned off the exceptional option and it made the items fine.. which would work great if I had 100% chance to make everything exceptional.

Any and all help is greatly appreciated! Thanks in advance.

-edit-
So it is determining if things are exceptional by this line
if except in %kind
I have no idea where it should be searching for %kind as Ive dont recall ever seeing this string..or how I would go about getting around this.

; Current Version 2.1
; Current edit date 4/13
; Lots of edits fixed
; Added a display option. Default is yes.
; It displays information in the title bar.
; fixed two handed axe
initevents
ignoreitem reset
;== USER SPECS/DEFAULTS
; Set display to 1 if you want to display info in menu bar
set %display 1
; This is the "short" pause
set %pause1 15

; This is the "long" pause
set %pause2 18

; This is the pause after looking for item
set %pause3 0

; This is the maximum weight you will allow on your person
set %maxweight 400

; This is the most ingots, cloth, scales you will attempt to drag into your pack
set %dragingot 1000

; This is the most leather you will attempt to drag into your pack
set %dragleather 100

; This is the least amount of ingots you will allow before you replentish
set %criticalingot 40

; This is the least amount of leather you will allow before you replentish
set %criticalleather 20

; this is the default crafting menu. Valid options (blacksmith, tailor).
; Setting to other craft type will being macro with that menu
set %menutype blacksmith

;This is default ingot color
set %ingotcolor iron

; This is default type of leather
set %leathercolor leather

; This is the default for making exceptional items. Valid options (Except, Normal)
set %except except

; This is the default scale color
set %scales red

; This is the default for if you are a tinker. Valid options (Yes, No)
set %tinkques yes

; This is the default for if you want to use a resource bag. Valid options (Yes, No)
set %resourcebag yes

; This is the default option for if you want to use a discard bag. Valid options (Yes, No)
set %discardbag no

; This is the default for if you want to use an ASH. Valid options (Yes, No)
set %useash no

; If you change this to the item id for your resourcebag, you won't have to target it
set %resourcebagid 0

; these are menu colors
set %smithcolor $750050
set %tailorcolor $905050
set %sbgcolor $755075
set %tbgcolor $906060

;==INITIALIZATIONS==Don't touch
set %ashtemp no
set %suitbutton suits
set %ashid 0
set %tempcolor 0
set %totalnum 0
set %order 0
set %resid 0
set %cont 0
set %scissors 0
set %makingtype 0
set %restype 0
set %craft 0
set %tool 0
set %color 0
set %bods No_Bods
set %scolor 0
set %rcolor 0
set #rhandid 0
set %click1 120
set %click2 140
set %click3 160
set %click4 180
set %click5 200
set %click6 220
set %click7 240
set %click8 260
set %click9 280
set %click10 300
set %click11 320
set %discardbagx 0
set %discardbagy 0
set #dispres n/a
;========Menu
begin:
gosub timein
Menu HideEUO
Menu Clear
Menu Window size 850 600
Menu Font Name Times
Menu Font Size 12
menu font bgcolor $999999
Menu Button begin 740 550 90 30 Begin NOW
Menu button clear 740 510 90 30 Clear All
menu button crafttype 720 25 120 30 %menutype
menu text tinker 720 60 Are you a Tinker?
Menu button tink 720 90 50 30 %tinkques
menu text resbag 720 135 Resource container?
menu button rbag 720 160 50 30 %resourcebag
menu text disbag 720 200 Discard container?
menu button dbag 720 225 50 30 %discardbag
Menu text ex 720 260 Exceptional only?
Menu button excep 720 290 90 30 %except
Menu button bods 740 430 90 30 %bods
menu button save 740 470 90 30 Save
menu button suits 740 390 90 30 %suitbutton
if back in %suitbutton
{
menu font size 14
Menu text sublack 300 30 Blacksmith Suits
menu text sutail 300 280 Tailoring Suits
menu font size 12
menu edit c1 30 60 25
menu edit c2 150 60 25
menu edit c3 270 60 25
menu edit c4 30 110 25
menu edit c5 150 110 25
menu edit c6 270 110 25
menu edit c7 390 110 25
menu edit c8 510 110 25
menu edit c9 30 310 25
menu edit c10 150 310 25
menu edit c11 270 310 25
menu edit c12 390 310 25
menu edit c13 30 360 25
menu edit c14 150 360 25
menu edit c15 270 360 25
menu edit c16 390 360 25
menu edit c17 510 360 25
menu edit c18 30 410 25
menu edit c19 150 410 25
menu edit c20 270 410 25
menu edit c21 390 410 25
menu edit c22 510 410 25
menu text suchain 180 65 Chain Suit
menu text suaxe 60 115 Axe Set
menu text suswd 180 115 Sword Set
menu text subash 420 115 Bashing Set
menu text sumlea 60 315 Male Set
menu text supole 540 115 Polearms Set
menu text sustu 420 315 Studded Set
menu text supierce 300 115 Piercing Set
menu text suring 300 65 Ring Suit
menu text suplate 60 65 Plate Suit
menu text sugyp 60 365 Gypsy Set
menu text supir 180 365 Pirate Set
menu text sujes 300 365 Jester Set
menu text subone 300 315 Bone Set
menu text sufar 420 365 Farmer Set
menu text suwiz 540 365 Wizard Set
menu text sufish 60 415 Fishergirl Set
menu text sulady 180 415 Lady Set
menu text sutown 300 415 Towncrier Set
menu text suhat 420 415 Hat Set
menu text sushoe 540 415 Shoe Set
menu text suflea 180 315 Female Set
Menu Text leatherc 30 470 You will be using %leathercolor leather.
Menu Text ingotc 160 175 You will be using %ingotcolor ingots
menu font size 9
Menu Button leather 30 500 50 30 Leather
Menu Button Spined 80 500 50 30 Spined
Menu Button Horned 130 500 50 30 Horned
Menu Button Barbed 180 500 50 30 Barbed
Menu Button iron 30 205 50 30 Iron
Menu Button dull 80 205 50 30 Dull
Menu Button shadow 130 205 50 30 Shadow
Menu Button copper 180 205 50 30 Copper
Menu Button bronze 230 205 50 30 Bronze
Menu Button gold 280 205 50 30 Gold
Menu Button agapite 330 205 50 30 Agapite
Menu Button verite 380 205 50 30 Verite
Menu Button valorite 430 205 50 30 Valorite

menushow
goto menuwait
}
if blacksmith in %menutype
{
Menu Font BGColor %sbgcolor
Menu Window Color %smithcolor
Menu text ash2 720 325 Using an ASH?
Menu button ash 720 355 50 30 %useash
Menu Text ingotc 160 520 You will be using %ingotcolor ingots
Menu Text scale 580 520 %scales Scales
menu font size 9
Menu Button iron 30 550 50 30 Iron
Menu Button dull 80 550 50 30 Dull
Menu Button shadow 130 550 50 30 Shadow
Menu Button copper 180 550 50 30 Copper
Menu Button bronze 230 550 50 30 Bronze
Menu Button gold 280 550 50 30 Gold
Menu Button agapite 330 550 50 30 Agapite
Menu Button verite 380 550 50 30 Verite
Menu Button valorite 430 550 50 30 Valorite
Menu button Red 490 550 40 30 Red
Menu button White 650 550 40 30 White
Menu button Black 570 550 40 30 Black
Menu button Yellow 530 550 40 30 Yellow
Menu button Green 610 550 40 30 Green
Menu button Blue 690 550 40 30 Blue
menu font size 12
;inputs
menu font style bu
menu text a 50 20 Plate
Menu text b 190 20 Chainmail
Menu text c 330 20 Ringmail
Menu text d 470 20 Helmets
Menu text e 610 20 Shields
menu text f 50 280 Bashing
menu text g 190 180 Bladed
menu text h 330 180 Polearms
Menu text i 470 255 Axes
menu text j 610 305 Dragon Scale
menu font style b
menu text at1 60 55 Gorget
menu text at2 60 80 Gloves
menu text at3 60 105 Arms
menu text at4 60 130 Legs
menu text at5 60 155 Tunic
menu text at6 60 180 Female
menu text bt1 200 55 Coif
menu text bt2 200 80 Leggings
menu text bt3 200 105 Tunic
menu text ct1 340 55 Gloves
menu text ct2 340 80 Sleeves
menu text ct3 340 105 Leggings
menu text ct4 340 130 Tunic
menu text dt1 480 55 Bascinet
menu text dt2 480 80 Close
menu text dt3 480 105 Helmet
menu text dt4 480 130 Norse
menu text dt5 480 155 Plate
menu text et1 620 55 Buckler
menu text et2 620 80 Bronze
menu text et3 620 105 Heater
menu text et4 620 130 Metal
menu text et5 620 155 Metal Kite
menu text et6 620 180 Tear Kite
menu text et7 620 205 Chaos
menu text et8 620 230 Order
menu text ft1 60 315 Hammer Pick
menu text ft2 60 340 Mace
menu text ft3 60 365 Maul
menu text ft4 60 390 Scepter
menu text ft5 60 415 War Mace
menu text ft6 60 440 War Hammer
menu text gt1 210 215 Bone Harv
menu text gt2 210 240 Broadsword
menu text gt3 210 265 Crescent Bl
menu text gt4 210 290 Cutlass
menu text gt5 210 315 Dagger
menu text gt6 210 340 Katana
menu text gt7 210 365 Kryss
menu text gt8 210 390 Longsword
menu text gt9 210 415 Scimitar
menu text gt10 210 440 Viking Swd
menu text ht1 350 215 Bardiche
menu text ht2 350 240 Bladed Staff
menu text ht3 350 265 Dbl Bladed Stf
menu text ht4 350 290 Halberd
menu text ht5 350 315 Lance
menu text ht6 350 340 Pike
menu text ht7 350 365 Short Spear
menu text ht8 350 390 Scythe
menu text ht9 350 415 Spear
menu text ht10 350 440 War Fork
menu text it1 490 290 Axe
menu text it2 490 315 Battle Axe
menu text it3 490 340 Double Axe
menu text it4 490 365 Executioner's
menu text it5 490 390 Large Battle
menu text it6 490 415 Two Handed
menu Text it7 490 440 War Axe
menu text jt1 620 340 Gloves
menu text jt2 620 365 Helm
menu text jt3 620 390 Sleeves
menu text jt4 620 415 Leggings
menu text jt5 620 440 Breastplate
menu edit a1 30 50 25
menu edit a2 30 75 25
menu edit a3 30 100 25
menu edit a4 30 125 25
menu edit a5 30 150 25
menu edit a6 30 175 25
menu edit a8 170 50 25
menu edit a9 170 75 25
menu edit a10 170 100 25
menu edit a11 310 50 25
menu edit a12 310 75 25
menu edit a13 310 100 25
menu edit a14 310 125 25
menu edit a15 450 50 25
menu edit a16 450 75 25
menu edit a17 450 100 25
menu edit a18 450 125 25
menu edit a19 450 150 25
menu edit a20 590 50 25
menu edit a21 590 75 25
menu edit a22 590 100 25
menu edit a23 590 125 25
menu edit a24 590 150 25
menu edit a25 590 175 25
menu edit a26 590 200 25
menu edit a27 590 225 25
menu edit a28 30 310 25
menu edit a29 30 335 25
menu edit a30 30 360 25
menu edit a31 30 385 25
menu edit a32 30 410 25
menu edit a33 30 435 25
menu edit a34 170 210 25
menu edit a35 170 235 25
menu edit a36 170 260 25
menu edit a37 170 285 25
menu edit a38 170 310 25
menu edit a39 170 335 25
menu edit a40 170 360 25
menu edit a41 170 385 25
menu edit a42 170 410 25
menu edit a43 170 435 25
menu edit a44 310 210 25
menu edit a45 310 235 25
menu edit a46 310 260 25
menu edit a47 310 285 25
menu edit a48 310 310 25
menu edit a49 310 335 25
menu edit a50 310 360 25
menu edit a51 310 385 25
menu edit a52 310 410 25
menu edit a53 310 435 25
menu edit a54 450 285 25
menu edit a55 450 310 25
menu edit a56 450 335 25
menu edit a57 450 360 25
menu edit a58 450 385 25
menu edit a59 450 410 25
menu edit a60 450 435 25
menu edit a61 590 335 25
menu edit a62 590 360 25
menu edit a63 590 385 25
menu edit a64 590 410 25
menu edit a65 590 435 25
Menu Show
}
if tailor in %menutype
{
menu font bgcolor %tbgcolor
Menu Window Color %tailorcolor
Menu Text leatherc 30 520 You will be using %leathercolor leather.
menu font size 9
Menu Button leather 30 550 50 30 Leather
Menu Button Spined 80 550 50 30 Spined
Menu Button Horned 130 550 50 30 Horned
Menu Button Barbed 180 550 50 30 Barbed
menu font size 12


;inputs
menu font style bu
menu text k 50 20 Leather Armor
Menu text l 190 20 Female Leather
Menu text m 330 20 Shirts
Menu text n 470 20 Hats
Menu text r 610 20 Footwear
menu text s 610 180 Miscellaneous
menu text o 50 305 Studded Armor
menu text p 190 305 Bone Armor
menu text q 330 330 Pants
menu font style b
menu text kt1 60 55 Gorget
menu text kt2 60 80 Gloves
menu text kt3 60 105 Sleeves
menu text kt4 60 130 Leggings
menu text kt5 60 155 Tunic
menu text kt6 60 180 Cap
menu text lt1 200 55 Lea Shorts
menu text lt2 200 80 Lea Skirt
menu text lt3 200 105 Lea Bust
menu text lt4 200 130 Studded Bust
menu text lt5 200 155 Fem Leath Arm
menu text lt6 200 180 Studded Armor
menu text mt1 340 55 Doublet
menu text mt2 340 80 Shirt
menu text mt3 340 105 Fancy Shirt
menu text mt4 340 130 Tunic
menu text mt5 340 155 Surcoat
menu text mt6 340 180 Plain Dress
menu text mt7 340 205 Fancy Dress
menu text mt8 340 230 Cloak
menu text mt9 340 255 Robe
menu text mt10 340 280 Jester Suit
menu text nt1 480 55 Skullcap
menu text nt2 480 80 Bandana
menu text nt3 480 105 Floppy Hat
menu text nt4 480 130 Cap
menu text nt5 480 155 Wide-Brim
menu text nt6 480 180 Straw
menu text nt7 480 205 Tall Straw
menu text nt8 480 230 Wizard's
menu text nt9 480 255 Bonnet
menu text nt10 480 280 Feathered
menu text nt11 480 305 Tricorne
menu text nt12 480 330 Jester
menu text rt1 620 55 Sandals
menu text rt2 620 80 Shoes
menu text rt3 620 105 Boots
menu text rt4 620 130 Thigh Boots
menu text st1 620 215 Body Sash
menu text st2 620 240 Half Apron
menu text st3 620 265 Full Apron
menu text st4 620 290 Oil Cloth
menu text ot1 60 340 Gorget
menu text ot2 60 365 Gloves
menu text ot3 60 390 Sleeves
menu text ot4 60 415 Leggings
menu text ot5 60 440 Tunic
menu text pt1 210 340 Helmet
menu text pt2 210 365 Gloves
menu text pt3 210 390 Arms
menu text pt4 210 415 Leggings
menu text pt5 210 440 Armor
menu text qt1 350 365 Shorts
menu text qt2 350 390 Pants
menu text qt3 350 415 Kilt
menu text qt4 350 440 Skirt
menu edit b1 30 50 25
menu edit b2 30 75 25
menu edit b3 30 100 25
menu edit b4 30 125 25
menu edit b5 30 150 25
menu edit b6 30 175 25
menu edit b7 170 50 25
menu edit b8 170 75 25
menu edit b9 170 100 25
menu edit b10 170 125 25
menu edit b11 170 150 25
menu edit b12 170 175 25
menu edit b13 310 50 25
menu edit b14 310 75 25
menu edit b15 310 100 25
menu edit b16 310 125 25
menu edit b17 310 150 25
menu edit b18 310 175 25
menu edit b19 310 200 25
menu edit b20 310 225 25
menu edit b21 310 250 25
menu edit b22 310 275 25
menu edit b23 450 50 25
menu edit b24 450 75 25
menu edit b25 450 100 25
menu edit b26 450 125 25
menu edit b27 450 150 25
menu edit b28 450 175 25
menu edit b29 450 200 25
menu edit b30 450 225 25
menu edit b31 450 250 25
menu edit b32 450 275 25
menu edit b33 450 300 25
menu edit b34 450 325 25
menu edit b35 590 50 25
menu edit b36 590 75 25
menu edit b37 590 100 25
menu edit b38 590 125 25
menu edit b39 590 210 25
menu edit b40 590 235 25
menu edit b41 590 260 25
menu edit b42 590 285 25
menu edit b43 30 335 25
menu edit b44 30 360 25
menu edit b45 30 385 25
menu edit b46 30 410 25
menu edit b47 30 435 25
menu edit b48 170 335 25
menu edit b49 170 360 25
menu edit b50 170 385 25
menu edit b51 170 410 25
menu edit b52 170 435 25
menu edit b53 310 360 25
menu edit b54 310 385 25
menu edit b55 310 410 25
menu edit b56 310 435 25
Menu Show
}

Menuwait:
set #menubutton n/a
button:
if suits in #menubutton
{
if suits in %suitbutton
set %suitbutton back
else
set %suitbutton suits
goto begin
}
if clear in #menubutton 2
gosub clearmenu
goto begin
if begin in #menubutton
goto k
if #menubutton in iron_dull_shadow_copper_bronze_gold_agapite_verite_valorite 2
set %ingotcolor #menubutton
goto begin
if #menubutton in red_yellow_blue_green_white_black 2
set %scales #menubutton
goto begin
if #menubutton in leather_spined_horned_barbed 2
set %leathercolor #menubutton
goto begin
if ash in #menubutton
{
if yes in %useash
set %useash no
else
set %useash yes
goto begin
}
if excep in #menubutton
{
if normal in %except
set %except except
else
set %except normal
goto begin
}
if crafttype in #menubutton
{
if %menutype in blacksmith
set %menutype tailor
else
set %menutype blacksmith
goto begin
}
if tink in #menubutton
{
if no in %tinkques
set %tinkques yes
else
set %tinkques no
goto begin
}
if rbag in #menubutton
{
if no in %resourcebag
set %resourcebag yes
else
set %resourcebag no
goto begin
}
if dbag in #menubutton
{
if no in %discardbag
set %discardbag yes
else
set %discardbag no
goto begin
}
if save in #menubutton 2
gosub checkedit
goto begin
if bods in #menubutton
{
if no in %bods 2
set %bods Fill_BODS
goto begin
if fill in %bods 2
set %bods No_BODS
goto begin
}
goto button


k:
if fill in %bods
set %bods yes
else
set %bods no
menu hide
gosub checkedit
if %totalnum = 0
halt
if %totalnum > 200
{
if no in %bods 2
Display ok Valiantshade says "Are you CRAZY? Where will you put all that stuff?"
halt
}
if yes in %resourcebag
gosub getresourcebag
if yes in %useash 2
set %ashtemp yes
gosub setash
if yes in %discardbag
gosub getdiscardbag
gosub opengump
if yes in %bods
gosub setbods
mainloop:
for %t 1 %order
{
ignoreitem reset
set %mustskip 0
set %madeyet 0
set %temp1 makekind , %t
set %temp2 maketype , %t
set %temp3 makenum , %t
set %kind % . %temp1
set %sub % . %temp2
set %num % . %temp3
set %maxnum %num
if yes in %bods
{
set %temp4 makebod , %t
set %bodid % . %temp4
}
set %tempcolor 0
if a in %sub
{
set %craft blacksmith
if yes in %ashtemp
set %useash yes
}
if b in %sub
{
set %craft tailor
if yes in %ashtemp
gosub armash disarm
set %useash no
}
gosub %sub
gosub toolcheck %craft
loop:
if %display = 1
setuotitle ValSmithOr You've making number %t of %order items. You're making %name and you've made %tpnm of %maxnum items for this order.
if %cont notin #contkind
{
set #lobjectid %tool
event macro 17 0
wait 1s
}
if %restype = 2
gosub scalecolor %kind
if %restype in 1_3_5
gosub resourcecolor %kind
if %restype <> 4
gosub rescolor %kind
gosub supplies %rcolor %restype
if 1 in %mustskip 2
set %num 0
goto loopend
ignoreall:
finditem %type C_ , %backpackid
wait %pause3
if #findkind = 0
{
ignoreitem #findid
set %num %num - 1
if except in %kind
gosub smelt %made
goto ignoreall
}
gosub make %type %c1 %c2 %madeyet
gosub toolcheck %craft
set %temcounter 0
cont:
if %temcounter > 25
goto loop
finditem %tool
if #findkind = -1
goto loop
if #contkind <> %cont 3
set %temcounter %temcounter + 1
wait 5
goto cont
wait 10
finditem %type C_ , %backpackid
wait %pause3
if #findkind = 0
{
set %madeyet 1
ignoreitem #findid
set %num %num - 1
set %made #findid
if except in %kind 2
wait 10
gosub smelt %made
}
cont2:
finditem %tool
if #findkind = -1
goto loop
if #contkind <> %cont
goto cont2
if #weight > %maxweight
{
if yes in %bods
gosub fillbods %type %bodid
if yes in %discardbag
gosub discard %type %rcolor
}
if #weight > %maxweight 2
display ok Valiantshade says "Ok fatty. Time to lose some weight. Drop weight and hit play"
pause
set %tpnm %maxnum - %num

loopend:
if %num > 0
goto loop
if yes in %bods
gosub fillbods %type %bodid
if yes in %discardbag
gosub discard %type %rcolor
}
gosub timeout
halt

sub discard
ignoreitem reset
click 80 460
wait %pause2
if yes in %useash
gosub armash disarm
disc:
finditem %1 C_ , %backpackid
ignoreitem #findid
if #findkind = -1
{
set %tmp 1
dump:
finditem ENK_JJG_STO_CUI_BUI %tmp C_ , %backpackid
if #findkind = -1 || no in %resourcebag
{
set #lobjectid %tool
event macro 17 0
wait 2s
if yes in %useash
gosub armash arm
return
}
if %2 = #findcol 2
set %tmp %tmp + 1
goto dump
set %dumper #findid
set %ty #findtype
set %co #findcol
set %tmp2 1
dump2:
finditem %ty %tmp2 C_ , %resourcebagid
if #findkind = -1 2
set %tmp %tmp + 1
goto dump
if #findcol <> %co 2
set %tmp2 %tmp2 + 1
goto dump2
set #findmod 15_10
event drag %dumper
wait %pause1
msg $
wait %pause1
click #findx #findy p
wait 2s
set %tmp 1
goto dump
}
if #findkind = 0
{
event drag #findid
wait %pause1
click %discardbagx %discardbagy p
wait %pause2
goto disc
}
sub smelt
for %l 1 3
{
scanjournal %l
if mark in #journal 2
deletejournal
return
}
set %num %num + 1
if %restype in 3_4
{
cut:
finditem %scissors C_ , %backpackid
if #findkind = 0
{
set #lobjectid %scissors
set #ltargetid %made
event macro 17 0
target
event macro 22 0
return
}
scis:
finditem JAG C_ , %backpackid
If #findkind = -1
{
if yes in %tinkques
{
if yes in %useash
gosub armash disarm
set %tmp3 1
tinkc:
finditem ENK %tmp3 C_ , %backpackid
if #findkind = -1
{
set %tmp4 1
tinkd:
if no in %resourcebag 2
display ok Valiantshade says "You FOOL!. You need more iron ingots"
halt
finditem ENK %tmp4 C_ , %resourcebagid
If #findkind = -1 2
display ok Valiantshade says "You need Iron Ingots"
halt
if #findcol <> 0 2
set %tmp4 %tmp4 + 1
goto tinkd
event drag #findid
wait %pause1
msg 2$
wait %pause1
click %backpackx %backpacky p
wait 2s
set %tmp3 1
goto tinkc
}
if #findcol <> 0 2
set %tmp3 %tmp3 + 1
goto tinkc
if #findkind = 0 3
if #findstack < 2 2
set %tmp3 %tmp3 + 1
goto tinkc
finditem KTL C_ , %backpackid
if #findkind = -1 2
display ok Valiantshade says "Looks like you're of tinker tools"
halt
set #lobjectid #findid
event macro 17 0
wait %pause2
click 80 160
wait %pause2
click 280 120
wait 2s
set #lobjectid %tool
event macro 17 0
wait 2s
if yes in %useash
gosub armash arm
goto scis
}
display ok "Valiantshade says Only an {censored} would call themselves a tailor without having scissors"
halt
}
set %scissors #findid
goto cut
}
if %restype in 2_5
return
set #ltargetid %made
set #ltargetkind 1
click 80 400
target
wait 5
event macro 22 0
wait %pause1
return

sub make
if #contkind = STM
{
ContPos 50 50
}
if %makingtype = %1 4
if %4 = 1 3
click 330 460
wait %pause1
return
ContPos 50 50
click 80 %2
wait %pause1
if %1 in JWI_EWI 2
ContPos 50 50
click 430 320
wait 1s
click 280 %3
wait %pause1
set %makingtype %1
return

sub toolcheck
tck:
if tailor in %1
set %ttype HAG
else
set %ttype OBG
finditem %tool
if #findkind = 0 2
if #findtype in %ttype
return
finditem %ttype C_ , %backpackid
if #findkind = 0
{
set #lobjectid #findid
event macro 17 0
if %cont = 0 2
wait 2s
if #contkind = STM
{
ContPos 50 50
}
set %cont #contkind
if %tool <> 0
{
if yes in %useash
gosub armash arm
}
set %tool #lobjectid
return
}
if #findkind = -1
{
if yes in %resourcebag
{
finditem %ttype C_ , %resourcebagid
if #findkind = 0 4
event drag #findid
wait %pause1
click %backpackx %backpacky p
goto tck
}
if yes in %tinkques
{
set %tmp5 1
tinka:
finditem ENK %tmp5 C_ , %backpackid
if #findkind = -1
{
set %tmp6 1
tinkb:
finditem ENK %tmp6 C_ , %resourcebagid
If #findkind = -1 2
display ok Valiantshade says "You need Iron Ingots"
halt
if #findcol <> 0 2
set %tmp6 %tmp6 + 1
goto tinkb
event drag #findid
wait %pause1
msg 2$
wait %pause1
click %backpackx %backpacky p
wait 2s
set %tmp5 1
goto tinka
}
if #findcol <> 0 2
set %tmp5 %tmp5 + 1
goto tinka
if #findkind = 0 3
if #findstack < 2 2
set %tmp5 %tmp5 + 1
goto tinka
finditem KTL C_ , %backpackid
if #findkind = -1 2
display ok Valiantshade says "Looks like you're of tools"
halt
if yes in %useash
gosub ash disarm
set #lobjectid #findid
event macro 17 0
wait %pause2
if #findcnt = 1
{
click 80 160
wait %pause2
click 280 180
wait 2s
}
if %ttype = HAG
click 80 160
wait %pause2
click 280 240
wait 2s
goto tck
}
else
{
click 80 160
wait %pause2
click 430 320
wait %pause2
click 280 160
wait 2s
goto tck
}
}
display ok Valiantshade says "Looks like you're of tools"
halt
}

sub getresourcebag
lag:
if 0 notin %resourcebagid
return
display okcancel Target the extra bag of supplies you will restock from
if cancel in #dispres 2
pause
goto lag
set #targcurs 1
target
targetloop:
if #targcurs = 1
goto targetloop
set %resourcebagid #ltargetid
return

sub getdiscardbag
display ok Make sure nothing is covering the discard container (can be trashcan), put cursor over container and hit the letter "h"
disca:
onhotkey h 5
set %discardbagx #cursorx
set %discardbagy #cursory
wait 10
key back
return
goto disca


sub opengump
event macro 8 1
wait %pause2
contpos 750 420
wait %pause2
event macro 8 7
wait %pause2
contpos 750 20
wait %pause2
event macro 8 2
wait %pause2
contpos 310 550
if yes in %resourcebag
{
set #lobjectid %resourcebagid
event macro 17 0
wait %pause2
contpos 750 220
wait %pause2
}
set %backpackid N/A
deletevar backpackid
findbag:
finditem ZJF C_ , #charid
if #findkind = -1 2
ignoreitem reset
goto break
ignoreitem #findid
set %find #findid
finditem * C_ , #findid
if #findkind = -1
goto findbag
if #findkind = 0 6
set %backpackid %find
ignoreitem reset
finditem %backpackid
set #findmod 150_227
set %backpackx #findx
set %backpacky #findy
return
goto findbag


sub checkedit
if suits in %suitbutton
{
if tailor = %menutype
set %tag b
else
set %tag a
for %i 1 65
{
set %gettag %tag , %i
menu getnum %gettag 0
if 0 <> #menures
{
set %totalnum %totalnum + #menures
set %order %order + 1
if tailor = %menutype
set %mat %leathercolor
else
set %mat %ingotcolor , %scales
set %temp1 %mat , %except
set %temp2 makenum , %order
set %temp3 makekind , %order
set %temp4 maketype , %order
set % . %temp2 #menures
set % . %temp3 %temp1
set % . %temp4 %gettag
set #menures 0
}
}
}
if back in %suitbutton
{
for %i 1 22
{
set %gettag c , %i
menu getnum %gettag 0
if 0 <> #menures
{
gosub %gettag
for %k 1 %cnum
{
set %order %order + 1
set %totalnum %totalnum + #menures
set %temp9 ctype , %k
set %newtype % . %temp9
if %i < 9
set %mat %ingotcolor , %scales
else
set %mat %leathercolor
set %temp1 %mat , %except
set %temp2 makenum , %order
set %temp3 makekind , %order
set %temp4 maketype , %order
set % . %temp2 #menures
set % . %temp3 %temp1
set % . %temp4 %newtype
}
set #menures 0
}
}
}
return

sub clearmenu
for %j 1 %order
{
set %qr makenum , %j
set %qs maketype , %j
set %qt makekind , %j
deletevar %qr
deletevar %qs
deletevar %qt
}
set %order 0
set %totalnum 0
return

sub scalecolor
if %scolor in %1
return
if red in %1 2
set %scolor red
set %ck %click1
if yellow in %1 2
set %scolor yellow
set %ck %click2
if black in %1 2
set %scolor black
set %ck %click3
if green in %1 2
set %scolor green
set %ck %click4
if white in %1 2
set %scolor white
set %ck %click5
if blue in %1 2
set %scolor blue
set %ck %click6
if yes in %useash
gosub armash disarm
set #lobjectid %tool
event macro 17 0
wait %pause2
click 80 440
wait %pause2
click 280 %ck
wait %pause2
if yes in %useash
gosub armash arm
return


sub resourcecolor
if %color in %1
return
if valorite in %1 2
set %color valorite
set %ck %click9
if verite in %1 2
set %color verite
set %ck %click8
if agapite in %1 2
set %color agapite
set %ck %click7
if gold in %1 2
set %color gold
set %ck %click6
if bronze in %1 2
set %color bronze
set %ck %click5
if copper in %1 2
set %color copper
set %ck %click4
if barbed in %1 2
set %color barbed
set %ck %click4
if shadow in %1 2
set %color shadow
set %ck %click3
if horned in %1 2
set %color horned
set %ck %click3
if dull in %1 2
set %color dull
set %ck %click2
if spined in %1 2
set %color spined
set %ck %click2
if iron in %1 2
set %color iron
set %ck %click1
if leather in %1 2
set %color leather
set %ck %click1
if yes in %useash
gosub armash disarm
set #lobjectid %tool
event macro 17 0
wait %pause2
click 80 420
wait %pause1
click 280 %ck
if yes in %useash
gosub armash arm
return


sub supplies
if 1 in %2
set %rtype ENK
if 2 in %2
set %rtype STO
if 3 in %2
set %rtype JJG
if 4 in %2 2
set %rtype CUI_BUI
set %1 n/a
if 5 in %2
set %rtype JJG
sup:
finditem %resid
if %1 = #findcol || %1 = n/a
{
if #findtype in %rtype
{
if #weight >= %maxweight
return
if JJG in %rtype 4
if #findstack > %criticalleather 3
if %2 = 5
goto supbone
return
if jjg notin %rtype 2
if #findstack > %criticalingot
return
}
}
set %tmp7 1
sup2:
finditem %rtype %tmp7 C_ , %backpackid
if #findkind = -1
goto sup3
if #findkind = 0
{
if jjg in %rtype 3
if #findstack <= %criticalleather 2
set %tmp7 %tmp7 + 1
goto sup2
if jjg notin %rtype 3
if #findstack <= %criticalingot 2
set %tmp7 %tmp7 + 1
goto sup2
if %1 = #findcol || %1 = n/a 2
set %resid #findid
goto sup
set %tmp7 %tmp7 + 1
goto sup2
sup3:
set %dif %maxweight - #weight
if %rtype in JJG 4
if %dif >= %dragleather
set %drag %dragleather
if %dif < %dragleather
set %drag %dif
if %rtype in ENK_STO_CUI_BUI 5
set %dif2 %dif * 10
if %dif2 >= %dragingot
set %drag %dragingot
if %dif2 < %dragingot
set %drag %dif2
if %restype = 5 2
set %drag %drag * 2 / 3
set %drag2 %drag * 1 / 3
set %tmp8 1
sup4:
if no in %resourcebag 7
display okcancel Valiantshade says "Time to go shopping. You are out of a material. Press ok to halt, cancel to move to next item"
if ok in #dispres
halt
if cancel in #dispres 3
set #dispres n/a
set %mustskip 1
return
finditem %rtype %tmp8 C_ , %resourcebagid
if #findkind = -1
{
display okcancel Valiantshade says "Ut-Oh, you are out of a material. Press ok to halt, cancel to move to next item"
if ok in #dispres
halt
if cancel in #dispres 3
set #dispres n/a
set %mustskip 1
return
}
if %1 = #findcol || %1 = n/a
goto skip
set %tmp8 %tmp8 + 1
goto sup4
skip:
if %drag > #findstack
set %drag #findstack
event drag #findid
wait %pause1
msg %drag $
wait %pause1
click %backpackx %backpacky p
wait %pause1
goto sup
supbone:
finditem GUF C_ , %backpackid
if #findkind = -1
goto supbone2
if #findstack < 10
goto supbone2
return
supbone2:
if no in %resourcebag 2
display ok Valiantshade says "The shadow wisps miss ya. Go get some bones Foo"
halt
finditem GUF C_ , %resourcebagid
if #findkind = -1 2
display ok Valiantshade says "You are all out of dem bones"
halt
if #findstack < 10 2
display ok Valiantshade says "You are all out of dem bones"
halt
if #findstack < %drag2
set %drag2 #findstack
event drag #findid
wait %pause1
msg %drag2 $
wait %pause1
click %backpackx %backpacky p
wait %pause1
return

sub rescolor
if %tempcolor in %1
return
if %restype <> 2
{
if valorite in %1 2
set %tempcolor valorite
set %rcolor 2219
if verite in %1 2
set %tempcolor verite
set %rcolor 2207
if agapite in %1 2
set %tempcolor agapite
set %rcolor 2425
if gold in %1 2
set %tempcolor gold
set %rcolor 2213
if bronze in %1 2
set %tempcolor bronze
set %rcolor 2418
if copper in %1 2
set %tempcolor copper
set %rcolor 2413
if shadow in %1 2
set %tempcolor shadow
set %rcolor 2406
if dull in %1 2
set %tempcolor dull
set %rcolor 2419
if iron in %1 2
set %tempcolor iron
set %rcolor 0
if leather in %1 2
set %tempcolor leather
set %rcolor 0
if spined in %1 2
set %tempcolor spined
set %rcolor 2220
if horned in %1 2
set %tempcolor horned
set %rcolor 2117
if barbed in %1 2
set %tempcolor barbed
set %rcolor 2129
}
if %restype = 2
{
if red in %1 2
set %tempcolor red
set %rcolor 1645
if yellow in %1 2
set %tempcolor yellow
set %rcolor 2216
if black in %1 2
set %tempcolor black
set %rcolor 1109
if green in %1 2
set %tempcolor green
set %rcolor 2129
if white in %1 2
set %tempcolor white
set %rcolor 2301
if blue in %1 2
set %tempcolor blue
set %rcolor 2224
}
return

sub armash
aah:
chooseskill blacksmith
if dis in %1
{
if #skill > %bskill 3
event macro 24 2
wait 2s
goto aah
return
}
if #skill < %bskill 3
event macro 24 2
wait 2s
goto aah
return

sub setash
chooseskill blacksmith
set %skill #skill
set %bskill %skill + 90
if 0 notin %ashid
return
display ok Target the ASH you want to use (make sure it's not armed)
set #targcurs 1
target
targetloop3:
if #targcurs = 1
goto targetloop3
set %ashid #ltargetid
set #rhandid %ashid
return

sub setbods
display ok When you are ready to Begin targeting bods, press "B"
rew:
onhotkey b
goto req
goto rew
req:
wait 10
key back
for %t 1 %order
{
set %temp1 makekind , %t
set %temp2 maketype , %t
set %temp3 makenum , %t
set %kind % . %temp1
set %sub % . %temp2
set %num % . %temp3
if a in %sub
{
if iron in %kind
set %sba iron
if dull in %kind
set %sba dull
if shadow in %kind
set %sba shadow
if copper in %kind
set %sba copper
if bronze in %kind
set %sba bronze
if gold in %kind
set %sba gold
if agapite in %kind
set %sba agapite
if verite in %kind
set %sba verite
if valorite in %kind
set %sba valorite
}
if b in %sub
{
if leather in %kind
set %sba leather
if spined in %kind
set %sba spined
if horned in %kind
set %sba horned
if barbed in %kind
set %sba barbed
}
if normal in %kind
set %sbb normal
if except in %kind
set %sbb exceptional
gosub %sub
if %restype = 4
set %sba cloth
set %kind2 %sbb , %sba
display okcancel Please target the %num %kind2 %name bod
setuotitle ValSmithOr Target the %num %kind2 %name bod
if cancel in #dispres
set %bodid -1
if ok in #dispres
{
set #targcurs 1
bodtarget:
if #targcurs = 1
goto bodtarget
set %bodid #ltargetid
}
set %temp5 makebod , %t
set % . %temp5 %bodid
}
return

sub fillbods
if %bodid = -1
return
ignoreitem reset
finditem %1 C_ , %backpackid
set %itemnum #findcnt
if %itemnum < 1
set %itemnum 1
if yes in %useash
gosub armash disarm
click 80 460
wait 1s
set #lobjectid %2
event macro 17 0
wait:
if %cont notin #contkind
goto wait
loop3:
for %bd 1 %itemnum
{
bodtarg:
if #targcurs <> 1 2
click 165 250
wait 10
if #targcurs <> 1 3
click 165 180
wait 10
goto bodtarg
finditem %1 C_ , %backpackid
ignoreitem #findid
if #findkind = -1
goto bodendloop
set #ltargetkind 1
set #ltargetid #findid
event macro 22 0
wait %pause2
set %timetemp #scnt + 5
scanjournal 1
if maximum_amount in #journal
goto bodendloop
if item_is_not in #journal
goto bodendloop
newloop:
if #scnt > %timetemp
{
set #lobjectid %2
event macro 17 0
wait 1s
goto bodtarg
}
if %cont notin #contkind
goto newloop
}
bodendloop:
ignoreitem reset
click 165 275
wait 10
click 165 200
wait 1s
set #lobjectid %tool
event macro 17 0
wait 2s
if yes in %useash
gosub armash arm
key esc
return

sub timein
if #time > 000000
menu window title What the hell are you doing up?!? Is crafting REALLY that important?!
if #time > 070000
menu window title Good morning!! Nothing like the smell of ingots and leather in the morning!
if #time > 120000
menu window title Good Afternoon!! Wouldn't you rather be napping than crafting?!
if #time > 180000
menu window title Good Evening!! What's for dinner?! MMMMMMM iron ingots...
if #time > 200000
menu window title It's Late! Do you know where your children are?!
return

sub timeout
if #time > 000000 && #time < 070000 2
display OK It's done. NOW GO TO BED YOU FREAK!! set loser you. Event pathfind bedx bedy 0
halt
if #time > 070000 && #time < 120000 2
display ok All finished. Now go do some real work! GEEZ
halt
if #time > 120000 && #time < 180000 2
Display ok Easy as pie. And speaking of pie. Go eat some before its dinner time.
halt
if #time > 180000 && #time < 200000 2
Display ok What are you doing still at the computer?!?! I'm done. You should be too. GO
halt
if #time > 200000 && #time < 239999 2
Display ok THAT's it. If you don't get your rear in bed. I'm coming over there and kicking it.
halt
return

;===========
; items
;===========

sub a1
set %type NSH
set %name plate_gorget
set %c1 %click4
set %c2 %click3
set %restype 1
return
sub a2
set %type ISH
set %name plate_gloves
set %c1 %click4
set %c2 %click2
set %restype 1
return
sub a3
set %type MSH
set %name plate_arms
set %c1 %click4
set %c2 %click1
set %restype 1
return
sub a4
set %type LSH
set %name plate_legs
set %c1 %click4
set %c2 %click4
set %restype 1
return
sub a5
set %type HSH
set %name plate_tunic
set %c1 %click4
set %c2 %click5
set %restype 1
return
sub a6
set %type MSK
set %name female_plate
set %c1 %click4
set %c2 %click6
set %restype 1
return
sub a7
set %type EWH
set %name dragon_bard
set %c1 %click4
set %c2 %click7
set %restype 1
return
sub a8
set %type DPH
set %name chain_coif
set %c1 %click3
set %c2 %click1
set %restype 1
return
sub a9
set %type APH
set %name chain_leggings
set %c1 %click3
set %c2 %click2
set %restype 1
return
sub a10
set %type ZOH
set %name chain_tunic
set %c1 %click3
set %c2 %click3
set %restype 1
return
sub a11
set %type BMH
set %name ring_gloves
set %c1 %click2
set %c2 %click1
set %restype 1
return
sub a12
set %type XLH
set %name ring_sleeves
set %c1 %click2
set %c2 %click3
set %restype 1
return
sub a13
set %type IMH
set %name ring_leggings
set %c1 %click2
set %c2 %click2
set %restype 1
return
sub a14
set %type WLH
set %name ring_tunic
set %c1 %click2
set %c2 %click4
set %restype 1
return
sub a15
set %type ASH
set %name bascinet
set %c1 %click5
set %c2 %click1
set %restype 1
return
sub a16
set %type ESH
set %name Close
set %c1 %click5
set %c2 %click2
set %restype 1
return
sub a17
set %type GSH
set %name helmet
set %c1 %click5
set %c2 %click3
set %restype 1
return
sub a18
set %type CSH
set %name Norse
set %c1 %click5
set %c2 %click4
set %restype 1
return
sub a19
set %type OSH
set %name plate_helm
set %c1 %click5
set %c2 %click5
set %restype 1
return
sub a20
set %type FIK
set %name buckler
set %c1 %click6
set %c2 %click1
set %restype 1
return
sub a21
set %type GIK
set %name bronze
set %c1 %click6
set %c2 %click2
set %restype 1
return
sub a22
set %type CIK
set %name heater
set %c1 %click6
set %c2 %click3
set %restype 1
return
sub a23
set %type NIK
set %name metal
set %c1 %click6
set %c2 %click4
set %restype 1
return
sub a24
set %type AIK
set %name Metal_kite
set %c1 %click6
set %c2 %click5
set %restype 1
return
sub a25
set %type MIK
set %name tear_kite
set %c1 %click6
set %c2 %click6
set %restype 1
return
sub a26
set %type HLK
set %name chaos
set %c1 %click6
set %c2 %click7
set %restype 1
return
sub a27
set %type CLK
set %name order
set %c1 %click6
set %c2 %click8
set %restype 1
return
sub a28
set %type VTH
set %name hammer_pick
set %c1 %click10
set %c2 %click1
set %restype 1
return
sub a29
set %type YSF
set %name mace
set %c1 %click10
set %c2 %click2
set %restype 1
return
sub a30
set %type BUH
set %name maul
set %c1 %click10
set %c2 %click3
set %restype 1
return
sub a31
set %type AUO
set %name scepter
set %c1 %click10
set %c2 %click4
set %restype 1
return
sub a32
set %type TRH
set %name war_mace
set %c1 %click10
set %c2 %click5
set %restype 1
return
sub a33
set %type ZTH
set %name war_hammer
set %c1 %click10
set %c2 %click6
set %restype 1
return
sub a34
set %type FUO
set %name bone_harvester
set %c1 %click7
set %c2 %click1
set %restype 1
return
sub a35
set %type ATF
set %name broadsword
set %c1 %click7
set %c2 %click2
set %restype 1
return
sub a36
set %type NPO
set %name Crescent_blade
set %c1 %click7
set %c2 %click3
set %restype 1
return
sub a37
set %type JPH
set %name cutlass
set %c1 %click7
set %c2 %click4
set %restype 1
return
sub a38
set %type TSF
set %name dagger
set %c1 %click7
set %c2 %click5
set %restype 1
return
sub a39
set %type NMH
set %name katana
set %c1 %click7
set %c2 %click6
set %restype 1
return
sub a40
set %type VRH
set %name kryss
set %c1 %click7
set %c2 %click7
set %restype 1
return
sub a41
set %type JTF
set %name longsword
set %c1 %click7
set %c2 %click8
set %restype 1
return
sub a42
set %type SOH
set %name scimitar
set %c1 %click7
set %c2 %click9
set %restype 1
return
sub a43
set %type BPH
set %name viking_sword
set %c1 %click7
set %c2 %click10
set %restype 1
return
sub a44
set %type HSF
set %name bardiche
set %c1 %click9
set %c2 %click1
set %restype 1
return
sub a45
set %type ZTO
set %name bladed_staff
set %c1 %click9
set %c2 %click2
set %restype 1
return
sub a46
set %type BUO
set %name dbl_bladed_staff
set %c1 %click9
set %c2 %click3
set %restype 1
return
sub a47
set %type XTH
set %name halberd
set %c1 %click9
set %c2 %click4
set %restype 1
return
sub a48
set %type OPO
set %name lance
set %c1 %click9
set %c2 %click5
set %restype 1
return
sub a49
set %type CUO
set %name pike
set %c1 %click9
set %c2 %click6
set %restype 1
return
sub a50
set %type XRH
set %name short_spear
set %c1 %click9
set %c2 %click7
set %restype 1
return
sub a51
set %type GUO
set %name scythe
set %c1 %click9
set %c2 %click8
set %restype 1
return
sub a52
set %type MTF
set %name spear
set %c1 %click9
set %c2 %click9
set %restype 1
return
sub a53
set %type RRH
set %name war_fork
set %c1 %click9
set %c2 %click10
set %restype 1
return
sub a54
set %type LSF
set %name axe
set %c1 %click8
set %c2 %click1
set %restype 1
return
sub a55
set %type BSF
set %name battle_axe
set %c1 %click8
set %c2 %click2
set %restype 1
return
sub a56
set %type NSF
set %name double_axe
set %c1 %click8
set %c2 %click3
set %restype 1
return
sub a57
set %type ZRF
set %name executioner's_axe
set %c1 %click8
set %c2 %click4
set %restype 1
return
sub a58
set %type RMH
set %name large_battle_axe
set %c1 %click8
set %c2 %click5
set %restype 1
return
sub a59
set %type LPH
set %name two_handed
set %c1 %click8
set %c2 %click6
set %restype 1
return
sub a60
set %type UOH
set %name war_axe
set %c1 %click8
set %c2 %click7
set %restype 1
return
sub a61
set %type RKO
set %name dragon_gloves
set %c1 %click11
set %c2 %click1
set %restype 2
return
sub a62
set %type LKO
set %name dragon_helm
set %c1 %click11
set %c2 %click2
set %restype 2
return
sub a63
set %type DLO
set %name dragon_sleeves
set %c1 %click11
set %c2 %click4
set %restype 2
return
sub a64
set %type NKO
set %name dragon_leggings
set %c1 %click11
set %c2 %click3
set %restype 2
return
sub a65
set %type PKO
set %name dragon_breastplate
set %c1 %click11
set %c2 %click5
set %restype 2
return
sub b1
set %type JKH
set %name leather_gorget
set %c1 %click7
set %c2 %click1
set %restype 3
return
sub b2
set %type KKH
set %name leather_gloves
set %c1 %click7
set %c2 %click3
set %restype 3
return
sub b3
set %type PKH
set %name leather_sleeves
set %c1 %click7
set %c2 %click4
set %restype 3
return
sub b4
set %type VKH
set %name leather_leggings
set %c1 %click7
set %c2 %click5
set %restype 3
return
sub b5
set %type QKH
set %name leather_tunic
set %c1 %click7
set %c2 %click6
set %restype 3
return
sub b6
set %type NJL
set %name leather_cap
set %c1 %click7
set %c2 %click2
set %restype 3
return
sub b7
set %type QSK
set %name leather_shorts
set %c1 %click9
set %c2 %click1
set %restype 3
return
sub b8
set %type YSK
set %name leather_skirt
set %c1 %click9
set %c2 %click2
set %restype 3
return
sub b9
set %type ATK
set %name leather_bustier
set %c1 %click9
set %c2 %click3
set %restype 3
return
sub b10
set %type USK
set %name studded_bustier
set %c1 %click9
set %c2 %click4
set %restype 3
return
sub b11
set %type OSK
set %name female_leather_armor
set %c1 %click9
set %c2 %click5
set %restype 3
return
sub b12
set %type SSK
set %name female_studded_armor
set %c1 %click9
set %c2 %click6
set %restype 3
return
sub b13
set %type XVL
set %name doublet
set %c1 %click3
set %c2 %click1
set %restype 4
return
sub b14
set %type FCI
set %name shirt
set %c1 %click3
set %c2 %click2
set %restype 4
return
sub b15
set %type TQL
set %name fancy_shirt
set %c1 %click3
set %c2 %click3
set %restype 4
return
sub b16
set %type HCM
set %name tunic
set %c1 %click3
set %c2 %click4
set %restype 4
return
sub b17
set %type PAM
set %name surcoat
set %c1 %click3
set %c2 %click5
set %restype 4
return
sub b18
set %type DWL
set %name plain_dress
set %c1 %click3
set %c2 %click6
set %restype 4
return
sub b19
set %type EWL
set %name fancy_dress
set %c1 %click3
set %c2 %click7
set %restype 4
return
sub b20
set %type DCI
set %name cloak
set %c1 %click3
set %c2 %click8
set %restype 4
return
sub b21
set %type FWL
set %name robe
set %c1 %click3
set %c2 %click9
set %restype 4
return
sub b22
set %type XBM
set %name jester's_suit
set %c1 %click3
set %c2 %click10
set %restype 4
return
sub b23
set %type CZH
set %name skullcap
set %c1 %click2
set %c2 %click1
set %restype 4
return
sub b24
set %type GZH
set %name bandana
set %c1 %click2
set %c2 %click2
set %restype 4
return
sub b25
set %type BWI
set %name floppy_hat
set %c1 %click2
set %c2 %click3
set %restype 4
return
sub b26
set %type VVI
set %name cap
set %c1 %click2
set %c2 %click4
set %restype 4
return
sub b27
set %type WVI
set %name wide_brim
set %c1 %click2
set %c2 %click5
set %restype 4
return
sub b28
set %type XVI
set %name straw_hat
set %c1 %click2
set %c2 %click6
set %restype 4
return
sub b29
set %type YVI
set %name tall_straw_hat
set %c1 %click2
set %c2 %click7
set %restype 4
return
sub b30
set %type IWI
set %name wizards_hat
set %c1 %click2
set %c2 %click8
set %restype 4
return
sub b31
set %type HWI
set %name bonnet
set %c1 %click2
set %c2 %click9
set %restype 4
return
sub b32
set %type KWI
set %name feathered_hat
set %c1 %click2
set %c2 %click10
set %restype 4
return
sub b33
set %type JWI
set %name tricorne_hat
set %c1 %click2
set %c2 %click1
set %restype 4
return
sub b34
set %type EWI
set %name jester_hat
set %c1 %click2
set %c2 %click2
set %restype 4
return
sub b35
set %type NVI
set %name sandals
set %c1 %click6
set %c2 %click1
set %restype 3
return
sub b36
set %type PWI
set %name shoes
set %c1 %click6
set %c2 %click2
set %restype 3
return
sub b37
set %type TVI
set %name boots
set %c1 %click6
set %c2 %click3
set %restype 3
return
sub b38
set %type ZVI
set %name thigh_boots
set %c1 %click6
set %c2 %click4
set %restype 3
return
sub b39
set %type FZH
set %name body_sash
set %c1 %click5
set %c2 %click1
set %restype 4
return
sub b40
set %type XDI
set %name half_apron
set %c1 %click5
set %c2 %click2
set %restype 4
return
sub b41
set %type RDI
set %name Full_apron
set %c1 %click5
set %c2 %click3
set %restype 4
return
sub b42
set %type RTI
set %name oil_cloth
set %c1 %click5
set %c2 %click4
set %restype 4
return
sub b43
set %type ALH
set %name studded_gorget
set %c1 %click8
set %c2 %click1
set %restype 3
return
sub b44
set %type XKH
set %name studded_glove
set %c1 %click8
set %c2 %click2
set %restype 3
return
sub b45
set %type GLH
set %name studded_sleeves
set %c1 %click8
set %c2 %click3
set %restype 3
return
sub b46
set %type MLH
set %name studded_leggings
set %c1 %click8
set %c2 %click4
set %restype 3
return
sub b47
set %type LLH
set %name studded_tunic
set %c1 %click8
set %c2 %click5
set %restype 3
return
sub b48
set %type ZPH
set %name bone_helmet
set %c1 %click10
set %c2 %click1
set %restype 5
return
sub b49
set %type AQH
set %name bone_gloves
set %c1 %click10
set %c2 %click2
set %restype 5
return
sub b50
set %type QPH
set %name bone_arms
set %c1 %click10
set %c2 %click3
set %restype 5
return
sub b51
set %type CQH
set %name bone_leggings
set %c1 %click10
set %c2 %click4
set %restype 5
return
sub b52
set %type PPH
set %name bone_armor
set %c1 %click10
set %c2 %click5
set %restype 5
return
sub b53
set %type EDI
set %name short_pants
set %c1 %click4
set %c2 %click1
set %restype 4
return
sub b54
set %name long_pants
set %type VDI
set %c1 %click4
set %c2 %click2
set %restype 4
return
sub b55
set %type LDI
set %name Kilt
set %c1 %click4
set %c2 %click3
set %restype 4
return
sub b56
set %type GCI
set %name Skirt
set %c1 %click4
set %c2 %click4
set %restype 4
return
sub c1
set %cnum 6
set %ctype1 a1
set %ctype2 a2
set %ctype3 a3
set %ctype4 a4
set %ctype5 a5
set %ctype6 a19
return
sub c2
set %cnum 3
set %ctype1 a8
set %ctype2 a9
set %ctype3 a10
return
sub c3
set %cnum 4
set %ctype1 a11
set %ctype2 a12
set %ctype3 a13
set %ctype4 a14
return
sub c4
set %cnum 6
set %ctype1 a54
set %ctype2 a55
set %ctype3 a56
set %ctype4 a57
set %ctype5 a58
set %ctype6 a59
return
sub c5
set %cnum 6
set %ctype1 a37
set %ctype2 a41
set %ctype3 a42
set %ctype4 a43
set %ctype5 a39
set %ctype6 a35
return
sub c6
set %cnum 5
set %ctype1 a38
set %ctype2 a40
set %ctype3 a50
set %ctype4 a53
set %ctype5 a52
return
sub c7
set %cnum 6
set %ctype1 a29
set %ctype2 a30
set %ctype3 a33
set %ctype4 a32
set %ctype5 a60
set %ctype6 a28
return
sub c8
set %cnum 2
set %ctype1 a44
set %ctype2 a47
return
sub c9
set %cnum 6
set %ctype1 b1
set %ctype2 b2
set %ctype3 b3
set %ctype4 b4
set %ctype5 b5
set %ctype6 b6
return
sub c10
set %cnum 6
set %ctype1 b7
set %ctype2 b8
set %ctype3 b9
set %ctype4 b10
set %ctype5 b11
set %ctype6 b12
return
sub c11
set %cnum 5
set %ctype1 b48
set %ctype2 b49
set %ctype3 b50
set %ctype4 b51
set %ctype5 b52
return
sub c12
set %cnum 5
set %ctype1 b43
set %ctype2 b44
set %ctype3 b45
set %ctype4 b46
set %ctype5 b47
return
sub c13
set %cnum 4
set %ctype1 b38
set %ctype2 b14
set %ctype3 b24
set %ctype4 b56
return
sub c14
set %cnum 4
set %ctype1 b36
set %ctype2 b23
set %ctype3 b55
set %ctype4 b13
return
sub c15
set %cnum 4
set %ctype1 b36
set %ctype2 b34
set %ctype3 b22
set %ctype4 b20
return
sub c16
set %cnum 4
set %ctype1 b37
set %ctype2 b28
set %ctype3 b54
set %ctype4 b16
return
sub c17
set %cnum 4
set %ctype1 b37
set %ctype2 b21
set %ctype3 b30
set %ctype4 b39
return
sub c18
set %cnum 4
set %ctype1 b35
set %ctype2 b25
set %ctype3 b18
set %ctype4 b41
return
sub c19
set %cnum 4
set %ctype1 b35
set %ctype2 b19
set %ctype3 b31
set %ctype4 b40
return
sub c20
set %cnum 5
set %ctype1 b38
set %ctype2 b32
set %ctype3 b17
set %ctype4 b15
set %ctype5 b53
return
sub c21
set %cnum 4
set %ctype1 b33
set %ctype2 b29
set %ctype3 b26
set %ctype4 b27
return
sub c22
set %cnum 4
set %ctype1 b35
set %ctype2 b36
set %ctype3 b37
set %ctype4 b38
return

Yea, dont know anything about OCR. Im just now learning how to mess with plain ol EUO scripts again after a long hiatus. Also tried out the stealth client that TrailMyx mentioned to me a few days ago.. but wasnt sure where to go with that either. Will give KalOrc a try.. and guess I got some learning to do. Thanks for the help everyone.