My First AutoTalker

[Serfant]

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.

//////My First Script/////////
///Made By:Serfant////////////
/////////////Instructions/////////
///////////Fill In Lines 16, 17 and 18///////
///////////Drag the crosshair onto Rs and HitPlay//

////Comments are Appreciated//////
//Recommended that the first message be Sellingwhatever without your name
//and message2 to have your name. makes it more human like the way I have the
//waits
{Currently cannot do chat effects, that will be in my next script}






Program AutoTalker;

var
Counter: Integer;
const//Please Type your messages below
Msg1='YourMessageHere';
Msg2='YourMessageHere';
AmountSaid=20;//The amount of times the mesage will be typed

Procedure ThankYou;
begin
Writeln('Thank You For using Serfants First AutoTalker');
end;

Procedure AutoTalk;
begin
SendKeysSilent(Msg1);
Wait(1000+random(300));
SendKeysSilent(chr(13));
Wait(2000+Random(1500));
SendKeysSilent(Msg2);
Wait(1000+random(300));
SendkeysSilent(chr(13));
end;

begin
ThankYou;
Counter:=0
repeat
AutoTalk;
Counter:=counter+1;
until
Counter=AmountSaid;
end.

 

[jony the ripper]

hmm i guess ill try it

 

[the scar noob]

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

 

[diamondhero5]

nice heres mine

//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.

 

[Scar Help]

use disguise scar command =D