@@ -306,6 +306,7 @@ begin
306306 Result := StrToInt(current.UpText);
307307end;
308308
309+
309310(*
310311## Make.HasHint
311312```pascal
362363 tpa: TPointArray;
363364begin
364365 tpa := Target.FindColor($A0FFFF, 0, Chat.Bounds);
365- if tpa <> [] then Result := tpa.Bounds();
366+ if tpa <> [] then
367+ Result := tpa.Bounds();
366368end;
367369
368370(*
399401 tpa: TPointArray;
400402 b: TBox;
401403begin
404+ if not Self.HasHint() then
405+ Exit(True);
406+
402407 tpa := TPointArray.CreateFromBox(Chat.Bounds, True);
403408 for b in Self.GetItemBoxes() do
404409 tpa := tpa.ExcludeBox(b.Expand(1));
@@ -408,33 +413,6 @@ begin
408413 Result := SleepUntil(not Self.HasHint(), RandomMode(100, 50, 1500), 600);
409414end;
410415
411- (*
412- ## Make.ClearQuantityHint
413- ```pascal
414- function TRSMake.ClearQuantityHint(): Boolean;
415- ```
416- Checks if a hint tooltip is covering the quantity buttons and closes it if so.
417- Returns True if the quantity buttons are accessible (no hint, or hint was closed).
418- Example:
419- ```pascal
420- if not Make.ClearQuantityHint() then
421- WriteLn('Failed to clear hint covering quantity buttons');
422- ```
423- *)
424- function TRSMake.ClearQuantityHint(): Boolean;
425- var
426- hintPt: TPoint;
427- begin
428- if not Self.HasHint() then
429- Exit(True);
430-
431- hintPt := Self.GetHintBox().TopRight;
432- if (hintPt.Y > Self.QuantityButtonBoxes[5].Y2) or (hintPt.X < Self.QuantityButtonBoxes[5].X1) then
433- Exit(True);
434-
435- Result := Self.CloseHint();
436- end;
437-
438416(*
439417## Make.QuantityButtons
440418The quantity buttons are dynamic there can be anywhere from 1 to 6 available.
485463 quantity: ERSItemQuantity;
486464 quantitybtns: array of TRSMakeQuantityButton;
487465begin
488- if not Self.ClearQuantityHint () then
489- raise GetDebugLn('Make', 'Failed to close the tooltip which is covering the quantity buttons');
466+ if not Self.CloseHint () then
467+ raise GetDebugLn('Make', 'Failed to close the tooltip which could be covering the quantity buttons');
490468
491469 quantitybtns := Self.FindQuantityButtons();
492470 quantity := ERSItemQuantity.Integer2Quantity(amount);
0 commit comments