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.37 by root, Sat Mar 17 22:52:32 2007 UTC vs.
Revision 1.41 by root, Wed Apr 25 18:47:50 2007 UTC

… …
87 $ob->reply (undef, (join "\n", who_listing $ob->may ("extended_who")), cf::NDI_UNIQUE | cf::NDI_DK_ORANGE); 87 $ob->reply (undef, (join "\n", who_listing $ob->may ("extended_who")), cf::NDI_UNIQUE | cf::NDI_DK_ORANGE);
88 88
89 1 89 1
90}; 90};
91 91
92cf::register_command seen => sub {
93 my ($pl, $args) = @_;
94
95 if (my ($login) = $args =~ /(\S+)/) {
96 if ($login eq $pl->name) {
97 $pl->message ("Very funny, $login. Ha. Ha.", cf::NDI_UNIQUE);
98 } elsif (cf::player::find_active $login) {
99 $pl->message ("$login is right here on this server!", cf::NDI_UNIQUE);
100 } elsif (cf::player::exists $login
101 and stat cf::player::path $login) {
102 my $time = (stat _)[9];
103
104 $pl->message ("$login was last seen here "
105 . (POSIX::strftime "%Y-%m-%d %H:%M:%S +0000", gmtime $time)
106 . " which was " . (int +(time - $time) / 3600) . " hours ago.", cf::NDI_UNIQUE);
107 } else {
108 $pl->message ("No player named $login is known to me.", cf::NDI_UNIQUE);
109 }
110 } else {
111 $pl->message ("Usage: seen <player>", cf::NDI_UNIQUE);
112 }
113};
114
92cf::register_command body => sub { 115cf::register_command body => sub {
93 my ($ob) = @_; 116 my ($ob) = @_;
94 117
95 my @body_locations = ("in your range slot", "on your arm", "on your body", "on your head", 118 my @body_locations = ("in your range slot", "on your arm", "on your body", "on your head",
96 "around your neck", "in your skill slot", "on your finger", "around your shoulders", 119 "around your neck", "in your skill slot", "on your finger", "around your shoulders",
… …
253 my ($ob, $arg) = @_; 276 my ($ob, $arg) = @_;
254 277
255 return $ob->reply (undef, sprintf "Output rate is presently %dbps.", $ob->contr->ns->max_rate / $cf::TICK) 278 return $ob->reply (undef, sprintf "Output rate is presently %dbps.", $ob->contr->ns->max_rate / $cf::TICK)
256 unless $arg > 0; 279 unless $arg > 0;
257 280
281 # minimum is 2k/s
258 $ob->contr->ns->max_rate ($arg * $cf::TICK); 282 $ob->contr->ns->max_rate ((List::Util::max 2048, $arg) * $cf::TICK);
259 $ob->reply (undef, sprintf "Output rate now set to %dbps.", $ob->contr->ns->max_rate / $cf::TICK); 283 $ob->reply (undef, sprintf "Output rate now set to %dbps.", $ob->contr->ns->max_rate / $cf::TICK);
260 284
261 1 285 1
262}; 286};
263 287
… …
265 my ($ob, $arg) = @_; 289 my ($ob, $arg) = @_;
266 290
267 return $ob->reply (undef, "Output count is presently " . $ob->contr->outputs_count) 291 return $ob->reply (undef, "Output count is presently " . $ob->contr->outputs_count)
268 unless $arg > 0; 292 unless $arg > 0;
269 293
294 $arg = 4 if $arg < 4;
295
270 $ob->contr->outputs_count ($arg); 296 $ob->contr->outputs_count ($arg);
271 $ob->reply (undef, "Output count now set to " . $ob->contr->outputs_count); 297 $ob->reply (undef, "Output count now set to " . $ob->contr->outputs_count);
272 298
273 1 299 1
274}; 300};
275 301
276cf::register_command 'output-sync' => sub { 302cf::register_command 'output-sync' => sub {
277 my ($ob, $arg) = @_; 303 my ($ob, $arg) = @_;
278 304
279 return $ob->reply (undef, "Output sync time is presently " . $ob->contr->outputs_sync) 305 return $ob->reply (undef, sprintf "Output sync time is presently %.1fs", $ob->contr->outputs_sync * $cf::TICK)
280 unless $arg > 0; 306 unless length $arg;
281 307
308 $arg = 0.5 if $arg < 0.5;
309
282 $ob->contr->outputs_sync ($arg); 310 $ob->contr->outputs_sync ($arg / $cf::TICK);
283 $ob->reply (undef, "Output sync time now set to " . $ob->contr->outputs_sync); 311 $ob->reply (undef, sprintf "Output sync time now set to %.1fs", $ob->contr->outputs_sync * $cf::TICK);
284 312
285 1 313 1
286}; 314};
287 315
288# XXX: This has a bug. After one sets his wimpy level to 0 and resets it to 316# XXX: This has a bug. After one sets his wimpy level to 0 and resets it to

Diff Legend

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