hedgewars/GSHandlers.inc
changeset 7195 9e6e8e5a4c2e
parent 7170 84ac6c6d2d8e
child 7204 522f165cd2e7
equal deleted inserted replaced
7193:65a022bf6bde 7195:9e6e8e5a4c2e
  3436         AddGear(gx, gy, gtBall, 0, SignAs(AngleSin(HHGear^.Angle) * _0_8, HHGear^.dX) + rx, AngleCos(HHGear^.Angle) * ( - _0_8) + ry, 0);
  3436         AddGear(gx, gy, gtBall, 0, SignAs(AngleSin(HHGear^.Angle) * _0_8, HHGear^.dX) + rx, AngleCos(HHGear^.Angle) * ( - _0_8) + ry, 0);
  3437 
  3437 
  3438         PlaySound(sndGun);
  3438         PlaySound(sndGun);
  3439         end;
  3439         end;
  3440 
  3440 
  3441     if (Gear^.Timer = 0) or (HHGear^.Damage <> 0) then
  3441     if (Gear^.Timer = 0) or ((HHGear^.State and gstHHDriven) = 0) then
  3442         begin
  3442         begin
  3443         DeleteGear(Gear);
  3443         DeleteGear(Gear);
  3444         AfterAttack
  3444         AfterAttack
  3445         end
  3445         end
  3446 end;
  3446 end;