Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGears.pas
changeset 2302 0f122917d799
parent 2289 cb850ba733bd
child 2317 30d19505b22a
equal deleted inserted replaced
2301:7a4ad0772c88 2302:0f122917d799 
   235    gtAmmo_Bomb,
 
   235    gtAmmo_Bomb,
 
   236  gtClusterBomb: begin
 
   236  gtClusterBomb: begin
 
   237                 Result^.Radius:= 4;
 
   237                 Result^.Radius:= 4;
 
   238                 Result^.Elasticity:= _0_6;
 
   238                 Result^.Elasticity:= _0_6;
 
   239                 Result^.Friction:= _0_96;
 
   239                 Result^.Friction:= _0_96;
 
   240                 Result^.RenderTimer:= true
 
   240                 Result^.RenderTimer:= true;
 
       
   241                 if Result^.Timer = 0 then Result^.Timer:= 3000
 
   241                 end;
 
   242                 end;
 
   242   gtWatermelon: begin
 
   243   gtWatermelon: begin
 
   243                 Result^.Radius:= 4;
 
   244                 Result^.Radius:= 4;
 
   244                 Result^.Elasticity:= _0_8;
 
   245                 Result^.Elasticity:= _0_8;
 
   245                 Result^.Friction:= _0_995;
 
   246                 Result^.Friction:= _0_995;
 
   246                 Result^.RenderTimer:= true
 
   247                 Result^.RenderTimer:= true;
 
       
   248                 if Result^.Timer = 0 then Result^.Timer:= 3000
 
   247                 end;
 
   249                 end;
 
   248     gtHedgehog: begin
 
   250     gtHedgehog: begin
 
   249                 Result^.Radius:= cHHRadius;
 
   251                 Result^.Radius:= cHHRadius;
 
   250                 Result^.Elasticity:= _0_35;
 
   252                 Result^.Elasticity:= _0_35;
 
   251                 Result^.Friction:= _0_999;
 
   253                 Result^.Friction:= _0_999;
 
   252                 Result^.Angle:= cMaxAngle div 2;
 
   254                 Result^.Angle:= cMaxAngle div 2;
 
   253                 Result^.Z:= cHHZ;
 
   255                 Result^.Z:= cHHZ;
 
   254                 end;
 
   256                 end;
 
   255 gtAmmo_Grenade: begin
 
   257 gtAmmo_Grenade: begin
 
   256                 Result^.Radius:= 4;
 
   258                 Result^.Radius:= 4;
 
   257                 Result^.RenderTimer:= true
 
   259                 Result^.RenderTimer:= true;
 
       
   260                 if Result^.Timer = 0 then Result^.Timer:= 3000
 
   258                 end;
 
   261                 end;
 
   259    gtHealthTag: begin
 
   262    gtHealthTag: begin
 
   260                 Result^.Timer:= 1500;
 
   263                 Result^.Timer:= 1500;
 
   261                 Result^.Z:= 2002;
 
   264                 Result^.Z:= 2002;
 
   262                 end;
 
   265                 end;
 
   374                 end;
 
   377                 end;
 
   375  gtHellishBomb: begin
 
   378  gtHellishBomb: begin
 
   376                 Result^.Radius:= 4;
 
   379                 Result^.Radius:= 4;
 
   377                 Result^.Elasticity:= _0_5;
 
   380                 Result^.Elasticity:= _0_5;
 
   378                 Result^.Friction:= _0_96;
 
   381                 Result^.Friction:= _0_96;
 
   379                 Result^.RenderTimer:= true
 
   382                 Result^.RenderTimer:= true;
 
       
   383                 Result^.Timer:= 5000
 
   380                 end;
 
   384                 end;
 
   381        gtDrill: begin
 
   385        gtDrill: begin
 
   382                 Result^.Timer:= 5000;
 
   386                 Result^.Timer:= 5000;
 
   383                 Result^.Radius:= 4
 
   387                 Result^.Radius:= 4
 
   384                 end;
 
   388                 end;
hedgewars