528                    amSeduction, amBallgun,

   528                    amSeduction, amBallgun,

   529                      amJetpack, amBirdy,

   529                      amJetpack, amBirdy,

   530                 amFlamethrower, amLandGun,

   530                 amFlamethrower, amLandGun,

   531                  amResurrector, amTardis,

   531                  amResurrector, amTardis,

   532                        amPiano, amIceGun,

   532                        amPiano, amIceGun,

   533                       amRubber, amMinigun: CurAmmoGear:= newGear;

   535                       amRubber, amMinigun: CurAmmoGear:= newGear;

   534             end;

   536             end;

   535             if CurAmmoType = amCake then FollowGear:= newGear;

   537             if CurAmmoType = amCake then FollowGear:= newGear;

   536             if CurAmmoType = amAirMine then newGear^.Hedgehog:= nil;

   538             if CurAmmoType = amAirMine then newGear^.Hedgehog:= nil;

   537 

   539