hedgewars/uGearsList.pas
changeset 7602 a620319d377e
parent 7395 d0d38cd0d27c
child 7647 e496587db93e
equal deleted inserted replaced
7601:c96ff1a053d0 7602:a620319d377e
   103 gear^.ImpactSound:= sndNone;
   103 gear^.ImpactSound:= sndNone;
   104 gear^.Density:= _1;
   104 gear^.Density:= _1;
   105 // Define ammo association, if any.
   105 // Define ammo association, if any.
   106 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
   106 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
   107 gear^.CollisionMask:= $FFFF;
   107 gear^.CollisionMask:= $FFFF;
       
   108 gear^.stepFreq:= 1;
   108 
   109 
   109 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog;
   110 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog;
   110 
   111 
   111 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
   112 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
   112     gear^.Z:= cHHZ+1
   113     gear^.Z:= cHHZ+1
   228                 gear^.Health:= 10;
   229                 gear^.Health:= 10;
   229                 gear^.State:= gear^.State or gstMoving;
   230                 gear^.State:= gear^.State or gstMoving;
   230                 gear^.Radius:= 2;
   231                 gear^.Radius:= 2;
   231                 gear^.Elasticity:= _0_55;
   232                 gear^.Elasticity:= _0_55;
   232                 gear^.Friction:= _0_995;
   233                 gear^.Friction:= _0_995;
   233                 gear^.Density:= _0_9;
   234                 gear^.Density:= _1;
   234                 if cMinesTime < 0 then
   235                 if cMinesTime < 0 then
   235                     gear^.Timer:= getrandom(51)*100
   236                     gear^.Timer:= getrandom(51)*100
   236                 else
   237                 else
   237                     gear^.Timer:= cMinesTime;
   238                     gear^.Timer:= cMinesTime;
   238                 end;
   239                 end;
   240                 gear^.Health:= 10;
   241                 gear^.Health:= 10;
   241                 gear^.State:= gear^.State or gstMoving;
   242                 gear^.State:= gear^.State or gstMoving;
   242                 gear^.Radius:= 2;
   243                 gear^.Radius:= 2;
   243                 gear^.Elasticity:= _0_55;
   244                 gear^.Elasticity:= _0_55;
   244                 gear^.Friction:= _0_995;
   245                 gear^.Friction:= _0_995;
   245                 gear^.Density:= _0_9;
   246                 gear^.Density:= _1_6;
   246                 gear^.Timer:= 500;
   247                 gear^.Timer:= 500;
   247                 end;
   248                 end;
   248         gtCase: begin
   249         gtCase: begin
   249                 gear^.ImpactSound:= sndGraveImpact;
   250                 gear^.ImpactSound:= sndGraveImpact;
   250                 gear^.nImpactSounds:= 1;
   251                 gear^.nImpactSounds:= 1;