Find
You are looking at a command called face
face {object} to|to the|towards|leading|facing|heading {direction}
When you face a doorway object its linked doorway (exit) object gets the opposite direction.
face the farm to the north
face the ladder leading down
face the castle west
face the cliff facing east
You can go in the direction you face it just by typing the direction eg
up, north, west
etc..
Check the exit at the other end of the faced object and it will face back in the opposite direction. (you see a ladder leading up)
Created by
wolis
, last updated 19 Jul 2012
Code
get $target,$rel,$text,not greedy in $loc;
if $target > 0 then continue else simple;
##simple:
get $target,$lastword in $loc;
if $target > 0 then continue else fail;
##continue:
if $text eq "" then chooseface else faceit;
##chooseface:
if $lastword like "(up|down)" then setleading else setface;
##setleading:
var $text to $lastword;
var $rel to "leading";
goto faceit;
##setface:
var $text to $lastword;
var $rel to "to the";
goto faceit;
##faceit:
if $rel eq 'to' then setto else setrel;
##setto:
var $rel to 'to the';
swap $text so 'the ' is '';
goto setrel;
##setrel:
var $linked to $target's link;
clear $target,xyz;
set $target's facehow to $rel;
set $target's face to $text;
clear $linked,xyz;
set $linked's facehow to $rel;
say 'face',"[$actor] faces [$target]";
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";