… | |
… | |
171 | =cut |
171 | =cut |
172 | |
172 | |
173 | cf::register_extcmd editor_support => sub { |
173 | cf::register_extcmd editor_support => sub { |
174 | my ($pl, %msg) = @_; |
174 | my ($pl, %msg) = @_; |
175 | |
175 | |
176 | map +($_ => $cf::CFG{"editor_$_"}), qw(servertype gameserver testserver cvs_root lib_root builder_ui) |
176 | my %cfg = map +($_ => $cf::CFG{"editor_$_"}), qw(servertype servertypes gameserver testserver cvs_root lib_root builder_ui); |
|
|
177 | |
|
|
178 | # clients 2.10 and below check for type and "nameserver" :/ |
|
|
179 | $cfg{type} = $cfg{servertype}; |
|
|
180 | $cfg{nameserver} = $cfg{gameserver}; |
|
|
181 | |
|
|
182 | %cfg |
177 | }; |
183 | }; |
178 | |
184 | |
179 | sub unload { |
185 | sub unload { |
180 | for my $pl (cf::player::list) { |
186 | for my $pl (cf::player::list) { |
181 | if (my $dialog = delete $pl->{npc_dialog}) { |
187 | if (my $dialog = delete $pl->{npc_dialog}) { |