sub getoff()
  if uo.InJournal('guard') then
    uo.Say('bank')
    uo.FindType(log,'-1','backpack')
    while uo.Count(log) > 0
      uo.moveitem('finditem','200','lastcontainer')
      wait(1000)
    wend
  end if
end sub

sub Regs()
var i

  DIM reg[3]

reg[0]=''
reg[1]=''
reg[2]=''
for i = 0 to 2
  uo.FindType(reg[i],'-1','backpack')
  if uo.FindCount() then
    wait(100)
  else
    uo.Say('bank')  
    uo.FindType(reg[i],'-1','lastcontainer')
    if uo.FindCount() then
      uo.moveitem('finditem','100')
      wait(1000)
    end if
  end if
next
end sub