Yoko

sub main()
  UO.Print('Select Character') 
  UO.Exec('addobject CharObj') 
  While UO.Targeting() 
    Wait(100) 
  Wend
  If UO.GetSerial('CharObj')=='0x00000000' then
    Return
  EndIf
  UO.IgnoreReset()
  Repeat
    UO.FindType('0x0E75', '-1', 'CharObj')
    While UO.FindCount()>0
      If UO.GetLayer('finditem')=='Bpack' Then
        UO.Print("I found it! It's serial "+UO.GetSerial('finditem'))
        Return
      EndIf
      UO.Ignore('finditem')
    Wend
  Until UO.FindCount()<2
end sub