hedgewars/uGearsList.pas
changeset 15228 32678e65b25e
parent 15227 deaa316af414
child 15230 ebbc2f04b863
equal deleted inserted replaced
15227:deaa316af414 15228:32678e65b25e
   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;