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

Added new MCIs 

%PE (Null Pause)
%NL (Null MCI)
%AC (Area Code)
%FT (Total # of File Areas)
%MT (Total # of Message Areas)
%SA (Sysop available, [available, unavailable])
%SD (Total System Downloads)
%SM (Total System Usage)
%SP (Total System Posts)
%SU (Total System Uploads)
%TG (Display Random Tagline)
%TS (Total System Callers)

	Added New MCIs modified:   COMMON.PAS
	Removed git tag <<<<<HEAD modified:   SPLITCHA.PAS
This commit is contained in:
sk-5 2013-06-21 08:27:35 -07:00
parent 93b1ddbc91
commit cdf188cf6a
2 changed files with 5746 additions and 5690 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
SOURCE/COMMON.PAS
View File

@ -265,6 +265,10 @@ CONST
LastWFCX: Byte = 1; LastWFCX: Byte = 1;
LastWFCY: Byte = 1; LastWFCY: Byte = 1;
ANSIDetected: Boolean = FALSE; ANSIDetected: Boolean = FALSE;
{ Added June 21, 2013 //sk5 }
PauseIsNull : Boolean = FALSE; { Added for null pause }
BuildDate : Array [1..5] of Word = ( 5, 27, 2013, 9, 19 ); { Build date MM, DD, YYYY, HR, MIN }
VAR VAR
LightBarArray: ARRAY[1..50] OF LightBarRecordType; LightBarArray: ARRAY[1..50] OF LightBarRecordType;
LightBarCmd, LightBarCmd,
@ -292,6 +296,14 @@ VAR
DirInfo: SearchRec; DirInfo: SearchRec;
{ LastCallers }
LastCallerFile : FILE OF LastCallerRec;
LastCallers : LastCallerRec;
{ Today's History }
HistoryFile : FILE OF HistoryRecordType;
HistoryRec : HistoryRecordType;
{ Voting Variables } { Voting Variables }
VotingFile: FILE OF VotingRecordType; VotingFile: FILE OF VotingRecordType;
Topic: VotingRecordType; Topic: VotingRecordType;
@ -3362,19 +3374,26 @@ BEGIN
CASE s[i] OF CASE s[i] OF
'%' : IF MCIAllowed AND (i + 1 < Length(s)) THEN '%' : IF MCIAllowed AND (i + 1 < Length(s)) THEN
BEGIN BEGIN
IF (UpCase(s[i + 1]) = 'P') AND (UpCase(s[i + 2]) = 'A') THEN IF (UpCase(s[i + 1]) = 'P') AND (UpCase(s[i + 2]) = 'A') THEN { %PA Pause }
BEGIN BEGIN
Inc(i,2); Inc(i,2);
PauseScr(FALSE) PauseScr(FALSE)
END END
ELSE IF (UpCase(s[i + 1]) = 'P') AND (UpCase(s[i + 2]) = 'E') THEN { %PE Null Pause }
BEGIN
Inc(i,2);
PauseIsNull := TRUE;
PauseScr(FALSE);
PauseIsNull := FALSE;
END
ELSE IF (UpCase(s[i + 1]) = 'D') THEN ELSE IF (UpCase(s[i + 1]) = 'D') THEN
IF (UpCase(s[i + 2]) = 'E') THEN IF (UpCase(s[i + 2]) = 'E') THEN { %DE Delay }
BEGIN BEGIN
Inc(i,2); Inc(i,2);
OutKey(' '); OutKey(#8); { guard against +++ } OutKey(' '); OutKey(#8); { guard against +++ }
Delay(800); Delay(800);
END END
ELSE IF ((UpCase(s[i + 2]) = 'F') AND (NOT PrintingFile)) THEN ELSE IF ((UpCase(s[i + 2]) = 'F') AND (NOT PrintingFile)) THEN { %DF File Include }
BEGIN BEGIN
cs := ''; Inc(i, 3); cs := ''; Inc(i, 3);
WHILE (i < Length(s)) AND (s[i] <> '%') DO WHILE (i < Length(s)) AND (s[i] <> '%') DO
@ -4483,8 +4502,11 @@ BEGIN
{ Prompt(FString.Continue) } { Prompt(FString.Continue) }
lRGLngStr(44,FALSE) lRGLngStr(44,FALSE)
ELSE ELSE
BEGIN
IF NOT (PauseIsNull) THEN
{ Prompt({FString.lPause); } { Prompt({FString.lPause); }
lRGLngStr(5,FALSE); lRGLngStr(5,FALSE);
END;
LIL := 1; LIL := 1;
IF (IsCont) THEN IF (IsCont) THEN
BEGIN BEGIN
@ -4667,6 +4689,7 @@ BEGIN
'3' : Add := IntToStr(LowMsgArea); '3' : Add := IntToStr(LowMsgArea);
'4' : Add := IntToStr(HighMsgArea); '4' : Add := IntToStr(HighMsgArea);
'B' : Add := FormatNumber(lCredit - Debit); 'B' : Add := FormatNumber(lCredit - Debit);
'C' : Add := Copy(Ph,1,3);
'D' : Add := Street; 'D' : Add := Street;
'O' : BEGIN 'O' : BEGIN
IF (PrintingFile) OR (Reading_A_Msg) THEN IF (PrintingFile) OR (Reading_A_Msg) THEN
@ -4742,6 +4765,7 @@ BEGIN
'N' : Add := Copy(RealName,1,(Pos(' ', RealName) - 1)); 'N' : Add := Copy(RealName,1,(Pos(' ', RealName) - 1));
'P' : Add := FormatNumber(FilePoints); 'P' : Add := FormatNumber(FilePoints);
'S' : Add := AOnOff(NewScanFileArea,'','not '); 'S' : Add := AOnOff(NewScanFileArea,'','not ');
'T' : Add := IntToStr(NumFileAreas);
END; END;
'G' : CASE UpCase(S[Index + 2]) OF 'G' : CASE UpCase(S[Index + 2]) OF
'N' : AOnOff((Sex = 'M'),'Mr.','Ms.'); 'N' : AOnOff((Sex = 'M'),'Mr.','Ms.');
@ -4799,9 +4823,11 @@ BEGIN
'O' : Add := IntToStr((GetPackDateTime - TimeOn) DIV 60); 'O' : Add := IntToStr((GetPackDateTime - TimeOn) DIV 60);
'R' : Add := IntToStr(HiMsg - Msg_On); 'R' : Add := IntToStr(HiMsg - Msg_On);
'S' : Add := AOnOff(LastReadRecord.NewScan,'','not '); 'S' : Add := AOnOff(LastReadRecord.NewScan,'','not ');
'T' : Add := IntToStr(NumMsgAreas);
END; END;
'N' : CASE UpCase(S[Index + 2]) OF 'N' : CASE UpCase(S[Index + 2]) OF
'D' : Add := IntToStr(ThisNode); 'D' : Add := IntToStr(ThisNode);
'L' : Add := '';
'M' : Add := ShowOnOff(General.NetworkMode); 'M' : Add := ShowOnOff(General.NetworkMode);
'R' : IF (Downloads > 0) THEN 'R' : IF (Downloads > 0) THEN
Str((Uploads / Downloads):3:3,Add) Str((Uploads / Downloads):3:3,Add)
@ -4832,6 +4858,16 @@ BEGIN
ELSE ELSE
Add := 'Open'; Add := 'Open';
'9' : Add := ShowOnOff(Color IN Flags); '9' : Add := ShowOnOff(Color IN Flags);
'S' : BEGIN
CASE Tasker OF
None : Add := 'DOS';
DV : Add := 'DV';
Win : Add := 'Windows';
OS2 : Add := 'OS/2';
Win32 : Add := 'Windows 32bit';
Dos5N : Add := 'DOS/N';
END;
END;
END; END;
'P' : CASE UpCase(S[Index + 2]) OF 'P' : CASE UpCase(S[Index + 2]) OF
'1' : Add := General.MsgPath; '1' : Add := General.MsgPath;
@ -4871,9 +4907,14 @@ BEGIN
'1' : Add := lRGLngStr(41,TRUE); {FString.UserDefEd[Ord(S[Index + 2]) - 48]; } '1' : Add := lRGLngStr(41,TRUE); {FString.UserDefEd[Ord(S[Index + 2]) - 48]; }
'2' : Add := lRGLngStr(42,TRUE); {FString.UserDefEd[Ord(S[Index + 2]) - 48]; } '2' : Add := lRGLngStr(42,TRUE); {FString.UserDefEd[Ord(S[Index + 2]) - 48]; }
'3' : Add := lRGLngStr(43,TRUE); {FString.UserDefEd[Ord(S[Index + 2]) - 48]; } '3' : Add := lRGLngStr(43,TRUE); {FString.UserDefEd[Ord(S[Index + 2]) - 48]; }
'A' : Add := AOnOff((SysOpAvailable), 'available','unavailable' );
'C' : Add := FormatNumber(General.CallerNum); 'C' : Add := FormatNumber(General.CallerNum);
'D' : Add := IntToStr(General.TotalDloads);
'L' : Add := IntToStr(SL); 'L' : Add := IntToStr(SL);
'M' : Add := IntToStr(General.TotalUsage);
'N' : Add := General.SysopName; 'N' : Add := General.SysopName;
'P' : Add := IntToStr(General.TotalPosts);
'U' : Add := IntToStr(General.TotalUloads);
'X' : Add := AOnOff((Sex = 'M'),'Male','Female'); 'X' : Add := AOnOff((Sex = 'M'),'Male','Female');
END; END;
'T' : CASE UpCase(S[Index + 2]) OF 'T' : CASE UpCase(S[Index + 2]) OF
@ -4882,11 +4923,27 @@ BEGIN
'B' : Add := FormatNumber(TimeBank); 'B' : Add := FormatNumber(TimeBank);
'C' : Add := FormatNumber(LoggedOn); 'C' : Add := FormatNumber(LoggedOn);
'D' : Add := FormatNumber(DLToday); 'D' : Add := FormatNumber(DLToday);
'G' : Add := GetTagLine;
'I' : Add := TimeStr; 'I' : Add := TimeStr;
'K' : Add := ConvertBytes(DLKToday * 1024,FALSE); 'K' : Add := ConvertBytes(DLKToday * 1024,FALSE);
'L' : Add := CTim(NSL); 'L' : Add := CTim(NSL);
'N' : Add := Liner.NodeTelnetURL; 'N' : Add := Liner.NodeTelnetURL;
'O' : Add := IntToStr(General.TimeAllow[SL] - TLToday); 'O' : Add := IntToStr(General.TimeAllow[SL] - TLToday);
'S' : BEGIN
Assign(HistoryFile, General.DataPath+'HISTORY.DAT');
{$I-} Reset(HistoryFile); {$I+}
IF (IOResult <> 0) THEN
BEGIN
Add := 'Error With HISTORY.DAT, Inform ' + General.SysOpName + '!';
END
ELSE
BEGIN
Seek(HistoryFile, (FileSize(HistoryFile)-1));
Read(HistoryFile, HistoryRec);
Add := IntToStr(HistoryRec.Callers);
Close(HistoryFile);
END;
END;
'T' : Add := FormatNumber(TTimeOn); 'T' : Add := FormatNumber(TTimeOn);
'U' : Add := IntToStr(General.NumUsers); 'U' : Add := IntToStr(General.NumUsers);
END; END;

1
SOURCE/SPLITCHA.PAS
View File

@ -1,4 +1,3 @@
<<<<<<< HEAD
{$IFDEF WIN32} {$IFDEF WIN32}
{$I DEFINES.INC} {$I DEFINES.INC}
{$ENDIF} {$ENDIF}