Results 1 to 11 of 11

Thread: [RS2][AutoAlcher] v1.2

  1. #1
    Join Date
    Jun 2006
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [RS2][AutoAlcher] v1.2

    No anti randoms yet .

    SCAR Code:
    {==============================================================|
    |==============================================================|
    *                                                              *
    *                       *SCRIPT INFO*                          *
    *                                                              *
    *          # MADE BY        : Razorlike                        *
    *          # NAME OF SCRIPT : Razors Alcher                    *
    *          # DATE STARTED   : 12 Jan 2008                      *
    *          # VERSION        : 1.3                              *
    *                                                              *
    |==============================================================|
    *                                                              *
    *                      *SCRIPT USAGE*                          *
    *          # USAGE          : Auto alchs whatever you want     *
    *          # SETUP          : The item that you want to alch   *
                                  in the 14th spot.                *
                                  Enough runes to cast High Alchemy*
    *          # OTHER          : Setup on line 32.                *
    *          # INSTRUCTIONS   :                                  *
    *            1. Set brightness to VB [Very Bright]             *
    *            2. Leave your chats how you want.                 *
                                                                   *
    *==============================================================}


    program AutoAlcher;
    {.include SRL\SRL.scar}
    var
       x1,y1: Integer;
       AlchTimes: Integer;
       HighAlch: Integer;

    const
    RunDirection = 'N';//What direction do you want to run incase of a fight.
    AlchsToDo = 200;//How many items you want to alch
    AntiBan = true;//Anti Ban? (true = reccomended)

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.

      Players[0].Name := 'Username';
      Players[0].Pass := 'Password';
      Players[0].Nick := 'user';
      Players[0].Active := True;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    Procedure ProgressReport;
    begin
          cleardebug;
          Writeln('++++++++++++++++++++++');
          Writeln('Worked for '+ TimeRunning );
          Writeln('You have alched '+ IntToStr(AlchTimes) +' items.');
          Writeln('You gained '+ IntToStr(AlchTimes*65) +' magic experience.');
          Writeln('++++++++++++++++++++++');
    end;

    Procedure Navigation;
    begin
      Gametab(7);
      HighAlch := DTMFromString('78DA63CC65626058C0C8800C7E7DE3614801D' +
      '220D1FF40C05808543309550D44164602E922A09A9904D49401D5' +
      'CC27A00664D762026A5288543397809A1CA09A3904D4E403D54CC' +
      '3AF0600F3F80FEB');
      if FindDTM(HighAlch, x1, y1, 705, 319, 729, 347)
        then Writeln('HighAlch Found') else
          begin
            writeln('HighAlch not found')
            TerminateScript;
          end;
    end;

    procedure AntiBan1;
    begin
      if(AntiBan=true)then
        begin
          if(not(LoggedIn))then
            Exit;
          case Random(5) of
            1: begin
                 HoverSkill('Magic', false);
                 wait(500+random(500));
                 Navigation;
               end;
            2: begin
                 PickUpMouse;
                 Navigation;
               end;
            3: begin
                 case random(5) of
                   0: TypeSend('Mage lvls?');
                   1: Begin
                        TypeSend('Im bored -.-');
                        Wait(500+random(100))
                        TypeSend('Ive been alching for '+ TimeRunning +'Minutes');
                      end;
                   2: TypeSend('Only '+ IntToStr(AlchsToDo-Alchtimes) +' alchs left');
                   3: TypeSend('Hai');
                   4: TypeSend('Im lagging really bad here');
                   5: TypeSend('Ooh! its shiny')
                   6: begin
                        TypeSend('Dumdiedumdiedum. lalalala');
                        wait(300+random(200))
                        TypeSend('Yes, alching is driving me crazy :P');
                      end;
                 end;
              end;
          4: begin;
               SleepAndMoveMouse(1000+random(1000));
               Navigation;
             end;
          5: case Random(5) of
               1:  begin
                     TypeSend('Logging off for a min. Cya');
                     LogOut;
                     wait(50000+random(10000));
                     Loginplayer;
                     Navigation;
                   end;
             end;
        end;
      end;
    end;

    Procedure Alching;
    begin
      Mouse(x1, y1, 0, 0, true);
      wait(3000+random(200));
      Mouse(x1, y1, 0, 0,true);
      wait(1000+random(100));
      AlchTimes:=AlchTimes + 1
    end;

    begin
         SetupSrl;
         DeclarePlayers;
          if FindRs then
             begin
               ActivateClient;
             end else
         begin
          Writeln('No Runescape!!');
          TerminateScript;
         end;
         if(not(loggedin))then loginplayer;
          Navigation;
         repeat
          Alching;
          If(AntiBan=true)then
            begin
              case random(5) of
                1:  AntiBan1;
              end;
            end;
         until AlchTimes=AlchsToDo;
         ProgressReport;
    end.

  2. #2
    Join Date
    Jan 2008
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice for first Script.

  3. #3
    Join Date
    Jun 2006
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks . Could I get some more feedback on how to improve? Perhaps I should use Bitmaps?

  4. #4
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    use mouse(x, y, Randx, Randy, Leftclick) instead of clickmouse. clickmouse will get u banned. also i suggest you look up SRL functions like CastSpell and MouseItem.

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  5. #5
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    its good for a 1st beginner script

    YES clickmouse will get you banned.... and i dont like your typesend anti ban procedure since its only 3-4 lines sounds a bit fishy to jagex heh?

    so yeah keep reading tuts and keep SCRIPTING
    goodluck

    BTW use BITMAPS/DTMS for the clicking to alch in the future =p

  6. #6
    Join Date
    Jun 2006
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks .
    I redid my version after I posted this one with MMouse and Mouse, but I forgot to post it.
    Im going to start working on BitMaps, and looking into "CastSpell" and "MouseItem"

  7. #7
    Join Date
    Dec 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 59: [Error] (231:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/Math.scar

    thats what i get
    what am i missing?

  8. #8
    Join Date
    Dec 2007
    Posts
    97
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is out of date, it is made for an older version of SRL, check the last time it was posted on, close to two months ago. Don't grave dig an old thread, odds are the owner of it is long gone and won't help.

  9. #9
    Join Date
    Mar 2008
    Location
    Bradford, England
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    very nice script r4s0rlike have not tryed it yet but it looks good and is on my 2 do list will let u know how it is once i try it.

  10. #10
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Pretty Good first script.

  11. #11
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    01-18-2008, 12:05 PM

    Next post:

    03-12-2008, 01:11 AM

    Its out of date. Dont Gravedig.
    Jus' Lurkin'

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [SRL4]AutoAlcher
    By r4z0rlike in forum First Scripts
    Replies: 13
    Last Post: 08-18-2008, 12:49 AM
  2. I'm *attempting* to create an autoalcher.
    By Benz in forum OSR Help
    Replies: 5
    Last Post: 12-24-2007, 04:41 AM
  3. N1keee's AutoAlcher!
    By Naike in forum First Scripts
    Replies: 2
    Last Post: 12-22-2007, 05:34 PM
  4. Krnpride's Autoalcher
    By krnpride in forum RS3 Outdated / Broken Scripts
    Replies: 15
    Last Post: 11-09-2007, 03:54 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
  •