Evaluated proc troll args {set trl [trolldb [join $args " "]]; if {$trl eq ""} { . "none found"} else {set ::current_troll $trl; return $trl}}