hedgewars/uGears.pas
changeset 2389 bc3e45a4d5fb
parent 2388 76ccf12faf22
child 2390 57fb33ab04a4
equal deleted inserted replaced
2388:76ccf12faf22 2389:bc3e45a4d5fb
   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                 Result^.dX.QWordValue:= 1;
       
   376                 if not dX.isNegative then Result^.Angle:= 1 else Result^.Angle:= 3
   375                 if not dX.isNegative then Result^.Angle:= 1 else Result^.Angle:= 3
   377                 end;
   376                 end;
   378  gtHellishBomb: begin
   377  gtHellishBomb: begin
   379                 Result^.Radius:= 4;
   378                 Result^.Radius:= 4;
   380                 Result^.Elasticity:= _0_5;
   379                 Result^.Elasticity:= _0_5;