Code: Select all
var
dirs : array [1..9] of array [1..3] of integer;
begin
dirs[0] := [0,1,2];
dirs[0] := [0,1,2];
dirs[1] := [1,1,1];
dirs[2] := [1,0,2];
dirs[3] := [-1,1,1];
dirs[4] := [0,0,2];
dirs[5] := [1,-1,1];
dirs[6] := [-1,0,2];
dirs[7] := [-1,-1,1];
dirs[8] := [1,-1,2];