equal
deleted
inserted
replaced
315 gtRope: begin |
315 gtRope: begin |
316 gear^.Radius:= 3; |
316 gear^.Radius:= 3; |
317 gear^.Friction:= _450; |
317 gear^.Friction:= _450; |
318 RopePoints.Count:= 0; |
318 RopePoints.Count:= 0; |
319 end; |
319 end; |
320 gtExplosion: begin |
|
321 gear^.X:= gear^.X; |
|
322 gear^.Y:= gear^.Y; |
|
323 end; |
|
324 gtMine: begin |
320 gtMine: begin |
325 gear^.Health:= 10; |
321 gear^.Health:= 10; |
326 gear^.State:= gear^.State or gstMoving; |
322 gear^.State:= gear^.State or gstMoving; |
327 gear^.Radius:= 2; |
323 gear^.Radius:= 2; |
328 gear^.Elasticity:= _0_55; |
324 gear^.Elasticity:= _0_55; |
446 gear^.Timer:= 500; |
442 gear^.Timer:= 500; |
447 gear^.Health := 2000; |
443 gear^.Health := 2000; |
448 gear^.FlightTime := 2; |
444 gear^.FlightTime := 2; |
449 end; |
445 end; |
450 gtBigExplosion: begin |
446 gtBigExplosion: begin |
451 gear^.X:= gear^.X; |
|
452 gear^.Y:= gear^.Y; |
|
453 gear^.Angle:= random(360); |
447 gear^.Angle:= random(360); |
454 end; |
448 end; |
455 gtEgg: begin |
449 gtEgg: begin |
456 gear^.Radius:= 4; |
450 gear^.Radius:= 4; |
457 gear^.Elasticity:= _0_6; |
451 gear^.Elasticity:= _0_6; |