Advertiser made for scar

Just did this to get the feel of scar back.

Ok it has
Antiban
types in anything you want in runescape
its good to get some people to forum or wnat to sell some gold to people

And if you get banned it not script its the want to be mods that will report you for being an Advertiser.

Code:

program Spammer;
{.Include SRL/SRL.Scar}
//////////////////////////////////////////////////////////
//THE SPAMMER =)  This was just refreshing my Scripting///
//////////////////////////////////////////////////////////
///Spams whatever you want into runescape/////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////


Var
x,y:integer;
///////////////Type what you wish to Spam in the '' Symbols and hit run////////
Const
Textspam='www.Sythe.com to sell or buy runescape accunts';// Type what you wish to be spammed//
Timetowait=6000;// How long you wish it to wait before typing again//
///////////////////////////////////////////////////////////////////////
///////Try not mess with anything down here////////////////////////////
//////Only if you know what your doing ////////////////////////////////
///////////////////////////////////////////////////////////////////////

procedure tag;
begin
 Cleardebug;
  writeln('Ghosts SPAMMER           ');
  writeln('__________________       ');
  writeln('|       | |       |      ');
  writeln('|I See  | | You!  |      ');
  writeln('|_______| |_______|      ');
  writeln('        | |              ');
  writeln('       /   \             ');
  writeln('       |___|             ');
  writeln('  \              /       ');
  writeln('   \____________/        ');
  wait(200 + random(400));
 end;
 



Procedure Antiban;
begin
  if not LoggedIn then Exit;
  case Random(30) of
  1: RandomRClick;
  2: HoverSkill('Attack', False);
  3: RandomMovement;
  4: BoredHuman;
  5: DoEmote(5 +Random(17));
  6: SleepAndMoveMouse(1235+random(860));
  7: MMouse(random(300), random(250), 10, 10);
  8: begin
      GameTab(1 + Random(12));
      wait(1200+random(1000));
      GameTab(4);
   end;
  end;
end;



Procedure Mainloop;
begin
 repeat
    Wait(Timetowait);
    Typesend(TextSpam);
    Antiban;
 until(false);
end;

begin
  SetupSRL;
   ActivateClient;
  tag;
 Mainloop;
end.