1
Inactive Submissions / Tramstone's Leather Imbue Picker
« on: June 18, 2011, 01:14:18 AM »
This is my 1st real script!
Now i am not sure how it will handle different screen resolutions and if you have moved any of your crafting gumps but it should work just fine. Let me know if you find any bugs or if you would like to see some nicety's as this script is the basics only.
It is working flawlessly for me but it has only been tested on one other machine and I need feedback to find any "other machine" issues.
Now i am not sure how it will handle different screen resolutions and if you have moved any of your crafting gumps but it should work just fine. Let me know if you find any bugs or if you would like to see some nicety's as this script is the basics only.
It is working flawlessly for me but it has only been tested on one other machine and I need feedback to find any "other machine" issues.
Code: [Select]
Tramstone's Leather Imbue Picker
; Author: Tramoonstone
; Version: 1,0
; This script will find NPC value resists on tailor made leather armor for imbueing
;What you need:
;1 secure to save possible imbueables
;1 secure with leather "Note the script will currently use ALL leather types"
;So be sure you dont have horned or barbed in the resource secure or main pack!
;1 salvage bag in your main pack
;Have sewing kits in your pack as the script does not make more!
;Make one of the items you want the script to make so it is the make last item
;BE SURE that there are NO armor pices in you pack when you start(including the one you used to set make last)
;What it does:
;makes one leather armor piece at a time and evaluates it for NPC values
;If it has an NPC value or one really high it will drop it to a keep secure if not to a salvage bag
;when out of leather will restock from the secure
;when getting overloaded will use salvage bag
set %sewingkit HAG
set %itemtomake KDZ_LDZ_YGY_AHY_JKH_KKH_HKH_QKH_NJL_VKH_ZIQ_LJQ_JJQ_GJQ_MJQ_LLH_ALH_XKH_MLH_YKH_XGY_NGY_UGY_TGY_ZGY_WGY
set %material JJG
gosub setup
loop:
gosub weightcheck
gosub resourcechck
gosub makeone
wait 10
gosub checkone
goto loop
sub setup
event macro 31
wait 20
event macro 8 2
contpos 700 400
wait 20
set #nextcposx 400
set #nextcposy 0
wait 20
event macro 8 7
wait 20
set %backpackID #contid
wait 20
msg open keep secure ID now $
set #nextcposx 625
set #nextcposy 0
wait 100
set %keeppack #lObjectID
wait 20
msg open salvage bag ID now $
set #nextcposx 850
set #nextcposy 0
wait 100
set %cutpack #lObjectID
wait 20
msg open resource secure now $
set #nextcposx 850
set #nextcposy 200
wait 100
set %resourceid #lObjectID
wait 20
event macro 13 21
wait 200
return
sub makeone
finditem %sewingkit C_ , %backpackID
event property #findid
set #lobjectid #findid
wait 20
event macro 17
wait 50
click 335 505
return
sub checkone
finditem %itemtomake C_ , %backpackID
event property #findid
if exceptional notin #property
{
finditem %itemtomake C_ , %backpackID
exevent drag #findid
wait 6
exevent dropc %cutpack
wait 6
return
}
if 14% in #property || 2% in #property || 3% in #property || 4% in #property
{
finditem %itemtomake C_ , %backpackID
exevent drag #findid
wait 6
exevent dropc %keeppack
wait 6
return
}
else
{
finditem %itemtomake C_ , %backpackID
exevent drag #findid
wait 6
exevent dropc %cutpack
wait 6
return
}
sub resourcechck
finditem %material C_ , %backpackID
if #findstack < 15 || #findkind = -1
{
wait 20
set #nextcposx 400
set #nextcposy 0
event macro 8 7
wait 30
finditem %cutpack C_ , %backpackID
set #lobjectid #findid
set #nextcposx 850
set #nextcposy 0
event macro 17
finditem %material C_ , %resourceid
wait 10
event drag #findid
wait 20
msg 100 $
wait 20
click 565 785
wait 10
return
}
else
return
sub weightcheck
if #weight > 300
{
wait 20
event macro 8 7
wait 30
click 470 75
wait 30
click 500 100
wait 30
finditem %cutpack C_ , %backpackID
set #lobjectid #findid
set #nextcposx 850
set #nextcposy 0
event macro 17
return
}
else
return