##use:runsub isitme;
##examines:runsub isitme;

##isitme:if $actor eq $target then chkpot else end;

##chkpot:
find $loc,pot;
var $pot to $found_id;
find $pot,tea;
if $found_id > 0 then pourwater else boil;
##pourwater:
say 'actn',"[$actor] boils happily, then [$init_obj] pours some water into [$pot]";
set $found_id's class to "cup";
set $found_id's pclass to "cup";
set $found_id's qty to 1;
set $found_id's colour to "saddlebrown";
set $found_id's extra to "of tea which is nice and hot";
set $found_id's worth to 5;
set $pot's info to "It is now empty. First put in some tea leaves, then some boiling water";
##boil:
say 'actn',"[$actor] boils happily however [$pot] has no tea leaves in it yet";