The farmer of this section

Go down

The farmer of this section

Post by Admin on Tue Jul 07, 2009 12:24 pm

var
x, y, lvlx, lvly: integer;

function Targetwheat1 : Boolean;
begin
if(FindColor(x, y, 1232117, 0, 0, 800, 600))then result:= true //<--- copy color number over 1232117
end;

function Targetwheat2 : Boolean;
begin
if(FindColor(x, y, 679825, 0, 0, 800, 600))then result:= true
end;

function Nextwheat1 : Boolean;
begin
if(FindColor(x, y, 708332, 0, 0, 800, 600))then result:= true
end;

function Nextwheat2 : Boolean;
begin
if(FindColor(x, y, 1061237, 0, 0, 800, 600))then result:= true
end;



Procedure Harvest;
begin
if (Targetwheat1)or(Targetwheat2) then
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));
Wait(12000); //<--- However long it takes you to chop wheat!
end;

function nowheat : Boolean;
begin
if(FindColor(x, y, 1683891, 0, 0, 800, 600))then result:= false
end;

function FindLevel : boolean;
begin
result := false;
If(FindColor( lvlx, lvly, 25087,0,0,500,500))then result := true
end;



Procedure LevelUp;
begin
If(FindLevel= true)then
MoveMouseSmooth(lvlx, lvly+2);
Wait(100+random(100));
ClickMouse(lvlx, lvly+2, true);
Wait(100+random(100));
end;

begin
harvest;
repeat
if (nowheat) then
harvest;
if(nextwheat1)or(nextwheat2)then
harvest;
if(FindLevel)then
LevelUp;
until(false);
end.


rapidshare.com farmer.rar.html

Admin
SuperGM

Number of posts : 16
Registration date : 2008-04-01

View user profile http://charams.darkbb.com

Back to top Go down

Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum