hedgewars/uGears.pas
changeset 2079 f188ec7c450b
parent 2076 aa3263e57b8f
child 2121 bf0fe707d3ed
--- a/hedgewars/uGears.pas	Tue May 19 22:48:27 2009 +0000
+++ b/hedgewars/uGears.pas	Wed May 20 16:35:27 2009 +0000
@@ -404,7 +404,7 @@
 	end;
 
 if Gear^.Kind = gtHedgehog then
-	if CurAmmoGear <> nil then
+	if (CurAmmoGear <> nil) and (CurrentHedgehog^.Gear = Gear) then
 		begin
 		Gear^.Message:= gm_Destroy;
 		CurAmmoGear^.Message:= gm_Destroy;