fix: read notes

- RSClient.LoseFocus now has an Antiban wrapper around it to let users know it's happening
- Added `ERSItemQuantity.String2Quantity`

Author: Torwent

osrs/antiban/antibanform.simba

@@ -110,7 +110,7 @@ begin
   taskObj.AddFloat('variation', 0.33);
   arr.Add('task', taskObj);
   Self.TaskList.Items.Add(Self.GetTaskListString('LoseFocus', '10 mins', '33%'));
-  Antiban.AddTask(@RSClient.LoseFocus, 10*ONE_MINUTE, 0.33);
+  Antiban.AddTask(@Antiban.LoseFocus, 10*ONE_MINUTE, 0.33);
 
 
   taskObj := new TJSONObject();

osrs/antiban/antibantasks.simba

@@ -681,6 +681,13 @@ begin
   end;
 end;
 
+
+procedure TAntiban.LoseFocus();
+begin
+  WriteLn GetDebugLn('Antiban', 'Losing client focus');
+  RSClient.LoseFocus();
+end;
+
 (* TODO:
 procedure TAntiban.MoveItems(items: TRSItemArray);
 var
@@ -882,7 +889,7 @@ const
     ['LargeRandomMouse',      @Antiban.LargeRandomMouse],
     ['SmallCameraRotation',   @Antiban.SmallCameraRotation],
     ['LargeCameraRotation',   @Antiban.LargeCameraRotation],
-    ['LoseFocus',             @RSClient.LoseFocus],
+    ['LoseFocus',             @Antiban.LoseFocus],
     ['HoverSkills',           @Antiban.HoverSkills],
     ['OpenSkills',            @Antiban.OpenSkills],
     ['HoverMakeItem',         @Antiban.HoverMakeItem],

utils/item.simba

@@ -116,6 +116,31 @@ begin
   end;
 end;
 
+(*
+### ERSItemQuantity.String2Quantity
+```pascal
+function ERSItemQuantity.String2Quantity(str: String): ERSItemQuantity; static;
+```
+Internal helper function to convert a string quantity into a ERSItemQuantity.
+
+Example:
+```pascal
+WriteLn ERSItemQuantity.String2Quantity('5');
+WriteLn ERSItemQuantity.String2Quantity('7');
+WriteLn ERSItemQuantity.String2Quantity('All');
+```
+*)
+function ERSItemQuantity.String2Quantity(str: String): ERSItemQuantity; static;
+begin
+  case LowerCase(str) of
+    '1':   Result := ERSItemQuantity.ONE;
+    '5':   Result := ERSItemQuantity.FIVE;
+    '10':  Result := ERSItemQuantity.TEN;
+    'all': Result := ERSItemQuantity.ALL;
+    else   Result := ERSItemQuantity.CUSTOM;
+  end;
+end;
+
 type
 (*
 ## ERSStack