Code:
program AutoWalkLumb2Draynor;
var
x,y: Integer;
const
HelpSign = 7755811
FarmingSign = 6712423
DirtRoad = 2051163
RedPoint = 1449703
PaveMent = 6645101
BankColor = 4048859
Procedure HelpSign;
begin;
if(FindColor(x,y,HelpSign,628,2,12,32)) then
begin
MoveMouseSmoothEx(x,y +random(5),1,3,10,10)
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end;
begin;
if(FindColor(x,y,HelpSign,575,44,604,72)) then
begin
MoveMouseSmoothEx(x,y +random(5),1,3,10,10)
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end;
Begin;
Mouse(587,81)
End;
Begin;
if(FindColor(x,y,FarmingSign,577,81,633,126)) then
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end;
Begin;
if(FindColor(x,y,DirtRoad,580,35,612,54)) then
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end;
begin;
if(FindColor(x,y,RedPoint,561,64,608,102)) then
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end;
begin;
if(FindColor(x,y,DirtRoad,602,114,643,134)) then
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end;
begin;
if(FindColor(x,y,DirtRoad,583,99,607,112)) then
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end;
begin;
if(FindColor(x,y,DirtRoad,583,99,607,112)) then
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end;
begin;
if(FindColor(x,y,PaveMent,571,88,606,127)) then
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end;
begin;
if(FindColor(x,y,PaveMent,605,25,629,32)) then
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end.
begin;
if(FindColor(x,y,BankColor,605,25,629,32)) then
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end.