Gucci
2012-02-16 17:04:25
How Long have You Played Runescape?
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Mainly only Pascal and some Java.
Are you a member of any other communities?
None
Tell us about yourself…
Please show us one (or multiple) of your scripts.
My Ivy Chopper:
My Alcher:
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Mainly only Pascal and some Java.
Are you a member of any other communities?
None
Tell us about yourself…
From: mega284
My name is Harjot and I am a seventeen year old student in Calgary. My interests are mainly scripting, playing runescape and playing basketball.
Please show us one (or multiple) of your scripts.
My Ivy Chopper:
program MegaIvyChopper;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
const
SRLStats_User = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
SERVER = 0; // Enter "0" to pick a random server.
MEMBERS = True;
BreakEvery = 250; // How long to bot before break
BreakFor = 10; // Break Length
NumbOfPlayers = 1;
StartPlayer = 0;
var
IvyChopped, TotalEXP: integer;
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['XP'];
With Players[0] do
begin
Name := ''; //Username.
Pass := ''; //Password.
Active := True;
end;
end;
function CheckAndClick (UpText, Option:String; x, y:Integer; RClick:Boolean):Boolean;
begin
MMouse(x, y, 6, 6);
If WaitUpText(UpText, 1000+Random(200)) Then
begin
Result:=True;
GetMousePos(x, y);
If RClick Then
begin
Mouse(x, y, 0, 0, False);
Result:= WaitOption(Option, 2000);
If Result Then FFlag(0);
end Else
Begin
Mouse(x, y, 0, 0, True);
Wait(150+Random(100));
FFlag(0);
end;
end;
end;
Function Cutting: Boolean;
var
PBox: TBox;
begin
PBox := IntToBox(250, 132, 279, 193);
Result := (AveragePixelShift(PBox, 500, 800) > 425);
end;
procedure Report;
begin
TotalEXP := (IvyChopped*333);
Writeln('############ MegaIvyChopper ##########');
Writeln('|= Player : ' + Players[CurrentPlayer].Name);
Writeln('|= Time Running : ' + TimeRunning);
Writeln('|= Xp gained : ' + IntToStr(TotalEXP));
Writeln('######################################');
end;
procedure IvyChopping;
var
x,y:Integer;
begin
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
wait(200+random(400));
if FindObjCustom(x, y, ['vy', 'hop'], [4554080, 4686179, 4884071, 4224089, 4884071], 10) then
begin
Writeln('Ivy Has Been Found :)');
Wait(100+random(200));
Mouse(x,y,4,4,true)
wait(100+random(45));
end else Writeln('Cannot find Ivy');
repeat
wait(50+random(100));
Until(Not Cutting);
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
exit;
FindNormalRandoms;
case Random(2) of
0:
begin
WriteLn('AntiBan Is Being Performed');
HoverSkill('Woodcutting', false);
wait(3000+Random(1000));
end;
1:
begin
WriteLn('Bored')
If (Cutting) then
BoredHuman;
end;
end;
end;
procedure FailSafe (Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
TerminateScript;
end;
begin
Smart_Signed := TRUE;
Smart_Members := MEMBERS;
Smart_SuperDetail := FALSE;
ActivateClient;
SetupSRL;
DeclarePlayers;
if not (LoggedIn) then
LoginPlayer;
wait(1000+random(400));
Repeat
IvyChopping;
Report;
Until(false);
end.My Alcher:
program MegaAlcher;
{$DEFINE SMART}
{$i srl/srl.simba}
const
SRLStats_User = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
SERVER = 0; // Enter "0" to pick a random server.
MEMBERS = True; //False if F2P
BreakEvery = 250; // How long to bot before break
BreakFor = 10; // Break Length
NumbOfPlayers = 1;
StartPlayer = 0;
Alch = 1; // 0 for High Alchemy and 1 for Low Alchemy
var
TotalEXP, Alchs: integer;
procedure DeclarePlayers;
var
i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['XP'];
With Players[0] do
begin
Name := ''; //Username.
Pass := ''; //Password.
Active := True;
Pin := '' // Bank Pin
end;
end;
////////////////////////////// End of Setup////////////////////////////////////
procedure Alching;
begin
case Alch of
0:
begin
Mouse(748, 187, 3, 3, True);
begin
repeat
Mouse(655, 232, 3, 3, True);
Wait(100 + Random(45));
Mouse(655, 233, 3, 3, True);
Wait(1150 + Random(35));
until(False);
end;
end;
end;
case Alch of
1:
begin
Mouse(748, 187, 3, 3, True);
begin
repeat
Mouse(592, 234, 3, 3, True);
Wait(100 + Random(45));
Mouse(592, 234, 3, 3, True);
Wait(1150 + Random(35));
until(False);
end;
end;
end;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
exit;
FindNormalRandoms;
WriteLn('AntiBan Is Being Performed');
HoverSkill('Magic', false);
wait(3000+Random(1000));
end;
procedure Report;
begin
TotalEXP := (Alchs*65);
Writeln('############## MegaAlcher ############');
Writeln('|= Player : ' + Players[CurrentPlayer].Name);
Writeln('|= Time Running : ' + TimeRunning);
Writeln('|= Xp gained : ' + IntToStr(TotalEXP));
Writeln('######################################');
end;
procedure FailSafe (Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
TerminateScript;
end;
begin
Smart_Signed := TRUE;
Smart_Members := MEMBERS;
Smart_SuperDetail := FALSE;
ActivateClient;
SetupSRL;
DeclarePlayers;
if not (LoggedIn) then
LoginPlayer;
wait(4000+random(400));
repeat
Alching;
Report;
AntiBan;
until(Not LoggedIn);
end.