equal
deleted
inserted
replaced
416 gear^.State:= gear^.State or gstMoving; |
416 gear^.State:= gear^.State or gstMoving; |
417 gear^.Radius:= 2; |
417 gear^.Radius:= 2; |
418 gear^.Elasticity:= _0_55; |
418 gear^.Elasticity:= _0_55; |
419 gear^.Friction:= _0_995; |
419 gear^.Friction:= _0_995; |
420 gear^.Density:= _1; |
420 gear^.Density:= _1; |
421 gear^.Tag:= 0; |
|
422 if gear^.Timer = 0 then |
421 if gear^.Timer = 0 then |
423 begin |
422 begin |
424 if cMinesTime < 0 then |
423 if cMinesTime < 0 then |
425 gear^.Tag:= 1 // gear tag of 1 means mine timer will be random |
424 gear^.Timer:= getrandom(51)*100 |
426 else |
425 else |
427 gear^.Timer:= cMinesTime |
426 gear^.Timer:= cMinesTime |
428 end |
427 end |
429 end; |
428 end; |
430 gtAirMine: begin |
429 gtAirMine: begin |