hedgewars/uGearsList.pas
changeset 10875 67b92a09cded
parent 10874 059a6492176e
child 10889 f7200e614295
equal deleted inserted replaced
10874:059a6492176e 10875:67b92a09cded
   502                 end;
   502                 end;
   503         gtCake: begin
   503         gtCake: begin
   504                 gear^.Health:= 2048;
   504                 gear^.Health:= 2048;
   505                 gear^.Radius:= 7;
   505                 gear^.Radius:= 7;
   506                 gear^.Z:= cOnHHZ;
   506                 gear^.Z:= cOnHHZ;
   507                 gear^.RenderTimer:= true;
   507                 gear^.RenderTimer:= false;
   508                 gear^.DirAngle:= -90 * hwSign(Gear^.dX);
   508                 gear^.DirAngle:= -90 * hwSign(Gear^.dX);
   509                 if not dX.isNegative then
   509                 if not dX.isNegative then
   510                     gear^.Angle:= 1
   510                     gear^.Angle:= 1
   511                 else
   511                 else
   512                     gear^.Angle:= 3;
   512                     gear^.Angle:= 3;