equal
deleted
inserted
replaced
217 |
217 |
218 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then |
218 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then |
219 gear^.Z:= cHHZ+1 |
219 gear^.Z:= cHHZ+1 |
220 else gear^.Z:= cUsualZ; |
220 else gear^.Z:= cUsualZ; |
221 |
221 |
|
222 // set gstInBounceEdge if gear spawned inside the bounce world edge |
|
223 if WorldEdge = weBounce then |
|
224 if (hwRound(gear^.X) - Gear^.Radius < leftX) or (hwRound(gear^.X) + Gear^.Radius > rightX) then |
|
225 case gear^.Kind of |
|
226 // list all gears here that could collide with the bounce world edge |
|
227 gtHedgehog, |
|
228 gtMine, |
|
229 gtAirBomb, |
|
230 gtDrill, |
|
231 gtNapalmBomb, |
|
232 gtCase, |
|
233 gtAirMine, |
|
234 gtExplosives, |
|
235 gtGrenade, |
|
236 gtShell, |
|
237 gtBee, |
|
238 gtDynamite, |
|
239 gtClusterBomb, |
|
240 gtMelonPiece, |
|
241 gtCluster, |
|
242 gtMortar, |
|
243 gtKamikaze, |
|
244 gtCake, |
|
245 gtWatermelon, |
|
246 gtGasBomb, |
|
247 gtHellishBomb, |
|
248 gtBall, |
|
249 gtRCPlane, |
|
250 gtSniperRifleShot, |
|
251 gtShotgunShot, |
|
252 gtDEagleShot, |
|
253 gtSineGunShot, |
|
254 gtMinigunBullet, |
|
255 gtEgg, |
|
256 gtPiano, |
|
257 gtSMine, |
|
258 gtSnowball, |
|
259 gtKnife, |
|
260 gtCreeper, |
|
261 gtMolotov, |
|
262 gtFlake, |
|
263 gtGrave, |
|
264 gtPortal, |
|
265 gtTarget: |
|
266 gear^.State := gear^.State or gstInBounceEdge; |
|
267 end; |
|
268 |
222 case Kind of |
269 case Kind of |
223 gtFlame: Gear^.Boom := 2; // some additional expl in there are x3, x4 this |
270 gtFlame: Gear^.Boom := 2; // some additional expl in there are x3, x4 this |
224 gtHedgehog: Gear^.Boom := 30; |
271 gtHedgehog: Gear^.Boom := 30; |
225 gtMine: Gear^.Boom := 50; |
272 gtMine: Gear^.Boom := 50; |
226 gtCase: Gear^.Boom := 25; |
273 gtCase: Gear^.Boom := 25; |