Versus The World
2011-11-26 22:30:59
How Long have You Played Runescape?
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
Java, C#, VB.net, Delphi
Are you a member of any other communities?
Fagex.net, Moparisthebest, Powerbot, RSBuddy, RS-Hacking, Freddy1990.net
Tell us about yourself…
Please show us one (or multiple) of your scripts.
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
Java, C#, VB.net, Delphi
Are you a member of any other communities?
Fagex.net, Moparisthebest, Powerbot, RSBuddy, RS-Hacking, Freddy1990.net
Tell us about yourself…
From: Versus The World
I'm an IT graduate from Australia. I've always had a fondness for working with programming languages and such. I love to help people improve while learning in the process. I have made over $25k in money from selling runescape based scripts that utalised java bots. I feel like giving back to the SRL community as my first beginnings with botting started with simple scar scripting back in the day.
Please show us one (or multiple) of your scripts.
program SimpleHighAlcher;
{$DEFINE SMART}
{$i SRL/SRL.scar}
var i, count, exp: integer;
{******************************************************************************)
Setup Here
*******************************************************************************}
const
Alchs = 1000; //The number of alchs you want to perform.
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
end;
{******************************************************************************)
End Setup
*******************************************************************************}
{*******************************************************************************
procedure AntiBan;
Description: Performs various antiban features.
*******************************************************************************}
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(120) of
1: RandomRClick;
2: HoverSkill('Magic', False);
3: RandomMovement;
4: BoredHuman;
5: Wait(2500 + Random(200));
6: RandomAngle(True)
end;
end;
{*******************************************************************************
procedure HighAlch;
Description: The Main Loop :)
*******************************************************************************}
procedure HighAlch;
begin
count := 0;
for i := 0 to Alchs do
begin
Debug;
AntiBan;
Gametab(tab_Magic);
Wait(100+ Random(100));
while GetCurrentTab = tab_Magic do
begin
Wait(150 + Random(250));
Mouse(564, 364, 10, 10, True);
Wait(750 + Random(250));
end;
while GetCurrentTab = tab_Inv do
begin
Wait(200 + Random(200));
Mouse(564, 364, 10, 10, True);
Wait (800 + Random(250));
Gametab(tab_Magic);
end;
end;
end;
{*******************************************************************************
Script Setup
*******************************************************************************}
begin
Smart_Server := 44; //Set to server you'd like to use
Smart_Members := True; //Set to True if you're a member
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Wait(2000 + Random(1000));
ClearDebug;
HighAlch;
Debug;
end.