hedgewars/uGearsList.pas
changeset 10828 9867dd60a66a
parent 10827 2b717f687c72
child 10829 158b5dd6b3c9
equal deleted inserted replaced
10827:2b717f687c72 10828:9867dd60a66a
   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:= cMaxWindSpeed.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:= cMaxWindSpeed.QWordValue; // air friction. slows it down when not hitting stuff
   374                 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff
   375                 gear^.Karma:= 30; // damage
   375                 gear^.Karma:= 30; // damage
   376                 if gear^.Timer = 0 then
   376                 if gear^.Timer = 0 then
   377                     begin
   377                     begin
   378                     if cMinesTime < 0 then
   378                     if cMinesTime < 0 then
   379                         gear^.Timer:= getrandom(13)*100
   379                         gear^.Timer:= getrandom(13)*100