Results 1 to 7 of 7

Thread: SRL AutoTalk Function

  1. #1
    Join Date
    Sep 2008
    Posts
    241
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default SRL AutoTalk Function

    This is one of my first posts, but I want to start an autotalking scar script project. If anyone would like to contribute, please take this basic script and do anything to it so it can talk like a person. (I want to make a YouTube video of an auto having a conversation with some dude.)

    SCAR Code:
    procedure HandlePlayerChat;
    begin
     
      if InChat('') then
      begin
          case Random(7) of
            0: TypeSend('');
            1: TypeSend('');
            2: TypeSend('');
            3: TypeSend('');
            4: TypeSend('');
            5: TypeSend('');
            6: TypeSend('');
          end;
        Sleep(2000 + Random(1000));
      end;
    end;

    PLEASE EDIT THIS SCRIPT AND RE-POST IT!
    THANKS!

  2. #2
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure HandlePlayerChat;
    begin

    If(InChat('Hi'))or (InChat('Hello'))or (InChat('Hey')) Then
      Begin
        Case Random(4) of
          0: TypeSend('hello');

          1: TypeSend('hi');

          3: TypeSend('hey');

          4: TypeSend('morning');
        End;
      End;
      If(InChat('lvl'))or(InChat('woodcutting'))or(InChat('wc'))or(InChat('level'))Then
      Begin
        Case Random(3) of
          0: TypeSend(IntToStr(GetSkillLevel('woodcutting'))+' yours?');

          1: TypeSend(IntToStr(GetSkillLevel('woodcutting')));

          2: TypeSend(IntToStr(GetSkillLevel('woodcutting'))+' and you?');

          3: TypeSend('My wc lvl is '+IntToStr(GetSkillLevel('woodcutting')));
        End;
      End;
    End;
    begin
    end.

    Thats all i got for ya atm
    IM BACK!!!!!!!!!!!!!!!!!

  3. #3
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    These things are a surefire way to get banned if there is no randomness in the sentences said Try making a procedure to type with a few mistakes, or something. Nice try though


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  4. #4
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    kk thanks for feedback will fix up later..
    IM BACK!!!!!!!!!!!!!!!!!

  5. #5
    Join Date
    Sep 2008
    Posts
    241
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is this what you mean by more mistakes?

    SCAR Code:
    procedure HandlePlayerChat;
    begin
     
      if InChat('') then
      begin
          case Random(7) of
            0: TypeSend(AddMistakes('', 30));
            1: TypeSend(AddMistakes('', 30));
            2: TypeSend(AddMistakes('', 30));
            3: TypeSend(AddMistakes('', 30));
            4: TypeSend(AddMistakes('', 30));
            5: TypeSend(AddMistakes('', 30));
            6: TypeSend(AddMistakes('', 30));
          end;
        Sleep(2000 + Random(1000));
      end;
    end;

  6. #6
    Join Date
    Sep 2008
    Posts
    241
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I just modified joelstr134 script so that it made some mistakes.
    I think it should work...
    (I like to keep code clean of mistakes so I cleaned this up a little bit.)


    SCAR Code:
    procedure HandlePlayerChat;
    begin
     
      if (InChat('Hi')) or (InChat('Hello')) or (InChat('Hey')) then
        begin
          case Random(4) of
            0: TypeSend(AddMistakes('hello', 30));
     
            1: TypeSend(AddMistakes('hi', 30));
     
            3: TypeSend(AddMistakes('hey', 30));
     
            4: TypeSend(AddMistakes('morning', 30));
       
          end;
        end;

        if (InChat('lvl')) or (InChat('woodcutting')) or (InChat('wc')) or (InChat('level')) then
        begin
          case Random(3) of
            0: TypeSend(AddMistakes(IntToStr(GetSkillLevel('woodcutting')) + ' yours?', 30));
     
            1: TypeSend(IntToStr(AddMistakes(GetSkillLevel('woodcutting')));
     
            2: TypeSend(IntToStr(AddMistakes(GetSkillLevel('woodcutting')) + ' and you?', 30));
     
            3: TypeSend(AddMistakes('My wc lvl is ' + IntToStr(GetSkillLevel('woodcutting')), 30));
       
        end;
      end;
    end;

  7. #7
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you dont want to many mistakes in the script, then it will be to obvious....just one or two
    IM BACK!!!!!!!!!!!!!!!!!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Teh 1337 Merchant (autotalk/trade w/form)
    By Timothegreat in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 12-08-2007, 07:30 AM
  2. TypeTalk - AutoTalk Procedure
    By Daniel in forum Research & Development Lounge
    Replies: 9
    Last Post: 11-09-2007, 09:05 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
  •