SRL Archive - First Scripts

Simple Auto Talker


camdo2

2007-10-23 17:53:08

The following script that I will be presenting is a simple auto talker where you can enter in two phrases and declare a variable so you can say either one.

program FirstAutoTyper;
//By Camdo Clark
//This is my first Auto Typer.
var
x: Integer;
begin
x:=0; // If you want the first phrase you put in to play, make this number 1. If you want the second phrase to play, put in any other number.
repeat
if(x=1) then
begin
sendkeys(''+chr(13)); //Put whatever you want to say in the apostrophes.
end else
sendkeys(''+chr(13)); //You can have the computer say something else too. Everything else applies above.
wait(5000); //Put how many milliseconds the program will wait until saying the word(s) to repeat again in the parenthesees.
until(false);
end.

Thanks,
Camdo Clark :D

camdo2

2007-10-23 18:07:17

Here's an attachment:

rogeruk

2007-10-23 18:15:29

Nice for your first script, simple and easy. Keep learning

Standards fixed (indents).

program FirstAutoTyper;
//By Camdo Clark
//This is my first Auto Typer.
var
x: Integer;

begin
x:=0; // If you want the first phrase you put in to play, make this number 1. If you want the second phrase to play, put in any other number.
repeat
if(x=1) then
begin
sendkeys(''+chr(13)); //Put whatever you want to say in the apostrophes.
end else
sendkeys(''+chr(13)); //You can have the computer say something else too. Everything else applies above.
wait(5000); //Put how many milliseconds the program will wait until saying the word(s) to repeat again in the parenthesees.
until(false);
end.

camdo2

2007-10-23 18:26:00

Thanks, my next program will be a woodcutter.

rogeruk

2007-10-23 18:28:38

If you are going to make a woodcutter, convert this first script to SRL.

Add the following..

{.include SRL/SRL.scar}


at the top of the script under program

and
SetupSRL;
at the bottom of the script, inside the

Begin
End.

Use TypeSend instead of sendkeys.

perfectminute

2007-10-23 18:41:15

Worked good, Ty.

camdo2

2007-10-23 18:55:31

Thanks for all the input.

silenttt

2007-10-23 20:07:56

nice first script. Good advice for him rogeruk it should help him. :D

HyperSecret

2007-10-23 20:12:36

yes i would recommend using SRL for all scripting even for autotypers and use the procedure TypeSend(''); types human like with random times between keys

P1nky

2007-10-23 21:53:33

good for a beginner nice starting =X

bth8

2007-10-29 02:03:35

dude i gotta tell you if this is youre first script im impressed

Killerdou

2007-10-29 02:09:20

X will never become one right?

maigel

2007-10-29 05:16:50

nice

phinoxrobo

2007-10-29 08:01:11

nice for your first, also thanks your auto typer helped me learn basics of the auto typer world :D check mine out also if you want i also credited you for it cause its rather simaler as i dont no much more the make it differnt