scissormetimbers
2008-04-19 16:49:50
heres my first script auto typer.
what it does
-types in phrase(s) of your choosing X amount of times
thanks EvilChicken for the help with this one.
what it does
-types in phrase(s) of your choosing X amount of times
thanks EvilChicken for the help with this one.
{-----------------------------------|
| _______ |
| /\ /___ ___\ |
| / \ | | |
| / - \ | | |
| /__|___\UTO |_|YPER |
| by |
| scissormetimbers |
| |
| INFO: It randomly types 3 phrases |
| of your choosing |
|___________________________________}
program AutoTyper;
{.include SRL/SRL.scar}
const
//-----enter 3 variations of phrase-----\\
Text1 = 'Ex: selling lobs'; //put phrase here
Text2 = 'Ex: lobs for sale'; //if you dont want variations leave blank
Text3 = 'Ex: selling lobs--zezima'; //if you dont want variaions leave blank
Times = 10; //how many times the script says it
//--------Don't Touch Below Here--------\\
procedure SpeakPhrase;
var
X: Integer;
begin
repeat
case Random(3) of
0: TypeSend(Text1);
1: TypeSend(Text2);
3: TypeSend(Text3);
end;
X := X + 1;
Wait(2500 +random(750));
until(X >= Times);
Writeln('Finished, typed phrases' + IntToStr(X) + 'times')
TerminateScript;
end;
begin
ClearDebug;
SetupSRL;
ActivateClient;
SpeakPhrase;
end.