equal
deleted
inserted
replaced
626 gear^.Friction:= _0_8; |
626 gear^.Friction:= _0_8; |
627 if gear^.Timer = 0 then |
627 if gear^.Timer = 0 then |
628 gear^.Timer:= 5000; |
628 gear^.Timer:= 5000; |
629 // Tag for drill strike. if 1 then first impact occured already |
629 // Tag for drill strike. if 1 then first impact occured already |
630 gear^.Tag := 0; |
630 gear^.Tag := 0; |
|
631 // Pos for state. If 1, drill is drilling |
|
632 gear^.Pos := 0; |
631 gear^.Radius:= 4; |
633 gear^.Radius:= 4; |
632 gear^.Density:= _1; |
634 gear^.Density:= _1; |
633 end; |
635 end; |
634 gtBall: begin |
636 gtBall: begin |
635 gear^.ImpactSound:= sndGrenadeImpact; |
637 gear^.ImpactSound:= sndGrenadeImpact; |