sub main()
   VAR Sunduk = "0x4009E91A"
   VAR bytil = "0x0F0E"
   VAR reg = "0x0F85"
   VAR pestik = "0x0E9B"
   VAR lesepoison = "0x0F0C"
   var  LastTimer
     UO.Set('norbcalc',1)
     UO.Set('norbcheck',1)
     
     
   While TRUE
    LastTimer=uo.Timer() 
  
      If  UO.Count( reg ) < 4 Then
         UO.FindType( reg, '-1', Sunduk )
         If not UO.FindCount() Then
             UO.Print("Больше ресов нет!!!!")
             uo.exec('terminate all')
             uo.print ("все скрипты завершены")
             return
         Endif
         UO.Grab( '300', 'finditem' )
         wait(1000)
         checklag()
      Endif
   
      UO.DeleteJournal()
     
      wait(300)
      UO.UseType( pestik )
      UO.OnGump('0x0004f288','0x0000003a','13')
      UO.Recall('0x0000003b','802')
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail')or uo.Timer()>LastTimer+300
         wait( 1000 )
      wend
      checklag()
      if UO.Count( lesepoison ) > 100 then
          UO.WaitTargetType( lesepoison )
          uo.useobject('0x40019B11')
          wait( 1000 )
          checklag()
      endif
   Wend
  wait(100)
end sub
sub Checklag()
   deljournal('a backpack')
   uo.click('backpack')
   repeat
      wait(50)
   until uo.injournal('a backpack')
endsub
sub deljournal(msg)
   while uo.injournal(msg)
      uo.setjournalline(uo.injournal(msg)-1,"")
   wend
endsub