Hello there,
This is my second script.
What does it do? It makes (Green) Bodies for exp at the Soul wars bank.
How good is it? It gives me a 200-210k exp a hour with green.
I am not sure if it also work with other hides, but i am pretty sure that it will.
Put the hide you want to use in your top left slot on your bank.
And your needle left from your thread in the invertory in the top

Todo: Anti-Ban (I keep failing on that xD)
Fail safe? (Din't fail yet... but you never know)
Simba Code:
program GBodies;
{$DEFINE SMART}
{$I SRL/SRL.simba}
var
x, y, Body, xp: Integer;
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := ''; //name
Pass := ''; //password
Nick := ''; //nickname
Pin := ''; //pin (if you atleast have one, else leave it)
Active := True;
end;
end;
//////////////////////No need for change below this line///////////////////////
procedure Camera;
begin
setangle(0);
Makecompass('N');
end;
procedure Banking;
begin
begin
repeat
OpenBankChest(SRL_BANK_SW);
until BankSCreen or PinScreen;
end;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen
end;
if BankScreen then
begin
Deposit(5,26, true);
end;
if invCount=4 then
begin
Withdraw(0, 0, 26);
end;
if invCount<4 then
begin
writeln('We need the needle and thread and the two green dragon hides in the down corner');
end;
begin
if BankScreen then
CloseBank;
end;
end;
procedure CraftAllTheBodies;
begin
If InvFull then
Wait(200 + Random(100));
InvMouse(1, 1);
InvMouse(3, 1);
wait(410+randomrange(0,100));
Mouse(150, 423, 10, 10, true);
wait(400+randomrange(0,100));
Mouse(150, 423, 10, 10, true);
repeat
wait(100+randomrange(0,100));
until invcount=12;
wait(200+random(100));
Body := Body+8;
end;
Procedure Exp;
begin
xp := Body*186;
end;
Procedure Progress;
begin
Exp;
Writeln('============================================');
Writeln('We are running now for '+TimeRunning+'');
Writeln('You have gained '+inttostr(xp)+' Crafting xp');
Writeln('============================================');
end;
procedure First;
begin
Smart_Server := 51;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
LogInPlayer;
Mousespeed := 15;
wait(100+random(100));
Body := 0;
end;
begin
writeln('Start that shit up');
First;
writeln('Loadin that shit');
Camera;
repeat
writeln('We gotta bank');
Banking;
Writeln('Makin the bodies');
CraftAllTheBodies;
Progress;
until not LoggedIn;
Writeln('What happened? Please post it in the topic');
Progress;
TerminateScript;
end.
IGunXZ his version (Craftes 9 bodies each invertory)
Simba Code:
program GBodies;
{$DEFINE SMART}
{$I SRL/SRL.simba}
var
x, y, Body, xp: Integer;
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := 'xxx'; //name
Pass := 'xxx'; //password
Nick := 'xxx'; //nickname
Pin := 'xxx'; //pin (if you atleast have one, else leave it)
Active := True;
end;
end;
//////////////////////No need for change below this line///////////////////////
procedure Camera;
begin
setangle(0);
Makecompass('N');
end;
procedure NormalCheck;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
end;
procedure Banking;
begin
begin
repeat
OpenBankChest(SRL_BANK_SW);
until BankSCreen or PinScreen;
end;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen
end;
if BankScreen then
begin
Deposit(2,27, true);
end;
if invCount=1 then
begin
Withdraw(0, 0, 27);
end;
begin
if BankScreen then
CloseBank;
end;
end;
procedure CraftAllTheBodies;
var
Time: integer;
begin
If InvFull then
Wait(200 + Random(100));
InvMouse(2, 1);
wait(1000+randomrange(0,100));
Mouse(150, 423, 10, 10, true);
wait(650+randomrange(0,100));
Mouse(150, 423, 10, 10, true);
wait(100+randomrange(0,100));
MarkTime(Time);
While (TimeFromMark(Time) <= ((42*370))) do
begin
Wait(500+random(200));
FindNormalRandoms;
end;
Body := Body+9;
end;
Procedure Exp;
begin
xp := Body*186;
end;
Procedure Progress;
begin
Exp;
Writeln('============================================');
Writeln('We are running now for '+TimeRunning+'');
Writeln('You have gained '+inttostr(xp)+' Crafting xp');
Writeln('============================================');
end;
procedure First;
begin
Smart_Server := 51;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
LogInPlayer;
Mousespeed := 15;
wait(100+random(100));
Body := 0;
end;
begin
writeln('Start that shit up');
First;
writeln('Loadin that shit');
Camera;
repeat
writeln('We gotta bank');
Banking;
Writeln('Makin the bodies');
CraftAllTheBodies;
NormalCheck;
Writeln ('Checking for randoms');
Progress;
until not LoggedIn;
Writeln('What happened? Please post it in the topic');
Progress;
TerminateScript;
end.
Proggies are nice :3

177: 50 = 3,54 x 60 = 212,4k
So thats 212,4k exp a hour.
Ps. Put your chatbox on Assist or anything else except Public or clan chat (more smoother run)
Proggies from others:
Megadeth with royal d'hide bodies
============================================
We are running now for 1 Hours, 1 Minutes and 54 Seconds
You have gained 378162 Crafting xp
============================================
Punjabi3
We are running now for 1 Hours, 20 Minutes and 10 Seconds
You have gained 300576 Crafting xp
============================================
IGunXZ
============================================
We are running now for 1 Hours, 1 Minutes and 15 Seconds
You have gained 219294 Crafting xp
============================================