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 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,8 +451,7 @@ 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;
@ -686,7 +685,7 @@ Var
(Data.Item[BarPos]^.TextLo <> '') And (Data.Item[BarPos]^.TextLo <> '') And
(Data.Item[BarPos]^.TextHi <> '') And (Data.Item[BarPos]^.TextHi <> '') And
(Data.Item[BarPos]^.ShowType <> 2) 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; End;
@ -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);