SRL Archive - First Scripts

This is the first script I've ever made. :)
I tested it for 10 minutes and it worked :eek:

Program BionicLlamasAutoTyper;
{.Include srl/srl.scar}



Const
 Txt1 = 'WriteTheMsgHere'; //Your text
   Wait1 = 3000;
 Txt2 = 'WriteTheMsgHere'; //Your text
   Wait22 = 3000;
 Txt3 = 'WriteTheMsgHere'; //Your text
   Wait3 = 3000;
 Txt4 = 'WriteTheMsgHere'; //Your text
   Wait4 = 3000;
 Txt5 = 'WriteTheMsgHere'; //Your text
   Wait5 = 3000;
 
 
Begin
 DisguiseScar('Adobe Photoshop');
   Writeln(' ____________________________________________');
   Writeln('|Thank you for using BionicLlamas AutoTyper. |');
   Writeln('|This is the first script I have ever made :D|');
   Writeln(' ____________________________________________');
Repeat
 Typesend(txt1)
   Wait(Wait1+random(1500))
 Typesend(txt2)
   Wait(Wait22+random(1500))
 Typesend(txt3)
   Wait(Wait3+random(1500))
 Typesend(txt4)
   Wait(Wait4+random(1500))
 Typesend(txt5)
   Wait(Wait5+random(1500))
 Until (False)
End.

you shouldn't rate your own threads because others may not thinks its very good and you script is very basic try adding colors and animates like wave or red color.

From: antibinki
you shouldn't rate your own threads because others may not thinks its very good and you script is very basic try adding colors and animates like wave or red color.

If you need effects, All you have to do is write it… That's what I did :/

maybe give a choice of wart to type like iffkey3id down then typesend txt1 or somethug

Yes. Don't make them repeat. If I were you, I would make it so it asks.

If(IsFKeyDown(4))then
begin
TypeSend(Txt1);
end;

You get what I mean? They just press F4, and then it types out Txt1.

unknow identifier diguisescar oh dear