hedgewars/uGears.pas
changeset 4225 ce9e2b05e9c1
parent 4216 184181604092
child 4238 6f1631765ebd
equal deleted inserted replaced
4224:99c6d87df131 4225:ce9e2b05e9c1
   363                 gear^.State:= gear^.State or gstMoving;
   363                 gear^.State:= gear^.State or gstMoving;
   364                 gear^.Radius:= 2;
   364                 gear^.Radius:= 2;
   365                 gear^.Elasticity:= _0_55;
   365                 gear^.Elasticity:= _0_55;
   366                 gear^.Friction:= _0_995;
   366                 gear^.Friction:= _0_995;
   367                 if cMinesTime < 0 then
   367                 if cMinesTime < 0 then
   368                     gear^.Timer:= getrandom(51)*100
   368                     gear^.Timer:= getrandom(6)*1000
   369                 else
   369                 else
   370                     gear^.Timer:= cMinesTime*1000;
   370                     gear^.Timer:= cMinesTime*1;
   371                 end;
   371                 end;
   372        gtSMine: begin
   372        gtSMine: begin
   373                 gear^.Health:= 10;
   373                 gear^.Health:= 10;
   374                 gear^.State:= gear^.State or gstMoving;
   374                 gear^.State:= gear^.State or gstMoving;
   375                 gear^.Radius:= 2;
   375                 gear^.Radius:= 2;