SRL Archive - SRL Archives

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

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 :spot: :f: :spot: :f: :spot: :f: :spot: :f: :spot: :f:

This doesn't even have a repeat?

From: Santa_Clause
This doesn't even have a repeat?

For what purpose?

Its just like find symbol…

if lookforsymbol('bank') then..

he says no repeat because you say it lowers symbol accuracy, so the best thing to do would be to put a repeat…

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;

Ty cave and santa..

Haha, easy way to do this, minus the clicking would be:

function SymbolFind(var x, y: integer; Symbol: string): boolean
var TSA: extended;
begin
  TSA := SymbolAccuracy;
  result := false;
  While (not FindSymbol(x, y, Symbol)) or (SymbolAccuracy <> 0.01) do
    SymbolAccuracy:= SymbolAccuracy - 0.01;
  if SymbolAccuracy <> 0.01 then
    result := true;
  SymbolAccuracy := TSA;
end;

I just cut a few lines essentially, and made it return x, and y, instead of click.

No idea if that even compiles… :O

Nava2

From: Nava2
Haha, easy way to do this, minus the clicking would be:

function SymbolFind(var x, y: integer; Symbol: string): boolean
var TSA: extended;
begin
  TSA := SymbolAccuracy;
  result := false;
  While (not FindSymbol(x, y, Symbol)) or (SymbolAccuracy <> 0.01) do
    SymbolAccuracy:= SymbolAccuracy - 0.01;
  if SymbolAccuracy <> 0.01 then
    result := true;
  SymbolAccuracy := TSA;
end;

I just cut a few lines essentially, and made it return x, and y, instead of click.

No idea if that even compiles… :O

Nava2

Ok, but the one on the first post works fine.