lol ok… well its not a very good spammer unless you want it to spam your debug. Writeln only writes the message in the debug. you need to add TypeSend or something similar so that the script actually writes it in the game. that means you must also add SRL to your script otherwise it won't work, add this just below the program AutoTyper; part:
{.include SRL/SRL.scar}
you need to learn the standards for scripting such as indenting and correct setting out.
also theres no point in using a variable because you aren't changing it during the script. use a constant instead.
you also need to randomize it more cos at the moment you'll get banned before you can say 'Happy Birthday'. you can randomize the wait times by adding a 'random' function to the wait function:
wait(2000+random(500)
also if you are going to use a procedure, make sure its more than one line long otherwise it would be easier to just write it in the main loop itself.
and if you look carefully you'll notice it won't compile cos you've forgotten a couple of semi-colons in several places such as after message:='happy birthday'. you obviously haven't tested it.