Anonymous

procedure loadCoords();
var
  fileContents, map, name: string;
  parts: tStringArray;
  x, y: single;
  i: byte;
begin
  fileContents := readFile(COORDSFILE);
  parts := xSplit(fileContents, #10);
      
  for i := 0 to arrayHigh(parts) do begin
    map := getPiece(parts[i], '///', 0);
    x := strToFloat(getPiece(parts[i], '///', 1));
    y := strToFloat(getPiece(parts[i], '///', 2));
    name := getPiece(parts[i], '///', 3);
  
    writeln('[Teleport] Coordinate ' + name + ' at ' + floatToStr(x) + ' ' + floatToStr(y) + ' ('+ map +')');
  end;
end;