Mattie403
2012-02-15 15:14:27
How Long have You Played Runescape?
10 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
I know Java and am now learning Simba.
Are you a member of any other communities?
One: RSPortal.org.
Tell us about yourself…
Please show us one (or multiple) of your scripts.
10 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
I know Java and am now learning Simba.
Are you a member of any other communities?
One: RSPortal.org.
Tell us about yourself…
From: Mattie403
I am a senior in high school and love coding. I am currently taking an AP class on Java. I do know Java very well which helps me out quite a lot with this scripting. I want to learn more and want to actually take this up as a career. I most likely want to fall under a 3D modeling job but I'm still looking around other fields of Computer Science. I would like to be a member of this forum not only to help others with their problems, but to also help by providing my own scripts. As from what I've seen, this community seems like a promising one.
Please show us one (or multiple) of your scripts.
Only in beta version, first ever script. Just made it a couple days ago. Uploaded yesterday.
program MattiesAlcher;
{**************************************|
| Mattie's Alcher |
| |
| Just input your info, |
| and press play :D |
| |
| By: Mattie403 |
|**************************************}
{$DEFINE SMART}
{$i SRL/SRL.Simba}
{$i sps/sps.simba}
{$i SRL/SRL/misc/paintsmart.Simba}
const
SERVER = 0; // Enter "0" to pick a random server.
MEMBERS = True; //False if F2P
//BreakEvery = 250; // How long to bot before break(min)
//BreakFor = 10; // Break Length(min)
NumbOfPlayers = 1;
StartPlayer = 0;
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;
procedure FailSafe (Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
TerminateScript;
end;
procedure AntiBan;
begin
Writeln('Antiban attempt..');
//StatsGuise('Antiban');
case random(50) of
0..5: begin Writeln('Performing Antiban!'); HoverSkill('Magic',false); GameTab(28); end;
6..10: begin Writeln('Performing Antiban!'); PickupMouse; end;
11..15: begin Writeln('Performing Antiban!'); RandomMovement; end;
16..20: begin Writeln('Performing Antiban!'); BoredHuman; end;
21..30: begin Writeln('Performing Antiban!'); RandomRClick; end;
end;
end;
procedure HighAlch;
begin
Writeln('Alching!');
GameTab(28);
Wait(500+random(100));
case random(2) of
0: Mouse(670,255,10,10,True);
1: Begin
Mouse(670,255,10,10,False);
WaitOption('Cas', 500);
end;
end;
Wait(500+random(100));
case random(2) of
0: Mouse(622,228,10,10,True);
1: Begin
Mouse(622,228,10,10,False);
WaitOption('Cas', 500);
end;
end;
end;
begin
activateClient;
SetupSRL;
DeclarePlayers;
if not (LoggedIn) then
LoginPlayer;
wait(4000+random(400));
Repeat
Antiban;
HighAlch;
until(false);
end.