Results 1 to 8 of 8

Thread: Needed working auto responder

  1. #1
    Join Date
    May 2007
    Location
    Netherlands
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Needed working auto responder

    Hello,

    i'm searching for a working auto responder,
    that only responds to 1 name
    something like this

    blabla says hello
    then the script doenst respond

    karl says hello
    then the script responds because he only need to respond to this name.

    maby it is also posible to add a little thing like that he clicks on the game tabs like inv and stats that he doenst logs out.

    i hope that some one will and can help me with this.

    Gr, Ricardo

  2. #2
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    umm hmm..u could use
    SCAR Code:
    text :=(GetTextAtEx(18, 415, 7, SmallChars, False, False, 0, 0, 0, 50, False, tr_allChars));//where....btw
    if(text=Karl:)then
    //rest of stuff
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  3. #3
    Join Date
    May 2007
    Location
    Netherlands
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    mmm, i'm not so good with scar i'm still learning it....
    so maby you can help a little bit more ?

  4. #4
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    A very good auto responder takes lots of time to do.
    Like it saves username of the person who asked, answers every 4 min to 1 guestion so that someone can't ask mining level 8 times and you answer 8 times, etc.

  5. #5
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    im not sure i get why u want to only respond to 1 person
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  6. #6
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    Here... This Saves The Name And Doesnt Respond to the same person...


    SCAR Code:
    program New;
    {.Include SRL/SRL.scar}

    Var
      Chatters :  String;   // These are the people who talk to you
      Chatted : Integer; // How Many Times You Responded


    //----------------------------------------------------------------------------//
    //-- Typs a random array of words                                           --//
    //----------------------------------------------------------------------------//

    Procedure TypeInRandom(Texts : Array Of String);
    begin
      TypeSend(Texts[Random(GetArrayLength(Texts))]);
    end;

    //----------------------------------------------------------------------------//
    //-- Finds array of words in one string then returns true if found.         --//
    //----------------------------------------------------------------------------//

    Function PosMulti(substr : Array Of String; S: String) : Boolean;
    Var
       i : Integer;
    begin
     For i := 0 to GetArrayLength(Substr)-1 do
     begin
      Result:= (Pos(SubStr[i], S) > 0)
      If (Result) then exit;
     end;
    end;

    //----------------------------------------------------------------------------//
    //-- counts how many seperaters there are.                                  --//
    //----------------------------------------------------------------------------//

    Function CountSep(S:String; Seperater:Char) : Integer;
    var i:Integer;
    begin
     for i:= 1 to length(S) do
      if (S[i] = Seperater) then
        Result:= Result + 1;
    end;

    //----------------------------------------------------------------------------//
    //-- Returns the string in between the seperaters                           --//
    //----------------------------------------------------------------------------//

    Function BetweenSep(S:String; Seperater:Char): Array of String;
    Var i, ST, c:Integer;
    begin
     ST:= CountSep(S, Seperater);
       If (St > 0 ) Then  St:= St + 1;
         setarraylength(Result, st);
           For i:= 1 to length(s) do
            if (S[i] = Seperater ) then  C:= c + 1
          else
        Result[c]:= Result[c] + S[i];
    end;

    //----------------------------------------------------------------------------//
    //-- It Responds only once to each player                                   --//
    //-- so if a player ask your mining lvl twice then it only says it once     --//
    //----------------------------------------------------------------------------//

    Procedure SkysResponder;
    Var
       Chatter, ChatText : String;
       Talkers : Array of string;
        i : Integer;
    begin
      If (FindColor(x, y, 16711680, 19, 415, 477, 431)) then
      If (LastChatter(Chatter)) then
       begin
          If (Chatter = LowerCase(Players[CurrentPlayer].Name))then Exit;
          GetLastChatText(ChatText);
          Talkers := BetweenSep(Chatters, ',');
       for i := 0 to GetArrayLength(Talkers)-1 do
         If (Trim(Talkers[i]) = Chatter) then exit;

            If (PosMulti(['lol', 'lmfao', 'rofal', 'ha '], ChatText)) then
                begin
                      TypeInRandom(['Lol', 'lmfao', ':]', '=]', 'hehe', 'haha']);
                      Chatters := Chatters +','+ Chatter;
                      Chatted := Chatted + 1;
                      exit;
                end;
              If (PosMulti(['m lv', 'mine lv', 'mining lv',
                             'm level', 'mine level', 'mining level'],  ChatText)) then
               begin
                  SayCurrentLevels('Mining');
                  Writeln(Chatter + ' Said : '+ Chattext);
                  Writeln('Said mining lvl to ' + Chatter);
                  Chatted := Chatted + 1;
                  Chatters := Chatters +','+ Chatter;
                  exit;
               end;
                  If (PosMulti(['noob', 'loser',
                             'newbie', 'nub'], ChatText)) then
                begin
                 TypeInRandom([':[', '=[', 'aww..', '?',
                              'ok...?', 'grr...']);
                 Writeln(Chatter + ' Said : '+ Chattext);
                 Chatters := Chatters +','+ Chatter;
                 Chatted := Chatted + 1;
                 exit;
               end;

                If (PosMulti(['auto'], ChatText)) then
                begin
                 TypeInRandom(['gaw, autos make me mad..',
                               'dont auto..', 'autoing is wrong']);
                 Writeln(Chatter + ' Said : '+ Chattext);
                 Chatters := Chatters +','+ Chatter;
                 Chatted := Chatted + 1;
                 exit;
               end;

               If (PosMulti(['auto'], ChatText)) then
                begin
                 TypeInRandom(['gaw, autos make me mad..',
                               'dont auto..', 'autoing is wrong']);
                 Writeln(Chatter + ' Said : '+ Chattext);
                 Writeln('Taked to ' + Chattext + ' about autoing');
                 Chatters := Chatters +','+ Chatter;
                 Chatted := Chatted + 1;
                 exit;
               end;

               If (PosMulti(['macro'], ChatText)) then
                begin
                 TypeInRandom(['macro?',
                               'macro..', 'i report macros',
                               'grr.. macros are gay..']);
                 Writeln(Chatter + ' Said : '+ Chattext);
                 Writeln('Taked to ' + Chattext + ' about macros');
                 Chatters := Chatters +','+ Chatter;
                 Chatted := Chatted + 1;
                 exit;
               end;

              If (PosMulti(['bot'], ChatText)) then
                begin
                 TypeInRandom(['no bot', 'nope',
                               'dont talk about that..']);
                 Writeln(Chatter + ' Said : '+ Chattext);
                 Writeln('Taked to ' + Chattext + ' about bots');
                 Chatters := Chatters +','+ Chatter;
                 Chatted := Chatted + 1;
                 exit;
               end;

                If (PosMulti(['sup', 'was up', 'hows it going',
                             'whats going on', 'how are you',
                             'how r u'], ChatText)) then
                begin
                 TypeInRandom(['nothing much..', 'good..', 'bored', 'how r u doing?',
                             'fine', 'ok...', 'im happy']);
                 Writeln(Chatter + ' Said : '+ Chattext);
                 Writeln('Talked to ' + Chatter);
                 Chatters := Chatters +','+ Chatter;
                 Chatted := Chatted + 1;
                 exit;
               end;
               If (PosMulti(['hi', 'hey', 'halo',
                             'ello', 'yo', Players[CurrentPlayer].Name], ChatText)) then
                begin
                 Wait(1000 + random(1000));  // Getting name ;)
                 TypeInRandom(['hi', 'hey', 'halo', 'ello',
                             'hi ' + Chatter,  'hey ' + Chatter]);
                 Writeln(Chatter + ' Said : '+ Chattext);
                 Writeln('Said hi to ' + Chatter);
                 Chatters := Chatters +','+ Chatter;
                 Chatted := Chatted + 1;
                 exit;
               end;
          end;
    end;


    begin
    SkysResponder;
    end.

  7. #7
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    i thought he did want to respond to 1 person
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  8. #8
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    Oh, I dont know Nvm lol

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 dallas574 in forum OSR Help
    Replies: 2
    Last Post: 08-15-2008, 01:08 PM
  2. Auto Responder Help.
    By richk1693 in forum OSR Help
    Replies: 2
    Last Post: 12-12-2007, 12:22 AM
  3. Auto Fletcher / with responder. Help NEEDED
    By Camaro' in forum OSR Help
    Replies: 10
    Last Post: 11-02-2007, 12:32 PM
  4. Auto responder
    By dritar in forum OSR Help
    Replies: 3
    Last Post: 10-04-2007, 06:13 PM

Posting Permissions

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