gosub SendItems POF_UJG
stop
;-----------------------------------
; %1 - items to send
; uses %weightwarn = #TRUE to indicate an overweight warning has been issued.
; set to #FALSE to enable another warning.
; Works on OSI & RunUO
;
; TrailMyx, Cerveza
sub SendItems
namespace push
namespace local SI
set !bos_items %1
SendItems_loop1:
finditem CKF C_ , #BACKPACKID
if #FINDKIND <> -1
{
event property #FINDID
if sending notin #PROPERTY
{
ignoreitem #FINDID
goto SendItems_loop1
}
set !bagofsending #FINDID
SendItems_loop2:
finditem !bos_items C_ , #BACKPACKID
if #FINDKIND <> -1
{
event property !bagofsending
str pos #PROPERTY Charges:
set #STRRES #STRRES + 9
str mid #PROPERTY #STRRES 1
if #STRRES = 0 ; as in zero charges
{
ignoreitem !bagofsending
goto SendItems_loop1
}
set #LOBJECTID !bagofsending
set #LTARGETID #FINDID
set #LTARGETKIND 1
event macro 17
wait 10
target 5s
event macro 22
wait 10
ignoreitem #FINDID
set %weightwarn #FALSE
goto SendItems_loop2
}
else
{
if ( #WEIGHT > ( #MAXWEIGHT - 10 ) ) || ( #WEIGHT > 425 )
{
display ok You are nearly overweight, but you have no selected$items to send. Please unload manually.
set %weightwarn #TRUE
namespace pop
return
}
}
}
else
{
display ok No valid bags of sending in your main pack.$Please unload manually.
set %weightwarn #TRUE
namespace pop
return
}
set %weightwarn #FALSE
namespace pop
return