Code:
program Serum207Maker;
{$DEFINE SMART}
{$i SRL\SRL.simba}
const
S_World = 65;
S_Signed = True;
S_Member = True;
procedure DeclarePlayer;
begin
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
Active := True;
end;
end;
procedure AntiBan;
var
Int: Integer;
begin
Wait(300 + Random(40))
Int := Random(100);
if (Int <= 91) then
Exit;
Writeln('AntiBanned [' + ToStr(Int) + ']');
case Int of
92..94: MakeCompass(rs_GetCompassAngleDegrees + RandomRange(-185, 360));
95..96:
begin
ClickNorth(SRL_ANGLE_HIGH);
end;
97: HoverSkill(SKILL_HERBLORE, False);
98..99: PickupMouse;
end;
end;
function Bank: Boolean;
var
X, Y: Integer;
begin
FindNormalRandoms;
if (FindObjCustom(X, Y, ['Bank','nk ch','k che','chest'], [2963780,10724266,10000542,5592409], 3)) then
Mouse(X, Y, 0, 0, True);
Wait(1500 + Random(300));
if (PinScreen) then InPin(Players[CurrentPlayer].Pin);
begin
DepositAll;
if Withdraw(8, 3, 14) then
if Withdraw(9, 3, 14) then
Result := True;
end;
if BankScreen then
CloseBank;
FindNormalRandoms;
end;
function MixPots: Boolean;
var
x, y, T: Integer;
B: TBox;
begin
if (InvFull) then
Wait(300 + Random(50));
InvMouse(1, 1);
InvMouse(15, 1);
MouseBox(227, 405, 284, 435, 3);
T := GetSystemTime + 16500;
while (GetSystemTime < T) and not(FindColor(x, y, 2070783, 251, 434, 286, 446)) do
Wait(100 + Random(100));
if not(FindColor(x, y, 2070783, 251, 434, 286, 446)) then
Exit;
GetMousePos(x, y);
if not(PointInBox(Point(x, y), IntToBox(227, 405, 284, 435))) then
MouseBox(227, 405, 284, 435, 1)
else
ClickMouse2(True);
while (GetSystemTime < T) and not(Result) do
begin
if LevelUp then
Wait(800 + Random(100));
AntiBan;
FindNormalRandoms;
end;
end;
begin
Smart_Server := S_World;
Smart_Signed := S_Signed;
Smart_Members := S_Member;
Smart_SuperDetail := False;
SetupSRL;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
DeclarePlayer;
if not(LoggedIn) then
begin
LogInPlayer;
Wait(3000 + Random(2000));
ClickNorth(SRL_ANGLE_HIGH);
MakeCompass('n');
end else
PlayerStartTime := GetSystemTime;
repeat
if Bank then
if MixPots then
else
WriteLn('Banking')
else
WriteLn('Something weird happened..');
until not(LoggedIn);
end.