Can someone tell me the basics on how to do auto responder e.g if someone says hi you respond hello or sup? after that i can make myself, thanks in advance
Can someone tell me the basics on how to do auto responder e.g if someone says hi you respond hello or sup? after that i can make myself, thanks in advance
Needed an oak auto cutter and willow auto cutter what includes:
-Banking
-Fast chopping, banking and finding what needed
-Good autoresponder and antiban
-Good and nice form
-Easy to use
-Great FailSafe
-And more good things
-Must work atleast for 4 hours
Paying for them! 250k + 50k each week for making them work better
Questions would be accepted, if deal, Krendzel@hotmail.com![]()
http://www.fenjer.com/adnan/SRLStats/2720.png
SCAR Code:If(InChat('Hi'))Then
TypeSend('Hello');
To extend the whole thing do:
SCAR Code:If(InChat('Hi'))Or(InChat('Hello'))Then
Beign
Case 1+Random(2) Of
1: TypeSend('Hi');
2: TypeSend('Hello');
End
End
Of Course this is very basic. You can make array of words and then a list it will repeat and also alot faster. Like mine here:
SCAR Code:Function InString(Text1, Text2: String): Boolean;
Begin
Result:= (Pos(LowerCase(Text2), LowerCase(Text1)) <> 0);
End;
Function Responder: Boolean;
Var
Responce: Array [0..9] of String;
NewLine: String;
MasterDetected: Boolean;
Label
ResponceLabel;
Begin
If(Not Loggedin)Then Exit;
If(Not UseResponder)Then Exit;
If(TimeFromMark(ResponceTime)<1000)Then Exit;
MarkTime(ResponceTime);
If(Not LastChatter(LastChatterString))Then Exit;
If(InString(LastChatterString, Players[CurrentPlayer].Nick))Then Exit;
OldLine:= TheLine;
GetLastChatText(TheLine);
NewLine:= TheLine;
If(OldLine = TheLine)Then Exit;
If(InString(TheLine, 'hi')) Or (InString(TheLine, 'ello')) Or (InString(TheLine, 'yo'))Then
Begin
Responce[0]:= 'Hi';
Responce[1]:= 'Hello';
Responce[2]:= 'ello';
Responce[3]:= 'hi lol';
Responce[4]:= 'Hi there';
Responce[5]:= 'yo';
Responce[6]:= 'hi there!';
Responce[7]:= 'Yo wazzap';
Responce[8]:= 'lol hi';
Responce[9]:= 'Hi there';
Result:= True;
GoTo ResponceLabel;
End;
If(InString(TheLine, 'mining lvl')) Or (InString(TheLine, 'mining lev')) Or (InString(TheLine, 'mining lv'))Then
Begin
Responce[0]:= IntToStr(Players[CurrentPlayer].Level[15]);
Responce[1]:= IntToStr(Players[CurrentPlayer].Level[15]) +', You?';
Responce[2]:= IntToStr(Players[CurrentPlayer].Level[15])+ ' lol';
Responce[3]:= 'Currently ' +IntToStr(Players[CurrentPlayer].Level[15]);
Responce[4]:= 'right now ' +IntToStr(Players[CurrentPlayer].Level[15]);
Responce[5]:= 'soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
Responce[6]:= 'very soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
Responce[7]:= 'secret';
Responce[8]:= 'ask me later';
Responce[9]:= 'ill tell when i get level';
Result:= True;
GoTo ResponceLabel;
End;
If(InString(TheLine, 'lol')) Or (InString(TheLine, 'ha')) Or (InString(TheLine, 'he'))Or
(InString(TheLine, 'lmao')) Or (InString(TheLine, 'rofl')) Or (InString(TheLine, 'omg'))Then
Begin
Responce[0]:= 'lol';
Responce[1]:= 'lmao';
Responce[2]:= 'haha';
Responce[3]:= 'lmfao';
Responce[4]:= 'rofl';
Responce[5]:= 'hehe';
Responce[6]:= 'ahah';
Responce[7]:= 'lmao haha';
Responce[8]:= 'hehe lol';
Responce[9]:= 'haha lol lmao rofl';
Result:= True;
GoTo ResponceLabel;
End;
If(InString(TheLine, 'jukka guild'))Then
Begin
Responce[0]:= 'long live!';
Responce[1]:= 'rocks!';
Responce[2]:= 'yes, sir?';
Responce[3]:= 'im here sir';
Responce[4]:= 'yessir!';
Responce[5]:= 'ae ae sir!';
Responce[6]:= 'yes, my lord?';
Responce[7]:= 'you want?';
Responce[8]:= 'ayesir';
Responce[9]:= 'hi sir!';
MasterDetected:= True;
Result:= True;
GoTo ResponceLabel;
End;
ResponceLabel:
If(Result)Then
Begin
If( MasterDetected )Then
Writeln('A Scar Scripter said hi ;)');
Writeln('Responded: '+Responce[CurrentResponce]+' To: '+ TheLine);
TypeSend(Responce[CurrentResponce]);
CurrentResponce:= CurrentResponce + 1;
RespondedTimes:= RespondedTimes + 1;
TRespond:= TRespond + 1;
If(CurrentResponce = 9)Then
CurrentResponce:= 0;
End;
End;
But this is kinda for experts so to say...
Code:
- Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
- Solarwind: Dude, you are like... t3h s3x.
- Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
- benjaa: woah.... Jukka is the man Guildminer pwns all
- NaumanAkhlaQ: And JuKKa Is my Her0!
Thanks, Jukka its what i wanted!
Needed an oak auto cutter and willow auto cutter what includes:
-Banking
-Fast chopping, banking and finding what needed
-Good autoresponder and antiban
-Good and nice form
-Easy to use
-Great FailSafe
-And more good things
-Must work atleast for 4 hours
Paying for them! 250k + 50k each week for making them work better
Questions would be accepted, if deal, Krendzel@hotmail.com![]()
http://www.fenjer.com/adnan/SRLStats/2720.png
There are currently 1 users browsing this thread. (0 members and 1 guests)