From 389d07164ace14bd563a37ff230d83355ce9aa82 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 24 Feb 2012 12:23:03 -0500
Subject: [PATCH] Record updates for Default protocol

---
 mystic/109to110.pas | 17 ++++++++++-------
 mystic/records.pas  |  7 +++++--
 2 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/mystic/109to110.pas b/mystic/109to110.pas
index 418dea6..c60578e 100644
--- a/mystic/109to110.pas
+++ b/mystic/109to110.pas
@@ -555,7 +555,9 @@ Begin
     Config.StatusColor2   :=  9 + 1 * 16;
     Config.StatusColor3   := 15 + 1 * 16;
 
-    Config.PWAttempts := 3;
+    Config.PWAttempts   := 3;
+    Config.FProtocol    := 'Z';
+    Config.UserProtocol := 0;
   End;
 
   Assign  (ConfigFile, 'mystic.dat');
@@ -660,6 +662,7 @@ Begin
       User.UseLBMIdx := UseLBMIdx;
       User.UseFullChat := UserFullChat;
       User.Credits := 0;
+      User.Protocol := #0;
     End;
 
     Write (UserFile, User);
@@ -1024,15 +1027,15 @@ Begin
   WarningDisplay;
 
 // COMMENT this out if mystic.dat is being converted:
-  Assign (ConfigFile, 'mystic.dat');
-  Reset  (ConfigFile);
-  Read   (ConfigFile, Config);
-  Close  (ConfigFile);
+//  Assign (ConfigFile, 'mystic.dat');
+//  Reset  (ConfigFile);
+//  Read   (ConfigFile, Config);
+//  Close  (ConfigFile);
 
-//  ConvertConfig;  //1.10a11
+  ConvertConfig;  //1.10a11
 //  ConvertUsers; //1.10a11
 //ConvertSecurity; //1.10a11
-ConvertFileLists;  //1.10a11
+//ConvertFileLists;  //1.10a11
 
 //  ConvertArchives; //1.10a1
 //  ConvertGroups;   //1.10a1
diff --git a/mystic/records.pas b/mystic/records.pas
index c644388..b10ce4d 100644
--- a/mystic/records.pas
+++ b/mystic/records.pas
@@ -142,6 +142,7 @@ Type
     UserMailIndex   : Byte;
     UserReadIndex   : Byte;
     UserQuoteWin    : Byte;
+    UserProtocol    : Byte;
     AskTheme        : Boolean;
     AskRealName     : Boolean;
     AskAlias        : Boolean;
@@ -199,6 +200,7 @@ Type
     MaxFileDesc     : Byte;
     FCommentLines   : Byte;
     FCommentLen     : Byte;
+    FProtocol       : Char;
     TestUploads     : Boolean;
     TestPassLevel   : Byte;
     TestCmdLine     : String[mysMaxPathSize];
@@ -238,7 +240,7 @@ Type
     inetNNTPMax     : Word;
     inetNNTPDupes   : Byte;
  // UNSORTED
-    Reserved        : Array[1..488] of Char;
+    Reserved        : Array[1..486] of Char;
   End;
 
 Const
@@ -348,7 +350,8 @@ Type
     UseLBMIdx    : Boolean;               { use lightbar index in email? }
     UseFullChat  : Boolean;               { use full screen teleconference }
     Credits      : LongInt;
-    Reserved     : Array[1..393] of Byte;
+    Protocol     : Char;
+    Reserved     : Array[1..392] of Byte;
   End;
 
   EventRec = Record                   { EVENTS.DAT                        }