SRL Archive - S.M.A.R.T.

Due to the fact that there are still random events which can´t be solved by the client, there is a certain obligation to babysit the bot so it doesn´t get stuck at randoms.

My Idea is, that in case of a random event or spontaneous logout, there should be an option to make the client emit some kind of sound, so that people can do other things while babysitting (e.g.: reading a book) and then they won´t have to check back every hour and just can react to the sound if the bot logs out while in a random event.

Maybe if the method proves successful, it could be extended to some kind of getting noticed via e-mail, so you can even know that you´re stuck even if you´re outdoors.

Just thought this would be very useful and increase the overall botting experience.

Opinions?

That's a pretty good idea, kind of like of Nexus did the same with their bots.
Would be a great update.

Anywhere in your script that you want randoms to be found, just call Checklist.

Function SomeoneTalked: Boolean;
var
  I: Integer;
begin
  FixChat;
  OldLine := TheLine;

  if(LastChatter(TheName))then
  begin
    GetLastChatText(TheLine);
    if OldLine <> TheLine then
    try
      Result:= True;
      For I:= 0 To 5 do
      begin
        PlaySound('C:\Windows\Media\MSN_Sound.wav');
        wait(150);
      end;
      writeln(TheLine);
    except end;
  end else
  begin
    GetLastChatText(TheLine);
    if OldLine <> TheLine then
    try
      Result:= True;
      For I:= 0 To 5 do
      begin
        PlaySound('C:\Windows\Media\MSN_Sound.wav');
        wait(150);
      end;
      writeln(TheLine);
    except end;
  end;
end;

Procedure CheckList;
var
X, Y, Dist: Integer;
begin
  FindNormalRandoms;
  If (Not LoggedIn) then
    LoginPlayer;

  if ((TabExists(Tab_Inv) = false) or SomeoneTalked or FindNormalRandoms) then
  begin
    writeln('We are in a random event! ~ Custom RandomCheck.');
    Repeat
      Logout;
      wait(2000);
      PlaySound('C:/windows/media/chime.wav');
    Until(Not LoggedIn);
    TerminateScript;
  end;
end;

In RandomTool.simba there is:

// * procedure SolveItYourSelf(sender: TObject);      // * by N1ke! 

I don't know how to use it though.

Also, you can put

PlaySound(ScriptPath+'Alert.wav'); 

anywhere in your script, and put this sound file in the same directory as your script:
http://uppit.com/4jle4xewf1tz/Alert.wav

And just do like

If FindNormalRandoms Then PlaySound(ScriptPath+'Alert.wav');

From: YoHoJo
In RandomTool.simba there is:

// * procedure SolveItYourSelf(sender: TObject);      // * by N1ke! 

I don't know how to use it though.

Also, you can put

PlaySound(ScriptPath+'Alert.wav'); 

anywhere in your script, and put this sound file in the same directory as your script:
http://uppit.com/4jle4xewf1tz/Alert.wav

And just do like

If FindNormalRandoms Then PlaySound(ScriptPath+'Alert.wav');

Wow thanks I will try this.