Fawks potato responder

[me_ntal]

im going to build a private responder with a massive vocab including the option of a different language ive done some searching and a few post said to refer to Fawks potatoe responderbut im unable to find this.

Does any one have a copy or can give me the jist?

[Pentti]

It's just full of
if(InChat('Hi'))or(InChat('Hello'))or(InChat('Wazz up'))then
TypeSend('Hi!')
(*And so on*)

[me_ntal]

So something like this?


if (InChat('hi') or
(InChat('hello') then
begin
i:=random(2)+1;
case i of
1: TheResponce:='hello';
2: TheResponce:='hi';
end
end;

[Mjordan]

Its a member script...

[me_ntal]

hmm well mj seeing i lack the gorgeous title could you check if my sample script is similar to what he does?

[Mjordan]

Well no, its not exactly like that.

[me_ntal]

can you make a simple example showing how it works?

[XcanadamanX]

i thought it was in tut island

[Mjordan]

i thought it was in tut island

Oh, it might be. I just realized I was looking at his potatoe picker, is the potatoe responder different?

[me_ntal]

i looked through the tuts and did a search but unfourtantly nothing turned up

[XcanadamanX]

hm...must of moved it then. did you look through all the pages in tut island?

[me_ntal]

there we go i found it page 7, dam i searched using the wrong spelling of potato

http://www.srl-forums.com/forum/potatoresponder-t1310.html?t=1310

[Harry]

That would be a great idea for a resonder like that in a script! Good idea! :D

[Mjordan]

That would be a great idea for a resonder like that in a script! Good idea! :D

Umm, do you know how long that has been out? For over a year...

[me_ntal]

im going to make an ultimate responder with each different character being able to select a different language and having atleast 10 answers to every question.

What are some common questions or phases?

i have the abused ones, hello greetings, goodbye, lol and how you doing, im currently cuting willows to work out some

[Pentti]

If you are going to make a responder with many words to respond from, it may take a lot of time to run with it, and it will lag.
program New;
{.include srl/srl.scar}
var
Mark1:Integer;
Mark2:Integer;
Times:Integer;

begin
setupsrl;
activateclient;
MarkTime(Mark2)
for Times:=0 to 10 do
begin
MarkTime(Mark1)
if(InChat('Hi'))or(InChat('Hello'))or(InChat('Wazz up'))then
TypeSend('Hi!')
if(InChat('Bye'))or(InChat('See you'))or(InChat('Good bye'))then
TypeSend('Bye!')
Writeln(inttostr(times)+' Time: '+inttostr(TimeFromMark(Mark1))+'ms')
end;
Writeln('Total Time: '+inttostr(TimeFromMark(Mark2))+'ms')
end.
To search for those 6 wrods to answer from takes over 2 second for me...

0 Time: 250ms
1 Time: 234ms
2 Time: 219ms
3 Time: 250ms
4 Time: 281ms
5 Time: 250ms
6 Time: 234ms
7 Time: 235ms
8 Time: 281ms
9 Time: 297ms
10 Time: 281ms
Total Time: 2812ms

0 Time: 140ms
1 Time: 172ms
2 Time: 156ms
3 Time: 157ms
4 Time: 140ms
5 Time: 157ms
6 Time: 156ms
7 Time: 156ms
8 Time: 156ms
9 Time: 157ms
10 Time: 156ms
Total Time: 1703ms
Yup...

[nielsie95]

I made a 5 lined AutoResponder which takes all the text once and then compares the text with the stored text. I think that's faster :)

[me_ntal]

hmm this is diffcult, i have develope over 150 response to 20 different phrases

[PwNZoRNooB]

Isn't it easier to use

if(InChatMulti('BLAA', 'doh', 'etc'))
// and the rest

?

[Pentti]

program New;
{.include srl/srl.scar}
var
Mark2:Integer;
DaShit:String;

begin
setupsrl;
activateclient;
MarkTime(Mark2)
if(IsTextInAreaEx(40,415,130,415,x,y,':',0,smallch ars,False,True,0,0,0))then
DaShit:=LowerCase(GetTextAtEx(x+8,415,0,SmallChars ,False,False,0,1,16711680,40,False,tr_allChars))
if(DaShit='')then
Exit;
Writeln(DaShit)
if(DaShit='hi')or(DaShit='hello')or(DaShit='wazzup ')then
TypeSend('Hi!')
if(DaShit='bye')or(DaShit='see you')or(DaShit='good bye')then
TypeSend('Bye!')
Writeln('Total Time: '+inttostr(TimeFromMark(Mark2))+'ms')
end.
Yeah... (h)

SCAR 2.03
Total Time: 47ms

SCAR 3.00
Total Time: 62ms

[me_ntal]

im still on 2.03 im not upgrading until everything is sorted and happy..

pentti i dont understand the time thing? im guessing its got something to do with how long it takes to run a check for speech? on average im thinking of having maybe a maximum of 30 different phrases all with different variations
hello-hi-heya
by-cya-later
.
But the main problem im going to adress with my responder is implementing a foregin language to remove alot of the talking problem. for example, if the players name is said in the chat box respond with a foreign phrase.