Results 1 to 10 of 10

Thread: Auto Talker!

  1. #1
    Join Date
    May 2008
    Location
    ;)
    Posts
    576
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Talking Auto Talker!

    i just made this script. i have a few antibans etc.... PS i think the counter may be broken..... not sure though.... i think i may have fixed it.... haven't had time to test it however...

    anyway, tell me what you think!

    PS if the counter is indeed broken, could someone here please fix it????? thanks.

    EDIT: added smart

    EDIT: added ver 1.2 small improvements made.

    EDIT: also added the changes to ver 2 (now 2.2)
    Last edited by nickrules; 05-26-2009 at 02:37 AM. Reason: Added smart :D

  2. #2
    Join Date
    Feb 2009
    Location
    Philipines
    Posts
    600
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    ////////////////////////////////////////////////////
    ///////////////AUTO TALKER BY NICK9321//////////////
    ////this is a fairly basic auto talker with very////
    ////basic anti-bans, and no anit randoms. this /////
    //////is due to the fact that this is my first//////
    //script, and i was trying to make something that///
    //worked, and i have suceeded. Anyway, to operate///
    //this script, just edit the stuff in pink that is//
    //in between the green lines. either way, enjoy ////
    //////this very basic script made by nick9321 :P////
    ////////////////////////////////////////////////////

    program AutoTalkerByNW;

    {.Include SRL\SRL.Scar}

    var
      Talked: Integer; //Talked is for Progress Report :)

    const
    {--------------------EDIT ME--------------------------}
      Text1 = ('Pie: a delicious dessert and a mathamatiacl thingamabob.');
      Text2 = ('If pratice makes perfect, but nobodys perfect, why pratice?');
      text3 = ('Looking for something? check your left hand.');

    {-----------------------------------------------------}

    function CheckIfOnline: Boolean; //Checks if the player is online. if it isn't, it closes the script
    begin
      if (not (LoggedIn)) then
        Result := True;
      ClearDebug;
      Writeln('At some point you logged out, so we closed the script for you :(');
      TerminateScript;
    end;

    procedure Talk; //Types
    begin
      CheckIfOnline;
      TypeSend(Text1);
      Wait(1000 + random(200));
      Inc(Talked); // Adds one to the Progress Report
      CheckIfOnline;
      TypeSend(Text2);
      Wait(750 + random(200));
      Inc(Talked);
      CheckIfOnline;
      TypeSend(Text3);
      Wait(1250 + random(200));
      Inc(Talked);
    end;

    procedure AntiBan; // Antiban/antirandom Credits to Griff721. For the tut, and i sort of "barrowed" his antiband (from the tut), and added some stuff
    begin
      CheckIfOnline;
      FindNormalRandoms; // Anti-random
      case Random(10) of
        0: begin
              HoverSkill('Ranged', false); //hovers over a skill
              wait(2453 + Random(432));
            end;

        1: begin
              FindNormalRandoms; //Anti-random
            end;
        2: begin
              MakeCompass('N'); //moves compass
              wait(100 + random(133));
              MakeCompass('W');
              wait(50 + random(133));
              MakeCompass('N');
              FindNormalRandoms; //anti-random
            end;
        3: begin
              PickUpMouse; //simulates pickup up the mouse
            end;
        4: begin
              BoredHuman;
            end;
       end;
    end;

    procedure SetChatToGame;
    begin
      MoveMouseSplineEx(81, 490, 10, 10, 60, 30, 60);
      ClickMouseSpline(81, 490, 10, 10, True);
    end;

    procedure CrappyProggyMaker;
    begin
      Wait(60000)
      ClearDebug;
      Writeln('The Script Has be running for: ' + IntToStr(GetTimeRunning / 10000) + ' minutes');
      Writeln('Talked ' + IntToStr(Talked) + ' Times'); //Tells How many times we Talked
    end;

    begin
      CheckIfOnline;
      ActivateClient;
      setupsrl;
      SetChatToGame;
      repeat
        Talk;
        AntiBan;
        CrappyProggyMaker;
      until (False);
    end.

    Hope that makes sense.

  3. #3
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Overall for first script, good work! Try working on your standards, which I think was what Dark Arcana was getting at. Also, I noticed on your progress report that you wait 1 minute before the procedure starts. That is kinda useless, I'd take it out, but its really your choice. And hurray for someone reading my tut!

    The last thing I noticed was that in the antiban, you have ranged in there for hoverskill. Try changing that to random, so every time that part goes, it doesn't just check the range exp.

  4. #4
    Join Date
    May 2008
    Location
    ;)
    Posts
    576
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    @ dark Thanks for the fix.... i'm gonna fix the script.....

    @Griff wow... i didn't know you could do random.... thanks for the tip

  5. #5
    Join Date
    May 2009
    Posts
    54
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I got this message when I ran it:

    Invalid world number or corrupted world list. Please review your settings.

  6. #6
    Join Date
    May 2008
    Location
    ;)
    Posts
    576
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    i believe you have to update your worlds.ini (?) file?

    someone correct me if i'm wrong.

    PS still works fine for me

  7. #7
    Join Date
    Dec 2007
    Location
    Los Angeles, California
    Posts
    606
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks pretty good =)
    But maybe under const add something that lets the user select how long they want to wait + random before they move on to the next thing to say.

  8. #8
    Join Date
    May 2008
    Location
    ;)
    Posts
    576
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    i'll keep that in mind.... Thanks.

  9. #9
    Join Date
    May 2007
    Location
    England
    Posts
    4,140
    Mentioned
    11 Post(s)
    Quoted
    266 Post(s)

    Default

    Just so that you learn a bit more, here are a few ideas of how to improve:
    - Add mistakes to messages
    - Give the option to say a message X amount of times
    - Give the option to say a message when a key is pressed

    If you don't know how to do something, post, and I'll back to you as quick as I can, if no one else does.

    Richard
    <3

    Quote Originally Posted by Eminem
    I don't care if you're black, white, straight, bisexual, gay, lesbian, short, tall, fat, skinny, rich or poor. If you're nice to me, I'll be nice to you. Simple as that.

  10. #10
    Join Date
    Jun 2009
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this is the coolest
    ~golumpa~

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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