<!--Saved by Quest 5.7.6404.15496-->
<asl version="550">
  <include ref="English.aslx" />
  <include ref="Core.aslx" />
  <game name="showmenu">
    <gameid>2a4ccea3-9e1d-4b90-9dfc-36d343d3a137</gameid>
    <version>1.0</version>
    <firstpublished>2017</firstpublished>
    <turns type="int">0</turns>
    <statusattributes type="stringdictionary">
      <item>
        <key>turns</key>
        <value></value>
      </item>
    </statusattributes>
    <start type="script">
    </start>
  </game>
  <object name="room">
    <inherit name="editor_room" />
    <description><![CDATA[<center>{command:ShowMenu}</center>]]></description>
    <object name="player">
      <inherit name="editor_object" />
      <inherit name="editor_player" />
    </object>
    <object name="thing">
      <inherit name="editor_object" />
    </object>
  </object>
  <turnscript name="turns">
    <enabled />
    <script>
      game.turns = game.turns + 1
    </script>
  </turnscript>
  <command>
    <script>
      menuShow
    </script>
    <pattern>menu;show menu;showmenu</pattern>
  </command>
  <function name="menuShow">
    ShowMenu ("It's time for you to decide whether or not you move the thing.", Split("move the thing;don't move the thing", ";"), false) {
      switch (result) {
        case ("move the thing") {
          play sound ("moved.mp3", false, false)
          if (thing.parent = game.pov) {
            thing.parent = game.pov.parent
          }
          else {
            thing.parent = game.pov
          }
        }
        case ("don't move the thing") {
          msg ("Good choice.")
        }
      }
    }
  </function>
</asl>

<!--Saved by Quest 5.7.6404.15496-->
<asl version="550">
  <include ref="English.aslx" />
  <include ref="Core.aslx" />
  <game name="showmenu">
    <gameid>2a4ccea3-9e1d-4b90-9dfc-36d343d3a137</gameid>
    <version>1.1</version>
    <firstpublished>2017</firstpublished>
    <turns type="int">0</turns>
    <statusattributes type="stringdictionary">
      <item>
        <key>turns</key>
        <value></value>
      </item>
    </statusattributes>
    <start type="script">
    </start>
  </game>
  <object name="room">
    <inherit name="editor_room" />
    <description><![CDATA[<center>{command:FakeShowMenu}</center>]]></description>
    <object name="player">
      <inherit name="editor_object" />
      <inherit name="editor_player" />
    </object>
    <object name="thing">
      <inherit name="editor_object" />
    </object>
  </object>
  <command>
    <pattern>menu;show menu;showmenu;FakeShowMenu</pattern>
    <script>
      menuShow
      game.notarealturn = true
    </script>
  </command>
  <command>
    <pattern>move the thing</pattern>
    <script>
      msg ("Playing mp3 audio...")
      play sound ("moved.mp3", true, false)
      msg ("You move it.")
      on ready {
        msg ("Thanks (msg)")
        JS.addText ("THANKS (JS)")
      }
      if (thing.parent = game.pov) {
        thing.parent = game.pov.parent
      }
      else {
        thing.parent = game.pov
      }
      request (Show, "Command")
    </script>
  </command>
  <command>
    <pattern>don't move the thing</pattern>
    <script>
      msg ("Good call!")
    </script>
  </command>
  <turnscript>
    <enabled />
    <script>
      game.turns = game.turns + 1
    </script>
  </turnscript>
  <function name="menuShow">
    show menu ("It's time for you to decide whether or not you move the thing.", Split("move the thing;don't move the thing", ";"), true) {
      HandleSingleCommand ("move the thing")
    }
  </function>
</asl>

I had to add the request (Show, "Command") because the text input field disappeared after making the selection for some reason when playing online.

ShowMenu

Parameters:

caption
options
allowCancel
callback

outputsection = StartNewOutputSection()
msg (caption)
count = 0
game.menuoptionskeys = NewStringList()
foreach (option, options) {
  count = count + 1
  if (TypeOf(options) = "stringdictionary") {
    optionText = StringDictionaryItem(options, option)
    optiontag = option
    style = GetCurrentLinkTextFormat()
    list add (game.menuoptionskeys, option)
  }
  else if (TypeOf(option) = "string") {
    optionText = option
    optiontag = option
    style = GetCurrentLinkTextFormat()
    list add (game.menuoptionskeys, option)
  }
  else if (TypeOf(option) = "object") {
    optionText = GetDisplayAlias(option)
    optiontag = option.name
    colour = ""
    if (HasString(option, "linkcolour") and GetUIOption("UseGameColours") = "true") {
      colour = option.linkcolour
    }
    else {
      colour = GetLinkTextColour()
    }
    style = GetCurrentTextFormat(colour)
    list add (game.menuoptionskeys, option.name)
  }
  else {
    error ("ShowMenu cannot handle a " + TypeOf(option))
  }
  msg (count + ": <a class=\"cmdlink\" style=\"" + style + "\" onclick=\"ASLEvent('ShowMenuResponse','" + EscapeQuotes(optiontag) + "')\">" + optionText + "</a>")
}
EndOutputSection (outputsection)
game.menuoptions = options
game.menuallowcancel = allowCancel
game.menucallback = callback
game.menuoutputsection = outputsection

msg (count + ": <a class=\"cmdlink\" style=\"" + style + "\" onclick=\"ASLEvent('ShowMenuResponse','" + EscapeQuotes(optiontag) + "')\">" + optionText + "</a>")

onclick=\"ASLEvent('ShowMenuResponse','" + EscapeQuotes(optiontag) + "')\"

ShowMenuResponse (when you click)

Parameter: option

if (game.menucallback = null) {
  error ("Unexpected menu response")
}
else {
  parameters = NewStringDictionary()
  dictionary add (parameters, "result", UnescapeQuotes(option))
  script = game.menucallback
  ClearMenu
  invoke (script, parameters)
}

HandleMenuTextResponse (when you enter a command)

Return type: Boolean
Parameter: input

handled = false
if (IsInt(input)) {
  number = ToInt(input)
  if (number > 0 and number <= ListCount(game.menuoptionskeys)) {
    handled = true
    ShowMenuResponse (StringListItem(game.menuoptionskeys, number - 1))
  }
}
return (handled)

HandleCommand

  <function name="HandleCommand" parameters="command, metadata">
    <![CDATA[
    handled = false
    if (game.menucallback <> null) {
      if (HandleMenuTextResponse(command)) {
        handled = true
      }
      else {
        if (game.menuallowcancel) {
          ClearMenu
        }
        else {
          handled = true
        }
      }
    }
    if (not handled) {
      StartTurnOutputSection
      if (StartsWith (command, "*")) {
        msg ("")
        msg (SafeXML (command))
      }
      else {    
        shownlink = false
        if (game.echocommand) {
          if (metadata <> null and game.enablehyperlinks and game.echohyperlinks) {
            foreach (key, metadata) {
              if (EndsWith(command, key)) {
                objectname = StringDictionaryItem(metadata, key)
                object = GetObject(objectname)
                if (object <> null) {
                  msg ("")
                  msg ("&gt; " + Left(command, LengthOf(command) - LengthOf(key)) + "{object:" + object.name + "}" )
                  shownlink = true
                }
              }
            }
          }
          if (not shownlink) {
            msg ("")
            OutputTextRaw ("&gt; " + SafeXML(command))
          }
        }
        if (game.command_newline) {
          msg ("")
        }
        game.pov.commandmetadata = metadata
        if (game.multiplecommands){		
          commands = Split(command, ".")
          if (ListCount(commands) = 1) {
            game.pov.commandqueue = null
            HandleSingleCommand (Trim(command))
          }
          else {
            game.pov.commandqueue = commands
            HandleNextCommandQueueItem
          }
		}
        else {
          game.pov.commandqueue = null
          HandleSingleCommand (Trim(command))	
        }		
      }
    }
    ]]>
  </function>

if (HandleMenuTextResponse(command)) {
  handled = true
}

<!--Saved by Quest 5.7.6404.15496-->
<asl version="550">
  <include ref="English.aslx" />
  <include ref="Core.aslx" />
  <game name="not showmenu">
    <gameid>2a4ccea3-9e1d-4b90-9dfc-36d343d3a137</gameid>
    <version>1.1</version>
    <firstpublished>2017</firstpublished>
    <turns type="int">0</turns>
    <statusattributes type="stringdictionary">
      <item>
        <key>turns</key>
        <value></value>
      </item>
    </statusattributes>
  </game>
  <object name="room">
    <inherit name="editor_room" />
    <description type="script"><![CDATA[
      msg ("<br><a color=\"blue\" style=\"cursor:pointer\" onclick=\"ASLEvent('HandleSingleCommand', 'move the thing')\">{u:{colour:blue:Click here to move the thing}}</a>")
    ]]></description>
    <object name="player">
      <inherit name="editor_object" />
      <inherit name="editor_player" />
    </object>
    <object name="thing">
      <inherit name="editor_object" />
    </object>
  </object>
  <command>
    <pattern>move the thing</pattern>
    <script>
      msg ("Playing mp3 audio...")
      play sound ("moved.mp3", true, false)
      msg ("Done")
      if (thing.parent = game.pov) {
        thing.parent = game.pov.parent
      }
      else {
        thing.parent = game.pov
      }
    </script>
  </command>
  <command>
    <pattern>don't move the thing</pattern>
    <script>
      msg ("Good call!")
    </script>
  </command>
  <turnscript>
    <enabled />
    <script>
      game.turns = game.turns + 1
    </script>
  </turnscript>
</asl>

   public void PlaySound(string filename, bool sync, bool looped)
        {
            m_playerUI.PlaySound(filename, sync, looped);
            if (sync)
            {
                ChangeThreadState(ThreadState.Waiting);

                lock (m_waitForResponseLock)
                {
                    Monitor.Wait(m_waitForResponseLock);
                }
            }
        }

    public class PlaySoundScript : ScriptBase
    {
        private ScriptContext m_scriptContext;
        private WorldModel m_worldModel;
        private IFunction<string> m_filename;
        private IFunction<bool> m_synchronous;
        private IFunction<bool> m_loop;

        public PlaySoundScript(ScriptContext scriptContext, IFunction<string> function, IFunction<bool> synchronous, IFunction<bool> loop)
        {
            m_scriptContext = scriptContext;
            m_worldModel = scriptContext.WorldModel;
            m_filename = function;
            m_synchronous = synchronous;
            m_loop = loop;
        }

        protected override ScriptBase CloneScript()
        {
            return new PlaySoundScript(m_scriptContext, m_filename.Clone(), m_synchronous.Clone(), m_loop.Clone());
        }

        public override void Execute(Context c)
        {
            string filename = m_filename.Execute(c);
            m_worldModel.PlaySound(filename, m_synchronous.Execute(c), m_loop.Execute(c));
        }

        public override string Save()
        {
            return SaveScript("play sound", m_filename.Save(), m_synchronous.Save(), m_loop.Save());
        }

        public override object GetParameter(int index)
        {
            switch (index)
            {
                case 0:
                    return m_filename.Save();
                case 1:
                    return m_synchronous.Save();
                case 2:
                    return m_loop.Save();
                default:
                    throw new ArgumentOutOfRangeException();
            }
        }

        public override void SetParameterInternal(int index, object value)
        {
            switch (index)
            {
                case 0:
                    m_filename = new Expression<string>((string)value, m_scriptContext);
                    break;
                case 1:
                    m_synchronous = new Expression<bool>((string)value, m_scriptContext);
                    break;
                case 2:
                    m_loop = new Expression<bool>((string)value, m_scriptContext);
                    break;
                default:
                    throw new ArgumentOutOfRangeException();
            }
        }

        public override string Keyword
        {
            get
            {
                return "play sound";
            }
        }
    }