It's not very complicated...
SCAR Code:
program testautotalker;
{.include SRL\SRL.SCAR}
//---------------------------------------------------------------//
Const
Phrase1 = 'Replace'; //This would be phrase 1. Hit F5 to say.
Phrase2 = 'Replace'; //This would be phrase 2. Hit F6 to say.
//---------------------------------------------------------------//
//---------------------------------------------------------------//
Procedure AutoType;
Begin
If (IsFKeyDown(5)=True) then
Begin
TypeSend(Phrase1)
Wait(2000+random(1000))
end;
Begin
If (IsFKeyDown(6)=True) then
Begin
TypeSend(Phrase2)
Wait(2000+Random(1000))
end;
end;
end;
//---------------------------------------------------------------//
begin
SetupSrl;
//---------------//
Repeat
AutoType; //This part will go on untill you stop script, so you can send as many messages as u want
Until(False);
//---------------//
end.
And, if you wanted to add simple colors to the text...
SCAR Code:
program testautotalker;
{.include SRL\SRL.SCAR}
//---------------------------------------------------------------//
Const
Phrase1 = 'Replace'; //This would be phrase 1. Hit F5 to say.
Phrase2 = 'Replace'; //This would be phrase 2. Hit F6 to say.
Color = 'Cyan:'; //This is the color you will use, change or leave blank.
//---------------------------------------------------------------//
//---------------------------------------------------------------//
Procedure AutoType;
Begin
If (IsFKeyDown(5)=True) then
Begin
TypeSend(Color+Phrase1)
Wait(2000+random(1000))
end;
Begin
If (IsFKeyDown(6)=True) then
Begin
TypeSend(Color+Phrase2)
Wait(2000+Random(1000))
end;
end;
end;
//---------------------------------------------------------------//
Begin
SetupSrl;
Repeat
AutoType;
Until(False);
end.