eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Alpha 18 sync

This commit is contained in:
mysticbbs 2012-08-24 17:41:05 -04:00
parent 05fdcb67be
commit 5546fbab23
4 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mystic/HISTORY.txt
View File

@ -4705,3 +4705,6 @@
+ Added USAGE.MPS to the default installation. This currently shows a + Added USAGE.MPS to the default installation. This currently shows a
weekly and monthly usage graph calculated based on the number of calls. 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.

4
mystic/bbs_msgbase.pas
View File

@ -1488,8 +1488,8 @@ Var
Begin Begin
PageEnd := PageStart; PageEnd := PageStart;
Session.io.AnsiGotoXY (1, Session.io.ScreenInfo[1].Y); Session.io.AnsiGotoXY (1, Session.io.ScreenInfo[1].Y);
Session.io.AnsiColor (MBase.ColText); Session.io.AnsiColor (MBase.ColText);
For A := 1 to PageSize Do For A := 1 to PageSize Do
If PageEnd <= Lines Then Begin If PageEnd <= Lines Then Begin

4
mystic/mystic.pas
View File

@ -232,9 +232,9 @@ Var
Begin Begin
Randomize; Randomize;
FileMode := 66;
Session.TempPath := Config.SystemPath + 'temp' + strI2S(Session.NodeNum) + PathChar; 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-} {$I-}
MkDir (Config.SystemPath + 'temp' + strI2S(Session.NodeNum)); MkDir (Config.SystemPath + 'temp' + strI2S(Session.NodeNum));

2
mystic/nodespy.pas
View File

@ -51,7 +51,7 @@ Uses
Const Const
HiddenNode = 255; HiddenNode = 255;
UpdateNode = 500; UpdateNode = 500;
UpdateStats = 6000 * 10; UpdateStats = 6000 * 10; // 10 minutes
AutoSnoop : Boolean = True; AutoSnoop : Boolean = True;
AutoSnoopID : LongInt = 0; AutoSnoopID : LongInt = 0;