red power aura in Land of Power

graph.cpp

@@ -4601,6 +4601,7 @@ int ceiling_category(cell *c) {
     case laAsteroids:
       return 1;
     
+    case laPower:
     case laWineyard:
     case laDesert:
     case laAlchemist:
@@ -4636,7 +4637,6 @@ int ceiling_category(cell *c) {
     case laCocytus:
     case laEmerald:
     case laDeadCaves:
-    case laPower:
     case laHive:
     case laCamelot:
     case laIvoryTower:
@@ -4786,6 +4786,10 @@ void draw_ceiling(cell *c, const transmatrix& V, int fd, color_t& fcol, color_t&
             queuepolyat(V * zpush(cgi.SKY+0.5), cgi.shSun, 0xFFFF00FF, PPR::SKY);
             }
           break;
+
+        case laPower:
+          col = c->landparam ? 0xFF2010 : 0x000020;
+          break;
         
         case laDesert:
         case laRedRock:

landgen.cpp

@@ -550,7 +550,8 @@ void giantLandSwitch(cell *c, int d, cell *from) {
         if(v == 0 && !euclid) c->wall = waStone;
         else {
           v &= ~3;
-          if((v == 24 || v == 32 || v == 56))
+          c->landparam = (v == 24 || v == 32 || v == 56);
+          if(c->landparam)
             c->wall = waEternalFire;
           else if(hrand(100) < 10) {
             c->wall = waGlass;