hedgewars/uGears.pas
changeset 2388 76ccf12faf22
parent 2376 ece7b87f1334
child 2389 bc3e45a4d5fb
equal deleted inserted replaced
2387:0fd5dd1884ab 2388:76ccf12faf22
   370         gtCake: begin
   370         gtCake: begin
   371                 Result^.Health:= 2048;
   371                 Result^.Health:= 2048;
   372                 Result^.Radius:= 7;
   372                 Result^.Radius:= 7;
   373                 Result^.Z:= cOnHHZ;
   373                 Result^.Z:= cOnHHZ;
   374                 Result^.RenderTimer:= true;
   374                 Result^.RenderTimer:= true;
   375                 if hwSign(dX) > 0 then Result^.Angle:= 1 else Result^.Angle:= 3
   375                 Result^.dX.QWordValue:= 1;
       
   376                 if not dX.isNegative then Result^.Angle:= 1 else Result^.Angle:= 3
   376                 end;
   377                 end;
   377  gtHellishBomb: begin
   378  gtHellishBomb: begin
   378                 Result^.Radius:= 4;
   379                 Result^.Radius:= 4;
   379                 Result^.Elasticity:= _0_5;
   380                 Result^.Elasticity:= _0_5;
   380                 Result^.Friction:= _0_96;
   381                 Result^.Friction:= _0_96;