hedgewars/uGearsHandlersMess.pas
changeset 14358 1f87c7c2b151
parent 14347 1dcc37b6913e
child 14398 87562a68c41f
child 14555 945bf1d4d1a4
equal deleted inserted replaced
14357:3baee596a989 14358:1f87c7c2b151
  6492 									begin
  6492 									begin
  6493 									updateTarget(Gear, ndX, ndY);
  6493 									updateTarget(Gear, ndX, ndY);
  6494 									FlightTime := 0;
  6494 									FlightTime := 0;
  6495 									Timer := iceWaitCollision;
  6495 									Timer := iceWaitCollision;
  6496 									Power := GameTicks;
  6496 									Power := GameTicks;
  6497                                     iter^.State:= iter^.State and not gstNoGravity
  6497                                     iter^.State:= iter^.State and (not gstNoGravity)
  6498 									end
  6498 									end
  6499                                 end
  6499                                 end
  6500                             else // gtExplosives
  6500                             else // gtExplosives
  6501                                 begin
  6501                                 begin
  6502                                 iter^.State:= iter^.State or gstFrozen;
  6502                                 iter^.State:= iter^.State or gstFrozen;