hedgewars/uGears.pas
changeset 4641 43d17e3b81de
parent 4637 0f22a53c4c1d
child 4669 296dbccdf376
equal deleted inserted replaced
4640:bc30434ae156 4641:43d17e3b81de
   243                 gear^.AdvBounce:= 1;
   243                 gear^.AdvBounce:= 1;
   244                 gear^.Radius:= cHHRadius;
   244                 gear^.Radius:= cHHRadius;
   245                 gear^.Elasticity:= _0_35;
   245                 gear^.Elasticity:= _0_35;
   246                 gear^.Friction:= _0_999;
   246                 gear^.Friction:= _0_999;
   247                 gear^.Angle:= cMaxAngle div 2;
   247                 gear^.Angle:= cMaxAngle div 2;
       
   248                 gear^.Density:= _3;
   248                 gear^.Z:= cHHZ;
   249                 gear^.Z:= cHHZ;
   249                 if (GameFlags and gfAISurvival) <> 0 then
   250                 if (GameFlags and gfAISurvival) <> 0 then
   250                     if gear^.Hedgehog^.BotLevel > 0 then
   251                     if gear^.Hedgehog^.BotLevel > 0 then
   251                         gear^.Hedgehog^.Effects[heResurrectable] := true;
   252                         gear^.Hedgehog^.Effects[heResurrectable] := true;
   252                 end;
   253                 end;
   336                 gear^.ImpactSound:= sndGrenadeImpact;
   337                 gear^.ImpactSound:= sndGrenadeImpact;
   337                 gear^.nImpactSounds:= 1;
   338                 gear^.nImpactSounds:= 1;
   338                 gear^.Radius:= 16;
   339                 gear^.Radius:= 16;
   339                 gear^.Elasticity:= _0_4;
   340                 gear^.Elasticity:= _0_4;
   340                 gear^.Friction:= _0_995;
   341                 gear^.Friction:= _0_995;
   341                 gear^.Density:= _16;
   342                 gear^.Density:= _6;
   342                 gear^.Health:= cBarrelHealth
   343                 gear^.Health:= cBarrelHealth
   343                 end;
   344                 end;
   344   gtDEagleShot: begin
   345   gtDEagleShot: begin
   345                 gear^.Radius:= 1;
   346                 gear^.Radius:= 1;
   346                 gear^.Health:= 50
   347                 gear^.Health:= 50
   351                 end;
   352                 end;
   352     gtDynamite: begin
   353     gtDynamite: begin
   353                 gear^.Radius:= 3;
   354                 gear^.Radius:= 3;
   354                 gear^.Elasticity:= _0_55;
   355                 gear^.Elasticity:= _0_55;
   355                 gear^.Friction:= _0_03;
   356                 gear^.Friction:= _0_03;
   356                 gear^.Density:= _0_8;
   357                 gear^.Density:= _2;
   357                 gear^.Timer:= 5000;
   358                 gear^.Timer:= 5000;
   358                 end;
   359                 end;
   359      gtCluster: begin
   360      gtCluster: begin
   360                 gear^.Radius:= 2;
   361                 gear^.Radius:= 2;
   361                 gear^.Density:= _0_8;
   362                 gear^.Density:= _1_5;
   362                 gear^.RenderTimer:= true
   363                 gear^.RenderTimer:= true
   363                 end;
   364                 end;
   364       gtShover: gear^.Radius:= 20;
   365       gtShover: gear^.Radius:= 20;
   365        gtFlame: begin
   366        gtFlame: begin
   366                 gear^.Tag:= GetRandom(32);
   367                 gear^.Tag:= GetRandom(32);
   367                 gear^.Radius:= 1;
   368                 gear^.Radius:= 1;
   368                 gear^.Health:= 5;
   369                 gear^.Health:= 5;
       
   370                 gear^.Density:= _1;
   369                 if (gear^.dY.QWordValue = 0) and (gear^.dX.QWordValue = 0) then
   371                 if (gear^.dY.QWordValue = 0) and (gear^.dX.QWordValue = 0) then
   370                     begin
   372                     begin
   371                     gear^.dY:= (getrandom - _0_8) * _0_03;
   373                     gear^.dY:= (getrandom - _0_8) * _0_03;
   372                     gear^.dX:= (getrandom - _0_5) * _0_4
   374                     gear^.dX:= (getrandom - _0_5) * _0_4
   373                     end
   375                     end
   376                 gear^.Radius:= 15;
   378                 gear^.Radius:= 15;
   377                 gear^.Tag:= Y
   379                 gear^.Tag:= Y
   378                 end;
   380                 end;
   379      gtAirBomb: begin
   381      gtAirBomb: begin
   380                 gear^.Radius:= 5;
   382                 gear^.Radius:= 5;
   381                 gear^.Density:= _1_5;
   383                 gear^.Density:= _2;
   382                 end;
   384                 end;
   383    gtBlowTorch: begin
   385    gtBlowTorch: begin
   384                 gear^.Radius:= cHHRadius + cBlowTorchC;
   386                 gear^.Radius:= cHHRadius + cBlowTorchC;
   385                 gear^.Timer:= 7500
   387                 gear^.Timer:= 7500
   386                 end;
   388                 end;