SRL Archive - First Scripts

First script Auto talker


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

HyperSecret

2007-11-16 00:06:07

you need to include SRL to be able to use Typesend; :D also you dont need the hitting of the enter button b/c typesend hits enter…and sends the msg, also need to SetupSRL;

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.

and this alittle more advanced for you to think and learn from…

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;

i believe that is what i wanted to type :D but dont have time to fully explain it right now