shaman
2008-07-29 04:01:32
This is a basic program. If anyone can include a reapeat/loop at the end, could they please post one. All feedback is good. Thanks
const
Yew=4091268;
var;
x,y: Integer;
procedure FindTree;
if(FindColour(x,y,Yew,0,0,500,500)) then
begin
MoveMouseSmoothEx(x,y +random(100),20,40,45,25,20);
Wait(200+random(200));
ClickMouse(x,y,true);
end;
procedure AntiRandoms;
begin
If(FindFight) then
RunAway('N',True,1,15000);
FindNormalRandoms;
FindLamp('Woodcutting');
end;
end.
const
Yew=4091268;
var;
x,y: Integer;
procedure FindTree;
if(FindColour(x,y,Yew,0,0,500,500)) then
begin
MoveMouseSmoothEx(x,y +random(100),20,40,45,25,20);
Wait(200+random(200));
ClickMouse(x,y,true);
end;
procedure AntiRandoms;
begin
If(FindFight) then
RunAway('N',True,1,15000);
FindNormalRandoms;
FindLamp('Woodcutting');
end;
end.