equal
deleted
inserted
replaced
369 gear^.State:= gear^.State or gstMoving; |
369 gear^.State:= gear^.State or gstMoving; |
370 gear^.Radius:= 2; |
370 gear^.Radius:= 2; |
371 gear^.Elasticity:= _0_55; |
371 gear^.Elasticity:= _0_55; |
372 gear^.Friction:= _0_995; |
372 gear^.Friction:= _0_995; |
373 if cMinesTime < 0 then |
373 if cMinesTime < 0 then |
374 gear^.Timer:= getrandom(6)*1000 |
374 gear^.Timer:= getrandom(4)*1000 |
375 else |
375 else |
376 gear^.Timer:= cMinesTime*1; |
376 gear^.Timer:= cMinesTime*1; |
377 end; |
377 end; |
378 gtSMine: begin |
378 gtSMine: begin |
379 gear^.Health:= 10; |
379 gear^.Health:= 10; |