feat: start of achievements gametab

Author: Torwent

docs/images/achievements.png

@@ -67,12 +67,13 @@ They should be self-explanatory.
 {$IFNDEF SRLT_PRAYER_INCLUDED}              {$INCLUDE_ONCE osrs/interfaces/gametabs/prayer.simba}
 {$IFNDEF SRLT_WORLDSWITCHER_INCLUDED}       {$INCLUDE_ONCE osrs/interfaces/gametabs/worldswitcher.simba}
 {$IFNDEF SRLT_LOGOUT_INCLUDED}              {$INCLUDE_ONCE osrs/interfaces/gametabs/logout.simba}
+{$IFNDEF SRLT_STATS_INCLUDED}               {$INCLUDE_ONCE osrs/interfaces/gametabs/stats.simba}
+{$IFNDEF SRLT_ACHIEVEMENTS_INCLUDED}        {$INCLUDE_ONCE osrs/interfaces/gametabs/achievements.simba}
 {$IFNDEF SRLT_MOUSEZOOM_INCLUDED}           {$INCLUDE_ONCE osrs/mousezoom.simba}
 
 {$IFNDEF SRLT_MM2MS_PROJECTOR_INCLUDED}     {$INCLUDE_ONCE osrs/interfaces/mm2ms_projector.simba}
 {$IFNDEF SRLT_MM2MS_INCLUDED}               {$INCLUDE_ONCE osrs/interfaces/mm2ms.simba}
 {$IFNDEF SRLT_XPBAR_INCLUDED}               {$INCLUDE_ONCE osrs/interfaces/xpbar.simba}
-{$IFNDEF SRLT_STATS_INCLUDED}               {$INCLUDE_ONCE osrs/interfaces/gametabs/stats.simba}
 {$IFNDEF SRLT_ANTIBAN_INCLUDED}             {$INCLUDE_ONCE osrs/antiban/antiban.simba}
 
 {$IFNDEF SRLT_WALKER_INCLUDED}              {$INCLUDE_ONCE osrs/walker.simba}
@@ -139,3 +140,4 @@ They should be self-explanatory.
 {$ENDIF}
 {$ENDIF}
 {$ENDIF}
+{$ENDIF}

osrs.simba

@@ -439,3 +439,5 @@ var
 Global {ref}`TRSCacheParser` variable.
 *)
   RSCacheParser: TRSCacheParser;
+
+

osrs/cacheparser.simba

@@ -6,7 +6,6 @@ receive game messages and even interact with some options and menus it hosts
 like the {ref}`Make` menu.
 
 ```{figure} ../../images/chat_interface.png
-The chat interface.
 ```
 *)
 {$DEFINE SRLT_CHAT_INCLUDED}
@@ -38,7 +37,7 @@ Enum representing each of the available ironman types.
   ERSIronMan = enum(NONE, IRONMAN, HARDCORE, ULTIMATE, GROUP, HARCORE_GROUP, UNRANKED_GROUP);
 
 (*
-## TRSChat
+## Chat
 Main record used to interact with the {ref}`Chat` interface.
 *)
   TRSChat = record
@@ -53,7 +52,7 @@ Main record used to interact with the {ref}`Chat` interface.
   end;
 
 (*
-## TRSChat.SetupInterface
+## Chat.SetupInterface
 ```pascal
 procedure TRSChat.SetupInterface();
 ```
@@ -92,7 +91,7 @@ begin
 end;
 
 (*
-## TRSChat.GetColors
+## Chat.GetColors
 ```pascal
 function TRSChat.GetColors(colors: ERSChatColorArray): TColorArray;
 ```
@@ -101,7 +100,7 @@ into a `TColorArray` which has the colors in BGR format.
 
 Example:
 ```pascal
-WriteLn Chat.GetColors([ERSChatColor.RED]);
+WriteLn Chat.GetColors([ERSChatColor.RED, ERSChatColor.WHITE]);
 ```
 *)
 function TRSChat.GetColors(colors: ERSChatColorArray): TColorArray;
@@ -113,7 +112,7 @@ end;
 
 
 (*
-## TRSChat.GetDisplayNameBox
+## Chat.GetDisplayNameBox
 ```pascal
 function TRSChat.GetDisplayNameBox(out color: Integer): TBox;
 function TRSChat.GetDisplayNameBox(): TBox; overload;
@@ -151,7 +150,7 @@ begin
 end;
 
 (*
-## TRSChat.GetDisplayName
+## Chat.GetDisplayName
 ```pascal
 function TRSChat.GetDisplayName(): String;
 ```
@@ -179,7 +178,7 @@ end;
 
 
 (*
-## TRSChat.GetIronManType
+## Chat.GetIronManType
 ```pascal
 function TRSChat.GetIronManType() : ERSIronMan;
 ```
@@ -225,7 +224,7 @@ end;
 
 
 (*
-## TRSChat.IsTransparent
+## Chat.IsTransparent
 ```pascal
 function TRSChat.IsTransparent(): Boolean;
 ```
@@ -250,7 +249,7 @@ end;
 
 
 (*
-## TRSChat.IsOpen
+## Chat.IsOpen
 ```pascal
 function TRSChat.IsOpen(): Boolean;
 ```
@@ -269,7 +268,7 @@ begin
 end;
 
 (*
-## TRSChat.Close
+## Chat.Close
 ```pascal
 function TRSChat.Close(): Boolean;
 ```
@@ -302,7 +301,7 @@ A chat query.
 *)
 
 (*
-### TRSChat.GetQuery
+### Chat.GetQuery
 ```pascal
 function TRSChat.GetQuery(): String;
 ```
@@ -319,7 +318,7 @@ begin
 end;
 
 (*
-### TRSChat.GetQueryAnswer
+### Chat.GetQueryAnswer
 ```pascal
 function TRSChat.GetQueryAnswer(): String;
 ```
@@ -337,7 +336,7 @@ begin
 end;
 
 (*
-### TRSChat.FindQuery
+### Chat.FindQuery
 ```pascal
 function TRSChat.FindQuery(query: String; caseSensitive: Boolean = False): Boolean;
 ```
@@ -355,7 +354,7 @@ begin
 end;
 
 (*
-### TRSChat.WaitQuery
+### Chat.WaitQuery
 ```pascal
 function TRSChat.WaitQuery(query: String; caseSensitive: Boolean = False; time: Integer = 600; interval: Integer = -1): Boolean;
 ```
@@ -374,7 +373,7 @@ begin
 end;
 
 (*
-### TRSChat.AnswerQuery
+### Chat.AnswerQuery
 ```pascal
 function TRSChat.AnswerQuery(query, answer: String; waitTime: Integer = 600; interval: Integer = -1): Boolean;
 ```
@@ -485,6 +484,24 @@ begin
 end;
 
 
+(*
+## Chat.InputHasText
+```pascal
+function TRSChat.InputHasText(): Boolean;
+```
+Returns True/False if input line has text written that was never sent.
+
+Example:
+```pascal
+WriteLn Chat.InputHasText();
+```
+*)
+function TRSChat.InputHasText(): Boolean;
+begin
+  Result := Target.HasColor(Self.Colors[ERSChatColor.BLUE], 0, 15, Self.InputLine);
+end;
+
+
 procedure TRSChat.Draw(img: TImage);
 var
   tab: TRSChatTab;

osrs/interfaces/chat/chat.simba

@@ -0,0 +1,92 @@
+(*
+# Achievements
+This page is dedicated to the achievements game tab and methods to interact with it.
+```{figure} ../../images/achievements.png
+```
+*)
+{$DEFINE SRLT_ACHIEVEMENTS_INCLUDED}
+{$INCLUDE_ONCE SRLT/osrs.simba}
+
+type
+(*
+## ERSAchievementTab
+```pascal
+ERSAchievementTab = enum(SUMMARY, QUESTS, DIARIES);
+```
+An enum representing each of the {ref}`Achievements` gametab tabs.
+*)
+  ERSAchievementTab = enum(SUMMARY, QUESTS, DIARIES);
+
+(*
+## ERSSummary
+```pascal
+ERSSummary = enum(USERNAME, COMBAT, TOTAL, XP, QUESTS, DIARIES, COMBAT_ACHIEVEMENTS, COLLECTION_LOG, TIME);
+```
+An enum representing each of the {ref}`Achievements` gametab summary blocks:
+TODO: ADD IMG
+
+You can access the tabs boxes through {ref}`TRSAchievement.Tabs`.
+*)
+  ERSSummary = enum(USERNAME, COMBAT, TOTAL, XP, QUESTS, DIARIES, COMBAT_ACHIEVEMENTS, COLLECTION_LOG, TIME);
+
+(*
+## ERSAchievementDiary
+```pascal
+ERSAchievementDiary = enum(
+  ARDOUGNE,
+  DESERT,
+  FALADOR,
+  FREMENNIK,
+  KANDARIN,
+  KARAMJA,
+  KOUREND_AND_KEBOS,
+  LUMBRIDGE_AND_DRAYNOR,
+  MORYTANIA,
+  VARROCK,
+  WESERT_PROVINCES,
+  WILDERNESS
+);
+```
+An enum representing each of the achievement diaries available.
+*)
+  ERSAchievementDiary = enum(
+    ARDOUGNE,
+    DESERT,
+    FALADOR,
+    FREMENNIK,
+    KANDARIN,
+    KARAMJA,
+    KOUREND_AND_KEBOS,
+    LUMBRIDGE_AND_DRAYNOR,
+    MORYTANIA,
+    VARROCK,
+    WESERT_PROVINCES,
+    WILDERNESS
+  );
+
+  TRSAchievements = record
+    Tabs: array [ERSAchievementTab] of TBox;
+    TabCount: Integer;
+  end;
+
+function TRSAchievements.CountTabs(): Integer;
+var
+  tpa: TPointArray;
+begin
+  with GameTab.Bounds do
+    tpa := Target.FindColor(RSColors.ITEM_BORDER, 0, [X1, Y1, X2, Y1 + 23]);
+  Result := Length(tpa.Cluster(1.5));
+end;
+
+procedure TRSAchievements.SetupTabs();
+var
+  tpa: TPointArray;
+begin
+  if Self.TabCount = 0 then Self.TabCount := Self.CountTabs();
+
+end;
+
+
+
+var
+  Achievements: TRSAchievements;