SRL Archive - First Scripts

[SRL] Woot my first script! This script is so simple to use!
it can flood Msn Or anything you want… :) sends heaps of messages then when told to stop it tell you the total amount of messages sent and in what amount of time :)

Please Let Me Know What U All Think As A "First" Script :cartman:


Copy this or downlaod attachment…. :)

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=|
|             Badaa's Pain In The Arse Flooder              |
|  This Script Sends Lots Of Messages At A Very Fast Speed  |
|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=|
|                      INSTRUCTIONS                         |
| 1. Enter The Message You Want Sent Bellow.                |
| 2. Be On The Page You Want To Flood Ready To Type.        |
| 3. Press Ctrl + Alt + R To Start The Script.              |
| 4. To Stop The Script Press Ctrl + Alt + S                |
|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
{~~~~~= Thanks To GoF For Helping Me! He A Top Bloke! =~~~~~} 

program Flood;
{.Include SRL/SRL.scar}
 
const
  MessageSent='Text Here'; // <<< Type The Message You Want Sent Here
 
var
  Counter: Integer;
 
Procedure Spam;
begin
  wait(100)
  Sendkeys(MessageSent +Chr(13));
end;
 
begin
  SetUpSRL;
  ClearDebug;
  Writeln('3 Seconds Till Flooding Starts!')
  Wait(3000)
  ClearDebug;
 
      Writeln('Sent : '+IntToStr(Counter)+' messages!');
      Writeln('Script has been running '+TimeRunning);
 
    repeat
    Spam;
    Counter := Counter + 1;
    Writeln('Sent : '+IntToStr(Counter)+' messages!');
    Writeln('Script has been running '+TimeRunning);
  until(False)
end.
 

Post script?

Ahh yes, it's an excellent script…especially considering I can't see it lmao…:p

lol sorry guys i made the thread then noticed it wasnt compileing all of a sudden…
il put attachment back up once i fix it :S
EDIT: ITS FIXED NOW!!!!!!

OK… i couldnt work out the problem :( but ive uploaded it anyway if some1 could please tell me whats gone wrong that would be great thanks….

EDIT: ITS FIXED NOW!!!!!!

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=|
|             Badaa's Pain In The Arse Flooder              |
|  This Script Sends Lots Of Messages At A Very Fast Speed  |
|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=|
|                      INSTRUCTIONS                         |
| 1. Enter The Message You Want Sent Bellow.                |
| 2. Be On The Page You Want To Flood Ready To Type.        |
| 3. Press Ctrl + Alt + R To Start The Script.              |
| 4. To Stop The Script Press Ctrl + Alt + S (Or Press F2)  |
|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

program Flood;
{.Include SRL/SRL.scar}

const
  MessageSent='Text Here'; // <<< Type The Message You Want Sent Here

var
  Counter: Integer;

Procedure Spam;
begin
  wait(1000)
  Sendkeys(MessageSent +Chr(13));
end;

begin
  SetUpSRL;
  ClearDebug;
  Writeln('3 Seconds Till Flooding Starts!')
  Wait(3000)
  ClearDebug;

      Writeln('Sent : '+IntToStr(Counter)+' messages!');
      Writeln('Script has been running '+TimeRunning);
      TerminateScript;

    repeat
    Spam;
    Counter := Counter + 1;
    Writeln('Sent : '+IntToStr(Counter)+' messages!');
    Writeln('Script has been running '+TimeRunning);
  until(False)
end.

Lol why did you put a random TerminateScript in the middle of your main loop.
Also the solution to your problem is because you add an 'end' and a 'begin' for no reason. Look at the above post for the correct version.

oooh thanks guys…

:) Hm, you removed the if-then before that terminatescript from the example I sent to you.. that's why it messed up.. And moved it away from the mainloop.. And no cred for me from helping you? ;)

I don't think everyone gets credited for helping. Ofcourse, if it was a sufficient amount then maybe.

i did cred him :) GoF is a champ <3

lol all helped and nice script keep it up