I get a type mismatch in this function:
Simba Code:
Function AtMiddle:boolean;
var
Rope : TRSObject;
MiddleTile:array [0..26] of TTile;
MainTile, done:TTile;
I:integer;
Begin
if not LoggedIn then Exit;
MainTile := Tile(2909, 4834);
MiddleTile[0] := Tile(MainTile.x, MainTile.y);
MiddleTile[1] := Tile(MainTile.x+1, MainTile.y);
MiddleTile[2] := Tile(MainTile.x+2, MainTile.y);
MiddleTile[3] := Tile(MainTile.x+3, MainTile.y);
MiddleTile[4] := Tile(MainTile.x, MainTile.y-1);
MiddleTile[5] := Tile(MainTile.x+1, MainTile.y-1);
MiddleTile[6] := Tile(MainTile.x+2, MainTile.y-1);
MiddleTile[7] := Tile(MainTile.x+3, MainTile.y-1);
MiddleTile[8] := Tile(MainTile.x, MainTile.y-2);
MiddleTile[9] := Tile(MainTile.x+1, MainTile.y-2);
MiddleTile[10] := Tile(MainTile.x+2, MainTile.y-2);
MiddleTile[11] := Tile(MainTile.x+3, MainTile.y-2);
MiddleTile[12] := Tile(MainTile.x, MainTile.y-3);
MiddleTile[13] := Tile(MainTile.x+1, MainTile.y-3);
MiddleTile[14] := Tile(MainTile.x+2, MainTile.y-3);
MiddleTile[15] := Tile(MainTile.x+3, MainTile.y-3);
MiddleTile[16] := Tile(MainTile.x, MainTile.y-4);
MiddleTile[17] := Tile(MainTile.x+1, MainTile.y-4);
MiddleTile[18] := Tile(MainTile.x+2, MainTile.y-4);
MiddleTile[19] := Tile(MainTile.x+3, MainTile.y-4);
MiddleTile[20] := Tile(2909, 4829);
MiddleTile[21] := Tile(2909, 4828);
MiddleTile[22] := Tile(2909, 4827);
MiddleTile[23] := Tile(2908, 4826);
MiddleTile[24] := Tile(2907, 4826);
MiddleTile[25] := Tile(2906, 4826);
MiddleTile[26] := Tile(2905, 4826);
//Rope := GetObjectByID(496, OBJECT_TYPE_FLOORDECOR, 9);
done := GetMyPos;
For I:= 0 to 26 do
if (done.x = MiddleTile[I].x and done.y = MiddleTile[I].y) then begin
Writeln('AtMiddle');
Result := True
end else Result := false;
End;
In particular this line:
Simba Code:
if (done.x = MiddleTile[I].x and done.y = MiddleTile[I].y) then begin
What is wrong with it?
Thankyooooooo
-Boom