fix: better tanscreen click logic

Torwent · Sep 27, 2024 · 1f45fee · 1f45fee
1 parent 78443b2
commit 1f45fee
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/optional/interfaces/mainscreen/tanscreen.simba b/optional/interfaces/mainscreen/tanscreen.simba
@@ -85,14 +85,12 @@ end;
 function TRSTanScreen.ClickHide(hide: ERSHide; option: String = 'Tan All'; waitTime: Int32 = -1): Boolean;
 begin
   Result := Self.HoverHide(hide);
+  if not Result then Exit;
 
-  if not Result then
-    Exit;
-
-  if (option <> '') or (option <> 'Tan 1') then
-    Result := ChooseOption.Select(option) //if we chooseoption we might want to reset result.
+  if (option = '') or MainScreen.IsUpText('Tan All') then
+    Mouse.Click(MOUSE_LEFT)
   else
-    Mouse.Click(MOUSE_LEFT);
+    Result := ChooseOption.Select(option); //if we chooseoption we might want to reset result.
 
   if waitTime > 0 then
     Result := WaitUntil(not Self.IsOpen(), 100, waitTime);