SRL Archive - SRL Suggestions

As I am a beginner at scripting I don't have the means to accomplish this, but I've noticed that many times I'm sitting on here looking through forums while botting only to open the simba tab and see I have logged out because of a random. I don't know if this is possible, but what about an addition to MSI/or scripts that recognizes random events and makes the window pop up for people that happen to already be at their computer instead of logging out and consequently failing the event?

It's already implemented, I just forget how to turn it on.

SolveSRLRandoms := False

Maybe?

My apologies then for posting something that's already been done! Party foul, I know.

From: RISK

SolveSRLRandoms := False

Maybe?

Does this work?

From: shebee
Does this work?

All that'll do for you is to have SRL not solve your randoms.

-RM

I add the following procedure in any script I use:

procedure TerminateTheScript;
begin
  PlaySound('C:\Simba\bird.wav');
  TerminateScript;
end;

Then CTRL + R use to replace all of the "TerminateScript;" with "TerminateTheScript;"

That way when there is a function like:

Procedure CheckRandoms;
begin
CurStatus := 'Checking for Randoms'
Paint;
FindNormalRandoms;
If Not(LoggedIn) Then
  begin
    WriteLn('I think we failed a random - I will just Check');
    LoginPlayer;
    FindNormalRandoms;
    If Not(LoggedIn) Then
      begin
        WriteLn('Client has Logged Out So Probably Failed a Random - Terminating Script');
        TerminateTheScript;
      end
  end;
end;

It will run the previous procedure and play that sound, if I am close by I can be there to solve the random and restart the script, feel free to use this but remember you need to have a file called bird.wav stored at C:\Simba\ you can obviously change this in the code the wherever you want but I think it has to be a .wav file

{*******************************************************************************
Procedure SetupRandomTool(TimeOutWait, FKeyForFinish: Integer; t_SoundPath: String);
by: N1ke!
TimeStamp: 5 Aug, 2009
Description: Sets up RandomTool so it can be used.

TimeOutWait: Time until SRL will try to solve itself, before this you
have the option to solve it yourself.

FKeyForFinish: The FKey to break out of the "Solve it yourself" loop.

t_SoundPath: The path for a sound you wish to play, if random detected.
Leave blank if you don't wish to have any sound.
*******************************************************************************}
Procedure SetupRandomTool(TimeOutWait, FKeyForFinish: Integer; t_SoundPath: String);

SetupRandomTool(60000, 2, IncludePath +'beep-2.wav');

This will play sound and show box

From: nokkasiili

{*******************************************************************************
Procedure SetupRandomTool(TimeOutWait, FKeyForFinish: Integer; t_SoundPath: String);
by: N1ke!
TimeStamp: 5 Aug, 2009
Description: Sets up RandomTool so it can be used.

TimeOutWait: Time until SRL will try to solve itself, before this you
have the option to solve it yourself.

FKeyForFinish: The FKey to break out of the "Solve it yourself" loop.

t_SoundPath: The path for a sound you wish to play, if random detected.
Leave blank if you don't wish to have any sound.
*******************************************************************************}
Procedure SetupRandomTool(TimeOutWait, FKeyForFinish: Integer; t_SoundPath: String);

You haven't actually pasted the procedure…

I like the sound idea!

From: putonajonny
I add the following procedure in any script I use:

procedure TerminateTheScript;
begin
  PlaySound('C:\Simba\bird.wav');
  TerminateScript;
end;

Then CTRL + R use to replace all of the "TerminateScript;" with "TerminateTheScript;"

That way when there is a function like:

Procedure CheckRandoms;
begin
CurStatus := 'Checking for Randoms'
Paint;
FindNormalRandoms;
If Not(LoggedIn) Then
  begin
    WriteLn('I think we failed a random - I will just Check');
    LoginPlayer;
    FindNormalRandoms;
    If Not(LoggedIn) Then
      begin
        WriteLn('Client has Logged Out So Probably Failed a Random - Terminating Script');
        TerminateTheScript;
      end
  end;
end;

It will run the previous procedure and play that sound, if I am close by I can be there to solve the random and restart the script, feel free to use this but remember you need to have a file called bird.wav stored at C:\Simba\ you can obviously change this in the code the wherever you want but I think it has to be a .wav file

Or you could just do

AddOnTerminate('PlaySound(''C:\Simba\bird.wav'')');

From: putonajonny


You haven't actually pasted the procedure…

That's because it's already in the SRL include. He just pasted the header to show how to use it.

From: Sir R. M8gic1an
All that'll do for you is to have SRL not solve your randoms.

-RM

God I feel stupid for asking that, why didn't I think myself…