Results 1 to 5 of 5

Thread: Autotalker =D

  1. #1
    Join Date
    Feb 2009
    Location
    Va
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Autotalker =D

    SCAR Code:
    program AutoTalker;
    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.include SRL\SRL.scar}
                                // you forgot to inclue teh stuff.
     
    var
      Talked, Antibans, Totaltalks :integer;
     
    const
      message1 = 'hello';
      message2 = 'how are you';
      message3 = 'Im doing fine thankyou'; // You forgot a semicolon
     
    Smartworld = 1;
    Signed = true;
     
                        // Removed your run direction (Not needed).
     
    Procedure Declareplayers;
    begin
      HowManyPlayers := 3;          // Fixed it for you
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
     
      players [0].Name := 'username';
      players [0].pass := 'runescape password'
      players [0].Nick := 'sern'
      players [0].active := true;
    end;
     
     
    Procedure RandomCheck;
    begin
      FindNormalRandoms;
      if FindFight then                                   // ADDED this for You.
      begin
        MakeCompass('n');
        mouse(630, 154, 5, 5, True);
        fflag(0);
        SleepAndMoveMouse(15000+random(5000));
        Mouse(630, 15, 5, 5, True);
        SleepAndMoveMouse(2000 + random(2000));
        fflag(0);
      end;
    end;
     
     // Also removed the old one over here. (NOT NEEDED)
     
    procedure antiban;
    begin
     if not loggedin then exit;
     case random (68) of
       0:  hoverskill('Random', false);       // Mixed it up a bit.
       1:  hoverskill ('smithing', false);
       2:  begin
             gametab(1 + random(12));
             wait(500+Random(1000));
             gametab(4);
           end;
       3:  boredhuman;
       4:  PickupMouse;
      end;
      antibans := antibans+1;
    end;
     
     
     
    procedure Talk;
    begin
      if not loggedin then Exit;
      case random (3) of
        0: typesend(message1);
        1: typesend(message2);
        2: typesend(message3);
      end;
      totaltalks:=totaltalks+1;
    end;
     
     
    procedure Proggy;
    begin
      cleardebug;
      writeln('+++++++++++++++++++++++++++++++++++++++++++++');
      writeln('talked ' +inttostr(totaltalks)+'times!');
      writeln('preformed '+Inttostr(antibans)+'antibans');      // Fixed your Writeln xD!
      writeln('ran for'   +timerunning);
      writeln('++++++++++++++++++++++++++++++++++++++++++++');
    end;
     
     
     
    procedure mainloop;
    begin
      SMARTSetUpex(21, False, True, False);
      SetTargetDC(SmartGetDC);
      SetupSRL;
      repeat
        if talked >= 25 then
        begin
          writeln('we talked 25 times,next player.')
          nextplayer(true);
        end;
        RandomCheck;
        antiban;
        proggy;
      until(false);
    end.


    Thx go out to
    Tickyy for correcting my errors =D

  2. #2
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    SCAR Code:
    program AutoTalker;
    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.include SRL\SRL.scar}
                                // you forgot to inclue teh stuff.

    var
      Talked, Antibans, Totaltalks :integer;

    const
      message1 = 'hello';
      message2 = 'how are you';
      message3 = 'Im doing fine thankyou'; // You forgot a semicolon

    Smartworld = 1;
    Signed = true;

                        // Removed your run direction (Not needed).

    Procedure Declareplayers;
    begin
      HowManyPlayers := 3;          // Fixed it for you
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      players [0].Name := 'username';
      players [0].pass := 'runescape password'
      players [0].Nick := 'sern'
      players [0].active := true;
    end;


    Procedure RandomCheck;
    begin
      FindNormalRandoms;
      if FindFight then                                   // ADDED this for You.
      begin
        MakeCompass('n');
        mouse(630, 154, 5, 5, True);
        fflag(0);
        SleepAndMoveMouse(15000+random(5000));
        Mouse(630, 15, 5, 5, True);
        SleepAndMoveMouse(2000 + random(2000));
        fflag(0);
      end;
    end;

     // Also removed the old one over here. (NOT NEEDED)

    procedure antiban;
    begin
     if not loggedin then exit;
     case random (68) of
       0:  hoverskill('Random', false);       // Mixed it up a bit.
       1:  hoverskill ('smithing', false);
       2:  begin
             gametab(1 + random(12));
             wait(500+Random(1000));
             gametab(4);
           end;
       3:  boredhuman;
       4:  PickupMouse;
      end;
      antibans := antibans+1;
    end;



    procedure Talk;
    begin
      if not loggedin then Exit;
      case random (3) of
        0: typesend(message1);
        1: typesend(message2);
        2: typesend(message3);
      end;
      totaltalks:=totaltalks+1;
    end;


    procedure Proggy;
    begin
      cleardebug;
      writeln('+++++++++++++++++++++++++++++++++++++++++++++');
      writeln('talked ' +inttostr(totaltalks)+'times!');
      writeln('preformed '+Inttostr(antibans)+'antibans');      // Fixed your Writeln xD!
      writeln('ran for'   +timerunning);
      writeln('++++++++++++++++++++++++++++++++++++++++++++');
    end;



    procedure mainloop;
    begin
      SMARTSetUpex(21, False, True, False);
      SetTargetDC(SmartGetDC);
      SetupSRL;
      repeat
        if talked >= 25 then
        begin
          writeln('we talked 25 times,next player.')
          nextplayer(true);
        end;
        RandomCheck;
        antiban;
        proggy;
      until(false);
    end.

    this should work.
    Hi

  3. #3
    Join Date
    Feb 2009
    Location
    Va
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Awsoem man tyvm=) dose this count as a my first script?or do i need to make one of my own with out a tut tyvm for the corrections.

  4. #4
    Join Date
    Feb 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice,

  5. #5
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    a FIRST script is the FIRST script you make..

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My First AutoTalker
    By eurostylz in forum First Scripts
    Replies: 13
    Last Post: 02-10-2008, 11:11 AM
  2. AutoTalker
    By snatch in forum First Scripts
    Replies: 3
    Last Post: 09-03-2007, 12:18 PM
  3. autotalker
    By wobbii in forum First Scripts
    Replies: 3
    Last Post: 04-16-2007, 01:48 AM
  4. My AutoTalker
    By RudeBoiAlex in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 03-05-2007, 03:34 PM
  5. need autotalker help
    By Dadeer in forum OSR Help
    Replies: 1
    Last Post: 12-01-2006, 12:12 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
  •