hedgewars/uFLTeams.pas
branchqmlfrontend
changeset 11446 321d0ce43568
parent 11445 465b4db35232
child 11454 3c5d99013baf
--- a/hedgewars/uFLTeams.pas	Sun Dec 06 20:07:35 2015 +0300
+++ b/hedgewars/uFLTeams.pas	Sun Dec 06 20:20:09 2015 +0300
@@ -11,6 +11,7 @@
 function teamByName(s: shortstring): PTeam;
 
 procedure sendTeam(var team: TTeam);
+procedure removeTeam(teamName: shortstring);
 
 implementation
 uses uFLUtils, uFLIPC, uPhysFSLayer, uFLData, uFLNet;
@@ -211,4 +212,10 @@
     end;
 end;
 
+procedure removeTeam(teamName: shortstring);
+begin
+    sendNetLn('REMOVE_TEAM');
+    sendNet(teamName)
+end;
+
 end.