RudeBoiAlex
2007-03-08 13:34:02
<!– BEGIN TEMPLATE: formanswers –>
rudeboialex - SRL Member Application Form
rudeboialex
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
None
Other Communitys
Sythe.org
How Long have You Played Runescape
3 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
i joined srl-forums around 3-5 months ago. I found it hard to script :( but then pwnaz0r released an ownage guide helped me alot.Im no an uber scripter alot to learn but gradduly over time i hope i will become an uber scrpter.Thanks in advance Rudeboialex.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
rudeboialex - SRL Member Application Form
rudeboialex
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
None
Other Communitys
Sythe.org
How Long have You Played Runescape
3 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
i joined srl-forums around 3-5 months ago. I found it hard to script :( but then pwnaz0r released an ownage guide helped me alot.Im no an uber scripter alot to learn but gradduly over time i hope i will become an uber scrpter.Thanks in advance Rudeboialex.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program DuMmYpWnAgE;
{.include SRL/SRL.scar}
//Start Near Dummys Highest Camera Angle Low Detail.
//JADS AnitBan.
Const
DummyColor = 8825027; //Pick Mannualy For Better Results.
HitDummy = 5000;//Seconds To Hit Dummy Again.
NumberOfUsers = 1;//How Many Players Are You Using.
StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
Procedure DeclarePlayers;
//If Not Using Any Left Over Players Delete There Forms.
Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='UserName';
Players[0].Pass :='Password';
Players[0].Nick :='3-4 Letters Of Youre USername';
Players[0].Active:=True;
Players[1].Name :='Username';
Players[1].Pass :='Password';
Players[1].Nick :='3-4 Letters Of Youre Username';
Players[1].Active:= True;
Players[2].Name :='Username';
Players[2].Pass :='Password';
Players[2].Nick :='3-4 Letters Of Youre Username';
Players[2].Active:= True;
Players[3].Name :='Username';
Players[3].Pass :='Password';
Players[3].Nick :='3-4 Letters Of Youre Username';
Players[3].Active:= True;
Players[4].Name :='Username';
Players[4].Pass :='Password';
Players[4].Nick :='3-4 Letters Of Youre Username';
Players[4].Active:= True;
end;
Procedure LocateDummy;
Begin
If
(FindColorSpiral(x,y,DummyColor,2,2,418,304)) Then
Begin
Writeln('Found NoOb DuMmY Now Starting Script')
End Else
Writeln('Didnt FiNd NoOb DuMmY');
end;
Procedure AttackDummy;
Begin
if
(findColorSpiral(x,y,DummyColor,2,2,418,304)) Then
MMouse(x,y,3,3)
IsTextAt2(9,9,'Attack',20)
Mouse(x,y,2,2,True)
Wait(HitDummy + Random(1000))
end;
Procedure NothingLearn;
Begin
Repeat
AttackDummy;
until (FindText(x, y, 'There is nothing more you can learn from hitting a dummy', smallchars, MCX1, MCY1, MCX2, MCY2))
end;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
function DoAntiBan: Boolean;
begin
AntiBan;
wait(50 + random(100));
BoredEvery(3 + random(3));
wait(100 + random(100))
RotateEvery(7 + random(4));
wait(750 + random(250));
LeaveScreenEvery(5 + random(7));
wait(500 + random(150));
end;
procedure ProgressReport;
Var
Clicks: integer;
begin
ClearDebug;
Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
Writeln('---------------->RuDeBoIaLeX PrOgGy :)<----------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
end;
Begin
SetupSRL;
Repeat
DeclarePlayers;
LocateDummy;
AttackDummy;
DoAntiRandoms;
DoAntiBan;
NothingLearn;
ProgressReport;
Until FindText(x, y, 'There is nothing more you can learn from hitting a dummy', smallchars, MCX1, MCY1, MCX2, MCY2)
end.program PoWeRmInEr;
{.include SRL/SRL.scar}
//JADS AnitBan Credit Goes To Him.
//Reads JADS tut they pwn.
//The Rest Of The Script Was Made By Me.
//Drop Procedure Is Really Slow
//Will Bulid On This Script In Future
Const
Loads = 2;//How Many Loads.
NumberOfUsers = 1;//How Many Players Are You Using.
StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
RudeProggy = True;//Use My Proggy Please For Reports.
Color = 4418452;//The Color Of The Ore You Want To Mine.
ClickRock = 5000;//How Long To Click Again
RunAwayDirection = ('N');
Procedure DeclarePlayers;
//If Not Using Any Left Over Players Delete There Forms.
Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='UserName';
Players[0].Pass :='Password';
Players[0].Nick :='3-4 Letters Of Youre USername';
Players[0].Active:=True;
Players[1].Name :='Username';
Players[1].Pass :='Password';
Players[1].Nick :='3-4 Letters Of Youre Username';
Players[1].Active:= True;
Players[2].Name :='Username';
Players[2].Pass :='Password';
Players[2].Nick :='3-4 Letters Of Youre Username';
Players[2].Active:= True;
Players[3].Name :='Username';
Players[3].Pass :='Password';
Players[3].Nick :='3-4 Letters Of Youre Username';
Players[3].Active:= True;
Players[4].Name :='Username';
Players[4].Pass :='Password';
Players[4].Nick :='3-4 Letters Of Youre Username';
Players[4].Active:= True;
end;
Procedure FindRocks;
Begin
If
(FindColorSpiral(x,y,Color,2,2,418,304)) Then
Begin
Writeln('Found Ore Now Starting Script')
End Else
Writeln('Didnt Find Ore');
end;
Procedure MineRocks;
Begin
if
(findColorSpiral(x,y,Color,2,2,418,304)) Then
MMouse(x,y,3,3)
IsTextAt2(9,9,'Mine',20)
Mouse(x,y,2,2,True)
Wait(ClickRock + Random(500))
end;
procedure Inventory;
begin
repeat
MineRocks;
Until (InvFull)
end;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
function DoAntiBan: Boolean;
begin
AntiBan;
wait(50 + random(100));
BoredEvery(3 + random(3));
wait(100 + random(100))
RotateEvery(7 + random(4));
wait(750 + random(250));
LeaveScreenEvery(5 + random(7));
wait(500 + random(150));
end;
Procedure DropOres;
Begin
if
(InvFull) Then
DropTo(2,28);
End;
Begin
SetupSRL;
Repeat
DeclarePlayers;
FindRocks;
MineRocks;
Inventory;
DoAntiRandoms;
DoAntiBan;
DropOres;
Until(False);
end.——————————————————
<!– END TEMPLATE: formanswers –>