hedgewars/uGears.pas
changeset 3997 6baa46aad645
parent 3976 abaf741a4e21
child 4002 3e173ac63849
equal deleted inserted replaced
3996:eb549fd864a5 3997:6baa46aad645
  1307                                 Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - fY);
  1307                                 Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - fY);
  1308                                 Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
  1308                                 Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
  1309                                 if not Gear^.Invulnerable then
  1309                                 if not Gear^.Invulnerable then
  1310                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
  1310                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
  1311                                 Gear^.Active:= true;
  1311                                 Gear^.Active:= true;
  1312                                 FollowGear:= Gear
  1312                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
  1313                                 end;
  1313                                 end;
  1314                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) then
  1314                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) then
  1315                                 PHedgehog(Gear^.Hedgehog)^.Effects[hePoisoned] := true;
  1315                                 PHedgehog(Gear^.Hedgehog)^.Effects[hePoisoned] := true;
  1316                             end;
  1316                             end;
  1317 
  1317