SRL Archive - RuneScape Private-Server Scripts

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!

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

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

Thank you! :)

Moved as requested

From: Justin
Moved as requested

Thanks sir! :)

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

Will you possibly release any other BS scripts?

I would love for you to release more battlescape scripts!