hedgewars/uGears.pas
changeset 6252 8d598aa498b0
parent 6192 7c34bf4fbb54
child 6297 f2942ea53e53
equal deleted inserted replaced
6251:5cd33711afb9 6252:8d598aa498b0
   318          gtBee: begin
   318          gtBee: begin
   319                 gear^.Radius:= 5;
   319                 gear^.Radius:= 5;
   320                 gear^.Timer:= 500;
   320                 gear^.Timer:= 500;
   321                 gear^.RenderTimer:= true;
   321                 gear^.RenderTimer:= true;
   322                 gear^.Elasticity:= _0_9;
   322                 gear^.Elasticity:= _0_9;
   323                 gear^.Tag:= getRandom(32);
   323                 gear^.Tag:= 0;
   324                 end;
   324                 end;
   325    gtSeduction: begin
   325    gtSeduction: begin
   326                 gear^.Radius:= 250;
   326                 gear^.Radius:= 250;
   327                 end;
   327                 end;
   328  gtShotgunShot: begin
   328  gtShotgunShot: begin