PHP Code:
program FarmingVills;
{$define srl5}
{$loadlib sps}
{$i srl/srl.simba}
{$i sps/sps.simba}
procedure FarmVillages;
begin
Mouse(660, 259, Random(15), Random(10), True); //Dranagaky
Wait((500 + Random(250)));
ClickMouse2(True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(630, 313, Random(15), Random(10), True); //Dragav
Wait((250 + Random(250)));
ClickMouse2(True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(553, 283, Random(15), Random(10), True); //Kosnarho
Wait((250 + Random(250)));
ClickMouse2(True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(587, 490, Random(15), Random(10), True); //Konosstriae
Wait((250 + Random(250)));
ClickMouse2(True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(668, 502, Random(15), Random(10), True); //Gavpsiginos
Wait((250 + Random(250)));
ClickMouse2(True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(803, 478, Random(15), Random(10), True); //Ithnos
Wait((250 + Random(250)));
ClickMouse2(True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(150 + Random(200));
Mouse(300, 20, Random(10), Random(10), True); //jump to next cityisland
Wait(150 + Random(200));
Mouse(145, 182, Random(5), Random(5), True);
Wait(500 + Random(1500));
Mouse(805, 310, Random(10), Random(10), True); //Roshyaegi
Wait((250 + Random(250)));
ClickMouse2(True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(625, 305, Random(10), Random(10), True); //Aeta
Wait((250 + Random(250)));
ClickMouse2(True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(500));
Mouse(580, 265, Random(10), Random(10), True); //Ithko
Wait((250 + Random(250)));
ClickMouse2(True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(500));
Mouse(480, 305, Random(10), Random(10), True); //Thosrosae
Wait((250 + Random(250)));
ClickMouse2(True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(500));
Mouse(370, 350, Random(10), Random(10), True); //Rosgakosrho
Wait((250 + Random(250)));
ClickMouse2(True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(500));
Mouse(300, 20, Random(10), Random(10), True); //jump to next cityisland
Wait(150 + Random(200));
Mouse(145, 182, Random(5), Random(5), True);
Wait(150 + Random(200));
end;
procedure LootVillages;
begin
Mouse(660, 259, Random(15), Random(10), True); //Dranagaky
Wait((500 + Random(250)));
Mouse(720, 270, Random(20), Random(20), True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(630, 308, Random(15), Random(10), True); //Dragav
Wait((250 + Random(250)));
Mouse(690, 323, Random(10), Random(10), True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(553, 283, Random(15), Random(10), True); //Kosnarho
Wait((250 + Random(250)));
Mouse(613, 293, Random(10), Random(10), True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(587, 490, Random(15), Random(10), True); //Konosstriae
Wait((250 + Random(250)));
Mouse(647, 500, Random(10), Random(10), True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(668, 497, Random(15), Random(10), True); //Gavpsiginos
Wait((250 + Random(250)));
Mouse(730, 507, Random(10), Random(10), True)
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(803, 478, Random(15), Random(10), True); //Ithnos
Wait((250 + Random(250)));
Mouse(863, 488, Random(10), Random(10), True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(150 + Random(200));
Mouse(300, 20, Random(10), Random(10), True); //jump to next cityisland
Wait(150 + Random(200));
Mouse(145, 182, Random(5), Random(5), True);
Wait(500 + Random(1500));
Mouse(805, 310, Random(10), Random(10), True); //Roshyaegi
Wait((250 + Random(250)));
Mouse(865, 320, Random(10), Random(10), True)
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(1500));
Mouse(625, 305, Random(10), Random(10), True); //Aeta
Wait((250 + Random(250)));
Mouse(685, 315, Random(10), Random(10), True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(500));
Mouse(580, 265, Random(10), Random(10), True); //Ithko
Wait((250 + Random(250)));
Mouse(640, 275, Random(10), Random(10), True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(500));
Mouse(480, 305, Random(10), Random(10), True); //Thosrosae
Wait((250 + Random(250)));
Mouse(540, 315, Random(10), Random(10), True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(500));
Mouse(370, 350, Random(10), Random(10), True); //Thosrosae
Wait((250 + Random(250)));
Mouse(430, 360, Random(10), Random(10), True);
Wait((500 + Random(250)));
Mouse(307, 385, Random(60), Random(5), True);
Wait(500 + Random(500));
Mouse(300, 20, Random(10), Random(10), True); //jump to next cityisland
Wait(150 + Random(200));
Mouse(145, 182, Random(5), Random(5), True);
Wait(150 + Random(200));
end;
begin
SetupSRL;
repeat
Mouse(29, -100, Random(5), Random(5), True);
Wait(500);
Mouse(785, 72, Random(10), Random(10), True);
Wait(500);
//FarmVillages;
LootVillages;
Mouse(699, -90, Random(5), Random(5), True);
Wait(270000 + Random(45000));
until(False);
end.