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

Comparing deliantra/server/ext/commands.ext (file contents):
Revision 1.79 by root, Fri May 7 19:46:18 2010 UTC vs.
Revision 1.81 by root, Wed May 4 07:36:40 2011 UTC

… …
243}; 243};
244 244
245cf::register_command afk => sub { 245cf::register_command afk => sub {
246 my ($ob, $arg) = @_; 246 my ($ob, $arg) = @_;
247 247
248 $ob->contr->ns->afk ($ob->contr->ns->afk ? 0 : 1); 248 $ob->contr->ns->afk (!(length $arg ? !$arg : $ob->contr->ns->afk));
249 $ob->reply (undef, $ob->contr->ns->afk ? "You are now AFK" : "You are no longer AFK"); 249 $ob->reply (undef, $ob->contr->ns->afk ? "You are now AFK." : "You are no longer AFK.");
250};
251
252cf::register_command bumpmsg => sub {
253 my ($ob, $arg) = @_;
254
255 $ob->contr->ns->bumpmsg (!(length $arg ? !$arg : $ob->contr->ns->bumpmsg));
256 $ob->reply (undef, $ob->contr->ns->bumpmsg ? "Bumping into walls sounds more painful now." : "Bumping into walls will now be silent.");
257};
258
259cf::register_command brace => sub {
260 my ($ob, $arg) = @_;
261
262 $ob->contr->braced (!(length $arg ? !$arg : $ob->contr->ns->braced));
263 $ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced.");
250}; 264};
251 265
252cf::register_command sound => sub { 266cf::register_command sound => sub {
253 my ($ob, $arg) = @_; 267 my ($ob, $arg) = @_;
254 268
255 $ob->contr->ns->sound ($ob->contr->ns->sound ? 0 : 1); 269 $ob->contr->ns->sound (!(length $arg ? !$arg : $ob->contr->ns->sound));
256 $ob->reply (undef, $ob->contr->ns->sound ? "The sounds are enabled." : "Silence is golden..."); 270 $ob->reply (undef, $ob->contr->ns->sound ? "The sounds are enabled." : "Silence is golden...");
257};
258
259cf::register_command brace => sub {
260 my ($ob, $arg) = @_;
261
262 $ob->contr->braced ($ob->contr->braced ? 0 : 1);
263 $ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced.");
264}; 271};
265 272
266cf::register_command 'output-rate' => sub { 273cf::register_command 'output-rate' => sub {
267 my ($ob, $arg) = @_; 274 my ($ob, $arg) = @_;
268 275
… …
390 my $runtime = sprintf "%.1f", (time - $cf::UPTIME) / 86400; 397 my $runtime = sprintf "%.1f", (time - $cf::UPTIME) / 86400;
391 $ob->send_msg ("c/uptime" => "server started $startup, uptime ${runtime}\d", cf::NDI_REPLY | cf::NDI_CLEAR); 398 $ob->send_msg ("c/uptime" => "server started $startup, uptime ${runtime}\d", cf::NDI_REPLY | cf::NDI_CLEAR);
392}; 399};
393 400
394my %IN_MEMORY = ( 401my %IN_MEMORY = (
402 cf::MAP_ACTIVE => "A",
395 cf::MAP_ACTIVE => "I", 403 cf::MAP_INACTIVE => "I",
396 cf::MAP_SWAPPED => "S", 404 cf::MAP_SWAPPED => "S",
397 cf::MAP_LOADING => "L",
398); 405);
399 406
400cf::register_command maps => sub { 407cf::register_command maps => sub {
401 my ($ob, $arg) = @_; 408 my ($ob, $arg) = @_;
402 409
403 no re 'eval'; $arg = qr<$arg>; 410 no re 'eval'; $arg = qr<$arg>;
404 411
405 my $format = " %2s %1s %3s %5s %.60s\n"; 412 my $format = " %2s %1s %3s %5s %.60s\n";
406 413
407 my $msg = "\n" . sprintf $format, "Pl", "I", "Svd", "Reset", "Name"; 414 my $msg = "\n" . sprintf $format, "Pl", "S", "Svd", "Reset", "Name";
408 415
409 for (sort keys %cf::MAP) { 416 for (sort keys %cf::MAP) {
410 my $map = $cf::MAP{$_} 417 my $map = $cf::MAP{$_}
411 or next; 418 or next;
412 419

Diff Legend

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