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

Minor changes to match 1.x menu system details

This commit is contained in:
mysticbbs 2012-07-30 18:19:21 -04:00
parent 4bc000b98b
commit 0be35bee0d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/bbs_menus.pas
View File

@ -396,7 +396,6 @@ Begin
If (Interval MOD Data.Item[Count]^.Timer <> 0) Then If (Interval MOD Data.Item[Count]^.Timer <> 0) Then
Continue Continue
Else Begin Else Begin
Case Data.Item[Count]^.TimerType of Case Data.Item[Count]^.TimerType of
0 : Result := ExecuteCommandList(Count, -1); 0 : Result := ExecuteCommandList(Count, -1);
1, 1,
@ -452,7 +451,6 @@ Begin
4 : Format := 19; 4 : Format := 19;
End; End;
// If Data.Info.Header <> '' Then
TBBSCore(Owner).io.OutFullLn (Data.Info.Header); TBBSCore(Owner).io.OutFullLn (Data.Info.Header);
Listed := 0; Listed := 0;
@ -631,6 +629,7 @@ Var
LastSec : LongInt; LastSec : LongInt;
Begin Begin
Session.io.BufFlush; Session.io.BufFlush;
Session.io.PurgeInputBuffer;
LastSec := TimerSeconds; LastSec := TimerSeconds;
@ -776,7 +775,8 @@ Begin
ShowMenu; ShowMenu;
TBBSCore(Owner).io.OutFullLn(Data.Info.Header); If Data.Info.Header <> '' Then
TBBSCore(Owner).io.OutFull(Data.Info.Header);
If Data.Info.Footer <> '' Then If Data.Info.Footer <> '' Then
TBBSCore(Owner).io.OutFull(Data.Info.Footer); TBBSCore(Owner).io.OutFull(Data.Info.Footer);