| … | |
… | |
| 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" . (sort 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}) { |
