eric
/
Renegade-1.19
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Renegade-1.19/SOURCE/WFCMENU.PAS

1331 lines
37 KiB
Plaintext
Raw Normal View History

Make VP more like BP
2013-02-07 10:23:11 -08:00
{$IFDEF WIN32}
{$I DEFINES.INC}
{$ENDIF}
02-04
2013-02-04 15:56:58 -08:00
{$A+,B-,D+,E-,F+,I-,L+,N-,O+,R-,S+,V-}
UNIT WFCMenu;
INTERFACE
PROCEDURE WFCMDefine;
PROCEDURE WFCMenus;
IMPLEMENTATION
USES
Crt,
Dos,
Boot,
Bulletin,
Common,
CUser,
Doors,
EMail,
Events,
File7,
File10,
File13,
Mail1,
Mail2,
Mail3,
Maint,
Menus2,
MsgPack,
MultNode,
MyIO,
SysOp1,
SysOp2,
SysOp3,
SysOp4,
SysOp5,
SysOp6,
SysOp7,
SysOp8,
SysOp9,
SysOp10,
SysOp11,
SysOp12,
TimeFunc,
MiscUser;
VAR
LastKeyPress: LongInt;
CONST
ANSWER_LENGTH = 203;
ANSWER: ARRAY [1..203] OF Char = (
#0 ,#17,#25,#23,#14,'R','e','n','e','g','a','d','e',' ','i','s',' ',
'a','n','s','w','e','r','i','n','g',' ','t','h','e',' ','p','h','o',
'n','e','.',#25,#19,#24,#25,'K',#24,' ',' ',#15,'[',#14,'A',#15,']',
' ',' ','3','0','0',#25,#3 ,'[',#14,'C',#15,']',' ','2','4','0','0',
#25,#3 ,'[',#14,'E',#15,']',' ','7','2','0','0',#25,#3 ,'[',#14,'G',
#15,']',' ','1','2','0','0','0',#25,#3 ,'[',#14,'I',#15,']',' ','1',
'6','8','0','0',#25,#3 ,'[',#14,'K',#15,']',' ','3','8','4','0','0',
#25,#2 ,#24,' ',' ','[',#14,'B',#15,']',' ','1','2','0','0',#25,#3 ,
'[',#14,'D',#15,']',' ','4','8','0','0',#25,#3 ,'[',#14,'F',#15,']',
' ','9','6','0','0',#25,#3 ,'[',#14,'H',#15,']',' ','1','4','4','0',
'0',#25,#3 ,'[',#14,'J',#15,']',' ','1','9','2','0','0',#25,#3 ,'[',
#14,'L',#15,']',' ','5','7','6','0','0',#25,#2 ,#24,#25,'K',#24);
WFCNET_LENGTH = 98;
WFCNET: ARRAY [1..98] OF Char = (
#0 ,#17,#25,'K',#24,#25,#26,#15,'R','e','n','e','g','a','d','e',' ',
'N','e','t','w','o','r','k',' ','N','o','d','e',#25,#27,#24,#25,'K',
#24,#25,#9 ,'P','r','e','s','s',' ','[','S','P','A','C','E','B','A',
'R',']',' ','t','o',' ','l','o','g','i','n','.',' ',' ','P','r','e',
's','s',' ','[','Q',']',' ','t','o',' ','q','u','i','t',' ','R','e',
'n','e','g','a','d','e','.',#25,#10,#24,#25,'K',#24);
WFC_LENGTH = 1153;
WFC : ARRAY [1..1153] OF Char = (
#15,#17,#25,#22,'T','h','e',' ','R','e','n','e','g','a','d','e',' ',
'B','u','l','l','e','t','i','n',' ','B','o','a','r','d',' ','S','y',
's','t','e','m',#25,#22,#24,' ', #0,'<27>',#26,#16,'<27>', #9,'<27>',' ', #0,
'<27>',#26,#16,'<27>', #9,'<27>',' ', #0,'<27>',#26,#16,'<27>', #9,'<27>',' ', #0,'<27>',
#26,#15,'<27>', #9,'<27>',' ',#24,' ', #0,'<27>',' ',' ',#10,'T','o','d','a',
'y',#39,'s',' ','S','t','a','t','s',' ',' ', #9,'<27>',' ', #0,'<27>',' ',
#10,'S','y','s','t','e','m',' ','A','v','e','r','a','g','e','s',' ',
#9,'<27>',' ', #0,'<27>',' ',' ',#10,'S','y','s','t','e','m',' ','T','o',
't','a','l','s',' ',' ', #9,'<27>',' ', #0,'<27>',#25, #2,#10,'O','t','h',
'e','r',' ','I','n','f','o',#25, #2, #9,'<27>',' ',#24,' ', #0,'<27>',' ',
#15,'C','a','l','l','s',#25,#10, #9,'<27>',' ', #0,'<27>',' ',#15,'C','a',
'l','l','s',#25,#10, #9,'<27>',' ', #0,'<27>',' ',#15,'C','a','l','l','s',
#25,#10, #9,'<27>',' ', #0,'<27>',' ',#15,'N','o','d','e',#25,#10, #9,'<27>',
' ',#24,' ', #0,'<27>',' ',#15,'P','o','s','t','s',#25,#10, #9,'<27>',' ',
#0,'<27>',' ',#15,'P','o','s','t','s',#25,#10, #9,'<27>',' ', #0,'<27>',' ',
#15,'P','o','s','t','s',#25,#10, #9,'<27>',' ', #0,'<27>',' ',#15,'U','n',
'd','e','r',#25, #9, #9,'<27>',' ',#24,' ', #0,'<27>',' ',#15,'E','m','a',
'i','l',#25,#10, #9,'<27>',' ', #0,'<27>',' ',#15,'#',' ','U','L',#25,#11,
#9,'<27>',' ', #0,'<27>',' ',#15,'#',' ','U','L',#25,#11, #9,'<27>',' ', #0,
'<27>',' ',#15,'E','r','r','o','r','s',#25, #8, #9,'<27>',' ',#24,' ', #0,
'<27>',' ',#15,'N','e','w','u','s','e','r','s',#25, #7, #9,'<27>',' ', #0,
'<27>',' ',#15,'#',' ','D','L',#25,#11, #9,'<27>',' ', #0,'<27>',' ',#15,'#',
' ','D','L',#25,#11, #9,'<27>',' ', #0,'<27>',' ',#15,'M','a','i','l',#25,
#10, #9,'<27>',' ',#24,' ', #0,'<27>',' ',#15,'F','e','e','d','b','a','c',
'k',#25, #7, #9,'<27>',' ', #0,'<27>',' ',#15,'A','c','t','i','v','i','t',
'y',#25, #7, #9,'<27>',' ', #0,'<27>',' ',#15,'D','a','y','s',#25,#11, #9,
'<27>',' ', #0,'<27>',' ',#15,'U','s','e','r','s',#25, #9, #9,'<27>',' ',#24,
' ', #0,'<27>',' ',#15,'#',' ','U','L',#25,#11, #9,'<27>',' ', #0,'<27>', #9,
#26,#16,'<27>','<27>',' ', #0,'<27>', #9,#26,#16,'<27>','<27>',' ', #0,'<27>', #9,#26,
#15,'<27>','<27>',' ',#24,' ', #0,'<27>',' ',#15,'K','b',' ','U','L',#25,#10,
#9,'<27>',' ', #0,'<27>',#26,#23,'<27>',' ',#15,'M','o','d','e','m',' ', #0,
#26,#24,'<27>', #9,'<27>',' ',#24,' ', #0,'<27>',' ',#15,'#',' ','D','L',#25,
#11, #9,'<27>',' ', #0,'<27>',#16,#25,'7', #9,#17,'<27>',' ',#24,' ', #0,'<27>',
' ',#15,'K','b',' ','D','L',#25,#10, #9,'<27>',' ', #0,'<27>',#16,#25,'7',
#9,#17,'<27>',' ',#24,' ', #0,'<27>',' ',#15,'M','i','n','u','t','e','s',
#25, #8, #9,'<27>',' ', #0,'<27>',#16,#25,'7', #9,#17,'<27>',' ',#24,' ', #0,
'<27>',' ',#15,'O','v','e','r','l','a','y','s',#25, #7, #9,'<27>',' ', #0,
'<27>',#16,#25,'7', #9,#17,'<27>',' ',#24,' ', #0,'<27>',' ',#15,'F','r','e',
'e',' ',' ',' ',' ',' ',#25, #6, #9,'<27>',' ', #0,'<27>',#16,#25,'7', #9,
#17,'<27>',' ',#24,' ', #0,'<27>', #9,#26,#16,'<27>','<27>',' ', #0,'<27>', #9,#26,
'7','<27>','<27>',' ',#24,#25,'O',#24,' ', #0,'<27>',#26,'K','<27>', #9,'<27>',' ',
#24,' ', #0,'<27>',' ',#15,'[',#14,'S',#15,']','y','s','t','e','m',' ',
'C','o','n','f','i','g',' ','[',#14,'F',#15,']','i','l','e',' ','B',
'a','s','e',#25, #3,'[',#14,'C',#15,']','a','l','l','e','r','s',#25,
#3,'[',#14,'I',#15,']','n','i','t',' ','M','o','d','e','m',#25, #3,
'[',#14,'!',#15,']','V','a','l','i','d','a','t','e',#25, #3, #9,'<27>',
' ',#24,' ', #0,'<27>',' ',#15,'[',#14,'U',#15,']','s','e','r',' ','E',
'd','i','t','o','r',#25, #2,'[',#14,'B',#15,']','M','s','g',' ','B',
'a','s','e',#25, #3,'[',#14,'P',#15,']','a','c','k',' ','M','s','g',
's',' ',' ','[',#14,'O',#15,']','f','f','h','o','o','k',' ','M','o',
'd','e','m',' ','[',#14,'L',#15,']','o','g','s',#25, #8, #9,'<27>',' ',
#24,' ', #0,'<27>',' ',#15,'[',#14,'#',#15,']','M','e','n','u',' ','E',
'd','i','t','o','r',' ',' ','[',#14,'X',#15,']','f','e','r',' ','P',
'r','o','t','s',#25, #2,'[',#14,'M',#15,']','a','i','l',' ','R','e',
'a','d',' ',' ','[',#14,'A',#15,']','n','s','w','e','r',' ','M','o',
'd','e','m',' ',' ','[',#14,'Z',#15,']','H','i','s','t','o','r','y',
#25, #4, #9,'<27>',' ',#24,' ', #0,'<27>',' ',#15,'[',#14,'E',#15,']','v',
'e','n','t',' ','E','d','i','t','o','r',' ',' ','[',#14,'W',#15,']',
'r','i','t','e',' ','M','a','i','l',#25, #2,'[',#14,'R',#15,']','e',
'a','d',' ','M','a','i','l',' ',' ','[',#14,'H',#15,']','a','n','g',
'u','p',' ','M','o','d','e','m',' ',' ','[',#14,'D',#15,']','r','o',
'p',' ','t','o',' ','D','O','S',' ',' ', #9,'<27>',' ',#24,' ', #0,'<27>',
' ',#15,'[',#14,'V',#15,']','o','t','i','n','g',' ','E','d','i','t',
'o','r',' ','[',#14,'$',#15,']','C','o','n','f','e','r','e','n','c',
'e','s',' ','[',' ',']',' ','L','o','g',' ','O','n',#25, #2,'[',#14,
'N',#15,']','o','d','e',' ','l','i','s','t','i','n','g',' ',' ','[',
#14,'Q',#15,']','u','i','t',' ','t','o',' ','D','O','S',' ',' ', #9,
'<27>',' ',#24,' ', #0,'<27>', #9,#26,'K','<27>','<27>',' ',#24,#24);
WFC0_LENGTH = 488;
WFC0: ARRAY [1..488] OF Char = (
#14,#16,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,
#24,#24,#17,' ', #0,'<27>',#26,'K','<27>', #9,'<27>',' ',#24,' ', #0,'<27>',' ',
#15,'[',#14,'S',#15,']','y','s','t','e','m',' ','C','o','n','f','i',
'g',' ','[',#14,'F',#15,']','i','l','e',' ','B','a','s','e',#25, #3,
'[',#14,'C',#15,']','a','l','l','e','r','s',#25, #3,'[',#14,'I',#15,
']','n','i','t',' ','M','o','d','e','m',#25, #3,'[',#14,'!',#15,']',
'V','a','l','i','d','a','t','e',#25, #3, #9,'<27>',' ',#24,' ', #0,'<27>',
' ',#15,'[',#14,'J',#15,']','u','m','p',' ','t','o',' ','D','O','S',
#25, #2,'[',#14,'B',#15,']','M','s','g',' ','B','a','s','e',#25, #3,
'[',#14,'P',#15,']','a','c','k',' ','M','s','g','s',' ',' ','[',#14,
'O',#15,']','f','f','h','o','o','k',' ','M','o','d','e','m',' ','[',
#14,'L',#15,']','o','g','s',#25, #8, #9,'<27>',' ',#24,' ', #0,'<27>',' ',
#15,'[',#14,'#',#15,']','M','e','n','u',' ','E','d','i','t','o','r',
' ',' ','[',#14,'X',#15,']','f','e','r',' ','P','r','o','t','s',#25,
#2,'[',#14,'M',#15,']','a','i','l',' ','R','e','a','d',' ',' ','[',
#14,'A',#15,']','n','s','w','e','r',' ','M','o','d','e','m',' ',' ',
'[',#14,'Z',#15,']','H','i','s','t','o','r','y',#25, #4, #9,'<27>',' ',
#24,' ', #0,'<27>',' ',#15,'[',#14,'E',#15,']','v','e','n','t',' ','E',
'd','i','t','o','r',' ',' ','[',#14,'W',#15,']','r','i','t','e',' ',
'M','a','i','l',#25, #2,'[',#14,'R',#15,']','e','a','d',' ','M','a',
'i','l',' ',' ','[',#14,'H',#15,']','a','n','g','u','p',' ','M','o',
'd','e','m',' ',' ','[',#14,'U',#15,']','s','e','r',' ','E','d','i',
't','o','r',' ',' ', #9,'<27>',' ',#24,' ', #0,'<27>',' ',#15,'[',#14,'V',
#15,']','o','t','i','n','g',' ','E','d','i','t','o','r',' ','[',#14,
'$',#15,']','C','o','n','f','e','r','e','n','c','e','s',' ','[',#14,
'D',#15,']','i','s','p','l','a','y',' ','N','S',' ','[',#14,'N',#15,
']','o','d','e',' ','l','i','s','t','i','n','g',' ',' ','[',#14,'Q',
#15,']','u','i','t',' ','t','o',' ','D','O','S',' ',' ', #9,'<27>',' ',
#24,' ', #0,'<27>', #9,#26,'K','<27>','<27>',' ',#24,#24);
PROCEDURE WFCMDefine;
BEGIN
UploadsToday := 0;
DownloadsToday := 0;
UploadKBytesToday := 0;
DownloadKBytesToday := 0;
PrivatePostsToday := 0;
PublicPostsToday := 0;
FeedbackPostsToday := 0;
ChatAttempts := 0;
ShutUpChatCall := FALSE;
ContList := FALSE;
BadDLPath := FALSE;
TellUserEvent := 0;
TimeWarn := FALSE;
FastLogon := FALSE;
FileArea := 1;
MsgArea := 1;
ReadFileArea := -1;
ReadMsgArea := -1;
InWFCMenu := TRUE;
Reading_A_Msg := FALSE;
OutCom := FALSE;
UserOn := FALSE;
LastLineStr := '';
ChatReason := '';
Buf := '';
HangUp := FALSE;
ChatCall := FALSE;
HungUp := FALSE;
TimedOut := FALSE;
Rate := 3840;
ANSIDetected := FALSE;
TextAttr := 7;
ClrScr;
UserNum := 0;
IF ((MaxUsers - 1) >= 1) THEN
BEGIN
LoadURec(ThisUser,1);
TempPause := (Pause IN ThisUser.Flags);
Reset(SchemeFile);
IF (ThisUser.ColorScheme > 0) AND (ThisUser.ColorScheme <= FileSize(SchemeFile)) THEN
Seek(SchemeFile,(ThisUser.ColorScheme - 1));
Read(SchemeFile,Scheme);
Close(SchemeFile);
NewCompTables;
UserNum := 1;
END
ELSE
WITH ThisUser DO
BEGIN
LineLen := 80;
PageLen := 24;
Flags := [HotKey,Pause,Novice,ANSI,Color];
Exclude(Flags,Avatar);
Reset(SchemeFile);
Read(SchemeFile,Scheme);
Close(SchemeFile);
END;
END;
PROCEDURE GetConnection;
VAR
s: AStr;
C: Char;
Done: Boolean;
rl,
SaveTimer: LongInt;
PROCEDURE GetResultCode(CONST ResultCode: AStr);
VAR
MaxCodes: Byte;
BEGIN
MaxCodes := MaxResultCodes; { NOTE! Done backwards to avoid CONNECT 1200 / CONNECT 12000 confusion!! }
Reliable := (Pos(Liner.Reliable,ResultCode) > 0);
WITH Liner DO
REPEAT
IF (Connect[MaxCodes] <> '') AND (Pos(Connect[MaxCodes],ResultCode) > 0) THEN
BEGIN
CASE MaxCodes OF
1 : ActualSpeed := 300;
2 : ActualSpeed := 600;
3 : ActualSpeed := 1200;
4 : ActualSpeed := 2400;
5 : ActualSpeed := 4800;
6 : ActualSpeed := 7200;
7 : ActualSpeed := 9600;
8 : ActualSpeed := 12000;
9 : ActualSpeed := 14400;
10 : ActualSpeed := 16800;
11 : ActualSpeed := 19200;
12 : ActualSpeed := 21600;
13 : ActualSpeed := 24000;
14 : ActualSpeed := 26400;
15 : ActualSpeed := 28800;
16 : ActualSpeed := 31200;
17 : ActualSpeed := 33600;
18 : ActualSpeed := 38400;
19 : ActualSpeed := 57600;
20 : ActualSpeed := 115200;
END;
Done := TRUE;
END
ELSE
Dec(MaxCodes);
UNTIL (Done) OR (MaxCodes = 1);
END;
BEGIN
IF (AnswerBaud > 0) THEN
BEGIN
ActualSpeed := AnswerBaud;
IF (LockedPort IN Liner.MFlags) THEN
ComPortSpeed := Liner.InitBaud
ELSE
ComPortSpeed := ActualSpeed;
AnswerBaud := 0;
InCom := TRUE;
Exit;
END;
Reliable := FALSE; { Could've been set in boot - don't move }
Com_Flush_Recv;
IF (Liner.Answer <> '') THEN
Com_Send_Str(Liner.Answer);
IF (SysOpOn) THEN
Update_Logo(ANSWER,ScreenAddr[(3*2)+(19*160)-162],ANSWER_LENGTH);
rl := 0;
SaveTimer := Timer;
s := '';
REPEAT
Done := FALSE;
IF (KeyPressed) THEN
BEGIN
C := UpCase(ReadKey);
IF (C = ^[) THEN
BEGIN
DTR(FALSE);
Done := TRUE;
Com_Send_Str(Liner.HangUp);
Delay(100);
DTR(TRUE);
Com_Flush_Recv;
END;
CASE C OF
'A' : ActualSpeed := 300;
'B' : ActualSpeed := 1200;
'C' : ActualSpeed := 2400;
'D' : ActualSpeed := 4800;
'E' : ActualSpeed := 7200;
'F' : ActualSpeed := 9600;
'G' : ActualSpeed := 12000;
'H' : ActualSpeed := 14400;
'I' : ActualSpeed := 16800;
'J' : ActualSpeed := 19200;
'K' : ActualSpeed := 38400;
'L': ActualSpeed := 57600;
END;
Done := TRUE;
END;
C := CInKey;
IF (rl <> 0) AND (ABS(rl - Timer) > 2) AND (C = #0) THEN
C := ^M;
IF (C > #0) THEN
BEGIN
WriteWFC(C);
IF (C <> ^M) THEN
BEGIN
IF (Length(s) >= 160) THEN
Delete(s,1,120);
s := s + C;
rl := Timer;
END
ELSE
BEGIN
IF (Pos(Liner.NoCarrier,s) > 0) THEN
Done := TRUE;
IF (Pos(Liner.CallerID,s) > 0) THEN
CallerIDNumber := Copy(s,Pos(Liner.CallerID,s) + Length(Liner.CallerID),40);
GetResultCode(s);
rl := 0;
END;
END;
IF (C = ^M) THEN
s := '';
IF (ABS(Timer - SaveTimer) > 45) THEN
Done := TRUE;
UNTIL (Done);
Com_Flush_Recv;
IF (ABS(Timer - SaveTimer) > 45) THEN
C := 'X';
InCom := (ActualSpeed <> 0);
IF (InCom) AND (LockedPort IN Liner.MFlags) THEN
ComPortSpeed := Liner.InitBaud
ELSE
ComPortSpeed := ActualSpeed;
END;
PROCEDURE WFCDraw;
VAR
HistoryFile: FILE OF HistoryRecordType;
History: HistoryRecordType;
s: STRING[10];
L: LongInt;
BEGIN
Window(1,1,MaxDisplayCols,MaxDisplayRows);
LastWFCX := 1;
LastWFCY := 1;
CursorOn(FALSE);
ClrScr;
IF (AnswerBaud > 0) THEN
Exit;
IF (NOT BlankMenuNow) AND (SysOpOn) THEN
BEGIN
IF (SysOpOn) THEN
BEGIN
Update_Logo(WFC,ScreenAddr[0],WFC_LENGTH);
IF (General.NetworkMode) THEN
Update_Logo(WFCNET,ScreenAddr[(3*2)+(19*160)-162],WFCNET_LENGTH);
LoadURec(ThisUser,1);
TextAttr := 31;
GoToXY(4,1);
Write(PadRightStr(TimeStr,8));
GoToXY(68,1);
Write(DateStr);
Assign(HistoryFile,General.DataPath+'HISTORY.DAT');
IF (NOT Exist(General.DataPath+'HISTORY.DAT')) THEN
BEGIN
ReWrite(HistoryFile);
WITH History DO
BEGIN
Date := Date2PD(DateStr);
Active := 0;
Callers := 0;
NewUsers := 0;
Posts := 0;
EMail := 0;
FeedBack := 0;
Errors := 0;
Uploads := 0;
Downloads := 0;
UK := 0;
Dk := 0;
FOR L := 0 TO 20 DO
UserBaud[L] := 0;
END;
Write(HistoryFile,History);
END
ELSE
BEGIN
Reset(HistoryFile);
Seek(HistoryFile,(FileSize(HistoryFile) - 1));
Read(HistoryFile,History);
END;
Close(HistoryFile);
WITH History DO
BEGIN
TextAttr := 19;
GoToXY(14,04);
Write(PadRightInt(Callers,5));
GoToXY(14,05);
Write(PadRightInt(Posts,5));
GoToXY(14,06);
Write(PadRightInt(EMail,5));
GoToXY(14,07);
Write(PadRightInt(NewUsers,5));
GoToXY(14,08);
Write(PadRightInt(FeedBack,5));
GoToXY(14,09);
Write(PadRightInt(Uploads,5));
TextAttr := 31;
S := ConvertBytes(UK * 1024,FALSE);
GoToXY(04,10);
Write(Copy(S,(Pos(' ',S) + 1),Length(S))+' UL');
TextAttr := 19;
GoToXY(14,10);
Write(PadRightStr(Copy(S,1,(Pos(' ',S) - 1)),5));
GoToXY(14,11);
Write(PadRightInt(Downloads,5));
TextAttr := 31;
S := ConvertBytes(DK * 1024,FALSE);
GoToXY(04,12);
Write(Copy(S,(Pos(' ',S) + 1),Length(S))+' DL');
TextAttr := 19;
GoToXY(14,12);
Write(PadRightStr(Copy(S,1,(Pos(' ',S) - 1)),5));
GoToXY(14,13);
Write(PadRightInt(Active,5));
GoToXY(14,14);
CASE OverlayLocation OF
0 : Write(' Disk');
1 : Write(' EMS');
2 : Write(' XMS');
END;
GoToXY(11,15);
L := DiskKBFree(StartDir);
IF (L < General.MinSpaceForUpload) OR (L < General.MinSpaceForPost) THEN
TextAttr := 156;
Write(PadRightStr(ConvertKB(L,FALSE),8));
TextAttr := 19;
IF (General.DaysOnline = 0) THEN
Inc(General.DaysOnline);
GoToXY(34,04);
Str(((General.TotalCalls + Callers) / General.DaysOnline):2:2,s);
Write(PadRightStr(s,5));
GoToXY(34,05);
Str(((General.TotalPosts + Posts) / General.DaysOnline):2:2,s);
Write(PadRightStr(s,5));
GoToXY(34,06);
Str(((General.TotalUloads + Uploads) / General.DaysOnline):2:2,s);
Write(PadRightStr(s,5));
GoToXY(34,07);
Str(((General.TotalDloads + Downloads) / General.DaysOnline):2:2,s);
Write(PadRightStr(s,5));
GoToXY(34,08);
Str(((General.TotalUsage + Active) / General.DaysOnline) / 14.0:2:2,s);
Write(PadRightStr(s,4),'%');
GoToXY(53,04);
Write(PadRightInt(General.CallerNum,6));
GoToXY(53,05);
Write(PadRightInt((General.TotalPosts + Posts),6));
GoToXY(53,06);
Write(PadRightInt((General.TotalUloads + Uploads),6));
GoToXY(53,07);
Write(PadRightInt((General.TotalDloads + Downloads),6));
GoToXY(53,08);
Write(PadRightInt(General.DaysOnline,6));
GoToXY(73,04);
Write(PadRightInt(ThisNode,5));
GoToXY(73,05);
CASE Tasker OF
None : Write(' DOS');
DV : Write(' DV');
Win : Write(' Win');
OS2 : Write(' OS/2');
Win32 : Write('Win32');
Dos5N : Write('DOS/N');
END;
GoToXY(73,06);
Write(PadRightInt(Errors,5));
IF (ThisUser.Waiting > 0) THEN
TextAttr := 156;
GoToXY(73,07);
Write(PadRightInt(ThisUser.Waiting,5));
TextAttr := 19;
GoToXY(73,08);
Write(PadRightInt(General.NumUsers,5));
IF (General.TotalUsage < 1) OR (General.DaysOnline < 1) THEN
UpdateGeneral;
TextAttr := 7;
END;
END
ELSE
Update_Logo(WFC0,ScreenAddr[0],WFC0_LENGTH);
END;
END;
PROCEDURE WFCMenus;
CONST
RingNumber: Byte = 0;
MultiRinging: Boolean = FALSE;
VAR
WFCMessage,
s: AStr;
C,
c2: Char;
UNum: Integer;
LastRing,
LastMinute,
rl2,
LastInit: LongInt;
InBox,
RedrawWFC,
PhoneOffHook,
CheckForConnection: Boolean;
PROCEDURE InitModem;
VAR
s: AStr;
C: Char;
try: Integer;
rl,
rl1: LongInt;
done: Boolean;
BEGIN
C := #0;
done := FALSE;
try := 0;
IF ((Liner.Init <> '') AND (AnswerBaud = 0) AND (NOT LocalIOOnly)) THEN
BEGIN
IF (SysOpOn) AND (NOT BlankMenuNow) THEN
BEGIN
TextAttr := 31;
GoToXY(1,17);
ClrEOL;
GoToXY(31,17);
Write('Initializing modem ...');
END;
rl := Timer;
WHILE (KeyPressed) DO
C := ReadKey;
REPEAT
Com_Set_Speed(Liner.InitBaud);
Com_Flush_Recv;
Com_Send_Str(Liner.Init);
s := '';
rl1 := Timer;
REPEAT
C := CInKey;
IF (C > #0) THEN
BEGIN
WriteWFC(C);
IF (Length(s) >= 160) THEN
Delete(s,1,120);
s := s + C;
IF (Pos(Liner.OK, s) > 0) THEN
Done := TRUE;
END;
UNTIL ((ABS(Timer - rl1) > 3) OR (done)) OR (KeyPressed);
Com_Flush_Recv;
Inc(try);
IF (try > 10) THEN
Done := TRUE;
UNTIL ((done) OR (KeyPressed));
IF (SysOpOn) AND (NOT BlankMenuNow) THEN
BEGIN
GoToXY(1,17);
ClrEOL;
END;
END;
PhoneOffHook := FALSE;
WFCMessage := '';
LastInit := Timer;
WHILE (KeyPressed) DO
C := ReadKey;
Com_Flush_Recv;
TextAttr := 7;
END;
FUNCTION CPW: Boolean;
VAR
PW: Str20;
BEGIN
IF (NOT SysOpOn) THEN
BEGIN
TextAttr := 25;
Write('Password: ');
TextAttr := 17;
GetPassword(PW,20);
ClrScr;
CPW := (PW = General.SysOpPW);
END
ELSE
CPW := TRUE;
END;
PROCEDURE TakeOffHook(ShowIt: Boolean);
BEGIN
IF (NOT LocalIOOnly) THEN
BEGIN
DoPhoneOffHook(ShowIt);
PhoneOffHook := TRUE;
WFCMessage := 'Modem off hook';
END;
END;
PROCEDURE BeepHim;
VAR
C: Char;
rl,
rl1: LongInt;
BEGIN
TakeOffHook(FALSE);
BeepEnd := FALSE;
rl := Timer;
REPEAT
Sound(1500);
Delay(20);
Sound(1000);
Delay(20);
Sound(800);
Delay(20);
NoSound;
rl1 := Timer;
WHILE (ABS(rl1 - Timer) < 0.9) AND (NOT KeyPressed) DO;
UNTIL (ABS(rl - Timer) > 30) OR (KeyPressed);
IF (KeyPressed) THEN
C := ReadKey;
InitModem;
END;
PROCEDURE PackAllBases;
BEGIN
ClrScr;
TempPause := FALSE;
DoShowPackMessageAreas;
SysOpLog('Message areas packed');
WFCDraw;
END;
PROCEDURE ChkEvents;
VAR
EventNum: Byte;
RCode: Integer;
BEGIN
IF (CheckEvents(0) <> 0) THEN
FOR EventNum := 1 TO NumEvents DO
BEGIN
IF (CheckPreEventTime(EventNum,0)) THEN
IF (NOT PhoneOffHook) THEN
BEGIN
TakeOffHook(FALSE);
WFCMessage := 'Modem off hook in preparation for event at '+
Copy(CTim(MemEventArray[EventNum]^.EventStartTime),4,5)+':00';
END;
IF (CheckEventTime(EventNum,0)) THEN
WITH MemEventArray[EventNum]^ DO
BEGIN
Assign(EventFile,General.DataPath+'EVENTS.DAT');
InitModem;
IF (EventIsOffHook IN EFlags) THEN
TakeOffHook(TRUE);
ClrScr;
Write(Copy(CTim(EventStartTime),4,5)+':00 - Event: ');
WriteLn('"'+EventDescription+'"');
SL1('');
SL1('Executing event: '+IntToStr(EventNum)+' '+EventDescription+' on '+DateStr+' '+TimeStr+
' from node '+IntToStr(ThisNode));
IF (EventIsShell IN EFlags) THEN
BEGIN
CursorOn(TRUE);
EventLastDate := Date2PD(DateStr);
Reset(EventFile);
Seek(EventFile,(EventNum - 1));
Write(EventFile,MemEventArray[EventNum]^);
Close(EventFile);
ShellDOS(FALSE,EventShellPath+'.BAT',RCode);
CursorOn(FALSE);
SL1('Returned from '+EventDescription+' on '+DateStr+' '+TimeStr);
DoPhoneHangup(TRUE);
InitModem;
WFCDraw;
END
ELSE IF (EventIsErrorLevel IN EFlags) THEN
BEGIN
CursorOn(TRUE);
DoneDay := TRUE;
ExitErrorLevel := EventErrorLevel;
EventLastDate := Date2PD(DateStr);
Reset(EventFile);
Seek(EventFile,(EventNum - 1));
Write(EventFile,MemEventArray[EventNum]^);
Close(EventFile);
CursorOn(FALSE);
END
ELSE IF (EventIsSortFiles IN EFlags) THEN
BEGIN
EventLastDate := Date2PD(DateStr);
Reset(EventFile);
Seek(EventFile,(EventNum - 1));
Write(EventFile,MemEventArray[EventNum]^);
Close(EventFile);
CursorOn(FALSE);
SortFilesOnly := TRUE;
Sort;
SortFilesOnly := FALSE;
InitModem;
WFCDraw;
END
ELSE IF (EventIsPackMsgAreas IN EFlags) THEN
BEGIN
EventLastDate := Date2PD(DateStr);
Reset(EventFile);
Seek(EventFile,(EventNum - 1));
Write(EventFile,MemEventArray[EventNum]^);
Close(EventFile);
CursorOn(FALSE);
PackAllBases;
InitModem;
WFCDraw;
END
ELSE IF (EventIsFilesBBS IN EFlags) THEN
BEGIN
EventLastDate := Date2PD(DateStr);
Reset(EventFile);
Seek(EventFile,(EventNum - 1));
Write(EventFile,MemEventArray[EventNum]^);
Close(EventFile);
CursorOn(FALSE);
CheckFilesBBS;
InitModem;
WFCDraw;
END;
END;
END;
LastError := IOResult;
END;
BEGIN
IF (NOT General.LocalSec) OR (General.NetworkMode) THEN
SysOpOn := TRUE
ELSE
SysOpOn := FALSE;
LastKeyPress := GetPackDateTime;
InBox := FALSE;
BlankMenuNow := FALSE;
WantOut := TRUE;
RedrawWFC := TRUE;
Com_Install;
WFCMDefine;
WFCDraw;
DTR(TRUE);
InitModem;
IF (NOT General.LocalSec) OR (General.NetworkMode) THEN
SysOpOn := TRUE;
IF (BeepEnd) THEN
WFCMessage := 'Modem off hook - paging SysOp';
Randomize;
TextAttr := CurrentColor;
CursorOn(FALSE);
LastMinute := (Timer - 61);
CheckForConnection := FALSE;
IF (AnswerBaud > 0) AND NOT (LocalIOOnly) THEN
BEGIN
C := 'A';
InCom := Com_Carrier;
END
ELSE
BEGIN
C := #0;
CallerIDNumber := '';
END;
IF (WFCMessage <> '') AND (SysOpOn) AND NOT (BlankMenuNow) THEN
BEGIN
GoToXY((80 - Length(WFCMessage)) DIV 2,17);
TextAttr := 31;
Write('<27><> ');
Write(WFCMessage);
Write(' <20><>');
END;
TextAttr := 3;
IF (BeepEnd) THEN
BeepHim;
IF (DoneAfterNext) THEN
BEGIN
TakeOffHook(TRUE);
ExitErrorLevel := ExitNormal;
HangUp := TRUE;
DoneDay := TRUE;
ClrScr;
END;
s := '';
REPEAT
InCom := FALSE;
OutCom := FALSE;
FastLogon := FALSE;
ActualSpeed := 0;
HangUp := FALSE;
HungUp := FALSE;
InResponseTo := '';
LastAuthor := 0;
CFO := FALSE;
ComPortSpeed := 0;
FreeTime := 0;
ExtraTime := 0;
ChopTime := 0;
CreditTime := 0;
LIL := 0;
DailyMaint;
ASM
Int 28h
END;
IF (AnswerBaud = 0) THEN
BEGIN
IF ((Timer - LastMinute) > 60) OR ((Timer - LastMinute) < 0) THEN
BEGIN
LastMinute := Timer;
IF (SysOpOn) AND NOT (BlankMenuNow) THEN
BEGIN
TextAttr := 31;
GoToXY(4,1);
Write(PadRightStr(TimeStr,8));
GoToXY(68,1);
Write(DateStr);
TextAttr := 15;
END;
IF ((Timer - LastInit) > NoCallInitTime) THEN
BEGIN
LastInit := Timer;
IF (NOT PhoneOffHook) AND (AnswerBaud = 0) THEN
BEGIN
Com_Deinstall;
Com_Install;
InitModem;
END;
IF (General.MultiNode) THEN
BEGIN
LoadURec(ThisUser,1);
SaveGeneral(TRUE);
END;
END;
IF (SysOpOn) AND (General.LocalSec) AND (NOT General.NetworkMode) THEN
SysOpOn := FALSE;
IF ((NOT BlankMenuNow) AND (General.WFCBlankTime > 0)) THEN
IF ((GetPackDateTime - LastKeyPress) DIV 60 >= General.WFCBlankTime) THEN
BEGIN
BlankMenuNow := TRUE;
ClrScr;
END;
IF (NumEvents > 0) THEN
ChkEvents;
END;
C := Char(InKey);
END;
IF (InBox) AND (C > #0) THEN
BEGIN
IF (C IN [#9,#27]) THEN
BEGIN
InBox := FALSE;
Window(1,1,MaxDisplayCols,MaxDisplayRows);
GoToXY(32,17);
ClrEOL;
END
ELSE
BEGIN
Com_send(C);
WriteWFC(C);
END;
C := #0;
END;
IF (C > #0) THEN
BEGIN
TempPause := (Pause IN ThisUser.Flags);
RedrawWFC := TRUE;
IF (BlankMenuNow) THEN
BEGIN
BlankMenuNow := FALSE;
WFCDraw;
LastKeyPress := GetPackDateTime;
END;
C := UpCase(C);
CursorOn(TRUE);
IF (NOT SysOpOn) THEN
CASE C OF
'Q' : BEGIN
ExitErrorLevel := 255;
HangUp := TRUE;
DoneDay := TRUE;
END;
' ' : BEGIN
SysOpOn := CPW;
IF (SysOpOn) THEN
WantOut := TRUE;
C := #1;
END;
ELSE
RedrawWFC := FALSE;
END
ELSE
BEGIN
TextAttr := 7;
CurrentColor := 7;
IF (General.NetworkMode) AND (Answerbaud = 0) AND (Pos(C,'HIABCDEFJTV$PLNMOS!RUWXZ#') > 0) THEN
C := #0;
CASE C OF
#9 : BEGIN
InBox := TRUE;
TextAttr := 31;
GoToXY(32,17);
Write('Talking to modem ...');
RedrawWFC := FALSE;
END;
'A' : IF (NOT LocalIOOnly) THEN
CheckForConnection := TRUE
ELSE
RedrawWFC := FALSE;
'B' : IF (CPW) THEN
MessageAreaEditor;
'C' : TodaysCallers(0,'');
'D' : SysOpShell;
'E' : IF (CPW) THEN
EventEditor;
'F' : IF (CPW) THEN
FileAreaEditor;
'H' : BEGIN
DoPhoneHangup(TRUE);
RedrawWFC := FALSE;
END;
'I' : BEGIN
InitModem;
RedrawWFC := FALSE;
END;
'L' : BEGIN
ClrScr;
ShowLogs;
NL;
PauseScr(FALSE);
END;
'M' : IF (CPW) THEN
BEGIN
ClrScr;
ReadAllMessages('');
END;
'N' : BEGIN
ClrScr;
lListNodes;
PauseScr(FALSE);
END;
'O' : BEGIN
TakeOffHook(TRUE);
RedrawWFC := FALSE;
END;
'P' : BEGIN
ClrScr;
IF (PYNQ('Pack the message areas? ',0,FALSE)) THEN
DoShowPackMessageAreas;
END;
'Q' : BEGIN
ExitErrorLevel := 255;
HangUp := TRUE;
DoneDay := TRUE;
RedrawWFC := FALSE;
END;
'R' : IF (CPW) THEN
BEGIN
ClrScr;
Print('^5User''s private messages to read (1-'+IntToStr(MaxUsers - 1)+')?^1');
NL;
Print('Enter User Number, Name, or Partial Search String.');
Prt(': ');
lFindUserWS(UNum);
IF (UNum < 1) THEN
BEGIN
NL;
PauseScr(FALSE);
END
ELSE
BEGIN
ClrScr;
LoadURec(ThisUser,UNum);
UserNum := UNum;
ReadMail;
SaveURec(ThisUser,UNum);
LoadURec(ThisUser,1);
UserNum := 1;
END;
END;
'S' : IF (CPW) THEN
SystemConfigurationEditor;
'U' : IF (CPW) THEN
BEGIN
ClrScr;
UserEditor(UserNum);
END;
'V' : IF (CPW) THEN
VotingEditor;
'W' : IF (CPW) THEN
BEGIN
ClrScr;
Print('^5User to send private message from (1-'+IntToStr(MaxUsers - 1)+')?^1');
NL;
Print('Enter User Number, Name, or Partial Search String.');
Prt(': ');
lFindUserWS(UNum);
IF (UNum < 1) THEN
BEGIN
NL;
PauseScr(FALSE);
END
ELSE
BEGIN
LoadURec(ThisUser,UNum);
UserNum := UNum;
NL;
SMail(PYNQ('Send mass mail? ',0,FALSE));
LoadURec(ThisUser,1);
UserNum := 1;
END;
END;
'X' : IF (CPW) THEN
ProtocolEditor;
'Z' : IF (CPW) THEN
HistoryEditor;
'$' : IF (CPW) THEN
ConferenceEditor;
'!' : BEGIN
ClrScr;
ValidateFiles;
END;
'#' : IF (CPW) THEN
MenuEditor;
' ' : BEGIN
IF (General.OffHookLocalLogon) THEN
TakeOffHook(TRUE);
GoToXY(32,17);
TextAttr := 31;
Write('Log on? (Y/N');
IF (NOT General.LocalSec) THEN
Write('/Fast): ')
ELSE
Write('): ');
rl2 := Timer;
WHILE (NOT KeyPressed) AND (ABS(Timer - rl2) < 10) DO;
IF (KeyPressed) THEN
C := UpCase(ReadKey)
ELSE
C := 'N';
WriteLn(C);
CASE C OF
'F' : IF (NOT General.LocalSec) THEN
BEGIN
FastLogon := TRUE;
C := ' ';
END;
'Y' : C := ' ';
ELSE
BEGIN
IF (SysOpOn) AND (NOT BlankMenuNow) THEN
BEGIN
GoToXY(1,17);
ClrEOL;
END;
IF (General.OffHookLocalLogon) THEN
InitModem;
RedrawWFC := FALSE;
END;
END;
END;
ELSE
RedrawWFC := FALSE;
END;
LastKeyPress := GetPackDateTime;
END;
IF (RedrawWFC) THEN
BEGIN
IF NOT (C IN ['A','I','H',' ']) THEN
BEGIN
CurrentColor := 7;
TextAttr := CurrentColor;
WFCDraw;
InitModem;
END;
END;
END;
IF (NOT Com_IsRecv_Empty) THEN
BEGIN
c2 := CInKey;
IF (c2 > #0) THEN
BEGIN
WriteWFC(c2);
IF (Length(s) >= 160) THEN
Delete(s,1,120);
IF (c2 <> ^M) THEN
s := s + c2
ELSE
BEGIN
IF (Pos(Liner.CallerID,s) > 0) THEN
BEGIN
CallerIDNumber := Copy(s,Pos(Liner.CallerID,s) + Length(Liner.CallerID),40);
s := '';
END;
IF (Pos(Liner.Ring, s) > 0) THEN
BEGIN
s := '';
IF (RingNumber > 0) AND (ABS(Timer - LastRing) > 10) THEN
BEGIN
RingNumber := 0;
CallerIDNumber := '';
MultiRinging := FALSE;
END;
IF (ABS(Timer - LastRing) < 4) AND (NOT MultiRinging) THEN
MultiRinging := TRUE
ELSE
Inc(RingNumber);
LastRing := Timer;
IF (RingNumber >= Liner.AnswerOnRing) AND (NOT Liner.MultiRing OR MultiRinging) THEN
CheckForConnection := TRUE;
s := '';
END;
END;
END;
END;
IF (C > #0) OR (CheckForConnection) THEN
BEGIN
IF (NOT General.LocalSec) OR (General.NetworkMode) THEN
SysOpOn := TRUE;
IF (BlankMenuNow) THEN
BEGIN
BlankMenuNow := FALSE;
WFCDraw;
END;
IF (NOT PhoneOffHook) AND (NOT LocalIOOnly) AND (CheckForConnection) THEN
BEGIN
GetConnection;
CheckForConnection := FALSE;
IF (NOT InCom) THEN
BEGIN
WFCDraw;
InitModem;
IF (QuitAfterDone) THEN
BEGIN
ExitErrorLevel := ExitNormal;
HangUp := TRUE;
DoneDay := TRUE;
END;
END;
END;
END;
CursorOn(FALSE);
UNTIL ((InCom) OR (C = ' ') OR (DoneDay));
UploadKBytesToday := 0;
DownloadKBytesToday := 0;
UploadsToday := 0;
PrivatePostsToday := 0;
PublicPostsToday := 0;
FeedbackPostsToday := 0;
ChatAttempts := 0;
ShutUpChatCall := FALSE;
ChatChannel := 0;
ContList := FALSE;
BadDLPath := FALSE;
UserNum := -1;
TempSysOp := FALSE;
Reset(SchemeFile);
Read(SchemeFile,Scheme);
Close(SchemeFile);
CurrentColor := 7;
TextAttr := CurrentColor;
IF (InCom) THEN
BEGIN
Com_Flush_Recv;
DTR(TRUE);
OutCom := TRUE;
Com_Set_Speed(ComPortSpeed);
END
ELSE
BEGIN
DTR(FALSE);
OutCom := FALSE;
END;
IF (ActualSpeed = 0) THEN
Rate := (Liner.InitBaud DIV 10)
ELSE
Rate := (ActualSpeed DIV 10);
TimeOn := GetPackDateTime;
ClrScr;
Com_Flush_Recv;
BeepEnd := FALSE;
InWFCMenu := FALSE;
Kill(General.TempPath+'MSG'+IntToStr(ThisNode)+'.TMP');
NodeChatLastRec := 0;
IF (ComPortSpeed = 0) AND (NOT WantOut) THEN
WantOut := TRUE;
IF (WantOut) THEN
CursorOn(TRUE);
SaveGeneral(TRUE);
LastError := IOResult;
END;
END.