hedgewars/uGearsList.pas
changeset 7374 514138949c76
parent 7366 e5a0856708dc
child 7389 15c3fb4882df
--- a/hedgewars/uGearsList.pas	Tue Jul 10 11:08:35 2012 +0200
+++ b/hedgewars/uGearsList.pas	Tue Jul 10 11:09:38 2012 +0200
@@ -40,7 +40,7 @@
 begin
     tmp:= GearsList;
     ptmp:= GearsList;
-    while (tmp <> nil) and (tmp^.Z <= Gear^.Z) do
+    while (tmp <> nil) and (tmp^.Z < Gear^.Z) do
         begin
         ptmp:= tmp;
         tmp:= tmp^.NextGear
@@ -101,10 +101,11 @@
 // Define ammo association, if any.
 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
 gear^.CollisionMask:= $FFFF;
+gear^.Power:= 0;
 
 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog;
 
-if Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
+if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
     gear^.Z:= cHHZ+1
 else gear^.Z:= cUsualZ;
 
@@ -294,6 +295,7 @@
                 gear^.Radius:= 15;
                 gear^.Tag:= Y
                 end;
+   gtAirAttack: gear^.Z:= cHHZ+2;
      gtAirBomb: begin
                 gear^.Radius:= 5;
                 gear^.Density:= _2;