diff -r 4be6cd55f1cf -r 727a154cf784 hedgewars/uFLGameConfig.pas
--- a/hedgewars/uFLGameConfig.pas	Sat Sep 27 12:49:08 2014 +0400
+++ b/hedgewars/uFLGameConfig.pas	Sun Sep 28 00:18:01 2014 +0400
@@ -2,12 +2,88 @@
 
 interface
 
-procedure ResetGameConfig; cdecl; export;
+procedure resetGameConfig; cdecl; export;
+procedure runQuickGame; cdecl; export;
+procedure getPreview; cdecl; export;
 
 implementation
 
-procedure ResetGameConfig; cdecl;
+const
+    MAXCONFIGS = 5;
+    MAXARGS = 32;
+
+type
+    TGameType = (gtPreview, gtLocal);
+    THedgehog = record
+            name: shortstring;
+            hat: shortstring;
+            end;
+    TTeam = record
+            teamName: shortstring;
+            flag: shortstring;
+            graveName: shortstring;
+            fortName: shortstring;
+            owner: shortstring;
+            extDriven: boolean;
+            botLevel: Longword;
+            hedgehogs: array[0..7] of THedgehog;
+            hogsNumber: Longword;
+            end;
+    TGameConfig = record
+            seed: shortstring;
+            theme: shortstring;
+            script: shortstring;
+            gameType: TGameType;
+            teams: array[0..7] of TTeam;
+            arguments: array[0..Pred(MAXARGS)] of shortstring;
+            argv: array[0..Pred(MAXARGS)] of PChar;
+            argumentsNumber: Longword;
+            end;
+    PGameConfig = ^TGameConfig;
+
+var currentConfig: TGameConfig;
+
+procedure queueExecution;
+var pConfig: PGameConfig;
+    i: Longword;
+begin
+    new(pConfig);
+    pConfig^:= currentConfig;
+
+    with pConfig^ do
+        for i:= 0 to Pred(MAXARGS) do
+        begin
+            if arguments[i][0] = #255 then 
+                arguments[i][255] = #0
+            else
+                arguments[i][byte(arguments[i][0]) + 1] = #0;
+            argv[i]:= @arguments[i][1]
+        end;
+
+    RunEngine(pConfig^.argumentsNumber, @pConfig^.argv);
+end;
+
+procedure resetGameConfig; cdecl;
 begin
 end;
 
+procedure runQuickGame; cdecl; export;
+begin
+
+end;
+
+procedure getPreview; cdecl; export;
+begin
+    with currentConfig do
+    begin
+        gameType:= gtPreview;
+        arguments[0]:= '';
+        arguments[1]:= '--internal';
+        arguments[2]:= '--landpreview';
+        argumentsNumber:= 3;
+    end;
+
+    queueExecution
+end;
+
 end.