hedgewars/uAmmos.pas
changeset 971 d2c49b730771
parent 941 b5222ddafe1f
child 1066 1f1b3686a2b0
--- a/hedgewars/uAmmos.pas	Sun Jun 01 20:01:45 2008 +0000
+++ b/hedgewars/uAmmos.pas	Mon Jun 02 19:15:53 2008 +0000
@@ -138,14 +138,18 @@
 procedure OnUsedAmmo(var Hedgehog: THedgehog);
 begin
 with Hedgehog do
-     begin
-     with Ammo^[CurSlot, CurAmmo] do
-          if Count <> AMMO_INFINITE then
-             begin
-             dec(Count);
-             if Count = 0 then PackAmmo(Ammo, CurSlot)
-             end
-     end
+	begin
+	with Ammo^[CurSlot, CurAmmo] do
+		if Count <> AMMO_INFINITE then
+			begin
+			dec(Count);
+			if Count = 0 then
+				begin
+				PackAmmo(Ammo, CurSlot);
+				SwitchNotHoldedAmmo(Hedgehog)
+				end
+			end
+	end
 end;
 
 function  HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean;