Simba Code:
program ChocolateCrusher;
{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i SRL\SRL\Misc\Stats.simba}
var
x, y: Integer;
{YOU MUST HAVE EITHER A KNIFE OR A PESTLE AND MORTAR IN YOUR TOOLBELT!
If You are a /member/, use the pestle and mortar. The pestle and mortar crushes
chocolate twice the speed of a knife.
Free to play people will have to stick with a knife.
IMPORTANT:
Make sure you have your Chocolate Bars in the FIRST bank slot.
The script will end if it is in any other slot.}
Const
Mouse_Speed = 17; // Mouse speed - Higher = Faster. (17 is default)
Members = false; // True = Members World. False = Free World.
Version = '1.0 Beta';
NumbOfPlayers = 1; //How many players you are using.
StartPlayer = 0; //Player to start with. (0 = first character)
// YOU MUST HAVE EITHER A KNIFE OR A PESTLE AND MORTAR IN YOUR TOOLBELT
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['xp', 'oins', 'ostume', 'mote'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Pin := ''; //Bank Pin. (Leave blank if you do not have a bank pin.)
Loc := 'vwb'; //Banking Location (See below)
Active := True;
end;
// YOU MUST HAVE EITHER A KNIFE OR A PESTLE AND MORTAR IN YOUR TOOLBELT!
//
// Banking Locations:
// 'vwb' = Varrock West Bank
// 'veb' = Varrock East Bank
// 'fwb' = Falador West Bank
// 'feb' = Falador East Bank
// 'db' = Draynor Bank
// 'akb' = Al-Kharid Bank
//
end;
Procedure Antiban;
Begin
Case Random (30) of
0: Begin SleepAndMoveMouse(6000 + Random(750)); End;
1: Begin GameTab(tab_Inv) ExamineInv; GameTab(28); End;
2: Begin RandomAngle(1); End;
3: Begin GameTab(Tab_Stats); Wait(3000 + Random(400)); GameTab(28); End;
4: Begin GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
End;
End;
procedure AntiRandoms;
begin
FindNormalRandoms;
LampSkill := 'random'
end;
procedure WithdrawChoc;
begin
AntiRandoms;
if (PinScreen) then
InPin(Players[CurrentPlayer].Pin);
if (BankScreen) then
DepositAll;
WriteLn(' -Depositing Chocolate Dust.');
Wait(400 + Random(300));
Withdraw(0, 0, 28);
WriteLn('-Withdrawing Chocolate Bars.');
Wait(200 + Random(200));
CloseBank;
end;
procedure CrushChoc;
var
chocbar, chocdust : Integer;
begin
begin
chocbar := DTMFromString('mwQAAAHic42RgYOABYlYgFgFiQSBmY4AAkLgklOYAYgEomwmqBsQWBmJ2qHpfHXGoLG78n4EwYCQCwwEAFn4CcQ==');
if FindDTM(chocbar, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 7, 7, False)
else
begin
wait(1000);
WriteLn('Could not find Chocolate Bar. Trying again...');
if FindDTM(chocbar, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 7, 7, False)
else
begin
wait(1000);
WriteLn('Could not find Chocolate Bar. Trying again...');
if FindDTM(chocbar, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 7, 7, False)
else
begin
wait(1000);
WriteLn('Could not find Chocolate Bar. Logging out.');
if FindDTM(chocbar, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 7, 7, False);
Logout;
TerminateScript;
end;
end;
end;
ChooseOption('Powder')
FreeDTM(chocbar);
end;
begin
wait(1000)
[B]chocdust := DTMFromString('m1gAAAHic42JgYOAEYnYg5gNiZiAWAGIOBgjgBmJ+IBaFqgHJMwIxLxBzQeW4oGrZgJgViO1VhIEkE0H8n4E4wEgkRgAAHfUCSg==');
if FindDTM(chocdust, x, y, MCX1, MCY1, MCX2, MCY2) then
Mouse(x, y, 22, 23, True);
WriteLn(' -Crushing Chocolate Bars.');
Wait(1500 + Random(2000));
Antiban;
AntiRandoms;
Wait(11000 + Random(3000));
FreeDTM(chocdust);[/B]
end;
end;
begin
Smart_Server := 10;
Smart_Members := Members;
SetupSRL;
DeclarePlayers;
MouseSpeed := Mouse_Speed;
LoginPlayer;
repeat
repeat
OpenBank(Players[CurrentPlayer].Loc, True, True);
WithdrawChoc;
CrushChoc;
until (not LoggedIn);
until False;
end.