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

User 2 user line chat mode

This commit is contained in:
mysticbbs 2012-03-14 02:22:52 -04:00
parent b7579bd5a7
commit cb08f03b24
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mystic/bbs_nodeinfo.pas
View File

@ -219,6 +219,7 @@ Var
Image : TConsoleImageRec; Image : TConsoleImageRec;
Msg : NodeMsgRec; Msg : NodeMsgRec;
MsgFile : File of NodeMsgRec; MsgFile : File of NodeMsgRec;
SplitChat : Boolean;
Begin Begin
Result := False; Result := False;
FileMode := 66; FileMode := 66;
@ -246,6 +247,8 @@ Begin
Session.io.PromptInfo[2] := strI2S(Msg.FromNode); Session.io.PromptInfo[2] := strI2S(Msg.FromNode);
Session.io.PromptInfo[3] := Msg.Message; Session.io.PromptInfo[3] := Msg.Message;
SplitChat := (strS2I(Msg.Message) > 0) and (Session.io.Graphics > 0);
Case Msg.MsgType of Case Msg.MsgType of
2 : Begin 2 : Begin
Session.io.OutFullLn (Session.GetPrompt(179) + Msg.Message); Session.io.OutFullLn (Session.GetPrompt(179) + Msg.Message);
@ -255,15 +258,15 @@ Begin
Session.io.OutFullLn (Session.GetPrompt(144) + '|CR' + Msg.Message); Session.io.OutFullLn (Session.GetPrompt(144) + '|CR' + Msg.Message);
Session.io.OutFull (Session.GetPrompt(145)); Session.io.OutFull (Session.GetPrompt(145));
End; End;
8 : If Session.io.GetYN('|CL|15|&1 is requesting user to user chat. Accept? |11', True) Then Begin 8 : If Session.io.GetYN(Session.GetPrompt(485), True) Then Begin
Send_Node_Message (10, strI2S(Msg.FromNode) + ';C', 0); Send_Node_Message (10, strI2S(Msg.FromNode) + ';' + strI2S(Session.io.Graphics), 0);
OpenUserChat(False, Msg.FromNode); OpenUserChat(SplitChat, False, Msg.FromNode);
End; End;
9 : Begin 9 : Begin
Send_Node_Message (10, strI2S(Msg.FromNode) + ';C', 0); Send_Node_Message (10, strI2S(Msg.FromNode) + ';' + strI2S(Session.io.Graphics), 0);
OpenUserChat(True, Msg.FromNode); OpenUserChat(SplitChat, True, Msg.FromNode);
End; End;
10: OpenUserChat(False, Msg.FromNode); 10: OpenUserChat(SplitChat, False, Msg.FromNode);
End; End;
If Result And (Msg.MsgType = 3) Then If Result And (Msg.MsgType = 3) Then