get $target in $loc;
if $target > 0 then isitdoor else nope;

##isitdoor:
if $target's link > 0 then nope else charit;

##charit:
$hlth = $target's health;
$breather = $actor's name;
$what = ($breather's pupils narrow to slits, waves of intense heat rise from $breather, $breather smiles revealing tongues of flame licking at serrated teeth);
$how = (cowers, stumbles backward, gasps);
$which = (fear, terror, horror);
print "[$target] $how in $which as $what";
take 10 from $hlth;
set $target's health to $hlth;
$wfire = (stream, torrent, gobbet, blast);
print "[$actor] opens his mouth and spews a $wfire of flame at [$target]";
$hfire = (blistering, searing, charring);
print "[$target] is enveloped in $hfire flames";
if $target's health > 0 then whatever else killit;
##killit:
set $target's health to 0;
print "[$target] is carbonized";