--- deliantra/server/ext/help.ext 2007/04/19 21:57:19 1.5 +++ deliantra/server/ext/help.ext 2007/06/26 23:09:30 1.8 @@ -43,6 +43,17 @@ }; }; +# for lack of a better place: "media tags" +# b bold +# i italic +# ul underlined +# fixed font +# arcane font +# hand font +# strange font +# print font (default) +# color=xxx + cf::register_command help => sub { my ($pl, $topic) = @_; @@ -63,13 +74,13 @@ my $res; while (my ($k, $v) = each %topics) { - $res .= "[b]$k:[/b]\n" . (join " ", sort @$v) . "\n\n"; + $res .= "B<$k:>\n" . (join " ", sort @$v) . "\n\n"; } $pl->reply (undef, $res); - } elsif (my $topic = $TOPIC->{$topic}) { - my ($type, @pars) = @$topic; + } elsif (my $item = $TOPIC->{$topic}) { + my ($type, @pars) = @$item; $pl->reply (undef, cf::pod::as_text \@pars); } else {