After "program catchfish;" You should have this:
Your main loop should then look like this:
SCAR Code:
Begin
SetupSRL;
CatchFish;
End.
SetupSRL Loads all the needed items for example FindSymbol(X, Y, Symbol);
FindSymbol wont work without SetupSRL;
This includes the Scar Resource Library AKA SRL.
Then your "Procedure CatchFish;"
Should Be:
SCAR Code:
procedure catchfish;
var x, y: integer;
begin
if findcolor(x, y, 14858129, 337, 163, 412, 474) then
begin
Mouse(X, Y, 3, 3, False);
wait(1000 + random(250));
ChooseOption('Cage');
wait(1000 + random(250));
end;
end;
Mouse(X, Y, RandX, RandY, Left);
X And Y Is the cordinates to click
RandX and Randy is random cordinates that it adds to the point it clicks.
Left obvious Left button or right? Left False is a right click. Left True is a left Click.
ChooseOption(txt);
The chooseoption procedure is used after a "Mouse(X, Y, RandX, RandY, False); To make it click the Text you specify. ChooseOption('Walk here'); Would click Walk Here when u left click on screen.
Hope it helped
-JuKKa