Added Make Antibans

Tested a few hundred times and everything is working well.

Author: jacz24

osrs/antiban/antibantasks.simba

@@ -162,10 +162,95 @@ procedure TAntiban.HoverMakeItem();
 var
   boxes: TBoxArray;
 begin
-  if not Bank.IsOpen() then Exit;
-  WriteLn GetDebugLn('Antiban', 'Hovering a random make item button');
+  if not Make.IsOpen() then Exit;
+  WriteLn GetDebugLn('Antiban', 'Hovering a random make item');
   boxes := Make.GetItemBoxes();
+  if boxes = [] then Exit;
+  Mouse.Move(boxes.Random());
+end;
+
+procedure TAntiban.HoverMakeQuantity();
+var
+  boxes: TBoxArray;
+begin
+  if not Make.IsOpen() then Exit;
+  if not Make.ClearQuantityHint() then Exit;
+  WriteLn GetDebugLn('Antiban', 'Hovering a random make quantity button');
+  boxes := Make.GetQuantityBoxes();
+  if boxes = [] then Exit;
   Mouse.Move(boxes.Random());
+  Biometrics.Sleep(500, 2000, ERandomDir.LEFT);
+end;
+
+procedure TAntiban.ReadMakeItemHint();
+var
+  boxes: TBoxArray;
+begin
+  if not Make.IsOpen() then Exit;
+  WriteLn GetDebugLn('Antiban', 'Reading a random make item hint');
+  boxes := Make.GetItemBoxes();
+  if boxes = [] then Exit;
+  Mouse.Move(boxes.Random());
+  if Make.WaitHint(2000) then
+  begin
+    Biometrics.Sleep(1000, 3000, ERandomDir.LEFT);
+    Make.CloseHint();
+  end;
+end;
+
+procedure TAntiban.ToggleMakeQuantity();
+var
+  randomBtn: TRSMakeQuantityButton;
+  quantityBtns: array of TRSMakeQuantityButton;
+  currentBtn, customQuantity, i: Integer;
+begin
+  if not Make.IsOpen() then Exit;
+  if not Make.ClearQuantityHint() then Exit;
+  WriteLn GetDebugLn('Antiban', 'Toggling make quantity buttons');
+
+  quantityBtns := Make.FindQuantityButtons;
+  if quantityBtns = [] then Exit;
+  currentBtn := Make.GetCurrentQuantity();
+  randomBtn := quantityBtns[Random(Length(quantityBtns))];
+
+  if randomBtn.UpText = 'Other' then
+  begin
+    for i := 0 to High(quantityBtns) do
+      if (quantityBtns[i].Quantity = ERSItemQuantity.CUSTOM)
+         and (quantityBtns[i].UpText <> 'Other') then
+      begin
+        customQuantity := StrToInt(quantityBtns[i].UpText);
+      end;
+
+    Make.SetQuantity(Random(1, 27));
+    Biometrics.Sleep(1000, 3000, ERandomDir.LEFT);
+
+    if customQuantity > 0 then
+    begin
+      Make.SetQuantity(customQuantity);
+      Biometrics.Sleep(1000, 3000, ERandomDir.LEFT);
+    end;
+  end
+  else
+  begin
+    // Just click the random button
+    randomBtn.Button.Enable();
+    Biometrics.Sleep(1000, 3000, ERandomDir.LEFT);
+  end;
+
+  // Restore original
+  if Make.IsOpen() then
+    Make.SetQuantity(currentBtn);
+end;
+
+procedure TAntiban.RandomMakeTask();
+begin
+  case Random(0, 10) of
+    0..3:  Self.HoverMakeItem();
+    4..6:  Self.HoverMakeQuantity();
+    7..8:  Self.ReadMakeItemHint();
+    9..10: Self.ToggleMakeQuantity();
+  end;
 end;
 
 //Chatbox antiban
@@ -893,6 +978,10 @@ const
     ['HoverSkills',           @Antiban.HoverSkills],
     ['OpenSkills',            @Antiban.OpenSkills],
     ['HoverMakeItem',         @Antiban.HoverMakeItem],
+    ['HoverMakeQuantity',     @Antiban.HoverMakeQuantity],
+    ['ReadMakeItemHint',      @Antiban.ReadMakeItemHint],
+    ['ToggleMakeQuantity',    @Antiban.ToggleMakeQuantity],
+    ['RandomMakeTask',        @Antiban.RandomMakeTask],
     ['ChatScrolling',         @Antiban.ChatScrolling],
     ['RandomChatTab',         @Antiban.RandomChatTab],
     ['ToggleChatTab',         @Antiban.ToggleChatTab],

osrs/interfaces/chat/make.simba

@@ -408,6 +408,33 @@ begin
   Result := SleepUntil(not Self.HasHint(), RandomMode(100, 50, 1500), 600);
 end;
 
+(*
+## Make.ClearQuantityHint
+```pascal
+function TRSMake.ClearQuantityHint(): Boolean;
+```
+Checks if a hint tooltip is covering the quantity buttons and closes it if so.
+Returns True if the quantity buttons are accessible (no hint, or hint was closed).
+Example:
+```pascal
+if not Make.ClearQuantityHint() then
+  WriteLn('Failed to clear hint covering quantity buttons');
+```
+*)
+function TRSMake.ClearQuantityHint(): Boolean;
+var
+  hintPt: TPoint;
+begin
+  if not Self.HasHint() then
+    Exit(True);
+
+  hintPt := Self.GetHintBox().TopRight;
+  if (hintPt.Y > Self.QuantityButtonBoxes[5].Y2) or (hintPt.X < Self.QuantityButtonBoxes[5].X1) then
+    Exit(True);
+
+  Result := Self.CloseHint();
+end;
+
 (*
 ## Make.QuantityButtons
 The quantity buttons are dynamic there can be anywhere from 1 to 6 available.
@@ -454,19 +481,12 @@ end;
 *)
 function TRSMake.FindQuantityButton(amount: Integer): TRSMakeQuantityButton;
 var
-  hintPt: TPoint;
   idx: Integer;
   quantity: ERSItemQuantity;
   quantitybtns: array of TRSMakeQuantityButton;
 begin
-  if Self.HasHint() then
-  begin
-    hintPt := Self.GetHintBox().TopRight;
-    if (hintPt.Y <= Self.QuantityButtonBoxes[5].Y2) and (hintPt.X >= Self.QuantityButtonBoxes[5].X1) then
-
-    if not Self.CloseHint() then
-      raise GetDebugLn('Make', 'Failed to close the tooltip which is covering the quanitty buttons');
-  end;
+  if not Self.ClearQuantityHint() then
+    raise GetDebugLn('Make', 'Failed to close the tooltip which is covering the quantity buttons');
 
   quantitybtns := Self.FindQuantityButtons();
   quantity := ERSItemQuantity.Integer2Quantity(amount);