program ElienSpammer;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}




Const
 message1 = 'dec has a bigger penis than alan!';
  message2 = 'flash1:Do not bet on this scam they will take your money!';
  message3 = 'flash1:level 3 duels is a scam and not 55x2 beware!';
  message4 = 'flash1:Blow addict is a huge scammer beware!';





procedure mainLoop;
  begin
    typeSend(message1, true);
    wait(1000);

    typeSend(message2, true);
    wait(1000);

    typeSend(message3, true);
    wait(1000);

    typeSend(message4, true);
    wait(1000);

  end;




begin
  setUpSrl;

  repeat
  mainLoop();

  until false
end;