branch | qmlfrontend |
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.