emiel
07-10-2007, 09:39 AM
Well, First i'm sorry for giving you your 10000000 Autotalker on this Forum,
but i really need some Reviews and Feedback on it!:stirthepot: :D
And YAY! my first Topic on this Forum:p
{
# ScriptName = EliteTalker
# Author = Emiel AKA Godpower
# Description = Just a basic EliteTalker
# Version = 0.1
# Date = 11-07-07
# Comments = Fill in Message 1, message 2 and message 3.
}
program EliteTalker;
{.include SRL/SRL.scar}
var
Timer: Integer;
const
Message1 = 'type Message 1 here!'; // type here your first Message :D
Message2 = 'type Message 2 here!'; //type here message 2
Message3 = 'type Message 3 here!';
HowManyTimes = 1; // How many times do you want it to type.
TimeToType = 3000; //How much time to wait after the first and second message are done.
procedure EliteTalking;
begin
TypeSend(Message1);
Wait(1000 + Random(200));
Wait(TimeToType);
TypeSend(Message2);
Wait(1500 + Random(500));
Wait(TimeToType);
TypeSend(Message3);
Wait(2000 + Random(500));
Wait(TimeToType);
end;
begin
Timer := 0
repeat
ActivateClient;
EliteTalking;
Timer := Timer + 1
Writeln('You have Written your Messages ' + inttostr(Timer) + ' Time(s)');
Writeln('EliteTalker by Emiel')
until (Timer = HowManyTimes);
end.
but i really need some Reviews and Feedback on it!:stirthepot: :D
And YAY! my first Topic on this Forum:p
{
# ScriptName = EliteTalker
# Author = Emiel AKA Godpower
# Description = Just a basic EliteTalker
# Version = 0.1
# Date = 11-07-07
# Comments = Fill in Message 1, message 2 and message 3.
}
program EliteTalker;
{.include SRL/SRL.scar}
var
Timer: Integer;
const
Message1 = 'type Message 1 here!'; // type here your first Message :D
Message2 = 'type Message 2 here!'; //type here message 2
Message3 = 'type Message 3 here!';
HowManyTimes = 1; // How many times do you want it to type.
TimeToType = 3000; //How much time to wait after the first and second message are done.
procedure EliteTalking;
begin
TypeSend(Message1);
Wait(1000 + Random(200));
Wait(TimeToType);
TypeSend(Message2);
Wait(1500 + Random(500));
Wait(TimeToType);
TypeSend(Message3);
Wait(2000 + Random(500));
Wait(TimeToType);
end;
begin
Timer := 0
repeat
ActivateClient;
EliteTalking;
Timer := Timer + 1
Writeln('You have Written your Messages ' + inttostr(Timer) + ' Time(s)');
Writeln('EliteTalker by Emiel')
until (Timer = HowManyTimes);
end.