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

Cleanup

This commit is contained in:
mysticbbs 2012-02-28 16:18:51 -05:00
parent 6984263d14
commit 9e6fc3857e
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/bbs_edit_full.pas
View File

@ -970,8 +970,8 @@ Begin
A := TotalLine; A := TotalLine;
While (Session.Msgs.MsgText[A] = '') and (A > 1) Do Begin While (Session.Msgs.MsgText[A] = '') and (A > 1) Do Begin
Dec(A); Dec (A);
Dec(TotalLine); Dec (TotalLine);
End; End;
Lines := TotalLine; Lines := TotalLine;
@ -985,4 +985,4 @@ Begin
Dispose (CutText[A]); Dispose (CutText[A]);
End; End;
End. End.

4
mystic/mystic.pas
View File

@ -412,8 +412,6 @@ Begin
Session.FindNextEvent; Session.FindNextEvent;
// Session.SystemLog ('Node ' + strI2S(Session.NodeNum) + ' online');
If Session.TimeOffset > 0 Then If Session.TimeOffset > 0 Then
Session.SetTimeLeft(Session.TimeOffset) Session.SetTimeLeft(Session.TimeOffset)
Else Else
@ -445,4 +443,4 @@ Begin
Repeat Repeat
Session.Menu.ExecuteMenu (True, True, False); Session.Menu.ExecuteMenu (True, True, False);
Until False; Until False;
End. End.