hedgewars/uGears.pas
changeset 2488 1e48275a52b6
parent 2468 0b62498c201a
child 2489 43f36aea1f55
equal deleted inserted replaced
2487:22a7ef2859b6 2488:1e48275a52b6
   257                 Result^.Elasticity:= _0_35;
   257                 Result^.Elasticity:= _0_35;
   258                 Result^.Friction:= _0_999;
   258                 Result^.Friction:= _0_999;
   259                 Result^.Angle:= cMaxAngle div 2;
   259                 Result^.Angle:= cMaxAngle div 2;
   260                 Result^.Z:= cHHZ;
   260                 Result^.Z:= cHHZ;
   261                 end;
   261                 end;
   262 gtAmmo_Grenade, gtMolotov: begin // bazooka
   262 gtAmmo_Grenade: begin // bazooka
   263                 Result^.Radius:= 4;
   263                 Result^.Radius:= 4;
   264                 end;
   264                 end;
   265    gtHealthTag: begin
   265    gtHealthTag: begin
   266                 Result^.Timer:= 1500;
   266                 Result^.Timer:= 1500;
   267                 Result^.Z:= 2002;
   267                 Result^.Z:= 2002;
   405                 Result^.Health:= 3;
   405                 Result^.Health:= 3;
   406                 Result^.Radius:= 8
   406                 Result^.Radius:= 8
   407                 end;
   407                 end;
   408      gtJetpack: begin
   408      gtJetpack: begin
   409                 Result^.Health:= 2000;
   409                 Result^.Health:= 2000;
       
   410                 end;
       
   411      gtMolotov: begin 
       
   412                 Result^.Radius:= 8;
   410                 end;
   413                 end;
   411      end;
   414      end;
   412 InsertGearToList(Result);
   415 InsertGearToList(Result);
   413 AddGear:= Result
   416 AddGear:= Result
   414 end;
   417 end;