From e884c7671703e1470c0328374a7087497126d57a Mon Sep 17 00:00:00 2001
From: jesusalva <cpntb1@ymail.com>
Date: Sun, 4 Mar 2018 01:44:00 -0300
Subject: Basic support to expand and shrink Aeros. We need a GM admin NPC...

---
 npc/001-1/portal.txt | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/npc/001-1/portal.txt b/npc/001-1/portal.txt
index 6e0070170..4708930e8 100644
--- a/npc/001-1/portal.txt
+++ b/npc/001-1/portal.txt
@@ -14,6 +14,8 @@ OnTouch:
         l("No."), L_Close,
         rif(getgmlevel() && !$@GM_EVENT, l("Enable Event")), L_Enable,
         rif(getgmlevel() && $@GM_EVENT, l("Disable Event")), L_Disable,
+        rif(getgmlevel() && .WALL, l("Open Extension")), L_DelWall,
+        rif(getgmlevel() && !.WALL, l("Close Extension")), L_AddWall,
         l("Yes."), L_Leave;
 
 L_Leave:
@@ -28,6 +30,18 @@ L_Disable:
     $@GM_EVENT=0;
     close;
 
+L_AddWall:
+    setcells "001-1", 169, 63, 169, 76, 3, "AerosWall";
+    //setwall("001-1", 169, 63, 13, DOWN, false, "AerosWall");
+    .WALL=1;
+    close;
+
+L_DelWall:
+    delcells "AerosWall";
+    //delwall("AerosWall");
+    .WALL=0;
+    close;
+
 L_Close:
     close;
 }
-- 
cgit v1.2.3-60-g2f50