Yoko

Шард The Abyss!!!
Я заметил такую вещь, при гме допустим лумбера, при использовании топора нужно вводить код потверждения, можно ли как нить на скрипте это обойти?

up

скрипт уже как год наверное валяется...

спс буду искать)

угу нашел уже))) Спасибо большое Грин! ))

это на всякий случай тем кто тож будет искать

sub antimacro() 

   var x, y 
    
   while  not uo.Dead() 
      if (uo.LastGump('replyed') == 0) and (uo.LastGump('text', 0)  == 'Please choose this number:') then 
         x = uo.LastGump('x') 
         y = uo.LastGump('y') 
         uo.LClick(x+120, y+185+what()*35) 
         wait(1000) 
      end if 
      wait(100) 
   wend 

end sub 
       
sub what() 

   var i, score, index, temp, st 
   dim x[11], y[11] 
   dim nm[3] 
    
   for i = 3 to 12 
      st = uo.LastGump('command', i) 
      x[i-2] = val(mid(st, 8, 3)) 
      y[i-2] = val(mid(st, 12, 3)) 
   next 
   for i = 0 to 2 
      nm[i] = val(uo.LastGump('text', i+1)) 
   next 
   score = 10000 
   index = 0 
   for i = 0 to 2 
      temp = numberscore(nm[i], x, y) 
      if score > temp then 
         score = temp 
         index = i 
      endif 
   next 
   return index 

end sub 

sub numberscore(num, x, y) 

   dim Sings[10] 
   var cheking = 1 
   var n, i, total = 0 
   dim xv[2], yv[2], point[3] 
    
   Sings[2] = "080910080506" 
   Sings[3] = "040706060708" 
   Sings[5] = "040506060708" 
   Sings[6] = "070910050608" 
   Sings[8] = "030506060709" 
   Sings[9] = "040607050807" 
    
   for n = 0 to 1 
      for i = 0 to 2 
         point[i] = val(mid(Sings[num], n*6+i*2, 2)) 
      next 
      for i = 0 to 1 
         xv[i] = x[point[i]]-x[point[i+1]] 
         yv[i] = y[point[i]]-y[point[i+1]] 
      next 
      total = total+anglscore(xv, yv) 
   next 
   return total 

endsub 
       
sub anglscore(x, y) 

   var xy1 = x[0]*y[0] 
   var xy2 = x[1]*y[1] 
   var t = xy1+xy2 
    
   x[0] = x[0]+y[0] 
   x[1] = x[1]+y[1] 
   return 100*t*t/((x[0]*x[0]-2*xy1)*(x[1]*x[1]-2*xy2)) 

end sub