From bc435314d56866715eb9b6c2fa405543357bf464 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sun, 18 Mar 2012 18:27:20 -0400
Subject: [PATCH] Can now execute chain of menu commands when a link is
 selected

---
 mystic/bbs_ansi_help.pas | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

diff --git a/mystic/bbs_ansi_help.pas b/mystic/bbs_ansi_help.pas
index 4864b96..f8727d5 100644
--- a/mystic/bbs_ansi_help.pas
+++ b/mystic/bbs_ansi_help.pas
@@ -164,7 +164,7 @@ Var
   Keyword  : String;
   TopPage  : Integer;
   CurLine  : Integer;
-  CurLPos  : Byte;
+  CurLPos  : Byte = 1;
   WinSize  : Integer;
   LastPos  : Byte;
   LastKey  : Array[1..10] of String[mysMaxHelpKeyLen];
@@ -246,6 +246,33 @@ Var
     WinY2 := Session.io.SCreenInfo[2].Y;
   End;
 
+  Procedure ExecuteMenuCommands;
+  Var
+    Key  : String;
+    Temp : String;
+    Cmd  : String[2];
+    Data : String;
+  Begin
+    Session.io.AnsiColor(7);
+
+    Key := Text[TopPage + CurLine - 1].Link[CurLPos].Key;
+
+    Repeat
+      Delete (Key, 1, 1);
+
+      Temp := strWordGet(1, Key, ']');
+
+      Cmd  := strWordGet(1, Temp, ';');
+      Data := strWordGet(2, Temp, ';');
+
+      Delete (Key, 1, Length(Temp) + 1);
+
+      Session.Menu.ExecuteCommand (Cmd, Data);
+    Until Key = '';
+
+    ShowTemplate;
+  End;
+
 Var
   OK    : Boolean;
   Count : Byte;
@@ -436,6 +463,7 @@ Begin
 
                               ShowTemplate;
                             End;
+                      '[' : ExecuteMenuCommands;
                     Else
                       If LastPos < 10 Then
                         Inc (LastPos)