[ViewVC] Diff of: cvs/deliantra/server/ext/commands.ext

Comparing deliantra/server/ext/commands.ext (file contents):
Revision 1.26 by pippijn, Fri Mar 2 11:23:17 2007 UTC vs.
Revision 1.59 by root, Fri Aug 10 05:27:38 2007 UTC

…		…
1	#! perl	1	#! perl # mandatory depends=irc
2		2
3	use POSIX ();	3	use POSIX ();
4		4
5	# miscellaneous commands	5	# miscellaneous commands
		6
		7	sub who_listing(;$$) {
		8	my ($privileged, $select) = @_;
		9
		10	my ($numwiz, $numafk) = (0, 0);
		11	my @pl;
		12
		13	foreach my $pl (cf::player::list) {
		14	my $ns = $pl->ns or next;
		15	my $ob = $pl->ob;
		16
		17	next unless $ob->map
		18	&& ($privileged \|\| !$pl->hidden);
		19
		20	$numwiz++ if $ob->flag (cf::FLAG_WIZ);
		21	$numafk++ if $ns->afk;
		22
		23	push @pl, $pl;
		24	}
		25
		26	(
		27	"Total Players in The World. (" . (scalar @pl) . ") -- WIZ($numwiz) AFK($numafk) BOT(0)",
		28	(grep /$select/,
		29	map {
		30	my ($pl, $ob, $ns) = ($_, $_->ob, $_->ns);
		31
		32	"* " . $ob->name . "/" . $ob->level . " " . (length $pl->own_title ? $pl->own_title : "the " . $pl->title)
		33	. ($pl->gender ? " [f]" : " [m]")
		34	. ($pl->peaceful ? " [peaceful]" : " [HOSTILE]")
		35	. ($ns->afk ? " [AFK]" : "")
		36	. ($ob->flag (cf::FLAG_WIZ) ? " [WIZ]" : "")
		37	. " [" . $pl->ns->version . "]"
		38	. " [" . ($pl->peaceful \|\| $privileged ? $ob->map->visible_name : $ob->region->name) . "]"
		39	. (sprintf " [rtt %.3fs]", $pl->ns->tcpi_rtt * 1e-6)
		40	. ($privileged ? " " . $pl->ns->host : "")
		41	} sort { (lc $a->ob->name) cmp (lc $b->ob->name) } @pl
		42	),
		43	eval { "* IRC: " . join ", ", ext::irc::users },
		44	)
		45	}
		46
		47	cf::register_command who => sub {
		48	my ($ob, $arg) = @_;
		49
		50	$ob->speed_left ($ob->speed_left - 4);
		51
		52	$ob->contr->ns->send_msg (log => (join "\n\n", who_listing $ob->may ("extended_who"), $arg), cf::NDI_DK_ORANGE);
		53	};
		54
		55	cf::register_command seen => sub {
		56	my ($pl, $args) = @_;
		57
		58	if (my ($login) = $args =~ /(\S+)/) {
		59	if ($login eq $pl->name) {
		60	$pl->message ("Very funny, $login. Ha. Ha.", cf::NDI_UNIQUE);
		61	} elsif (cf::player::find_active $login) {
		62	$pl->message ("$login is right here on this server!", cf::NDI_UNIQUE);
		63	} elsif (cf::player::exists $login
		64	and stat cf::player::path $login) {
		65	my $time = (stat _)[9];
		66
		67	$pl->message ("$login was last seen here "
		68	. (POSIX::strftime "%Y-%m-%d %H:%M:%S +0000", gmtime $time)
		69	. " which was " . (int +(time - $time) / 3600) . " hours ago.", cf::NDI_UNIQUE);
		70	} else {
		71	$pl->message ("No player named $login is known to me.", cf::NDI_UNIQUE);
		72	}
		73	} else {
		74	$pl->message ("Usage: seen <player>", cf::NDI_UNIQUE);
		75	}
		76	};
		77
		78	cf::register_command body => sub {
		79	my ($ob) = @_;
		80
		81	# Too hard to try and make a header that lines everything up, so just
		82	# give a description. (comment from C++)
		83	my $reply =
		84	"The first column is the name of the body location.\n\n"
		85	. "The second column is how many of those locations your body has.\n\n"
		86	. "The third column is how many slots in that location are available.\n\n";
		87
		88	$reply .= sprintf " %-20s %3s %5s\n", "Location", "You", "Avail";
		89	for (0 .. cf::NUM_BODY_LOCATIONS - 1) {
		90	my $msg = cf::object::slot_nonuse_name $_;
		91	$msg =~ s/^.*? a //;
		92	$reply .= sprintf " %-20s %3d %5d\n", $msg, $ob->slot_info ($_), $ob->slot_used ($_)
		93	if $ob->slot_info ($_) or $ob->slot_used ($_);
		94	}
		95
		96	$reply .= "You are not allowed to wear armor\n\n"
		97	unless $ob->flag (cf::FLAG_USE_ARMOUR);
		98	$reply .= "You are not allowed to use weapons\n\n"
		99	unless $ob->flag (cf::FLAG_USE_WEAPON);
		100
		101	$ob->reply (undef, $reply);
		102	};
		103
		104	cf::register_command mark => sub {
		105	my ($pl, $arg) = @_;
		106
		107	if (length $arg) {
		108	my $ob = $pl->find_best_object_match ($arg);
		109
		110	return $pl->reply (undef, "Could not find an object that matches $arg")
		111	unless $ob;
		112
		113	$pl->contr->mark ($ob);
		114	$pl->reply (undef, (sprintf "Marked item %s", $ob->name, $ob->title));
		115	} else {
		116	my $ob = $pl->find_marked_object;
		117
		118	$pl->reply (undef, $ob
		119	? (sprintf "%s %s * is marked.", $ob->name, $ob->title)
		120	: "You have no marked object.");
		121	}
		122	};
		123
		124	for my $cmd ("run", "fire") {
		125	my $oncmd = "${cmd}_on";
		126	cf::register_command $cmd => sub {
		127	my ($ob, $arg) = @_;
		128
		129	$ob->reply (undef, "Can't $cmd into a non adjacent square.")
		130	if $arg < 0 or $arg >= 9;
		131
		132	$ob->contr->$oncmd (1);
		133	$ob->move_player ($arg);
		134	};
		135
		136	cf::register_command "${cmd}_stop" => sub {
		137	my ($ob) = @_;
		138
		139	$ob->contr->$oncmd (0);
		140	};
		141	}
		142
		143	cf::register_command mapinfo => sub {
		144	my ($ob) = @_;
		145
		146	my $observe = $ob->contr->observe;
		147
		148	my $map = $observe->map
		149	or return;
		150	$ob->reply (undef, (sprintf "%s (%s) %s", $map->name, $map->path, $observe->region->longname));
		151	$ob->reply (undef, (sprintf "players: %d difficulty: %d size: %d start: %dx%d timeout: %d",
		152	(scalar $map->players), $map->difficulty, $map->width, $map->height, $map->enter_x, $map->enter_y, $map->timeout))
		153	if $ob->flag (cf::FLAG_WIZ);
		154	$ob->reply (undef, $map->msg);
		155	};
		156
		157	cf::register_command whereami => sub {
		158	my ($ob) = @_;
		159
		160	my $reg = $ob->contr->observe->region;
		161	$ob->reply (undef, (sprintf "You are %s.\n%s", $reg->longname, $reg->msg));
		162	};
		163
		164	cf::register_command whereabouts => sub {
		165	my ($ob, $arg) = @_;
		166
		167	my %count;
		168
		169	for my $pl (cf::player::list) {
		170	++$count{$pl->ob->region->longname};
		171	}
		172
		173	my $msg = "In the world currently there are:\n\n"
		174	. join "", map "$count{$_} player(s) in $_\n\n", sort keys %count;
		175
		176	$ob->contr->ns->send_msg (log => $msg, cf::NDI_REPLY);
		177	};
		178
		179	cf::register_command hiscore => sub {
		180	my ($ob, $arg) = @_;
		181
		182	my $url = $cf::CFG->{hiscore_url};
		183	$ob->contr->ns->send_msg (log => "See $url", cf::NDI_REPLY);
		184	};
		185
		186	sub _set_mode($$$@) {
		187	my ($name, $ob, $arg, $slot, @choices) = @_;
		188
		189	my $oldmode = $ob->contr->$slot;
		190
		191	return $ob->reply (undef, "$name is set to $choices[$oldmode]")
		192	unless $arg;
		193
		194	my ($idx) = grep $choices[$_] eq $arg, 0 .. $#choices
		195	or return $ob->reply (undef, "$name: Unknown options '$arg', valid options are @choices"), 1;
		196
		197	$ob->contr->$slot ($idx);
		198	$ob->reply (undef, "$name" . ($oldmode == $ob->contr->unapply ? "" : " now") . " set to " . $choices[$ob->contr->$slot]);
		199	}
		200
		201	cf::register_command applymode => sub {
		202	my ($ob, $arg) = @_;
		203
		204	_set_mode "applymode", $ob, $arg, unapply => qw(nochoice never always);
		205	};
		206
		207	cf::register_command petmode => sub {
		208	my ($ob, $arg) = @_;
		209
		210	_set_mode "petmode", $ob, $arg, petmode => qw(normal sad defend arena);
		211	};
		212
		213	cf::register_command usekeys => sub {
		214	my ($ob, $arg) = @_;
		215
		216	_set_mode "usekeys", $ob, $arg, usekeys => qw(inventory keyrings containers);
		217	};
		218
		219	cf::register_command hintmode => sub {
		220	my ($ob, $arg) = @_;
		221
		222	_set_mode "hintmode", $ob, $arg, hintmode => qw(show mark hide);
		223	};
		224
		225	cf::register_command afk => sub {
		226	my ($ob, $arg) = @_;
		227
		228	$ob->contr->ns->afk ($ob->contr->ns->afk ? 0 : 1);
		229	$ob->reply (undef, $ob->contr->ns->afk ? "You are now AFK" : "You are no longer AFK");
		230	};
		231
		232	cf::register_command sound => sub {
		233	my ($ob, $arg) = @_;
		234
		235	$ob->contr->ns->sound ($ob->contr->ns->sound ? 0 : 1);
		236	$ob->reply (undef, $ob->contr->ns->sound ? "The sounds are enabled." : "Silence is golden...");
		237	};
		238
		239	cf::register_command brace => sub {
		240	my ($ob, $arg) = @_;
		241
		242	$ob->contr->braced ($ob->contr->braced ? 0 : 1);
		243	$ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced.");
		244	};
		245
		246	cf::register_command 'output-rate' => sub {
		247	my ($ob, $arg) = @_;
		248
		249	return $ob->reply (undef, sprintf "Output rate is presently %dbps.", $ob->contr->ns->max_rate / $cf::TICK)
		250	unless $arg > 0;
		251
		252	# minimum is 5k/s
		253	# maximum is 100k/s, this should be configurable
		254	$ob->contr->ns->max_rate ((List::Util::max 5000, List::Util::min 100000, $arg) * $cf::TICK);
		255	$ob->reply (undef, sprintf "Output rate now set to %dbps.", $ob->contr->ns->max_rate / $cf::TICK);
		256	};
		257
		258	cf::register_command 'output-count' => sub {
		259	my ($ob, $arg) = @_;
		260
		261	return $ob->reply (undef, "Output count is presently " . $ob->contr->outputs_count)
		262	unless $arg > 0;
		263
		264	$arg = 4 if $arg < 4;
		265
		266	$ob->contr->outputs_count ($arg);
		267	$ob->reply (undef, "Output count now set to " . $ob->contr->outputs_count);
		268	};
		269
		270	cf::register_command 'output-sync' => sub {
		271	my ($ob, $arg) = @_;
		272
		273	return $ob->reply (undef, sprintf "Output sync time is presently %.1fs", $ob->contr->outputs_sync * $cf::TICK)
		274	unless length $arg;
		275
		276	$arg = 0.5 if $arg < 0.5;
		277
		278	$ob->contr->outputs_sync ($arg / $cf::TICK);
		279	$ob->reply (undef, sprintf "Output sync time now set to %.1fs", $ob->contr->outputs_sync * $cf::TICK);
		280	};
		281
		282	# XXX: This has a bug. After one sets his wimpy level to 0 and resets it to
		283	# some other level (which may also be 0), this does not get echoed,
		284	# but it does get set.
		285	cf::register_command wimpy => sub {
		286	my ($ob, $arg) = @_;
		287
		288	my $wimpy = $ob->run_away;
		289	return $ob->reply (undef, "Your current wimpy level is $wimpy.")
		290	if $arg eq "";
		291
		292	return $ob->run_away ($arg) && $ob->reply (undef, "Your new wimpy level is $arg.")
		293	if $arg =~ /^\d+$/ and $arg <= 100;
		294
		295	$ob->reply (undef, "Incorrect parameters for wimpy: $arg");
		296	};
		297
		298	cf::register_command peaceful => sub {
		299	my ($ob, $arg) = @_;
		300
		301	$ob->reply (undef, "You cannot change your peaceful setting with this command."
		302	." Please speak to the priest in the temple of Gorokh"
		303	." if you want to become hostile or in temple of Valriel"
		304	." if you want to become peaceful again.");
		305
		306	#$ob->contr->peaceful ($ob->contr->peaceful ? 0 : 1);
		307	#$ob->reply (undef, $ob->contr->peaceful ? "You will attack other players." : "You will not attack other players.");
		308	};
6		309
7	sub rename_to($$$) {	310	sub rename_to($$$) {
8	my ($ob, $from, $to) = @_;	311	my ($ob, $from, $to) = @_;
9		312
10	$to =~ /^[a-zA-Z0-9.,=#\/%$!^ ]*$/	313	$to =~ /^[a-zA-Z0-9.,=#\/%$!^ ]*$/
17		320
18	if (length $from) {	321	if (length $from) {
19	$item = $ob->find_best_object_match ($from)	322	$item = $ob->find_best_object_match ($from)
20	or return $ob->message ("rename: could not find a matching item to rename.");	323	or return $ob->message ("rename: could not find a matching item to rename.");
21	} else {	324	} else {
22	$item = $ob->find_marked_object ()	325	$item = $ob->find_marked_object
23	or return $ob->message ("rename: no from name and no marked item found to rename.");	326	or return $ob->message ("rename: no from name and no marked item found to rename.");
24	}	327	}
25		328
26	$item->custom_name (length $to ? $to : undef);	329	$item->custom_name (length $to ? $to : undef);
27		330
…		…
35		338
36	$ob->esrv_update_item (cf::UPD_NAME, $item);	339	$ob->esrv_update_item (cf::UPD_NAME, $item);
37		340
38	1	341	1
39	}	342	}
40
41	sub ext::schmorp_irc::users; # HACK: TODO: replace by signal
42
43	sub who_listing(;$) {
44	my ($privileged) = @_;
45
46	my ($numwiz, $numafk) = (0, 0);
47	my @pl;
48
49	foreach my $pl (cf::player::list) {
50	my $ns = $pl->ns or next;
51	my $ob = $pl->ob;
52
53	next unless $ob->map
54	&& ($privileged \|\| !$pl->hidden);
55
56	$numwiz++ if $ob->flag (cf::FLAG_WIZ);
57	$numafk++ if $ns->afk;
58
59	push @pl, $pl;
60	}
61
62	(
63	"Total Players in The World. (" . (scalar @pl) . ") -- WIZ($numwiz) AFK($numafk) BOT(0)",
64	(
65	map {
66	my ($pl, $ob, $ns) = ($_, $_->ob, $_->ns);
67
68	"* " . $ob->name . "/" . $ob->level . " " . (length $pl->own_title ? $pl->own_title : "the " . $pl->title)
69	. ($pl->peaceful ? " [peaceful]" : " [HOSTILE]")
70	. ($ns->afk ? " [AFK]" : "")
71	. ($ob->flag (cf::FLAG_WIZ) ? " [WIZ]" : "")
72	. " [" . $pl->ns->version . "]"
73	. " [" . ($pl->peaceful \|\| $privileged ? $ob->map->visible_name : $ob->region->name) . "]"
74	. (sprintf " [rtt %.3fs]", $pl->ns->rtt * 1e-6)
75	. ($privileged ? " " . $pl->ns->host : "")
76	} sort { (lc $a->ob->name) cmp (lc $b->ob->name) } @pl
77	),
78	eval { "* IRC: " . join ", ", ext::schmorp_irc::users },
79	)
80	}
81
82	cf::register_command who => sub {
83	my ($ob, $arg) = @_;
84
85	$ob->speed_left ($ob->speed_left - 0.25);
86
87	$ob->reply (undef, (join "\n", who_listing $ob->may ("extended_who")), cf::NDI_UNIQUE \| cf::NDI_DK_ORANGE);
88
89	1
90	};
91
92	cf::register_command mapinfo => sub {
93	my ($ob) = @_;
94
95	my $map = $ob->map
96	or return;
97	$ob->reply (undef, (sprintf "%s (%s) %s", $map->name, $map->path, $ob->region->longname));
98	$ob->reply (undef, (sprintf "players: %d difficulty: %d size: %d start: %dx%d timeout: %d",
99	$map->players, $map->difficulty, $map->width, $map->height, $map->enter_x, $map->enter_y, $map->timeout))
100	if $ob->flag (cf::FLAG_WIZ);
101	$ob->reply (undef, $map->msg);
102
103	1
104	};
105
106	cf::register_command whereami => sub {
107	my ($ob) = @_;
108
109	my $reg = $ob->region;
110	$ob->reply (undef, (sprintf "You are %s.\n%s", $reg->longname, $reg->msg));
111
112	1
113	};
114
115	cf::register_command applymode => sub {
116	my ($ob, $arg) = @_;
117	my @types = ("nochoice", "never", "always");
118	my $mapping = {
119	nochoice => 1,
120	never => 2,
121	always => 3,
122	};
123
124	my $oldmode = $ob->contr->unapply;
125	my $oldmode_name = $types[$oldmode];
126
127	return $ob->reply (undef, "applymode is set to $oldmode_name")
128	unless $arg;
129
130	return $ob->reply (undef, "applymode: Unknown options '$arg', valid options are @types")
131	unless $mapping->{$arg};
132
133	$ob->contr->unapply ($mapping->{$arg} - 1); # HACK: because of the $mapping->{$arg} check before, where $arg should not be 0
134	# but $arg would be 0 if a user enters an incorrect value
135	$ob->reply (undef, "applymode" . ($oldmode == $ob->contr->unapply ? "" : " now") . " set to " . $types[$ob->contr->unapply]);
136
137	1
138	};
139
140	cf::register_command petmode => sub {
141	my ($ob, $arg) = @_;
142	my @types = ("normal", "sad", "defend", "arena");
143	my $mapping = {
144	normal => 1,
145	sad => 2,
146	defend => 3,
147	arena => 4,
148	};
149
150	my $oldtype = $ob->contr->petmode;
151	my $oldtype_name = $types[$oldtype];
152
153	return $ob->reply (undef, "petmode is set to $oldtype_name")
154	unless $arg;
155
156	return $ob->reply (undef, "petmode: Unknown options '$arg', valid options are @types")
157	unless $mapping->{$arg};
158
159	$ob->contr->petmode ($mapping->{$arg} - 1); # HACK: because of the $mapping->{$arg} check before, where $arg should not be 0
160	# but $arg would be 0 if a user enters an incorrect value
161	$ob->reply (undef, "petmode" . ($oldtype == $ob->contr->petmode ? "" : " now") . " set to " . $types[$ob->contr->petmode]);
162
163	1
164	};
165
166	cf::register_command usekeys => sub {
167	my ($ob, $arg) = @_;
168	my @types = ("inventory", "keyrings", "containers");
169	my $mapping = {
170	inventory => 1,
171	keyrings => 2,
172	containers => 3,
173	};
174
175	my $oldtype = $ob->contr->usekeys;
176	my $oldtype_name = $types[$oldtype];
177
178	return $ob->reply (undef, "usekeys is set to $oldtype_name")
179	unless $arg;
180
181	return $ob->reply (undef, "usekeys: Unknown options '$arg', valid options are @types")
182	unless $mapping->{$arg};
183
184	$ob->contr->usekeys ($mapping->{$arg} - 1); # HACK: because of the $mapping->{$arg} check before, where $arg should not be 0
185	# but $arg would be 0 if a user enters an incorrect value
186	$ob->reply (undef, "usekeys" . ($oldtype == $ob->contr->usekeys ? "" : " now") . " set to " . $types[$ob->contr->usekeys]);
187
188	1
189	};
190
191	cf::register_command afk => sub {
192	my ($ob, $arg) = @_;
193
194	$ob->contr->ns->afk ($ob->contr->ns->afk ? 0 : 1);
195	$ob->reply (undef, $ob->contr->ns->afk ? "You are now AFK" : "You are no longer AFK");
196
197	1
198	};
199
200	cf::register_command sound => sub {
201	my ($ob, $arg) = @_;
202
203	$ob->contr->ns->sound ($ob->contr->ns->sound ? 0 : 1);
204	$ob->reply (undef, $ob->contr->ns->sound ? "The sounds are enabled." : "Silence is golden...");
205
206	1
207	};
208
209	cf::register_command brace => sub {
210	my ($ob, $arg) = @_;
211
212	$ob->contr->braced ($ob->contr->braced ? 0 : 1);
213	$ob->reply (undef, $ob->contr->braced ? "You are braced." : "Not braced.");
214
215	1
216	};
217
218	cf::register_command 'output-count' => sub {
219	my ($ob, $arg) = @_;
220
221	return $ob->reply (undef, "Output count is presently " . $ob->contr->outputs_count)
222	unless $arg > 0;
223
224	$ob->contr->outputs_count ($arg);
225	$ob->reply (undef, "Output count now set to " . $ob->contr->outputs_count);
226
227	1
228	};
229
230	cf::register_command 'output-sync' => sub {
231	my ($ob, $arg) = @_;
232
233	return $ob->reply (undef, "Output sync time is presently " . $ob->contr->outputs_sync)
234	unless $arg > 0;
235
236	$ob->contr->outputs_sync ($arg);
237	$ob->reply (undef, "Output sync time now set to " . $ob->contr->outputs_sync);
238
239	1
240	};
241
242	# XXX: This has a bug. After one sets his wimpy level to 0 and resets it to
243	# some other level (which may also be 0), this does not get echoed,
244	# but it does get set.
245	cf::register_command wimpy => sub {
246	my ($ob, $arg) = @_;
247
248	my $wimpy = $ob->run_away;
249	return $ob->reply (undef, "Your current wimpy level is $wimpy.")
250	if $arg eq "";
251
252	return $ob->run_away ($arg) && $ob->reply (undef, "Your new wimpy level is $arg.")
253	if $arg =~ /^\d+$/ and $arg <= 100;
254
255	$ob->reply (undef, "Incorrect parameters for wimpy: $arg");
256
257	1
258	};
259
260	cf::register_command peaceful => sub {
261	my ($ob, $arg) = @_;
262
263	$ob->reply (undef, "You cannot change your peaceful setting with this command."
264	." Please speak to the priest in the temple of Gorokh"
265	." if you want to become hostile or in temple of Valriel"
266	." if you want to become peaceful again.");
267
268	#$ob->contr->peaceful ($ob->contr->peaceful ? 0 : 1);
269	#$ob->reply (undef, $ob->contr->peaceful ? "You will attack other players." : "You will not attack other players.");
270
271	1
272	};
273		343
274	cf::register_command rename => sub {	344	cf::register_command rename => sub {
275	my ($ob, $arg) = @_;	345	my ($ob, $arg) = @_;
276		346
277	$ob->speed_left ($ob->speed_left - 0.25);	347	$ob->speed_left ($ob->speed_left - 0.25);
…		…
291	# does not unquote $1 or $3	361	# does not unquote $1 or $3
292	rename_to $ob, $2\|\|$1, $4\|\|$3;	362	rename_to $ob, $2\|\|$1, $4\|\|$3;
293	} else {	363	} else {
294	$ob->reply (undef, 'Syntax error. Rename usage: rename ["oldname"] to "newname"');	364	$ob->reply (undef, 'Syntax error. Rename usage: rename ["oldname"] to "newname"');
295	}	365	}
296
297	1
298	};	366	};
299		367
300	cf::register_command uptime => sub {	368	cf::register_command uptime => sub {
301	my ($ob, $arg) = @_;	369	my ($ob, $arg) = @_;
302		370
303	my $startup = POSIX::strftime "%Y-%m-%d %H:%M:%S %Z", localtime $cf::UPTIME;	371	my $startup = POSIX::strftime "%Y-%m-%d %H:%M:%S %Z", localtime $cf::UPTIME;
304	my $runtime = sprintf "%.1f", (time - $cf::UPTIME) / 86400;	372	my $runtime = sprintf "%.1f", (time - $cf::UPTIME) / 86400;
305	$ob->reply (undef, "server started $startup, uptime ${runtime}\d");	373	$ob->reply (undef, "server started $startup, uptime ${runtime}\d");
306
307	1
308	};	374	};
309		375
310	my %IN_MEMORY = (	376	my %IN_MEMORY = (
311	cf::MAP_IN_MEMORY => "I",	377	cf::MAP_IN_MEMORY => "I",
312	cf::MAP_SWAPPED => "S",	378	cf::MAP_SWAPPED => "S",
…		…
339	$svd,	405	$svd,
340	(int $map->reset_at - $cf::RUNTIME),	406	(int $map->reset_at - $cf::RUNTIME),
341	$map->visible_name),	407	$map->visible_name),
342	cf::NDI_BLACK \| cf::NDI_UNIQUE);	408	cf::NDI_BLACK \| cf::NDI_UNIQUE);
343	}	409	}
344
345	1
346	};	410	};
347		411

Diff Legend

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

Comparing deliantra/server/ext/commands.ext (file contents): Revision 1.26 by pippijn, Fri Mar 2 11:23:17 2007 UTC vs. Revision 1.59 by root, Fri Aug 10 05:27:38 2007 UTC

Diff Legend

Comparing deliantra/server/ext/commands.ext (file contents):
Revision 1.26 by pippijn, Fri Mar 2 11:23:17 2007 UTC vs.
Revision 1.59 by root, Fri Aug 10 05:27:38 2007 UTC