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

Updated BBSList, See UPGRADE/BBSLIST.SCR for new options 

Not Sure which new ascii is available, I'll check
	modified:   BBSLIST.PAS
	modified:   RECORDS.PAS
	new file:   UPGRADE/BBSLIST.SCR
	new file:   UPGRADE/FIXBBSL.PAS

	modified:   BBSLIST.PAS
	modified:   RECORDS.PAS
	new file:   UPGRADE/BBSLIST.SCR
	new file:   UPGRADE/FIXBBSL.PAS
This commit is contained in:
sk-5 2013-07-21 00:16:37 -07:00 committed by sk-5
parent 5e81182bf7
commit 2147e6cacd
4 changed files with 1080 additions and 580 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

483
SOURCE/BBSLIST.PAS
View File

@ -1,7 +1,3 @@
{$IFDEF WIN32}
{$I DEFINES.INC}
{$ENDIF}
{$A+,B-,D-,E-,F+,I-,L-,N-,O+,R-,S+,V-} {$A+,B-,D-,E-,F+,I-,L-,N-,O+,R-,S+,V-}
UNIT BBSList; UNIT BBSList;
@ -24,20 +20,37 @@ FUNCTION BBSListMCI(CONST S: ASTR; Data1,Data2: Pointer): STRING;
VAR VAR
BBSListPtr: ^BBSListRecordType; BBSListPtr: ^BBSListRecordType;
User: UserRecordType; User: UserRecordType;
TmpStr : String;
BEGIN BEGIN
BBSListPtr := Data1; BBSListPtr := Data1;
BBSListMCI := S; BBSListMCI := S;
CASE S[1] OF CASE S[1] OF
'X' : CASE S[2] OF 'X' : CASE S[2] OF
'A' : BBSListMCI := BBSListPtr^.xA; 'A' : BBSListMCI := BBSListPtr^.SDA;
'B' : BBSListMCI := BBSListPtr^.xB; 'B' : BBSListMCI := BBSListPtr^.SDB;
'C' : BBSListMCI := BBSListPtr^.xC; 'C' : BBSListMCI := BBSListPtr^.SDC;
'D' : BBSListMCI := BBSListPtr^.xD; 'D' : BBSListMCI := BBSListPtr^.SDD;
'E' : BBSListMCI := BBSListPtr^.xE; 'E' : BBSListMCI := BBSListPtr^.SDE;
'F' : BBSListMCI := BBSListPtr^.xF; 'F' : BBSListMCI := BBSListPtr^.SDF;
END;
'A' : CASE S[2] OF
'C' :
Begin
If (Length(BBSListPtr^.PhoneNumber) > 0) Then
Begin
TmpStr := BBSListPtr^.PhoneNumber;
Delete(TmpStr,4,Length(TmpStr));
BBSListMCI := TmpStr;
End
Else
Begin
BBSListMCI := 'N/A';
End;
End;
END; END;
'B' : CASE S[2] OF 'B' : CASE S[2] OF
'N' : BBSListMCI := BBSListPtr^.BBSName; 'N' : BBSListMCI := BBSListPtr^.BBSName;
'P' : BBSListMCI := IntToStr(BBSListPtr^.Port);
END; END;
'D' : CASE S[2] OF 'D' : CASE S[2] OF
'A' : BBSListMCI := Pd2Date(BBSListPtr^.DateAdded); 'A' : BBSListMCI := Pd2Date(BBSListPtr^.DateAdded);
@ -45,16 +58,63 @@ BEGIN
'S' : BBSListMCI := BBSListPtr^.Description; 'S' : BBSListMCI := BBSListPtr^.Description;
'2' : BBSListMCI := BBSListPtr^.Description2 '2' : BBSListMCI := BBSListPtr^.Description2
END; END;
'L' : CASE S[2] OF
'O' : BBSListMCI := BBSListPtr^.Location;
END;
'H' : CASE S[2] OF
'R' : BBSListMCI := BBSListPtr^.Hours;
END;
'M' : CASE S[2] OF
'N' : BBSListMCI := IntToStr(BBSListPtr^.MaxNodes);
END;
'O' : CASE S[2] OF
'S' : Begin
If (Length(BBSListPtr^.OS) > 0) Then
BBSListMCI := BBSListPtr^.OS
Else
BBSListMCI := 'Unknown';
End;
END;
'P' : CASE S[2] OF 'P' : CASE S[2] OF
'N' : BBSListMCI := BBSListPtr^.PhoneNumber; 'N' : Begin
If (Length(BBSListPtr^.PhoneNumber) > 0) Then
BBSListMCI := BBSListPtr^.PhoneNumber
Else
BBSListMCI := 'None';
End;
END; END;
'R' : CASE S[2] OF 'R' : CASE S[2] OF
'N' : BBSListMCI := IntToStr(BBSListPtr^.RecordNum); 'N' : BBSListMCI := IntToStr(BBSListPtr^.RecordNum);
END; END;
'S' : CASE S[2] OF 'S' : CASE S[2] OF
'A' : BBSListMCI := BBSListPtr^.SDA;
'B' : BBSListMCI := BBSListPtr^.SDB;
'C' : BBSListMCI := BBSListPtr^.SDC;
'D' : BBSListMCI := BBSListPtr^.SDD;
'E' : BBSListMCI := BBSListPtr^.SDE;
'F' : BBSListMCI := BBSListPtr^.SDF;
'G' : BBSListMCI := IntToStr(BBSListPtr^.SDG);
'H' : BBSListMCI := ShowYesNo(BBSListPtr^.SDH);
'I' : BBSListMCI := ShowYesNo(BBSListPtr^.SDI);
'N' : BBSListMCI := BBSListPtr^.SysOpName; 'N' : BBSListMCI := BBSListPtr^.SysOpName;
'P' : BBSListMCI := BBSListPtr^.Speed; 'P' : BBSListMCI := BBSListPtr^.Speed;
'W' : BBSListMCI := AllCaps(BBSListPtr^.Software); 'T' : Begin
IF (Length(BBSListPtr^.Birth) > 0) THEN
BBSListMCI := BBSListPtr^.Birth
ELSE
BBSListMCI := 'Unknown';
End;
'V' : Begin
If (Length(BBSListPtr^.SoftwareVersion) > 0) Then
Begin
BBSListMCI := BBSListPtr^.SoftwareVersion;
End
Else
Begin
BBSListMCI := 'Unknown';
End;
End;
'W' : BBSListMCI := BBSListPtr^.Software;
END; END;
'T' : CASE S[2] OF 'T' : CASE S[2] OF
'N' : BBSListMCI := BBSListPtr^.TelnetUrl; 'N' : BBSListMCI := BBSListPtr^.TelnetUrl;
@ -75,7 +135,8 @@ PROCEDURE BBSListScriptFile(VAR BBSList: BBSListRecordType);
VAR VAR
BBSScriptText: TEXT; BBSScriptText: TEXT;
Question: STRING; Question: STRING;
WhichOne: CHAR; WhichOne: String;
TmpBirth: String[10];
BEGIN BEGIN
Assign(BBSScriptText,General.MiscPath+'BBSLIST.SCR'); Assign(BBSScriptText,General.MiscPath+'BBSLIST.SCR');
Reset(BBSScriptText); Reset(BBSScriptText);
@ -84,104 +145,184 @@ BEGIN
ReadLn(BBSScriptText,Question); ReadLn(BBSScriptText,Question);
IF (Question[1] = '[') THEN IF (Question[1] = '[') THEN
BEGIN BEGIN
WhichOne := UpCase(Question[2]); WhichOne := AllCaps(Copy(Question, Pos('[',Question)+1, Pos(']',Question)-2));
Question := Copy(Question,(Pos(':',Question) + 1),Length(Question)); Question := Copy(Question,(Pos(':',Question) + 1),Length(Question));
CASE WhichOne OF
'1' : BEGIN IF (WhichOne = 'BBSNAME') THEN
NL; BEGIN
PRT(Question+' '); NL;
MPL(SizeOf(BBSList.BBSName) - 1); PRT(Question+' ');
InputMain(BBSList.BBSName,(SizeOf(BBSList.BBSName) - 1),[InterActiveEdit,ColorsAllowed]); MPL(SizeOf(BBSList.BBSName) - 1);
Abort := (BBSList.BBSName = ''); InputMain(BBSList.BBSName,(SizeOf(BBSList.BBSName) - 1),[InterActiveEdit,ColorsAllowed]);
END; Abort := (BBSList.BBSName = '');
'2' : BEGIN END
PRT(Question+' '); ELSE IF WhichOne = 'SYSOPNAME' THEN
MPL(SizeOf(BBSList.SysOpName) - 1); BEGIN
InputMain(BBSList.SysOpName,(SizeOf(BBSList.SysOpName) - 1),[ColorsAllowed,InterActiveEdit]); PRT(Question+' ');
Abort := (BBSList.SysOpName = ''); MPL(SizeOf(BBSList.SysOpName) - 1);
END; InputMain(BBSList.SysOpName,(SizeOf(BBSList.SysOpName) - 1),[ColorsAllowed,InterActiveEdit]);
'3' : BEGIN Abort := (BBSList.SysOpName = '');
PrintACR(Question); END
MPL(SizeOf(BBSList.TelnetUrl) - 1); ELSE IF WhichOne = 'TELNETURL' THEN
InputMain(BBSList.TelnetUrl,(SizeOf(BBSList.TelnetUrl) - 1),[ColorsAllowed,InterActiveEdit]); BEGIN
Abort := (BBSList.TelnetUrl = ''); Prt(Question+' ');
END; MPL(SizeOf(BBSList.TelnetUrl) - 1);
'4' : BEGIN InputMain(BBSList.TelnetUrl,(SizeOf(BBSList.TelnetUrl) - 1),[ColorsAllowed,InterActiveEdit]);
PrintACR(Question); Abort := (BBSList.TelnetUrl = '');
MPL(SizeOf(BBSList.WebSiteUrl) - 1); END
InputMain(BBSList.WebSiteUrl,(SizeOf(BBSList.WebSiteUrl) - 1),[ColorsAllowed,InterActiveEdit]); ELSE IF WhichOne = 'WEBSITEURL' THEN
Abort := (BBSList.WebSiteUrl = ''); BEGIN
END; Prt(Question+' ');
'5' : BEGIN MPL(SizeOf(BBSList.WebSiteUrl) - 1);
PRT(Question+' '); InputMain(BBSList.WebSiteUrl,(SizeOf(BBSList.WebSiteUrl) - 1),[ColorsAllowed,InterActiveEdit]);
MPL(SizeOf(BBSList.PhoneNumber) - 1); {Abort := (BBSList.WebSiteUrl = '');}
InputMain(BBSList.PhoneNumber,(SizeOf(BBSList.PhoneNumber) - 1),[ColorsAllowed,InterActiveEdit]); END
Abort := (BBSList.PhoneNumber = ''); ELSE IF WhichOne = 'PHONENUMBER' THEN
END; BEGIN
'6' : BEGIN PRT(Question+' ');
PRT(Question+' '); MPL(SizeOf(BBSList.PhoneNumber) - 1);
MPL(SizeOf(BBSList.Software) - 1); InputMain(BBSList.PhoneNumber,(SizeOf(BBSList.PhoneNumber) - 1),[ColorsAllowed,InterActiveEdit]);
InputMain(BBSList.Software,(SizeOf(BBSList.Software) - 1),[ColorsAllowed,InterActiveEdit,UpperOnly]); {Abort := (BBSList.PhoneNumber = '');}
Abort := (BBSList.Software = ''); END
END; ELSE IF WhichOne = 'SOFTWARE' THEN
'7' : BEGIN BEGIN
PRT(Question+' '); PRT(Question+' ');
MPL(SizeOf(BBSList.Speed) - 1); MPL(SizeOf(BBSList.Software) - 1);
InputMain(BBSList.Speed,(SizeOf(BBSList.Speed) - 1),[ColorsAllowed,InterActiveEdit]); InputMain(BBSList.Software,(SizeOf(BBSList.Software) - 1),[ColorsAllowed,InterActiveEdit]);
Abort := (BBSList.Speed = ''); {Abort := (BBSList.Software = '');}
END; END
'8' : BEGIN ELSE IF WhichOne = 'SOFTWAREVERSION' THEN
Print(Question); BEGIN
MPL(SizeOf(BBSList.Description) - 1); Prt(Question+' ');
InputMain(BBSList.Description,(SizeOf(BBSList.Description) - 1),[ColorsAllowed,InterActiveEdit]); MPL(SizeOf(BBSList.SoftwareVersion) - 1);
Abort := (BBSList.Description = ''); InputMain(BBSList.SoftwareVersion,(SizeOf(BBSList.SoftwareVersion) - 1),[ColorsAllowed,InterActiveEdit]);
END; END
'9' : BEGIN ELSE IF WhichOne = 'OS' THEN
IF (Question <> 'þ') THEN BEGIN
Print(Question); Prt(Question+' ');
MPL(SizeOf(BBSList.Description2) - 1); MPL(SizeOf(BBSList.OS) - 1);
InputMain(BBSList.Description2,(SizeOf(BBSList.Description2) - 1),[ColorsAllowed,InterActiveEdit]); InputMain(BBSList.OS,(SizeOf(BBSList.OS) - 1),[ColorsAllowed,InterActiveEdit]);
Abort := (BBSList.Description2 = ''); END
END; ELSE IF WhichOne = 'SPEED' THEN
'A' : BEGIN BEGIN
Print(Question); PRT(Question+' ');
MPL(SizeOf(BBSList.xA) - 1); MPL(SizeOf(BBSList.Speed) - 1);
InputMain(BBSList.xA,(SizeOf(BBSList.xA) - 1),[ColorsAllowed,InterActiveEdit]); InputMain(BBSList.Speed,(SizeOf(BBSList.Speed) - 1),[ColorsAllowed,InterActiveEdit]);
Abort := (BBSList.xA = ''); {Abort := (BBSList.Speed = '');}
END; END
'B' : BEGIN ELSE IF WhichOne = 'HOURS' THEN
Print(Question); BEGIN
MPL(SizeOf(BBSList.xB) - 1); PRT(Question+' ');
InputMain(BBSList.xB,(SizeOf(BBSList.xB) - 1),[ColorsAllowed,InterActiveEdit]); MPL(SizeOf(BBSList.Hours) - 1);
Abort := (BBSList.xB = ''); InputMain(BBSList.Hours,(SizeOf(BBSList.Hours) - 1),[ColorsAllowed,InterActiveEdit]);
END; {Abort := (BBSList.Speed = '');}
'C' : BEGIN END
Print(Question); ELSE IF WhichOne = 'DESCRIPTION' THEN
MPL(SizeOf(BBSList.xC) - 1); BEGIN
InputMain(BBSList.xC,(SizeOf(BBSList.xC) - 1),[ColorsAllowed,InterActiveEdit]); Prt(Question);
Abort := (BBSList.xC = ''); MPL(SizeOf(BBSList.Description) - 1);
END; InputMain(BBSList.Description,(SizeOf(BBSList.Description) - 1),[ColorsAllowed,InterActiveEdit]);
'D' : BEGIN {Abort := (BBSList.Description = '');}
Print(Question); END
MPL(SizeOf(BBSList.xD) - 1); ELSE IF WhichOne = 'DESCRIPTION2' THEN
InputMain(BBSList.xD,(SizeOf(BBSList.xD) - 1),[ColorsAllowed,InterActiveEdit]); BEGIN
Abort := (BBSList.xD = ''); Prt(Question);
END; MPL(SizeOf(BBSList.Description2) - 1);
'E' : BEGIN InputMain(BBSList.Description2,(SizeOf(BBSList.Description2) - 1),[ColorsAllowed,InterActiveEdit]);
Print(Question); {Abort := (BBSList.Description2 = '');}
MPL(SizeOf(BBSList.xE) - 1); END
InputMain(BBSList.xE,(SizeOf(BBSList.xE) - 1),[ColorsAllowed,InterActiveEdit]); ELSE IF WhichOne = 'MAXNODES' THEN
Abort := (BBSList.xE = ''); BEGIN
END;
'F' : BEGIN MPL(SizeOf(BBSList.MaxNodes) - 1);
Print(Question); IF (BBSList.MaxNodes = 0) THEN
MPL(SizeOf(BBSList.xF) - 1); BBSList.MaxNodes := 5;
InputMain(BBSList.xF,(SizeOf(BBSList.xF) - 1),[ColorsAllowed,InterActiveEdit]); InputLongIntWoc(Question,BBSList.MaxNodes,[NumbersOnly,InteractiveEdit],1,1000);
Abort := (BBSList.xF = '');
END; END
ELSE IF WhichOne = 'PORT' THEN
BEGIN
IF (BBSList.Port = 0) THEN
BBSList.Port := 23;
MPL(SizeOf(BBSList.Port) - 1);
InputWordWoc(Question,BBSList.Port,[NumbersOnly,InterActiveEdit],1,65535);
END
ELSE IF WhichOne = 'LOCATION' THEN
BEGIN
Prt(Question+' ');
MPL(SizeOf(BBSList.Location) - 1);
InputMain(BBSList.Location,(SizeOf(BBSList.Location) - 1),[ColorsAllowed,InterActiveEdit]);
END
ELSE IF WhichOne = 'BIRTH' THEN
BEGIN
TmpBirth := BBSList.Birth;
IF (Length(TmpBirth) < 10) THEN
TmpBirth := '12/31/1969';
MPL(10);
InputFormatted(Question+' |08(|07'+TmpBirth+'|08) |15: ',BBSList.Birth,'##/##/####',TRUE);
IF (Length(BBSList.Birth) <= 0) THEN
BBSList.Birth := TmpBirth;
END
ELSE IF WhichOne = 'SDA' THEN
BEGIN
Prt(Question+' ');
MPL(SizeOf(BBSList.SDA) - 1);
InputMain(BBSList.SDA,(SizeOf(BBSList.SDA) - 1),[ColorsAllowed,InterActiveEdit]);
{Abort := (BBSList.xA = '');}
END
ELSE IF WhichOne = 'SDB' THEN
BEGIN
Prt(Question+' ');
MPL(SizeOf(BBSList.SDB) - 1);
InputMain(BBSList.SDB,(SizeOf(BBSList.SDB) - 1),[ColorsAllowed,InterActiveEdit]);
{Abort := (BBSList.xB = '');}
END
ELSE IF WhichOne = 'SDC' THEN
BEGIN
Prt(Question+' ');
MPL(SizeOf(BBSList.SDC) - 1);
InputMain(BBSList.SDC,(SizeOf(BBSList.SDC) - 1),[ColorsAllowed,InterActiveEdit]);
{ Abort := (BBSList.xC = ''); }
END
ELSE IF WhichOne = 'SDD' THEN BEGIN
Prt(Question+' ');
MPL(SizeOf(BBSList.SDD) - 1);
InputMain(BBSList.SDD,(SizeOf(BBSList.SDD) - 1),[ColorsAllowed,InterActiveEdit]);
{ Abort := (BBSList.xD = '');}
END
ELSE IF WhichOne = 'SDE' THEN
BEGIN
Print(Question);
MPL(SizeOf(BBSList.SDE) - 1);
InputMain(BBSList.SDE,(SizeOf(BBSList.SDE) - 1),[ColorsAllowed,InterActiveEdit]);
{Abort := (BBSList.xE = '');}
END
ELSE IF WhichOne = 'SDF' THEN
BEGIN
Print(Question);
MPL(SizeOf(BBSList.SDF) - 1);
InputMain(BBSList.SDF,(SizeOf(BBSList.SDF) - 1),[ColorsAllowed,InterActiveEdit]);
{Abort := (BBSList.xF = '');}
END
ELSE IF WhichOne = 'SDG' THEN
BEGIN
MPL(SizeOf(BBSList.SDG) - 1);
InputWordWoc(Question,BBSList.SDG,[NumbersOnly,InterActiveEdit],1,65535);
{Abort := (BBSList.xE = '');}
END
ELSE IF WhichOne = 'SDH' THEN
BEGIN
BBSList.SDH := PYNQ(Question+' ',0,TRUE);
END
ELSE IF WhichOne = 'SDI' THEN
BEGIN
BBSList.SDI := PYNQ(Question+' ',6,FALSE);
END; END;
END;
END; END;
END;
Close(BBSScriptText); Close(BBSScriptText);
LastError := IOResult; LastError := IOResult;
END; END;
@ -342,7 +483,7 @@ BEGIN
IF (BBSListScript_Exists) AND (BBSListAddScreens_Exists) THEN IF (BBSListScript_Exists) AND (BBSListAddScreens_Exists) THEN
BEGIN BEGIN
NL; NL;
IF PYNQ('Would you like to add an entry to the BBS List? ',0,FALSE) THEN IF PYNQ(' Add an entry to the BBS list? ',0,FALSE) THEN
BEGIN BEGIN
FillChar(BBSList,SizeOf(BBSList),0); FillChar(BBSList,SizeOf(BBSList),0);
BBSListScriptFile(BBSList); BBSListScriptFile(BBSList);
@ -353,13 +494,13 @@ BEGIN
DisplayBuffer(BBSListMCI,@BBSList,Data2); DisplayBuffer(BBSListMCI,@BBSList,Data2);
PrintF('BBSNT'); PrintF('BBSNT');
NL; NL;
IF (PYNQ('Would you like to save this BBS Listing? ',0,TRUE)) THEN IF (PYNQ(' Save '+BBSList.BBSName+'? ',0,TRUE)) THEN
BEGIN BEGIN
Assign(BBSListFile,General.DataPath+'BBSLIST.DAT'); Assign(BBSListFile,General.DataPath+'BBSLIST.DAT');
IF (Exist(General.DataPath+'BBSLIST.DAT')) THEN IF (Exist(General.DataPath+'BBSLIST.DAT')) THEN
Reset(BBSListFile) Reset(BBSListFile)
ELSE ELSE
Rewrite(BBSListFile); Rewrite(BBSListFile);
Seek(BBSListFile,FileSize(BBSListFile)); Seek(BBSListFile,FileSize(BBSListFile));
BBSList.UserID := UserNum; BBSList.UserID := UserNum;
BBSList.DateAdded := GetPackDateTime; BBSList.DateAdded := GetPackDateTime;
@ -399,11 +540,11 @@ BEGIN
Read(BBSListFile,BBSList); Read(BBSListFile,BBSList);
IF (BBSList.UserID = UserNum) OR (CoSysOp) THEN IF (BBSList.UserID = UserNum) OR (CoSysOp) THEN
BEGIN BEGIN
PrintF('BBSLET'); PrintF('BBSLDT');
ReadBuffer('BBSLEM'); ReadBuffer('BBSLEM');
DisplayBuffer(BBSListMCI,@BBSList,Data2); DisplayBuffer(BBSListMCI,@BBSList,Data2);
NL; NL;
IF (PYNQ('Would you like to delete this BBS Listing? ',0,FALSE)) THEN IF (PYNQ(' Delete '+BBSLIST.BBSName+'? ',0,FALSE)) THEN
BEGIN BEGIN
SysOpLog('Deleted BBS Listing: '+BBSList.BBSName+'.'); SysOpLog('Deleted BBS Listing: '+BBSList.BBSName+'.');
IF ((OnRec - 1) <= (FileSize(BBSListFile) - 2)) THEN IF ((OnRec - 1) <= (FileSize(BBSListFile) - 2)) THEN
@ -428,7 +569,7 @@ BEGIN
IF (NOT Found) THEN IF (NOT Found) THEN
BEGIN BEGIN
NL; NL;
Print('You may only delete BBS Listing''s that you have entered.'); Print(' You may only delete BBS Listing''s that you have entered.');
SysOpLog('Tried to delete a BBS Listing.'); SysOpLog('Tried to delete a BBS Listing.');
END; END;
END; END;
@ -440,6 +581,7 @@ VAR
BBSList: BBSListRecordType; BBSList: BBSListRecordType;
OnRec: Longint; OnRec: Longint;
Found: Boolean; Found: Boolean;
Edit : LongInt;
BEGIN BEGIN
IF (BBSList_Exists) AND (BBSListEditScreens_Exists) AND (BBSListAddScreens_Exists) THEN IF (BBSList_Exists) AND (BBSListEditScreens_Exists) AND (BBSListAddScreens_Exists) THEN
BEGIN BEGIN
@ -449,17 +591,43 @@ BEGIN
Found := FALSE; Found := FALSE;
Abort := FALSE; Abort := FALSE;
OnRec := 1; OnRec := 1;
WHILE (OnRec <= FileSize(BBSListFile)) AND (NOT Abort) AND (NOT HangUp) DO WHILE (NOT Abort) AND (NOT HangUp) DO
BEGIN BEGIN
Seek(BBSListFile,(OnRec - 1));
PrintF('BBSLEDT');
ReadBuffer('BBSLEM');
While OnRec <= FileSize(BBSListFile) Do
Begin
Seek(BBSListFile, OnRec -1);
Read(BBSListFile,BBSList);
DisplayBuffer(BBSListMCI,@BBSList,Data2);
Inc(OnRec);
End;
NL;
MPL(FileSize(BBSListFile));
InputLongIntWOC(' Edit which BBS? :',Edit,[],1,FileSize(BBSListFile));
Abort := (Edit <> 0 );
IF (Edit <= FileSize(BBSListFile)) AND (Edit > 0) THEN
BEGIN
Seek(BBSListFile,(Edit -1))
END
ELSE
BEGIN
Close(BBSListFile);
Exit;
END;
Read(BBSListFile,BBSList); Read(BBSListFile,BBSList);
IF (BBSList.UserID = UserNum) OR (CoSysOp) THEN IF (BBSList.UserID = UserNum) OR (CoSysOp) OR (BBSList.SysopName = ThisUser.Name) THEN
BEGIN BEGIN
PrintF('BBSLET'); PrintF('BBSLEH');
ReadBuffer('BBSLEM'); ReadBuffer('BBSLEM');
DisplayBuffer(BBSListMCI,@BBSList,Data2); DisplayBuffer(BBSListMCI,@BBSList,Data2);
NL; NL;
IF (PYNQ('Would you like to edit this BBS Listing? ',0,FALSE)) THEN IF (PYNQ(' |03Would you like to edit this BBS Listing? |11',0,TRUE)) THEN
BEGIN BEGIN
BBSListScriptFile(BBSList); BBSListScriptFile(BBSList);
IF (NOT Abort) THEN IF (NOT Abort) THEN
@ -469,9 +637,9 @@ BEGIN
DisplayBuffer(BBSListMCI,@BBSList,Data2); DisplayBuffer(BBSListMCI,@BBSList,Data2);
PrintF('BBSNT'); PrintF('BBSNT');
NL; NL;
IF (PYNQ('Would you like to save this BBS Listing? ',0,TRUE)) THEN IF (PYNQ(' |03Would you like to save this BBS Listing? |11',0,TRUE)) THEN
BEGIN BEGIN
Seek(BBSListFile,(OnRec - 1)); Seek(BBSListFile,(Edit -1));
BBSList.DateEdited := GetPackDateTime; BBSList.DateEdited := GetPackDateTime;
Write(BBSListFile,BBSList); Write(BBSListFile,BBSList);
SysOpLog('Edited BBS Listing: '+BBSList.BBSName+'.'); SysOpLog('Edited BBS Listing: '+BBSList.BBSName+'.');
@ -480,14 +648,15 @@ BEGIN
END; END;
Found := TRUE; Found := TRUE;
END; END;
Inc(OnRec); {Inc(OnRec);}
Exit;
END; END;
Close(BBSListFile); Close(BBSListFile);
LastError := IOResult; LastError := IOResult;
IF (NOT Found) THEN IF (NOT Found) THEN
BEGIN BEGIN
NL; NL;
Print('You may only edit BBS Listing''s that you have entered.'); Print(' You may only edit BBS Listing''s that you have entered.');
SysOpLog('Tried to edit a BBS Listing.'); SysOpLog('Tried to edit a BBS Listing.');
END; END;
END; END;
@ -498,7 +667,9 @@ VAR
Data2: Pointer; Data2: Pointer;
BBSList: BBSListRecordType; BBSList: BBSListRecordType;
OnRec: Longint; OnRec: Longint;
Cnt : Byte;
BEGIN BEGIN
IF (BBSList_Exists) AND (BBSListAddScreens_Exists) THEN IF (BBSList_Exists) AND (BBSListAddScreens_Exists) THEN
BEGIN BEGIN
Assign(BBSListFile,General.DataPath+'BBSLIST.DAT'); Assign(BBSListFile,General.DataPath+'BBSLIST.DAT');
@ -508,12 +679,23 @@ BEGIN
Abort := FALSE; Abort := FALSE;
PrintF('BBSNH'); PrintF('BBSNH');
OnRec := 1; OnRec := 1;
Cnt := 1;
WHILE (OnRec <= FileSize(BBSListFile)) AND (NOT Abort) AND (NOT HangUp) DO WHILE (OnRec <= FileSize(BBSListFile)) AND (NOT Abort) AND (NOT HangUp) DO
BEGIN BEGIN
Seek(BBSListFile,(OnRec - 1)); Seek(BBSListFile,(OnRec - 1));
Read(BBSListFile,BBSList); Read(BBSListFile,BBSList);
DisplayBuffer(BBSListMCI,@BBSList,Data2); DisplayBuffer(BBSListMCI,@BBSList,Data2);
Inc(OnRec); Inc(OnRec);
Inc(Cnt);
If Cnt = (23 - 4) Then
Begin
PauseScr(True);
Cnt := 1;
End
Else
Begin
Cnt := Cnt;
End;
END; END;
Close(BBSListFile); Close(BBSListFile);
LastError := IOResult; LastError := IOResult;
@ -524,36 +706,65 @@ BEGIN
END; END;
END; END;
PROCEDURE BBSList_xView; (* Do we need xview *) PROCEDURE BBSList_xView; (* Do we need xview *) {Yes -sk}
VAR VAR
Data2: Pointer; Data2: Pointer;
BBSList: BBSListRecordType; BBSList: BBSListRecordType;
OnRec: Longint; OnRec: Longint;
Edit : Longint;
BEGIN BEGIN
IF (BBSList_Exists) THEN (* Add BBSME & BBSEH exist checking here *) IF (BBSList_Exists) THEN (* Add BBSME & BBSEH exist checking here *)
BEGIN BEGIN
Assign(BBSListFile,General.DataPath+'BBSLIST.DAT'); Assign(BBSListFile,General.DataPath+'BBSLIST.DAT');
Reset(BBSListFile); Reset(BBSListFile);
PrintF('BBSLEH');
ReadBuffer('BBSLEM');
OnRec := 1;
While OnRec <= FileSize(BBSListFile) Do
Begin
Seek(BBSListFile, OnRec -1);
Read(BBSListFile,BBSList);
DisplayBuffer(BBSListMCI,@BBSList,Data2);
Inc(OnRec);
End;
PrintF('BBSLET');
NL;
MPL(FileSize(BBSListFile));
InputLongIntWOC(' View which BBS? :',Edit,[],1,FileSize(BBSListFile));
Abort := (Edit <> 0 );
IF (Edit <= FileSize(BBSListFile)) AND (Edit > 0) THEN
BEGIN
Seek(BBSListFile,(Edit -1));
Read(BBSListFile,BBSList);
Close(BBSListFile);
END
ELSE
BEGIN
Close(BBSListFile);
Exit;
END;
IF (ReadBuffer('BBSME')) THEN IF (ReadBuffer('BBSME')) THEN
BEGIN BEGIN
AllowContinue := TRUE; AllowContinue := TRUE;
Abort := FALSE; Abort := FALSE;
PrintF('BBSEH'); PrintF('BBSEH');
OnRec := 1; WHILE (NOT Abort) AND (NOT HangUp) DO
WHILE (OnRec <= FileSize(BBSListFile)) AND (NOT Abort) AND (NOT HangUp) DO
BEGIN BEGIN
Seek(BBSListFile,(OnRec - 1)); DisplayBuffer(BBSListMCI,@BBSList,Data2);
Read(BBSListFile,BBSList); PrintF('BBSET');
DisplayBuffer(BBSListMCI,@BBSList,Data2);
Inc(OnRec);
END;
IF (NOT Abort) THEN
PrintF('BBSET');
AllowContinue := FALSE; AllowContinue := FALSE;
PauseScr(FALSE); {PauseScr(FALSE);}
SysOpLog('Viewed the BBS Listing.'); SysOpLog('Viewed Extended BBS Listing of '+BBSList.BBSName+'.');
Exit;
END;
END; END;
Close(BBSListFile); {Close(BBSListFile);}
LastError := IOResult; LastError := IOResult;
END; END;
END; END;

49
SOURCE/RECORDS.PAS
View File

@ -932,25 +932,36 @@ TYPE
BBSListRecordType = { *.BBS file records } BBSListRecordType = { *.BBS file records }
{$IFDEF WIN32} PACKED {$ENDIF} RECORD {$IFDEF WIN32} PACKED {$ENDIF} RECORD
RecordNum: LongInt; { Number OF the Record For Edit } RecordNum, { Number OF the Record For Edit }
UserID: LongInt; { User ID OF person adding this } UserID, { User ID OF person adding this }
BBSName: STRING[30]; { Name OF BBS } MaxNodes : LongInt; { Maximum Number Of Nodes }
SysOpName: STRING[30]; { SysOp OF BBS } Port : Word; { Telnet Port }
TelnetUrl: STRING[60]; { Telnet Urls } BBSName : STRING[30]; { Name OF BBS }
WebSiteUrl: STRING[60]; { Web Site Url } SysOpName : STRING[30]; { SysOp OF BBS }
PhoneNumber: STRING[20]; { Phone number OF BBS } TelnetUrl : STRING[60]; { Telnet Urls }
Software: STRING[8]; { Software used by BBS } WebSiteUrl : STRING[60]; { Web Site Url }
Speed: STRING[8]; { Highest connect speed OF BBS } PhoneNumber : STRING[20]; { Phone number OF BBS }
Description: STRING[60]; { Description OF BBS } Location : STRING[30]; { Location of BBS }
Description2: STRING[60]; { Second line OF descrition } Software, { Software used by BBS }
DateAdded: UnixTime; { Date entry was added } SoftwareVersion : String[12]; { Software Version of BBS }
DateEdited: UnixTime; { Date entry was last edited } OS : STRING[20]; { Operating System of BBS }
XA: STRING[8]; { sysop definable A } Speed : STRING[8]; { Highest connect speed OF BBS }
XB: STRING[30]; { sysop definable B } Hours : STRING[20]; { Hours of Operation }
XC: STRING[30]; { sysop definable C } Birth : STRING[10]; { When the BBS Began }
XD: STRING[40]; { sysop definable D } Description : STRING[60]; { Description OF BBS }
XE: STRING[60]; { sysop definable E } Description2 : STRING[60]; { Second line OF descrition }
XF: STRING[60]; { sysop definable F } DateAdded : UnixTime; { Date entry was added }
DateEdited : UnixTime; { Date entry was last edited }
SDA : STRING[8]; { sysop definable A }
SDB : STRING[30]; { sysop definable B }
SDC : STRING[30]; { sysop definable C }
SDD : STRING[40]; { sysop definable D }
SDE : STRING[60]; { sysop definable E }
SDF : STRING[60]; { sysop definable F }
SDG : Word; { sysop definable G }
SDH, { sysop definable H }
SDI : Boolean; { sysop definable I }
END; END;
MenuFlagType = MenuFlagType =

61
SOURCE/UPGRADE/BBSLIST.SCR Normal file
View File

@ -0,0 +1,61 @@
#
# This is an example of a bbslist template.
#
# Anything after a '#' is considered a comment and is ignored.
# Anything That doesn't begin with a [ is ignored.
#
# [BBSName]: BBS Name
# [SysOpName]: Sysop Name
# [MaxNodes]: Max Nodes
# [Port]: Telnet Port
# [TelnetUrl]: Telnet Url
# [WebSiteUrl]: Website
# [PhoneNumber]: BBS Phone Number
# [Location]: Location of BBS
# [Software]: BBS Software Used
# [SoftwareVersion]: BBS Software Version
# [OS]: Operating System of BBS
# [Speed]: Speed of the BBS
# [Hours]: Hours of Operation
# [Birth]: When the bbs started
# [Description]: Description
# [Description2]: Description 2
# [SDA]: SysOp Definable String 8
# [SDB]: SysOp Definable String 30
# [SDC]: SysOp Definable String 30
# [SDD]: SysOp Definable String 40
# [SDE]: SysOp Definable String 60
# [SDF]: SysOp Definable String 60
# [SDG]: SysOp Definable Number
# [SDH]: SysOp Definable Yes/No (Default Yes)
# [SDI]: SysOp Definable Yes/No (Default No)
# if you want to ask the questions in a certain order change the order.
# if you don't want to ask a question then leave it out.
#
# MCI and Pipe Color Codes are allowed in the question.
#
# Start BBS List Questions
#
[BBSName]:%DFAEBBS%%LF |03Enter the Name of BBS |15:|11
[SysOpName]:%LF |03What is the Sysop of this BBS name? |15:|11
[TelnetUrl]:%LF |03What is the Telnet Address of the BBS?%LF |15:|11
[Port]:%LF |03What port can this BBS be reached at? |15:|08
[WebSiteUrl]:%LF |03What is the web address of the BBS?%LF |15:|11
[PhoneNumber]:%DFAEBBS%%LF |03BBS Phone Number |08(|07if any|08) |15:|11
[Location]:%LF |03What is the location of this BBS? |15:|11
[Software]:%LF |03What Software does this BBS use? |15:|11
[SoftwareVersion]:%LF |03Software Version? |15:|11
[OS]:%LF |03Operating System? |15:|11
[MaxNodes]:%LF |03How Many Nodes? |15:|08
[Speed]:%DFAEBBS%%LF |03What is the Speed of the BBS? |08(|072400, 56700, Telnet|08) |15:|11
[Hours]:%LF |03What hours does this bbs run? |08(|0724/7 |08.. |076am-3pm|08) |15:|11
[Birth]:%LF |03When did this bbs start?
[Description]:%LF |03Enter a small description of the BBS 60 Chars Max. 2 Lines%LF |15 : |11
[Description2]: |15: |11
#[SDG]:%LF |03Number Test? |15:|08
#[SDH]:%LF |03BBS Is 24/7? |15:|11
#[SDI]:%LF |03Private Nodes? |15:|11

217
SOURCE/UPGRADE/FIXBBSL.PAS Normal file
View File

@ -0,0 +1,217 @@
Program FixBBSL;
Uses
Dos,
Crt,
Common,
BBSList;
Type
UnixTime = Longint;
OldBBSListRecordType = { *.BBS file records }
{$IFDEF WIN32} PACKED {$ENDIF} RECORD
RecordNum : LongInt; { Number OF the Record For Edit }
UserID : LongInt; { User ID OF person adding this }
BBSName : STRING[30]; { Name OF BBS }
SysOpName : STRING[30]; { SysOp OF BBS }
TelnetUrl : STRING[60]; { Telnet Urls }
WebSiteUrl : STRING[60]; { Web Site Url }
PhoneNumber : STRING[20]; { Phone number OF BBS }
Software : STRING[8]; { Software used by BBS }
Speed : STRING[8]; { Highest connect speed OF BBS }
Description : STRING[60]; { Description OF BBS }
Description2 : STRING[60]; { Second line OF descrition }
DateAdded : UnixTime; { Date entry was added }
DateEdited : UnixTime; { Date entry was last edited }
XA : STRING[8]; { sysop definable A }
XB : STRING[30]; { sysop definable B }
XC : STRING[30]; { sysop definable C }
XD : STRING[40]; { sysop definable D }
XE : STRING[60]; { sysop definable E }
XF : STRING[60]; { sysop definable F }
END;
NewBBSListRecordType = { New *.BBS file records }
{$IFDEF WIN32} PACKED {$ENDIF} RECORD
RecordNum, { Number OF the Record For Edit }
UserID, { User ID OF person adding this }
MaxNodes : LongInt; { Maximum Number Of Nodes }
Port : Word; { Telnet Port }
BBSName : STRING[30]; { Name OF BBS }
SysOpName : STRING[30]; { SysOp OF BBS }
TelnetUrl : STRING[60]; { Telnet Urls }
WebSiteUrl : STRING[60]; { Web Site Url }
PhoneNumber : STRING[20]; { Phone number OF BBS }
Location : STRING[30]; { Location of BBS }
Software, { Software used by BBS }
SoftwareVersion : String[12]; { Software Version of BBS }
OS : STRING[20]; { Operating System of BBS }
Speed : STRING[8]; { Highest connect speed OF BBS }
Hours : STRING[20]; { Hours of Operation }
Birth : STRING[10]; { When The BBS Began }
Description : STRING[60]; { Description OF BBS }
Description2 : STRING[60]; { Second line OF descrition }
DateAdded : UnixTime; { Date entry was added }
DateEdited : UnixTime; { Date entry was last edited }
SDA : STRING[8]; { sysop definable A }
SDB : STRING[30]; { sysop definable B }
SDC : STRING[30]; { sysop definable C }
SDD : STRING[40]; { sysop definable D }
SDE : STRING[60]; { sysop definable E }
SDF : STRING[60]; { sysop definable F }
SDG : Word; { sysop definable G }
SDH, { sysop definable H }
SDI : Boolean; { sysop definable I }
END;
Var
OldBBSFile : File Of OldBBSListRecordType;
OldBBSDat : OldBBSListRecordType;
BBSFile : File Of NewBBSListRecordType;
BBSDat : NewBBSListRecordType;
i : Integer;
TempFile,
Dir,
BBSListDat : String;
Function GetDataFile : String;
Var
Old : String;
Begin
GetDir(0,BBSListDat);
BBSListDat := BBSListDat+'\DATA\BBSLIST.DAT';
GetDir(0,Old);
Old := Old+'\DATA\BBSLIST.OLD';
If Exist(Old) Then
Begin
WriteLn;
TextColor(12);
Write(' ', Old);
TextColor(4);
WriteLn(' exists. ');
TextColor(7);
WriteLn(' It seems you have already run this program. ');
TextColor(7);
WriteLn(' There is no need to run it again.');
WriteLn;
Halt;
End
Else If Exist(BBSListDat) Then
Begin
GetDataFile := BBSListDat;
Exit;
End
Else
Begin
WriteLn;
TextColor(12);
Write(' ',BBSListDat);
TextColor(4);
WriteLn(' doesn''t exist');
TextColor(7);
WriteLn(' Run this from inside your RENEGADE Home Dir.');
WriteLn;
Halt;
End;
End;
Begin { Main Program }
BBSListDat := GetDataFile; { Get BBSLIST.DAT or Quit }
TempFile := 'DATA\BBSTEMP.DAT';
Assign(OldBBSFile, BBSListDat);
Assign(BBSFile, TempFile);
Reset(OldBBSFile);
Rewrite(BBSFile);
Seek(OldBBSFile, 0);
Seek(BBSFile, 0);
WriteLn;
TextColor(3);
Write(' Converting Old BBS Records ');
For i := 1 to FileSize(OldBBSFile) Do
Begin
Delay(200);
TextColor(11);
Write('.');
Read(OldBBSFile, OldBBSDat);
BBSDat.RecordNum := OldBBSDat.RecordNum;
BBSDat.UserID := OldBBSDat.UserID;
BBSDat.BBSName := OldBBSDat.BBSName;
BBSDat.SysOpName := OldBBSDat.SysOpName;
BBSDat.TelnetUrl := OldBBSDat.TelnetUrl;
BBSDat.WebSiteUrl := OldBBSDat.WebSiteUrl;
BBSDat.PhoneNumber := OldBBSDat.PhoneNumber;
BBSDat.Software := OldBBSDat.Software;
BBSDat.Speed := OldBBSDat.Speed;
BBSDat.Description := OldBBSDat.Description;
BBSDat.Description2 := OldBBSDat.Description2;
BBSDat.DateAdded := OldBBSDat.DateAdded;
BBSDat.DateEdited := OldBBSDat.DateEdited;
BBSDat.SDA := OldBBSDat.XA;
BBSDat.SDB := OldBBSDat.XB;
BBSDat.SDC := OldBBSDat.XC;
BBSDat.SDD := OldBBSDat.XD;
BBSDat.SDE := OldBBSDat.XE;
BBSDat.SDF := OldBBSDat.XF;
Write(BBSFile, BBSDat);
Seek(OldBBSFile, i);
Seek(BBSFile, i);
End;
TextColor(3);
WriteLn(' Done!');
GetDir(0,Dir);
WriteLn;
TextColor(3);
Write(' Copying ');
TextColor(11);
Write(Dir,'\DATA\BBSLIST.DAT ');
TextColor(3);
Write('to ');
TextColor(11);
Write(Dir,'\DATA\BBSLIST.OLD ');
TextColor(3);
Write('...');
Rename(OldBBSFile,Dir+'\DATA\BBSLIST.OLD');
TextColor(3);
WriteLn(' Done!');
TextColor(3);
Write(' Moving ');
TextColor(11);
Write(Dir,'\DATA\BBSTEMP.DAT ');
TextColor(3);
Write('to ');
TextColor(11);
Write(Dir,'\DATA\BBSLIST.DAT ');
TextColor(3);
Write('...');
Rename(BBSFile,Dir+'\DATA\BBSLIST.DAT');
TextColor(3);
WriteLn(' Done!');
WriteLn;
Close(OldBBSFile);
Close(BBSFile);
End.