hedgewars/uGearsList.pas
changeset 6472 bced12412f94
parent 6468 da1e7fe7cff7
child 6543 697e9b730189
equal deleted inserted replaced
6471:010ec2fa7d7b 6472:bced12412f94
   435                 gear^.Elasticity:= _0_55;
   435                 gear^.Elasticity:= _0_55;
   436                 gear^.Friction:= _0_995;
   436                 gear^.Friction:= _0_995;
   437                 gear^.Density:= _0_9;
   437                 gear^.Density:= _0_9;
   438                 gear^.Radius:= 13;
   438                 gear^.Radius:= 13;
   439                 gear^.Health:= 200;
   439                 gear^.Health:= 200;
   440                 gear^.Tag:= 3;
   440                 gear^.Timer:= 0;
       
   441                 gear^.Tag:= TotalRounds + 3;
       
   442                 gear^.Pos:= 1;
   441                 end;
   443                 end;
   442     end;
   444     end;
   443 
   445 
   444 InsertGearToList(gear);
   446 InsertGearToList(gear);
   445 AddGear:= gear;
   447 AddGear:= gear;