hedgewars/uGears.pas
changeset 2121 bf0fe707d3ed
parent 2079 f188ec7c450b
child 2134 cde30c8539bb
equal deleted inserted replaced
2120:fa1a87212703 2121:bf0fe707d3ed
   292                 Result^.State:= Result^.State or gstMoving;
   292                 Result^.State:= Result^.State or gstMoving;
   293                 Result^.Radius:= 2;
   293                 Result^.Radius:= 2;
   294                 Result^.Elasticity:= _0_55;
   294                 Result^.Elasticity:= _0_55;
   295                 Result^.Friction:= _0_995;
   295                 Result^.Friction:= _0_995;
   296                 if cMinesTime < 0 then
   296                 if cMinesTime < 0 then
   297                     Result^.Timer:= getrandom(3)*1000
   297                     Result^.Timer:= getrandom(4)*1000
   298                 else
   298                 else
   299                     Result^.Timer:= cMinesTime*1;
   299                     Result^.Timer:= cMinesTime*1;
   300                 end;
   300                 end;
   301         gtCase: begin
   301         gtCase: begin
   302                 Result^.Radius:= 16;
   302                 Result^.Radius:= 16;