hedgewars/uGears.pas
changeset 1867 2fc0e1e39b11
parent 1865 ebc6dfca60d4
child 1868 2fe8d045f6a1
equal deleted inserted replaced
1866:36aa0ca6e8af 1867:2fc0e1e39b11
  1337 							DeleteCI(Gear);
  1337 							DeleteCI(Gear);
  1338 							Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - int2hwFloat(X));
  1338 							Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - int2hwFloat(X));
  1339 							Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - int2hwFloat(Y));
  1339 							Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - int2hwFloat(Y));
  1340 							Gear^.State:= Gear^.State or gstMoving;
  1340 							Gear^.State:= Gear^.State or gstMoving;
  1341 							if not Gear^.Invulnerable then
  1341 							if not Gear^.Invulnerable then
  1342 								Gear^.State:= Gear^.State and (not gstWinner);
  1342 								Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
  1343 							Gear^.Active:= true;
  1343 							Gear^.Active:= true;
  1344 							FollowGear:= Gear
  1344 							FollowGear:= Gear
  1345 							end;
  1345 							end;
  1346 						end;
  1346 						end;
  1347 				gtGrave: begin
  1347 				gtGrave: begin