spicynachos2
2009-06-24 02:24:03
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?
I am a student of SCAR, I know the basics of HTML, I'm quickly learning scar and i have just completed my first script for runescape. However i have made atleast 20 scripts for private servers.
Are you a member of any other communities?
If you mean botting forums then yes, however i really don't remember which. I have quit scripting and runescape for the past couple months.
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?
What is your general programming knowledge?
I am a student of SCAR, I know the basics of HTML, I'm quickly learning scar and i have just completed my first script for runescape. However i have made atleast 20 scripts for private servers.
Are you a member of any other communities?
If you mean botting forums then yes, however i really don't remember which. I have quit scripting and runescape for the past couple months.
Tell us about yourself…
From: spicynachos2
My name is Grant. I live in Portland, Oregon and i attend to a very small competitive private school. I am very advanced at math for my age and have excelled to pre calculus for my freshman year. I build and drive/fly rc planes and nitro cars. I have player RS for a long time and i got into scar about 3 years ago. Sorry for low post count and daily posts but i am becoming more active right now.
Please show us one (or multiple) of your scripts.
I lost my scripts for Gaia, Neopets and old runescape scripts but here is my newest one. It is still a rough draft and pm me with whoever is reviewing this and i will send you the finished script.
Ep trainer:
{==============================================================================]
[ [SRL]Grants EP Trainer ]
[ ]
[ NAME : Grant's EP Trainer ]
[ WRITER : Grant ]
[ CATEGORY : Best EP Trainer ]
[ DESCRIPTION : Trains EP on accounts with 4 items or 75k ]
[ ]
[==============================================================================]
[ Instructions: Please check the forums for details. ]
[==============================================================================}
{.Include SRL\SRL\Misc\Smart.Scar}
{.include SRL/SRL.scar}
{.include srl/srl/misc/Users.scar}
{.include srl/srl/skill/Fighting.scar}
var
x,y : Integer;
TPA : TPointArray;
const
SmartWorld= 69; //Smart World?
Members= True; //members world or no
SignedC= False; //use signed client?
procedure declareplayers;
begin
HowManyPlayers:= 1; // How many players are you using
CurrentPlayer:= 0; //
NumberOfPlayers(HowManyPlayers); //
Players[0].Name := ''; //UserName
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //Nick Name
Players[0].Active := True; //Use This Player [ True / False ]
end;
Procedure setup;
var
Smart_Server: Integer;
Smart_Members, Smart_Signed, Smart_SuperDetail: Boolean;
begin
Smart_Server:= (SmartWorld);
Smart_Members:= (Members);
Smart_Signed:= (SignedC);
Smart_SuperDetail:= false;
SetupSRL;
ClearDebug;
MouseSpeed := 12 + Random(4);
Wait(2500);
repeat
Wait(500+random(3332));
until(RSReady);
end;
Procedure SelectWorld26;
begin
Writeln('Selecting World 26');
Wait(300+random(20));
Mouse(386, 242,3,1,true);
repeat
Writeln('waiting');
Wait(5000+random(3000));
until(FindColor(x,y,16777215,395, 101,453, 116)=true);
Mouse(250, 151,14,3,true);
end;
procedure SetupPlayer;
Var
Mode, i:integer;
begin
AllowPVP := True;
if (not(LoggedIn)) then LoginPlayer;
Status('Setting up player: '+Players[CurrentPlayer].Name+'...');
MouseSpeed := RandomRange(13, 16);
ClickContinue(true,true);
SetAngle(true);
SetAngle(true);
Retaliate(true);
SetRun(true);
SetRest;
end;
Procedure Hoverskill2;
begin
case (random(40)) of
1: HoverSkill('strength', true);
2: HoverSkill('attack', true);
3: HoverSkill('defence', true);
4: HoverSkill('hitpoints', true);
5: HoverSkill('mining', true);
6: HoverSkill('smithing', true);
7: HoverSkill('woodcutting', true);
8: HoverSkill('firemaking', true);
9: HoverSkill('magic', true);
10: HoverSkill('hunter', true);
11: HoverSkill('summoning', true);
12: HoverSkill('fishing', true);
13: HoverSkill('construction', true);
14: HoverSkill('herblore', true);
15: HoverSkill('agility', true);
16: HoverSkill('theiving', true);
17: HoverSkill('strength', false);
18: HoverSkill('attack', false);
19: HoverSkill('defence', false);
20: HoverSkill('hitpoints', false);
21: HoverSkill('mining', false);
22: HoverSkill('smithing', false);
23: HoverSkill('woodcutting', false);
24: HoverSkill('firemaking', false);
25: HoverSkill('magic', false);
26: HoverSkill('hunter', false);
27: HoverSkill('summoning', false);
28: HoverSkill('fishing', false);
29: HoverSkill('construction', false);
30: HoverSkill('herblore', false);
31: HoverSkill('agility', false);
32: HoverSkill('theiving', false);
33: HoverSkill('crafting', false);
34: HoverSkill('ranged', false);
35: HoverSkill('slayer', false);
36: HoverSkill('farming', false);
37: HoverSkill('prayer', false);
38: HoverSkill('runecrafting', false);
39: HoverSkill('cooking', false);
40: HoverSkill('cooking', true);
end;
end;
procedure Gametab2;
begin
case (random(13)) of
1: GameTab(1);
2: GameTab(2);
3: GameTab(3);
4: GameTab(4);
5: GameTab(5);
6: GameTab(6);
7: GameTab(7);
8: GameTab(9);
9: GameTab(10);
10: GameTab(11);
11: GameTab(12);
12: GameTab(13);
13: GameTab(14);
end;
end;
procedure Clicking;
var
R:integer;
begin
if LoggedIn then
begin
Writeln('Clicking');
case (random(8)) of
1: GameTab2;
2: RandomRClick;
3: RandomRClick;
4: BoredHuman;
5: if not GameTab(2) then
begin
Gametab(2);
Hoverskill2;
Wait(300+random(2310));
end;
6: RandomRClick;
7: PickUpMouse;
8: RandomRClick;
end;
end;
end;
Procedure Attacked;
var
TP: TPointArray;
R:integer;
begin
Writeln('Narb attacked me');
Mouse(723, 67,4,3,true);
Typesend(':(');
repeat
if InFight=true then
begin
wait(3000+random(2211));
end else
begin
R:=35;
end;
until(R=35)
wait(14000+random(17312));
end;
Procedure ProtectT3hPixles;
var
TP: TPointArray;
I:integer;
log:Boolean;
begin
repeat
If InFight=true then
begin
Attacked;
I:=40;
end else
begin
I:=0;
clicking;
Writeln('waiting');
repeat
If I=5+random(2000) then
begin
Writeln('Clicking Early');
Clicking;
I:=0;
end else
begin
wait(900+random(15999));
I:=I+1;
end;
until(I=35) or (InFight=true);
end;
until(I=40);
end;
begin
setup;
SelectWorld26;
declareplayers;
SetupPlayer;
if LoggedIn then
ProtectT3hPixles;
Logout;
end.