From 1b17e6f96e03e519baa1c553aeb7081ce7464f90 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Tue, 13 Mar 2012 22:32:37 -0400
Subject: [PATCH] User2User chat prototype

---
 mystic/bbs_userchat.pas | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/mystic/bbs_userchat.pas b/mystic/bbs_userchat.pas
index 44bb395..19351c9 100644
--- a/mystic/bbs_userchat.pas
+++ b/mystic/bbs_userchat.pas
@@ -50,7 +50,7 @@ Begin
 
   Session.io.PromptInfo[1] := TempChat.Name;
 
-  Session.io.OutFull('|CRSending chat request to |&1...|DE|DE|CR');
+  Session.io.OutFull('|CR|15Sending chat request to |&1...|DE|DE|CR');
 
   Send_Node_Message (ReqType, strI2S(ToNode) + ';C' + Str, 0);
 End;
@@ -60,6 +60,8 @@ Var
   fOut : File;
   fIn  : File;
   Ch   : Char;
+  Str1 : String  = '';
+  Str2 : String  = '';
   Done : Boolean = False;
 Begin
   Session.io.OutFullLn('|CR|15Chat mode begin.|CR');
@@ -93,6 +95,16 @@ Begin
     Ch := Session.io.InKey(25);
 
     Case Ch of
+      #08 : If Screen.CursorX > 1 Then Begin
+              Str2 := #8#32#8;
+              BlockWrite (fOut, Str2[1], 3);
+              Session.io.OutBS(1, True);
+            End;
+      #13 : Begin
+              Str2 := #13#10;
+              BlockWrite (fOut, Str2[1], 2);
+              Session.io.OutRawLn('');
+            End;
       #27 : If Not Forced Then Begin
               Ch := #255;
               BlockWrite (fOut, Ch, 1);