Hey, i had made a procedure FindTree but it doesnt seem to work, i get an error while compiling.
Here is the script.
SCAR Code:
Program Testing;
{.Include SRL/SRL.Scar}
Procedure FindTree(SomeLetters : String; TreeColor, TreeTol, StumpColor, StumpTol : Integer);
{FindTree('illo', 21313973, 10, 5847397, 5);}
Var
TX, TY : Integer;
SX, SY : Integer;
Found : Boolean;
Begin
If(FindObj(TX, TY, SomeLetters, TreeColor, TreeTol))And(Not(FindObj(SX, SY, 'tump', StumpColor, StumpTol)))Then
MMouse(TX, TY, 15, 15);
If(IsUpText(SomeLetters))Then
WriteLn('Tree Found.');
Found := True;
End Else
If(Not(FindObj(TX, TY, SomeLetters, TreeColor, TreeTol)))And(FindObj(SX, SY, 'tump', StumpColor, StumpTol))Then
MMouse(SX, SY, 5, 5);
If(Not(IsUpText(SomeLetters))Then
WriteLn('Tree Not Found.');
Found := False;
End;
Begin
SetUpSRL;
Begin
FindTree('illo', 21313973, 10, 5847397, 5);
End;
End.
Here Is The Procedure.
SCAR Code:
Procedure FindTree(SomeLetters : String; TreeColor, TreeTol, StumpColor, StumpTol : Integer);
{FindTree('illo', 21313973, 10, 5847397, 5);}
Var
TX, TY : Integer;
SX, SY : Integer;
Found : Boolean;
Begin
If(FindObj(TX, TY, SomeLetters, TreeColor, TreeTol))And(Not(FindObj(SX, SY, 'tump', StumpColor, StumpTol)))Then
MMouse(TX, TY, 15, 15);
If(IsUpText(SomeLetters))Then
WriteLn('Tree Found.');
Found := True;
End Else
If(Not(FindObj(TX, TY, SomeLetters, TreeColor, TreeTol)))And(FindObj(SX, SY, 'tump', StumpColor, StumpTol))Then
MMouse(SX, SY, 5, 5);
If(Not(IsUpText(SomeLetters))Then
WriteLn('Tree Not Found.');
Found := False;
End;
And Here Is The Stupid Error.
SCAR Code:
Failed when compiling
Line 16: [Error] (16006:5): Semicolon (';') expected in script
Please help me because i really need this procedure.