hedgewars/uGearsUtils.pas
changeset 7767 d1ea9b3f543e
parent 7754 e81dc9bef8b8
child 7825 1b96361a7ef4
equal deleted inserted replaced
7766:98edc0724a28 7767:d1ea9b3f543e
   129                                 DeleteCI(Gear);
   129                                 DeleteCI(Gear);
   130                                 Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, tdX)/(Gear^.Density/_3);
   130                                 Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, tdX)/(Gear^.Density/_3);
   131                                 Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, tdY)/(Gear^.Density/_3);
   131                                 Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, tdY)/(Gear^.Density/_3);
   132 
   132 
   133                                 Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
   133                                 Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
   134                                 if Gear^.Kind = gtKnife then Gear^.State:= Gear^.State and not gstCollision;
   134                                 if Gear^.Kind = gtKnife then Gear^.State:= Gear^.State and (not gstCollision);
   135                                 if not Gear^.Invulnerable then
   135                                 if not Gear^.Invulnerable then
   136                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
   136                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
   137                                 Gear^.Active:= true;
   137                                 Gear^.Active:= true;
   138                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
   138                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
   139                                 end;
   139                                 end;