diamondhero5
2007-02-19 15:50:46
EDIT:CHANGED TO VERSION 7.0(ADDED RANDOMNESS)Here is my lastest Auto talker, able to say up to 4 things!
//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:selling full rune';
message2='white:selling full rune';
message3='Green:selling fulll rune';
message4='red:selling full rune';
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.
