I modified a bit of the script and now it works very well. I changed it so it didn't close the bank after it deposits the battlestaff and I added the ClickMouse2(True);
Here it is if anyone wants it and doesn't want to make changes to the original, start it with an empty inv and bank screen open.
Simba Code:
program GuccisBattlestaffMaker;
{$DEFINE SMART}
{$i srl/srl/misc/smart.simba}
{$loadlib sps}
{$i srl/srl.simba}
{$i sps/sps.simba}
const
SRLStats_User = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
MEMBERS = True;
NumbOfPlayers = 1;
StartPlayer = 0;
CraftingEXP = 135; // Edit this for exp gained per staff made.
var
StaffsMade, CraftEXP, Make, x, y: integer;
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['XP'];
With Players[0] do
begin
Name := ''; //Username.
Pass := ''; //Password.
Pin := ''; // Bank Pin.
Active := True;
end;
end;
procedure GetGoods;
begin
SetAngle(SRL_ANGLE_HIGH);
Wait(200 + Random(100));
if (BankScreen) or (PinScreen) then
begin
if (PinScreen) then
repeat
InPin(Players[0].Pin);
until (BankScreen);
if (BankScreen) then
begin
WriteLn('Bank is Open');
DepositAll;
Withdraw(0, 0, 14);
Withdraw(1, 0, 14);
Wait(300);
CloseBank;
WriteLn('Got Goods');
end;
end;
end;
procedure DepositGoods;
begin
if (InvCount = 14) then
begin
OpenBankChest(SRL_BANK_SW);
if (BankScreen) or (PinScreen) then
begin
if (PinScreen) then
repeat
InPin(Players[0].Pin);
until (BankScreen);
if (BankScreen) then
begin
WriteLn('Bank is Open');
DepositAll;
Wait(300);
WriteLn('Deposited Staffs');
end;
end;
end;
end;
procedure DTMS;
begin
Make := DTMFromString('mLgAAAHicY2JgYJBnYmDQBmIjIFYC4uJgAYYFC5YzwAAjFDMwAABU/wNo');
end;
procedure FrDTM;
begin
FreeDTM(Make);
end;
procedure MakeStaffs;
begin
MouseSpeed := 40;
InvMouse(14, mouse_left);
Wait(100);
InvMouse(15, mouse_left);
Wait(500 + Random(20));
Mouse(257, 428, 0, 0, True);
ClickMouse2(True);
Wait(18000 + Random(20));
end;
procedure StaffMade;
begin
if BankScreen then
IncEx(StaffsMade, 14);
end;
procedure Report;
begin
if (BankScreen) then
begin
CraftEXP:= (StaffsMade*CraftingExp);
Writeln('############ Guccis Staff Maker ##########');
Writeln('|= Player : ' + Players[CurrentPlayer].Name);
Writeln('|= Time Running : ' + TimeRunning);
Writeln('|= Crafting EXP gained : ' + IntToStr(CraftEXP));
Writeln('##########################################');
end;
end;
Begin
Smart_Signed := TRUE;
Smart_Members := MEMBERS;
Smart_SuperDetail := FALSE;
Smart_Server := 30;
ActivateClient;
SetupSRL;
DTMS;
DeclarePlayers;
if not (LoggedIn) then
LoginPlayer;
Wait(4000+random(400));
SetAngle(SRL_ANGLE_HIGH);
Repeat
GetGoods;
MakeStaffs;
if (InvCount = 14) then
DepositGoods;
Report;
Until(False)
FrDTM;
End.