hedgewars/uGears.pas
changeset 4704 a07dfebaa497
parent 4695 ac2cb3b99d70
child 4705 593ef1ad3cd3
equal deleted inserted replaced
4703:58d926024040 4704:a07dfebaa497
   254        gtShell: begin
   254        gtShell: begin
   255                 gear^.Radius:= 4;
   255                 gear^.Radius:= 4;
   256                 gear^.Density:= _1;
   256                 gear^.Density:= _1;
   257                 end;
   257                 end;
   258        gtSnowball: begin
   258        gtSnowball: begin
   259                 gear^.Radius:= 4;
   259                 gear^.Radius:= 7;
   260                 gear^.Elasticity:= _1;
   260                 gear^.Elasticity:= _1;
   261                 gear^.Friction:= _1;
   261                 gear^.Friction:= _1;
   262                 gear^.Density:= _0_5;
   262                 gear^.Density:= _0_5;
   263                 end;
   263                 end;
   264 
   264