Results 1 to 2 of 2

Thread: CamdoSpammer v. 1.00

  1. #1
    Join Date
    Oct 2007
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default CamdoSpammer v. 1.00

    Here it is... If you happen to know the code to say if trade open, then exit program? Thanks. Well, here it is...

    SCAR Code:
    program CamdoSpammer;
    {.include SRL/SRL.scar}
    var
    WTime: integer;
    const
    Mess1='You Slay me!!!'; // Message to spam?
    {Skip to line 21 to edit one more thing.}
    procedure Announcement;
    begin
      Writeln('Thanks for using CamdoSpammer v. 1.00');
      Wait(500);
      Writeln('Thanks floor66 for explaining cases to me.');
      Wait(500);
      Writeln('Click on your Runescape window!');
      Wait(3000);
    end;
    procedure SpamIt;
    begin
    repeat
    FindTalk;
    WTime:=7000; //Edit this to your liking. This means how much time will be waited between the messages.
    {Nothing more to edit}
      case random(5) of
      0: begin
           TypeSend('flash2:'+ Mess1);
           Wait(WTime);
           end;
      1: begin
           TypeSend('flash1:'+ Mess1);
           Wait(WTime);
           end;
      2: begin
           TypeSend('purple:'+ Mess1);
           Wait(WTime);
           end;
      3: begin
           TypeSend('red:'+ Mess1);
           Wait(WTime);
           end;
      4: begin
           TypeSend('green:'+ Mess1);
           Wait(WTime);
           end;
      end;
     until(false);
    end;

    begin
    SetupSRl;
    Announcement;
    SpamIt;
    end.

  2. #2
    Join Date
    Jul 2007
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not bad... better than my first script wich was also a spamer

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •