… | |
… | |
38 | (load_topics "DM Commands" => "dmcommand_help"), |
38 | (load_topics "DM Commands" => "dmcommand_help"), |
39 | (load_topics "Emotes" => "emote_help"), |
39 | (load_topics "Emotes" => "emote_help"), |
40 | (load_topics "Commands" => "command_help"), |
40 | (load_topics "Commands" => "command_help"), |
41 | (load_topics "Generic Help Topics" => "generic_help"), |
41 | (load_topics "Generic Help Topics" => "generic_help"), |
42 | }; |
42 | }; |
|
|
43 | |
|
|
44 | () |
43 | } |
45 | } |
44 | |
46 | |
45 | cf::sync_job { |
47 | cf::sync_job { |
46 | my $guard = cf::lock_acquire "ext::help::loading"; |
48 | my $guard = cf::lock_acquire "ext::help::loading"; |
47 | cf::async_ext { |
49 | cf::async_ext { |
… | |
… | |
80 | push @{$topics{$v->[0]}}, $k; |
82 | push @{$topics{$v->[0]}}, $k; |
81 | } |
83 | } |
82 | |
84 | |
83 | my $res; |
85 | my $res; |
84 | while (my ($k, $v) = each %topics) { |
86 | while (my ($k, $v) = each %topics) { |
85 | $res .= "B<$k:>\n" . (join " ", sort @$v) . "\n\n"; |
87 | $res .= "T<$k:>\n\n" . (join " ", sort @$v) . "\n\n"; |
86 | } |
88 | } |
87 | |
89 | |
88 | $pl->send_msg ($HELP_CHANNEL => $res, cf::NDI_REPLY | cf::NDI_CLEAR); |
90 | $pl->send_msg ($HELP_CHANNEL => $res, cf::NDI_REPLY | cf::NDI_CLEAR); |
89 | |
91 | |
90 | } elsif (my $item = $TOPIC->{$topic}) { |
92 | } elsif (my $item = $TOPIC->{$topic}) { |