hedgewars/uFLGameConfig.pas
branchqmlfrontend
changeset 11456 6e9b12864856
parent 11455 0c75fa9ce340
child 11458 e7c7ca0c1556
--- a/hedgewars/uFLGameConfig.pas	Thu Dec 10 00:33:45 2015 +0300
+++ b/hedgewars/uFLGameConfig.pas	Thu Dec 10 23:49:12 2015 +0300
@@ -37,6 +37,7 @@
 procedure updatePreviewIfNeeded;
 
 procedure sendConfig(config: PGameConfig);
+procedure runNetGame();
 
 implementation
 uses uFLIPC, uFLUtils, uFLTeams, uFLThemes, uFLSChemes, uFLAmmo, uFLUICallback, uFLRunQueue, uFLNet;
@@ -191,6 +192,20 @@
     end;
 end;
 
+procedure runNetGame();
+begin
+    with currentConfig do
+    begin
+        gameType:= gtNet;
+        arguments[0]:= '';
+        arguments[1]:= '--internal';
+        arguments[2]:= '--nomusic';
+        argumentsNumber:= 3;
+
+        queueExecution(currentConfig);
+    end;
+end;
+
 procedure tryAddTeam(teamName: PChar); cdecl;
 var msg: ansistring;
     i, hn, hedgehogsNumber: Longword;