feat: TWebGraph Callbacks

for teleports and what not.
Can be setup as following:
```pascal
WebGraphCallbacks.Setup(@Map.Position, @Map.Loader);
```

Author: Torwent

osrs.simba

@@ -162,6 +162,8 @@ Summary: It includes this file until the current file is reached.
 {$IFNDEF WL_INVENTORY_FORM_INCLUDED}        {$INCLUDE_ONCE osrs/interfaces/handlers/inventory_form.simba}
 {$IFNDEF WL_PRAYER_FORM_INCLUDED}           {$INCLUDE_ONCE osrs/interfaces/handlers/prayer_form.simba}
 {$IFNDEF WL_CONSUMABLES_INCLUDED}           {$INCLUDE_ONCE osrs/interfaces/handlers/consumables.simba}
+{$IFNDEF WL_WEBGRAPH_CALLBACKS_INCLUDED}    {$INCLUDE_ONCE osrs/position/map/webgraph_callbacks.simba}
+
 
 {$IFNDEF WL_ANTIBAN_TASKS_INCLUDED}         {$INCLUDE_ONCE osrs/antiban/antibantasks.simba}
 {$IFNDEF WL_ANTIBAN_FORM_INCLUDED}          {$INCLUDE_ONCE osrs/antiban/antibanform.simba}
@@ -180,4 +182,4 @@ Summary: It includes this file until the current file is reached.
 {$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}
 {$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}
 {$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}
-{$ENDIF}
+{$ENDIF}{$ENDIF}

osrs/interfaces/gametabs/achievements.simba

@@ -138,6 +138,7 @@ Helper record used to interact with the {ref]`Achievements` gametab "Diaries" ta
   TRSDiaryList = record
     Names: TStringArray;
     Scroll: TRSScrollBar;
+    Cache: array [ERSAchievementDiary] of Integer;
   end;
 
 (*
@@ -298,9 +299,8 @@ WriteLn Achievements.Diaries.GetLevel(ERSAchievementDiary.ARDOUGNE);
 ```
 *)
   TRSAchievements = record
-    TabsArea: TBox;
+    TabsArea, TabTitle: TBox;
     Tabs: TBoxArray;
-
     Summary: TRSAchievementsSummary;
     Quests: TRSQuestList;
     Diaries: TRSDiaryList;
@@ -320,6 +320,7 @@ begin
   with GameTab.Bounds do
   begin
     Self.TabsArea := [X1, Y1 + 5, X2, Y1 + 22];
+    Self.TabTitle := [X1, Y1 + 25, X2, Y1 + 48];
 
     Self.Summary.SetupGameTab();
     Self.Quests.SetupGameTab();
@@ -413,18 +414,22 @@ WriteLn Achievements.GetTab();
 *)
 function TRSAchievements.GetTab(): ERSAchievementTab;
 var
-  i: Integer;
+  title: String;
 begin
   if Self.Tabs = [] then
   begin
     if not Self.Open() then Exit;
     Self.SetupTabs();
   end;
 
-  for i := 0 to High(Self.Tabs) do
-    if not Target.HasColor($48585D, 0, 100, Self.Tabs[i]) and
-      not Target.HasColor($1E2528, 0, 100, Self.Tabs[i]) then
-      Exit(ERSAchievementTab(i));
+  title := OCR.Recognize(Self.TabTitle, RSFonts.BOLD_SHADOW, [RSFonts.ORANGE, $3399FF], 3);
+
+  case title of
+    'Quest List': Result := ERSAchievementTab.QUESTS;
+    'Achievement Diaries': Result := ERSAchievementTab.DIARIES;
+    'Click here to see all': Result := ERSAchievementTab.ADVENTURE_PATHS;
+    else Result := ERSAchievementTab.SUMMARY;
+  end;
 end;
 
 (*
@@ -487,13 +492,21 @@ var
   i: Integer;
   slot: TRSDiarySlot;
 begin
+  if Self.Cache[diary] > 0 then
+    Exit(Self.Cache[diary]-1);
+
   if not Achievements.OpenTab(ERSAChievementTab.DIARIES) then Exit(-1);
   Self.ScrollTo(diary);
   slot := Self.GetSlot(diary);
 
+  if slot = Default(TRSDiarySlot) then
+    Exit;
+
   for i := 0 to 3 do
   begin
     if not Target.HasColor($14B537, 0, 1, slot.Levels[i]) then Break;
     Result += 1;
   end;
+
+  Self.Cache[diary] := Result+1;
 end;

osrs/position/map/maploader.simba

@@ -78,6 +78,8 @@ This is an internal type. Don't use it if you don't know what you are doing.
     Timeout: TCountDown;
   end;
 
+  PRSMapLoader = ^TRSMapLoader;
+
 (*
 ## Points Translation
 This might be the only thing you need to use from time to time from the

osrs/position/map/webgraph_callbacks.simba

@@ -0,0 +1,58 @@
+(*
+# WebGraph Callbacks
+Several callbacks to handle special webwalking nodes.
+*)
+
+{$DEFINE WL_WEBGRAPH_CALLBACKS_INCLUDED}
+{$INCLUDE_ONCE WaspLib/osrs.simba}
+
+type
+  TWebGraphCallbacks = record
+    Position: TWalkerPositionFunction;
+  end;
+
+function TWebGraphCallbacks.TeleportGrandExchange(): Boolean;
+begin
+  if Magic.CastSpell(ERSSpell.VARROCK_TELEPORT, 'Grand Exchange') then
+    Result := SleepUntil(Self.Position().InRange([8565, 36522], 60), 300, 5000);
+end;
+
+function TWebGraphCallbacks.TeleportVarrock(): Boolean;
+begin
+  if Magic.CastSpell(ERSSpell.VARROCK_TELEPORT, 'Cast') then
+    Result := SleepUntil(Self.Position().InRange([8752, 36716], 60), 300, 5000);
+end;
+
+
+procedure TWebGraphCallbacks.AddTeleports(graph: PWebGraph; chunk: TPoint);
+begin
+  case chunk of
+    [49,54]:
+    begin
+      if Achievements.Diaries.GetLevel(ERSAchievementDiary.VARROCK) > 1 then
+        graph^.AddTeleport([8565, 36522], @Self.TeleportGrandExchange);
+    end;
+    [50,53]: graph^.AddTeleport([8752, 36716], @Self.TeleportVarrock);
+  end;
+end;
+
+procedure TWebGraphCallbacks.Setup(position: TWalkerPositionFunction; mapLoader: PRSMapLoader);
+var
+  chunk: TPoint;
+  region: TRSMapRegion;
+begin
+  Self.Position := @position;
+  if not RSClient.IsLoggedIn() then
+    raise GetDebugLn('WebGraphCallbacks', 'Account has to be logged in to setup TWebGraphCallbacks.');
+
+  for region in mapLoader^.Regions do
+    for chunk in region.Chunks do
+    begin
+      Self.AddTeleports(@mapLoader^.Graph, chunk);
+      //Self.AddShortcuts(graph, chunk);
+      //Self.AddWhatever(graph, chunk);
+    end;
+end;
+
+var
+  WebGraphCallbacks: TWebGraphCallbacks;

utils/webgraph.simba

@@ -29,10 +29,10 @@ Enum representing the type of nodes in a `TWebGraph`.
   TGraphNode = record
     Node: TPoint;
     Typ: EGraphNode;
-    Handle: function (): Boolean;
+    Handle: function (): Boolean of object;
   end;
 
-function TGraphNode.Create(pt: TPoint; typ: EGraphNode = EGraphNode.NORMAL; handle: function (): Boolean = nil): TGraphNode; static;
+function TGraphNode.Create(pt: TPoint; typ: EGraphNode = EGraphNode.NORMAL; handle: function (): Boolean  of object = nil): TGraphNode; static;
 begin
   Result.Node := pt;
   Result.Typ := typ;
@@ -409,7 +409,7 @@ begin
 end;
 
 
-procedure TWebGraph.AddLink(a, b: TPoint; typ: EGraphNode; handle: function (): Boolean);
+procedure TWebGraph.AddLink(a, b: TPoint; typ: EGraphNode; handle: function (): Boolean of object);
 var
   i, j, n: Integer;
   tpa: TPointArray;
@@ -447,7 +447,7 @@ begin
   end;
 end;
 
-procedure TWebGraph.AddLink(a, b: TPoint; typ: EGraphNode; handleA, handleB: function (): Boolean); overload;
+procedure TWebGraph.AddLink(a, b: TPoint; typ: EGraphNode; handleA, handleB: function (): Boolean of object); overload;
 var
   i, j, n: Integer;
   tpa: TPointArray;
@@ -485,7 +485,7 @@ begin
   end;
 end;
 
-procedure TWebGraph.AddLink(pt, a, b: TPoint; typ: EGraphNode; handle: function (): Boolean); overload;
+procedure TWebGraph.AddLink(pt, a, b: TPoint; typ: EGraphNode; handle: function (): Boolean of object); overload;
 var
   i, j, n: Integer;
   tpa: TPointArray;
@@ -521,13 +521,14 @@ begin
   Self.Nodes[i] := TGraphNode.Create(pt, typ, @handle);
 end;
 
-procedure TWebGraph.AddTeleport(pt: TPoint; handle: function (): Boolean);
+procedure TWebGraph.AddTeleport(pt: TPoint; handle: function (): Boolean of object);
 var
   i, j, n: Integer;
   tpa: TPointArray;
 begin
   i := Length(Self.Nodes);
   Self.Nodes += [pt, EGraphNode.TELEPORT, @handle];
+  SetLength(Self.Paths, Length(Self.Nodes));
 
   tpa := Self.Tree.KNearest(pt, 12);
   for j := 0 to High(tpa) do
@@ -556,6 +557,7 @@ var
 begin
   i := Length(Self.Nodes);
   Self.Nodes += [pt, EGraphNode.FAIRYRING, nil];
+  SetLength(Self.Paths, Length(Self.Nodes));
 
   tpa := Self.Tree.KNearest(pt, 8);
   for j := 0 to High(tpa) do
@@ -607,8 +609,10 @@ begin
 
   img.DrawColor := $00EAEA;
   for i := 0 to High(Self.Paths) do
-    for j := 0 to High(Self.Paths[i]) do
-      img.DrawLine(Self.Nodes[i].Node, Self.Nodes[Self.Paths[i, j]].Node);
+    if Self.Nodes[i].Typ <> EGraphNode.TELEPORT then
+      for j := 0 to High(Self.Paths[i]) do
+        if Self.Nodes[Self.Paths[i, j]].Typ <> EGraphNode.TELEPORT then
+          img.DrawLine(Self.Nodes[i].Node, Self.Nodes[Self.Paths[i, j]].Node);
 
   for i := 0 to High(Self.Nodes) do
   begin
@@ -631,11 +635,13 @@ begin
   if Self.Nodes = [] then Exit;
 
   for i := 0 to High(Self.Paths) do
-    for j := 0 to High(Self.Paths[i]) do
-    begin
-      if Self.Paths[i, j] > High(Self.Nodes) then Continue;
-      canvas.DrawLine(Self.Nodes[i].Node, Self.Nodes[Self.Paths[i, j]].Node, $00EAEA);
-    end;
+    if Self.Nodes[i].Typ <> EGraphNode.TELEPORT then
+      for j := 0 to High(Self.Paths[i]) do
+        if Self.Nodes[Self.Paths[i, j]].Typ <> EGraphNode.TELEPORT then
+        begin
+          if Self.Paths[i, j] > High(Self.Nodes) then Continue;
+          canvas.DrawLine(Self.Nodes[i].Node, Self.Nodes[Self.Paths[i, j]].Node, $00EAEA);
+        end;
 
   for i := 0 to High(Self.Nodes) do
   begin