this code gives me an error that i also get from yohojos pms, when other people didnt get the error from the exact same peice of code, if this is the same ill switch os in virtual box to windows 7 or something
SCAR Code:
const
alertonguess = true;
mx = 15;
my = 104;
sizex = 16;
sizey = 16;
sx = 16;
sy = 16;
waitmultiplier = 0.1;
var c:array[1..8] of integer;
procedure initvars;
begin
c := [16711680,32768,255,8388608,128,8421376,0,8421504];
end;
function statsurround(xloc,yloc:integer;click:boolean):array of array of integer;
var x,y,xi,yi,startnumx,startnumy:integer;rarray:array of array of integer;
begin //values:
x:= xloc*sx+mx //-1 = clicked but blank
y:= yloc*sy+my //0 = unclicked
//1-8 = the corresponding
// number of mines
if xloc = 1 then startnumx := 0 else startnumx := -1;
if yloc = 1 then startnumy := 0 else startnumy := -1;
rarray[xi+1][yi+1] := -2 //if no values in case match then this val wont change
for xi:= startnumx to 1 do //which means, no color match
for yi:= startnumy to 1 do
if(xi=yi)and(yi=1)then break; //skip checking the center box
begin
case getcolor(x+xi*16,y+yi*16) of //get color of topleft pixel in each box
clWhite : rarray[xi+1][yi+1] := 0;
12632256 : rarray[xi+1][yi+1] := -1;
c[1] : rarray[xi+1][yi+1] := 1;
c[2] : rarray[xi+1][yi+1] := 2;
c[3] : rarray[xi+1][yi+1] := 3;
c[4] : rarray[xi+1][yi+1] := 4;
c[5] : rarray[xi+1][yi+1] := 5;
c[6] : rarray[xi+1][yi+1] := 6;
c[7] : rarray[xi+1][yi+1] := 7;
c[8] : rarray[xi+1][yi+1] := 8;
end;
end;
end;
begin
initvars;
end.
ends with this error:
SCAR Code:
Line 17: [Hint] (17:10): Variable 'Result' never used in script C:\Documents and Settings\Josh\Desktop\Scar-Pre\Scripts\MineSkipper.scar
[Runtime Error] : Could not call proc in line 14 in script C:\Documents and Settings\Josh\Desktop\Scar-Pre\Scripts\MineSkipper.scar
why?