Версия для печати темы

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

        set %cowtype _ng_ig_
        set %searchrange 7
      finditem %cowtype G_ , %searchrange
      set %cowid #findid
        movetocow:
        finditem %cowid
      if #finddist > 2
      {
             move #findx #findy 1 1s
          goto movetocow
      }