;==================================
; 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
;==================================
; 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
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
}
;==================================
; 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 -> 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