sub Blank()
  var Time = UO.Timer()
  While true
    If Time + 540 <= UO.Timer() then
      Time = UO.Timer()
      UO.Buy('reg', 'Halima')
      Wait(3000)
      UO.Buy('reg', 'Neron')
      Wait(3000)
     else
      Wait(100)
    Endif
    Stealth()
  Wend
Endsub

Sub Stealth()
  var msg = 'have hidden|seem to hide', Time, Delay = 10
  While not UO.Hidden()
    DelJournal(msg)
    Time = UO.Timer()
    UO.UseSkill('Hiding')
    Repeat
      Wait(100)
    Until UO.InJournal(msg) or UO.Hidden() or Time + Delay * 10 <= UO.Timer()
  Wend
Endsub

Sub DelJournal(msg)
  While UO.InJournal(msg)
    UO.SetJournalLine(UO.InJournal(msg) - 1, '')
  Wend
Endsub

var item1 = 'тип первого предмета'
var item2 = 'тип второго предмета'
var item3 = 'тип третьего предмета'
var Sund = 'ID контейнера куда складывать'
var itemM, timemove
sub Blank()
   //////////
   //////////
   Stealth()
   PUT(item1 , Sund)
   PUT(item2 , Sund)
   PUT(item3 , Sund)
  Wend
Endsub
Sub PUT(item, cont)
   while UO.Count( item ) > 0
      UO.FindType( item, -1, -1 )
      itemM=UO.GetSerial('finditem')
      timemove=UO.Timer()
      UO.MoveItem( 'finditem', 0, cont )
      while UO.ContainerOf(itemM)=='my' && timemove+20>UO.Timer()
         wait(300)
      wend
   wend
end sub

if uo.life < uo.str - 30 then 
Uo.Say("GUARDS"); 
endif 

  While not UO.Hidden()
    if uo.life < uo.str then 
        Uo.Say("GUARDS"); 
    endif
    DelJournal(msg)
    Time = UO.Timer()
    UO.UseSkill('Hiding')