hedgewars/uGearsList.pas
changeset 10800 3c71e5158519
parent 10794 ace862eda192
child 10802 089e43d01f74
equal deleted inserted replaced
10799:658794118fd8 10800:3c71e5158519
   368                 gear^.Radius:= 7;
   368                 gear^.Radius:= 7;
   369                 gear^.Elasticity:= _0_55;
   369                 gear^.Elasticity:= _0_55;
   370                 gear^.Friction:= _0_995;
   370                 gear^.Friction:= _0_995;
   371                 gear^.Density:= _1;
   371                 gear^.Density:= _1;
   372                 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped.
   372                 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped.
   373                 gear^.Power:= cGravity.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.
   373                 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.
   374                 gear^.Pos:= 134217; // air friction. slows it down when not hitting stuff
   374                 gear^.Pos:= cMaxWindSpeed.QWordValue; // air friction. slows it down when not hitting stuff
   375                 gear^.Karma:= 30; // damage
   375                 gear^.Karma:= 30; // damage
   376                 gear^.Timer:= 500;
   376                 gear^.Timer:= 500;
   377                 gear^.WDTimer:= 500;
   377                 gear^.WDTimer:= 500;
   378                 end;
   378                 end;
   379        gtSMine: begin
   379        gtSMine: begin