Yoko

Code: Select all

sub main()
VAR S = 5 ; дистанция
VAR G, K
UO.Set( 'finddistance', 'S' )
DIM Mobs[5]
      Mobs[0] = '0x9999'
      Mobs[1] = '0x9999'
      Mobs[2] = '0x9999'
      Mobs[3] = '0x9999'
      Mobs[4] = '0x9999'
   For G = 0 To 3
dim Xm[20]
dim Ym[20] 
   For K = 0 To 18 
               UO.FindType(Mobs[G],'-1','1')
         If UO.FindCount() Then 
  For X=-S to S 
     For Y=-S to S 
            Repeat
               UO.WaitTargetGround(Mobs[G],'-1')
                  UO.AddObject('Vrag')
               Xm[20] = UO.GetX('Vrag')
               Ym[20] = UO.GetY('Vrag')
                  UO.Ignore('Vrag')
               UO.FindType(Mobs[G],'-1','1')
            Until UO.FindCount()
               UO.IgnoreReset()
         Else
            UO.Print("Free !!!")
               Return 0
         End If
               UO.FindType(Mobs[G],'-1','1')
   Xmob = ( Xm[0] + Xm[1] + Xm[2] + Xm[3] + Xm[4] + Xm[5] + Xm[6] + Xm[7] + Xm[8] + Xm[9] + Xm[10] + Xm[11] + Xm[12] + Xm[13] + Xm[14] + Xm[15] + Xm[16] + Xm[17] + Xm[18] + Xm[19] ) * (-1)
   Ymob = ( Ym[0] + Ym[1] + Ym[2] + Ym[3] + Ym[4] + Ym[5] + Ym[6] + Ym[7] + Ym[8] + Ym[9] + Ym[10] + Ym[11] + Ym[12] + Ym[13] + Ym[14] + Ym[15] + Ym[16] + Ym[17] + Ym[18] + Ym[19] ) * (-1)
            Next
         Next
      Next
   Next
GoToTile( Xmob, Ymob, 1, False )
End Sub

Sub GoToTile( OX, OY, N, S )
...
...
End Sub