bobosaccount
2008-01-27 12:56:46
This is the very first script I have ever made, please comment and help me out!
2008-01-27 12:56:46
2008-01-27 13:06:13
program AutoTalking;
{.include srl/srl.scar}
var
TimesTyped: Integer;
const
TypedToTimes = 3;
Message1 = 'glow3:this my bones';
Message2 = 'these your bones';
Message3 = 'mine your bones';
Procedure Talk;
begin
wait(1000 + Random(600))
typesend(Message1);
wait(1000 + Random(600))
typesend(Message2);
wait(1000 + Random(600))
typesend(Message3);
wait(1000 + Random(600))
end;
begin
SetupSRL;
ActivateClient;
repeat
Talk;
TimesTyped := TypedToTimes + 1;
until(TimesTyped >= TypedToTimes);
end.
2008-01-27 13:32:27
2008-01-27 20:46:33
2008-01-29 16:09:41
2008-02-10 17:30:03