VAR Meshok   = '0x0E76';тип мешка
VAR MeshSer, d, LastTimer, timemove
var havka      = '0x097B'
var lootwait = 50
var printcolour = '1069'
VAR HIDE = 1; если 1 прячемся, если 0 нет.
VAR t=1
sub dobor_regs()
   var n, x, y = 50, z
   var BEKBag = '0x40FAAB3F'
   var REGBag = '0x40FA9EA6'
   Dim r[8]
   r[1] = '0x0F88'
   r[2] = '0x0F86'
   r[3] = '0x0F8D'
   r[4] = '0x0F8C'
   r[5] = '0x0F84'
   r[6] = '0x0F85'
   r[7] = '0x0F7B'
   r[8] = '0x0F7A'
   uo.useobject(BEKBag)
   wait(300)
   uo.useobject(REGBag)
   wait(300)
   For n = 1 To 8
      UO.FindType( r[n] , -1 ,'my')
      x = UO.GetQuantity('finditem')
      if x>y then
         z = x - y
         UO.FindType( r[n] , -1 ,'my')
         UO.MoveItem( 'finditem', str(z) , REGBag)
         wait(300)
      endif
      if x<y then
         z = y - x
         UO.FindType( r[n] , -1 ,REGBag)
         UO.MoveItem( 'finditem', str(z) , BEKBag) 
         wait(300)
      endif
   next
end sub
Sub REZ()
   var body = '0x2006'
   var dagger = '0x0F51'
   var corpse
   UO.Set('quiet','1')
   ;uo.ignorereset()
   uo.set('finddistance', '3')
   UO.filterspeech('clear')
   UO.filterspeech('add','[Surprize ! Fast loot detected!]')
   UO.filterspeech('add','[Зафиксирована ловкость рук]')
   UO.filterspeech('on')
   uo.findtype(body, -1, 'ground')
   if uo.findcount() and Uo.GetDistance( 'finditem' ) < 3  then
      var x = uo.GetGraphic(uo.ObjAtLayer('Lhand'))
      var y = uo.GetGraphic(uo.ObjAtLayer('Rhand'))
      uo.warmode(0)
      wait(500)
      corpse = uo.getSerial("finditem")
      UO.WaitTargetObject(corpse)
      UO.UseType(dagger)
      wait(1000)
      uo.Equipt('Lhand',x)
      uo.Equipt('Rhand',y) 
      Loot()
      uo.warmode(1)
   endif
   UO.Set('quiet','0')
end sub
Sub Loot()
   ;uo.ignorereset()
   var a, hair, reg, colhides
   VAR Scissors = '0x0F9E'
   VAR hides = '0x1078'
   DIM G[7]
   G[1] = '0x0EED'; деньги
   G[2] = '0x0E76'; мешки
   G[3] = '0x09AA'; пандоры
   G[4] = '0x1BFB'; болты
   G[5] = '0x0F3F'; стрелы
   G[6] = '0x1087'; серьги
   G[7] = '0x108A'; кольца
   var body = '0x2006'
   var bones = '0x0ECA'
   var corpse
   UO.Set('quiet','1')
   uo.set('finddistance', '3')
   UO.filterspeech('clear')
   UO.filterspeech('add','[Surprize ! Fast loot detected!]')
   UO.filterspeech('add','[Зафиксирована ловкость рук]')
   UO.filterspeech('on')
   uo.findtype(bones, -1, 'ground')
   findcorps()
   corpse = findcorps()
   if corpse <> 0xFFFFFFFF and corpse <> 0x00000000 then
      uo.deletejournal()
      uo.useobject(corpse)
      wait(300)
      if NOT uo.injournal("You can't do it here") then
         GrabLoot(corpse)
         For hair = 0x203B to 0x204D
            UO.FindType(hair, -1, corpse)
            if UO.FindCount() then
               UO.Ignore('finditem')
            endif
         next
         ignor(corpse)
         UO.FindType( -1, -1, corpse )
         while UO.FindCount()
            if UO.Count ( uo.GetGraphic('finditem') ) < 1 then               
               timemove=UO.Timer()
               while UO.ContainerOf( UO.GetSerial('finditem') )==corpse && timemove+20>UO.Timer() 
                  uo.moveitem('finditem','0','backpack',30,150,0)
                  wait(lootwait)
               wend
            else
               timemove=UO.Timer()
               while UO.ContainerOf( UO.GetSerial('finditem') )==corpse  && timemove+20>UO.Timer() 
                  uo.moveitem('finditem','0','backpack')
                  wait(lootwait)
               wend
            endif
            UO.FindType( -1, -1, corpse )
         wend
      endif
      UO.Hide(corpse)
      UO.Ignore(corpse)
   else
      For a=1 to 7
         UO.FindType(G[a],-1,'ground')
         while UO.FindCount()
            uo.moveitem('finditem','0','backpack',30,150,0)
            wait(lootwait)
            UO.FindType(G[a],-1,'ground') 
         wend
      next
   endif
   If UO.Hidden() and UO.Count ( Scissors ) > 0 Then
      While UO.Count( hides )>0
         colhides = uo.getColor('^0x1078')
         uo.waittargettype( hides )
         uo.usetype( Scissors )
         wait(300)
         UO.FindType('0x1067', colhides, 'backpack')
         if UO.FindCount() then
            UO.MoveItem('finditem', 0, 'backpack', 30, 150, 0)
            wait(100)
         endif
      wend
   EndIf
   UO.Set('quiet','0')
endsub
Sub findcorps()
   VAR a
   DIM body[2] 
   body[1]='0x0ECA';
   body[2]='0x2006';
   For a=1 to 2
      UO.FindType(body[a],-1,'ground')
      if UO.FindCount() then
         return uo.getSerial('finditem')
      endif
   next
   return 0
endsub
Sub ignor(corpse)
   var reg,ribs
   For reg = 0xF7A to 0xF7B
      UO.FindType(reg, -1, corpse)
      if UO.FindCount() then
         UO.Ignore('finditem')
      endif
   next
   For reg = 0xF84 to 0xF86
      UO.FindType(reg, -1, corpse)
      if UO.FindCount() then
         UO.Ignore('finditem')
      endif
   next
   For reg = 0xF88 to 0xF88
      UO.FindType(reg, -1, corpse)
      if UO.FindCount() then
         UO.Ignore('finditem')
      endif
   next
   For reg = 0xF8C to 0xF8D
      UO.FindType(reg, -1, corpse)
      if UO.FindCount() then
         UO.Ignore('finditem')
      endif
   next
   For ribs = 0x09F1 to 0x09F2 ; cuts of raw ribs
      UO.FindType(reg, -1, corpse)
      if UO.FindCount() then
         UO.Ignore('finditem')
      endif
   next
endsub
Sub GrabLoot(corps)
   var pack = 'backpack'
   ;uo.charprint(printcolour,'лутим типы')
   PUTLoot('0x1869', '0', corps, pack,'','','')   ; ЭНЧАНТ
   PUTLoot('0x09AA', '0x0834', corps, pack,'','','')   ; Пандора 10 Лв.
   PUTLoot('0x09AA', '0x0833', corps, pack,'','','')   ; Пандора 9 Лв.
   PUTLoot('0x09AA', '0x0832', corps, pack,'','','')   ; Пандора 8 Лв.
   PUTLoot('0x09AA', '0x08EA', corps, pack,'','','')   ; Пандора 7 Лв.
   PUTLoot('0x09AA', '0x08C1', corps, pack,'','','')   ; Пандора 6 Лв.
   PUTLoot('0x13B1', '0x099F', corps, pack,'150','170','0')   ; Exc.Rangers Bow
   PUTLoot('0x13B1', '0x05D8', corps, pack,'150','160','0')   ; Rangers bow
   PUTLoot('0x0A3E', '0', corps, pack,'160','170','0')   ; шкатулка
   PUTLoot(-1, '0x086C', corps, pack,'','','')   ; хантер вещи
   PUTLoot(-1, '0x099F', corps, pack,'','','')   ; ренжер вещи
   PUTLoot(-1, '0x0358', corps, pack,'','','')   ; рат вещи
   PUTLoot2(0x1869, 0x1870, '-1', corps, pack,'','','')      ; шарики
   PUTLoot('0x0EED', '0', corps, pack,'','','')   ; золото
   PUTLoot2(0x1E88, 0x1E89, '-1', corps, pack,'','','')      ; мясо драконов и демонов
   PUTLoot2(0x1E8E, 0x1E8F, '-1', corps, pack,'','','')      ; жаренное мясо драконов и демонов
   PUTLoot('0x09B5', '0', corps, pack,'','','')   ; змеиные яйца
   PUTLoot('0x0EE3', '0', corps, pack,'','','')   ; паутинка
   PUTLoot2(0x1085, 0x108b, '-1', corps, pack,'','','')      ; бижутерия
   PUTLoot2(0x1f05, 0x1f0a, '-1', corps, pack,'','','')      ; бижутерия
   PUTLoot2(0xf0f, 0xf30, '-1', corps, pack,'','','')      ; камни
   PUTLoot2(0x1f5d, 0x1f6c, '0', corps, pack,'','','')      ; scroll 7-8
   PUTLoot(-1, '0x0991', corps, pack,'','','')   ; руины
   PUTLoot('0x9aa', '-1', corps, pack,10,170,0)      ; пандоры
   PUTLoot(-1, '0x0482', corps, pack,'','','')   ; серебрянные вещи
endsub
Sub LAG()
   UO.Set('quiet','1')
   UO.IgnoreReset()
   UO.Set('finddistance', '3')
   repeat
      UO.FindType(-1,-1,'ground')
      if UO.FindCount('finditem') then
         UO.MoveItem('finditem', 0, 'backpack')
         wait(200)
         UO.Ignore('finditem')
      else
         UO.IgnoreReset()
         return
      endif
   until UO.Dead()
   UO.Set('quiet','0')
end sub
sub sort()
   uo.exec ("moveitem '_0x0EFA' '0' 'backpack' 25 20 0");spellbook 
   wait(500)
   uo.exec ("moveitem '_0x0F9E' '0' 'backpack' 40 20 0");Silver Scissors
   wait(500)
   uo.exec ("moveitem '_0x1012' '0' 'backpack' 25 20 0");Key
   wait(500)
   uo.exec ("moveitem '_0x1012' '0' 'backpack' 25 23 0");Key
   wait(500)
   uo.exec ("moveitem '_0x0E9B' '0' 'backpack' 50 20 0");ступка
   wait(500)
   uo.exec ("moveitem '0x40380220' '0' 'backpack' 170 20 0");руна
   wait(500)
   uo.exec ("moveitem '0x40F03AEC' '0' 'backpack' 150 20 0");руна
   wait(500)
   uo.exec ("moveitem '0x40F03791' '0' 'backpack' 160 20 0");руна
   wait(500)
   uo.exec ("moveitem '^0x0A3E' '0' 'backpack' 160 170 0");сундук
end sub
Sub RecallBR() 
   UO.WarMode ( '0' )   ; МИР 
   uo.Cast('Recall','0x40F03791') ; ID руны 
end sub
Sub PUTLoot2(Type1, Type2, Color, SourceContainer, TargetContainer,X,Y,Z)
   ;uo.ignorereset()
   for TType = Type1 to Type2
      PUTLoot(TType, Color, SourceContainer, TargetContainer,X,Y,Z)
   next
endsub
Sub PUTLoot(Type, Color, SourceContainer, TargetContainer,X,Y,Z)
   ;uo.ignorereset()
   UO.FindType(Type, Color, SourceContainer)
   while UO.FindCount()
      if (TargetContainer=='ground') then
         uo.MoveItem('finditem',0,TargetContainer,uo.GetX('self'),uo.GetY('self'),uo.GetZ('self'))
      else
         timemove=UO.Timer()
         while UO.ContainerOf( UO.GetSerial('finditem') )==SourceContainer && timemove+20>UO.Timer() 
            uo.MoveItem('finditem',0,TargetContainer,X,Y,Z)
            wait(lootwait)
         wend
      end if
      UO.FindType(Type, Color, SourceContainer)
   wend
end sub
Sub Hide()
   VAR LastTimer, n=0, HidFlag=1
   if UO.Hidden() then
      HidFlag=0
   else
   end if
   while HidFlag
      DeleteJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well")
      LastTimer=UO.Timer()
      UO.WarMode(0)
      UO.UseSkill('Hiding')
      repeat
         wait(50)
      until UO.InJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well") || LastTimer+50<UO.Timer()
      if UO.InJournal("0xA5F8|удачно|You have hidden yourself well") then
         HidFlag=0
      else
         n=n+1
         if n>3 then
            UO.Set('quiet','0')
            UO.Print('Спрятаться не получается, происходит что-то тревожное и непонятное, готовься к смерти, неудачнег!')
            UO.Set('quiet','1')
            MyTerminate()
         end if
      end if
   wend
end sub
Sub DeleteJournal(msg)
   While UO.InJournal(msg)
      UO.SetJournalLine(UO.InJournal(msg) - 1,'')
   wend
endsub
Sub MyTerminate()
   UO.Set('quiet','1')
   UO.CancelMenu()
   UO.IgnoreReset()
   UO.Set('quiet','0')
   UO.Exec('terminate all')
end sub
Sub checklag()
   DeleteJournal("ackpack")
   UO.Click("backpack")
   repeat
      wait(100)
   until UO.InJournal("ackpack")
end sub
sub GMstep()
   If UO.Dead() Then
      UO.Print("You are Dead")
      Return
   End If
   If UO.GetGlobal('GMstepCheck')=='on' Then
      UO.SetGlobal('GMstepCheck','off')
      UO.Print("GM Step: Off")
      UO.Morph('0')
   Else
      UO.SetGlobal('GMstepCheck','on')
      UO.Print("GM Step: On")
      UO.Morph('0x03DB')
      Wait(100)
      UO.Msg(".resync")
   End If
end sub
Sub Gong(times) ; play wav-file
   VAR i
   for i=1 to times
      UO.Exec("playwav C:\WINDOWS\Media\ringin.wav")
      wait(500) ; time to play sample at once
   next
end sub
Sub RUS()  
   uo.fontcolor (0x03c6)  
   uo.msg ('||||||||||||||||||||||||||||||||||||||||')  
   uo.fontcolor (0x00c6)  
   uo.msg ('||||||||||||||||||||||||||||||||||||||||')  
   uo.fontcolor (0x008a)  
   uo.msg ('||||||||||||||||||||||||||||||||||||||||')  
   uo.fontcolor (0x0035)  
end sub