Sorry for double post but, I would still like to know about where to ind the functions most commonly used. Also I'd like to say that I fixed the rev and srl problems.
For the testing of your scripts you guys made here are the results.
SCAR Code:
program WheatPicker;
{.include SRL/SRL.scar}
const
ActionsToDo = 5; // Change to the amount of time you want it to do the action
var
loopCounter: Integer // used to keep track of how many loops have been done
Wheat: Integer;
x,y: Integer;
procedure Load;
begin
Wheat := BitmapFromString(7, 18, 'beNoNyO1TwXAAAGDfuj7UlVxE' +
'R1623Jr0oq5003ltZcO4huWtKCoTs41tv0Is5eLqi7+3no8PbyOqC' +
'54MfFw4C5b3fUWEkY80Gk1cXsNZBG/ApxktySKxevQ/k1/rpOQhG4' +
'ZQ0RiqmP1l7D/JviU3zDCClR1Rvvyh/9FV4K1Uz0gD7F5BRnMyz7l' +
'x1s1w6BVvomQUfF8Mf2Dx8zzduaBfDXEOTYBNsX/SmyyD6VZWxqiu' +
'iajp0pKlqfgmc3NvtnqtQISov7xboZtOUSXfB0tv08UEvxi9O6Q5P' +
'S3stj8eZMXZVVdSAkLV7TnFdAOgZp9QVV9NhHLv3iSnTbU2Cup2Zx' +
'yoA0yaIrffEUpAo8/a1MjKArg9wMSJqzLby/U2Erwz0Tffv2y9dPG' +
'K7GDG3ubvUbgMJwdQQzp5ahOxynpscFAauoJ5KC45qsBblfFoyYK/' +
'eYItXTC7GXkyUs82dswQRTQMDgItuz9r85cM1wJUFneyVSykoOE/8' +
'p54ng==');
end;
procedure UseBitmap;
begin
if(FindBitmapIn(Wheat,x,y,MIX1,MIY1,MIX2,MIY2)) then
begin
Mouse(x,y,2,2,true);
end;
procedure FreeBmps;
begin
FreeBitmap(Wheat);
end;
begin
Load;
repeat
UseBitmap;
loopCounter := loopCounter + 1; // Makes loopCounter bigger so it doesn't run forever
until(loopCounter >= LoadsToDo) // it will repeat the above commands until loopCounter is bigger than (>) or equal to (=) LoadsToDo, after which it continues with the script
FreeBmps;
end.
With that one I get an error saying this: Line 7: [Error] (12650:1): Semicolon (';') expected in script
For the other script posted...
SCAR Code:
program WheatPicker;
{.include srl/srl.scar}
var
Wheat: Integer;
x,y: Integer;
procedure Load;
begin
Wheat := BitmapFromString(7, 18, 'beNoNyO1TwXAAAGDfuj7UlVxE' +
'R1623Jr0oq5003ltZcO4huWtKCoTs41tv0Is5eLqi7+3no8PbyOqC' +
'54MfFw4C5b3fUWEkY80Gk1cXsNZBG/ApxktySKxevQ/k1/rpOQhG4' +
'ZQ0RiqmP1l7D/JviU3zDCClR1Rvvyh/9FV4K1Uz0gD7F5BRnMyz7l' +
'x1s1w6BVvomQUfF8Mf2Dx8zzduaBfDXEOTYBNsX/SmyyD6VZWxqiu' +
'iajp0pKlqfgmc3NvtnqtQISov7xboZtOUSXfB0tv08UEvxi9O6Q5P' +
'S3stj8eZMXZVVdSAkLV7TnFdAOgZp9QVV9NhHLv3iSnTbU2Cup2Zx' +
'yoA0yaIrffEUpAo8/a1MjKArg9wMSJqzLby/U2Erwz0Tffv2y9dPG' +
'K7GDG3ubvUbgMJwdQQzp5ahOxynpscFAauoJ5KC45qsBblfFoyYK/' +
'eYItXTC7GXkyUs82dswQRTQMDgItuz9r85cM1wJUFneyVSykoOE/8' +
'p54ng==');
end;
procedure UseBitmap;
begin
if(FindBitmapIn(Wheat,x,y,MIX1,MIY1,MIX2,MIY2)) then
begin
MMouse(x,y,1,1);
Wait(1000+random(100));
Mouse(x,y,1,1,true);
end;
procedure FreeBmps;
begin
FreeBitmap(Wheat);
end;
begin
Load;
UseBitmap;
FreeBmps;
end.
I get another error saying this: Line 31: [Error] (12674:1): Identifier expected in script
Please help.