166                                  CurAmmoGear:= AddGear(hwRound(X) + hwSign(dX) * 3, hwRound(Y), gtCake, 0, xx, _0, 0);

   166                                  CurAmmoGear:= AddGear(hwRound(X) + hwSign(dX) * 3, hwRound(Y), gtCake, 0, xx, _0, 0);

   167                                  PlaySound(sndLaugh, false)

   167                                  PlaySound(sndLaugh, false)

   168                                  end;

   168                                  end;

   169                     amSeduction: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtSeduction, 0, xx, yy, 0);

   169                     amSeduction: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtSeduction, 0, xx, yy, 0);

   170                    amWatermelon: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtWatermelon,  0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer);

   170                    amWatermelon: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtWatermelon,  0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer);

   171                   end;

   172                   end;

   172 

   173 

   173         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);

   174         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);

   174 

   175 

   175         Power:= 0;

   176         Power:= 0;