hedgewars/uGears.pas
changeset 4705 593ef1ad3cd3
parent 4704 a07dfebaa497
child 4706 fea3b34cf9b0
equal deleted inserted replaced
4704:a07dfebaa497 4705:593ef1ad3cd3
   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:= 7;
   259                 gear^.Radius:= 4;
   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