hedgewars/uFLGameConfig.pas
branchqmlfrontend
changeset 10444 47a6231f1fc1
parent 10432 b0abef0ee78c
child 10446 7ae44f42a689
--- a/hedgewars/uFLGameConfig.pas	Mon Oct 20 22:55:12 2014 +0400
+++ b/hedgewars/uFLGameConfig.pas	Sat Oct 25 00:31:10 2014 +0400
@@ -11,6 +11,9 @@
 procedure setSeed(seed: PChar); cdecl;
 function  getSeed: PChar; cdecl;
 
+procedure tryAddTeam(teamName: PChar);
+procedure tryRemoveTeam(teamName: PChar);
+
 implementation
 uses uFLIPC, hwengine, uFLUtils, uFLTeams;
 
@@ -153,4 +156,26 @@
     registerIPCCallback(nil, @engineMessageCallback)
 end;
 
+
+procedure tryAddTeam(teamName: PChar);
+var msg: ansistring;
+begin
+    msg:= '0' + #10 + teamName;
+
+    guiCallbackFunction(guiCallbackPointer, mtAddPlayingTeam, @msg[1], length(msg));
+
+    msg:= teamName;
+
+    guiCallbackFunction(guiCallbackPointer, mtRemoveTeam, @msg[1], length(msg))
+end;
+
+procedure tryRemoveTeam(teamName: PChar);
+var msg: ansistring;
+begin
+    msg:= teamName;
+
+    guiCallbackFunction(guiCallbackPointer, mtRemovePlayingTeam, @msg[1], length(msg));
+    guiCallbackFunction(guiCallbackPointer, mtAddTeam, @msg[1], length(msg))
+end;
+
 end.