hedgewars/uGearsHandlersMess.pas
changeset 10547 cc439790ebae
parent 10545 d347ffa7e372
child 10578 814acf1511be
equal deleted inserted replaced
10546:339a005eab14 10547:cc439790ebae
  2644         Gear^.X := HHGear^.X;
  2644         Gear^.X := HHGear^.X;
  2645         Gear^.Y := HHGear^.Y;
  2645         Gear^.Y := HHGear^.Y;
  2646         HHGear^.X := int2hwFloat(Gear^.Target.X);
  2646         HHGear^.X := int2hwFloat(Gear^.Target.X);
  2647         HHGear^.Y := int2hwFloat(Gear^.Target.Y);
  2647         HHGear^.Y := int2hwFloat(Gear^.Target.Y);
  2648         HHGear^.State := HHGear^.State or gstMoving;
  2648         HHGear^.State := HHGear^.State or gstMoving;
       
  2649         if not Gear^.Hedgehog^.Unplaced then
       
  2650             Gear^.State:= Gear^.State or gstAnimation;
  2649         Gear^.Hedgehog^.Unplaced := false;
  2651         Gear^.Hedgehog^.Unplaced := false;
  2650         isCursorVisible := false;
  2652         isCursorVisible := false;
  2651         playSound(sndWarp)
  2653         playSound(sndWarp)
  2652         end;
  2654         end;
  2653     Gear^.Target.X:= NoPointX
  2655     Gear^.Target.X:= NoPointX