hedgewars/uGears.pas
changeset 3508 a7ca07614a2d
parent 3499 66eba4e41b91
child 3580 85bd667955f2
equal deleted inserted replaced
3507:2e40893e6034 3508:a7ca07614a2d
   429         gtCake: begin
   429         gtCake: begin
   430                 gear^.Health:= 2048;
   430                 gear^.Health:= 2048;
   431                 gear^.Radius:= 7;
   431                 gear^.Radius:= 7;
   432                 gear^.Z:= cOnHHZ;
   432                 gear^.Z:= cOnHHZ;
   433                 gear^.RenderTimer:= true;
   433                 gear^.RenderTimer:= true;
       
   434                 gear^.DirAngle:= -90 * hwSign(Gear^.dX);
   434                 if not dX.isNegative then gear^.Angle:= 1 else gear^.Angle:= 3
   435                 if not dX.isNegative then gear^.Angle:= 1 else gear^.Angle:= 3
   435                 end;
   436                 end;
   436  gtHellishBomb: begin
   437  gtHellishBomb: begin
   437                 gear^.ImpactSound:= sndHellishImpact1;
   438                 gear^.ImpactSound:= sndHellishImpact1;
   438                 gear^.nImpactSounds:= 4;
   439                 gear^.nImpactSounds:= 4;