hedgewars/uGearsList.pas
changeset 14734 e57c8ace7d96
parent 14616 4638aa2ea8f2
child 14749 533ac9774279
equal deleted inserted replaced
14733:c760a2939b9c 14734:e57c8ace7d96
   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);
   315                 if (GameFlags and gfAISurvival) <> 0 then
   316                 if (GameFlags and gfAISurvival) <> 0 then
   316                     if gear^.Hedgehog^.BotLevel > 0 then
   317                     if gear^.Hedgehog^.BotLevel > 0 then
   317                         gear^.Hedgehog^.Effects[heResurrectable] := 1;
   318                         gear^.Hedgehog^.Effects[heResurrectable] := 1;
   318                 if (GameFlags and gfArtillery) <> 0 then
   319                 if (GameFlags and gfArtillery) <> 0 then
   319                     gear^.Hedgehog^.Effects[heArtillery] := 1;
   320                     gear^.Hedgehog^.Effects[heArtillery] := 1;