sub BuM() 

   var c, aim, pushka 

   uo.print('Укажите сундук с ядрами') 
   uo.addobject('Sunduk') 
   while uo.targeting() 
     wait(100) 
   wend 
   uo.useobject('Sunduk') 
   wait(1000) 
   checklag() 
   uo.set('finddistance', '3') 
   uo.findtype('0x0E91', '-1', '1') 
   if uo.findcount() then 
     pushka = uo.getserial('finditem') 
   else 
     uo.print('Net puhi') 
     return 
   endif 
   uo.ignore('self') 
   uo.set('finddistance', '15') 
   DIM Chars[2] 
   Chars[0] = '0x0190' #тип игрока мужского пола# 
   Chars[1] = '0x0191' #тип игрока женского пола# 
repeat 
     for c = 0 to 1    
       uo.findtype(Chars[c], '-1', 'ground') 
          if uo.findcount() then 
            aim = uo.getserial('finditem') 
            uo.findtype('0x0e73', '-1', 'Sunduk') 
            if not uo.findcount() then 
              uo.print('Net yader') 
              return 
            else 
              uo.waittargetobject( pushka, aim ) 
              uo.useobject('finditem')
              uo.playwav("C:\WINDOWS\Media\notify.wav")
              wait(3000) 
                    if uo.Waiting() then 
                        uo.canceltarget() 
                    end if 
         endif 
       else 
         wait(200) 
       endif 
     next 
until 0==1
end sub 

sub checklag() 
   uo.click('backpack') 
   while not uo.injournal('backpack') 
     wait(100) 
   wend 
   uo.deletejournal('backpack') 
end sub