Saikek
03-28-2013, 06:47 AM
SaikekGulls
A quick and simple seagull killer.
Version: 0.2 Beta
Hello, I would just like to say this is my first release of a script to the community. I made this for my pure so I myself use this a lot. Since this is a first general public release on my behalf I do not expect it to be flawless and it should be monitored regardless for random events. That being said the scripts does its task and it does it well, I hope you will agree and expect to see more updates and scripts from me!
Features
SMART Compatible for RS07
Simplistic Anti-ban system
Quick at attacking and detecting current player-state
Multiple failsafes to ensure account security.
The Script
program SaikekGulls;
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
//DO NOT EDIT THESE UNLESS YOU KNOW WHAT YOU ARE EDITING!
var
GFailSafe: Integer;
const
HPCOLOUR = 65280;
GULLCOLOUR1 = 6402024;
GULLCOLOUR2 = 4475209;
GFAILSAFE_THRESHOLD = 25;
//Begin User-config. Please provide your username and password.
procedure P07_DeclarePlayer;
begin
P07_PlayerName := ''; //Your username here.
P07_PlayerPass := ''; //Your password here.
end;
//End User-config
//Simple function which checks for HPCOLOUR in a defined area.
//May bug out when multiple players are in area.
function InCombat: Boolean;
var x, y: Integer;
begin
if(FindColor(x, y, HPCOLOUR, 200, 100, 300, 200)) then
Result := true
else
Result := false
end;
//Searches for and attacks seagull, easy enough? Searches for GULLCOLOUR1 and GULLCOLOUR2
//Provides for two failsafes when searching and waiting on combat to begin.
procedure AttackGull;
var x, y, failsafe: Integer;
begin
if(not InCombat) then
begin
if(P07_FindObjCustom(x, y, ['ttack', 'eagull'], [GULLCOLOUR1, GULLCOLOUR2], 6)) then
begin
GFailSafe := 0;
P07_MouseBox(x, y, x, y, mouse_left);
repeat
wait(randomrange(300,800));
inc(failsafe);
until((InCombat) or (failsafe >= 5));
end else
begin
writeln('No Seagull found.');
P07_MakeCompassDegree(randomrange(0,360));
inc(GFailSafe);
end;
end;
end;
//Gets our current in-game state.
function GetState: Integer;
begin
if (GFailSafe >= GFAILSAFE_THRESHOLD) then
Result := 3
else if(not P07_LoggedIn) then
Result := 2
else if(InCombat) then
Result := 1
else if(not InCombat) then
Result := 0
end;
//Sets camera angle to maximum and sets auto-retaliate.
procedure Setup;
var x, y: Integer;
begin
P07_MakeCameraAngleHigh;
wait(randomrange(300,500));
P07_AutoRetaliate(true);
wait(randomrange(300,500));
P07_TabInventoryTab(4);
P07_MakeCompassDegree(0);
end;
//Our quick and simple anti-ban. Could use some work.
procedure AntiBan;
var ran1, ran2: Integer;
begin
ran1 := random(800);
if(ran1 <= 5) then
begin
writeln('Anti-Ban Engaged.');
ran2 := random(10);
case(ran2) of
1: BoredHuman;
2: RandomRClick;
3: wait(1500 + randomrange(1000,3000));
4: BoredHuman;
5: PickUpMouse;
6: wait(1500 + randomrange(1000,3000));
7: RandomRClick;
8: P07_HoverSkill('Hitpoints', randomrange(500,1500));
9: P07_HoverSkill('Strength', randomrange(500,1500));
end;
end;
end;
begin
SetupSRL;
P07_DeclarePlayer;
SetupP07Include;
ActivateClient;
wait(1000);
if(P07_LoggedIn) then
Setup;
while(GFailSafe < GFAILSAFE_THRESHOLD) do
begin
case (GetState) of
0:
begin
AttackGull;
wait(randomrange(500,1000));
end;
1:
begin
AntiBan;
wait(randomrange(50,200));
end;
2:
begin
P07_LoginPlayer;
wait(randomrange(300,800));
Setup;
end;
3:
begin
break;
end;
end;
end;
writeln('FailSafe initiated! Possibly stuck or in random? Terminating script.');
TerminateScript;
end.
You must start this at the seagulls in Port Sarim, either logged in or out.
GitHub link(For quick and easy updates for my scripts):
https://github.com/Inseighn/SaikekScripts
My scripts will always be open-source as I am always open to any suggestions! And please report bugs!
A quick and simple seagull killer.
Version: 0.2 Beta
Hello, I would just like to say this is my first release of a script to the community. I made this for my pure so I myself use this a lot. Since this is a first general public release on my behalf I do not expect it to be flawless and it should be monitored regardless for random events. That being said the scripts does its task and it does it well, I hope you will agree and expect to see more updates and scripts from me!
Features
SMART Compatible for RS07
Simplistic Anti-ban system
Quick at attacking and detecting current player-state
Multiple failsafes to ensure account security.
The Script
program SaikekGulls;
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
//DO NOT EDIT THESE UNLESS YOU KNOW WHAT YOU ARE EDITING!
var
GFailSafe: Integer;
const
HPCOLOUR = 65280;
GULLCOLOUR1 = 6402024;
GULLCOLOUR2 = 4475209;
GFAILSAFE_THRESHOLD = 25;
//Begin User-config. Please provide your username and password.
procedure P07_DeclarePlayer;
begin
P07_PlayerName := ''; //Your username here.
P07_PlayerPass := ''; //Your password here.
end;
//End User-config
//Simple function which checks for HPCOLOUR in a defined area.
//May bug out when multiple players are in area.
function InCombat: Boolean;
var x, y: Integer;
begin
if(FindColor(x, y, HPCOLOUR, 200, 100, 300, 200)) then
Result := true
else
Result := false
end;
//Searches for and attacks seagull, easy enough? Searches for GULLCOLOUR1 and GULLCOLOUR2
//Provides for two failsafes when searching and waiting on combat to begin.
procedure AttackGull;
var x, y, failsafe: Integer;
begin
if(not InCombat) then
begin
if(P07_FindObjCustom(x, y, ['ttack', 'eagull'], [GULLCOLOUR1, GULLCOLOUR2], 6)) then
begin
GFailSafe := 0;
P07_MouseBox(x, y, x, y, mouse_left);
repeat
wait(randomrange(300,800));
inc(failsafe);
until((InCombat) or (failsafe >= 5));
end else
begin
writeln('No Seagull found.');
P07_MakeCompassDegree(randomrange(0,360));
inc(GFailSafe);
end;
end;
end;
//Gets our current in-game state.
function GetState: Integer;
begin
if (GFailSafe >= GFAILSAFE_THRESHOLD) then
Result := 3
else if(not P07_LoggedIn) then
Result := 2
else if(InCombat) then
Result := 1
else if(not InCombat) then
Result := 0
end;
//Sets camera angle to maximum and sets auto-retaliate.
procedure Setup;
var x, y: Integer;
begin
P07_MakeCameraAngleHigh;
wait(randomrange(300,500));
P07_AutoRetaliate(true);
wait(randomrange(300,500));
P07_TabInventoryTab(4);
P07_MakeCompassDegree(0);
end;
//Our quick and simple anti-ban. Could use some work.
procedure AntiBan;
var ran1, ran2: Integer;
begin
ran1 := random(800);
if(ran1 <= 5) then
begin
writeln('Anti-Ban Engaged.');
ran2 := random(10);
case(ran2) of
1: BoredHuman;
2: RandomRClick;
3: wait(1500 + randomrange(1000,3000));
4: BoredHuman;
5: PickUpMouse;
6: wait(1500 + randomrange(1000,3000));
7: RandomRClick;
8: P07_HoverSkill('Hitpoints', randomrange(500,1500));
9: P07_HoverSkill('Strength', randomrange(500,1500));
end;
end;
end;
begin
SetupSRL;
P07_DeclarePlayer;
SetupP07Include;
ActivateClient;
wait(1000);
if(P07_LoggedIn) then
Setup;
while(GFailSafe < GFAILSAFE_THRESHOLD) do
begin
case (GetState) of
0:
begin
AttackGull;
wait(randomrange(500,1000));
end;
1:
begin
AntiBan;
wait(randomrange(50,200));
end;
2:
begin
P07_LoginPlayer;
wait(randomrange(300,800));
Setup;
end;
3:
begin
break;
end;
end;
end;
writeln('FailSafe initiated! Possibly stuck or in random? Terminating script.');
TerminateScript;
end.
You must start this at the seagulls in Port Sarim, either logged in or out.
GitHub link(For quick and easy updates for my scripts):
https://github.com/Inseighn/SaikekScripts
My scripts will always be open-source as I am always open to any suggestions! And please report bugs!