fix: compatibility with latest SRL-T

Torwent · Jun 19, 2024 · 5ec0e9e · 5ec0e9e
1 parent 4a63dec
commit 5ec0e9e
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/osr/interfaces/xpbar.simba b/osr/interfaces/xpbar.simba
@@ -8,17 +8,19 @@ Extensions to SRL's {ref}`XPBar`
   {$I WaspLib/osr.simba}
 {$ENDIF}
 
-function TRSXPBar.Read(): Int32; override;
+function TRSXPBar.Read(): Int64; override;
 var
   i: Int32;
+  xpStr: String;
 begin
   if not Self.IsSetup then
     Self._Setup();
 
   if not Self.IsSetup or not Self.Enable() then
     Exit;
 
-  Result := OCR.RecognizeNumber(Self.Bounds(), TOCRColorFilter.Create([$FFFFFF]), Self.Font);
+  xpStr := OCR.Recognize(Self.Bounds(), TOCRColorFilter.Create([$FFFFFF]), Self.Font);
+  Result := xpStr.ExtractInteger(0);
 
   Self.Tracker.IsSetup := (Result > 0) and (Result >= Self.Tracker.Current);