| … | |
… | |
| 41 | reload; |
41 | reload; |
| 42 | undef $guard; |
42 | undef $guard; |
| 43 | }; |
43 | }; |
| 44 | }; |
44 | }; |
| 45 | |
45 | |
|
|
46 | # for lack of a better place: "media tags" |
|
|
47 | # b bold |
|
|
48 | # i italic |
|
|
49 | # ul underlined |
|
|
50 | # fixed font |
|
|
51 | # arcane font |
|
|
52 | # hand font |
|
|
53 | # strange font |
|
|
54 | # print font (default) |
|
|
55 | # color=xxx |
|
|
56 | |
| 46 | cf::register_command help => sub { |
57 | cf::register_command help => sub { |
| 47 | my ($pl, $topic) = @_; |
58 | my ($pl, $topic) = @_; |
| 48 | |
59 | |
| 49 | if (cf::lock_active "ext::help::loading") { |
60 | if (cf::lock_active "ext::help::loading") { |
| 50 | $pl->reply (undef, "help files are being loaded currently, try again in a few seconds."); |
61 | $pl->reply (undef, "help files are being loaded currently, try again in a few seconds."); |
| … | |
… | |
| 66 | $res .= "[b]$k:[/b]\n" . (join " ", sort @$v) . "\n\n"; |
77 | $res .= "[b]$k:[/b]\n" . (join " ", sort @$v) . "\n\n"; |
| 67 | } |
78 | } |
| 68 | |
79 | |
| 69 | $pl->reply (undef, $res); |
80 | $pl->reply (undef, $res); |
| 70 | |
81 | |
| 71 | } elsif (my $topic = $TOPIC->{$topic}) { |
82 | } elsif (my $item = $TOPIC->{$topic}) { |
| 72 | my ($type, @pars) = @$topic; |
83 | my ($type, @pars) = @$item; |
| 73 | $pl->reply (undef, cf::pod::as_text \@pars); |
84 | $pl->reply (undef, cf::pod::as_text \@pars); |
| 74 | |
85 | |
| 75 | } else { |
86 | } else { |
| 76 | $pl->reply (undef, "'$topic' no such help topic, try just 'help' to get a list of topics."); |
87 | $pl->reply (undef, "'$topic' no such help topic, try just 'help' to get a list of topics."); |
| 77 | } |
88 | } |
