Find
You are looking at a command called examine
examine {object}
Describes just one object in full detail including any extra descriptive information like owner, worth date created etc..
eg:
examine the chair
this is the same as clicking on the chair.
You can only examine objects you can see unlike the read command.
read the command called read
You can not read objects that have been locked with a key object.
read the command called lock
Scriting notes:
Examining an object sends out 'examines' as the keyword.
examining yourself sends out 'examine' as the keyword.
Created by
wolis
, last updated 03 Dec 2014
Code
get $target in $loc;
if $target > 0 then chkpwd else listall;
##chkpwd:
if $pw like $target's pwd then examit else chklock;
##chklock:
$tkey = $target's keyid;
if $tkey > 0 then itslocked else examit;
##itslocked:
print "[$actor] discovers that [$target] has been locked with [$tkey]";
##examit:
msg $loc,$actor,$actor,0,'force',"force:exam $target";
if $target's loc eq $actor's loc then sayso else end;
##sayso:
if $target eq $actor then examself else examother;
##examself:
clear $actor,all;
say 'examine',"[$actor] does some navel-gazing";
##examother:
clear $actor,all;
# set $actor's host to $target;
# set $actor's hosthow to 'at';
# var $how to (squinting,looking,);
# set $actor's pose to $how;
say 'examines',"[$actor] moves close and examines [$target]";
# relook $loc;
##chknew:
get $text;
if $text like "new.*" then listnew else fail;
##listnew:
var $click_cmd to 'goto';
var $desc_intro to "
New objects in cow
";
list new examine;
say 'look',"[$actor] wonders what is new in the world";
##fail:
if $counter > 0 then exit else listall;
##listall:
var $click_cmd to 'examine';
var $desc_intro to "Click on the object you want to $click_cmd:
";
rem look $loc,list;
say 'force',"force:look $loc";