hedgewars/uFLGameConfig.pas
branchqmlfrontend
changeset 10892 83a99e2f8b00
parent 10888 a04e04aaf599
child 10951 89a7f617e091
--- a/hedgewars/uFLGameConfig.pas	Sat Apr 11 17:23:56 2015 +0300
+++ b/hedgewars/uFLGameConfig.pas	Sat Apr 11 22:39:29 2015 +0300
@@ -36,7 +36,7 @@
             theme: shortstring;
             script: shortstring;
             scheme: TScheme;
-            ammo: ansistring;
+            ammo: TAmmo;
             mapgen: Longint;
             gameType: TGameType;
             teams: array[0..7] of TTeam;
@@ -74,10 +74,7 @@
             i:= 0;
             while (i < 8) and (teams[i].hogsNumber > 0) do
                 begin
-                    ipcToEngine('eammloadt 93919294221991210322351110012000000002111001010111110001');
-                    ipcToEngine('eammprob 04050405416006555465544647765766666661555101011154111111');
-                    ipcToEngine('eammdelay 00000000000002055000000400070040000000002200000006000200');
-                    ipcToEngine('eammreinf 13111103121111111231141111111111111112111111011111111111');
+                    sendAmmoConfig(config^.ammo);
                     ipcToEngine('eammstore');
                     sendTeamConfig(teams[i]);
                     inc(i)
@@ -344,7 +341,7 @@
     ammo:= ammoByName(ammoName);
 
     if ammo <> nil then
-        currentConfig.ammo:= ammo^.ammoStr
+        currentConfig.ammo:= ammo^
 end;
 
 end.