RSPS Clanwars Script. [PAYING] [Archive] - SRL

drodro

01-08-2018, 09:22 PM

Cheers from your westminers of Prif aka I open mare

{================================================= =============================\
| Recent updates |
| Only the current Version ID updates will be listed |
|================================================= =============================|
| |
| 1. |
| 2. |
| 3. |
| 4. |
| 5. |
| 6. |
| |
| |
\_________________________________________________ ____________________________}

{================================================= =============================\
| Setup Instructions |
|================================================= =============================|
| |
| 1. Login F2P clanwars |
| 2. Setup your details (Lines 96, 101, 102, 104, 111) |
| 4. Save your changes (Ctrl+S) and hit Run (F9) |
| |
| |
\_________________________________________________ ____________________________}

{================================================= =============================\
| Features |
|================================================= =============================|
| |
| * Unlimited accounts * Anti-ban features, but still bannable |
| * Portal detection * Supports ANY NS |
| * Time online recorded * Efficient/Reliable/AFKABLE |
| * Walks out of safe * N/A Detects and records levels gained |
| * Supports multilog * Plus many more! |
\_________________________________________________ ____________________________}

{================================================= =============================|
| Credits |
|================================================= =============================|
| |
| * Shane/Who Logd Ya -> Motivation/code help |
| * Scripters at Villavu -> Code explaination |
| * Simba/Wizzup/Villavu documentation -> Documentation |
| |
|================================================= =============================|
|~~~~~~~~~~~~~~~~~~REPRODUCTION OF THIS SCRIPT IS PROHIBITTED~~~~~~~~~~~~~~~~~~|
\_________________________________________________ ____________________________}

Program FFABOT;

{$DEFINE SMART}
{$I SRL-6/SRL.simba}

Const
{General Settings}
Direction = MM_DIRECTION_SOUTH;
Bot_version = 9;

{================================================= =============================\
| Script Setup |
|================================================= =============================|
| |
| * Setup the script and your accounts |
\_________________________________________________ ____________________________}

Procedure DeclarePlayers;
Begin
Players.Setup(['USERNAME'], 'default');
SetLength(Players,1);

With players[0] Do
Begin
loginName := 'USERNAME';
password := 'PASSWORD';
IsActive := True;
World := 0;
End;
CurrentPlayer := 0;
End;

function myName(): string;
begin
result := 'USERNAME';
end;

{================================================= =============================\
| End Script Setup |
|================================================= =============================}

{================================================= =============================\
| Script Code |
|================================================= =============================|
| |
| * DO NOT EDIT ANY OF THIS UNLESS YOU KNOW WHAT YOU ARE DOING |
\_________________________________________________ ____________________________}

function isSafe(): boolean;
var
x, y: integer;

begin
result := findColorTolerance(x, y, 3635889, mainscreen.getBounds(), 0);
end;

function atTowers(): boolean;
var
x, y: integer;

begin
result := findColorTolerance(x, y, 9739681, mainscreen.getBounds(), 4);
end;

function inRed(): boolean;
var
x, y: integer;

begin
result := findColorTolerance(x, y, 2371162, mainscreen.getBounds(), 0);
end;

procedure antiBan();
var
i: integer;

begin
if not isLoggedIn() then
exit;

writeLn('[NS BOT] [IMPORTANT NOTIFICATION] Engaging in antiban procedure..');

i := random(500);
case i of
1..12: pickUpMouse();
13..18: randomRClickItem();
19..26: sleepAndMoveMouse(random(2000) + 750);
27..32: sleepAndMoveMouse(random(1500) + 750);
33..50: mouseOffClient(OFF_CLIENT_RANDOM);
51..85: randomCompass(random(300), randomrange(10, 100), false);
86..120: MiniMap.ClickCompass;
121..150: hoverRandomSkill();
end;
end;

procedure PortalWalk();

var
settingsButton: TBox;

begin
settingsButton := intToBox(254, 20, 299, 56); //254, 20, 299, 56
mouseBox(settingsButton, MOUSE_LEFT);
end;

procedure enablePrayers();

var
settingsButton1: TBox;

begin
settingsButton1 := intToBox(296, 315, 314, 330);
mouseBox(settingsButton1, MOUSE_LEFT);
end;

procedure MiniMapWalk();

var
settingsButton2: TBox;

begin
settingsButton2 := intToBox(675, 86, 697, 95); //696, 91, 711, 116
mouseBox(settingsButton2, MOUSE_LEFT); //672, 82, 699, 98
end;

procedure AbilitySlot();

var
settingsButton5: TBox;

begin
settingsButton5 := intToBox(520, 342, 550, 370);
mouseBox(settingsButton5, MOUSE_LEFT);
end;

procedure TowerWalkBack();

var
walkBack: Tbox;

begin
walkBack := intToBox(649, 159, 660, 176);
mouseBox(walkBack, MOUSE_LEFT);
writeLn('[NS BOT] Attempting to walk back from Towers..');
end;

procedure PortMouse();

var
mouseMove1: TBox;

begin
mouseMove1 := intToBox(119, 4, 252, 167);
mouseBox(mouseMove1, MOUSE_MOVE);
end;

procedure WalkToLobby();

var
Walk: TBox;

begin
Walk := intToBox(701, 91, 702, 92);
mouseBox(Walk, MOUSE_LEFT);
end;

procedure ANTILOGOUT();

var
settingsButton2: TBox;
settingsButtons: TBox;

begin
antiBan();
settingsButtons := intToBox(166, 53, 539, 264);
mouseBox(settingsButtons, MOUSE_MOVE);
end;

Procedure inPortal();

var
x, y: integer;

Begin
writeLn('Searching for green portal.');
if mainscreen.findObject(x, y, 2123333, 21, ['Portal'], MOUSE_RIGHT) then
begin
chooseOption.select(['Enter']);
writeLn('[NS BOT] ' + myName() + ' has walked out of Red Portal.');
wait(500);
WalkToLobby();
end;
End;

Procedure inRedPort();
var
x, y: integer;

Begin
if inRed() then
begin
writeLn('[NS BOT] '+ myName() +' IS IN RED PORTAL!');
minimap.setAngle(Direction);
end;
begin
if not inRed() then
writeLn('[NS BOT] '+ myName() +' IS NOT IN RED PORTAL');
Wait(RandomRange(1250, 2000));
antiBan();
end;
End;

Procedure isAtTowers();

var
x, y: integer;

Begin
if atTowers() then
begin
writeLn('[NS BOT] '+ myName() +' IS IN Towers.. Looking for door..');
players[currentPlayer].exitToLobby();
end;
begin
if not atTowers() then
writeLn('[NS BOT] '+ myName() +' is NOT at Towers..');
Wait(RandomRange(3000, 3500));
antiBan();
end;
End;

Procedure isInSafe();

var
x, y: integer;

Begin
if isSafe() then
begin
writeLn('[NS BOT] '+ myName() +' IS IN Safe. Succeeded check, walking out of safe.');
Wait(RandomRange(500, 750));
MiniMapWalk();
end;
begin
if not isSafe() then
writeLn('[NS BOT] '+ myName() +' IS NOT in Safe. Succeeded check, anti-ban proceeding.');
Wait(RandomRange(3000, 3500));
ANTILOGOUT();
end;
End;

Procedure inLobby();

var
x, y: integer;

Begin
MiniMap.ClickCompass;
Wait(RandomRange(2500, 3500));
isInSafe();
Wait(RandomRange(2000, 2500));
MiniMap.ClickCompass;
PortMouse();
writeLn('[NS BOT] [LOBBY PROCEDURE] Checking if ' + myName() + ' is in lobby..');
if mainscreen.findObject(x, y, 12830682, 4, ['Free-for-all (safe)'], MOUSE_RIGHT) then
begin
chooseOption.select(['Enter']);
Wait(RandomRange(2500, 3500));
enablePrayers();
Wait(RandomRange(1500, 2000));
MiniMap.ClickCompass;
wait(1000);
MiniMapWalk();
end;
End;

Begin
ClearDebug;

DeclarePlayers;
SetupSRL;

If Not Players[CurrentPlayer].Login Then
TerminateScript;

DisableSRLDebug:=True;
exitTreasure();
MiniMap.ClickCompass;

repeat
if not isLoggedIn() then
begin
players[currentPlayer].login();
writeLn('[NS BOT] '+ myName() +' has been signed back online.');
exitTreasure();
Minimap.ClickCompass;
end;

Wait(RandomRange(7500, 9000));
inLobby();
Wait(6750+Random(750));
writeLn('[NS BOT] Script has been running for ' + timeRunning(TIME_SHORT) +'. | Made by Da Move Cat');
until false;

End.

this is the script everyone is looking for but i just don't know how to get it to run