hedgewars/uGears.pas
changeset 2317 30d19505b22a
parent 2302 0f122917d799
child 2333 f53a208e9637
equal deleted inserted replaced
2316:349b80b30575 2317:30d19505b22a
   252                 Result^.Elasticity:= _0_35;
   252                 Result^.Elasticity:= _0_35;
   253                 Result^.Friction:= _0_999;
   253                 Result^.Friction:= _0_999;
   254                 Result^.Angle:= cMaxAngle div 2;
   254                 Result^.Angle:= cMaxAngle div 2;
   255                 Result^.Z:= cHHZ;
   255                 Result^.Z:= cHHZ;
   256                 end;
   256                 end;
   257 gtAmmo_Grenade: begin
   257 gtAmmo_Grenade: begin // bazooka
   258                 Result^.Radius:= 4;
   258                 Result^.Radius:= 4;
   259                 Result^.RenderTimer:= true;
       
   260                 if Result^.Timer = 0 then Result^.Timer:= 3000
       
   261                 end;
   259                 end;
   262    gtHealthTag: begin
   260    gtHealthTag: begin
   263                 Result^.Timer:= 1500;
   261                 Result^.Timer:= 1500;
   264                 Result^.Z:= 2002;
   262                 Result^.Z:= 2002;
   265                 end;
   263                 end;