equal
deleted
inserted
replaced
264 gtHammer: if cDamageModifier > _1 then // scale it based on cDamageModifier? |
264 gtHammer: if cDamageModifier > _1 then // scale it based on cDamageModifier? |
265 Gear^.Boom := 2 |
265 Gear^.Boom := 2 |
266 else Gear^.Boom := 3; |
266 else Gear^.Boom := 3; |
267 gtPoisonCloud: Gear^.Boom := 20; |
267 gtPoisonCloud: Gear^.Boom := 20; |
268 gtKnife: Gear^.Boom := 40000; // arbitrary scaling factor since impact-based |
268 gtKnife: Gear^.Boom := 40000; // arbitrary scaling factor since impact-based |
269 gtDuck: Gear^.Boom := 40; |
269 gtDuck: Gear^.Boom := 100; |
270 gtMinigunBullet: Gear^.Boom := 2; |
270 gtMinigunBullet: Gear^.Boom := 2; |
271 end; |
271 end; |
272 |
272 |
273 case Kind of |
273 case Kind of |
274 gtGrenade, |
274 gtGrenade, |
728 gear^.Health:= 1000; |
728 gear^.Health:= 1000; |
729 gear^.Radius:= 8; |
729 gear^.Radius:= 8; |
730 gear^.Density:= _0; |
730 gear^.Density:= _0; |
731 end; |
731 end; |
732 gtDuck: begin |
732 gtDuck: begin |
|
733 { |
733 gear^.Pos:= 0; // 0: in air, 1-4: on water, 5-8: underwater |
734 gear^.Pos:= 0; // 0: in air, 1-4: on water, 5-8: underwater |
734 // 1: bottom, 2: bottom (mirrored), |
735 // 1: bottom, 2: bottom (mirrored), |
735 // 3: left Sea edge, 4: right Sea edge |
736 // 3: left Sea edge, 4: right Sea edge |
736 // 6: bottom, 7: bottom (mirrored) |
737 // 6: bottom, 7: bottom (mirrored) |
737 // 7: left Sea edge, 8: right Sea edge |
738 // 7: left Sea edge, 8: right Sea edge |
744 gear^.State:= gear^.State or gstSubmersible; |
745 gear^.State:= gear^.State or gstSubmersible; |
745 gear^.Elasticity:= _0_6; |
746 gear^.Elasticity:= _0_6; |
746 gear^.Friction:= _0_8; |
747 gear^.Friction:= _0_8; |
747 gear^.Density:= _0_5; |
748 gear^.Density:= _0_5; |
748 gear^.AdvBounce:= 1; |
749 gear^.AdvBounce:= 1; |
|
750 } |
|
751 |
|
752 |
|
753 gear^.Radius:= cHHRadius; |
|
754 gear^.Elasticity:= _0_35; |
|
755 gear^.Friction:= _0_93; |
|
756 gear^.Density:= _5; |
|
757 |
|
758 gear^.AdvBounce:= 1; |
|
759 gear^.ImpactSound:= sndAirMineImpact; |
|
760 gear^.nImpactSounds:= 1; |
|
761 gear^.Health:= 30; |
|
762 gear^.Radius:= 8; |
|
763 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
|
764 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range. |
|
765 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff |
|
766 if gear^.Timer = 0 then |
|
767 gear^.Timer:= 5000; |
|
768 gear^.WDTimer:= gear^.Timer |
749 end; |
769 end; |
750 gtMinigun: begin |
770 gtMinigun: begin |
751 // Timer. First, it's the timer before shooting. Then it will become the shooting timer and is set to Karma |
771 // Timer. First, it's the timer before shooting. Then it will become the shooting timer and is set to Karma |
752 if gear^.Timer = 0 then |
772 if gear^.Timer = 0 then |
753 gear^.Timer:= 601; |
773 gear^.Timer:= 601; |