# HG changeset patch
# User unc0rr
# Date 1164905082 0
# Node ID 6aa69a531d505115e1822383ef2ff44641b846cd
# Parent  cdab49768c839733981cdc6be00779fa225f1693
Fix problems when deleting ammo

diff -r cdab49768c83 -r 6aa69a531d50 hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Wed Nov 29 20:33:07 2006 +0000
+++ b/hedgewars/uTeams.pas	Thu Nov 30 16:44:42 2006 +0000
@@ -275,7 +275,10 @@
              and (Ammo[Slot, ami + 1].Count > 0) then b:= true
                                                  else inc(ami);
       if b then // there's a free item in ammo stack
-         Ammo[Slot, ami]:= Ammo[Slot, ami + 1]
+         begin
+         Ammo[Slot, ami]:= Ammo[Slot, ami + 1];
+         Ammo[Slot, ami + 1].Count:= 0
+         end;
     until not b;
 end;