hedgewars/uGears.pas
changeset 3118 1320933fd651
parent 3115 831bd0f7050d
child 3121 77cfee30b952
equal deleted inserted replaced
3117:f3e363a9b7db 3118:1320933fd651
   409                 gear^.Z:= cOnHHZ;
   409                 gear^.Z:= cOnHHZ;
   410                 gear^.RenderTimer:= true;
   410                 gear^.RenderTimer:= true;
   411                 if not dX.isNegative then gear^.Angle:= 1 else gear^.Angle:= 3
   411                 if not dX.isNegative then gear^.Angle:= 1 else gear^.Angle:= 3
   412                 end;
   412                 end;
   413  gtHellishBomb: begin
   413  gtHellishBomb: begin
   414                 gear^.ImpactSound:= sndHellishImpact;
   414                 case random(4) of
       
   415                     0: gear^.ImpactSound:= sndHellishImpact1;
       
   416                     1: gear^.ImpactSound:= sndHellishImpact2;
       
   417                     2: gear^.ImpactSound:= sndHellishImpact3;
       
   418                     3: gear^.ImpactSound:= sndHellishImpact4
       
   419                 end;
   415                 gear^.AdvBounce:= 1;
   420                 gear^.AdvBounce:= 1;
   416                 gear^.Radius:= 4;
   421                 gear^.Radius:= 4;
   417                 gear^.Elasticity:= _0_5;
   422                 gear^.Elasticity:= _0_5;
   418                 gear^.Friction:= _0_96;
   423                 gear^.Friction:= _0_96;
   419                 gear^.RenderTimer:= true;
   424                 gear^.RenderTimer:= true;