Похоже проблема с findtype (находит одного медвежонка)

[Edikus]

Пытаюсь смастерить скрипт на таминг и убийство с подходом и автонахождением зверушки. По мере написания и сдирания скриптов с форума выявилась ошибка в скрипте которая перегружает Ультиму так как один и тотже медвежонок находится нное количетво раз. Я уже расставил в скрипте время чтобы посмотреть на каком Этапе он сглюкивает но не получается найти Это место в скрипте:

Code: Select all

sub f22() 

Var Vics=0x00d4 
Var Vic 
var myX=UO.GetX() 
var myY=UO.GetY() 
var lastX=myX 
var lastY=myY 
uo.set( "finddistance" , "8" ) 
repeat 
   uo.FindType(Vics,-1, "ground" ) 
   if uo.FindCount() then 
     Vic=UO.GetSerial('finditem') 
      if uo.isNPC(Vic)==0 then 
         repeat 
            if uo.getdistance(Vic)>1 then 
               MoveTo(1,1,Vic) 
            end if 
            wait(10000)
            uo.attack(Vic) #для начала аттака потом сюда блок таминга вставится
            wait(10000) 
            endif 
               until uo.GetX(Vic)<1 
         wait(10000) 
       uo.forget(Vic) 
      endif 
   endif 
   #if uo.gety()>1375 then 
   #      GotoXY(5306,1288) 
   #      wait(100) 
   # endif 
    wait(10000) 
until uo.gethp()<100 
end sub

пишет на всю длинну окна ультимы повторно "items found 1" и вылетает, где может находится ошибка?

[Destruction]

Отступы выстави и найдёшь ошибку.

Да поможет тебе моя подпись.

PS: Вы действительно думаете, что людям которые захотят вам помочь - будет удобно читать ваш код с таким-то оформлением ?