My First AutoTalker

This is my first post on here and my frist script. This is an awesome site and I don't want to leech so I made my first script, its an autotalker that works perfect. Its one downfall is it cant do chat effects, i'm working on that though.

 

hmm i guess ill try it

 

uhhm, i don't prefer using SendKeysSilent, look for naother one, if you don't find it then you can ask me

 

nice heres mine

Code:

//Directions
//Set what u would like it to say(lines 9-12)
//Set how long until says next message(line 47)
//hit play
//press F12 to stop
program AutoTalk;

const
message1='cyan:slide:selling full iron';
message2='white:slide:selling full iron';
message3='Green:slide:selling full iron';
message4='red:slide:selling full iron';

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
case random(4) of
0:SendText(message1);
1:SendText(message2);
2:SendText(message3);
3:SendText(message4);
end;
wait(2124+random(241));
end;

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

procedure flashx;
begin
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
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(IsFKeyDown(12))
end.

 

use disguise scar command =D