127             @doStepHammerHit,

   127             @doStepHammerHit,

   128             @doStepResurrector,

   128             @doStepResurrector,

   129             @doStepNapalmBomb,

   129             @doStepNapalmBomb,

   130             @doStepSnowball,

   130             @doStepSnowball,

   131             @doStepSnowflake,

   131             @doStepSnowflake,

   133             );

   133             );

   134 

   134 

   135 procedure InsertGearToList(Gear: PGear);

   135 procedure InsertGearToList(Gear: PGear);

   136 var tmp, ptmp: PGear;

   136 var tmp, ptmp: PGear;

   137 begin

   137 begin

   517                 gear^.ImpactSound:= sndGrenadeImpact;

   517                 gear^.ImpactSound:= sndGrenadeImpact;

   518                 gear^.nImpactSounds:= 1;

   518                 gear^.nImpactSounds:= 1;

   519                 gear^.Radius:= 13;

   519                 gear^.Radius:= 13;

   520                 gear^.Elasticity:= _0_3;

   520                 gear^.Elasticity:= _0_3;

   521                 gear^.Health:= 50;

   521                 gear^.Health:= 50;

   522                 end;

   523                 end;

   523     end;

   524     end;

   524 

   525 

   525 InsertGearToList(gear);

   526 InsertGearToList(gear);

   526 AddGear:= gear;

   527 AddGear:= gear;