Championship
2008-06-11 04:01:58
I was thinking that maybe we could make a list of Responses to other players questions and statements so that you could easily add it to scripts to make a good auto responder
2008-06-11 04:01:58
2008-06-11 07:20:12
2008-06-11 08:52:02
2008-06-11 09:15:29
2008-06-11 09:16:56
If(InChat('hi'))Then
TypeSend('hello');2008-06-11 09:20:32
2008-06-11 09:25:59
var
HowManyResponds: Integer;
TheQuestion, TheRespond: array of array of String;Procedure SetupResponds; // ADD RESPONDS FOR BETTER ANTI BAN !
begin
HowManyResponds := 3; {<-- SETUP CORRECT !!}
SetArrayLength(TheQuestion, HowManyResponds); SetArrayLength(TheRespond, HowManyResponds);
TheQuestion[0] := ['mining', 'mine'];
TheRespond[0] := [IntToStr(Players[CurrentPlayer].Integers[1])]; // your players mining level
TheQuestion[1] := ['respond'];
TheRespond[1] := ['what to say?', 'i dont have anything to say', 'no im bussy'];
TheQuestion[2] := [Players[CurrentPlayer].nick]; // your players nickname
TheRespond[2] := ['no', 'get lost', 'im bussy', 'go away', 'just let me mine okeey?'];
end;{*******************************************************************************
function TheResponder: Boolean;
By: M4st3rK1ll
Description: Automated responder.
Result: True if a respond is made.
*******************************************************************************}
Function TheResponder: boolean; // Created by M4st3rK1ll
var
I, II, Rand: Integer;
Text, Name: String;
begin
If Not GetLastChatText(Text) Then Exit;
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
Status('$Making Respond');
Name := GetBlackChatMessage;
If (Pos(Players[CurrentPlayer].nick, Name) <> 0) then exit;
WriteLn('Respond:');
WriteLn('/ ' + Name + ' ' + Text);
Rand := Random(High(TheRespond[I]));
TypeSend(TheRespond[I][Rand]);
WriteLn('/ ' + Players[CurrentPlayer].Name + ': ' + TheRespond[I][Rand]);
Result := True;
exit;
end;
end;
end;
end;2008-06-11 09:38:09
From: waddo
yes i was thinking about that yesterday we need to get that padded out
but we should use proper words ad spelling mistakes
and not things like homie stupid stuff
when you start syaing stuff liein timothegreats auto responder people start thinking youra little bit dodgy
General[5]:= 'poo';
General[6]:= 'im captain underpants';
Edit: jukka if it gunna be for the srl include file it will be arrays lol
2008-06-11 09:48:04
2008-06-11 10:07:41
From: Hugolord
We should also make it not answer all the time otherwise ppl can just keep asking your mining lv.. or w.e..
2008-06-11 10:17:46
2008-06-11 10:34:04
From: n3ss3s
It seems that this thread is still going into the classic direction, there will be an 'official' AutoResponder with damn 564 lines of responding!
While I've watched my character fish, it responds perfectly every time asked something, or greeted.
2008-06-11 10:36:30