equal
deleted
inserted
replaced
104 (* gtIceGun *) , amIceGun |
104 (* gtIceGun *) , amIceGun |
105 (* gtAddAmmo *) , amNothing |
105 (* gtAddAmmo *) , amNothing |
106 (* gtGenericFaller *) , amNothing |
106 (* gtGenericFaller *) , amNothing |
107 (* gtKnife *) , amKnife |
107 (* gtKnife *) , amKnife |
108 (* gtDuck *) , amDuck |
108 (* gtDuck *) , amDuck |
|
109 (* gtMinigun *) , amMinigun |
|
110 (* gtMinigunBullet *) , amMinigun |
109 ); |
111 ); |
110 |
112 |
111 |
113 |
112 var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless |
114 var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless |
113 |
115 |
263 Gear^.Boom := 2 |
265 Gear^.Boom := 2 |
264 else Gear^.Boom := 3; |
266 else Gear^.Boom := 3; |
265 gtPoisonCloud: Gear^.Boom := 20; |
267 gtPoisonCloud: Gear^.Boom := 20; |
266 gtKnife: Gear^.Boom := 40000; // arbitrary scaling factor since impact-based |
268 gtKnife: Gear^.Boom := 40000; // arbitrary scaling factor since impact-based |
267 gtDuck: Gear^.Boom := 40; |
269 gtDuck: Gear^.Boom := 40; |
|
270 gtMinigunBullet: Gear^.Boom := 2; |
268 end; |
271 end; |
269 |
272 |
270 case Kind of |
273 case Kind of |
271 gtGrenade, |
274 gtGrenade, |
272 gtClusterBomb, |
275 gtClusterBomb, |
738 gear^.State:= gear^.State or gstSubmersible; |
741 gear^.State:= gear^.State or gstSubmersible; |
739 gear^.Elasticity:= _0_6; |
742 gear^.Elasticity:= _0_6; |
740 gear^.Friction:= _0_8; |
743 gear^.Friction:= _0_8; |
741 gear^.Density:= _0_5; |
744 gear^.Density:= _0_5; |
742 gear^.AdvBounce:= 1; |
745 gear^.AdvBounce:= 1; |
|
746 end; |
|
747 gtMinigun: begin |
|
748 if gear^.Timer = 0 then gear^.Timer:= 601; |
|
749 end; |
|
750 gtMinigunBullet: begin |
|
751 gear^.Radius:= 1; |
|
752 gear^.Health:= 2; |
743 end; |
753 end; |
744 gtGenericFaller:begin |
754 gtGenericFaller:begin |
745 gear^.AdvBounce:= 1; |
755 gear^.AdvBounce:= 1; |
746 gear^.Radius:= 1; |
756 gear^.Radius:= 1; |
747 gear^.Elasticity:= _0_9; |
757 gear^.Elasticity:= _0_9; |