Догонялка Опции

[DontStop]

Есть у кого нибудь догонялка на изи работающая через EVENT MACRO 5 х ?
Или есть шарящие люди, которые смогут сделать такой скрипт по аналогии инжектовского?

Код

sub Stela()                                                
var dx, dy, dist, k
k=0
UO.DeleteJournal()                                            
while NOT UO.Dead('lastattack') and NOT UO.Dead('self')        
     dx=UO.GetX('lastattack')-UO.GetX()                            
     dy=UO.GetY('lastattack')-UO.GetY() 
     dist=uo.getdistance('lastattack')
if dist>k then
          if dx==0 then                                           
               if dy>0 then                                                  
                    UO.Press(35)                                                  
               else                                                          
                    if dy<0 then                                                  
                      UO.Press(33)                                                  
                   end if 
                                                
               end if                                                        
          end if                                                        
if dx>0 then                                                  
  if dy>0 then                                                  
     UO.Press(40)                                                  
  else   
    if dy<0 then              
                              
     UO.Press(39)                                                  
      else                                                          
     UO.Press(34)                                                  
    end if                                                        
  end if                                                        
end if                                                        
if dx<0 then                                                  
  if dy>0 then                                                  
   UO.Press(37)                                                  
  else                                                          
    if dy<0 then                                                  
     UO.Press(38)                                                  
    else                                         
           
     UO.Press(36)                                                  
    end if                                                        
  end if                                                        
end if   
end if
end if
wait(1)
wend      
end sub