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