hedgewars/uGears.pas
changeset 3512 6a8b5f313190
parent 3508 a7ca07614a2d
child 3580 85bd667955f2
equal deleted inserted replaced
3509:d72c2219595d 3512:6a8b5f313190
   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;