equal
deleted
inserted
replaced
309 gtExplosion: begin |
309 gtExplosion: begin |
310 gear^.X:= gear^.X; |
310 gear^.X:= gear^.X; |
311 gear^.Y:= gear^.Y; |
311 gear^.Y:= gear^.Y; |
312 end; |
312 end; |
313 gtMine: begin |
313 gtMine: begin |
|
314 gear^.Health:= 10; |
314 gear^.State:= gear^.State or gstMoving; |
315 gear^.State:= gear^.State or gstMoving; |
315 gear^.Radius:= 2; |
316 gear^.Radius:= 2; |
316 gear^.Elasticity:= _0_55; |
317 gear^.Elasticity:= _0_55; |
317 gear^.Friction:= _0_995; |
318 gear^.Friction:= _0_995; |
318 if cMinesTime < 0 then |
319 if cMinesTime < 0 then |