From e6745f1fd6352420110b5a5b0e4f42c91961b8fd Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Sat, 18 Nov 2023 10:52:38 -0800
Subject: [PATCH] Fix Zork issue when opening non-functional windows.

Updated Zork to address issue with bad message when opening
non-functional windows.

Addresses this issue:  https://github.com/heasm66/mdlzork/issues/58
And this fix: https://github.com/heasm66/mdlzork/pull/59
---
 src/lcf/{act1.255 => act1.256} | 5 +++++
 src/lcf/{dung.355 => dung.356} | 8 ++++----
 2 files changed, 9 insertions(+), 4 deletions(-)
 rename src/lcf/{act1.255 => act1.256} (99%)
 rename src/lcf/{dung.355 => dung.356} (99%)

diff --git a/src/lcf/act1.255 b/src/lcf/act1.256
similarity index 99%
rename from src/lcf/act1.255
rename to src/lcf/act1.256
index 1bd609f8..521ad5f6 100644
--- a/src/lcf/act1.255
+++ b/src/lcf/act1.256
@@ -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/src/lcf/dung.355 b/src/lcf/dung.356
similarity index 99%
rename from src/lcf/dung.355
rename to src/lcf/dung.356
index 26abd71e..9317fdf4 100644
--- a/src/lcf/dung.355
+++ b/src/lcf/dung.356
@@ -1509,11 +1509,11 @@ threat to his livelihood."]]!]>
 	 WATER-FUNCTION>
 
 <GOBJECT DWINDOW
-	 ["WINDO"]
+	 ["DWIND" "WINDO"]
 	 []
 	 "window"
 	 ,OVISON
-	 <>>
+	 DWIND-FUNCTION>
 
 \
 
@@ -1597,7 +1597,7 @@ and all the windows are barred."
        "North of House"
        <EXIT "WEST" "WHOUS" "EAST" "EHOUS" "NORTH" "FORE3"
 	      "SOUTH" #NEXIT "The windows are all barred.">
-       ()
+       (<GET-OBJ "DWIND">)
        <>
        <+ ,RLANDBIT ,RLIGHTBIT ,RNWALLBIT ,RSACREDBIT>
        (RGLOBAL <+ ,DWINDOW ,HOUSEBIT>)>
@@ -1608,7 +1608,7 @@ and all the windows are barred."
        "South of House"
        <EXIT "WEST" "WHOUS" "EAST" "EHOUS" "SOUTH" "FORE2"
 	      "NORTH" #NEXIT "The windows are all barred.">
-       ()
+       (<GET-OBJ "DWIND">)
        <>
        <+ ,RLANDBIT ,RLIGHTBIT ,RNWALLBIT ,RSACREDBIT>
        (RGLOBAL <+ ,DWINDOW ,HOUSEBIT>)>