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

Code cleanups

This commit is contained in:
mysticbbs 2012-03-17 17:16:00 -04:00
parent 4b665cbe15
commit 593c5514b3
7 changed files with 12 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/bbs_ansi_help.pas
View File

@ -251,6 +251,8 @@ Var
Count : Byte; Count : Byte;
Ch : Char; Ch : Char;
Begin Begin
FillChar(LastKey, SizeOf(LastKey), 0);
FN := strWordGet(1, Str, ';'); FN := strWordGet(1, Str, ';');
Template := strWordGet(2, Str, ';'); Template := strWordGet(2, Str, ';');
Keyword := strWordGet(3, Str, ';'); Keyword := strWordGet(3, Str, ';');

7
mystic/bbs_cfg_useredit.pas
View File

@ -102,8 +102,8 @@ Begin
Case PagePos of Case PagePos of
1 : Begin 1 : Begin
WriteXY ( 8, 19, 112, 'Caller ID'); WriteXY ( 8, 19, 112, 'Caller ID');
WriteXY (23, 19, 113, U.PeerIP); WriteXY (23, 19, 113, U.PeerHost);
WriteXY (23, 20, 113, U.PeerHost); WriteXY (23, 20, 113, U.PeerIP);
Form.Clear; Form.Clear;
@ -223,7 +223,8 @@ Begin
#81 : If PagePos < 6 Then Begin #81 : If PagePos < 6 Then Begin
Inc (PagePos); Inc (PagePos);
UpdatePage(True); UpdatePage(True);
End; End Else
Form.ItemPos := Form.Items;
End; End;
Changed := Changed or Form.Changed; Changed := Changed or Form.Changed;

8
mystic/bbs_common.pas
View File

@ -321,11 +321,6 @@ Begin
End; End;
Procedure ProcessSysopCommand (Cmd: Char); Procedure ProcessSysopCommand (Cmd: Char);
Var
A : Integer;
X,
Y : Byte;
LS : Boolean;
Begin Begin
If Not Screen.Active And (Cmd <> #47) Then Exit; If Not Screen.Active And (Cmd <> #47) Then Exit;
@ -333,9 +328,6 @@ Begin
{E} #18 : If (Not Session.InUserEdit) and (Session.User.UserNum <> -1) Then {E} #18 : If (Not Session.InUserEdit) and (Session.User.UserNum <> -1) Then
Configuration_LocalUserEdit; Configuration_LocalUserEdit;
{T} #20 : Begin {T} #20 : Begin
// X := Screen.CursorX;
// Y := Screen.CursorY;
Config.UseStatusBar := Not Config.UseStatusBar; Config.UseStatusBar := Not Config.UseStatusBar;
If Not Config.UseStatusBar Then Begin If Not Config.UseStatusBar Then Begin

2
mystic/bbs_edit_full.pas
View File

@ -40,7 +40,7 @@ Var
InsertMode : Boolean = True; InsertMode : Boolean = True;
CutPasted : Boolean = False; CutPasted : Boolean = False;
CutTextPos : Word = 0; CutTextPos : Word = 0;
CutText : Array[1..MaxCutText] of CutTextPtr; CutText : Array[1..MaxCutText] of CutTextPTR;
Done : Boolean; Done : Boolean;
Save : Boolean; Save : Boolean;
Ch : Char; Ch : Char;

2
mystic/bbs_io.pas
View File

@ -1238,7 +1238,7 @@ End;
Function TBBSIO.GetKey : Char; Function TBBSIO.GetKey : Char;
Var Var
TimeCount : LongInt; TimeCount : LongInt;
LastSec : LongInt; LastSec : LongInt = 0;
Begin Begin
Result := #255; Result := #255;

8
mystic/bbs_nodechat.pas
View File

@ -18,11 +18,11 @@ Uses
bbs_Core; bbs_Core;
Var Var
ChatSize : Byte; ChatSize : Integer;
ChatUpdate : LongInt; ChatUpdate : LongInt;
TextPos : Byte; TextPos : Integer;
TopPage : Byte; TopPage : Integer;
LinePos : Byte; LinePos : Integer;
Full : Boolean; Full : Boolean;
Procedure FullReDraw; Procedure FullReDraw;

7
mystic/mide.pas
View File

@ -271,11 +271,6 @@ Var
End; End;
End; End;
Var
A : Byte;
B : Byte;
W : String;
InStr : Boolean;
Begin Begin
Console.WriteXY (2, Y, colTextNormal, strPadR(Copy(S, CurWin[CurWinNum]^.ScrlX + 1, 255), 77, ' ')); Console.WriteXY (2, Y, colTextNormal, strPadR(Copy(S, CurWin[CurWinNum]^.ScrlX + 1, 255), 77, ' '));
End; End;
@ -619,7 +614,6 @@ Var
InKey : TMenuInput; InKey : TMenuInput;
Str : String; Str : String;
Save : Boolean; Save : Boolean;
// TF : Text;
Begin Begin
Save := True; Save := True;
@ -716,7 +710,6 @@ End;
Procedure CompileStatusUpdate (Info: TParserUpdateInfo); Procedure CompileStatusUpdate (Info: TParserUpdateInfo);
Var Var
SavedX : Byte;
Percent : Byte; Percent : Byte;
Begin Begin
Case Info.Mode of Case Info.Mode of