if target of examines then chktea;
if target of use then chktea;
if second of put then chktarget;

##chktarget:
if $target's class like "tea" then putitin else end;

##putitin:
clear $target,all;
print "[$target] settles to the bottom of [$actor]";
set $target's loc to $second;
set $second's info to "It has some tea leaves in it. All it needs now is some hot water";
relook $loc;

##chktea:
find $actor,cup;
if $found_id > 0 then pourtea else end;
##pourtea:
set $found_id's loc to $loc;
say 'actn',"[$init_obj] fills [$found_id] with some nice hot tea";
set $actor's info to "It is now empty. First put in some tea leaves, then some boiling water";
relook $loc;