hedgewars/uGears.pas
changeset 6299 fa5bc796261d
parent 6298 6d78d3069fa3
child 6380 1ff5ad1d771b
equal deleted inserted replaced
6298:6d78d3069fa3 6299:fa5bc796261d
  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)/Gear^.Density;
  1317                                 if Gear^.Kind <> gtHedgehog then
  1318                                 Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - fY)/Gear^.Density;
  1318                                     begin
       
  1319                                     Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - fX)/Gear^.Density;
       
  1320                                     Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - fY)/Gear^.Density;
       
  1321                                     end
       
  1322                                 else
       
  1323                                     begin
       
  1324                                     Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - fX);
       
  1325                                     Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - fY);
       
  1326                                     end;
       
  1327 
  1319                                 Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
  1328                                 Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
  1320                                 if not Gear^.Invulnerable then
  1329                                 if not Gear^.Invulnerable then
  1321                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
  1330                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
  1322                                 Gear^.Active:= true;
  1331                                 Gear^.Active:= true;
  1323                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
  1332                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear