This function finds any symbol in symbol.scar .
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
This function lowers its symbol accuracy if it doesn't find it.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
This function resets the symbol accuracy if it finds the symbol, or symbol accuracy is 0.01
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Thank KAVE for fixing it up
SCAR Code:
Function LookForSymbol(Symbol:string):boolean;
var
SymbolAcc2: Extended;
begin
SymbolAcc2 := SymbolAccuracy;
repeat
SymbolAccuracy := SymbolAccuracy - 0.01;
until FindSymbol(x, y, Symbol) or (SymbolAccuracy = 0.01)
if (SymbolAccuracy > 0.01) then
begin
Mouse(x,y,1,1,True);
Writeln('Clicked Symbol');
repeat
wait(25);
until FlagPresent;
FFlag(0);
Result := True;
end
else
begin
Writeln('Symbol not found');
Result := False;
end;
SymbolAccuracy := SymbolAcc2;
end;
I haven't tested but this does compile. Enjoy