# HG changeset patch
# User unc0rr
# Date 1192901226 0
# Node ID 8bdbc240f50fe0ce1f4b536efc88f9fe9dc47c4f
# Parent  451cabd49241cd46e212c2acc91c326d2f85a7e1
New game flag for non-destroyable land

diff -r 451cabd49241 -r 8bdbc240f50f hedgewars/uConsts.pas
--- a/hedgewars/uConsts.pas	Sat Oct 20 13:49:36 2007 +0000
+++ b/hedgewars/uConsts.pas	Sat Oct 20 17:27:06 2007 +0000
@@ -102,7 +102,7 @@
       cMaxPower     = 1500;
       cMaxAngle     = 2048;
       cPowerDivisor = 1500;
-      
+
       MAXNAMELEN = 32;
 
       COLOR_LAND = $00FFFFFF;
@@ -138,6 +138,7 @@
 
       gfForts       = $00000001;
       gfMultiWeapon = $00000002;
+      gfSolidLand   = $00000004;
       gfOneClanMode = $10000000;
 
       gstDrowning       = $00000001;
diff -r 451cabd49241 -r 8bdbc240f50f hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sat Oct 20 13:49:36 2007 +0000
+++ b/hedgewars/uGears.pas	Sat Oct 20 17:27:06 2007 +0000
@@ -707,7 +707,8 @@
          end;
       Gear:= Gear^.NextGear
       end;
-if (Mask and EXPLDontDraw) = 0 then DrawExplosion(X, Y, Radius);
+if (Mask and EXPLDontDraw) = 0 then
+   if (GameFlags and gfSolidLand) = 0 then DrawExplosion(X, Y, Radius);
 uAIMisc.AwareOfExplosion(0, 0, 0)
 end;
 
@@ -748,7 +749,7 @@
            end;
     t:= t^.NextGear
     end;
-DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cShotgunRadius)
+if (GameFlags and gfSolidLand) = 0 then DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cShotgunRadius)
 end;
 
 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt);