fix(Minimap): CleanMinimap was going out of range... oops

Author: Torwent

osrs/interfaces/minimap.simba

@@ -862,14 +862,56 @@ end.
 function TRSMinimap.CleanImage(img: TImage; radius: Integer): TImage;
 
   function _DotTPA(pt: TPoint): TPointArray;
+  var
+    q: TPoint;
   begin
-    Result := [
-      pt.Offset(0,-1), pt.Offset(1,-1),
-      pt.Offset(-1,0), pt, pt.Offset(1,0), pt.Offset(2,0),
-      pt.Offset(-1,1), pt.Offset(0,1), pt.Offset(1,1), pt.Offset(2,1),
-      pt.Offset(0,2), pt.Offset(1,2)
-    ];
-  end;
+    q := pt.Offset(0,-1);
+    if img.InImage(q.X, q.Y) then
+      Result += q;
+
+    q := pt.Offset(1,-1);
+    if img.InImage(q.X, q.Y) then
+      Result += q;
+
+    q := pt.Offset(-1,0);
+    if img.InImage(q.X, q.Y) then
+      Result += q;
+
+    if img.InImage(pt.X, pt.Y) then
+      Result += pt;
+
+    q := pt.Offset(1,0);
+    if img.InImage(q.X, q.Y) then
+      Result += q;
+
+    q := pt.Offset(2,0);
+    if img.InImage(q.X, q.Y) then
+      Result += q;
+
+    q := pt.Offset(-1,1);
+    if img.InImage(q.X, q.Y) then
+      Result += q;
+
+    q := pt.Offset(0,1);
+    if img.InImage(q.X, q.Y) then
+      Result += q;
+
+    q := pt.Offset(1,1);
+    if img.InImage(q.X, q.Y) then
+      Result += q;
+
+    q := pt.Offset(2,1);
+    if img.InImage(q.X, q.Y) then
+      Result += q;
+
+    q := pt.Offset(0,2);
+    if img.InImage(q.X, q.Y) then
+      Result += q;
+
+    q := pt.Offset(1,2);
+    if img.InImage(q.X, q.Y) then
+      Result += q;
+   end;
 
 var
   tpa: TPointArray;