lol nice job nick rules
i made a small bot aswell for me, buys/sells haysacks aswell for quick exp. i'll post it here if u want to take anything u find useful (:
SCAR Code:
procedure superplow;
// plow, plant, harvest plants, do whatever. just replace the color!
var i, x, y: Integer;
begin
while (i < 196) do // my farm is 14x14 so i have 196 fields plowed
begin
if FindColorTolerance(x, y, {color}865398{/color}, 40, 155, 613, 440, 3) then
begin
ClickMouse(x, y, true);
wait(100);
Inc(i);
end;
end;
end;
procedure sellallhaybales;
// sells all those haybales for u, where ever they are
var i, x, y: Integer;
begin
while (i < 100) do
begin
if FindColorTolerance(x, y, {color}4827630{/color}, 0, 30, 619, 443, 3) then
begin
ClickMouse(x, y, true);
wait(500);
ClickMouse(x+29, y+29, true);
wait(500);
ClickMouse(339, 389, true);
wait(500);
Inc(i);
end;
end;
end;
procedure buylotsahaybales;
// this won't work unless u correct the value of x and y, it'll
// place the haybales diagnolly on the far end right side, so get
// the position from the top right corner.
// .<-- from here
// tl/\tr
// bl\/br
var i, x, y: Integer;
begin
while (i < 100) do
begin
x := 114; // 114 = 1st row | 93 = 2nd row
y := 170;
x := x + (i*9);
if (i >= 13) then x := (x+39) + (i*9);
y := y + (i*5);
ClickMouse(x, y, true);
wait(100);
Inc(i);
end;
end;
begin
ActivateClient;
superplow;
//sellallhaybales;
//buylotsahaybales;
end.
~NS