COWbrowse

You are looking at a command called readall

readall
readall {object}
readall {object} for[wards] | back[wards] | rev[ersed] | alpha[betical]

You can read all of the contents of an object as if it were a book.

You can read an object no matter where it is.. this saves you having to teleport to a specific book of commands or instructions before reading it.

readall book of trade to see its contents in the default order (backwards) which is date order: newest to oldest.

The assumption is that you mostly want to know the latest changes or additions. like the Daily COW news

Use the keyword forwards (or its variants) to see the contents in date order: oldest to newsest. Like reading a book chapter by chapter.

Use the keyword alpha to see the contents in alphabetical order: doorways first then A-Z, just like look.

read the command called read which is similar yet different.
read the command called lock to stop people reading something.
read the command called examine to read what is written in an object not all of is contents.
read the command called edit to write in something
read the command called contribute to add chapters to a book

Scripting notes:
Sends out the trigger word 'examines' if the object is in the same location as the actor reading it.

.

Created by wolis, last updated 30 May 2007

Code

get $target;
if $target > 0 then chklock else chkorder;

##chkorder:
get $target,$text;
if $target > 0 then chklock else fail;

##chklock:
$tkey = $target's keyid;
if $tkey > 0 then itslocked else examit;

##itslocked:
print "[$actor] discovers that [$target] has been locked with [$tkey]";

##examit:
$order = 'date_desc'; rem - the default;
if $text like alpha then setalpha;
if $text like for then setordered;

msg $loc,$actor,$actor,0,'force',"force:look $target,examineall_$order";

if $target's loc eq $actor's loc then sayso else sayaway;

##sayso:
set $actor's host to $target;
set $actor's hosthow to 'reading';
say 'examines',"[$actor] starts to read [$target]";

##sayaway:
$is = (seems to be,appears to be,is);
$actn = (slightly distracted,pre-occupied,reading something,learning something);
print "[$actor] $is $actn";

##setalpha: $order = '';
##setreverse: $order = 'date_desc';
##setordered: $order = 'date_asc';

##fail:
var $click_cmd to 'read';
var $desc_intro to 'Click on an object to read:

';
look $loc,list,info <> '';
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";