SRL Archive - Outdated Tutorials

This is a Old Tutural Script i wrote to help noobs learn basic Scar scripting and some basic SRL procedures. Enjoy!

Pretty descriptive, I think it'll help many starters.

yea i wrote a whole series of these actually but they were for ssi2, i got bored and converted the first one i wrote ill eventually have the whole series up here.

AWESOME Helped me alot, I am looking forward to more. I am trying to learn scar ASAP. Hope to contribute to the community soon, I think with your help I will be able to do that faster.

DUDE IM IN LOVE. mhm. thats what i would of said if it was a women.
u actually explained it. saweet

nice gravedid smith, the last post was from LAST YEAR.

btw i made one of these kind of too,

{
INSTRUCTIONS:
1. Fill out the messages to what you want them to say.
2. Fill out the colors and effects you want
3. Drag crosshair to runescape.
4. Press F4 for message 1, F5 for 2, F6 for 3, F7 for 4 and F8 for 5.
5. Press F10 to stop the script.
}



program SimpleAutoTalker; //The program name
{.include SRL/SRL.scar}

const //Constants, these stay the same throughout the whole script
Color = ('white'); //Red, cyan, green, white, flash 1, flash 2, flash 3
Effect = ('shake'); //Wave, wave 2, shake, scroll, slide
Message1 =('This is the first message');
Message2 =('This is the second message');
Message3 =('This is the third message');
Message4 =('This is the fourth message');
Message5 =('This is the fifth message');

procedure Talk; //The procedure name
begin //Begin the procedure
  if(IsFKeyDown(4))then //If the key F4 is down it will..
  begin //Begin this part of procedure
   TypeSend(Color + ':' + Effect + ':' + Message1);  //Types message1, and the color and effect
   Talks:=Talks+1;  //Everytime we talk it adds 1 to the times talked
  end; //Ends this part of procedure

  if(IsFKeyDown(5))then
  begin
   TypeSend(Color + ':' + Effect + ':' + Message2);
   Talks:=Talks+1;
  end;
  
  if(IsFKeyDown(6))then
  begin
   TypeSend(Color + ':' + Effect + ':' + Message3);
   Talks:=Talks+1;
  end;
  
  if(IsFKeyDown(7))then
  begin
   TypeSend(Color + ':' + Effect + ':' + Message4);
   Talks:=Talks+1;
  end;
  
  if(IsFKeyDown(8))then
  begin
   TypeSend(Color + ':' + Effect + ':' + Message5);
   Talks:=Talks+1;
  end;
end; //Ends the whole procedure

procedure Proggy;
begin
  Writeln('[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]'); //Writes text in the debug box
  Writeln('Talked ' + IntToStr(Talks) + ' Times' + '    ');
  Writeln('Script has been running for ' +  TimeRunning);
  Writeln('[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]');
end;


Procedure MainLoop;
begin
  ActivateClient;  //This minimizes SCAR and goes to the runescape screen.
  SetupSRL; //Sets up SRL so it can be used.
 repeat
   Talk;  //Uses the talk procedure
 until(IsFKeyDown(10));  //Stops script when F10 is pressed.
  Proggy; //Does the progress report
end;

begin //The begin of the real mainloop
MainLoop;
end. //The end of the mainloop, and the end of the whole script.

nice i like the scriped, its easy to fallow and and very discripive
i made almost the same one before i saw this one

Hey Dankness, i just wanted to know.. what does the procedure "findrandoms" do? i mean does it solve them, or run away from fights, or only detect them?

Nice tut, mabey a little to basic? You should add a little more.

woot, im startign to understand it thx

A little too basic for my liking. But the descriptions were pretty vivid.
Maybe go into a little bit more depth? Overall I liked it thought. thanks :)

nice tut man :P