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
    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.