# HG changeset patch
# User Henek
# Date 1289773725 -3600
# Node ID 58d4733c9cad905848b32a0dde717d9c850dafb6
# Parent  85e02b1a8e8f3b887862085c7e1f62837eff92f5
resets CurAmmoType in ResetWeapons

diff -r 85e02b1a8e8f -r 58d4733c9cad hedgewars/uAmmos.pas
--- 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)