Simba Code:
program Gbodymaker;
{$DEFINE SMART}
{$i srl/srl.simba} //Start on space infront of SW
//And fill inv sith
var
Crafted:integer;
const
ToCraft = 1000; //How many bodies to craft?
Username = ''; //Username here
Password = ''; //Password here
Yoff = 50;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name:= ''; //Username
Pass:= ''; //Password
Active:= True;
end;
end;
Procedure Proggy;
var
XP:integer;
begin
XP := 186 * Crafted;
Writeln('*****************************************');
Writeln('Thank You for using Footys Gbodies Crafter');
Writeln('We have been running for ' + (Timerunning));
Writeln('We have Crafted ' + IntToStr(Crafted) + ' Gbodies');
Writeln('We have Earned ' + IntToStr(XP) + ' XP So Far');
writeln('Please leave feedback in forums and post your best Proggys');
Writeln('*****************************************');
end;
Procedure Bank;
begin
Writeln('Time To Bank');
wait(randomrange(200, 300));
Mouse(326, 213 - Yoff, 4, 4, 1);
wait(randomrange(1500, 2000));
Mouse(621, 278 - Yoff, 2, 2, Mouse_right);
Chooseoption('All')
wait(randomrange(400, 500));
Mouse(102, 159- Yoff, 2, 2, Mouse_right);
wait(randomrange(300, 400));
Chooseoption('All');
wait(randomrange(200, 400));
Mouse(490, 84 - Yoff, 2, 2, 1);
wait(randomrange(400, 600));
Crafted := Crafted + 9
end;
Procedure Waiting;
var
x, y, LeatherDTM:integer;
begin
LeatherDTM := DTMFromString('mlwAAAHicY2dgYHBhYmBwAuIAIDYBYhsg9gBidyAWY2RgUAFiSShWAmIuIFYFYg4bLqBuJgxsoKDAIAJk4cKMeDAUAACtKAQK');
writeln('Waiting for Bodies to be crafted');
while findDTM(LeatherDTM, x, y, 552, 259 - Yoff, 737, 512 - Yoff) do
begin
case random(10) of
0..5:wait(randomrange(100, 1000));
6..8:Sleepandmovemouse(Randomrange(200, 600));
9..10: begin wait(randomrange(100, 300)); Sleepandmovemouse(randomrange(50, 250)); end;
end;
end;
end;
Procedure Antiban;
begin
case random(1000) of
1: begin writeln('Antiban: Wait'); wait(randomrange(10000, 30000)); end;
2..5: begin writeln('Antiban: Checking skills'); Gametab(22); wait(randomrange(10000, 20000)); Gametab(25); wait(randomrange(100, 200)); end;
6..8: begin writeln('Antiban: Checking crafting XP'); Gametab(22); wait(randomrange(200, 600)); mmouse(637, 384 - Yoff, 4, 4); wait(randomrange(2000, 10000)); Gametab(25); wait(randomrange(200, 450)); end;
9..12: begin writeln('Antiban: Sleepandmovemouse'); sleepandmovemouse(randomrange(1000, 10000)); end;
14..15: begin writeln('Antiban: Checking whos online'); Gametab(30); wait(randomrange(2000, 3000)); Gametab(25); wait(randomrange(100, 200)); end;
end;
end;
Procedure Minibreaker;
begin
case random(200) of
1: begin writeln('Taking a break'); Wait(randomrange(10000, 100000)); end;
end;
end;
Procedure FirstCraft;
begin
wait(randomrange(200, 300));
Mouse(620, 278 - Yoff, 4, 4, 1);
wait(randomrange(1200, 1600));
Mousebox(240, 457 - Yoff, 275, 499 - Yoff, 1); //FIRST ONLY
wait(randomrange(1200, 1600)); //FIRST ONLY
Mousebox(111, 457 - Yoff, 192, 500 - Yoff, 1);
Waiting;
end;
Procedure Craft;
begin
writeln('Lets start Crafting');
wait(randomrange(200, 300));
Mouse(620, 278 - Yoff, 4, 4, 1);
wait(randomrange(1200, 1600));
Mousebox(111, 457 - Yoff, 192, 500 - Yoff, 1);
Waiting;
end;
begin
SetupSRL;
Declareplayers;
Loginplayer;
Mouse(545, 76, 6, 6, 1);
Wait(randomrange(200, 300));
keydown(VK_right);
wait(randomrange(1150, 1180));
keyup(VK_right);
Firstcraft;
Bank;
repeat
Craft;
Proggy;
bank;
Minibreaker;
Antiban;
until(Crafted >= ToCraft);
end.