program GAutoTalker;
{$DEFINE SMART}
{$INCLUDE SRL/SRL.simba}
var
i, ColRandom : integer;
ColArray : TStringArray;
Const
Message = '';
WaitBetween = 2500; //time in milliseconds
TimesRepeated = 10;
Function ChooseFlare: string;
Begin
ColArray := ['red:', 'cyan:', '', 'green:'];
ColRandom := RandomRange(0, 3);
Result := ColArray[ColRandom];
End;
Function TypeSentence(Sentence : string): string;
Begin
TypeSend(ChooseFlare + Sentence);
End;
begin
SetupSRL;
ActivateClient;
For i := 0 to TimesRepeated do
Begin
TypeSentence(Message);
Wait(WaitBetween);
End;
end.