… | |
… | |
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."); |
… | |
… | |
61 | push @{$topics{$v->[0]}}, $k; |
72 | push @{$topics{$v->[0]}}, $k; |
62 | } |
73 | } |
63 | |
74 | |
64 | my $res; |
75 | my $res; |
65 | while (my ($k, $v) = each %topics) { |
76 | while (my ($k, $v) = each %topics) { |
66 | $res .= "[b]$k:[/b]\n" . (join " ", @$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 $topic = $TOPIC->{$topic}) { |