Image as alias and listalias [WIP]

[KVonGit]

Picking up from here: #1256 (comment)

---

https://textadventures.co.uk/games/view/w8zndngjduykmw66zghqhq/image-in-pane

Image in Pane.aslx.zip

Image in Pane.aslx

<!--Saved by Quest 5.8.6836.13983-->
<asl version="580">
  <include ref="English.aslx" />
  <include ref="Core.aslx" />
  <game name="Image in Pane">
    <gameid>5e690319-ecd0-4177-8b40-341106365053</gameid>
    <version>1.0.0</version>
    <firstpublished>2024</firstpublished>
    <menufont>Georgia, serif</menufont>
    <feature_advancedscripts />
    <customstatuspane />
    <subtitle>v{game.version}</subtitle>
    <multiplecommands />
    <description><![CDATA[Testing<br/><br/>See https://github.com/textadventures/quest/issues/1256]]></description>
    <author>Richard Headkid</author>
    <inituserinterface type="script"><![CDATA[
      JS.setCustomStatus (Chr(60) + "a id=\"text-adventures-custom-link\" data-index=\"0\" data-elementid=\"TextAdventures\" class=\"cmdlink elementmenu\" data-verb=\"['Use','Drop']\" data-verbs=\"Examine/Take\">" + Chr(60) + "img width=\"100px\" src=\"https://avatars.githubusercontent.com/u/5058951?s=48&v=4\">" + Chr(60) + "/a>")
      JS.eval ("function paneButtonClick(target, button) { var selectedListItem = $(target + ' .ui-selected');  var selectedObject = selectedListItem.data('elementname') || selectedListItem.text() || selectedListItem.text();  var selectedElementId = selectedListItem.data('elementid');  var selectedElementName = selectedListItem.data('object') || selectedListItem.text() || selectedListItem.data('elementname'); var verb = button.data('verb');  var metadata = new Object();  metadata[selectedElementName] = selectedElementId;  var metadataString = JSON.stringify(metadata); if (selectedObject.length > 0) { var cmd = verb.toLowerCase() + ' ' + selectedElementName; sendCommand(cmd, metadataString);}}")
      JS.eval ("function buildMenuOptions(verbs, text, elementId) { if(text.indexOf(\"<\")>-1){ text = elementId;} var verbsList = verbs.split(\"/\"); var options = []; var metadata = new Object(); metadata[text] = elementId; var metadataString = JSON.stringify(metadata);    $.each(verbsList, function (key, value) { options = options.concat({ title: value, action: { callback: function (selectedValue) { sendCommand(selectedValue.toLowerCase() + \" \" + text, metadataString); } } });}); return options;}")
    ]]></inituserinterface>
  </game>
  <object name="Testing Grounds">
    <inherit name="editor_room" />
    <isroom />
    <usedefaultprefix type="boolean">false</usedefaultprefix>
    <prefix>the</prefix>
    <object name="player">
      <inherit name="editor_object" />
      <inherit name="editor_player" />
    </object>
    <object name="TextAdventures">
      <inherit name="editor_object" />
      <look><![CDATA[<br/><a target="_blank" href="https://textadventures.co.uk">https://textadventures.co.uk</a>]]></look>
      <usedefaultprefix type="boolean">false</usedefaultprefix>
      <takemsg>Alex wouldn't like that.</takemsg>
      <alias><![CDATA[<img src="https://avatars.githubusercontent.com/u/5058951?s=48&v=4"/>]]></alias>
      <listalias><![CDATA[<img width=100 src="https://avatars.githubusercontent.com/u/5058951?s=48&v=4" data-object="TextAdventures" data-elementid="TextAdventures" data-elementname="TextAdventures" data-index="0" data-verbs="['Look at','Take']"/><span style="display:none">TextAdventures</span>]]></listalias>
    </object>
  </object>
  <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, "*")) {
        // Modified by KV to bypass turn scripts and turn counts, and to print "Noted."
        game.suppressturnscripts = true
        msg ("")
        msg (SafeXML (command))
        msg ("Noted.")
        // Added for Quest 5.8    - KV
        FinishTurn
      }
      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) {
          foreach (alias, metadata) {
            command = Replace (command, alias, Replace (alias, ".", "@@@DOT@@@"))
          }
          commands = Split(command, ".")
          if (ListCount(commands) = 1) {
            game.pov.commandqueue = null
            HandleSingleCommand (Trim(Replace(command, "@@@DOT@@@", ".")))
          }
          else {
            game.pov.commandqueue = commands
            HandleNextCommandQueueItem
          }
        }
        else {
          game.pov.commandqueue = null
          HandleSingleCommand (Trim(command))
        }
      }
    }
  ]]></function>
  <function name="GetDisplayAlias" parameters="obj" type="string">
    if (HasString(obj, "alias")) {
      result = ProcessText(obj.alias)
    }
    else {
      result = obj.name
    }
    return (result)
  </function>
  <function name="ProcessTextCommand_Object" parameters="section, data" type="string"><![CDATA[
    objectname = Mid(section, 8)
    text = ""
    colon = Instr(objectname, ":")
    if (colon > 0) {
      text = Mid(objectname, colon + 1)
      objectname = Left(objectname, colon - 1)
    }
    object = ObjectForTextProcessor(objectname)
    if (object = null) {
      return ("@@@open@@@" + ProcessTextSection(section, data) + "@@@close@@@")
    }
    else {
      if (LengthOf(text) = 0) {
        text = SafeXML(GetDisplayAlias(object))
      }
      if (game.enablehyperlinks) {
        linkid = ProcessTextCommand_GetNextLinkId()
        colour = ""
        if (HasString(object, "linkcolour") and GetUIOption("UseGameColours") = "true") {
          colour = object.linkcolour
        }
        else {
          colour = GetLinkTextColour()
        }
        style = GetCurrentTextFormat(colour)
        text = Replace(Replace(text, "&lt;", "<"), "&gt;", ">")
        return ("<a id=\"" + linkid + "\" style=\"" + style + "\" class=\"cmdlink elementmenu\" data-elementid=\"" + object.name + "\">" + text + "</a>")
      }
      else {
        return (text)
      }
    }
  ]]></function>
</asl>

---

I think this is worth getting in working order.

---

ALSO SEE:
#1259
#1270

[KVonGit]

I think this is worth getting in working order.

In retrospect: nah.