An Attempt at a Quest 5 Version of the Loud Room from Zork I

[KVonGit]

<!--Saved by Quest 5.9.9166.36226-->
<asl version="580">
  <include ref="English.aslx" />
  <include ref="Core.aslx" />
  <game name="Loud Room Tester">
    <gameid>05cc68ed-3d37-4d7e-a6ef-503abb2bea14</gameid>
    <version>0.1.5 beta</version>
    <firstpublished>2025</firstpublished>
    <feature_advancedscripts />
    <multiplecommands />
    <attr name="autodescription_description" type="int">2</attr>
    <attr name="autodescription_youcango" type="int">0</attr>
    <attr name="autodescription_youcansee" type="int">3</attr>
    <attr name="autodescription_youarein_useprefix" type="boolean">false</attr>
    <appendobjectdescription />
    <attr name="autodescription_description_newline" type="boolean">false</attr>
    <changeroom_newline />
    <description><![CDATA[Quest 5 version of the Loud Room from ZORK 1.<br/><br/>After entering the Loud Room for the first time, it will move you to either the Round Room, the Damp Cave, or the Deep Canyon.<br/><br/>Upon re-entering the Loud Room, most of your commands will only echo. (Note: if you re-enter this time with commands in your queue (using multiple commands, separated by .), it will dump the command queue and tell you the commands were lost.)<br/><br/>Once you have entered ECHO or SAY, "ECHO" while in the Loud Room, things should normalize.]]></description>
    <turnoffinventory type="boolean">false</turnoffinventory>
    <turnoffplacesandobjects type="boolean">false</turnoffplacesandobjects>
    <pov type="object">player</pov>
    <start type="script">
      game.GATES_OPEN = true
    </start>
    <inituserinterface type="script">
      if (game.pov.parent = Loud Room) {
        if (GetBoolean(game,"GATES_OPEN") and not GetBoolean(game,"LOW_TIDE")) {
          // do nothing
        }
        else {
          EchoScript
        }
      }
    </inituserinterface>
  </game>
  <object name="Loud Room">
    <inherit name="editor_room" />
    <usedefaultprefix type="boolean">false</usedefaultprefix>
    <description type="script">
      OutputTextNoBr ("This is a large room with a ceiling which cannot be detected from the ground. There is a narrow passage from east to west and a stone stairway leading upward.")
      if (GetBoolean(game,"LOUD_FLAG") or (GetBoolean(game,"LOW_TIDE")  and not GetBoolean(game,"GATES_OPEN"))) {
        OutputTextNoBr (" The room is eerie in its quietness.")
      }
      else {
        OutputTextNoBr (" The room is deafeningly loud with an undetermined rushing sound. The sound seems to reverberate from all of the walls, making it difficult even to think.")
      }
      msg ("")
    </description>
    <enter type="script">
      if (GetBoolean(game,"GATES_OPEN") and not GetBoolean(game,"LOW_TIDE")) {
        // do nothing
      }
      else {
        if (HasAttribute(game.pov, "commandqueue")) {
          msg ("The rest of your commands have been lost in the noise.")
          game.pov.commandqueue = null
        }
        EchoScript
      }
    </enter>
    <onexit type="script">
      game.LOW_TIDE = true
    </onexit>
    <object name="platinum bar">
      <inherit name="editor_object" />
      <take />
      <look>It looks just like every other platinum bar you've ever seen.</look>
      <inroomdescription>On the ground is a large {object:platinum bar}.</inroomdescription>
      <alt type="stringlist">
        <value>large platinum bar</value>
      </alt>
      <scenery type="boolean">false</scenery>
      <ondrop type="script">
        this.scenery = true
      </ondrop>
    </object>
    <turnscript name="Loud Room M_END">
      <enabled />
      <script>
        if (GetBoolean(game,"GATES_OPEN") and not GetBoolean(game,"LOW_TIDE")) {
          msg ("It is unbearably loud here, with an ear-splitting roar seeming to come from all around you. There is a pounding in your head which won't stop. With a tremendous effort, you scramble out of the room.")
          game.LOUD_RUNS = Split("Round Room;Damp Cave;Deep Canyon")
          MovePlayer (GetObject(PickOneString(game.LOUD_RUNS)))
        }
      </script>
    </turnscript>
    <exit alias="west" to="Round Room">
      <inherit name="westdirection" />
    </exit>
    <exit alias="east" to="Damp Cave">
      <inherit name="eastdirection" />
    </exit>
    <exit alias="up" to="Deep Canyon">
      <inherit name="updirection" />
    </exit>
  </object>
  <object name="Round Room">
    <inherit name="editor_room" />
    <usedefaultprefix type="boolean">false</usedefaultprefix>
    <description>You can go east from here.</description>
    <exit alias="east" to="Loud Room">
      <inherit name="eastdirection" />
    </exit>
  </object>
  <object name="Damp Cave">
    <inherit name="editor_room" />
    <usedefaultprefix type="boolean">false</usedefaultprefix>
    <description>You can go west from here.</description>
    <exit alias="west" to="Loud Room">
      <inherit name="westdirection" />
    </exit>
  </object>
  <object name="Deep Canyon">
    <inherit name="editor_room" />
    <usedefaultprefix type="boolean">false</usedefaultprefix>
    <description>You can go down from here.</description>
    <exit alias="down" to="Loud Room">
      <inherit name="downdirection" />
    </exit>
    <object name="player">
      <inherit name="editor_object" />
      <inherit name="editor_player" />
    </object>
  </object>
  <function name="GetRoomDescription" type="string"><![CDATA[
    fulldesc = ""
    if (CheckDarkness()) {
      if (HasString(game.pov.parent, "darkroomdescription")) {
        if (LengthOf(game.pov.parent.darkroomdescription) > 0) {
          fulldesc = game.pov.parent.darkroomdescription
        }
      }
      // Added by The Pixie to correct what appears to be a bug
      if (fulldesc = "") {
        fulldesc = DynamicTemplate("LookAtDarkness", game.pov.parent)
      }
    }
    else {
      if (HasString(game.pov.parent, "description")) {
        if (LengthOf(game.pov.parent.description) > 0) {
          fulldesc = game.pov.parent.description
        }
      }
    }
    if (game.appendobjectdescription) {
      foreach (val, ScopeVisibleNotHeld()) {
        if (HasString(val, "inroomdescription")) {
          if (LengthOf(val.inroomdescription) > 0 and val <> game.pov) {
            fulldesc = fulldesc + "<br/>" + val.inroomdescription
          }
        }
      }
    }
    return (Trim(fulldesc))
  ]]></function>
  <function name="ShowRoomDescription"><![CDATA[
    isDark = CheckDarkness()
    if (isDark) {
      descriptionfield = "darkroomdescription"
    }
    else {
      descriptionfield = "description"
    }
    if (game.autodescription) {
      desc = ""
      for (i, 1, 4) {
        if (i = game.autodescription_youarein) {
          if (game.autodescription_youarein_useprefix) {
            youarein = game.pov.parent.descprefix
            desc = AddDescriptionLine (desc, youarein + " " + GetDisplayName(game.pov.parent) + ".")
          }
          else {
            desc = AddDescriptionLine (desc, "<b>" + CapFirst(GetDisplayName(game.pov.parent)) + "</b>")
          }
          if (game.autodescription_youarein_newline) {
            msg (desc + "<br/>")
            desc = ""
          }
        }
        if (i = game.autodescription_youcansee) {
          hidden_from_list = NewObjectList()
          foreach (o, ScopeVisibleNotHeld()) {
            if (HasAttribute(o,"inroomdescription")) {
              if (not Trim(o.inroomdescription) = "") {
                list add (hidden_from_list, o)
              }
            }
          }
          foreach (o, hidden_from_list) {
            o.parentbak = o.parent
            o.parent = null
          }
          objects = FormatObjectList(game.pov.parent.objectslistprefix, GetNonTransparentParent(game.pov.parent), Template("And"), ".")
          foreach (o, hidden_from_list) {
            o.parent = o.parentbak
            o.parentbak = null
          }
          desc = AddDescriptionLine(desc, objects)
          if (game.autodescription_youcansee_newline) {
            msg (desc + "<br/>")
            desc = ""
          }
        }
        if (i = game.autodescription_youcango) {
          exits = FormatExitList(game.pov.parent.exitslistprefix, GetExitsList(), Template("Or"), ".")
          desc = AddDescriptionLine(desc, exits)
          if (game.autodescription_youcango_newline) {
            msg (desc + "<br/>")
            desc = ""
          }
        }
        if (i = game.autodescription_description) {
          if (HasScript(game.pov.parent, descriptionfield)) {
            if (LengthOf(desc) > 0) {
              msg (desc)
              desc = ""
            }
            do (game.pov.parent, descriptionfield)
            if (game.appendobjectdescription) {
              foreach (o, ScopeVisibleNotHeld()) {
                if (HasString(o, "inroomdescription")) {
                  if (LengthOf(o.inroomdescription) > 0 and o <> game.pov) {
                    msg (o.inroomdescription)
                  }
                }
              }
            }
            if (game.autodescription_description_newline) {
              msg ("")
            }
          }
          else {
            desc = AddDescriptionLine(desc, GetRoomDescription())
            if (game.autodescription_description_newline) {
              msg (desc + "<br/>")
              desc = ""
            }
          }
        }
      }
      if (LengthOf(desc) > 0) {
        msg (desc)
      }
    }
    else {
      if (HasScript(game.pov.parent, descriptionfield)) {
        do (game.pov.parent, descriptionfield)
      }
      else {
        fulldesc = GetRoomDescription()
        if (LengthOf(fulldesc) > 0) {
          msg (fulldesc)
        }
      }
    }
  ]]></function>
  <function name="EchoScript"><![CDATA[
    get input {
      msg ("<br/>>" + result)
      // TODO - New line here?
      if (Trim(result) = "") {
        // This never happens
        msg ("I beg your pardon?")
        EchoScript
      }
      result = LCase(Trim(Replace(Replace(result,"\"",""),",","")))
      P_LEXV = Split(result, " ")
      WRD = P_LEXV[0]
      switch (WRD) {
        case ("go","walk","run","say") {
          WRD = P_LEXV[1]
        }
      }
      switch (WRD) {
        case ("save") {
          invoke (save.script)
          EchoScript
        }
        case ("restore") {
          msg ("Quest 5 doesn't work that way. Load from the save file directly instead.")
          EchoScript
        }
        case ("q","quit") {
          invoke (quit.script)
        }
        case ("w","west") {
          MovePlayer (Round Room)
        }
        case ("e","east") {
          MovePlayer (Damp Cave)
        }
        case ("u","up") {
          MovePlayer (Deep Canyon)
        }
        case ("bug") {
          msg ("That's only your opinion.")
          EchoScript
        }
        case ("echo") {
          game.LOUD_FLAG = true
          game.BAR_SACREDBIT = false
          msg ("The acoustics of the room change subtly.")
        }
        default {
          n = ListCount(P_LEXV)
          s = P_LEXV[n-1]
          msg (s + " " + s + " ...")
          EchoScript
        }
      }
    }
  ]]></function>
</asl>

[KVonGit]

This can be tested here: https://textadventures.co.uk/games/view/9tlenlari02vr69mtdvb4q/loud-room-tester