Yoko

sub podschet()
   var fl=1
   var tip,name="",chis=0
   uo.print('Conteiner dly podscheta?')
   uo.exec('addobject cont')
   while uo.targeting()
      wait(100)
   wend
   uo.textclear()
   uo.textopen()
   uo.useobject('cont')
   wait(1000)
   while fl==1
      uo.findtype('-1','-1','cont')
      if uo.findcount() then
         uo.click('finditem')
         while name==""
            name=uo.getname('finditem')
            wait(10)
         wend
         tip=uo.GetGraphic('finditem')
         uo.findtype(tip,'-1','cont')
         while uo.findcount()
            chis=uo.getquantity('finditem')+chis
            uo.ignore('finditem')
            uo.findtype(tip,'-1','cont')
         wend
         uo.textprint(name+"  общее количество:  "+str(chis))
      else
         fl=0 
      endif
      name=""
      chis=0
   wend
   uo.ignorereset()
endsub

VAR ob = '0x40E56F9B' ; ID предмета
VAR X=20 ; требуемое количество
sub ItemCond()
var name
UO.TextOpen()
UO.TextClear()
uo.DeleteJournal( )
UO.Click( ob )
wait(1000)
name = UO.GetName( ob )
name = explode (name, '[', 1)
name = explode (name, ']', 0)
if val(name) == X then ; изменить на нужный знак
UO.TextPrint( name )
else
UO.TextPrint( 'Не равно заданному значению.' )
endif
endsub 

Sub explode( string, pattern, num )
var i, counter = 0, entry = 0
for i=0 to strlen( string ) -strlen( pattern )
   if mid( string, i, strlen( pattern ) ) == pattern then
      counter = counter + 1
      if num == counter-1 then
         return mid( string, entry, i-entry )
      endif
      entry = i + strlen( pattern )
   endif
next
if entry == 0 then
   return false
endif
return mid( string, entry, strlen(string)-entry )
endsub

VAR ob = '0x40CB5744'
VAR X
sub ItemCond()
var name
UO.TextOpen()
UO.TextClear()
uo.DeleteJournal( )
UO.Click( ob )
wait(1000)
name = UO.GetName( ob )
name = explode (name, '[', 1)
name = explode (name, ']', 0)
X=val(name)
X=X+X
UO.TextPrint( x )
endsub 

name = UO.GetName( ob )
name = explode (name, '[', 1)
name = explode (name, ']', 0)
X=val(name)
X=X+X

sub schet()
var tip = 'тип вещи'
var bag, name, ob
var X = 0
   uo.exec('addobject bag')
   while uo.targeting()
      wait(100)
   wend
         repeat
            Uo.UseObject('bag')
               wait(50)
                  Uo.FindType(tip,'-1','bag')
                     If Uo.FindCount() then
                       ob = Uo.GetSerial('finditem')
                       Uo.Click( ob )
                          wait(300)
                        name = UO.GetName( ob )
                     name = explode (name, '[', 1)
                     name = explode (name, ']', 0)
                     X = val(name)
                     X = X + X
                     Uo.Ignore( ob )
                     ob = 0
                     Uo.Print(''+str(x))
                  else
                     Uo.Print("Íå íàéäåí " +str(tip))
                  end if
            wait(50)
      until NOT Uo.Count(tip,'-1','bag')
Uo.Print("Âñåãî " +str(x))
end sub 

                     name = explode (name, '[', 1)
                     name = explode (name, 'iner', 0)

                     name = explode (name, '[', 1)
                     name = explode (name, 'iner', 0)

sub schet()
var tip = ''
var bag, name, ob
var X = 0
   uo.exec('addobject bag')
   while uo.targeting()
      wait(100)
   wend
         repeat
            Uo.UseObject('bag')
               wait(50)
                  Uo.FindType(tip,'-1','bag')
                     If Uo.FindCount() then
                       ob = Uo.GetSerial('finditem')
                       Uo.Click( ob )
                        name = UO.GetName( ob )
                           name = explode (name, '[', 1)
                           name = explode (name, 'inerf', 0) # После этой строки проц просто под 80% начинает гудеть
                     X = val(name)
                     X = X + X
                     Uo.Ignore( ob )
                     ob = 0
                  else
                     Uo.Print("Íå íàéäåí " +str(tip))
                  end if
            wait(50)
      until NOT Uo.Count(tip,'-1','bag')
Uo.Print("Âñåãî " +str(x))
end sub

VAR ob = '0x40E56F9B' ; ID предмета
VAR X
sub ItemCond()
var name
UO.TextOpen()
UO.TextClear()
uo.DeleteJournal( )
UO.Click( ob )
wait(1000)
name = UO.GetName( ob )
name = explode (name, '[', 1)
name = explode (name, ']', 0)
X = val(name)
UO.TextPrint( X )
endsub

Sub explode( string, pattern, num )
var i, counter = 0, entry = 0
for i=0 to strlen( string ) -strlen( pattern )
   if mid( string, i, strlen( pattern ) ) == pattern then
      counter = counter + 1
      if num == counter-1 then
         return mid( string, entry, i-entry )
      endif
      entry = i + strlen( pattern )
   endif
next
if entry == 0 then
   return false
endif
return mid( string, entry, strlen(string)-entry )
endsub

sub schet()
   var bag, name, cond, ob
   var X = 0
   var Y = 0
   UO.IgnoreReset()
   UO.TextOpen()
   UO.TextClear()
   uo.DeleteJournal( )
   uo.exec('addobject bag')
   while uo.targeting()
      wait(100)
   wend
   Uo.UseObject('bag')
   wait(1000)
   UO.FindType( -1, -1,'bag')
   repeat
      ob = Uo.GetSerial('finditem')
      Uo.Click( ob )
      wait(500)
      name = UO.GetName( ob )
      cond = name
      cond = explode (cond, '[', 1)
      cond = explode (cond, ']', 0)
      X = X+val(cond)
      Y=Y+1
      UO.TextPrint('Название= ' +name +'. Прочность= ' +cond)
      Uo.Ignore( ob )
      UO.FindType( -1, -1,'bag')
      wait(500)
   until NOT Uo.FindCount()
   UO.TextPrint("Всего объектов = " +str(Y))
   UO.TextPrint("Общая прочность = " +str(X))
end sub
Sub explode( string, pattern, num )
   var i, counter = 0, entry = 0
   for i=0 to strlen( string ) -strlen( pattern )
      if mid( string, i, strlen( pattern ) ) == pattern then
         counter = counter + 1
         if num == counter-1 then
            return mid( string, entry, i-entry )
         endif
         entry = i + strlen( pattern )
      endif
   next
   if entry == 0 then
      return false
   endif
   return mid( string, entry, strlen(string)-entry )
endsub