SRL Archive - Archive

How Long have You Played Runescape?
4 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
Eicca


What is your general programming knowledge?
Pascal, HTML


Are you a member of any other communities?
PiroX Bot :)


Tell us about yourself…

From: Nikize
I am an 18 year old male, I rollerscate, jog outside, play WoW sometimes and i still like to use my old runescape character which i levelled fast thanks to this community. I had keen interest in using scripts in runescape after i registered to this community, and it gave me an inspiration to learn Pascal.

Please show us one (or multiple) of your scripts.

{|********************Made by Nikize*********************|}
{|*************Only for SRL community********************|}
{|************Do not Copy without permission*************|}
{|**********Thanks WhoCares357 for your tutorial*********|}
{|**************Version 1.2 made 21.10.07****************|}
{|-------------------------------------------------------|}
{|********************Version History********************|}
{|-------------------------------------------------------|}
{|**********************Version 1.0**********************|}
{|***********                                 ***********|}
{|***********       Well, i made it :D        ***********|}
{|***********                                 ***********|}
{|**********************Version 1.2**********************|}
{|***********                                 ***********|}
{|***********     Fixed the script, so that   ***********|}
{|***********       music works now 100%      ***********|}
{|***********              Also:              ***********|}
{|***********     -Corrected Mouse moves      ***********|}
{|***********     -Made less antiban          ***********|}
{|***********       ( Duh, useless )          ***********|}
{|***********                                 ***********|}
{|-------------------------------------------------------|}
{|********************Made by Nikize*********************|}




program LogIn;
{.include SRL/SRL.scar}




{*****************Variables*******************}
{*********************************************}


var
x,y,t: Integer;



{******************Constants******************}
{*********************************************}


const
PlayerName= '';                  //Your Username
PlayerPassword= '';             //Your Password
TurnOff= True;                 //True for music off, False for music on
Sign= 1315974;                //Dont touch this!
Letter= 16777215;            //Dont touch this!
Letter2= 65535;             //Dont touch this!




{***************Music procedure**************}
{********************************************}


procedure Music;

begin
Writeln('');
Writeln('*******Music procedure*************');
Wait(173+random(241));
MoveMouseSpline(57,51,2,5);
Wait(145+random(173));
Mouse(57,51,4,2,true);
 if (TurnOff=False) then
  begin
Writeln('You have requested to put music on.');
 if (findcolor(x,y,Sign,734,482,741,491))
  then begin
Writeln('Music is currently set to off..');
Writeln('Setting music on..');
Writeln('Logging in...');
Wait(540+random(270));
MoveMouseSpline(744,483,2,4);
Wait(57+random(194));
Mouse(744,485,2,1,true);
 end
  else
Wait(145+random(151));
Writeln('Music is already on..');
MoveMouseSpline(230,161,2,3);
Wait(267);
Mouse(232,163,3,2,true);
Writeln('Ending music-procedure, starting LogIn-procedure..');
Writeln('***********************************');
end;

begin
 begin
  if (TurnOff=True) then
   begin
  Writeln('You have requested to set music off');
  if (FindColor(x,y,Sign,734,482,741,491)) then
  begin
Wait(296+random(254));
Writeln('Color found, music is already off!');
Wait(245+random(212));
MoveMouseSpline(432,286,2,5);

 end else
MoveMouseSpline(477,411,2,3);
Writeln('Logging in with music off.');
Writeln('Ending music-procedure, starting LogIn-procedure..');
Writeln('***********************************');
 if (FindColor(x,y,Letter2,362,215,376,226)) then
  begin
Wait(150+random(467));
Writeln('Ending music-procedure, starting LogIn-procedure..');
MoveMouseSpline(251,195,8,12);
Writeln('****************************************');
end;
end;
end;
end;
end;




{**************LogIn Procedure**************}
{*******************************************}

Procedure LogIn;

begin
Writeln('');
Writeln('*******LOGIN PROCEDURE*************');
Wait(228+random(183));
MoveMouseSpline(457,285,3,2);
Wait(163+random(164));
Mouse(459,284,2,1,true);
Wait(327+random(121));
MoveMouseSpline(349,255,3,2);
Mouse(351,255,2,1,true);
TypeSend(PlayerName);
TypeSend(PlayerPassword);
MoveMouseSpline(265,322,3,5);
Mouse(268,323,2,3,true);
Wait(139+random(214));
Writeln('Now i should have entered your username and password..');
Wait(2356+random(589));
 begin
 if
(FindColorSpiral(x,y,Letter,358,325,375,340)) then
 begin
Wait(764+random(441));
Writeln('Congratulations, we have found the Letter!');
Wait(127+random(251));
MoveMouseSpline(404,334,2,3);
Writeln('Moving mouse to start playing-button..');
Wait(235+random(141));
Mouse(405,336,2,1,true);
Writeln('We have succesfully logged in!');
Writeln('**********************************');
 end else
Wait(161+random(11));
end;
 begin
 if
(FindColor(x,y,Letter,456,315,464,324))then
 begin
Wait(125+random(241));
writeln('...');
MoveMouseSpline(456,325,2,4);
Writeln('...');
Mouse(456,327,3,2,true);
writeln('Debugging complete, retrying...');
 begin
t:=0;
 repeat
t:=t+1;
 until (t=3);
end;
end;
end;
end;

 begin
Music;
 LogIn;
end.


Copy to SCAR to view

It's cool you're learning, but you have to make a script that uses the SRL library and also should be a Runescape script.

Hey my friend, good thing you have made a start. the SRL Resource Library can take care of a lot of things for you, making your scripts more effective and easy to write ;) I'd suggest reading some more tutorials and perhaps reading through the include yourself :) it's a great learning resource!

For now, you are on the right path, but you do not yet have the knowledge you need to become an SRL Member. Keep on learning, and we'll be waiting for you :)

~RM