hedgewars/uGearsHandlersMess.pas
changeset 11865 0abbe6f1e4f2
parent 11863 38fd32724a61
child 11916 6145efcff302
equal deleted inserted replaced
11864:dea589cb6b6e 11865:0abbe6f1e4f2
  3416             PlaySound(sndYoohoo);
  3416             PlaySound(sndYoohoo);
  3417         end;
  3417         end;
  3418 
  3418 
  3419 
  3419 
  3420     // note: use GameTicks, not RealTicks, otherwise amount can vary greatly
  3420     // note: use GameTicks, not RealTicks, otherwise amount can vary greatly
  3421     if (Gear^.Pos = 14) and (GameTicks and $3 = 0) then
  3421     if (Gear^.Pos = 14) and (GameTicks and $1 = 0) then
  3422         begin
  3422         begin
  3423         heart:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot);
  3423         heart:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot);
  3424         if heart <> nil then
  3424         if heart <> nil then
  3425             with heart^ do
  3425             with heart^ do
  3426                 begin
  3426                 begin