Ultima Online Antares

var FileDAT     = File('file.dat')
var Index       = 0
var x, y, z

  FileDAT.Open()

  while not FileCfg.Eof() && not fatal error
    Index = Index + 1
    x = safe call FileDAT.ReadNumber()
    y = safe call FileDAT.ReadNumber()
    z = safe call FileDAT.ReadNumber()
    if Index == 2 then; вторая строка файла
      Break
    end if
  wend

  FileDAT.Close()

  UO.Print('x=' + str(x) + ', y=' + str(y) + ', z=' + str(z))

; Если под журналом ты имел ввиду текстовое окно, то так:
  UO.TextOpen()
  UO.TextClear()
  UO.TextPrint('x=' + str(x) + ', y=' + str(y) + ', z=' + str(z))

  Line = safe call FileDAT.ReadLN()
  x = val(GetWord(Line, 1))
  y = val(GetWord(Line, 2))
  z = val(GetWord(Line, 3))

sub Test()

var FileDAT     = File('file.dat')
var TilesSize   = 0
var Index

dim TilesX[100]
dim TilesY[100]
dim TilesZ[100]

  if not FileDAT.Open() then
    UO.Print('Файл не найден!')
    return
  end if

; запись данных из файла в массивы
  while not FileDAT.Eof() && not fatal error
    TilesSize = TilesSize + 1
    TilesX[TilesSize] = safe call FileDAT.ReadNumber()
    TilesY[TilesSize] = safe call FileDAT.ReadNumber()
    TilesZ[TilesSize] = safe call FileDAT.ReadNumber()
  wend

  FileDAT.Close()

  UO.TextOpen()
  UO.TextClear()

; вывод массивов в текстовое окно
  for Index = 1 to TilesSize
    UO.TextPrint('x=' + str(TilesX[Index]) + ', y=' + str(TilesY[Index]) + ', z=' + str(TilesZ[Index]))
  next

end sub