SRL Archive - RS3 Money Making/Collecting

Start with arrow shafts in second inventory slot

Features:
Basic antiban (could improve)
Logs out when out of arrow shafts

Program new;
{$Define SMART}
{$I SRL-6/SRL.Simba}

Procedure declarePlayers();
Begin
  setLength(players, 1);
    With players[0] Do
      Begin
        loginName := '';    //UserName
        password  := '';    //Password
        isActive  := True;  //Leave true
        isMember  := True; //Is user a Member?
      End;
  currentPlayer := 0;
End;

Procedure antiBan();
Begin
  Case random(500) Of
    0: Begin ClearDebug; writeLn('Status: Anti Ban - Hover Skill');   hoverSkill(SKILL_FLETCHING); End;
    1: Begin ClearDebug; writeLn('Status: Anti Ban - Bored Human');   boredHuman(false); End;
    2: Begin ClearDebug; writeLn('Status: Anti Ban - Move Mouse 1');  sleepAndMoveMouse(1000 + random(2000)); End;
    3: Begin ClearDebug; writeLn('Status: Anti Ban - Dropped Mouse'); pickUpMouse(); End;
    4: Begin ClearDebug; writeLn('Status: Anti Ban - Move Mouse 2');  smallRandomMouse(80); End;
  End;
End;

Procedure makeHeadlessArrows();
Begin
  ClearDebug;
  writeLn('Status: Clicking Arrow Shafts');
  tabBackPack.mouseSlot(2, MOUSE_LEFT);

  If productionScreen.isOpen(5000) Then
  Begin
    antiBan();
    ClearDebug;
    writeLn('Status: Clicking Start');
    productionScreen.clickStart();
  End;
  if progressScreen.isOpen(5000) Then
  Begin
    Repeat
      antiBan();
      ClearDebug;
      writeLn('Status: Making Headless Arrows');
      wait(randomRange(200, 500));
    Until(Not progressScreen.isOpen());
  End;
End;

Begin
  setupSRL;
  declarePlayers();
  disableSRLDebug := True;
  If Not isLoggedIn Then
    players[currentPlayer].login();

    Repeat
      antiBan();
      makeHeadlessArrows();
    Until(Not tabBackPack.isItemInSlot(2));
    players[currentPlayer].logout();
    terminateScript;
End.

Your script is good for a beginner, but I did notice that your script tries to proceed making the next 150 headless arrows before its even done with the previous 150, i.e. it doesn't wait until all 150 headless arrows are done.

But otherwise good job, since you already know some codes well as a beginner.

good script to make some cash if bored, too much competition in the mines so I am going to make gold through this for awhile. Thanks

It constantly shuts down,for so noticable reason.