hedgewars/uGearsList.pas
changeset 10791 0311c9fa7498
parent 10789 acbf69e2e5cf
child 10794 ace862eda192
equal deleted inserted replaced
10790:7e8ea160152f 10791:0311c9fa7498
   367                 gear^.State:= gear^.State or gstMoving or gstNoGravity;
   367                 gear^.State:= gear^.State or gstMoving or gstNoGravity;
   368                 gear^.Radius:= 3;
   368                 gear^.Radius:= 3;
   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:= 125; // 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:= 536871; // hwFloat converted. 1/4 g default. defines the "seek" speed when a gear is in range.
   373                 gear^.Power:= cGravity.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:= 134217; // 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                 end;
   378                 end;
   378        gtSMine: begin
   379        gtSMine: begin
   379                 gear^.Health:= 10;
   380                 gear^.Health:= 10;
   380                 gear^.State:= gear^.State or gstMoving;
   381                 gear^.State:= gear^.State or gstMoving;
   381                 gear^.Radius:= 2;
   382                 gear^.Radius:= 2;