SRL Archive - RS Scripts

Ok here it is best one i've made in all my years of doing this(lol like 2 days).

//Directions
//Set what u would like it to say(line 34)
//Set how long you would like it to wait until it says again(line 35)
//hit play
program AutoTalk;

procedure SendText(text: string);
var  i: Integer;
begin
   for i := 1 to Length(Text) do
   begin
     SendKeys(Text[i]);
     Wait(50+random(50));
   end;
   SendKeys(Chr(13));
end;

procedure namechange(wstatus :String);
begin
status(wstatus);
GetApplication.Title:=wstatus;
GetSelf.Caption:=wstatus;
end;


procedure nc4(wstatus:String; time:Integer);
begin
namechange(wstatus);
wait(time);
end;

procedure Talk;
begin
SendText('cyan:slide:dude i rok!!!');//what you want it to say
wait(4000+random(147));//how long until typed again 1000= 1 second
end;

procedure nc(wstatus:String);
begin
nc4(wstatus, 250);
end;

procedure flashx;
begin
nc4('Auto-Talker',200);
Wait(383)
nc4('By Diamondhero5',200);
Wait(383)
nc4('Auto-Talker',200);
Wait(383)
nc4('By Diamondhero5',200);
Wait(383)
nc4('Auto-Talker',200);
Wait(383)
nc4('By Diamondhero5',200);
Wait(383)
nc4('Auto-Talker',200);
Wait(383)
nc4('By Diamondhero5',200);
Wait(383)
nc4('Auto-Talker',200);
Wait(383)
nc4('By Diamondhero5',200);
end;

procedure Animate;
begin
nc(' ');
nc('A');
nc('Au');
nc('Aut');
nc('Auto');
nc('Auto- ');
nc('Auto-T');
nc('Auto-Ta');
nc('Auto-Tal');
nc('Auto-Talk');
nc('Auto-Talke');
nc('Auto-Talker');
nc('--------------');
nc('Auto-Talker');
nc('--------------');
nc('By Diamondhero5');
flashx;
nc4('Auto-Talker - By Diamondhero5',5);
end;


procedure ThankYou;
begin
writeln('-------Auto-Talker-------')
writeln('-----by Diamondhero5-----')
writeln('- I know u will like it -')
writeln('@@##$$  Thank you  $$##@@')
writeln('         ENJOY           ')
end;

begin
Animate
ActivateClient
Thankyou
repeat
Talk;
until(false)
end.

Haha It's a HUGE improvement over your first one!

Good job, keep trying and you'll have some really nice scripts out in notime!

very nice :D

+rep

im going to use this

thanks

ty, smartkid my first one stunk lol. Dude i cant beleive i made that and i started like 2 days ago!. Ty u both

you should really make an option under const where you type in what you want to say. just look at my autotalker i posted in your other topic

i know what u mean mjordon but is it really that better?

From: diamondhero5
i know what u mean mjordon but is it really that better?

yes, it makes it cleaner and you dont have to look all through the script to set what you want. also you should try making it say more than one phrase ;)

ok i fixed it so it under const and it has 2 phrases look for new thread autotalker V6.0

From: diamondhero5
ok i fixed it so it under const and it has 2 phrases look for new thread autotalker V6.0

i'd suggest instead of making new threads every time you update, just post it in your current thread. just change the title in you thread to go along with the version, or dont put a version in the thread name, just "diamondhero's autotalker!"

i like making new threads and i made it 4 phrases and not 2

From: diamondhero5
i like making new threads and i made it 4 phrases and not 2

you will get in trouble. your choice though…….

y will i get in trouble and start posting in my new thread

From: diamondhero5
y will i get in trouble and start posting in my new thread

for making useless threads, when all you have to do is post the new version in you original thread.

[admin] Please stop making new threads and heed Mjordan's warning [/admin]

[banana]^^^^^^I am allowed to use that, right?^^^^^^[/banana]

i dont know how to post a new version on the same thread so can some1 explain?