hedgewars/uGearsList.pas
changeset 14765 ba8dd081359d
parent 14753 168be33c099a
child 14920 06af4f0a92bd
equal deleted inserted replaced
14764:b3fa6a19fc25 14765:ba8dd081359d
   310                 gear^.Elasticity:= _0_35;
   310                 gear^.Elasticity:= _0_35;
   311                 gear^.Friction:= _0_999;
   311                 gear^.Friction:= _0_999;
   312                 gear^.Angle:= cMaxAngle div 2;
   312                 gear^.Angle:= cMaxAngle div 2;
   313                 gear^.Density:= _3;
   313                 gear^.Density:= _3;
   314                 gear^.Z:= cHHZ;
   314                 gear^.Z:= cHHZ;
   315                 gear^.Pos:= GetRandom(19);
       
   316                 if (GameFlags and gfAISurvival) <> 0 then
   315                 if (GameFlags and gfAISurvival) <> 0 then
   317                     if gear^.Hedgehog^.BotLevel > 0 then
   316                     if gear^.Hedgehog^.BotLevel > 0 then
   318                         gear^.Hedgehog^.Effects[heResurrectable] := 1;
   317                         gear^.Hedgehog^.Effects[heResurrectable] := 1;
   319                 if (GameFlags and gfArtillery) <> 0 then
   318                 if (GameFlags and gfArtillery) <> 0 then
   320                     gear^.Hedgehog^.Effects[heArtillery] := 1;
   319                     gear^.Hedgehog^.Effects[heArtillery] := 1;