eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

User2User chat prototype

This commit is contained in:
mysticbbs 2012-03-13 22:32:37 -04:00
parent dc299c2af4
commit 1b17e6f96e
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mystic/bbs_userchat.pas
View File

@ -50,7 +50,7 @@ Begin
Session.io.PromptInfo[1] := TempChat.Name; 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); Send_Node_Message (ReqType, strI2S(ToNode) + ';C' + Str, 0);
End; End;
@ -60,6 +60,8 @@ Var
fOut : File; fOut : File;
fIn : File; fIn : File;
Ch : Char; Ch : Char;
Str1 : String = '';
Str2 : String = '';
Done : Boolean = False; Done : Boolean = False;
Begin Begin
Session.io.OutFullLn('|CR|15Chat mode begin.|CR'); Session.io.OutFullLn('|CR|15Chat mode begin.|CR');
@ -93,6 +95,16 @@ Begin
Ch := Session.io.InKey(25); Ch := Session.io.InKey(25);
Case Ch of 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 #27 : If Not Forced Then Begin
Ch := #255; Ch := #255;
BlockWrite (fOut, Ch, 1); BlockWrite (fOut, Ch, 1);