SCAR Code:
Function Tileisme:TIntegerArray;
var
Pig : UID;
ItemTempPoint :TpointArray;
begin
setlength(Result,0);
for D := 0 to high(You) do
begin
setlength(Result,high(You));
Pig := GetObjectAt(You[D].x,You[D].y);
ItemTempPoint := GetGroundItems(You[D].x,You[D].y);
//writeln(Pig.objType);
//writeln(inttostr(You[D].x)+','+inttostr(You[D].y));
for I := 0 to High(ItemTempPoint) do
writeln(ItemTempPoint[I].x);
result[D] := 0; //330 --------------------------- This Line
if(Pig.objType=Be.setupid)then
result[D] := 1;
end;
end;
Result[D] := 0. I dont get it. I set the length right didn't I???