you have alot of "missing" begins for example
Simba Code:
procedure LeftSpot;
begin
MakeCompass('S');
LeftGate := Left;
if DTMRotated(LeftGate, X, Y, MMX1, MMY1, MMX2, MMY2) then
MMouse(x, y, 0, 0);
wait(Random(100) + 20);
Mouse(x, y, 0, 0, True);
end;
for example this would click 0, 0 (upper left corner) if it didnt find the DTM, Alot of other functions do this aswell.
and
Simba Code:
Function Range : Boolean;
begin
If (FindColorSpiralTolerance(x, y, 5372475, 267, 132, 292, 160, 1)) then
begin
Result := True;
Writeln('TRUE');
end else
Result := False;
Writeln('False');
end;
this would print both true and false in the debug box, if it found the color.
the infinite loops this one is killer, i would not wish my main to be caught in this.
Simba Code:
Procedure AttackWhite;
begin
repeat
if FindObj(x, y, 'ortal', 13217188, 15) then
MMouse(x,y,0,0);
wait(Random(100) + 20);
Mouse(x,y,0,0,false);
ChooseOption('ttack');
until(false);
end;
alot of improvement but you will get there.
sorrry if i sounded a bit harsh in my earlier post.