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

Code formatting

This commit is contained in:
mysticbbs 2012-02-18 01:53:16 -05:00
parent 7905984d65
commit 6cfd89838f
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mystic/bbs_msgbase.pas
View File

@ -14,7 +14,7 @@ Uses
bbs_MsgBase_Squish; bbs_MsgBase_Squish;
Type Type
TMsgBase = Class TMsgBase = Class
MBaseFile : File of MBaseRec; MBaseFile : File of MBaseRec;
MScanFile : File of MScanRec; MScanFile : File of MScanRec;
GroupFile : File of RecGroup; GroupFile : File of RecGroup;
@ -436,9 +436,12 @@ Var
Session.io.OutFullLn (Session.GetPrompt(92)); Session.io.OutFullLn (Session.GetPrompt(92));
Total := 0; Total := 0;
Reset (MBaseFile); Reset (MBaseFile);
While Not Eof(MBaseFile) Do Begin While Not Eof(MBaseFile) Do Begin
Read (MBaseFile, MBase); Read (MBaseFile, MBase);
If Session.User.Access(MBase.ACS) Then Begin If Session.User.Access(MBase.ACS) Then Begin
Inc (Total); Inc (Total);
@ -474,7 +477,9 @@ Var
B : Word; B : Word;
Begin Begin
B := 0; B := 0;
Reset (MBaseFile); Reset (MBaseFile);
Repeat Repeat
Read (MBaseFile, MBase); Read (MBaseFile, MBase);
If Session.User.Access(MBase.ACS) Then Inc(B); If Session.User.Access(MBase.ACS) Then Inc(B);
@ -690,6 +695,7 @@ Begin
Total := 0; Total := 0;
Reset (GroupFile); Reset (GroupFile);
Repeat Repeat
Read (GroupFile, Group); Read (GroupFile, Group);
If Not Group.Hidden And Session.User.Access(Group.ACS) Then Inc(Total); If Not Group.Hidden And Session.User.Access(Group.ACS) Then Inc(Total);
@ -701,8 +707,8 @@ Begin
If Intro Then Session.io.OutFile ('group' + strI2S(Session.User.ThisUser.LastMGroup), True, 0); If Intro Then Session.io.OutFile ('group' + strI2S(Session.User.ThisUser.LastMGroup), True, 0);
Session.User.ThisUser.LastMBase := 1; Session.User.ThisUser.LastMBase := 1;
ChangeArea('+');
ChangeArea('+');
End Else End Else
Group := tGroup; Group := tGroup;
End; End;