Okay, the point of this sub is to take leftover gold in my backpack, drop it in a secure IN my bank. Then drag 2500 gold out of the secure IN my bank and drop it in my backpack.
Its taking it out of my pack fine, but the nit tells me I am out of gold (when I have over 1 mill in gold in the secure in my bank.)
set %gold POF
Display Ok Select Supply Container IN BANK.
set #targcurs 1
while #targcurs = 1
wait 1
set %secure #ltargetID
set #lobjectID #ltargetID
event macro 17
wait 20
gosub getgold
Sub GetGold
Finditem POF C_ , #backpackid
exevent drag #findid #findstack
exevent dropc %secure
finditem POF C_ , %secure
if #findkind = 0
{
display You are done. You are out of Gold.
halt
}
exevent drag #findid 2500
wait 10
exevent dropc #BackpackID
wait 20
Return