hedgewars/uGears.pas
changeset 4007 c76c895825ab
parent 4003 ca0600ab38bf
parent 4002 3e173ac63849
child 4024 1ffb84b3823d
equal deleted inserted replaced
4003:ca0600ab38bf 4007:c76c895825ab
  1305                                 Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - fY);
  1305                                 Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - fY);
  1306                                 Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
  1306                                 Gear^.State:= (Gear^.State or gstMoving) and (not gstLoser);
  1307                                 if not Gear^.Invulnerable then
  1307                                 if not Gear^.Invulnerable then
  1308                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
  1308                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
  1309                                 Gear^.Active:= true;
  1309                                 Gear^.Active:= true;
  1310                                 FollowGear:= Gear
  1310                                 if Gear^.Kind <> gtFlame then FollowGear:= Gear
  1311                                 end;
  1311                                 end;
  1312                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) then
  1312                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) then
  1313                                 PHedgehog(Gear^.Hedgehog)^.Effects[hePoisoned] := true;
  1313                                 PHedgehog(Gear^.Hedgehog)^.Effects[hePoisoned] := true;
  1314                             end;
  1314                             end;
  1315 
  1315