Yoko

Sub REGS() 
 
#uo.exec('addobject symka') 
#while uo.targeting() 
#wait(100) 
#wend 
VAR amount = 10 
VAR r, q
#VAR RegBag = 0x416D75BB # ICE
VAR RegBag = 0x4019722A  # DECPISE
Dim reg[8] 
reg[1] = 0x0F84 
reg[2] = 0x0F85 
reg[3] = 0x0F86 
reg[4] = 0x0F7A 
reg[5] = 0x0F7B 
reg[6] = 0x0F8C 
reg[7] = 0x0F8D 
reg[8] = 0x0F88 
uo.ignorereset() 



 For r = 1 to 8 
 if uo.count( reg[r] )<>amount then 
  q = amount - uo.count( reg[r] ) 
  
   if q <> 0 then 
     if q > 0 then 
      
      uo.useobject( RegBag ) 
      CheckLag() 
      uo.findtype( reg[r] , -1 , RegBag ) 
      
       If uo.findcount() == 0 then 
        uo.print('нехватает реагента!') 
        return 
       endif 
        
      uo.moveitem('finditem', STR(q) ,'backpack') 
      wait(100) 
      CheckLag() 
      
        else    
      
      q = q*-1      
     uo.findtype( reg[r] , -1 ,'my') 
     uo.moveitem('finditem', STR(q) , RegBag ) 
     wait(400) 
     CheckLag() 
           endif 
   endif 
     endif 
 next 
uo.print('!! -= Done =- !!') 
end sub

var N = 3
DIM reagent_packs[ val( str( N ) ) ]
reagent_packs[ 0 ] = "0x00000000"
reagent_packs[ 1 ] = "0x00000000"
reagent_packs[ 2 ] = "0x00000000"
for i = 0 to N -1
   ; если мало регов
   ; добираем реги из сумки reagent_pack[ i ]
   ; иначе
   ; i = N -1 - выход из цикла.
next

ищешь по типу на полу
если нашел то
  сравниваешь ид найденной и из массива
иначе 
  ищешь другую

Sub REGS() 
 
 
VAR amount = 110 
VAR r, q,i

Dim item[2] 
item[0]='type_bag_1' 
item[1]='type_bag_2' 
for i=0 to 1 

Dim reg[8] 

reg[1] = 0x0F84 
reg[2] = 0x0F85 
reg[3] = 0x0F86 
reg[4] = 0x0F7A 
reg[5] = 0x0F7B 
reg[6] = 0x0F8C 
reg[7] = 0x0F8D 
reg[8] = 0x0F88 
uo.ignorereset() 


uo.findtype(item[i],-1,'ground') 
if uo.findcount('finditem') then 
uo.useobject(findeitem)
#что тут писать?
#и как сделать чтою
return 
end if 
 For r = 1 to 8 
 if uo.count( reg[r] )<>amount then 
  q = amount - uo.count( reg[r] ) 
  
   if q <> 0 then 
     if q > 0 then 
      
     # uo.useobject(RegBag) 
      CheckLag() 
      uo.findtype( reg[r] , -1 , item[i] ) 
      
       If uo.findcount() == 0 then 
        uo.print('нехватает реагента!') 
        return 
       endif 
        
      uo.moveitem('finditem', STR(q) ,'backpack') 
      wait(100) 
      CheckLag() 
      
        else    
      
      q = q*-1      
     uo.findtype( reg[r] , -1 ,'my') 
     uo.moveitem('finditem', STR(q) , item[i]) 
     wait(400) 
     CheckLag() 
      
     endif 
   endif 
    
 endif 
 next 
uo.print('!! -= Done =- !!') 
end sub

Ну вот у меня работает скрипт выкладывает если больше и добирает...


sub Regipo50Shtuk()
uo.useobject ('0x400cc6a3') 
wait(3000) 
#Реги 
CheckLag()
getreg('0x0F7B',(50-UO.BM),50)#BM 
CheckLag()
getreg('0x0F7A',(50-UO.BP),50)#BP
CheckLag() 
getreg('0x0F84',(50-UO.GA),50)#GA 
CheckLag() 
getreg('0x0F85',(50-UO.GS),50)#GI
CheckLag()
getreg('0x0F86',(50-UO.MR),50)#MR
CheckLag()
getreg('0x0F88',(50-UO.NS),50)#NS 
CheckLag()
getreg('0x0F8C',(50-UO.SA),50)#SA 
CheckLag()
getreg('0x0F8D',(50-UO.SS),50)#SS 
#Свитки 
#Алхимия 
end sub 

sub getreg(reg, kol, kol1) 
if kol>0 then 
UO.FindType(reg,'0x0000','meshok') 
UO.Grab(Str(kol),'finditem') 
wait(700) 
 UO.MoveItem("finditem", "0","backpack", "150", "150", "150")  
endif 
if kol<0 then 
UO.FindType(reg,'0x0000','backpack') 
UO.SetReceivingContainer('meshok')
UO.Grab(Str(UO.GetQuantity('finditem')-kol1),'finditem')
wait(700)
UO.MoveItem("finditem", "0","0x400cc6a3", "120", "120", "120")  
UO.UnSetReceivingContainer() 
endif 
end sub 


sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub