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

Code formatting

This commit is contained in:
mysticbbs 2012-09-23 00:59:33 -04:00
parent 495f0a1d6b
commit af6df73fa5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mystic/bbs_core.pas
View File

@ -186,6 +186,7 @@ Begin
If Eof(HistoryFile) Then Begin If Eof(HistoryFile) Then Begin
FillChar(History, SizeOf(History), 0); FillChar(History, SizeOf(History), 0);
History.Date := CurDateDos; History.Date := CurDateDos;
End; End;
@ -199,7 +200,7 @@ Begin
If Not LocalMode And (User.ThisUser.Flags AND UserNoLastCall = 0) Then If Not LocalMode And (User.ThisUser.Flags AND UserNoLastCall = 0) Then
Inc (History.Calls, 1); Inc (History.Calls, 1);
If User.ThisUser.Calls = 1 Then Inc (History.NewUsers, 1); If User.ThisUser.Calls = 1 Then Inc (History.NewUsers);
If Not LocalMode Then Inc (History.Hourly[HistoryHour]); If Not LocalMode Then Inc (History.Hourly[HistoryHour]);