hedgewars/uGearsHedgehog.pas
changeset 9579 1f20cc6a642a
parent 9539 ab44d44a6177
child 9664 1e528c58e41d
equal deleted inserted replaced
9577:9577634bd284 9579:1f20cc6a642a
   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 then
   118         begin
   118         begin
   119         if slot >= cMaxSlotIndex then slot:= 0 else inc(slot);
   119         if slot < cMaxSlotIndex then 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;