jarlaxe
04-12-2007, 08:14 AM
Okay, this is the first script I have ever made. So please be nice and give constructive advice and not destructive advice!
//AutoTalker//
// ~~~ Made By Jarlaxe ~~~ //
// Please leave your feedback on this script //
program AutoTalker;
{.include SRL\SRL.SCAR}
const
Message1='Hello!'; // Type what you want the first message to be //
Message2='Noob Scar Scripter'; // Type what you want the second message to be //
Message3='My First Script Ever!'; // Type what you want the third message to be //
Message4='Please Leave Comments'; // Type what you want the fourth message to be //
procedure typewhatyoulike;
begin
wait(2000+Random(790)) // Time to wait before posting message (in milliseconds)
TypeSend(Message1+chr(13));
end;
procedure typewhatyoulike2;
begin
wait(1300+Random(350)) // Time to wait before posting message (in milliseconds)
TypeSend(Message2+chr(13));
end;
procedure typewhatyoulike3;
begin
wait (2600+Random(1700)) // Time to wait before posting message (in milliseconds)
TypeSend(Message3+chr(13));
end;
procedure typewhatyoulike4;
begin
wait (600+Random(1700)) // Time to wait before posting message (in milliseconds)
TypeSend(Message4+chr(13));
end;
begin
repeat
typewhatyoulike;
Wait(130);
typewhatyoulike2;
Wait(101);
typewhatyoulike3;
Wait(198);
typewhatyoulike4;
Wait(100);
until(false)
begin
end;
end.
Thanks
//AutoTalker//
// ~~~ Made By Jarlaxe ~~~ //
// Please leave your feedback on this script //
program AutoTalker;
{.include SRL\SRL.SCAR}
const
Message1='Hello!'; // Type what you want the first message to be //
Message2='Noob Scar Scripter'; // Type what you want the second message to be //
Message3='My First Script Ever!'; // Type what you want the third message to be //
Message4='Please Leave Comments'; // Type what you want the fourth message to be //
procedure typewhatyoulike;
begin
wait(2000+Random(790)) // Time to wait before posting message (in milliseconds)
TypeSend(Message1+chr(13));
end;
procedure typewhatyoulike2;
begin
wait(1300+Random(350)) // Time to wait before posting message (in milliseconds)
TypeSend(Message2+chr(13));
end;
procedure typewhatyoulike3;
begin
wait (2600+Random(1700)) // Time to wait before posting message (in milliseconds)
TypeSend(Message3+chr(13));
end;
procedure typewhatyoulike4;
begin
wait (600+Random(1700)) // Time to wait before posting message (in milliseconds)
TypeSend(Message4+chr(13));
end;
begin
repeat
typewhatyoulike;
Wait(130);
typewhatyoulike2;
Wait(101);
typewhatyoulike3;
Wait(198);
typewhatyoulike4;
Wait(100);
until(false)
begin
end;
end.
Thanks