<!--Saved by Quest 5.7.6606.27193-->
<asl version="550">
  <include ref="English.aslx" />
  <include ref="Core.aslx" />
  <template name="You">You</template>
  <template name="the">the</template>
  <dynamictemplate name="FullInventory">WriteVerb(object, "be") + " too heavy to be taken."</dynamictemplate>
  <dynamictemplate name="ObjectNotOpen">CapFirst(GetDisplayAlias(object)) + " " + Conjugate(object, "be") + " not open."</dynamictemplate>
  <dynamictemplate name="DefaultAsk">WriteVerb(object, "do") + " not reply."</dynamictemplate>
  <game name="Test - Npc Move">
    <gameid>d59aebb9-33bb-4b95-8719-89a67c44c6c0</gameid>
    <version>1.0</version>
    <firstpublished>2018</firstpublished>
    <feature_lightdark />
    <attr name="feature_limitinventory" type="boolean">false</attr>
    <feature_advancedscripts />
    <marginscolour type="string"></marginscolour>
    <clearscreenonroomenter />
    <inituserinterface type="script">
    </inituserinterface>
  </game>
  <command name="go">
    <pattern type="string"><![CDATA[^go to (?<exit>.*)$|^go (?<exit>.*)$|^(?<exit>north|east|south|west|northeast|northwest|southeast|southwest|in|out|up|down|n|e|s|w|ne|nw|se|sw|o|u|d)$]]></pattern>
    <unresolved>You can't go there.</unresolved>
    <script>
      if (HasString (player, "immobilisedmessage")) {
        msg (player.immobilisedmessage)
      }
      else if (exit.visible) {
        if (exit.locked) {
          msg (exit.lockmessage)
        }
        else if (exit.runscript) {
          if (HasScript(exit, "script")) {
            do (exit, "script")
          }
        }
        else if (exit.lookonly) {
          msg ("You can't go there.")
        }
        else {
          if (HasString(exit, "message")) {
            if (not exit.message = "") {
              if (game.clearscreenonroomenter) {
                game.currentexitmessage = exit.message
              }
              else {
                msg (exit.message)
              }
            }
          }
          game.pov.parent = exit.to
        }
      }
      else {
        msg ("You can't go there.")
      }
    </script>
  </command>
  <command name="CmdTie Object1">
    <pattern type="string"><![CDATA[^(tie|attach|fasten) (?<object1>.*)$]]></pattern>
    <script>
      // 1: Checks for the command used (tie/attach/fasten) and puts it into the variable 'cc'.
      cc = player.currentcommand
      // The function GetCmdVerb(cc) is used to display (tie/attach/fasten).
      if (not Got(object1)) {
        msg ("You are not carrying the " + GetDisplayAlias(object1) + ".")
        // 2: Check if you are carrying object1.
      }
      else if (GetBoolean(object1, "tie_able")) {
        msg (GetCmdVerb(cc) + " " + GetDisplayAlias(object1) + " to what?")
        // 3: Check if you can attach object1 to anything. What do you want it attached to?
      }
      else {
        msg ("You cannot " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + " to anything.")
        // 4: Check if you can attach object1 to anything.
      }
    </script>
  </command>
  <command name="CmdUntie Object1">
    <pattern type="string"><![CDATA[^(untie|unattach|unfasten) (?<object1>.*)$]]></pattern>
    <script>
      // 1: Checks for the command used (untie/unattach/unfasten) and puts it into the variable 'cc'.
      cc = player.currentcommand
      // The function GetCmdVerb(cc) is used to display (untie/unattach/unfasten).
      if (not GetBoolean(object1, "tiedto")) {
        msg ("The " + GetDisplayAlias(object1) + " is not " + Conjugate3(cc) + " to anything.")
        // 2: Check if object1 is attached to anything.
      }
      else {
        // 3: Unattach object1 from what?
        msg (GetCmdVerb(cc) + " " + GetDisplayAlias(object1) + " from what?")
      }
    </script>
  </command>
  <command name="CmdUntie Object1 from Object2">
    <pattern type="string"><![CDATA[^(untie|unattach|unfasten) (?<object1>.*) from (?<object2>.*)$]]></pattern>
    <script>
      // 1: Checks for the command used (untie/unattach/unfasten) and puts it into the variable 'cc'.
      cc = player.currentcommand
      // The function GetCmdVerb(cc) is used to display (untie/unattach/unfasten).
      if (not GetBoolean(object1, "tiedto")) {
        msg ("The " + GetDisplayAlias(object1) + " is not " + Conjugate3(cc) + " to anything.")
        // 2: Check if object1 is attached.
      }
      else if (not HasAttribute(object2, "attachedto")) {
        msg ("The " + GetDisplayAlias(object2) + " is not " + Conjugate3(cc) + " to anything.")
        // 3: Check if object2 is attached.
      }
      else {
        // 4: Unattach objects and reset variables.
        msg ("You " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + " from the " + GetDisplayAlias(object2) + ".")
        object1.tiedto = false
        object1.attachedto = null
        object2.attachedto = null
        object1.take = true
      }
    </script>
  </command>
  <command name="CmdTie Object1 to Object2">
    <pattern type="string"><![CDATA[^(tie|attach|fasten) (?<object1>.*) to (?<object2>.*)$]]></pattern>
    <unresolved type="string"></unresolved>
    <script>
      cc = player.currentcommand
      if (GetBoolean(object1, "tiedto") and (object1.attachedto = object2)) {
        msg ("You've already done that.")
        // 2: Check if object1 is already attached to object2.
      }
      else if (GetBoolean(object1, "tiedto")) {
        msg ("The " + GetDisplayAlias(object1) + " is already " + Conjugate3(cc) + " to the " + GetDisplayAlias(object1.attachedto) + ".")
        // 3: Check if object1 is attached.
      }
      else if (HasAttribute(object2, "attachedto")) {
        msg ("The " + GetDisplayAlias(object2) + " is already " + Conjugate3(cc) + " to the " + GetDisplayAlias(object2.attachedto) + ".")
        // 4: Check if object2 is attached.
      }
      else if (not object1.parent = player) {
        msg ("You are not holding " + GetDisplayName(object1) + ".")
        // 5: Check if you are carrying object1.
      }
      else if (not GetBoolean(object1, "tie_able")) {
        msg ("You cannot " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + " to anything.")
        // 6: Check if object1 can be attached.
      }
      else if (not GetBoolean(object2, "attachable")) {
        msg ("You cannot " + GetCmdVerb(cc) + " anything to the " + GetDisplayAlias(object2) + ".")
        // 7: Check if object2 can be attached.
      }
      else {
        // 8: Success. Attach the two objects.
        msg ("You " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + " to the " + GetDisplayAlias(object2) + ".")
        object1.tiedto = true
        object1.attachedto = object2
        object2.attachedto = object1
        object1.parent = player.parent
        object1.take = false
      }
    </script>
  </command>
  <command name="CmdPush Object1 Direction">
    <pattern type="string"><![CDATA[^(push|pull|move) (?<object1>.*) (?<exit>north|east|south|west|northeast|northwest|southeast|southwest|in|out|up|down|n|e|s|w|ne|nw|se|sw|o|u|d)$]]></pattern>
    <script>
      // Testing: Change 'player' to 'quinn', 'lucy' or 'olivers army' to get an idea of how CmdNpcPushObjDir should work.
      PushPullMoveObjDir (player.currentcommand, player, object1, exit)
    </script>
  </command>
  <command name="CmdPush Object1">
    <pattern type="string"><![CDATA[^(push|pull|move) (?<object1>.*)$]]></pattern>
    <script>
      // 1: This section checks for the command used (push/pull/move) and puts it into the variable 'cc'.
      cc = player.currentcommand
      if (HasAttribute(object1, "pushable")) {
        msg (GetCmdVerb(cc) + " " + GetDisplayAlias(object1) + " where?")
      }
      else if (HasAttribute(object1, "moveable")) {
        msg ("You " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + ".")
        do (object1, "moveable")
      }
      else {
        msg ("You cannot " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + ".")
      }
    </script>
  </command>
  <object name="room">
    <inherit name="editor_room" />
    <object name="player">
      <inherit name="editor_object" />
      <inherit name="editor_player" />
      <maxobjects type="int">0</maxobjects>
      <volume type="int">0</volume>
      <maxvolume type="int">1</maxvolume>
    </object>
    <exit alias="east" to="room2">
      <inherit name="eastdirection" />
      <locked type="boolean">false</locked>
    </exit>
    <object name="pen">
      <inherit name="editor_object" />
      <take />
      <volume type="int">0</volume>
    </object>
    <object name="stone block">
      <inherit name="editor_object" />
      <alt type="stringlist">
        <value>block</value>
      </alt>
      <pushable />
      <push type="script">
        cc = player.currentcommand
        HandleSingleCommand ("CmdPush Object1" + cc)
      </push>
      <pull type="script">
        do (this, "push")
      </pull>
      <move type="script">
        do (this, "push")
      </move>
      <climbup type="script">
        msg ("You climb up onto the top of the stone block.")
        player.immobilisedmessage = "You cannot move whilst standing on top of a stone block."
        SetObjectFlagOn (player, "stand")
        MakeObjectVisible (lamp)
      </climbup>
      <climbdown type="script">
        msg ("You climb down from the top of the stone block.")
        player.immobilisedmessage = null
        SetObjectFlagOff (player, "stand")
        if (not Got(lamp)) {
          MakeObjectInvisible (lamp)
        }
      </climbdown>
    </object>
    <object name="quinn">
      <inherit name="editor_object" />
      <inherit name="male" />
      <alias>Quinn</alias>
      <look>A mighty Eskimo, of immense stature.</look>
      <usedefaultprefix type="boolean">false</usedefaultprefix>
    </object>
    <object name="branch">
      <inherit name="editor_object" />
      <attachable />
      <look>A oak branch.</look>
    </object>
    <object name="rope">
      <inherit name="editor_object" />
      <take />
      <tie_able />
      <look>A long length of rope.</look>
    </object>
    <object name="hook">
      <inherit name="editor_object" />
      <attachable />
      <look>A plain looking hook.</look>
    </object>
    <object name="cord">
      <inherit name="editor_object" />
      <tie_able />
      <take />
      <look type="string"></look>
    </object>
    <object name="rug">
      <inherit name="editor_object" />
      <look>A very plain looking rug carpet.</look>
      <alt type="stringlist">
        <value>carpet</value>
      </alt>
      <moveable type="script">
        msg ("A key is revealed.")
      </moveable>
      <push type="script">
        cc = player.currentcommand
        HandleSingleCommand ("CmdPush Object1" + cc)
      </push>
      <pull type="script">
        do (this, "push")
      </pull>
      <move type="script">
        do (this, "push")
      </move>
    </object>
    <object name="lucy">
      <inherit name="editor_object" />
      <inherit name="namedfemale" />
      <alias>Lucy</alias>
      <look>A girl with kaleidoscope eyes, wearing a diamond.</look>
    </object>
    <object name="olivers army">
      <inherit name="editor_object" />
      <inherit name="maleplural" />
      <alias>Oliver's Army</alias>
      <usedefaultprefix type="boolean">false</usedefaultprefix>
      <look><![CDATA[They're here to stay.<br/>They're on their way.]]></look>
      <alt type="stringlist">
        <value>army</value>
        <value>goblins</value>
      </alt>
    </object>
  </object>
  <object name="room2">
    <inherit name="editor_room" />
    <dark type="boolean">false</dark>
    <exit alias="west" to="room">
      <inherit name="westdirection" />
    </exit>
    <object name="shelf">
      <inherit name="editor_object" />
      <inherit name="surface" />
      <feature_container />
      <listchildren />
      <look type="script"><![CDATA[
        if (GetBoolean(player, "stand")) {
          msg ("A wooden shelf.")
        }
        else {
          msg ("A wooden shelf.<br/>The shelf is too high for you to see what, if anything is on it.")
        }
      ]]></look>
      <object name="lamp">
        <inherit name="editor_object" />
        <inherit name="switchable" />
        <take />
        <feature_switchable />
        <feature_lightdark />
        <lightstrength>strong</lightstrength>
        <volume type="int">0</volume>
        <visible type="boolean">false</visible>
        <onswitchon type="script">
          this.lightsource = true
        </onswitchon>
        <onswitchoff type="script">
          this.lightsource = false
        </onswitchoff>
        <ontake type="script">
        </ontake>
      </object>
    </object>
  </object>
  <command name="CmdNpcPushObjDir">
    <pattern type="string"><![CDATA[^(?<object2>.*), (?<text>push|pull|move) (?<object1>.*) (?<exit>north|east|south|west|northeast|northwest|southeast|southwest|in|out|up|down|n|e|s|w|ne|nw|se|sw|o|u|d)$]]></pattern>
    <script>
      PushPullMoveObjDir (text, object2, object1, exit)
    </script>
  </command>
  <verb>
    <property>climbup</property>
    <pattern>climb up; climb on; stand; stand on; get on</pattern>
    <defaultexpression>"You can't climb up; climb on; stand; stand on; get on " + object.article + "."</defaultexpression>
  </verb>
  <verb>
    <property>climbdown</property>
    <pattern>climb down; climb off; get off</pattern>
    <defaultexpression>"You can't climb down; climb off; get off " + object.article + "."</defaultexpression>
  </verb>
  <function name="GetCmdVerb" parameters="cc" type="string">
    // Doctor Agon. GetCmdVerb Inspired by KV.
    // 1: Set Variable cc=player.currentcommand. Use GetCmdVerb(cc) in script calling function.
    // 2: This section checks for the command used (push/pull/move) and puts it into the variable 'cmdverb'.
    if (StartsWith(cc, "push")) {
      return ("push")
    }
    else if (StartsWith(cc, "pull")) {
      return ("pull")
    }
    else if (StartsWith(cc, "move")) {
      return ("move")
    }
    // 3: This section checks for the command used (tie/attach/fasten) and puts it into the variable 'cmdverb'.
    if (StartsWith(cc, "tie")) {
      return ("tie")
    }
    else if (StartsWith(cc, "attach")) {
      return ("attach")
    }
    else if (StartsWith(cc, "fasten")) {
      return ("fasten")
    }
    // 4: This section checks for the command used (untie/unattach/unfasten) and puts it into the variable 'cmdverb'.
    if (StartsWith(cc, "untie")) {
      return ("untie")
    }
    else if (StartsWith(cc, "unattach")) {
      return ("unattach")
    }
    else if (StartsWith(cc, "unfasten")) {
      return ("unfasten")
    }
  </function>
  <function name="FormatCmdVerb" parameters="pre, con, mid, obj, dir, post" type="string">
    result = pre + " " + con + " "
    result = result + mid + " "
    result = result + GetDisplayAlias(obj) + " "
    result = result + dir.alias
    result = result + post
    return (result)
  </function>
  <function name="WriteVerb2" parameters="obj" type="string">
    // Pixie inspired coding.
    return (CapFirst(obj.gender))
  </function>
  <function name="Conjugate2" parameters="obj, cc" type="string">
    // Pixie inspired coding.
    gender = obj.gender
    if (gender = "he" or gender = "she") {
      gender = "it"
    }
    switch (GetCmdVerb(cc)) {
      case ("push") {
        switch (gender) {
          case ("it") {
            return (GetCmdVerb(cc)+"es")
          }
          default {
            return (GetCmdVerb(cc))
          }
        }
      }
      case ("pull") {
        switch (gender) {
          case ("it") {
            return (GetCmdVerb(cc)+"s")
          }
          default {
            return (GetCmdVerb(cc))
          }
        }
      }
      case ("move") {
        switch (gender) {
          case ("it") {
            return (GetCmdVerb(cc)+"s")
          }
          default {
            return (GetCmdVerb(cc))
          }
        }
      }
      default {
        return (GetCmdVerb(cc))
      }
    }
  </function>
  <function name="Conjugate3" parameters="cc" type="string">
    // Pixie inspired coding.
    switch (GetCmdVerb(cc)) {
      case ("tie") {
        return ("tied")
      }
      case ("attach") {
        return ("attached")
      }
      case ("fasten") {
        return ("fastened")
      }
      case ("untie") {
        return ("tied")
      }
      case ("unattach") {
        return ("attached")
      }
      case ("unfasten") {
        return ("fastened")
      }
      default {
        return (GetCmdVerb(cc))
      }
    }
  </function>
  <function name="PushPullMoveObjDir" parameters="cc, object2, object1, exit">
    // 1: This section checks for the command used (push/pull/move) and puts it into the variable 'cc'.
    //cc = player.currentcommand
    //object2 = obj
    // 2: Check to see if player is immobilised.
    if (player.immobilisedmessage = null) {
      // 3: Checks if the object1 has the attribute 'pushable'.
      if (HasAttribute(object1, "pushable")) {
        if (game.unresolvedcommand = null) {
          // 4: Check if exit is locked.
          if (exit.locked) {
            msg (exit.lockmessage)
          }
          else {
            // 5: Sets the exit.message, moves the object in the direction indicated, moves object2(player/npc) in the direction indicated, resets exit.message.
            exit.message = FormatCmdVerb(WriteVerb2(object2),Conjugate2(object2,cc),Template("the"),object1,exit,".")
            object1.parent = exit.to
            if (object2 = player) {
              HandleSingleCommand ("go " + exit.alias)
            }
            else {
              MoveObject (object2, exit.to)
              msg (exit.message)
            }
          }
          exit.message = null
        }
      }
      else {
        // 6: Immovable object message.
        msg (WriteVerb2(object2) + " cannot " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + " " + exit.alias + ".")
      }
    }
    else {
      // 7: Player is immobilised message.
      msg (player.immobilisedmessage)
    }
  </function>
</asl>

<!--Saved by Quest 5.7.6606.27193-->
<asl version="550">
  <include ref="English.aslx" />
  <include ref="Core.aslx" />
  <template name="You">You</template>
  <template name="the">the</template>
  <dynamictemplate name="FullInventory">WriteVerb(object, "be") + " too heavy to be taken."</dynamictemplate>
  <dynamictemplate name="ObjectNotOpen">CapFirst(GetDisplayAlias(object)) + " " + Conjugate(object, "be") + " not open."</dynamictemplate>
  <dynamictemplate name="DefaultAsk">WriteVerb(object, "do") + " not reply."</dynamictemplate>
  <game name="Test - Npc Move">
    <gameid>d59aebb9-33bb-4b95-8719-89a67c44c6c0</gameid>
    <version>1.0</version>
    <firstpublished>2018</firstpublished>
    <feature_lightdark />
    <attr name="feature_limitinventory" type="boolean">false</attr>
    <feature_advancedscripts />
    <marginscolour type="string"></marginscolour>
    <clearscreenonroomenter />
  </game>
  <command name="go">
    <pattern type="string"><![CDATA[^go to (?<exit>.*)$|^go (?<exit>.*)$|^(?<exit>north|east|south|west|northeast|northwest|southeast|southwest|in|out|up|down|n|e|s|w|ne|nw|se|sw|o|u|d)$]]></pattern>
    <unresolved>You can't go there.</unresolved>
    <script>
      if (HasString (player, "immobilisedmessage")) {
        msg (player.immobilisedmessage)
      }
      else if (exit.visible) {
        if (exit.locked) {
          msg (exit.lockmessage)
        }
        else if (exit.runscript) {
          if (HasScript(exit, "script")) {
            do (exit, "script")
          }
        }
        else if (exit.lookonly) {
          msg ("You can't go there.")
        }
        else {
          if (HasString(exit, "message")) {
            if (not exit.message = "") {
              if (game.clearscreenonroomenter) {
                game.currentexitmessage = exit.message
              }
              else {
                msg (exit.message)
              }
            }
          }
          game.pov.parent = exit.to
        }
      }
      else {
        msg ("You can't go there.")
      }
    </script>
  </command>
  <command name="CmdTie Object1">
    <pattern type="string"><![CDATA[^(tie|attach|fasten) (?<object1>.*)$]]></pattern>
    <script>
      // 1: Checks for the command used (tie/attach/fasten) and puts it into the variable 'cc'.
      cc = player.currentcommand
      // The function GetCmdVerb(cc) is used to display (tie/attach/fasten).
      if (not Got(object1)) {
        msg ("You are not carrying the " + GetDisplayAlias(object1) + ".")
        // 2: Check if you are carrying object1.
      }
      else if (GetBoolean(object1, "tie_able")) {
        msg (GetCmdVerb(cc) + " " + GetDisplayAlias(object1) + " to what?")
        // 3: Check if you can attach object1 to anything. What do you want it attached to?
      }
      else {
        msg ("You cannot " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + " to anything.")
        // 4: Check if you can attach object1 to anything.
      }
    </script>
  </command>
  <command name="CmdUntie Object1">
    <pattern type="string"><![CDATA[^(untie|unattach|unfasten) (?<object1>.*)$]]></pattern>
    <script>
      // 1: Checks for the command used (untie/unattach/unfasten) and puts it into the variable 'cc'.
      cc = player.currentcommand
      // The function GetCmdVerb(cc) is used to display (untie/unattach/unfasten).
      if (not GetBoolean(object1, "tiedto")) {
        msg ("The " + GetDisplayAlias(object1) + " is not " + Conjugate3(cc) + " to anything.")
        // 2: Check if object1 is attached to anything.
      }
      else {
        // 3: Unattach object1 from what?
        msg (GetCmdVerb(cc) + " " + GetDisplayAlias(object1) + " from what?")
      }
    </script>
  </command>
  <command name="CmdUntie Object1 from Object2">
    <pattern type="string"><![CDATA[^(untie|unattach|unfasten) (?<object1>.*) from (?<object2>.*)$]]></pattern>
    <script>
      // 1: Checks for the command used (untie/unattach/unfasten) and puts it into the variable 'cc'.
      cc = player.currentcommand
      // The function GetCmdVerb(cc) is used to display (untie/unattach/unfasten).
      if (not GetBoolean(object1, "tiedto")) {
        msg ("The " + GetDisplayAlias(object1) + " is not " + Conjugate3(cc) + " to anything.")
        // 2: Check if object1 is attached.
      }
      else if (not HasAttribute(object2, "attachedto")) {
        msg ("The " + GetDisplayAlias(object2) + " is not " + Conjugate3(cc) + " to anything.")
        // 3: Check if object2 is attached.
      }
      else {
        // 4: Unattach objects and reset variables.
        msg ("You " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + " from the " + GetDisplayAlias(object2) + ".")
        object1.tiedto = false
        object1.attachedto = null
        object2.attachedto = null
        object1.take = true
      }
    </script>
  </command>
  <command name="CmdTie Object1 to Object2">
    <pattern type="string"><![CDATA[^(tie|attach|fasten) (?<object1>.*) to (?<object2>.*)$]]></pattern>
    <unresolved type="string"></unresolved>
    <script>
      cc = player.currentcommand
      if (GetBoolean(object1, "tiedto") and (object1.attachedto = object2)) {
        msg ("You've already done that.")
        // 2: Check if object1 is already attached to object2.
      }
      else if (GetBoolean(object1, "tiedto")) {
        msg ("The " + GetDisplayAlias(object1) + " is already " + Conjugate3(cc) + " to the " + GetDisplayAlias(object1.attachedto) + ".")
        // 3: Check if object1 is attached.
      }
      else if (HasAttribute(object2, "attachedto")) {
        msg ("The " + GetDisplayAlias(object2) + " is already " + Conjugate3(cc) + " to the " + GetDisplayAlias(object2.attachedto) + ".")
        // 4: Check if object2 is attached.
      }
      else if (not object1.parent = player) {
        msg ("You are not holding " + GetDisplayName(object1) + ".")
        // 5: Check if you are carrying object1.
      }
      else if (not GetBoolean(object1, "tie_able")) {
        msg ("You cannot " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + " to anything.")
        // 6: Check if object1 can be attached.
      }
      else if (not GetBoolean(object2, "attachable")) {
        msg ("You cannot " + GetCmdVerb(cc) + " anything to the " + GetDisplayAlias(object2) + ".")
        // 7: Check if object2 can be attached.
      }
      else {
        // 8: Success. Attach the two objects.
        msg ("You " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + " to the " + GetDisplayAlias(object2) + ".")
        object1.tiedto = true
        object1.attachedto = object2
        object2.attachedto = object1
        object1.parent = player.parent
        object1.take = false
      }
    </script>
  </command>
  <command name="CmdPush Object1 Direction">
    <pattern type="string"><![CDATA[^(push|pull|move) (?<object1>.*) (?<exit>north|east|south|west|northeast|northwest|southeast|southwest|in|out|up|down|n|e|s|w|ne|nw|se|sw|o|u|d)$]]></pattern>
    <script>
      // Testing: Change 'player' to 'quinn', 'lucy' or 'olivers army' to get an idea of how CmdNpcPushObjDir should work.
      PushPullMoveObjDir (player.currentcommand, player, object1, exit)
    </script>
  </command>
  <command name="CmdPush Object1">
    <pattern type="string"><![CDATA[^(push|pull|move) (?<object1>.*)$]]></pattern>
    <script>
      // 1: This section checks for the command used (push/pull/move) and puts it into the variable 'cc'.
      cc = player.currentcommand
      if (HasAttribute(object1, "pushable")) {
        msg (GetCmdVerb(cc) + " " + GetDisplayAlias(object1) + " where?")
      }
      else if (HasAttribute(object1, "moveable")) {
        msg ("You " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + ".")
        do (object1, "moveable")
      }
      else {
        msg ("You cannot " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + ".")
      }
    </script>
  </command>
  <object name="room">
    <inherit name="editor_room" />
    <object name="player">
      <inherit name="editor_object" />
      <inherit name="editor_player" />
      <maxobjects type="int">0</maxobjects>
      <volume type="int">0</volume>
      <maxvolume type="int">1</maxvolume>
    </object>
    <exit alias="east" to="room2">
      <inherit name="eastdirection" />
      <locked type="boolean">false</locked>
    </exit>
    <object name="pen">
      <inherit name="editor_object" />
      <take />
      <volume type="int">0</volume>
    </object>
    <object name="stone block">
      <inherit name="editor_object" />
      <alt type="stringlist">
        <value>block</value>
      </alt>
      <pushable />
      <push type="script">
        cc = player.currentcommand
        HandleSingleCommand ("CmdPush Object1" + cc)
      </push>
      <pull type="script">
        do (this, "push")
      </pull>
      <move type="script">
        do (this, "push")
      </move>
      <climbup type="script">
        msg ("You climb up onto the top of the stone block.")
        player.immobilisedmessage = "You cannot move whilst standing on top of a stone block."
        SetObjectFlagOn (player, "stand")
        MakeObjectVisible (lamp)
      </climbup>
      <climbdown type="script">
        msg ("You climb down from the top of the stone block.")
        player.immobilisedmessage = null
        SetObjectFlagOff (player, "stand")
        if (not Got(lamp)) {
          MakeObjectInvisible (lamp)
        }
      </climbdown>
    </object>
    <object name="quinn">
      <inherit name="editor_object" />
      <inherit name="male" />
      <alias>Quinn</alias>
      <look>A mighty Eskimo, of immense stature.</look>
      <usedefaultprefix type="boolean">false</usedefaultprefix>
    </object>
    <object name="branch">
      <inherit name="editor_object" />
      <attachable />
      <look>A oak branch.</look>
    </object>
    <object name="rope">
      <inherit name="editor_object" />
      <take />
      <tie_able />
      <look>A long length of rope.</look>
    </object>
    <object name="hook">
      <inherit name="editor_object" />
      <attachable />
      <look>A plain looking hook.</look>
    </object>
    <object name="cord">
      <inherit name="editor_object" />
      <tie_able />
      <take />
      <look type="string"></look>
    </object>
    <object name="rug">
      <inherit name="editor_object" />
      <look>A very plain looking rug carpet.</look>
      <alt type="stringlist">
        <value>carpet</value>
      </alt>
      <moveable type="script">
        msg ("A key is revealed.")
      </moveable>
      <push type="script">
        cc = player.currentcommand
        HandleSingleCommand ("CmdPush Object1" + cc)
      </push>
      <pull type="script">
        do (this, "push")
      </pull>
      <move type="script">
        do (this, "push")
      </move>
    </object>
    <object name="lucy">
      <inherit name="editor_object" />
      <inherit name="namedfemale" />
      <alias>Lucy</alias>
      <look>A girl with kaleidoscope eyes, wearing a diamond.</look>
    </object>
    <object name="olivers army">
      <inherit name="editor_object" />
      <inherit name="maleplural" />
      <alias>Oliver's Army</alias>
      <usedefaultprefix type="boolean">false</usedefaultprefix>
      <look><![CDATA[They're here to stay.<br/>They're on their way.]]></look>
      <alt type="stringlist">
        <value>army</value>
        <value>goblins</value>
      </alt>
    </object>
  </object>
  <object name="room2">
    <inherit name="editor_room" />
    <dark type="boolean">false</dark>
    <exit alias="west" to="room">
      <inherit name="westdirection" />
    </exit>
    <object name="shelf">
      <inherit name="editor_object" />
      <inherit name="surface" />
      <feature_container />
      <listchildren />
      <look type="script"><![CDATA[
        if (GetBoolean(player, "stand")) {
          msg ("A wooden shelf.")
        }
        else {
          msg ("A wooden shelf.<br/>The shelf is too high for you to see what, if anything is on it.")
        }
      ]]></look>
      <object name="lamp">
        <inherit name="editor_object" />
        <inherit name="switchable" />
        <take />
        <feature_switchable />
        <feature_lightdark />
        <lightstrength>strong</lightstrength>
        <volume type="int">0</volume>
        <visible type="boolean">false</visible>
        <onswitchon type="script">
          this.lightsource = true
        </onswitchon>
        <onswitchoff type="script">
          this.lightsource = false
        </onswitchoff>
        <ontake type="script">
        </ontake>
      </object>
    </object>
  </object>
  <command name="CmdNpcPushObjDir">
    <pattern type="string"><![CDATA[^(?<object2>.*), (?<text>push|pull|move) (?<object1>.*) (towards the |to the |)(?<exit>north|east|south|west|northeast|northwest|southeast|southwest|in|out|up|down|n|e|s|w|ne|nw|se|sw|o|u|d)$|^(ask|tell|order|command) (?<object2>.*) to (?<text>push|pull|move) (?<object1>.*) (towards the |to the |)(?<exit>north|east|south|west|northeast|northwest|southeast|southwest|in|out|up|down|n|e|s|w|ne|nw|se|sw|o|u|d)$]]></pattern>
    <script>
      PushPullMoveObjDir (text, object2, object1, exit)
    </script>
  </command>
  <verb>
    <property>climbup</property>
    <pattern>climb up; climb on; stand; stand on; get on</pattern>
    <defaultexpression>"You can't climb up; climb on; stand; stand on; get on " + object.article + "."</defaultexpression>
  </verb>
  <verb>
    <property>climbdown</property>
    <pattern>climb down; climb off; get off</pattern>
    <defaultexpression>"You can't climb down; climb off; get off " + object.article + "."</defaultexpression>
  </verb>
  <function name="GetCmdVerb" parameters="cc" type="string">
    // Doctor Agon. GetCmdVerb Inspired by KV.
    // 1: Set Variable cc=player.currentcommand. Use GetCmdVerb(cc) in script calling function.
    // 2: This section checks for the command used (push/pull/move) and puts it into the variable 'cmdverb'.
    if (StartsWith(cc, "push")) {
      return ("push")
    }
    else if (StartsWith(cc, "pull")) {
      return ("pull")
    }
    else if (StartsWith(cc, "move")) {
      return ("move")
    }
    // 3: This section checks for the command used (tie/attach/fasten) and puts it into the variable 'cmdverb'.
    if (StartsWith(cc, "tie")) {
      return ("tie")
    }
    else if (StartsWith(cc, "attach")) {
      return ("attach")
    }
    else if (StartsWith(cc, "fasten")) {
      return ("fasten")
    }
    // 4: This section checks for the command used (untie/unattach/unfasten) and puts it into the variable 'cmdverb'.
    if (StartsWith(cc, "untie")) {
      return ("untie")
    }
    else if (StartsWith(cc, "unattach")) {
      return ("unattach")
    }
    else if (StartsWith(cc, "unfasten")) {
      return ("unfasten")
    }
  </function>
  <function name="FormatCmdVerb" parameters="pre, con, mid, obj, dir, post" type="string">
    result = pre + " " + con + " "
    result = result + mid + " "
    result = result + GetDisplayAlias(obj) + " "
    result = result + dir.alias
    result = result + post
    return (result)
  </function>
  <function name="WriteVerb2" parameters="obj" type="string">
    // Pixie inspired coding.
    return (CapFirst(obj.gender))
  </function>
  <function name="Conjugate2" parameters="obj, cc" type="string">
    // Pixie inspired coding.
    gender = obj.gender
    if (gender = "he" or gender = "she") {
      gender = "it"
    }
    switch (GetCmdVerb(cc)) {
      case ("push") {
        switch (gender) {
          case ("it") {
            return (GetCmdVerb(cc)+"es")
          }
          default {
            return (GetCmdVerb(cc))
          }
        }
      }
      case ("pull") {
        switch (gender) {
          case ("it") {
            return (GetCmdVerb(cc)+"s")
          }
          default {
            return (GetCmdVerb(cc))
          }
        }
      }
      case ("move") {
        switch (gender) {
          case ("it") {
            return (GetCmdVerb(cc)+"s")
          }
          default {
            return (GetCmdVerb(cc))
          }
        }
      }
      default {
        return (GetCmdVerb(cc))
      }
    }
  </function>
  <function name="Conjugate3" parameters="cc" type="string">
    // Pixie inspired coding.
    switch (GetCmdVerb(cc)) {
      case ("tie") {
        return ("tied")
      }
      case ("attach") {
        return ("attached")
      }
      case ("fasten") {
        return ("fastened")
      }
      case ("untie") {
        return ("tied")
      }
      case ("unattach") {
        return ("attached")
      }
      case ("unfasten") {
        return ("fastened")
      }
      default {
        return (GetCmdVerb(cc))
      }
    }
  </function>
  <function name="PushPullMoveObjDir" parameters="cc, object2, object1, exit">
    // 1: This section checks for the command used (push/pull/move) and puts it into the variable 'cc'.
    // cc = player.currentcommand
    // object2 = obj
    // 2: Check to see if player is immobilised.
    if (player.immobilisedmessage = null) {
      // 3: Checks if the object1 has the attribute 'pushable'.
      if (HasAttribute(object1, "pushable")) {
        if (game.unresolvedcommand = null) {
          // 4: Check if exit is locked.
          if (exit.locked) {
            msg (exit.lockmessage)
          }
          else {
            // 5: Sets the exit.message, moves the object in the direction indicated, moves object2(player/npc) in the direction indicated, resets exit.message.
            exit.message = FormatCmdVerb(WriteVerb2(object2),Conjugate2(object2,cc),Template("the"),object1,exit,".")
            object1.parent = exit.to
            if (object2 = player) {
              HandleSingleCommand ("go " + exit.alias)
            }
            else {
              MoveObject (object2, exit.to)
              msg (exit.message)
            }
          }
          exit.message = null
        }
      }
      else {
        // 6: Immovable object message.
        msg (WriteVerb2(object2) + " cannot " + GetCmdVerb(cc) + " the " + GetDisplayAlias(object1) + " " + exit.alias + ".")
      }
    }
    else {
      // 7: Player is immobilised message.
      msg (player.immobilisedmessage)
    }
  </function>
</asl>