feat: RSMouseZoom

- added RSMouseZoom, this time much better integrated since everything is in a single library
- added overrides.simba, this is not what it used to be in wasplib, this is a place for me to place all the library overrides at the very end of the library, which is easier to read than doing it across 10 files.

Author: Torwent

osrs.simba

@@ -36,6 +36,7 @@
 {$IFNDEF SRLT_PRAYER_INCLUDED}              {$INCLUDE_ONCE osrs/interfaces/gametabs/prayer.simba}
 {$IFNDEF SRLT_WORLDSWITCHER_INCLUDED}       {$INCLUDE_ONCE osrs/interfaces/gametabs/worldswitcher.simba}
 {$IFNDEF SRLT_LOGOUT_INCLUDED}              {$INCLUDE_ONCE osrs/interfaces/gametabs/logout.simba}
+{$IFNDEF SRLT_MOUSEZOOM_INCLUDED}           {$INCLUDE_ONCE osrs/mousezoom.simba}
 
 {$IFNDEF SRLT_MM2MS_PROJECTOR_INCLUDED}     {$INCLUDE_ONCE osrs/interfaces/mm2ms_projector.simba}
 {$IFNDEF SRLT_MM2MS_INCLUDED}               {$INCLUDE_ONCE osrs/interfaces/mm2ms.simba}
@@ -55,6 +56,7 @@
 {$IFNDEF SRLT_ANTIBAN_TASKS_INCLUDED}       {$INCLUDE_ONCE osrs/antiban/antibantasks.simba}
 
 {$IFNDEF SRLT_SETUP_INCLUDED}               {$INCLUDE_ONCE osrs/interfaces/setup.simba}
+{$IFNDEF SRLT_OVERRIDES_INCLUDED}           {$INCLUDE_ONCE osrs/overrides.simba}
 
 
 {$ENDIF}
@@ -99,3 +101,5 @@
 {$ENDIF}
 {$ENDIF}
 {$ENDIF}
+{$ENDIF}
+{$ENDIF}

osrs/interfaces/gametabs/options.simba

@@ -186,7 +186,7 @@ end;
 (*
 ## Options.OpenTab
 ```pascal
-function TRSOptions.OpenTab(const tab: ERSOptionsTab): Boolean;
+function TRSOptions.OpenTab(tab: ERSOptionsTab): Boolean;
 ```
 Attempts to open the specified `tab` `ERSOptionsTab`.
 
@@ -195,7 +195,7 @@ Example:
 WriteLn Options.OpenTab(ERSOptionsTab.DISPLAY);
 ```
 *)
-function TRSOptions.OpenTab(const tab: ERSOptionsTab): Boolean;
+function TRSOptions.OpenTab(tab: ERSOptionsTab): Boolean;
 begin
   if not Self.Open() then Exit;
   if not Self.CloseHouseOptions() then Exit;
@@ -209,7 +209,7 @@ end;
 (*
 ## Options.GetZoomLevel
 ```pascal
-function TRSOptions.GetZoomLevel(const useCache: Boolean = True): Integer;
+function TRSOptions.GetZoomLevel(useCache: Boolean = True): Integer;
 ```
 Retrieves the current zoom level.
 By default it uses the value cached in `TRSOptions.ZoomLevel` if it is already set.
@@ -221,7 +221,7 @@ Example:
 WriteLn Options.GetZoomLevel();
 ```
 *)
-function TRSOptions.GetZoomLevel(const useCache: Boolean = True): Integer;
+function TRSOptions.GetZoomLevel(useCache: Boolean = True): Integer;
 begin
   if useCache and (Self.ZoomLevel > -1) then
     Exit(Self.ZoomLevel);
@@ -240,7 +240,7 @@ end;
 (*
 ## Options.SetZoomLevel
 ```pascal
-function TRSOptions.SetZoomLevel(const level: Integer): Boolean;
+function TRSOptions.SetZoomLevel(level: Integer): Boolean;
 ```
 Sets a new zoom level through the options gametab.
 If we successfully update the zoom level we update the cached
@@ -251,7 +251,7 @@ Example:
 Options.SetZoomLevel(30);
 ```
 *)
-function TRSOptions.SetZoomLevel(const level: Integer): Boolean;
+function TRSOptions.SetZoomLevel(level: Integer): Boolean;
 begin
   Result := Self.Sliders[ERSOptionsSlider.ZOOM].SetLevel(level);
 
@@ -261,7 +261,6 @@ begin
     Self.ZoomLevel := -1;
 end;
 
-
 var
 (*
 (Options)=
@@ -270,15 +269,6 @@ Global TRSOptions variable.
 *)
   Options: TRSOptions;
 
-function TRSGameTabs.GetCurrent(): ERSGameTab; override;
-begin
-  Result := inherited;
-
-  if Result <> ERSGameTab.NONE then Exit;
-  if Options.IsHouseOptionsOpen() then
-    Result := ERSGameTab.OPTIONS;
-end;
-
 begin
   Options.ZoomLevel := -1;
 end;

osrs/interfaces/interface.simba

@@ -86,7 +86,8 @@ begin
   Result := SleepUntil(not Self.IsOpen(), 50, 600);
 end;
 
-function TRSInterfaceTitle.Close(escapeProbability: Single = 0): Boolean; overload;
+function TRSInterfaceTitle.Close(escapeProbability: Single = -1): Boolean; overload;
 begin
+  if escapeProbability = -1 then escapeProbability := Biometrics.RandomDouble(0.5);
   Result := Self.Close(RandomBoolean(escapeProbability));
 end;

osrs/interfaces/mainscreen/bank.simba

@@ -356,9 +356,9 @@ begin
   Result := Self.Title.Close(escape);
 end;
 
-function TRSBank.Close(escapeProbability: Single = 0): Boolean; overload;
+function TRSBank.Close(escapeProbability: Single = -1): Boolean; overload;
 begin
-  Result := Self.Close(escapeProbability);
+  Result := Self.Title.Close(escapeProbability);
 end;