I wrote this in about 2 mins lol.
SCAR Code:
program New;
{.include srl/srl.scar}
procedure spamclicks;
begin
marktime(mark)
while timefrommark(mark) < 30000 do
begin
clickmouse(260,176,true)
wait(3)
end;
end;
procedure talkbad;
var
i:integer;
begin
i:=random(8)+1
case i of
1:sendkeys('Fuck'+chr(13))
2:sendkeys('I love andrew gowers mother!'+chr(13))
3:sendkeys('I am a macroer everyone report me!!'+chr(13))
4:sendkeys('$h!t'+chr(13))
5:sendkeys('Jagex love men!'+chr(13))
6:sendkeys('I am a chineese sweat shop worker, report me!'+chr(13))
7:sendkeys('Jagex blocks your pass *****! see try it!!'+chr(13))
8:sendkeys('Give me all your contact info!!!'+chr(13))
9:sendkeys('I am jagex staff tell me your pass!'+chr(13))
end;
end;
begin
repeat
spamclicks
talkbad
until(false)
end.