SRL Archive - RS3 Outdated / Broken Scripts

I do believe this kind of thing goes here.

Anyways, hi :)

I've put together a few simi-useful procedures here, and decided to share them with the rest of this community :p

 procedure ClickToContinueEx(Times:Integer);
 var
 Done : Integer;
  begin
   repeat
    ClickToContinue;
    Wait(500 + Random(500));
    Done := Done + 1;
   until(Times = Done);
  end;

Well, I got tired of typing in "ClickToContinue" over and over again, so I made a procedure for multiples of that command.

 procedure NPCFinder(NPCColor, Tol: Integer; Name: String);
 var
 Tries : Integer;
  begin
   repeat
   if(FindColorSpiralTolerance(x, y, NPCColor, MSX1, MSY1, MSX2, MSY2, Tol))then
    Wait(500 + Random(100));
    MMouse(x, y, 1, 1);
    Tries := Tries + 1;
    if(Tries >= 5)then
     begin
      KeyDown(37);
      Wait(1000 + Random(500));
      KeyUp(37);
      Tries := 0;
     end;
   until(IsUpText(Name));
    Mouse(x, y, 0, 0, False);
    ChooseOption(x, y, 'Talk');
  end;

This one and the next are pretty much in the same boat. They're just very simple ways of opening doors/talking to NPCs.

 procedure DoorOpener(DoorColor, Tol:Integer);
 var
 Tries : Integer;
  begin
   repeat
    Wait(500 + Random(100));
    if(FindColorSpiralTolerance(x, y, DoorColor, MSX1, MSY1, MSX2, MSY2, Tol))then
    MMouse(x, y, 1, 1);
    Tries := Tries + 1;
    if(Tries >= 5)then
     begin
      KeyDown(37);
      Wait(1000 + Random(1000));
      KeyUp(37);
      Tries := 0;
     end;
   until(IsUpText('Door') or IsUpText('Gate'));
    if(IsUpText('Open'))then
     begin
      Writeln('Found a door.');
      Mouse(x, y, 0, 0, False);
      ChooseOption(x, y, 'Open');
      Writeln('Opened door.');
     end;
    if(IsUpText('Close'))then
     begin
      Writeln('Door was already open.');
      Exit;
     end;
  end;

Enjoy! Tell me what you think them.

I'll add more later on ;)

very nice…can i use em in my tut runner?

Sure, that's what they're here for :)

So for the NPC thing, could we use that to trade too? I have been trying to find this out for a while. I would just change talk to trade wouldnt i?

Thats correct.

If you're going to use it some of the time for talking and some of the time for trading, you could just take out "Talk", and tell scar what to do each time you use the command. Not that hard, eh?

also in the local variables you need to add x,y

and its really weird..when i have procedure in its own scar window the parameter guide thing pops up liek it should…but when im doing it in my script it wont pop up :confused: owell it still works

In SRL the variables x and y are already declared. The functions use the command "ChooseOption" which is SRL. If you're going to use these procedures, you'll need SRL. (Unless you're going to modify it.)

yah i got that….but dont u get dupicate idintifer error if you dont put in local vars?

From: Hobbit
yah i got that….but dont u get dupicate idintifer error if you dont put in local vars?

If you have SRL included and you were to Declare X and Y then you would get a duplicate identifier error. If this is what you mean

if you declaired it in global vars at begining of script yes, but in local right after title of procedure before begin, no you don't i just tested to be sure, well it has no harm so just to be safe i'm declaring in local vars…but it does work without

From: Hobbit
if you declaired it in global vars at begining of script yes, but in local right after title of procedure before begin, no you don't i just tested to be sure, well it has no harm so just to be safe i'm declaring in local vars…but it does work without

Ok thats what I figured. Always good to be sure :)

Thanks man really needed the Npc finder. Is it okay if I edit it slightly? Just so if it doesn't find the npc it wont stop te entire script. Ill still give ya full credit :D

From: ~alex~
Thanks man really needed the Npc finder. Is it okay if I edit it slightly? Just so if it doesn't find the npc it wont stop te entire script. Ill still give ya full credit :D

Take it, modify it, do whatever you want to it. ;)

If someone posts a script, I don't believe that they have any right to say it can't be edited to someone elses likings.

have u posted this in the new srl procedures section?..cause i think this would be a good thing to have

I think that's Members only, isn't it?

no clue…i'll check and see then edit this post yes or no

edit: yes…oops nvm then

You can post it there if you want ;)

why u want me to do it for u? lol

Tis members' only. I'm not a member ;)

You said it would be a good thing to have there, so if you want to, feel free to post it :)

nah i think you got good chance of becomeing member whenever you apply so you can do it :p

Heh :p

Thanks, mate ;)