From 617ba66d5ea735007135dd91d8618c63b6ce5de1 Mon Sep 17 00:00:00 2001 From: Renegade-Exodus Date: Wed, 27 Feb 2013 01:19:58 -0500 Subject: [PATCH 1/3] Update SOURCE/RECORDS.PAS --- SOURCE/RECORDS.PAS | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/SOURCE/RECORDS.PAS b/SOURCE/RECORDS.PAS index 95ae759..e2fabd5 100644 --- a/SOURCE/RECORDS.PAS +++ b/SOURCE/RECORDS.PAS @@ -2,15 +2,15 @@ CONST Build = '1.20'; {$IFDEF MSDOS} - OS = '/Alpha'; + OS = '/DOS'; {$ENDIF} {$IFDEF WIN32} - OS = 'WIN32'; + OS = '/Win32'; {$ENDIF} {$IFDEF OS/2} - OS = 'OS/2'; + OS = '/OS/2'; {$ENDIF} Ver = Build + OS; @@ -998,4 +998,4 @@ TYPE CKeys: STRING[14]; { Command Execution Keys } CmdKeys: STRING[2]; { Command Keys: Type OF Command } Options: STRING[50]); { MString: Command Data } - END; \ No newline at end of file + END; From 88c5457a05010a6d8e9f36b8caafcb8ee8109dbe Mon Sep 17 00:00:00 2001 From: Renegade-Exodus Date: Wed, 27 Feb 2013 01:20:40 -0500 Subject: [PATCH 2/3] Update SOURCE/RECORDS.PAS --- SOURCE/RECORDS.PAS | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SOURCE/RECORDS.PAS b/SOURCE/RECORDS.PAS index e2fabd5..0490e34 100644 --- a/SOURCE/RECORDS.PAS +++ b/SOURCE/RECORDS.PAS @@ -10,7 +10,7 @@ CONST {$ENDIF} {$IFDEF OS/2} - OS = '/OS/2'; + OS = '/2'; {$ENDIF} Ver = Build + OS; From bf7037107087bab8786aa2c23593a9dd40d39495 Mon Sep 17 00:00:00 2001 From: Eric Date: Sun, 10 Mar 2013 09:21:18 -0700 Subject: [PATCH 3/3] Fix so user and op stay on their own sides. Used to scroll all the way down to line 25, now sysop and user stay on their own sides. --- SOURCE/SPLITCHA.PAS | 28 ++++++++++++++++++++++++---- 1 file changed, 24 insertions(+), 4 deletions(-) diff --git a/SOURCE/SPLITCHA.PAS b/SOURCE/SPLITCHA.PAS index a3e6d20..b179c7c 100644 --- a/SOURCE/SPLITCHA.PAS +++ b/SOURCE/SPLITCHA.PAS @@ -228,11 +228,11 @@ PROCEDURE SysOpChatWindow; BEGIN CLS; ANSIG(1,1); - Prompt('ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸'); + Prompt('������������������������������������������������������������������������������͸'); ANSIG(1,12); - Prompt('ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͵ CTRL-Z Help ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͵'); + Prompt('�������������������������������͵ CTRL-Z Help ��������������������������������͵'); ANSIG(1,23); - Prompt('ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;'); + Prompt('������������������������������������������������������������������������������;'); END; PROCEDURE SysOpSplitChat; @@ -391,7 +391,27 @@ VAR Inc(YPos); XPos := 2; - ANSIG(XPos,YPos); + { Fix Splitscreen so user and op stay on their own sides } + If (YPos = 12) Then + Begin + For i := 2 To 11 Do + Begin + ANSIG(1,i); + Clear_EOL; + End; + YPos := 2; + End + Else If (YPos = 23) Then + Begin + For i := 13 To 22 Do + Begin + ANSIG(1,i); + Clear_EOL; + End; + YPos := 13; + End; + + ANSIG(XPos,YPos); (* Do Cmds Here or add as Ctrl *)