diff -r 07e9849c6a70 -r 35e6269227b6 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sat Jan 29 17:40:45 2011 +0100
+++ b/hedgewars/uGears.pas	Sat Jan 29 18:18:44 2011 +0100
@@ -59,10 +59,10 @@
 procedure AfterAttack; forward;
 procedure HedgehogStep(Gear: PGear); forward;
 procedure doStepHedgehogMoving(Gear: PGear); forward;
-procedure HedgehogChAngle(Gear: PGear); forward;
+procedure HedgehogChAngle(HHGear: PGear); forward;
 procedure ShotgunShot(Gear: PGear); forward;
 procedure PickUp(HH, Gear: PGear); forward;
-procedure HHSetWeapon(Gear: PGear); forward;
+procedure HHSetWeapon(HHGear: PGear); forward;
 procedure doStepCase(Gear: PGear); forward;
 
 {$INCLUDE "GSHandlers.inc"}
@@ -128,7 +128,8 @@
             @doStepResurrector,
             @doStepNapalmBomb,
             @doStepSnowball,
-            @doStepSnowflake
+            @doStepSnowflake,
+            @doStepStructure
             );
 
 procedure InsertGearToList(Gear: PGear);
@@ -514,6 +515,14 @@
                 gear^.Radius:= 5;
                 gear^.Density:= _1_5;
                 end;
+   gtStructure: begin
+                gear^.ImpactSound:= sndGrenadeImpact;
+                gear^.nImpactSounds:= 1;
+                gear^.Radius:= 13;
+                gear^.Elasticity:= _0_3;
+                gear^.Timer:= 5000;
+                gear^.Health:= 50;
+                end;
     end;
 
 InsertGearToList(gear);
@@ -1034,7 +1043,7 @@
            spawnHealthTagForHH(CurrentHedgehog^.Gear, tmpDmg);
            end;
         end;
-    end else // not gtHedgehog
+    end else if Gear^.Kind <> gtStructure then // not gtHedgehog nor gtStructure
         begin
         AddFileLog('Assigning hedgehog ' + inttostr(LongInt(AttackerHog)) + ' to gear ' + inttostr(Gear^.uid));
         Gear^.Hedgehog:= AttackerHog;
@@ -1193,7 +1202,8 @@
                 gtCase,
                 gtTarget,
                 gtFlame,
-                gtExplosives: begin
+                gtExplosives,
+                gtStructure: begin
 // Run the calcs only once we know we have a type that will need damage
                         if hwRound(hwAbs(Gear^.X-fX)+hwAbs(Gear^.Y-fY)) < dmgBase then
                             dmg:= dmgBase - hwRound(Distance(Gear^.X - fX, Gear^.Y - fY));
@@ -1268,7 +1278,8 @@
             gtSMine,
             gtCase,
             gtTarget,
-            gtExplosives: begin
+            gtExplosives,
+            gtStructure: begin
                     if (not t^.Invulnerable) then
                         ApplyDamage(t, Gear^.Hedgehog, dmg, dsBullet)
                     else
@@ -1332,7 +1343,8 @@
             gtSMine,
             gtTarget,
             gtCase,
-            gtExplosives: begin
+            gtExplosives,
+            gtStructure: begin
                     if (Ammo^.Kind = gtDrill) then begin Ammo^.Timer:= 0; exit; end;
                     if (not Gear^.Invulnerable) then
                         ApplyDamage(Gear, Ammo^.Hedgehog, tmpDmg, dsShove)