COWbrowse

You are looking at a command called edit

edit {object}
Write in something so it can be read later. eg create a book. write in the book.
(same as 'write')

To make a secret message for a few users of cow.. inlcude the word to followed by a colon followed by the name/s of users then a = and all remaining text (up to the next 'to' will be displayed just to the named user/s.

include images by prefixing the image address with 'img'. likewise with 'link' for a website.

link http://www.wolispace.com

Created by wolis, last updated 03 Dec 2014

Code

get $target,as,$text,non-greedy in $loc;
if $target > 0 then checkpw else chkoneword;
##chkoneword:
var $text to '';
get $target in $loc;
if $target > 0 then checkpw else fail;
##checkpw:
if $pw like $target's pwd then chkdesc else itslocked;
##chkdesc:
if $text eq '' then editdesc else descit;

##editdesc:
var $caption to 'message';
var $fld to 'info';
say 'edit',"[$actor] starts to edit [$target]";
mode textbox;

##descit:
set $target's info to $text;
say 'edits',"[$actor] edits [$target]";

##fail:
if $counter > 0 then end else listall;
##listall:
var $click_cmd to 'edit';
var $desc_intro to "Click on the object you want to $click_cmd:

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

##itslocked:
say 'objlocked',"[$actor] could not edit [$target] because its locked";