mixster

type
  TRadialWalk = record
    colour: Integer;
    startRad, endRad: Integer;
    radius: Integer;
    xmod, ymod: Integer;
  end;

function ParseRadialWalk(input: TIntegerArray): TRadialWalk;
var
  h, i: Integer;
begin
  h := High(input);
  if (h < 5) then // 5 as you need 6 indices, highest being 5
    exit;

  Result.colour := input[0];
  Result.startRad := input[1];
  Result.endRad := input[2];
  Result.radius := input[3];
  Result.xmod := input[4];
  Result.ymod := input[5];
end;

procedure DoSomeWalking;
var
  walks: array of TIntegerArray;
  tmpRadWalk: TRadialWalk;
  h, i: Integer;
begin
  walks := [
    [8030602, 45, 135, 150, 0, -1],
    [2317161, 0, 90, 350, 0, -1],
    [2114396, 0, 90, 350, 0, -1],
    [7634054, 0, 45, 350, 0, -1],
    [2312801, 345, 15, 350, 0, 3]
  ];

  h := High(walks);
  for i := 0 to High(walks) do
  begin
    tmpRadWalk := ParseRadialWalking(walks[i]);
    RadialRoadWalk(tmpRadWalk.colour, tmpRadWalk.startRad, tmpRadWalk.endRad, tmpRadWalk.radius, tmpRadWalk.xmod, tmpRadWalk.ymod);
    FFlag(0);
  end;
end;