Giant Panda
2012-02-04 19:05:23
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
I have never programmed before using SIMBA, except a little bit during my Electronics A Level
Are you a member of any other communities?
No
Tell us about yourself…
Please show us one (or multiple) of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
No
What is your general programming knowledge?
I have never programmed before using SIMBA, except a little bit during my Electronics A Level
Are you a member of any other communities?
No
Tell us about yourself…
From: Giant Panda
My name is Josh, I'm 18 and studying at Bath Spa University, England. I do Creative Music Tech so an interest of mine is making music. I also play a bit of HoN (heroes of newerth). I play runescape (obviously) but only really do questing, slayer or minigames (i bot the rest). My main interest at the moment is American Football, I play for my university team and love it.
Please show us one (or multiple) of your scripts.
I have attached my Ivy Chopper script. so far it has over 100 downloads!
It's a fairly basic script but I have had a go at trying to make it more advanced.
Have had some real trouble with adding bird's nests though :/
program Ivy;
{$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;
BreakEvery = 120; // How long to bot before break
BreakFor = 7; // Break Length
NumbOfPlayers = 1;
StartPlayer = 0;
Version = '1.06';
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;
Procedure StatsGuise(wat:String);
begin
Status(wat);
Disguise(wat);
end;
Function CheckAndClick(UpText, Option:String; X,Y:Integer; RClick:Boolean):Boolean;
Begin
MMouse(x, y, 5, 5);
If WaitUpText(UpText, 1500+Random(500)) 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(100+Random(50));
FFlag(0);
End;
End;
End;
Procedure Antiban;
Begin
Case Random(50) Of
0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Woodcutting', False) End;
1: Begin StatsGuise('AntiBan') wait(2000 + Random(10000)); End;
End;
End;
Function Cutting: Boolean;
var
PBox: TBox;
begin
PBox := IntToBox(245, 130, 285, 195);
Result := (AveragePixelShift(PBox, 250, 500) > 400);
end;
Procedure FailSafe(Reason:String);
Begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
End;
procedure ChopIvy;
var
x,y:Integer;
begin
SetAngle(SRL_ANGLE_HIGH);
MakeCompass(90);
wait(300+random(200));
Antiban;
if FindObjCustom(x,y, ['vy','hop'], [4554080, 4686179, 4884071],5) then
begin
Writeln('Found Ivy');
Wait(550+random(500));
Mouse(x,y,4,4,true)
wait(1250+random(250));
end else Writeln('Cannot find Ivy');
repeat
wait(100+random(100));
if not (LoggedIn) then
wait(1000+random(5000));
LoginPlayer;
Until(Not Cutting);
Writeln('Not Cutting');
end;
begin
Smart_Signed := True;
Smart_Members:= MEMBERS;
setupSRLStats(469, SRLStats_User, SRLStats_Password);
activateClient;
SetupSRL;
DeclarePlayers;
if not (LoggedIn) then
LoginPlayer;
wait(1250+random(550));
Repeat
ChopIvy;
Until(false);
end.
I have also added what is the start of a script im currently working on.
It mines iron under falador (at the triple rocks) then goes through the dungeoneering door and banks and goes back.
It doesnt fully work at the moment, it mines then goes through and some times finds the deposit box and sometimes doesnt.
If whoever looks at the script could give me some hints/feedback i would really love that!
program Ivy;
//{$DEFINE SMART}
{$i SRL\SRL.simba}
const
SRLStats_User = ' '; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
SERVER = 139; // Enter "0" to pick a random server.
MEMBERS = True;
BreakEvery = 120; // How long to bot before break
BreakFor = 7; // Break Length
NumbOfPlayers = 1;
StartPlayer = 0;
Version = '1.00';
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;
Procedure StatsGuise(wat:String);
begin
Status(wat);
Disguise(wat);
end;
Function CheckAndClick(UpText, Option:String; X,Y:Integer; RClick:Boolean):Boolean;
Begin
MMouse(x, y, 5, 5);
If WaitUpText(UpText, 1500+Random(500)) 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(100+Random(50));
FFlag(0);
End;
End;
End;
Procedure Antiban;
Begin
Case Random(250) Of
0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Mining', False) End;
1: Begin StatsGuise('AntiBan') wait(2000 + Random(10000)); End;
End;
End;
Function Cutting: Boolean;
var
PBox: TBox;
begin
PBox := IntToBox(245, 130, 285, 195);
Result := (AveragePixelShift(PBox, 250, 500) > 400);
end;
Procedure FailSafe(Reason:String);
Begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
End;
procedure MineIron;
var
x,y:Integer;
begin
SetAngle(SRL_ANGLE_HIGH);
MakeCompass(0)
Antiban;
if FindObjCustom(x,y, ['ir','ron'], [3360116, 2898788, 2503511],5) then
begin
Writeln('Found Iron');
Wait(550+random(500));
Mouse(x,y,4,4,true)
wait(1250+random(250));
end else Writeln('Cannot find Iron');
wait(100+random(300));
end;
procedure Travel1;
var
x,y:Integer;
begin
SetAngle(SRL_ANGLE_LOW);
MakeCompass(270);
if FindObjCustom(x,y, ['mys','iou'], [1977750, 3687342, 2438357],5) then
begin
Writeln('Found Door');
Wait(550+random(500));
Mouse(x,y,4,4,true)
wait(1250+random(250));
end else Writeln('Cannont Find Door');
Travel1;
wait(100+random(300));
end;
procedure Bank;
var
x,y:Integer;
begin
if FindObjCustom(x, y, ['posit'], [6976634, 3949125, 5204087, 3362140], 14) then
begin
Mouse(x, y, 2, 2, True) end else
Bank;
if DepositScreen then
begin
Writeln('Found Bank');
Wait(550+random(500));
end else Bank;
end;
procedure Bank2;
begin
wait(1000+random(300));
if DepositScreen then
begin
QuickDeposit(SRL_DEPOSIT_ALL);
CloseWindow end else
Bank2;
end;
procedure Travel2;
var
x,y:Integer;
begin
SetAngle(SRL_ANGLE_LOW);
MakeCompass(270)
if FindObjCustom(x,y, ['mys','iou'], [1977750, 3687342, 2438357],5) then
begin
Writeln('Found Door');
Wait(550+random(500));
Mouse(x,y,4,4,true)
wait(1250+random(250));
end else Writeln('Cannont Find Door');
Travel2;
wait(100+random(300));
end;
begin
Smart_Signed := True;
Smart_Members:= MEMBERS;
setupSRLStats(469, SRLStats_User, SRLStats_Password);
activateClient;
SetupSRL;
DeclarePlayers;
if not (LoggedIn) then
LoginPlayer;
wait(1250+random(550));
Repeat
MineIron;
If(InvFull) then
begin
Travel1;
Bank;
Bank2;
Travel2;
end;
Until(False);
end.