if target of use then used;

##used:
find $loc,tobacco;
if $found_id > 0 then smokeit else none;

##none:
print "[$init_obj] looks in the pipe and notices it is empty.";

##smokeit:
print "[$init_obj] loads [$found_id] into [$actor] and lights it.";
$verb = (takes a drag,puffs,sucks on,draws from,imbibes);
$verb2 = (breathes out,exhales,blows it out,lets it out);
$object = (some smoke rings,a pungent cloud,a wisp of smoke,tendrils of meandering vapors rising);
print "[$init_obj] $verb on [$actor], then $verb2 making $object in the air";
print "[$found_id] burns out";
set $found_id's loc to 0;
relook $loc;