This is submitted on behalf of redrum with his permission. It's a pretty simple script, but it occasionally suffers a hiccup or two. It will send silver, at predetermined quantities to the bank with a bag of sending. It will also recharge your bag of sending if you have powder.
It's very easily modified to send and count anything. I use it for a variety of my farming needs and have like a dozen variations saved.
All credit for this script belongs to redrum and anyone he gave credit to. All I did was save it on my computer and test it for him.
; ########################################
; Script Name: Redrum's Silver Farming Bag Of Sending
; Author: Redrum
; Version: 1.0
; Client Tested with: Lastes Patch
; EUO version tested with: 1.5 Version 147
; Shard OSI / FS: OSI/FS
; Revision Date:
; Public Release: 4-9-2009
; Purpose: Send Silver Over 2,000 To Bank With Bag Of Sending
; ########################################
event macro 8 7
set %backpackID #contid
set %mainpack #contid
set %loot cpf
set %chargesused 0
set %silversent 0
gosub menu
loop:
finditem CPF C_ , #BACKPACKID
if #FINDCNT > 0
{
if #findstack > 1500
{
gosub bagofsending
}
}
if #FINDCNT < 1
{
}
goto loop
sub bagofsending
findbag:
finditem CKF C_ , %mainpack
event property #findid
if sending notin #property
{
ignoreitem #findid
goto findbag
}
if #findkind = -1
{
display ok You must have a Bag of Sending on you. $
halt
}
set %bagofsending #findid
finditem %loot C_ , %backpackID
set %silver #findid
if #findkind = -1
{
}
set %findstack #findstack
set #lobjectid %bagofsending
set #ltargetid %silver
set #ltargetkind 1
event macro 17
target 2s
event macro 22
scanJournal 1
if out_of_charges in #journal
{
gosub refill
set %findstack 0
}
set %silversent %silversent + %findstack
set %findstack 0
set %chargesused %chargesused + 1
gosub menu
return
sub refill
finditem EUO
if #findkind = -1
{
display ok You are out of charges and have no powder. You need to restock. $
halt
}
set #lobjectid #findid
event macro 17
wait 1s
set #ltargetid %bagofsending
set #ltargetkind 1
event macro 22
set %wait FALSE
return
sub menu
menu clear
menu show 0 0
menu window size 130 60
menu window title BOS
menu window color black
menu font color red
menu font bgcolor black
menu font style u
menu text stats 5 5 Bag of Sending Stats
menu font style n
menu text gold 5 25 Silver Sent:
menu text charges 5 40 Charges Used:
menu font align right
menu text sent 125 25 %silversent
menu text used 125 40 %chargesused
return
