Simba Code:
program GlowHerblore;
{$i srl/srl/misc/smart.scar}
{$i SRL\SRL.scar}
{
-=-=-=- INFORMATION THIS IS MADE BY NEXPB aka NEX -=-=-=-
- Fill in the required information.
- Only spec restores supported atm.
}
const
userName = ''; //Username here. (needed to login)
passWord = ''; //Pass here.
nickName = ''; //3-4 lowercase letters from your username.
bankPin = ''; //Bankpin here.
makeAmountPots = 1000;// Amount pots need to be made (Always put an amount)
makePot = 'Recover_special'; // your potion here write it same like rs please. (space is "_")
World = 69;//World you want to login.
LampXpIn = 'Farming';//Skill you want exp in from the genie.
var
firstItem, secondItem, potsMade: Integer;//Don't touch this.
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := userName;
Players[0].Pass := passWord;
Players[0].Nick := nickName;
Players[0].Active := True;
Players[0].Pin := bankPin;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];//Random event prices.
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
LampSkill := (LampXpIn);
LevelUp;
end;
procedure StartUpClient;
begin
Smart_Server := World;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
ActivateClient;
if not LoggedIn then
LoginPlayer;
end;
procedure GetDTMs(potion: String);
begin
Case (Lowercase(potion)) of
'recover_special':
begin
firstItem := DTMFromString('mrAAAAHic42BgYPBjYmAIBuIwIA4H4gAgdgViDyD2AuJTjAwMe4D4GBCfA+KLQHwGiI8A8U4gnuFYCTSFCQ/GDxgJYBgAABIICjI=');//super energy
secondItem := DTMFromString('mggAAAHicY2NgYKhgYmBoAOJyIC4A4iIgrgPiI4wMDKeB+BwQnwTifUC8F4gnLhEF6mLCgrEDRhwYAgBiYwjj');//Papaya
end;
end;
end;
procedure FreeDTMs;
begin
FreeDTM(firstItem);
FreeDTM(secondItem);
end;
procedure WithDrawFromBank(dtm: Integer; amount: String);
var
x, y: Integer;
begin
if not BankScreen then exit;
if (FindDTM(dtm, x, y, MSX1, MSY1, MSX2, MSY2)) then
begin
Mouse(x, y, 4, 4, false);
ChooseOption(amount);
end else
begin
Mouse(x, y, 4, 4, false);
ChooseOption('ithdraw-x');
wait(600 + random(200));
TypeSend(amount);
end;
FreeDTM(dtm);
FreeDTMs;
end;
procedure MakingPots;
var
x, y: Integer;
begin
writeln('Make pots.');
if not LoggedIn then Exit;
//while Animating(IntToBox(MSX1, MSY1, MSX2, MSY2), 2000, 1) do
//begin
//Wait(1000 + random(500));
//end;
if FindDTM(firstItem, x, y, MIX1, MIY1, MIX2, MIY2)then
begin
Mouse(x, y, 4, 4, false);
Wait(450 + random(150));
ChooseOption('Use');
if FindDTM(secondItem, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
MMouse(x, y, 4, 4);
if WaitUptext('Use', 300 + random(100)) then
begin
MouseAction(true);
end;
MMouse(272, 571, 4, 4);
if WaitUptext('Make all', 300 + random(100)) then
MouseAction(true);
end;
end;
FreeDTMs;
end;
procedure TakeItems;
var
x, y: Integer;
begin
writeln('bank and take items');
if not LoggedIn then Exit;
if not BankScreen then
begin
if FindObjCustom(x, y, ['chest', 'ank'], [5793394, 13158865], 5) then
Mouse(x, y, 4, 4, false);
wait(500 + random(200));
ChooseOption('Use');
wait(500 + random(200));
end;
If PinScreen then
InPin(Players[CurrentPlayer].Pin);
if BankScreen then
begin
if (not InvFull and not FindDTM(firstItem, x, y, MIX1, MIY1, MIX2, MIY2) and not FindDTM(secondItem, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
potsMade := (potsMade + InvCount);
DepositAll;
wait(900 + random(200));
WithDrawFromBank(firstItem, '14');
wait(900 + random(200));
WithDrawFromBank(secondItem, '14');
end else
begin
CloseBank;
end;
end;
FreeDTMs;
end;
procedure Loop;
var
x, y: Integer;
begin
GetDTMs(makePot);
AntiRandoms;
if (FindDTM(firstItem, x, y, MIX1, MIY1, MIX2, MIY2) and FindDTM(secondItem, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
MakingPots;
end else
begin
TakeItems;
end;
end;
begin
StartUpClient;
Addonterminate('freeDTMs');
if LoggedIn then
repeat
Loop;
until (potsMade >= makeAmountPots) or not LoggedIn;
end.