hedgewars/uGearsHedgehog.pas
changeset 9664 1e528c58e41d
parent 9579 1f20cc6a642a
child 9670 1954f692e8c6
equal deleted inserted replaced
9663:1fa74f92555d 9664:1e528c58e41d
   112             LoadHedgehogHat(HHGear^.Hedgehog^, 'Reserved/chef')
   112             LoadHedgehogHat(HHGear^.Hedgehog^, 'Reserved/chef')
   113         else if prevAmmo = amKnife then
   113         else if prevAmmo = amKnife then
   114             LoadHedgehogHat(HHGear^.Hedgehog^, Hat);
   114             LoadHedgehogHat(HHGear^.Hedgehog^, Hat);
   115         end;
   115         end;
   116     // Try again in the next slot
   116     // Try again in the next slot
   117     if CurAmmoType = prevAmmo then
   117     if (CurAmmoType = prevAmmo) and (slot < cMaxSlotIndex) then 
   118         begin
   118         begin
   119         if slot < cMaxSlotIndex then inc(slot);
   119         inc(slot);
   120         HHGear^.MsgParam:= slot;
   120         HHGear^.MsgParam:= slot;
   121         ChangeAmmo(HHGear)
   121         ChangeAmmo(HHGear)
   122         end
   122         end
   123     end
   123     end
   124 end;
   124 end;