equal
deleted
inserted
replaced
105 (* gtGenericFaller *) , amNothing |
105 (* gtGenericFaller *) , amNothing |
106 (* gtKnife *) , amKnife |
106 (* gtKnife *) , amKnife |
107 (* gtCreeper *) , amCreeper |
107 (* gtCreeper *) , amCreeper |
108 (* gtMinigun *) , amMinigun |
108 (* gtMinigun *) , amMinigun |
109 (* gtMinigunBullet *) , amMinigun |
109 (* gtMinigunBullet *) , amMinigun |
|
110 (* gtSentry *) , amSentry |
110 ); |
111 ); |
111 |
112 |
112 |
113 |
113 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 |
114 |
115 |
257 gtPiano, |
258 gtPiano, |
258 gtSMine, |
259 gtSMine, |
259 gtSnowball, |
260 gtSnowball, |
260 gtKnife, |
261 gtKnife, |
261 gtCreeper, |
262 gtCreeper, |
|
263 gtSentry, |
262 gtMolotov, |
264 gtMolotov, |
263 gtFlake, |
265 gtFlake, |
264 gtGrave, |
266 gtGrave, |
265 gtPortal, |
267 gtPortal, |
266 gtTarget: |
268 gtTarget: |
313 Gear^.Boom := 2 |
315 Gear^.Boom := 2 |
314 else Gear^.Boom := 3; |
316 else Gear^.Boom := 3; |
315 gtPoisonCloud: Gear^.Boom := 20; |
317 gtPoisonCloud: Gear^.Boom := 20; |
316 gtKnife: Gear^.Boom := 40000; // arbitrary scaling factor since impact-based |
318 gtKnife: Gear^.Boom := 40000; // arbitrary scaling factor since impact-based |
317 gtCreeper: Gear^.Boom := 100; |
319 gtCreeper: Gear^.Boom := 100; |
318 gtMinigunBullet: Gear^.Boom := 2; |
320 gtMinigunBullet: Gear^.Boom := 2; |
|
321 gtSentry: Gear^.Boom := 25; |
319 end; |
322 end; |
320 |
323 |
321 case Kind of |
324 case Kind of |
322 gtGrenade, |
325 gtGrenade, |
323 gtClusterBomb, |
326 gtClusterBomb, |
826 gear^.Karma:= 3451; |
829 gear^.Karma:= 3451; |
827 end; |
830 end; |
828 gtMinigunBullet: begin |
831 gtMinigunBullet: begin |
829 gear^.Radius:= 1; |
832 gear^.Radius:= 1; |
830 gear^.Health:= 2; |
833 gear^.Health:= 2; |
|
834 end; |
|
835 gtSentry: begin |
|
836 gear^.Radius:= cHHRadius; |
|
837 gear^.Health:= 100; |
831 end; |
838 end; |
832 gtGenericFaller:begin |
839 gtGenericFaller:begin |
833 gear^.AdvBounce:= 1; |
840 gear^.AdvBounce:= 1; |
834 gear^.Radius:= 1; |
841 gear^.Radius:= 1; |
835 gear^.Elasticity:= _0_9; |
842 gear^.Elasticity:= _0_9; |