# HG changeset patch
# User nemo
# Date 1353161027 18000
# Node ID f26422ef0333c234cb3f27e30bbcc6ad6d090a84
# Parent  e14daa2508fc8f269ad740f81edf2b722c700733
oft-requested, should make the shoppa guys happy, probably, but, knowing them, I'm sure someone will complain

diff -r e14daa2508fc -r f26422ef0333 hedgewars/uGearsHedgehog.pas
--- a/hedgewars/uGearsHedgehog.pas	Fri Nov 16 06:14:18 2012 +0100
+++ b/hedgewars/uGearsHedgehog.pas	Sat Nov 17 09:03:47 2012 -0500
@@ -103,6 +103,13 @@
             LoadHedgehogHat(HHGear^.Hedgehog^, 'Reserved/chef')
         else if prevAmmo = amKnife then
             LoadHedgehogHat(HHGear^.Hedgehog^, Hat);
+        end;
+    // Try again in the next slot
+    if CurAmmoType = prevAmmo then 
+        begin
+        if slot >= cMaxSlotIndex then slot:= 0 else inc(slot);
+        HHGear^.MsgParam:= slot;
+        ChangeAmmo(HHGear)
         end
     end
 end;