hedgewars/uGearsHandlersMess.pas
changeset 14379 1f87c7c2b151
parent 14368 1dcc37b6913e
child 14419 87562a68c41f
child 14576 945bf1d4d1a4
equal deleted inserted replaced
14378:3baee596a989 14379: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;