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