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.80 by root, Sat Oct 16 22:51:51 2010 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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines