hedgewars/uGears.pas
changeset 5525 5fb06333314e
parent 5513 79dd457193e6
child 5556 5b8ca3955834
equal deleted inserted replaced
5524:40b7f95d9f18 5525:5fb06333314e
   311                 gear^.Timer:= 500;
   311                 gear^.Timer:= 500;
   312                 gear^.RenderTimer:= true;
   312                 gear^.RenderTimer:= true;
   313                 gear^.Elasticity:= _0_9;
   313                 gear^.Elasticity:= _0_9;
   314                 gear^.Tag:= getRandom(32);
   314                 gear^.Tag:= getRandom(32);
   315                 end;
   315                 end;
       
   316    gtSeduction: begin
       
   317                 gear^.Radius:= 250;
       
   318                 end;
   316  gtShotgunShot: begin
   319  gtShotgunShot: begin
   317                 gear^.Timer:= 900;
   320                 gear^.Timer:= 900;
   318                 gear^.Radius:= 2
   321                 gear^.Radius:= 2
   319                 end;
   322                 end;
   320   gtPickHammer: begin
   323   gtPickHammer: begin