From 5546fbab234fe437a32f2ddb3afda26fcceec448 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 24 Aug 2012 17:41:05 -0400
Subject: [PATCH] Alpha 18 sync

---
 mystic/HISTORY.txt     | 3 +++
 mystic/bbs_msgbase.pas | 4 ++--
 mystic/mystic.pas      | 4 ++--
 mystic/nodespy.pas     | 2 +-
 4 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/mystic/HISTORY.txt b/mystic/HISTORY.txt
index 5bf475f..bc765f4 100644
--- a/mystic/HISTORY.txt
+++ b/mystic/HISTORY.txt
@@ -4705,3 +4705,6 @@
 
  + Added USAGE.MPS to the default installation.  This currently shows a
    weekly and monthly usage graph calculated based on the number of calls.
+
+ ! Fixed a bug which could sometimes cause a node to get disconnected just
+   after MIS answered the all in Windows.
diff --git a/mystic/bbs_msgbase.pas b/mystic/bbs_msgbase.pas
index a3b5d5b..00c5e59 100644
--- a/mystic/bbs_msgbase.pas
+++ b/mystic/bbs_msgbase.pas
@@ -1488,8 +1488,8 @@ Var
     Begin
       PageEnd := PageStart;
 
-      Session.io.AnsiGotoXY   (1, Session.io.ScreenInfo[1].Y);
-      Session.io.AnsiColor (MBase.ColText);
+      Session.io.AnsiGotoXY (1, Session.io.ScreenInfo[1].Y);
+      Session.io.AnsiColor  (MBase.ColText);
 
       For A := 1 to PageSize Do
         If PageEnd <= Lines Then Begin
diff --git a/mystic/mystic.pas b/mystic/mystic.pas
index 517931b..b82d3c9 100644
--- a/mystic/mystic.pas
+++ b/mystic/mystic.pas
@@ -232,9 +232,9 @@ Var
 Begin
   Randomize;
 
+  FileMode         := 66;
   Session.TempPath := Config.SystemPath + 'temp' + strI2S(Session.NodeNum) + PathChar;
-
-  Session.Pipe := TPipeDisk.Create(Config.DataPath, False, Session.NodeNum);
+  Session.Pipe     := TPipeDisk.Create(Config.DataPath, False, Session.NodeNum);
 
   {$I-}
   MkDir (Config.SystemPath + 'temp' + strI2S(Session.NodeNum));
diff --git a/mystic/nodespy.pas b/mystic/nodespy.pas
index 02de149..9b54efb 100644
--- a/mystic/nodespy.pas
+++ b/mystic/nodespy.pas
@@ -51,7 +51,7 @@ Uses
 Const
   HiddenNode  = 255;
   UpdateNode  = 500;
-  UpdateStats = 6000 * 10;
+  UpdateStats = 6000 * 10;  // 10 minutes
 
   AutoSnoop   : Boolean = True;
   AutoSnoopID : LongInt = 0;