hedgewars/uAmmos.pas
changeset 4339 58d4733c9cad
parent 4330 1e03ca5d4311
child 4344 23ab3bdbf218
--- a/hedgewars/uAmmos.pas	Sun Nov 14 15:06:02 2010 -0500
+++ b/hedgewars/uAmmos.pas	Sun Nov 14 23:28:45 2010 +0100
@@ -418,7 +418,10 @@
    with TeamsArray[t]^ do
       for i:= 0 to cMaxHHIndex do
           if Hedgehogs[i].Gear <> nil then
+             begin
              FillAmmoStore(Hedgehogs[i].Ammo, InitialCounts[Hedgehogs[i].AmmoStore]);
+             Hedgehogs[i].CurAmmoType:= amNothing
+             end;
 
 for a:= Low(TAmmoType) to High(TAmmoType) do
     if Ammoz[a].SkipTurns >= 10000 then dec(Ammoz[a].SkipTurns,10000)