Results 1 to 8 of 8

Thread: BattleScape High Alcher + Anti-Random

  1. #1
    Join Date
    Nov 2011
    Location
    Netherlands
    Posts
    156
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Cool BattleScape High Alcher + Anti-Random

    Hello,
    Ive found my high alcher a few days ago, i hope i help some of you getting 99 magic :P

    Use with battlescape client. read the setup to enable auto login.

    Its a very basic Alcher.

    Ive also got soulsplit thiefer, crafter (cut + bank) and some other battlescape scripts like paladin thiever with banker etc. Will think about releasing them.. Not sure yet!

    Simba Code:
    program BAlcherPro;
    {$i SRL/SRL.Simba}


    ///////////////////////////
    ////// SETUP!!! //////////
    // Search for USERNAME and add yours
    // Search for PASSWORD and add yours
    // TO ENABLE LOGIN.
    ///////////////////////////

    var
    x,y, DTM, tmpCTS: Integer;
    ObjectTPA:TPointArray;

    procedure ClickSpellBook;
    begin

      MMouse(636,176,0,0);

      ClickMouse2(True);
     Writeln('[Alching]')
      MMouse(734,178,0,0);

      ClickMouse2(True);

      Wait(randomrange(300,400));

        MMouse(702,321,0,0);

      ClickMouse2(True);
      Wait(randomrange(300,400));

    end;

    procedure HighAlch;
    begin

      MMouse(699,334-10,0,0);
    wait(randomrange(40,50));
      ClickMouse2(True);

      Wait(randomrange(460,500));

      MMouse(636,176,0,0);
    wait(randomrange(40,50));
      ClickMouse2(True);
        Wait(randomrange(200,300));
     end;

     procedure ProggyTest;
    begin
      ClearDebug;

      begin

     Writeln('*[B Alcher]: Running for: ' + TimeRunning);

      end;
    end;

       procedure AntiRandom;

     begin
      If FindColorTolerance(x, y, 45311, 562,234,726,291, 5) then   //1316151

     begin
     Writeln('[RANDOM] > Random Found, Relogging!')
      MMouse(637,460,0,0);
    wait(randomrange(40,50));
      ClickMouse2(True);

      wait(randomrange(1500,1550));

       MMouse(640,355,0,0);
    wait(randomrange(40,50));
      ClickMouse2(True);

        Wait(randomrange(5000,6000));

           MMouse(380,170,0,0);
    wait(randomrange(40,50));
      ClickMouse2(True);

       wait(randomrange(1000,2000));
       SendKeys('USERNAME', 100, 30);
       wait(randomrange(3000,4000));

      MMouse(383,225,0,0);
      wait(randomrange(40,50));
      ClickMouse2(True);
      wait(randomrange(1000,2000));
      SendKeys('PASSWORD', 100, 30);
      wait(randomrange(3000,4000));

      MMouse(380,275,0,0);
      wait(randomrange(40,50));
      ClickMouse2(True);

       wait(randomrange(3500,4000));

      MMouse(384,335,0,0);
      wait(randomrange(40,50));
      ClickMouse2(True);
      wait(randomrange(8500,9000));

       KeyDown(38);
      wait(RandomRange(4000,5000));
      KeyUp(38);
       wait(RandomRange(200,300));

       MMouse(670,460,0,0);    //CLICK TOOLS
      wait(randomrange(40,50));
      ClickMouse2(True);

       Wait(randomrange(460,500));

         MMouse(637,420,0,0);    //CLICK RUN
      wait(randomrange(40,50));
      ClickMouse2(True);

       Wait(randomrange(460,500));

      MMouse(636,176,0,0);
    wait(randomrange(40,50));
      ClickMouse2(True);
        Wait(randomrange(1200,1250));

     end;
       end;


     begin
      ActivateClient;
      SetupSRL;
      MouseSpeed := 13;

      wait(300);

     Writeln('Starting Bot...');

     repeat
     ProggyTest;
     AntiRandom;
     ClickSpellBook;
      AntiRandom;
      HighAlch;
     until(false);
    end.

    Cheers
    Last edited by bas; 06-01-2013 at 06:16 PM.
    I was away for a long time, but i'm back!

  2. #2
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Gratz on release I'm sure someone may find it useful

  3. #3
    Join Date
    Nov 2011
    Location
    Netherlands
    Posts
    156
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Thank you!
    I was away for a long time, but i'm back!

  4. #4
    Join Date
    Mar 2007
    Posts
    5,125
    Mentioned
    275 Post(s)
    Quoted
    901 Post(s)

    Default

    Moved as requested

    Forum account issues? Please send me a PM

  5. #5
    Join Date
    Nov 2011
    Location
    Netherlands
    Posts
    156
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by Justin View Post
    Moved as requested
    Thanks sir!
    I was away for a long time, but i'm back!

  6. #6
    Join Date
    Sep 2013
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    do the guard thief for money , battlescape changed the money to the guard and not palidin anymore

  7. #7
    Join Date
    Nov 2013
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Will you possibly release any other BS scripts?

  8. #8
    Join Date
    Nov 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I would love for you to release more battlescape scripts!

Thread Information

Users Browsing this Thread

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

Posting Permissions

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