SCAR Code:
var
x,y:integer;
function Leveled : boolean;
begin
if(FindColor(x, y, 16777215, 0, 0, 800, 600))then // Color and Co-ordinates of level notice
end;
function Wheat1 : boolean;
begin
if(FindColor(x, y, 6018541, 0, 0, 800, 600))then result:= true
end;
function Wheat2 : boolean;
begin
if(FindColor(x, y, 6142380, 0, 0, 800, 600))then result:= true
end;
function Wheat3 : boolean;
begin
if(FindColor(x, y, 2982807, 0, 0, 800, 600))then result:= true
end;
function Wheat4 : boolean;
begin
if(FindColor(x, y, 1949612, 0, 0, 800, 600))then result:= true
end;
function Wheat5 : boolean;
begin
if(FindColor(x, y, 3062228, 0, 0, 800, 600))then result:= true
end;
function Wheat6 : boolean;
begin
if(FindColor(x, y, 5887730, 0, 0, 800, 600))then result:= true
end;
function Wheat7 : boolean;
begin
if(FindColor(x, y, 5948127, 0, 0, 800, 600))then result:= true
end;
function Wheat8 : boolean;
begin
if(FindColor(x, y, 2991798, 0, 0, 800, 600))then result:= true
end;
function Wheat9 : boolean;
begin
if(FindColor(x, y, 10016511, 0, 0, 800, 600))then result:= true
end;
function Wheat10 : boolean;
begin
if(FindColor(x, y, 1219208, 0, 0, 800, 600))then result:= true
end;
function Wheat11 : boolean;
begin
if(FindColor(x, y, 2675114, 0, 0, 800, 600))then result:= true
end;
function Wheat : boolean;
begin
if(Wheat1) or (Wheat2) or (Wheat3) or (Wheat4) or (Wheat5) or (Wheat6) or (Wheat7) or (Wheat8) or (Wheat9) or (Wheat10) or (Wheat11)then result:= true
end;
procedure Farm;
begin
if(Wheat)then
begin
MoveMouseSmooth(x, y);
Wait(100+random(200));
HoldMouse(x, y, true);
Wait(20+random(50));
ReleaseMouse(x, y, true);
Wait(100+random(200));
MoveMouseSmooth(x+27, y+38);
Wait(100+random(200));
HoldMouse(x+27, y+38, true);
Wait(20+random(50));
ReleaseMouse(x+27, y+38, true);
Wait(3000+random(500));
MoveMouseSmooth(x+random(50) ,y+random(50));
Wait(100+random(200));
HoldMouse(x+random(50), y+random(50), true);
Wait(20+random(50));
ReleaseMouse(x+random(50), y+random(50), true);
Wait(10000); //<--- However long it takes you to chop wheat!
end;
{
right here in the "procedure" i get an error saying "Identifier expected in script"
}
begin
if(Leveled)then
begin
MoveMouseSmooth(x, y);
Wait(100+random(200));
HoldMouse(x, y, true);
Wait(20+random(50));
ReleaseMouse(x, y, true);
end;
end.