Yoko

Code: Select all

If Walker(x,y,0) then
  UO.SetGlobal(str(x) + ',' + str(y), 'ok')
Endif

Code: Select all

Sub asd()
  var a, i
  var string = VectorPoints(startx, starty, endx, endy)
  i = GetWord(string, 1)
  For a = 2 to 2 * i step 2
    UO.PrivateGetTile(GetWord(string, a), GetWord(string, a + 1), blablabla)
  Next
Endsub

Code: Select all

Sub VectorPoints(startx, starty, endx, endy)
  var Coordinates = ' ', Amount = 0, Vector, x, y, i, j
  Vector = (str(endx - startx) + ',' + str(endy - starty))
  If startx >= endx then
    i = -1
   else
    i = 1
  Endif
  If starty >= endy then
    j = -1
   else
    j = 1
  Endif
  For x = startx to endx step i
    For y = starty to endy step j
      If IsOnVector(x, y, startx, starty, endx, endy) then
        Amount = Amount + 1
        Coordinates = (Coordinates + str(x) + ' ' + str(y) + ' ')
      Endif
    Next
  Next
  Return (str(Amount) + Coordinates)
Endsub

Sub IsOnVector(x, y, startx, starty, endx, endy)
  var lenAB = GetLength(startx, starty, endx, endy), lenAC = GetLength(startx, starty, x, y), lenBC = GetLength(x, y, endx, endy)
  If lenAB == lenAc + lenBC then
    Return 1
   else
    Return 0
  Endif
Endsub

Sub GetLength(startx, starty, endx, endy)
  var a = Absolute(endx - startx), b = Absolute(endy - starty)
  If a >= b then
    Return a
   else
    Return b
  Endif
Endsub

Sub Absolute(val)
  If val > 0 then
    Return val
   else
    Return -val
  Endif
Endsub