COWbrowse

You are looking at a wooden chair

A simple wooden chair, painted red like everything else in the tavern. There are a pair of dragons etched into the seat. Try sit on the wooden chair.

Created by thorn, last updated 09 Feb 2007

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].";