Rune Hacker
2007-03-18 03:32:37
<!– BEGIN TEMPLATE: formanswers –>
rune hacker - SRL Member Application Form
rune hacker
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
xml, lua, and toc from world of warcraft addons lol
Other Communitys
sythe.org
How Long have You Played Runescape
3-4 years i think
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
Well my purple party hat has been scammed recently and i turned to scar to try and make some of the money back. i know it wont buy my purple back, but what else is there to do. scar is also very easy to get used to and fun since im fucking jagex over for not giving my purple back =P. i have 2 friends that cheat on rs a little also so i wanted to try it out.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
rune hacker - SRL Member Application Form
rune hacker
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
xml, lua, and toc from world of warcraft addons lol
Other Communitys
sythe.org
How Long have You Played Runescape
3-4 years i think
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
Well my purple party hat has been scammed recently and i turned to scar to try and make some of the money back. i know it wont buy my purple back, but what else is there to do. scar is also very easy to get used to and fun since im fucking jagex over for not giving my purple back =P. i have 2 friends that cheat on rs a little also so i wanted to try it out.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
//------------------------------------------------------------------------\\
// Here is a Bone Burier lol \\
//------------------------------------------------------------------------\\
// Setup Lines : 23-26 \\
// 32-49 \\
//------------------------------------------------------------------------\\
// \\
//------------------------------------------------------------------------\\
// Instructions \\
//------------------------------------------------------------------------\\
// 1. Set Runescape on low detail and on Very Bright. \\
// 2. Join a world where people dont pick up thier bones. \\
// 3. Start logged in or out where lots of bones are laying around. \\
// 4. Click on play and hope it works since its my first script lol. \\
//------------------------------------------------------------------------\\
program BoneBurier;
{.include SRL\SRL.scar}
Var
Loads: Integer;
const
bonecolor = 13816536; //color of bone you are picking up
RunDirection = 'N'; //direction you run away from random events(N,E,S,W)
Skillforlamp = 'Prayer'; //what to use a genie lamp on
numberloads = 5 ; //number of bones you want buried per player
//-------------------------------Players----------------------------------\\
procedure DeclarePlayers;
begin
HowManyPlayers:=3;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='Username'; //Username goes here.
Players[0].Pass :='Passowrd'; //Password goes here.
Players[0].Nick :='sern'; //Type 3-4 letters of your runescape username.
Players[0].Active :=true; //Is this player active?
Players[1].Name :='Username';
Players[1].Pass :='Password';
Players[1].Nick :='sern';
Players[1].Active :=false;
Players[2].Name :='Username';
Players[2].Pass :='Password';
Players[2].Nick :='sern';
Players[2].Active :=false;
end;
//-----------------------------Progress Report----------------------------\\
Procedure Progressreport;
begin
Writeln('');
Writeln('//-----------Progress On Bone Burying-----------\\');
Writeln('//----Ran for '+ ScriptTime2(1) +' ----\\');
Writeln('//----Buried '+IntToStr(loads)+' loads----\\');
Writeln('//----Buried '+IntToStr((loads)*28)+' bones----\\');
WriteLn('//Gained about '+IntToStr((loads)*140)+' xp----\\')
end;
//------------------------------Anti Randoms------------------------------\\
Procedure AntiRandoms;
Begin
FindNormalRandoms;
FindLamp(Skillforlamp);
FindTalk;
FindScapeRune;
if (findfight) then begin
RunAwayDirection(RunDirection);
SleepAndMoveMouse(10000+Random(2000));
RunBack;
end;
end;
//-----------------------------Pick up bones------------------------------\\
Procedure Pickup;
Begin
Repeat
Findcolor(x,y,bonecolor,5,5,515,340)
Wait(300+random(100))
Mouse(x, y, 2, 2, False);
Wait(350+random(150))
ChooseOption(x, y, 'Bones');
Flag;
Wait(600+random(200))
Until(InvFull)
AntiRandoms;
end;
//------------------------------Bury bones--------------------------------\\
Procedure Bury;
begin
if(InvFull)then
begin
loads:=loads+1;
repeat
clickitemcolortol(bonecolor,4,true);
wait(300+random(25))
AntiRandoms;
Progressreport;
until(InvEmpty)
end;
end;
//------------------------------------------------------------------------\\
Procedure loadnumbers;
begin
repeat
Bury;
until(loads=numberloads)
AntiRandoms;
Progressreport;
SRLrandomsReport;
NextPlayer(True);
end;
//------------------------------------------------------------------------\\
Begin
SetupSRL;
DisguiseScar('iTunes');
DeclarePlayers;
LoginPlayer;
SetChat('on', 1);
SetChat('friends', 2);
SetChat('off', 3);
Setrun(true);
HighestAngle;
PerfectNorth;
Progressreport;
AntiRandoms;
Pickup;
Bury;
end.
end.——————————————————
<!– END TEMPLATE: formanswers –>