//death talker created by deathsnake
//my first script

program  deathTalker;
{.include Squig.txt}
Const
Say1='what you want to say'; //your text goes here
Say2='what you want to say'; //2nd line
Say3='what you want to say'; //3rd line
say4='what you want to say'; //4th line
say5='what you want to say'; //5th line
TimesToSay=20; //how many repeats of the five lines (defualt 20)
WaitTime=1000; //how long a break it is between sayin the 5 texts (in milliseconds)
Var
z: integer;

Procedure Talk;
begin
Sendkeyshuman (Say1 + chr(13));
wait(WaitTime);
Sendkeyshuman (Say2 + chr(13));
wait(WaitTime);
Sendkeyshuman (Say3 + chr(13));
wait(WaitTime);
Sendkeyshuman (Say4 + chr(13));
wait(WaitTime);
Sendkeyshuman (Say5 + chr(13));
end;

Begin
SetupSquig;
ActivateClient;
Repeat;
Talk;
z:=z+1
until (z=TimesToSay);
WriteLn('thanks for using a deathsnake script. Im posting all my scripts at www.scar-scripts.com so look there for more')
end.