Solidone40
2012-02-14 18:03:20
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 learning SRL pretty smoothly, if I do say so myself. I hope to improve by being a member of this great community.
Are you a member of any other communities?
I was a part of RsBuddy and the Kbot communities, before they went defunct/screwed us over.
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 learning SRL pretty smoothly, if I do say so myself. I hope to improve by being a member of this great community.
Are you a member of any other communities?
I was a part of RsBuddy and the Kbot communities, before they went defunct/screwed us over.
Tell us about yourself…
From: Solidone40
I'm 16 years old, and I've played Runescape for 8 years. I enjoy the internets, learning, lively debate, ganja, music, a good challenge, and Runescape along with other gaming. I became involved with botting about 3 years ago, in the era of Kbot. I was a mere leech then, but with the advent of RsBuddy I became a productive member of their community. After the fall of RsBuddy, I took a hiatus from Runescape, but came here in the hopes of finding a good community and being a productive member of it. I not only found both of these things, but I've also taken an interest in scripting for SRL, and I'm happy to learn how to program. My script below may not be amazing, but I'm happy to say that I'm making progress, and I want to apply for membership to fully join a great community (and be seen as more then a leech lulz) and to further enhance my knowledge of Simba. Below is my Teleporting script, as well as my antiban/minibreaking system.
Please show us one (or multiple) of your scripts.
program SolidTeleport; //by Solidone40
{$DEFINE SMART} //Post your proggys/bugs!
{$DEFINE SRL5}
{$i SRL/srl.simba}
const
Destination = 'vrck' ; //Put destination here - Cmlt, or Vrck
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; //For now, this script will simply bot until the 6-hour mark is up, or it runs out of runes
StartPlayer = 0;
var
count: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //If you really want more, copy+paste
NumberOfPlayers(HowManyPlayers); //the form.
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
BoxRewards := ['XP','xp','lamp'];
Active := True;
end;
end;
Procedure Setup;
begin
Smart_Members := False;
Smart_Server := 0;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Count:=0;
Wait(1000+Random(250));
FindNormalRandoms;
end;
Procedure Teleport;
var
Time, t :integer;
begin
if FindNormalRandoms or not (LoggedIn) then
TerminateScript;
case Destination OF
'vrck':
begin
repeat
Inc(t);
if not gametab(tab_magic) then
GameTab(tab_magic);
wait (50 + random(400));
Mouse(695 + random(3) , 275+ random(3), 0, 0, 1);
MarkTime(Time);
wait (3000 + random (1000));
if FindBlackChatMessage('aw runes')
or FindBlackChatMessage('ire runes')
or FindBlackChatMessage('ir runes') then TerminateScript;
until (t > 10);
end;
'cmlt':
repeat
Inc(t);
if not gametab(tab_magic) then
GameTab(tab_magic);
wait (50 + random(400));
Mouse(670 + random(3) , 326 + random(3), 0, 0, 1);
MarkTime(Time);
wait (3000 + random (1000));
if FindBlackChatMessage('aw runes')
or FindBlackChatMessage('ire runes')
or FindBlackChatMessage('ir runes') then TerminateScript;
until (t > 10);
end;
end;
Procedure Antiban;
Begin
if(not(LoggedIn))then
exit;
FindNormalRandoms
Case Random(80) Of
1: HoverSkill('magic', False);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: PickUpMouse;
6: RandomMovement;
7: RandomRClick;
end;
end;
Procedure MiniBreaker;
Begin
Case Random (120) Of
1: Wait(430000 + random(7406));
2: Wait(55500 + random(8550));
3: Wait(220040 + random(6759));
4: Wait(34400 + random(2549));
end;
end;
procedure Proggy;
begin
WriteLn('// Progress Report \\');
WriteLn('Time Running: '+TimeRunning);
WriteLn('Teleports:' +IntToStr(count));
WriteLn('//SolidTele by Solidone40\\');
end;
begin
setup
if not (LoggedIn) then
LoginPlayer;
wait(5000+random(600));
repeat
Teleport;
Antiban;
Minibreaker;
until FindBlackChatMessage('aw runes')
or(not LoggedIn)
or FindBlackChatMessage('ire runes')
or FindBlackChatMessage('ir runes');
Writeln('Script Finished');
Proggy;
end.