feat: add a proof of concept tooltip reader

- it's bugged in java clients due to an OCR bug

Author: Torwent

osrs/rsclient.simba

@@ -74,6 +74,7 @@ begin
       ITEM_SHADOW := $323232;
       ITEM_SHADOW_GRAY := $323232;
       ITEM_BORDER := $000000;
+      TEXT_SHADOW := $010000;
       ITEM_BORDER_WHITE := $FEFEFE;
       Exit(ERSClient.OFFICIAL);
     end;
@@ -325,6 +326,46 @@ begin
   Result := SleepUntil(Self.IsLoggedIn(), interval, time);
 end;
 
+
+(*
+## RSClient.ReadTooltip
+```pascal
+function TRSClient.ReadTooltip(): String;
+```
+Attempts to read the client tooltip if it's present.
+
+Example:
+```pascal
+WriteLn RSClient.ReadTooltip();
+```
+*)
+function TRSClient.ReadTooltip(): String;
+var
+  pt: TPoint;
+  b: TBox;
+  tpa: TPointArray;
+begin
+  pt := Target.MouseXY;
+  with Self._Bounds() do
+  begin
+    if not Contains(pt) then
+      Exit;
+    b := [Max(X1, pt.X)+4, Max(Y1, pt.Y+24)+5, X2, Min(Y2, pt.Y + 45)];
+  end;
+
+  tpa := Target.FindColor(TEXT_SHADOW, 0, b);
+  if tpa = [] then
+    Exit;
+
+  tpa := tpa.Cluster(6,4).SortFromFirstPointX(pt).First;
+  b.X2 := tpa.Bounds().X2;
+  case RSClient.Client of
+    ERSClient.OFFICIAL: Result := OCR.RecognizeShadow(b, RSFonts.PLAIN_12, 0);
+    ERSClient.RUNELITE, ERSClient.LEGACY: Result := OCR.RecognizeShadow(b, RSFonts.PLAIN_11, 0);
+  end;
+end;
+
+
 var
 (*
 ## RSClient variable

utils/ocr.simba

@@ -6,6 +6,9 @@ This page is about WaspLib's OCR.
 {$DEFINE WL_OCR_INCLUDED}
 {$INCLUDE_ONCE WaspLib/utils.simba}
 
+var
+  TEXT_SHADOW: TColor = $000000;
+
 type
 (*
 ## TOCR
@@ -93,7 +96,7 @@ var
   colors: TColorArray;
 begin
   img := Target.GetImage(bounds);
-  shadows := img.FindColor($0, 2.5, [1, 1, img.Width - 1, img.Height - 1]);
+  shadows := img.FindColor(TEXT_SHADOW, 0, [1, 1, img.Width - 1, img.Height - 1]);
   shadows := shadows.Offset([-1,-1]).ExcludePoints(shadows);
 
   colors := img.GetColors(shadows).Unique();
@@ -145,15 +148,10 @@ type
 Record containing pre-loaded RuneScape fonts and common text colors.
 *)
   TRSFonts = record
-    PLAIN_11:       TPixelFont;
-    PLAIN_12:       TPixelFont;
-    BOLD:           TPixelFont;
-    BOLD_SHADOW:    TPixelFont;
-    QUILL_8:        TPixelFont;
-    QUILL:          TPixelFont;
-    VERDANA_13:     TPixelFont;
-    VERDANA_13_Bold:TPixelFont;
-    VERDANA_15:     TPixelFont;
+    PLAIN_11, PLAIN_12,
+    BOLD, BOLD_SHADOW,
+    QUILL_8, QUILL,
+    VERDANA_13, VERDANA_13_BOLD, VERDANA_15: TPixelFont;
     Unzipping: Boolean;
     Timeout: TCountDown;