fix: read notes

- fixed grouping getcurrenttab thanks to Simon - removed WL TKeyboard.PressKey() override, it's probably not needed anymore
Torwent · Feb 3, 2025 · 0563f3c · 0563f3c
1 parent 2334d7a
commit 0563f3c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 11 deletions.
diff --git a/optional/interfaces/gametabs/grouping.simba b/optional/interfaces/gametabs/grouping.simba
@@ -191,10 +191,14 @@ end;
 function TRSGrouping.GetCurrentTab(): ERSGroupingTab;
 var
   tab: ERSGroupingTab;
+  count : Int32;
 begin
   for tab := Low(ERSGroupingTab) to High(ERSGroupingTab) do
-    if SRL.CountColor(2700606, Self.Tabs[tab]) > 50 then //finds the one without the bottom white line
+  begin
+    count := SRL.CountColor(2700606, Self.Tabs[tab]) + SRL.CountColor(CTS1(3686730, 5), Self.Tabs[tab]);
+    if count > 50 then
       Exit(tab);
+  end;
 end;
 
 function TRSGrouping.OpenTab(tab: ERSGroupingTab): Boolean;

diff --git a/osr/interfaces/gametabs/gametabs.simba b/osr/interfaces/gametabs/gametabs.simba
@@ -3,16 +3,6 @@
   {$I WaspLib/osr.simba}
 {$ENDIF}
 
-procedure TKeyboard.PressKey(const key: Integer); override;
-begin
-  inherited;
-
-  while Self.IsKeyDown(key) do
-  begin
-    Self.KeyUp(key);
-    Wait(50);
-  end;
-end;
 
 function TRSGameTabs.FKeyOpen(Tab: ERSGameTab): Boolean; override;
 begin