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

10
mystic/bbs_menus.pas
View File

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