добираем реги или пример для мува

[Nmy]

Final version:

Code: Select all

sub REGS()
VAR amount = 75
VAR r, q, RegBag = 0x400E8802
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.msg('You dont have any!')
        return
       endif
       
      uo.moveitem('finditem', STR(q) ,'backpack')
      wait(400)
      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

вот решыл что мне надо регов добирать а не просто брать 50...
получилось
те кто хорошо знают инжектор это не новость, может для других даже очень пригодится...

[Scripts Writer]

Code: Select all

       q = 50 - uo.count( reg[r] )

а я наивный раньше по 50 добирал )

[Nmy]

немного поправил на

Code: Select all

if q <> 0 AND q > 0 then

если в минус- то он берёт все
он так больше небудет

[Scripts Writer]

немного поправил на

Code: Select all

if q <> 0 AND q > 0 then

если в минус- то он берёт все
он так больше небудет

Допиши -если q < 0 , тогда пусть выложит лишнее.
После ПвП порой полезно выложить 300 каждого рега, и добрать 48 одного.

2Что у тебя с табуляцией?
Ты незнаешь как правильно делать или тебе так проще? =)
Скрипт не читабелен.

[Nmy]

Code: Select all

sub check()
VAR r, q, RegBag = 0x400E8802
Dim reg[3]
reg[1] = 0x0F7B
reg[2] = 0x0F86
reg[3] = 0x0F7A
 uo.ignorereset()
 if uo.count(reg[1])<>50 or uo.count(reg[2])<>50 or uo.count(reg[3])<>50 then
  uo.useobject( RegBag )
  CheckLag()  
    For r = 1 to 3
    uo.findtype(reg[r], -1 , RegBag )    
   If uo.findcount() == 0 then
    uo.msg('oops!')
    uo.exec('terminate all')
   endif   
    q = 50 - uo.count( reg[r] )    
    if q <> 0 then
     if q > 0 then     
      uo.moveitem('finditem', STR(q) ,'backpack')
      wait(400)
      CheckLag()      
      else     
      q = q*-1      
      uo.findtype(reg[r], -1 ,'my')
      uo.moveitem('finditem', STR(q) , RegBag )
      wait(400)
      CheckLag()      
     endif
    endif
    next
 endif
end sub

мне главное идея, а прочитать свои скрипты всегда легче- вот и собственно неволнуюсь

если хочется все 8 рега:

Code: Select all

sub REGS()
VAR amount = 75
VAR r, q, RegBag = 0x400E8802
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.msg('You dont have any!')
        return
       endif
       
      uo.moveitem('finditem', STR(q) ,'backpack')
      wait(400)
      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

прелесть

[Scripts Writer]

Кому трудно читать, и в дальнейшем это вызовет сложности с редактированием и настройкой скрипта под себя-вот код )

п.с. хм, странно. уже о такой мелочи стал заботиться ...

Code: Select all

sub REGS() 
VAR amount = 75 
VAR r, q, RegBag = 0x400E8802 
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.msg('You dont have any!') 
          return 
        endif 
        uo.moveitem('finditem', STR(q) ,'backpack') 
        wait(400) 
        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

[Edred]

п.с. хм, странно. уже о такой мелочи стал заботиться ...

Это называется - взросление

[Mihail]

[:|||:]

Code: Select all

sub Regs() 
VAR i=0 , t, k 
var kol=150 #количество 
uo.addobject('sunduk') 
while uo.targeting() 
wait(100) 
wend 
DIM Regs[8] 
Regs[0]='0x0F7A'      ; Black Pearl 
Regs[1]='0x0F7B'      ; Bood Moss 
Regs[2]='0x0F86'      ; Mandrake Root 
Regs[3]='0x0F84'      ; garlic 
Regs[4]='0x0F85'      ; Ginseng 
Regs[5]='0x0F88'      ; Night Shade 
Regs[6]='0x0F8C'      ; Sulphorous Ash 
Regs[7]='0x0F8D'      ; Spiders Silk 
for i = 0 to 7 
t=uo.random(5)*10+510 
uo.useobject('sunduk') 
checklag() 
UO.FindType(Regs[i],'-1','sunduk') 
k= kol - uo.count(Regs[i]) 
if not k<=0 then 
UO.MoveItem('finditem',k) 
checklag() 
wait(t) 
else 
if k<0 then 
k=k*(-1) 
end if 
k=k+kol 
uo.print('>= '+str(kol)+' ('+str(k)+')') 
end if 
next 
uo.print('##move regs complite') 
end sub 

а мона еще усовершенствовать сделав массив вида

Code: Select all

Regs[0]='0x0F7A Black Pearl'
Regs[1]='0x0F7B Bood Moss'

и если больше заданного количества, то пишет

Code: Select all

uo.print(Right(Regs[i],len(Regs[i])-7)+' is '+str(uo.count(Regs[i])))

типа того..
будет выглядеть как
[Название реагента] is [кол-во реагента]
:)