hedgewars/uGears.pas
changeset 6297 f2942ea53e53
parent 6252 8d598aa498b0
child 6298 6d78d3069fa3
equal deleted inserted replaced
6296:0cd63375e80b 6297:f2942ea53e53
  1312                                     Gear^.State:= Gear^.State or gstWinner;
  1312                                     Gear^.State:= Gear^.State or gstWinner;
  1313                                 end;
  1313                                 end;
  1314                             if ((Mask and EXPLDoNotTouchAny) = 0) and (((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog)) then
  1314                             if ((Mask and EXPLDoNotTouchAny) = 0) and (((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog)) then
  1315                                 begin
  1315                                 begin
  1316                                 DeleteCI(Gear);
  1316                                 DeleteCI(Gear);
  1317                                 Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - fX);
  1317                                 Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - fX)/Gear^.Density;
  1318                                 Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - fY);
  1318                                 Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - fY)/Gear^.Density;
  1319                                 Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
  1319                                 Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
  1320                                 if not Gear^.Invulnerable then
  1320                                 if not Gear^.Invulnerable then
  1321                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
  1321                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
  1322                                 Gear^.Active:= true;
  1322                                 Gear^.Active:= true;
  1323                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
  1323                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear