hedgewars/GSHandlers.inc
changeset 2936 ed4c315dab2d
parent 2935 b80800979436
child 2937 da06c25edf1d
equal deleted inserted replaced
2935:b80800979436 2936:ed4c315dab2d
  1260 	end;
  1260 	end;
  1261 
  1261 
  1262 if k = gtExplosives then
  1262 if k = gtExplosives then
  1263 	begin
  1263 	begin
  1264     V:= hwSqr(Gear^.dX) + hwSqr(Gear^.dY);
  1264     V:= hwSqr(Gear^.dX) + hwSqr(Gear^.dY);
  1265     if V > _0_03 then Gear^.State:= Gear^.State or gstAnimation;
  1265     //if V > _0_03 then Gear^.State:= Gear^.State or gstAnimation;
       
  1266     if hwAbs(Gear^.dX) > _0_15 then Gear^.State:= Gear^.State or gstAnimation;
  1266     if ((Gear^.State and gstAnimation) <> 0) and (Gear^.dX.QWordValue <> 0) and (Gear^.dY.QWordValue <> 0)  then
  1267     if ((Gear^.State and gstAnimation) <> 0) and (Gear^.dX.QWordValue <> 0) and (Gear^.dY.QWordValue <> 0)  then
  1267         begin
  1268         begin
  1268         AllInactive:= false;
  1269         AllInactive:= false;
  1269         doStepFallingGear(Gear);
  1270         doStepFallingGear(Gear);
  1270         CalcRotationDirAngle(Gear)
  1271         CalcRotationDirAngle(Gear)