hedgewars/uAmmos.pas
changeset 6762 85ba0c55d077
parent 6700 e04da46ee43c
child 6770 7d2c6cdb816a
--- a/hedgewars/uAmmos.pas	Sat Mar 10 15:56:36 2012 -0500
+++ b/hedgewars/uAmmos.pas	Sat Mar 10 16:10:38 2012 -0500
@@ -466,6 +466,7 @@
 end;
 
 procedure initModule;
+var i: Longword;
 begin
     RegisterVariable('ammloadt', vtCommand, @SetAmmoLoadout, false);
     RegisterVariable('ammdelay', vtCommand, @SetAmmoDelay, false);
@@ -478,6 +479,13 @@
     ammoProbability:= '';
     ammoDelay:= '';
     ammoReinforcement:= '';
+    for i:=1 to ord(High(TAmmoType)) do
+        begin
+        ammoLoadout:= ammoLoadout + '0';
+        ammoProbability:= ammoProbability + '0';
+        ammoDelay:= ammoDelay + '0';
+        ammoReinforcement:= ammoReinforcement + '0'
+        end;
     FillChar(InitialCounts, sizeof(InitialCounts), 0)
 end;