qwerty5020
2007-11-15 22:05:33
my first script took me about 4 hours of reading varous tuts and made my first one.:D :D
2007-11-15 22:05:33
2007-11-16 00:06:07
program Automessager;
{.include SRL/SRL.scar}
const message1='msg1';
const message2='msg2';
begin
SetupSRL;
repeat
typesend(messageuno);
wait(420 + random(420));
typesend(messagedos);
wait(420 + random(420));
until(IsKeyDown('-'))
end.program Automessager;
{.include SRL/SRL.scar}
var Phrase: Array Of String;
var i: integer;
begin
SetupSRL;
Phrase[0] := 'msg';
Phrase[1] := 'msg';//can keep adding msg just change the number inside the []
repeat
for i := 0 to GetArrayLength(Phrase) - 1 do
begin
TypeSend(Phrase[i]);
end;
until until(IsKeyDown('-'));
end;