atmmaster2
05-22-2007, 09:26 AM
This Is My Very First Script (i know its nooby)
Please Rate it And Tell Me How Rubbish It Is
///Atmmaster2s Simple Autotyper\\\
///Setup lines 9,10,11 and 12\\\
///////////And Line 40\\\\\\\\\\\
Var
Counter:integer;
Const
Message1=''; //Message You Want to be typed
Message2='';
Message3='';
TimeA=3000; //Time inbetween messages
Procedure Talk;
Begin
SendKeysSilent(Message1);
Wait(100+random(40));
SendKeysSilent(chr(13));
Wait(TimeA);
SendKeysSilent(Message2);
Wait(100+random(40));
SendKeysSilent(chr(13));
Wait(TimeA);
SendKeysSilent(Message3);
Wait(100+random(40));
SendKeysSilent(chr(13));
End;
Begin
counter=:0;
Repeat
Talk
Writeln('You Have Typed Your Message ' IntToStr(Counter) ' Times!');
Writeln('You have said this');
Writeln(Message1);
Writeln('This');
Writeln(Message2);
Writeln('And This');
Writeln(Message3);
Writeln('Autotyper Made By Atmmaster2')
Until(counter=0) //The Amount of times you want to say it 0=Forever
End.
Please Rate it And Tell Me How Rubbish It Is
///Atmmaster2s Simple Autotyper\\\
///Setup lines 9,10,11 and 12\\\
///////////And Line 40\\\\\\\\\\\
Var
Counter:integer;
Const
Message1=''; //Message You Want to be typed
Message2='';
Message3='';
TimeA=3000; //Time inbetween messages
Procedure Talk;
Begin
SendKeysSilent(Message1);
Wait(100+random(40));
SendKeysSilent(chr(13));
Wait(TimeA);
SendKeysSilent(Message2);
Wait(100+random(40));
SendKeysSilent(chr(13));
Wait(TimeA);
SendKeysSilent(Message3);
Wait(100+random(40));
SendKeysSilent(chr(13));
End;
Begin
counter=:0;
Repeat
Talk
Writeln('You Have Typed Your Message ' IntToStr(Counter) ' Times!');
Writeln('You have said this');
Writeln(Message1);
Writeln('This');
Writeln(Message2);
Writeln('And This');
Writeln(Message3);
Writeln('Autotyper Made By Atmmaster2')
Until(counter=0) //The Amount of times you want to say it 0=Forever
End.