Results 1 to 4 of 4

Thread: Auto responder

  1. #1
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Auto responder

    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

  2. #2
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    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!

  3. #3
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

  4. #4
    Join Date
    Sep 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Auto Responder!
    By Naike in forum Research & Development Lounge
    Replies: 16
    Last Post: 04-02-2009, 11:30 AM
  2. How Do I Add A Auto Responder?
    By gamer 5 in forum OSR Help
    Replies: 6
    Last Post: 12-01-2007, 06:21 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •