PDA

View Full Version : My First Scar Script - AutoTalker



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

me_ntal
04-12-2007, 08:31 AM
Writeln is to write reports, from memory its sendkeys

At the moment your script is useless

jarlaxe
04-12-2007, 08:35 AM
Just fixed the problem