This is an example of a pritty fast auto responder, and easy to set up. It is NOT working at the moment, but when srl 21 gets released it will work perfectly again.
SCAR Code:
Var
LastRespond: String;
HowManyResponds, SetTime: Integer;
TheQuestion, TheRespond: array of array of String;
Procedure SetupResponds; // ADD RESPONDS FOR BETTER ANTI BAN !
begin
HowManyResponds := 2; {<-- SETUP CORRECT !!}
SetArrayLength(TheQuestion, HowManyResponds); SetArrayLength(TheRespond, HowManyResponds); // you can better space bar this out of screen, but don't remove it
TheQuestion[0] := ['noob'];
TheRespond[0] := ['Im not a noob!', 'your the noob', 'look in the mirror', 'noob noob', 'no way noob', 'your more noob', 'whoes noob?'];
TheQuestion[1] := ['respond'];
TheRespond[1] := ['what to say?', 'i dont have anything to say', 'no im bussy'];
end;
Function TheResponder: boolean; // created by MasterKill
var
I, II, Rand, CurTime: Integer;
Text, Name, MakeRespond: String;
TextP: TPoint;
Awnser: TStringArray;
begin
CurTime := GetSystemTime;
If (CurTime - SetTime < 20000) Then Exit;
For I := 8 DownTo 4 Do
Begin
TextP := TextCoords(I);
If findcolor(x, y, 16711680, TextP.x, TextP.y, TextP.x + 200, TextP.y + 14) Then
Begin
Text := LowerCase(Trim(GetTextAtEx(x - 3, textp.y - 2, 0, SmallChars, False, False, -1, 1, 16711680, 60, False, tr_allChars)));
If (Text = LastRespond) Then
Exit;
LastRespond := Text;
Name := GetBlackText(I);
If (Pos(Players[CurrentPlayer].nick, Name) <> 0) then Exit;
Break;
End;
If (I = 4) Then Exit;
End;
For I := 0 To HowManyResponds - 1 Do
begin
For II := 0 To High(TheQuestion[I]) Do
begin
If (Pos(TheQuestion[I][II], Text) <> 0) then
begin
WriteLn('MasterKill Respond:');
WriteLn('/ ' + Name + ' ' + Text);
Rand := Random(High(TheRespond[I]));
TypeSend(TheRespond[I][Rand]);
WriteLn('/ ' + Players[CurrentPlayer].Name + ': ' + TheRespond[I][Rand]);
Result := True;
SetTime := GetSystemTime;
exit;
end;
end;
end;
end;
Begin
MarkTime(SetTime);// dont forget to call this one
SetupResponds;
TheResponder;
End.
btw, It won't respond twice to the same thing in a row 
I hope this helped you, good luck scripting.