hedgewars/uFLNetProtocol.pas
branchqmlfrontend
changeset 11416 78d6b99ddcb0
parent 11415 05cf35103206
child 11418 091149424aa4
--- a/hedgewars/uFLNetProtocol.pas	Thu Nov 19 23:04:53 2015 +0300
+++ b/hedgewars/uFLNetProtocol.pas	Thu Nov 19 23:32:28 2015 +0300
@@ -3,6 +3,8 @@
 
 procedure passNetData(p: pointer); cdecl;
 
+procedure sendChatLine(msg: PChar); cdecl;
+
 implementation
 uses uFLNetTypes, uFLTypes, uFLUICallback, uFLNet;
 
@@ -202,5 +204,11 @@
     handlers[TCmdData(p^).cmd.cmd](TCmdData(p^))
 end;
 
+procedure sendChatLine(msg: PChar); cdecl;
+begin
+    sendNetLn('CHAT');
+    sendNet(msg);
+end;
+
 end.