hedgewars/uFLGameConfig.pas
branchqmlfrontend
changeset 11440 330c14f4ba69
parent 11438 1a6148b4de3b
child 11442 6b04a266feee
--- a/hedgewars/uFLGameConfig.pas	Wed Dec 02 13:39:16 2015 +0300
+++ b/hedgewars/uFLGameConfig.pas	Wed Dec 02 22:21:23 2015 +0300
@@ -27,6 +27,7 @@
 procedure netSetMazeSize(mazesize: LongInt);
 procedure netSetTemplate(template: LongInt);
 procedure netSetAmmo(name: shortstring; definition: ansistring);
+procedure netSetScheme(scheme: TScheme);
 procedure updatePreviewIfNeeded;
 
 procedure sendConfig(config: PGameConfig);
@@ -408,4 +409,10 @@
     sendUI(mtAmmo, @name[1], length(name))
 end;
 
+procedure netSetScheme(scheme: TScheme);
+begin
+    currentConfig.scheme:= scheme;
+    sendUI(mtScheme, @scheme.schemeName[1], length(scheme.schemeName))
+end;
+
 end.