ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/help.ext
(Generate patch)

Comparing deliantra/server/ext/help.ext (file contents):
Revision 1.10 by root, Wed Sep 19 21:56:30 2007 UTC vs.
Revision 1.16 by root, Tue Sep 23 05:01:41 2008 UTC

1#! perl 1#! perl
2 2
3our $TOPIC; 3our $TOPIC;
4
5our $HELP_CHANNEL = {
6 id => "help",
7 title => "Help",
8 reply => "help ",
9 tooltip => "Online Help",
10};
4 11
5sub load_topics($$) { 12sub load_topics($$) {
6 my ($type, $path) = @_; 13 my ($type, $path) = @_;
7 14
8 my $paragraphs = cf::pod::load_pod "$PODDIR/$path.pod" 15 my $paragraphs = cf::pod::load_pod "$PODDIR/$path.pod"
… …
10 17
11 my @topics; 18 my @topics;
12 my $level = 1e9; 19 my $level = 1e9;
13 20
14 for my $par (@$paragraphs) { 21 for my $par (@$paragraphs) {
15 Coro::cede; 22 cf::cede_to_tick;
16 if ($par->{type} eq "head2") { 23 if ($par->{type} eq "head2") {
17 if ($par->{markup} =~ /^(\S+)/) { 24 if ($par->{markup} =~ /^(\S+)/) {
18 push @topics, $1 => [$type => $par]; 25 push @topics, $1 => [$type => $par];
19 $level = $par->{level}; 26 $level = $par->{level};
20 } 27 }
… …
25 32
26 @topics 33 @topics
27} 34}
28 35
29sub reload() { 36sub reload() {
37 my $guard = cf::lock_acquire "ext::help::loading";
38
39 local $Coro::current->{desc} = "help loader";
40
30 $TOPIC = { 41 $TOPIC = {
31 (load_topics "DM Commands" => "dmcommand_help"), 42 (load_topics "DM Commands" => "dmcommand_help"),
32 (load_topics "Emotes" => "emote_help"), 43 (load_topics "Emotes" => "emote_help"),
33 (load_topics "Commands" => "command_help"), 44 (load_topics "Commands" => "command_help"),
34 (load_topics "Generic Help Topics" => "generic_help"), 45 (load_topics "Generic Help Topics" => "generic_help"),
35 }; 46 };
47
48 ()
36} 49}
37 50
38cf::sync_job { 51cf::post_init {
39 my $guard = cf::lock_acquire "ext::help::loading";
40 cf::async_ext { 52 cf::async {
41 $Coro::current->{desc} = "help loader";
42 reload; 53 reload;
43 undef $guard;
44 }; 54 };
45}; 55};
46
47# for lack of a better place: "media tags"
48# b bold
49# i italic
50# ul underlined
51# fixed font
52# arcane font
53# hand font
54# strange font
55# print font (default)
56# color=xxx
57 56
58cf::register_command help => sub { 57cf::register_command help => sub {
59 my ($pl, $topic) = @_; 58 my ($pl, $topic) = @_;
60 59
61 if (cf::lock_active "ext::help::loading") { 60 if (cf::lock_active "ext::help::loading") {
62 $pl->reply (undef, "help files are being loaded currently, try again in a few seconds."); 61 $pl->send_msg ($HELP_CHANNEL => "help files are being loaded currently, try again in a few seconds.", cf::NDI_REPLY | cf::NDI_CLEAR);
63 return; 62 return;
64 } 63 }
65 64
66 $topic = $1 if $topic =~ /(\S+)/; 65 $topic = $1 if $topic =~ /(\S+)/;
67 66
… …
73 push @{$topics{$v->[0]}}, $k; 72 push @{$topics{$v->[0]}}, $k;
74 } 73 }
75 74
76 my $res; 75 my $res;
77 while (my ($k, $v) = each %topics) { 76 while (my ($k, $v) = each %topics) {
78 $res .= "B<$k:>\n" . (join " ", sort @$v) . "\n\n"; 77 $res .= "T<$k:>\n\n" . (join " ", sort @$v) . "\n\n";
79 } 78 }
80 79
81 $pl->reply (undef, $res); 80 $pl->send_msg ($HELP_CHANNEL => $res, cf::NDI_REPLY | cf::NDI_CLEAR);
82 81
83 } elsif (my $item = $TOPIC->{$topic}) { 82 } elsif (my $item = $TOPIC->{$topic}) {
84 my ($type, @pars) = @$item; 83 my ($type, @pars) = @$item;
85 $pl->reply (undef, cf::pod::as_cfpod \@pars); 84 $pl->send_msg ($HELP_CHANNEL => (cf::pod::as_cfpod \@pars), cf::NDI_REPLY | cf::NDI_CLEAR);
86 85
87 } else { 86 } else {
88 $pl->reply (undef, "'$topic' no such help topic, try just 'help' to get a list of topics."); 87 $pl->send_msg ($HELP_CHANNEL => "'$topic' no such help topic, try just 'help' to get a list of topics.", cf::NDI_REPLY);
89 } 88 }
90}; 89};
91 90

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines