camdo2
2007-11-03 01:02:05
Here it is in scar:
Thanks,
Camdo Clark
program LetUsBeBored;
{.include SRL/SRL.scar}
procedure KeepLoggedIn;
begin
repeat
case Random(5) of
0: begin
TypeSend('hi'+chr(13)); // I didn't have any ideas...
wait(5000);
end;
1: begin
TypeSend('I am really bored.'+chr(13));
wait(5000);
end;
2: begin
TypeSend('Who is bored?'+chr(13));
wait(5000);
end;
3: begin
TypeSend('Grunge is dead!'+chr(13));
wait(5000);
end;
4: begin
TypeSend('What?'+chr(13)); // no ideas, go ahead and fill it in
wait(5000);
end;
end;
until(false);
end;
begin
SetupSRL;
KeepLoggedIn;
end.
Thanks,
Camdo Clark