You have to put ";" after all "end"s except the very last one in the entire script (Which gets a ".").
Example:
Simba Code:
program test;
begin
if (Blankity) then
begin
Wtf;
end;
end.
So it should be:
Simba Code:
procedure chopTrees; //Chops Trees until invintory is full
var
x, y, i, clickColor : integer;
treesTPA : TpointArray;
treeATPA : Array of TpointArray;
begin
FindColorsSpiralTolerance(MSCX, MSCY, treesTPA, 1588531, MSX1, MSY1, MSX2, MSY2, 9)
treeATPA := SplitTPA(treesTPA, 10);
repeat
for i := 0 to high(treeATPA) do
if MiddleTPAEx(treeATPA[i], x, y) then
begin
MMouse(x, y, 5, 5);
Wait(300);
if IsUpText('ree') then
begin
ClickMouse(x, y, 1);
clickColor := GetColor(x, y);
treeWait(x, y, clickColor);
//DebugATPA(treeATPA, 'c');
break;
end;
end;
until(InvFull);//this is the line SIMBA Highlights.
end; // Line 47
Quick Note: Work on your standards....