Find
You are looking at an action called overwrite
Write in target's info regardless of lock, mostly to allow Thorn to update info on objects when he has enhanced the code.
Created by
thorn
, last updated 04 Sep 2009
Code
get $word,$target in $loc;
if $word eq 'in' then editit else chknext;
##chknext:
get $target in $loc;
if $target > 0 then editit else fail;
##editit:
var $caption to 'message';
var $fld to 'info';
say 'edit',"[$actor] starts to write in [$target]";
mode textbox;
##fail:
var $click_cmd to 'write';
var $desc_intro to 'Click on an object to write in:
';
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";
##end;