program WCFMing;
{$i srl/srl.simba}
Const
LogCol = 7330283;
LobyCol = 1118485;
tree = 12400;
tinderbox = 606303;
logs = 870508;
var
x, y, w, h: integer;
procedure Getclient;
begin
Movemouse(640, 185);
wait(1000);
Clickmouse(640, 185, mouse_Left);
wait(300);
end;
procedure Login;
begin
GetClientDimensions(w, h);
SetUpSRL
mousespeed := 20;
if FindColor(x, y, LogCol, 0, 0, w-1, h-1)then
begin
Mouse(x, y, 0, 0, True);
Writeln('Logging in.');
wait(7000)
end;
end;
procedure camup;
begin
Keydown(38);
Wait(4000);
keyup(38);
end;
procedure Gettree;
begin
GetClientDimensions(w, h);
if FindColor(x, y, tree, 0, 0, w-1, h-1)then
begin
Mouse(x, y, 0, 0, True);
Writeln('Clicking Tree.');
wait(5000)
end;
end;
procedure Tnder;
begin
GetClientDimensions(w, h);
Movemouse(580, 200)
wait(200);
clickmouse(580, 200, mouse_Left);
Wait(1000);
end;
procedure Findlog;
begin
GetClientDimensions(w, h);
if FindColor(x, y, Logs, 0, 0, w-1, h-1)then
begin
Mouse(x, y, 0, 0, True);
Writeln('Burning logs.');
wait(7000)
end;
end;
begin
repeat
Cleardebug;
Getclient;
Login;
camup;
Gettree;
Gettree;
Tnder;
Findlog;
Tnder;
Findlog;
until false
end.