hedgewars/uAmmos.pas
changeset 4401 9cb6990af584
parent 4393 883b979697e4
child 4403 0dfe26f48ec1
--- a/hedgewars/uAmmos.pas	Sun Nov 21 10:53:50 2010 -0500
+++ b/hedgewars/uAmmos.pas	Sun Nov 21 19:07:43 2010 +0300
@@ -418,8 +418,22 @@
     if Ammoz[a].SkipTurns >= 10000 then dec(Ammoz[a].SkipTurns,10000)
 end;
 
+
+
+procedure chAddAmmoStore(var descr: shortstring);
+begin
+descr:= ''; // avoid compiler hint
+AddAmmoStore
+end;
+
 procedure initModule;
 begin
+    RegisterVariable('ammloadt', vtCommand, @SetAmmoLoadout, false);
+    RegisterVariable('ammdelay', vtCommand, @SetAmmoDelay, false);
+    RegisterVariable('ammprob',  vtCommand, @SetAmmoProbability, false);
+    RegisterVariable('ammreinf', vtCommand, @SetAmmoReinforcement, false);
+    RegisterVariable('ammstore', vtCommand, @chAddAmmoStore , false);
+
     StoreCnt:= 0;
     ammoLoadout:= '';
     ammoProbability:= '';