1
Combat/Healing/Looting / Re: TrailMyx's Advanced CLAw FULL - The Ultimate Autolooter - Public Release!
« on: January 09, 2021, 06:21:24 PM »
I have used this script daily for years it is absolutely one of the best. Thank You again!
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
;==================================
; Script Name: Bolts -> Bandages
; Purpose: transfers Bolts to normal Bandages
;==================================
display ok Target your resource container:
set #targcurs 1
repeat
wait 1
until #targcurs = 0
set %secure #ltargetid
;set %secure HEROXRD ; set here the id of your resource container
;Items Vars
set %scissors KAG
set %cloth CUI
Set %bolt ZZF
Set %Bandage ZLF
; Wait Timer feel free to adjust if you have timing related Error Msg.
Set %DelayEvent 20 ; Waittime for Event Macro Function
Set %DelayDrag 15 ; Waittime before Object Movement
Set %DelayDrop 10 ; Waittime after Object Movement
Set %Delay 5 ; Waittime
finditem %scissors C_ , #backpackid
if #findkind = -1
halt
set %scissors #findid
finditem %secure
while #findkind = -1
{
event macro 1 0 bank
wait %DelayEvent
finditem %secure
}
if #contid <> %secure
{
set #lobjectid %secure
event macro 17 0
while #contid <> %secure
{
wait %Delay
}
wait %DelayEvent
}
finditem %bolt C_ , %secure
while #findkind <> -1
{
set %dragamount #maxweight - #weight
set %dragamount %dragamount / 5
set %dragamount %dragamount - 1
if #findstack < %dragamount
set %dragamount #findstack
if %dragamount <> 0
{
exevent drag #findid %dragamount
wait %DelayDrag
exevent dropc #backpackid
wait %DelayDrop
}
finditem %bolt C_ , #backpackid
if #findkind <> -1
{
for #findindex 1 #findcnt
{
set #lobjectid %scissors
event macro 17 0
target 20
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
wait %DelayEvent
}
}
finditem %cloth C_ , #backpackid
if #findkind <> -1
{
for #findindex 1 #findcnt
{
set #lobjectid %scissors
event macro 17 0
target 20
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
wait %DelayEvent
}
}
finditem %bandage G_2
if #findcnt > 0
{
for #findindex 1 #findcnt
{
exevent drag #findid #findstack
wait %DelayEvent
exevent dropc %secure
wait %DelayEvent
}
}
gosub dragcleanbandage
finditem %Bolt C_ , %secure
}
return
sub dragcleanbandage
finditem %Bandage C_ , #backpackid
while #findkind <> -1
{
exevent drag #findid #findstack
wait %DelayDrag
exevent dropc %secure
wait %DelayDrop
finditem %Bandage C_ , #backpackid
}
return
;==================================
; Script Name: Bolt's -> Bandages
; Purpose: transfers Bolts to normal Bandages
;==================================
display ok Target your resource container:
set #targcurs 1
repeat
wait 1
until #targcurs = 0
set %secure #ltargetid
;set %secure HEROXRD ; set here the id of your resource container
;Items Vars
set %scissors KAG
set %cloth CUI
Set %bolt ZZF
Set %Bandage ZLF
; Wait Timer feel free to adjust if you have timing related Error Msg.
Set %DelayEvent 20 ; Waittime for Event Macro Function
Set %DelayDrag 15 ; Waittime before Object Movement
Set %DelayDrop 10 ; Waittime after Object Movement
Set %Delay 5 ; Waittime
finditem %scissors C_ , #backpackid
if #findkind = -1
halt
set %scissors #findid
finditem %secure
while #findkind = -1
{
event macro 1 0 bank
wait %DelayEvent
finditem %secure
}
if #contid <> %secure
{
set #lobjectid %secure
event macro 17 0
while #contid <> %secure
{
wait %Delay
}
wait %DelayEvent
}
finditem %bolt C_ , %secure
while #findkind <> -1
{
set %dragamount #maxweight - #weight
set %dragamount %dragamount / 5
set %dragamount %dragamount - 1
if #findstack < %dragamount
set %dragamount #findstack
if %dragamount <> 0
{
exevent drag #findid %dragamount
wait %DelayDrag
exevent dropc #backpackid
wait %DelayDrop
}
finditem %bolt C_ , #backpackid
if #findkind <> -1
{
for #findindex 1 #findcnt
{
set #lobjectid %scissors
event macro 17 0
target 20
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
wait %DelayEvent
}
}
finditem %cloth C_ , #backpackid
if #findkind <> -1
{
for #findindex 1 #findcnt
{
set #lobjectid %scissors
event macro 17 0
target 20
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
wait %DelayEvent
}
}
gosub dragcleanbandage
finditem %cloth C_ , %secure
}
gosub dragcleanbandage
halt
sub dragcleanbandage
finditem %Bandage C_ , #backpackid
while #findkind <> -1
{
exevent drag #findid #findstack
wait %DelayDrag
exevent dropc %secure
wait %DelayDrop
finditem %Bandage C_ , #backpackid
}
return
;==================================
; Script Name: bolts -> cloth
; Purpose: transfers bolts of cloth to nomral cloth
;==================================
display ok Target your resource container:
set #targcurs 1
repeat
wait 1
until #targcurs = 0
set %secure #ltargetid
;set %secure HEROXRD ; set here the id of your resource container
set %scissors KAG
set %cloth CUI
Set %bolt ZZF
Set %Bandage ZLF
finditem %scissors C_ , #backpackid
if #findkind = -1
halt
set %scissors #findid
finditem %secure
while #findkind = -1
{
event macro 1 0 bank
wait 20
finditem %secure
}
if #contid <> %secure
{
set #lobjectid %secure
event macro 17 0
while #contid <> %secure
{
wait 1
}
wait 20
}
finditem %bolt C_ , %secure
while #findkind <> -1
{
set %dragamount #maxweight - #weight
set %dragamount %dragamount / 5
set %dragamount %dragamount - 1
if #findstack < %dragamount
set %dragamount #findstack
if %dragamount <> 0
{
exevent drag #findid %dragamount
wait 3
exevent dropc #backpackid
wait 7
}
finditem %bolt C_ , #backpackid
if #findkind <> -1
{
for #findindex 1 #findcnt
{
set #lobjectid %scissors
event macro 17 0
target 20
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
}
}
finditem %bolt C_ , #backpackid
if #findkind <> -1
{
for #findindex 1 #findcnt
{
set #lobjectid %scissors
event macro 17 0
target 20
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
}
}
gosub dragcloth
finditem %Bolt C_ , %secure
}
gosub dragcloth
halt
sub dragcloth
finditem %Cloth C_ , #backpackid
while #findkind <> -1
{
exevent drag #findid #findstack
wait 3
exevent dropc %secure
wait 7
finditem %Cloth C_ , #backpackid
}
return
;==================================
; Script Name: Cloth -> Bandages
; Purpose: transfers Cloth to normal Bandages
;==================================
display ok Target your resource container:
set #targcurs 1
repeat
wait 1
until #targcurs = 0
set %secure #ltargetid
;set %secure HEROXRD ; set here the id of your resource container
set %scissors KAG
set %cloth CUI
Set %bolt ZZF
Set %Bandage ZLF
finditem %scissors C_ , #backpackid
if #findkind = -1
halt
set %scissors #findid
finditem %secure
while #findkind = -1
{
event macro 1 0 bank
wait 20
finditem %secure
}
if #contid <> %secure
{
set #lobjectid %secure
event macro 17 0
while #contid <> %secure
{
wait 1
}
wait 20
}
finditem %cloth C_ , %secure
while #findkind <> -1
{
set %dragamount #maxweight - #weight
set %dragamount %dragamount / 5
set %dragamount %dragamount - 1
if #findstack < %dragamount
set %dragamount #findstack
if %dragamount <> 0
{
exevent drag #findid %dragamount
wait 3
exevent dropc #backpackid
wait 7
}
finditem %cloth C_ , #backpackid
if #findkind <> -1
{
for #findindex 1 #findcnt
{
set #lobjectid %scissors
event macro 17 0
target 20
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
}
}
finditem %cloth C_ , #backpackid
if #findkind <> -1
{
for #findindex 1 #findcnt
{
set #lobjectid %scissors
event macro 17 0
target 20
set #ltargetid #findid
set #ltargetkind 1
event macro 22 0
}
}
gosub dragcleanbandage
finditem %cloth C_ , %secure
}
gosub dragcleanbandage
halt
sub dragcleanbandage
finditem %Bandage C_ , #backpackid
while #findkind <> -1
{
exevent drag #findid #findstack
wait 3
exevent dropc %secure
wait 7
finditem %Bandage C_ , #backpackid
}
return