First release!
SSBuySeeds:
Code:
program SSBuySeeds;
var
X, Y, SeedsToBuy: Integer;
begin
repeat
MoveMouse(424, 178);
GetMousePos(x, y);
Wait(100);
ClickMouse(424, 178, mouse_right);
Wait(100);
MoveMouse(416, 245);
GetMousePos(x, y);
ClickMouse(432, 257, mouse_left);
Wait(2000);
IncEx(SeedsToBuy, 10);
WriteLn('Seeds: ' + IntToStr(SeedsToBuy));
until(SeedsToBuy = ENTERSEEDSTOBUYHERE);
end.
Notes: Open Bob's shop in Neitiznot South, set crosshairs then run the script (Buys Torstol Seeds only) 85+ this is because 1-85 is pretty fast so I didn't see the point in adding other seeds.
SSFarmSeeds
Code:
program SSFarmSeeds;
var
X, Y: Integer;
procedure ClickPatch;
begin
if(FindColor(X, Y, 880476, 10, 11, 516, 329))then
begin
MoveMouse(X, Y);
Wait(100);
GetMousePos(X, Y);
Wait(100);
ClickMouse(X, Y, mouse_left);
end;
end;
procedure FarmSeeds;
begin
ActivateClient;
MoveMouse(641, 187);
GetMousePos(X, Y);
ClickMouse(641, 187, mouse_left);
Wait(2000);
MoveMouse(579, 228);
GetMousePos(X, Y);
Wait(2000);
ClickMouse(579, 228, mouse_left);
end;
begin
repeat
FarmSeeds;
ClickPatch;
until(IsKeyDown(113));
end.
Notes: This opens up your inventory and uses the first item in your inventory onto a farming patch, always put your seeds in the first slot of your inventory or this will not work.
Downloads
SSFarmSeeds - http://up.ht/HLLvcR
SSBuySeeds - http://up.ht/HNwRR5
Enjoy creative criticism please!
Thanks to Coh3n for his basic simba tutorial and Janilabo for his help.