From 2e93c506a5d84c812151aaf5c15312dc23479af1 Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Mon, 20 Feb 2023 17:20:25 -0800
Subject: [PATCH] Zork (616 point version + 100 point endgame) built with MDL
 55.

---
 build/build.tcl     |  1 +
 build/muddle.tcl    |  4 ---
 build/zork.tcl      | 17 ++++++++++++
 src/lcf/comp.preamb |  8 ++++++
 src/lcf/comp.xxfile | 66 +++++++++++++++++++++++++++++++++++++++++++++
 src/lcf/zork.xxfile | 30 +++++++++++++++++++++
 6 files changed, 122 insertions(+), 4 deletions(-)
 create mode 100644 build/zork.tcl
 create mode 100644 src/lcf/comp.preamb
 create mode 100644 src/lcf/comp.xxfile
 create mode 100644 src/lcf/zork.xxfile

diff --git a/build/build.tcl b/build/build.tcl
index 00deec48..05ba86d9 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -177,6 +177,7 @@ if {$env(BASICS)!="yes"} {
     source $build/scheme.tcl
     source $build/dm.tcl
     source $build/muddle.tcl
+    source $build/zork.tcl
     source $build/sail.tcl
     source $build/typeset.tcl
 }
diff --git a/build/muddle.tcl b/build/muddle.tcl
index 9ef19174..794973ef 100644
--- a/build/muddle.tcl
+++ b/build/muddle.tcl
@@ -74,7 +74,3 @@ expect ":KILL"
 mkdir "mbprog"
 respond "*" ":assem \"mprog2;lsrtns >\" \"mbprog;lsrtns nbin\"\r"
 expect ":KILL"
-
-# Zork startup
-respond "*" ":midas sys2; ts zork_taa; zork\r"
-expect ":KILL"
diff --git a/build/zork.tcl b/build/zork.tcl
new file mode 100644
index 00000000..5c7dca0e
--- /dev/null
+++ b/build/zork.tcl
@@ -0,0 +1,17 @@
+log_progress "ENTERING BUILD SCRIPT: ZORK"
+
+# Zork startup
+respond "*" ":midas sys2; ts zork_taa; zork\r"
+expect ":KILL"
+
+mkdir "cfs"
+
+respond "*" ":xxfile lcf;comp log_lcf;comp xxfile\r"
+expect -timeout 6000 "Job XXFILE interrupted: .VALUE;"
+type "\033p"
+expect ":KILL"
+
+respond "*"  ":xxfile lcf;zork log_lcf;zork xxfile\r"
+expect "Job XXFILE interrupted: .VALUE;"
+type "\033p"
+expect ":KILL"
diff --git a/src/lcf/comp.preamb b/src/lcf/comp.preamb
new file mode 100644
index 00000000..2fae5bda
--- /dev/null
+++ b/src/lcf/comp.preamb
@@ -0,0 +1,8 @@
+<SNAME "LCF">
+<FLOAD "prim nbin">
+<FLOAD "defs nbin">
+<FLOAD "util nbin">
+<FLOAD "tell nbin">
+<FLOAD "makstr nbin">
+<FLOAD "typhak nbin">
+<OVERFLOW <>>
diff --git a/src/lcf/comp.xxfile b/src/lcf/comp.xxfile
new file mode 100644
index 00000000..c2622a8c
--- /dev/null
+++ b/src/lcf/comp.xxfile
@@ -0,0 +1,66 @@
+R
+:pcomp
+<SNAME "LCF">
+J
+<FILE-COMPILE "prim >">
+p
+J
+<FILE-COMPILE "defs >">
+p
+J
+<FILE-COMPILE "util >">
+p
+J
+<FILE-COMPILE "makstr >">
+p
+J
+<FILE-COMPILE "typhak >">
+p
+J
+<QUIT>
+:assem "lcf;tell >" "lcf;tell nbin"
+n
+J
+:pcomp
+<FLOAD "lcf;comp preamb">
+J
+<FILE-COMPILE "rooms >">
+p
+J
+<FILE-COMPILE "parser >">
+p
+J
+<QUIT>
+:pcomp
+<FLOAD "lcf;comp preamb">
+J
+<FILE-COMPILE "act1 >">
+p
+J
+<FILE-COMPILE "act2 >">
+p
+J
+<QUIT>
+:pcomp
+<FLOAD "lcf;comp preamb">
+J
+<FILE-COMPILE "act3 >">
+p
+J
+<FILE-COMPILE "act4 >">
+p
+J
+<QUIT>
+:pcomp
+<FLOAD "lcf;comp preamb">
+J
+<FILE-COMPILE "melee >">
+p
+J
+<FILE-COMPILE "sr >">
+p
+J
+<QUIT>
+Q
+
+
diff --git a/src/lcf/zork.xxfile b/src/lcf/zork.xxfile
new file mode 100644
index 00000000..82bba671
--- /dev/null
+++ b/src/lcf/zork.xxfile
@@ -0,0 +1,30 @@
+R
+:mudsav;mud55
+<BLOAT 150000 1 3 2000 30 9>
+<SNAME "LCF">
+<FLOAD "prim nbin">
+<FLOAD "defs nbin">
+<FLOAD "util nbin">
+<FLOAD "makstr nbin">
+<FLOAD "typhak nbin">
+<FLOAD "rooms nbin">
+<FLOAD "parser nbin">
+<FLOAD "act1 nbin">
+<FLOAD "act2 nbin">
+<FLOAD "act3 nbin">
+<FLOAD "act4 nbin">
+<FLOAD "tell nbin">
+<FLOAD "melee nbin">
+<FLOAD "sr nbin">
+<FLOAD "dung">
+<RSUBR-LINK <>>
+%%<HANDLER <GET ERROR!-INTERRUPTS INTERRUPT> ,ERRH>
+<SETG MUD-HAND <OFF <3 <GET ,INCHAN INTERRUPT>>>>
+%%<SETG ZORK-HAND <OFF <HANDLER <GET ,INCHAN INTERRUPT> ,CTRL-S>>>
+<SETG END-GAME-EXISTS? T>
+<GC-MON T>
+<PSETG WINNERS '["EJS", "TAA"]>
+<SAVE-IT "cfs;madadv save" <>>
+J
+<QUIT>
+Q