Code:
program CraftBodies;
//(1) Go to Pest Control Island. (Scipt was made for ONLY this bank).
//(2) Place tanned dragon hide in first bank slot.
//(3) Place needle in first position (bag).
//(4) Place thread in second position (bag).
//(5) Enter how many hides you have below.
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
var
hides, bodies, count:integer;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
hides := 0; //ENTER HOW MANY HIDES
if hides <= 0 then
begin
writeln('You have not entered how many hides.');
TerminateScript();
end;
bodies := (hides/3);
End;
procedure Open;
var x, y: integer;
begin
Repeat
If FindObj(x, y, 'Bank booth', 5599869, 10) Then
begin
Mouse(RandomRange(X - 5, x + 5), RandomRange(Y - 5, Y + 5), random(3), random(3), false);
ChooseOptionMulti(['Bank']);
end
else
begin;
MakeCompass(randomrange(25, 35));
end;
wait(randomrange(700, 1000));
until(BankScreen)
end;
Procedure Antiban; //Credit to Vusn
Begin
Case Random(100) Of
1: HoverSkill('crafting', False);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: HoverSkill('magic', False);
6: PickUpMouse;
7: RandomMovement;
8: RandomRClick;
end;
end;
procedure Craft;
var x, y: integer;
begin
//Body position
x := 105;
y := 400;
MMouse(580, 225, 5, 5); //Move to needle
clickmouse2(mouse_left);
wait(randomrange(700, 1000));
MMouse(660, 225, 5, 5); //Move to dhide
clickmouse2(mouse_left);
wait(randomrange(700, 1000));
MMouse(x, y, 10, 10);
clickmouse2(mouse_right);
wait(randomrange(700, 1000));
MMouse(RandomRange(X - 5, x + 5), ((RandomRange(Y - 3, Y + 3) + 53)), 0, 0);
wait(randomrange(700, 1000));
clickmouse2(mouse_left);
wait(randomrange(7500, 8000));
Antiban;
wait(randomrange(7500, 8000));
end;
Procedure LogPlayerOut; //Credit to Vusn
begin
MMouse(RandomRange(643 - 5, 643 + 5), RandomRange(484 - 5, 484 + 5), 0, 0);
wait(randomrange(1000, 1200));
clickmouse2(mouse_left);
MMouse(RandomRange(643 - 20, 643 + 20), RandomRange(375 - 5, 375 + 5), 0, 0);
wait(randomrange(500, 1000));
clickmouse2(mouse_left);
end;
Procedure MiniBreaker; //Credit to Solidone40
Begin
Case Random (300) Of
1: Wait(20000 + random(7400));
2: Wait(14500 + random(8550));
3: Wait(30040 + random(6759));
4: Wait(10400 + random(2549));
end;
end;
begin
SetupSRL();
DeclarePlayers;
SetScreenName(Players[CurrentPlayer].Nick);
ActivateClient;
MakeCompass('N');
count := 0;
repeat
Open;
Deposit(3,24,true);
if (not (WithdrawEx(0, 0, 28, ['reen', 'lue', 'ed', 'lack']))) then
begin
writeln('No leather in first bank slot remaining.');
CloseBank;
wait(randomrange(15000, 16000));
LogPlayerOut;
terminatescript;
end;
CloseBank;
Craft;
MiniBreaker;
FindMod;
count := count + 1;
until (count >= bodies)
LogPlayerOut;
end.