hedgewars/uGears.pas
changeset 4867 e604ee83e34f
parent 4837 2ea0a152c319
child 4881 35e6269227b6
equal deleted inserted replaced
4865:3a48fbc4a281 4867:e604ee83e34f
   425                 gear^.Density:= _1_5;
   425                 gear^.Density:= _1_5;
   426                 gear^.RenderTimer:= true;
   426                 gear^.RenderTimer:= true;
   427                 gear^.Timer:= 5000
   427                 gear^.Timer:= 5000
   428                 end;
   428                 end;
   429        gtDrill: begin
   429        gtDrill: begin
   430                 gear^.Timer:= 5000;
   430                 if gear^.Timer = 0 then gear^.Timer:= 5000;
       
   431                 // Tag for drill strike. if 1 then first impact occured already
       
   432                 gear^.Tag := 0;
   431                 gear^.Radius:= 4;
   433                 gear^.Radius:= 4;
   432                 gear^.Density:= _1;
   434                 gear^.Density:= _1;
   433                 end;
   435                 end;
   434         gtBall: begin
   436         gtBall: begin
   435                 gear^.ImpactSound:= sndGrenadeImpact;
   437                 gear^.ImpactSound:= sndGrenadeImpact;