Merge pull request #59 from if-dungeon/master

#58 - proposed changes Add response for OPEN on dummy windows at NHOUS and SHOUS.
heasm66 · Jun 25, 2024 · 9fc5ba6 · 9fc5ba6
2 parents cfbe463 + 55cd2ec
commit 9fc5ba6
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 2 deletions.
diff --git a/mdlzork_791211/patched_confusion/act1.mud b/mdlzork_791211/patched_confusion/act1.mud
@@ -1661,6 +1661,11 @@ probably).">
           (<VERB? "MUNG">
            <TELL <PICK-ONE ,DOORMUNGS>>)>>
 
+<DEFINE DWIND-FUNCTION ()
+    <COND (<VERB? "OPEN">
+           <TELL
+"The window cannot be opened.">)>>
+
 <DEFINE PUMPER ("AUX" (P <SFIND-OBJ "PUMP">))
   <COND (<OR <IN-ROOM? .P>
              <MEMQ .P <AOBJS ,WINNER>>>

diff --git a/mdlzork_791211/patched_confusion/dung.mud b/mdlzork_791211/patched_confusion/dung.mud
@@ -1513,7 +1513,7 @@ threat to his livelihood."]]!]>
          []
          "window"
          ,OVISON
-         <>>
+         DWIND-FUNCTION>
 
 
 

diff --git a/mdlzork_810722/patched_confusion/act1.mud b/mdlzork_810722/patched_confusion/act1.mud
@@ -1661,6 +1661,11 @@ probably).">
           (<VERB? "MUNG">
            <TELL <PICK-ONE ,DOORMUNGS>>)>>
 
+<DEFINE DWIND-FUNCTION ()
+    <COND (<VERB? "OPEN">
+           <TELL
+"The window cannot be opened.">)>>
+
 <DEFINE PUMPER ("AUX" (P <SFIND-OBJ "PUMP">))
   <COND (<OR <IN-ROOM? .P>
              <MEMQ .P <AOBJS ,WINNER>>>

diff --git a/mdlzork_810722/patched_confusion/dung.mud b/mdlzork_810722/patched_confusion/dung.mud
@@ -1513,7 +1513,7 @@ threat to his livelihood."]]!]>
          []
          "window"
          ,OVISON
-         <>>
+         DWIND-FUNCTION>