fix: maxtime now is converted to milliseconds properly

Torwent · Jul 23, 2024 · 381a025 · 381a025
1 parent 8a75861
commit 381a025
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/optional/handlers/alchhandler.simba b/optional/handlers/alchhandler.simba
@@ -602,7 +602,7 @@ function TScriptForm.CreateAlchemyPanel(): TTabSheet;
   end;
 
 
-  procedure TScriptForm._OnItemListSelected(sender: TObject);
+  procedure TScriptForm._OnItemListSelected({$H-}sender: TObject);{$H+}
   var
     btn: TButton;
   begin
@@ -612,7 +612,7 @@ function TScriptForm.CreateAlchemyPanel(): TTabSheet;
     btn.setEnabled(True);
   end;
 
-  procedure TScriptForm._OnAlchListSelected(sender: TObject);
+  procedure TScriptForm._OnAlchListSelected({$H-}sender: TObject);{$H+}
   var
     btn: TButton;
   begin

diff --git a/osr/basescript.simba b/osr/basescript.simba
@@ -328,7 +328,7 @@ begin
   ProgressReport.PTimeRunning := @Self.TimeRunning;
 
   if maxTime > 0 then
-    Self.TimeLimit := Self.TimeRunning.ElapsedTime() + maxTime
+    Self.TimeLimit := Self.TimeRunning.ElapsedTime() + (maxTime * ONE_MINUTE)
   else
     Self.TimeLimit := 0;