SRL Archive - First Scripts

Running through my first scripts and posting them, maybe someone else can make use/make better. Requires basic supervision but it will run unhindered for several hours, just make sure you have armor/weapon and combat to tank guards/knights/paladins. For best results start behind a stall zoomed all the way in at a low viewing angle (IE the stall takes up most of the window)

This little gem got my thieving to 50. It will basically steal from any stall with a few tweaks. Its set with z as a hot key to drop silk but can easily be modified for anything with tabbackpack.dropitems()

Enjoi!

program stealShits;
{$DEFINE SMART}
{$i SRL-6/SRL.simba}


procedure antiBan();
var
  i: integer;
begin
  i := random(500);
  case i of
      1..10: pickUpMouse();
      11..18: sleepAndMoveMouse(random(2000) + 750);
      19..35: smallRandomMouse();
      36..50: mouseOffClient(OFF_CLIENT_RANDOM);
      51..140: mouse(RandomRange(385,395),RandomRange(15,25),5,5);
      141..149: mouse(RandomRange(30,500),RandomRange(15,300),5,5);
  end;
end;

procedure  mainLoop();
var
cameraCounter,x,y,stackCount: int32;
begin
  x:=400;
  y:=225;
  repeat
    if tabBackpack.isFull() then
    begin
      repeat
        sendkeys('z',255,255);
        wait(500);
        inc(stackCount);
      until stackCount = 28;

      stackCount:=0;

      end;

    mouse(x,y,-5,5,mouse_right);

    if not chooseOption.select(['Steal-from Silk stall']) then  //change for different stalls
    begin
      cameraCounter:=cameraCounter+1;
    end else
      cameraCounter:=0;

    if cameraCounter > 3 then
    begin
      randomCompass(30,270,false);
      x:=RandomRange(350,450);
      y:=RandomRange(175,275);
    end;

    antiBan();
    sleep(RandomRange(4400,5200)); //adjust timer based on stall you are stealing from!

  until(false)
end;


begin
  smartPlugins := ['opengl32.dll'];
  smartEnableDrawing := true;
  setupSRL;
  mainLoop;
end.