--- a/hedgewars/CCHandlers.inc	Thu Nov 30 22:36:07 2006 +0000
+++ b/hedgewars/CCHandlers.inc	Tue Dec 05 17:27:27 2006 +0000
@@ -117,11 +117,17 @@
    Gear:= AddGear(0, 0, gtHedgehog, 0);
    Gear.Hedgehog:= @CurrentTeam.Hedgehogs[b];
    PHedgehog(Gear.Hedgehog).Team:= CurrentTeam;
+   CurrentTeam.Hedgehogs[b].AmmoStore:= 0;
    CurrentTeam.Hedgehogs[b].Gear:= Gear
    end
 else OutError(errmsgUnknownVariable + ' "' + id + '"', true)
 end;
 
+procedure chAddAmmoStore(var descr: shortstring);
+begin
+AddAmmoStore(descr)
+end;
+
 procedure chBind(var id: shortstring);
 var s: shortstring;
     b: integer;