718 gtIceGun: begin |
718 gtIceGun: begin |
719 gear^.Health:= 1000; |
719 gear^.Health:= 1000; |
720 gear^.Radius:= 8; |
720 gear^.Radius:= 8; |
721 end; |
721 end; |
722 gtDuck: begin |
722 gtDuck: begin |
723 gear^.Pos:= 0; // 0: in air, 1-4: on water, |
723 gear^.Pos:= 0; // 0: in air, 1-4: on water, 5-8: underwater |
724 // 1: bottom, 2: bottom (mirrored), |
724 // 1: bottom, 2: bottom (mirrored), |
725 // 3: left Sea edge, 4: right Sea edge |
725 // 3: left Sea edge, 4: right Sea edge |
|
726 // 6: bottom, 7: bottom (mirrored) |
|
727 // 7: left Sea edge, 8: right Sea edge |
726 gear^.Tag:= 1; // 1: facing right, -1: facing left |
728 gear^.Tag:= 1; // 1: facing right, -1: facing left |
727 if gear^.Timer = 0 then |
729 if gear^.Timer = 0 then |
728 gear^.Timer:= 15000; // Explosion timer to avoid duck existing forever |
730 gear^.Timer:= 15000; // Explosion timer to avoid duck existing forever |
729 gear^.Radius:= 9; // Collision radius (with landscape) |
731 gear^.Radius:= 9; // Collision radius (with landscape) |
730 gear^.Karma:= 24; // Distance from water when swimming |
732 gear^.Karma:= 24; // Distance from water when swimming |
731 gear^.Damage:= 500; // Speed factor when swimming on water (multiplied with wind speed) |
733 gear^.Damage:= 500; // Speed factor when swimming on water (multiplied with wind speed) |
|
734 gear^.State:= gear^.State or gstSubmersible; |
732 gear^.Elasticity:= _0_6; |
735 gear^.Elasticity:= _0_6; |
733 gear^.Friction:= _0_8; |
736 gear^.Friction:= _0_8; |
734 gear^.Density:= _0_5; |
737 gear^.Density:= _0_5; |
735 gear^.AdvBounce:= 1; |
738 gear^.AdvBounce:= 1; |
736 end; |
739 end; |