equal
deleted
inserted
replaced
219 gear^.RenderTimer:= true; |
219 gear^.RenderTimer:= true; |
220 if gear^.Timer = 0 then |
220 if gear^.Timer = 0 then |
221 gear^.Timer:= 3000 |
221 gear^.Timer:= 3000 |
222 end; |
222 end; |
223 gtMelonPiece: begin |
223 gtMelonPiece: begin |
224 gear^.Density:= _2; |
224 gear^.AdvBounce:= 1; |
|
225 gear^.Density:= _2 |
225 end; |
226 end; |
226 gtHedgehog: begin |
227 gtHedgehog: begin |
227 gear^.AdvBounce:= 1; |
228 gear^.AdvBounce:= 1; |
228 gear^.Radius:= cHHRadius; |
229 gear^.Radius:= cHHRadius; |
229 gear^.Elasticity:= _0_35; |
230 gear^.Elasticity:= _0_35; |
490 gear^.Health:= 2000; |
491 gear^.Health:= 2000; |
491 gear^.Damage:= 100; |
492 gear^.Damage:= 100; |
492 gear^.State:= Gear^.State or gstSubmersible |
493 gear^.State:= Gear^.State or gstSubmersible |
493 end; |
494 end; |
494 gtMolotov: begin |
495 gtMolotov: begin |
|
496 gear^.AdvBounce:= 1; |
495 gear^.Radius:= 6; |
497 gear^.Radius:= 6; |
496 gear^.Density:= _2; |
498 gear^.Density:= _2 |
497 end; |
499 end; |
498 gtBirdy: begin |
500 gtBirdy: begin |
499 gear^.Radius:= 16; // todo: check |
501 gear^.Radius:= 16; // todo: check |
500 gear^.Health := 2000; |
502 gear^.Health := 2000; |
501 gear^.FlightTime := 2; |
503 gear^.FlightTime := 2 |
502 end; |
504 end; |
503 gtEgg: begin |
505 gtEgg: begin |
504 gear^.AdvBounce:= 1; |
506 gear^.AdvBounce:= 1; |
505 gear^.Radius:= 4; |
507 gear^.Radius:= 4; |
506 gear^.Elasticity:= _0_6; |
508 gear^.Elasticity:= _0_6; |
510 gear^.Timer:= 3000 |
512 gear^.Timer:= 3000 |
511 end; |
513 end; |
512 gtPortal: begin |
514 gtPortal: begin |
513 gear^.ImpactSound:= sndMelonImpact; |
515 gear^.ImpactSound:= sndMelonImpact; |
514 gear^.nImpactSounds:= 1; |
516 gear^.nImpactSounds:= 1; |
515 gear^.AdvBounce:= 0; |
|
516 gear^.Radius:= 17; |
517 gear^.Radius:= 17; |
517 // set color |
518 // set color |
518 gear^.Tag:= 2 * gear^.Timer; |
519 gear^.Tag:= 2 * gear^.Timer; |
519 gear^.Timer:= 15000; |
520 gear^.Timer:= 15000; |
520 gear^.RenderTimer:= false; |
521 gear^.RenderTimer:= false; |
550 end; |
551 end; |
551 gtWaterUp: begin |
552 gtWaterUp: begin |
552 gear^.Tag := 47; |
553 gear^.Tag := 47; |
553 end; |
554 end; |
554 gtNapalmBomb: begin |
555 gtNapalmBomb: begin |
555 gear^.AdvBounce:= 1; |
|
556 gear^.Elasticity:= _0_8; |
556 gear^.Elasticity:= _0_8; |
557 gear^.Friction:= _0_8; |
557 gear^.Friction:= _0_8; |
558 if gear^.Timer = 0 then gear^.Timer:= 1000; |
558 if gear^.Timer = 0 then gear^.Timer:= 1000; |
559 gear^.Radius:= 5; |
559 gear^.Radius:= 5; |
560 gear^.Density:= _1_5; |
560 gear^.Density:= _1_5; |