There's still an error in it...
SCAR Code:
function SkillCoords(Row, Column: Integer): TPoint;
var
RowArr: array [1..3] of Integer;
ColArr: array [1..8] of Integer;
begin
Result := Point(-1, -1);
if (not InRange(Row, 1, 8)) then
begin
srl_Warn('SkillCoords', 'Row #' + IntToStr(Row) + ' is an invalid row', warn_Warning);
Exit;
end;
if (not InRange(Column, 1, 3)) then
begin
srl_Warn('SkillCoords', 'Column #' + IntToStr(Column) + ' is an invalid column', warn_Warning);
Exit;
end;
ColArr := [577, 631, 687];
RowArr := [228, 260, 293, 324, 356, 388, 420, 419];
Result := Point(ColArr[Column], RowArr[Row]);
end;
But the beginning should be:
SCAR Code:
function SkillCoords(Row, Column: Integer): TPoint;
var
RowArr: array [1..8] of Integer;
ColArr: array [1..3] of Integer;