COWbrowse

You are looking at a carved stool

This red painted stool is missing some red paint where someone vandalized it with a sharp object. The rather rude words have been scratched out. Try sit on the carved stool

Created by thorn, last updated 17 Apr 2008

Code

if target of use then used;

##used:
runsub findsitter;
update $init_obj = "host=$target,hosthow='sitting on'";
say 'msg',"[$init_obj] sits on [$target]";
relook $loc;

##findsitter:
// this doesnt work because sit puts both words in hosthow and the 2nd word can be anything: $sitter is sitting on $target;
foreach in $loc do checksit;

##checksit:
$host = $for_id's host;
if $host eq $target then checksit2;

##checksit2:
$how = $for_id's hosthow;
$match = 'sitting';
if $how like $match then pushoff;

##pushoff:
update $for_id = "host=$target,hosthow='near',pose='standing'";
say 'msg',"[$init_obj] pushes [$for_id] off [$target].";