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

Comparing deliantra/server/ext/login.ext (file contents):
Revision 1.1 by root, Fri Dec 22 16:34:00 2006 UTC vs.
Revision 1.112 by elmex, Mon May 10 15:54:40 2010 UTC

…		…
1	#! perl	1	#! perl # mandatory depends=highscore
2		2
3	# login handling	3	# login handling
4		4
5	use Fcntl;	5	use Fcntl;
6	use Coro::AIO;	6	use Coro::AIO;
7		7
8	my $PLAYERDIR = sprintf "%s/%s", cf::localdir, cf::playerdir;	8	our $MAX_DISCONNECT_TIME = $cf::CFG{max_disconnect_time} \|\| 3600;
9		9
10	# testbed for coroutines in crossfire :	10	# paranoia function to overwrite a string-in-place
		11	sub nuke_str {
		12	substr $_[0], 0, (length $_[0]), "x" x length $_[0]
		13	}
11		14
12	sub query {	15	sub query {
13	my ($ns, $flags, $text) = @_;	16	my ($ns, $flags, $text) = @_;
14		17
15	my $current = $Coro::current;	18	$ns->query ($flags, $text, Coro::rouse_cb);
16	$ns->query ($flags, $text, sub { $current->ready; $current = $_[0]; });	19	Coro::rouse_wait
17	Coro::schedule while ref $current;
18
19	$current
20	}	20	}
21		21
22	sub can_cleanup {	22	sub can_cleanup {
23	my ($playerfile, $mtime) = @_;	23	my ($pl, $mtime) = @_;
24		24
25	my $age = time - $mtime;	25	my $age = time - $mtime;
26	my $level = $playerfile =~ /^level (\d+)$/m ? $1 : return;	26	my $level = $pl->ob->level;
27		27
28	($level <= 3 && $age > 7 * 86400) # 7 days for level 0..3	28	($level <= 3 && $age > 7 * 86400) # 7 days for level 0..3
29	\|\| ($level <= 9 && $age > 90 * 86400) # 3 months for level 4..9	29	\|\| ($level <= 9 && $age > 90 * 86400) # 3 months for level 4..9
30	\|\| ($level <= 20 && $age > 180 * 86400) # 6 months for level 10..20	30	\|\| ($level <= 20 && $age > 180 * 86400) # 6 months for level 10..20
31	\|\| $age > 700 * 86400 # 2 years for everybody else	31	\|\| $age > 700 * 86400 # 2 years for everybody else
32	}	32	}
33		33
34	sub check_playing {	34	sub check_playing {
35	my ($ns, $user) = @_;	35	my ($ns, $user) = @_;
36		36
37	return unless cf::player::find $user;	37	return unless cf::player::find_active $user;
38		38
39	$ns->send_drawinfo (	39	$ns->send_drawinfo (
40	"That player is already logged in on this server. "	40	"That player is already logged in on this server. "
41	. "If you want to create a new player, choose another name. "	41	. "If you want to create a new player, choose another name. "
42	. "If you are already a registered player, make sure nobody "	42	. "If you have already a registered, make sure nobody "
43	. "else is using your account at this time. If you lost your conenction "	43	. "else is using your account at this time. If you lost your connection "
44	. "then the server will likely timeout within a minute. If you still "	44	. "then the server will likely timeout within a minute. If you still "
45	. "cannot log-in after a minute, you are still logged in. Make sure "	45	. "cannot log-in after a minute, you are still logged in. Make sure "
46	. "you do not have another client running. If you use windows, reboot, "	46	. "you do not have another client running. If you use windows, reboot, "
47	. "this will fix anything.",	47	. "this will fix anything.",
48	cf::NDI_RED	48	cf::NDI_RED
49	);	49	);
50		50
51	1	51	1
52	}	52	}
53		53
54	# delete a player directory, be non-blocking AND synchronous...	54	sub safe_spot($) {
55	# (thats hard, so we crap out and fork).	55	my ($pl) = @_;
		56
		57	my $ob = $pl->ob;
		58
		59	my $m = $ob->map
		60	or return;
		61	my $x = $ob->x;
		62	my $y = $ob->y;
		63
		64	# return 0;#d#
		65	# warn join ":", $m->at ($x, $y);#d#
		66	# warn "FOO$m { ".scalar ($m->at ($x, $y))." }\n";
		67	# return 0;
		68
		69	scalar grep $_->type == cf::SAVEBED, $m->at ($x, $y)
		70	}
		71
		72	sub enter_map {
		73	my ($pl) = @_;
		74
		75	my $ob = $pl->ob;
		76
		77	my ($map, $x, $y)
		78	= $ob->{_link_pos}
		79	? @{delete $ob->{_link_pos}}
		80	: ($pl->maplevel, $ob->x, $ob->y);
		81
		82	$ob->enter_link;
		83
		84	my $m = cf::map::find $map;
		85	my $time = delete $pl->{unclean_save};
		86
		87	if ($time && $m) {
		88	if ($time < $m->{instantiate_time}) {
		89	# the map was reset in the meantime
		90	my $age = $cf::RUNTIME - $time;
		91
		92	cf::info $ob->name, " map reset after logout, logout age $age (>= $MAX_DISCONNECT_TIME)\n";#d#
		93
		94	if ($age >= $MAX_DISCONNECT_TIME) {
		95	$ob->message (
		96	"You didn't use a bed to reality to leave this realm, leaving your body in great danger. "
		97	. "Unfortunately, nobody was near to help you when the monsters arrived to eat you. "
		98	. "Maybe you can find comfort in the thought that your body was quite satisfying in taste... "
		99	. "H<You disconnected too long without having used a savebed.>",
		100	cf::NDI_RED
		101	);
		102	# kill them.
		103	# reminds me of the famous badness 10000 syndrome...
		104	$ob->stats->hp (-10000); #] if they survive this they deserved to live
		105	my $killer = cf::arch::get "killer_login"; $pl->killer ($killer); $killer->destroy;
		106	} else {
		107	($map, $x, $y) = $pl->savebed;
		108
		109	$ob->message (
		110	"You didn't use a bed to reality to leave this realm, leaving your body in great danger. "
		111	. "Fortunately, some friendly dwellers found you, checked your passport, and brought you to safety. "
		112	. "Better use a savebed next time, much worse things could have happened... "
		113	. "H<You disconnected without having used a savebed. When you do that for too long, you might die.>",
		114	cf::NDI_RED
		115	);
		116	}
		117	} else {
		118	$ob->message (
		119	"You didn't use a bed to reality to leave this realm. This is very dangerous, "
		120	. "as lots of things could happen when you leave by other means, such as cave-ins, "
		121	. "or monsters suddenly snapping your body. Better use a savebed next time. "
		122	. "H<Always apply a bed of reality to disconnect from the server.>",
		123	cf::NDI_RED
		124	);
		125	}
		126	}
		127
		128	$ob->goto ($map, $x, $y);
		129	}
		130
		131	sub encode_password($) {
		132	# crypt $_[0],
		133	# join '',
		134	# ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[(cf::rndm 64), (cf::rndm 64)]
		135	"!" . unpack "H*", $_[0]
		136	}
		137
		138	sub compare_password($$) {
		139	my ($pass, $token) = @_;
		140
		141	if ($token =~ /\!(.*)/) {
		142	return $pass eq pack "H*", $1;
		143	} else {
		144	return $token eq crypt $pass, $token;
		145	}
		146	}
		147
		148	# delete a player directory
56	sub nuke_playerdir {	149	sub nuke_playerdir {
57	my ($user) = @_;	150	my ($user) = @_;
58		151
		152	my $lock = cf::lock_acquire "ext::login::nuke_playerdir";
		153
		154	my $temp = "$PLAYERDIR/~$Coro::current~deleting~";
59	aio_stat "$PLAYERDIR/$user";	155	aio_rename "$PLAYERDIR/$user", $temp;
60	system "cd \Q$PLAYERDIR\E "	156	IO::AIO::aio_rmtree $temp;
61	. "&& mv \Q$user\E ~\Q$Coro::current\E~deleting~ 2>/dev/null "
62	. "&& (rm -rf ~\Q$Coro::current\E~deleting~ &)";
63	}	157	}
64		158
65	sub on_addme {	159	cf::client->attach (on_addme => sub {
66	my ($ns) = @_;	160	my ($ns) = @_;
67		161
68	$ns->destroy if $ns->pl;	162	$ns->pl and return $ns->destroy;
69		163
70	$ns->coro (sub {	164	$ns->async (sub {
		165	$Coro::current->{desc} = "addme init";
		166
71	my ($user, $pass);	167	my ($user, $pass);
72		168
73	$ns->send_packet ("addme_success");	169	$ns->send_packet ("addme_success");
74		170
75	for (;;) {	171	for (;;) {
80	cf::NDI_BLUE	176	cf::NDI_BLUE
81	);	177	);
82		178
83	# read username	179	# read username
84	while () {	180	while () {
85	$user = query $ns, 0, "What is your name?\n:";	181	$user = query $ns, 0, "What is your name? (login names are case-sensitive)\n:";
86	last if $user =~ /^[a-zA-Z0-9][a-zA-Z0-9\-_]{2,17}$/;	182
		183	if ($cf::LOGIN_LOCK{$user}) {
87	$ns->send_drawinfo (	184	$ns->send_drawinfo (
		185	"That username is currently used in another login session. "
		186	. "Chose another, or wait till the other session has ended.",
		187	cf::NDI_RED
		188	);
		189	} elsif ($user =~ /^[a-zA-Z0-9][a-zA-Z0-9\-_]{2,19}\z/) {
		190	last;
		191	} else {
		192	$ns->send_drawinfo (
88	"Your username contains illegal characters "	193	"Your username contains illegal characters "
89	. "(only a-z, A-Z and 0-9 are allowed), "	194	. "(only a-z, A-Z and 0-9 are allowed), "
90	. "or is not between 3 and 18 characters in length.",	195	. "or is not between 3 and 20 characters in length.",
91	cf::NDI_RED	196	cf::NDI_RED
92	);	197	);
		198	}
		199	Coro::Timer::sleep 0.4;
93	}	200	}
94		201
95	check_playing $ns, $user and next;	202	check_playing $ns, $user and next;
		203
		204	$Coro::current->{desc} = "addme($user) pass";
96		205
97	$ns->send_drawinfo (	206	$ns->send_drawinfo (
98	"Welcome $user, please enter your password now. "	207	"Welcome $user, please enter your password now. "
99	. "New users should now choose a password. "	208	. "New users should now choose a password. "
100	. "Anything your client lets you enter is fine.",	209	. "Anything your client lets you enter is fine.",
…		…
108	$ns->send_drawinfo (	217	$ns->send_drawinfo (
109	"Try to use at least three characters as your password please, "	218	"Try to use at least three characters as your password please, "
110	. "that cannot be too much to ask for :)",	219	. "that cannot be too much to ask for :)",
111	cf::NDI_RED	220	cf::NDI_RED
112	);	221	);
		222	Coro::Timer::sleep 0.4;
		223	}
		224
		225	# lock this username for the remainder of this login session
		226	if ($cf::LOGIN_LOCK{$user}) {
		227	$ns->send_drawinfo (
		228	"That username is currently used in another login session. "
		229	. "Chose another, or wait till the other session has ended.",
		230	cf::NDI_RED
113	}	231	);
		232	next;
		233	}
		234	local $cf::LOGIN_LOCK{$user} = 1;
114		235
115	check_playing $ns, $user and next;	236	check_playing $ns, $user and next;
116		237
117	my $dir = "$PLAYERDIR/$user";	238	$Coro::current->{desc} = "addme($user) check";
118	my $plfile = "$dir/$user.pl";
119		239
120	# try to read the user file and check the password	240	# try to read the user file and check the password
121	if (my $fh = aio_open $plfile, O_RDONLY, 0) {	241	if (my $pl = cf::player::find $user) {
		242	aio_stat $pl->path and next;
122	my $mtime = (stat $fh)[9];	243	my $mtime = (stat _)[9];
		244	my $token = $pl->password;
123		245
124	0 < aio_read $fh, 0, 16384, my $buf, 0 or next;	246	if ($cf::CFG{ext_login_nocheck} or compare_password $pass, $token) {
125	$buf =~ /^password (\S+)$/m or next;	247	$pl->password (encode_password $pass); # make sure we store the new encoding #d#
126	my $hash = $1;	248	nuke_str $pass;
127
128	check_playing $ns, $user and next;
129
130	if ($hash eq crypt $pass, $hash) {
131	# password matches, wonderful	249	# password matches, wonderful
132	my $pl = cf::player::load $plfile or next;	250	my $pl = cf::player::find $user or next;
133	$pl->enable_save (1);
134	$pl->connect ($ns);	251	$pl->connect ($ns);
		252	enter_map $pl;
135	last;	253	last;
136	}
137
138	if (can_cleanup $buf, $mtime) {	254	} elsif (can_cleanup $pl, $mtime) {
139	Coro::Timer::sleep 1;	255	Coro::Timer::sleep 1;
140		256
141	$ns->send_drawinfo (	257	$ns->send_drawinfo (
142	"Player exists, but password does not match. If this is you account, "	258	"Player exists, but password does not match. If this is your account, "
143	. "please try again. If not, you can now opt to take over this account "	259	. "please try again. If not, you can now decide to take over this account "
144	. "because it has not been in-use for some time.",	260	. "because it has not been in-use for some time.",
145	cf::NDI_RED	261	cf::NDI_RED
146	);	262	);
147		263
		264	#TODO: nuke_str
148	(query $ns, cf::CS_QUERY_SINGLECHAR, "Delete existing account and create a new one (Y/N)?") =~ /^[yY]/	265	(query $ns, cf::CS_QUERY_SINGLECHAR, "Delete existing account and create a new one (Y/N)?") =~ /^[yY]/
149	or next;	266	or next;
150		267
151	# check if the file hasn't changed	268	# check if the file hasn't changed
152	aio_stat $plfile or next;	269	aio_stat cf::player::path $user and next;
153	$mtime == (stat _)[9] or next;	270	$mtime == (stat _)[9] or next;
154		271
155	# nuke playerdir, this might block, but it needs to be atomic	272	$pl->quit_character;
156	nuke_playerdir $user;
157		273
158	# fall through to creation	274	# fall through to creation
159	} else {	275	} else {
		276	nuke_str $pass;
		277
160	Coro::Timer::sleep 1;	278	Coro::Timer::sleep 1;
161		279
162	$ns->send_drawinfo (	280	$ns->send_drawinfo (
163	"Wrong username or password. Please try again "	281	"Wrong username or password. Please try again "
164	. "(check for Numlock and other semi-obvious error sources).",	282	. "(check for Numlock and other semi-obvious error sources).",
165	cf::NDI_RED	283	cf::NDI_RED
166	);	284	);
167	next;	285	next;
168	}	286	}
		287	} else {
		288	# unable to load the playerfile:
		289	# check wether the player dir exists, which means the file is corrupted or
		290	# something very similar.
		291	if (!aio_stat cf::player::playerdir $user) {
		292	$ns->send_drawinfo (
		293	"Unable to retrieve this player. It might be a locked or broken account. "
		294	. "If this is your account, ask a dungeon master for assistance. "
		295	. "Otherwise choose a different login name.",
		296	cf::NDI_RED
		297	);
		298	next;
		299	}
169	}	300	}
170		301
171	# the rest of this function is character creation	302	# the rest of this function is character creation
172	check_playing $ns, $user and next;	303	$Coro::current->{desc} = "addme($user) chargen";
173		304
		305	# just to make sure nothing is left over
		306	# normally, nothing is there.
174	nuke_playerdir $user;	307	nuke_playerdir $user;
175		308
		309	my $pass2 = query $ns, cf::CS_QUERY_HIDEINPUT, "Please type your password again.";
		310
		311	if ($pass2 ne $pass) {
		312	nuke_str $pass;
		313	nuke_str $pass2;
		314	$ns->send_drawinfo (
		315	"The passwords do not match, please try again.",
		316	cf::NDI_RED
		317	);
		318	Coro::Timer::sleep 0.5;
		319	next;
		320	}
		321
		322	nuke_str $pass2;
		323
176	my $pl = cf::player::create;	324	my $pl = cf::player::new $user;
177	$pl->ob->name ($user);	325	$pl->password (encode_password $pass);
178	$pl->password (crypt $pass, join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]);	326	nuke_str $pass;
179	$pl->connect ($ns);	327	$pl->connect ($ns);
180	my $ob = $pl->ob;	328	my $ob = $pl->ob;
		329
		330	$ob->goto ($pl->maplevel, $ob->x, $ob->y);
181		331
182	while () {	332	while () {
183	$ob->update_stats;	333	$ob->update_stats;
184	$pl->save_stats;	334	$pl->save_stats;
185		335
…		…
195	$ob->swap_stats ($res - 1, $swap - 1);	345	$ob->swap_stats ($res - 1, $swap - 1);
196	}	346	}
197	} else {	347	} else {
198	$ob->roll_stats;	348	$ob->roll_stats;
199	}	349	}
		350
		351	Coro::Timer::sleep 0.05;
200	}	352	}
201		353
202	$ob->set_animation (2);	354	$ob->set_animation (2);
203	$ob->add_statbonus;	355	$ob->add_statbonus;
204		356
205	$ns->send_drawinfo ($ob->msg, cf::NDI_BLUE);	357	while () {
206	$ns->send_packet (sprintf "query %d %s", cf::CS_QUERY_SINGLECHAR,	358	$ns->send_msg ("chargen-race-title", ucfirst $pl->title, -1);
		359	my $msg = $ob->msg;
		360	$msg =~ s/(?<=\S)\n(?=\S)/ /g;
		361	$ns->send_msg ("chargen-race-description", $msg, cf::NDI_BLUE);
		362
		363	my $res = query $ns, cf::CS_QUERY_SINGLECHAR,
207	"Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n");	364	"Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n";
208		365
209	$ns->state (cf::ST_CHANGE_CLASS);	366	last if $res =~ /[dD]/;
		367
		368	$pl->chargen_race_next;
		369	Coro::Timer::sleep 0.05;
		370	}
		371
		372	# create the playerdir, if necessary, as chargen_race_done did it before
		373	# presumably because of unique maps
		374	aio_mkdir playerdir $pl, 0770;
		375	$pl->chargen_race_done;
		376
		377	while () {
		378	my $res = query $ns, cf::CS_QUERY_SINGLECHAR,
		379	"Now choose a gender.\nPress 'f' to become female, and 'm' to become male.\n";
		380
		381	if ($res =~ /^[fF]/) {
		382	$pl->gender (1);
		383	last;
		384	} elsif ($res =~ /^[mM]/) {
		385	$pl->gender (0);
		386	last;
		387	}
		388	Coro::Timer::sleep 0.05;
		389	}
		390
		391	$ob->reply (undef, "Welcome to Deliantra!");
		392
		393	# XXX: Workaround for delayed client ext protocol handshake
		394	$pl->esrv_new_player;
		395
		396	delete $pl->{deny_save};
210		397
211	last;	398	last;
212	}	399	}
		400
		401	if (0 < Coro::AIO::aio_load "$cf::CONFDIR/motd", my $motd) {
		402	$ns->send_msg ("c/motd" => $motd, cf::NDI_CLEAR);
		403	}
213	});	404	});
214	}	405	});
		406
		407	cf::register_command password => sub {
		408	my ($pl, $arg) = @_;
		409
		410	unless ($pl->flag (cf::FLAG_WIZ)) {
		411	$pl->message (
		412	"The password can currently only changed by a DM.",
		413	cf::NDI_UNIQUE \| cf::NDI_REPLY);
		414	return;
		415	}
		416
		417	my (@args) = split /\s+/, $arg;
		418	my ($player, $new_pw) = @args;
		419
		420	if ($pl->flag (cf::FLAG_WIZ) && $player eq '') {
		421	$pl->message (
		422	"Usage: password <player> [<new password>]",
		423	cf::NDI_UNIQUE \| cf::NDI_REPLY);
		424	return;
		425	}
		426
		427	if ($new_pw eq '') {
		428	$new_pw =
		429	join '',
		430	map { ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[(cf::rndm 64)] }
		431	1..9;
		432	}
		433
		434	cf::async {
		435	my $plc = cf::player::find $player;
		436	if ($plc) {
		437	$plc->password (encode_password $new_pw);
		438	$pl->message (
		439	"Ok, changed password of '$player' to '$new_pw'!",
		440	cf::NDI_UNIQUE \| cf::NDI_RED \| cf::NDI_REPLY);
		441	} else {
		442	$pl->message (
		443	"Fail! Couldn't set password for '$player', "
		444	. "he doesn't seem to exist!",
		445	cf::NDI_UNIQUE \| cf::NDI_RED \| cf::NDI_REPLY);
		446	}
		447	};
		448	};
		449
		450	cf::register_command quit => sub {
		451	my ($ob, $arg) = @_;
		452
		453	$ob->send_msg (undef,
		454	"Quitting will delete your character PERMANENTLY: It will be gone forever and any progress will be lost. "
		455	. "If you are sure you want to do this, then use the quit_character command instead of quit.",
		456	cf::NDI_UNIQUE \| cf::NDI_RED \| cf::NDI_REPLY);
		457	};
		458
		459	cf::register_command quit_character => sub {
		460	my ($ob, $arg) = @_;
		461
		462	my $pl = $ob->contr;
		463
		464	$pl->ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to PERMANENTLY delete your character and all associated data (y/n)?", sub {
		465	if ($_[0] !~ /^[yY]/) {
		466	$ob->send_msg (undef, "Ok, not not quitting then.", cf::NDI_UNIQUE \| cf::NDI_RED \| cf::NDI_REPLY);
		467	} else {
		468	$ob->send_msg (undef, "Ok, quitting, hope to see you again.", cf::NDI_UNIQUE \| cf::NDI_RED \| cf::NDI_REPLY);
		469	cf::async {
		470	$pl->quit_character;
		471	};
		472	}
		473	});
		474	};
215		475
216	cf::object->attach (	476	cf::object->attach (
217	type => cf::SAVEBED,	477	type => cf::SAVEBED,
218	on_apply => sub {	478	on_apply => sub {
219	my ($bed, $ob) = @_;	479	my ($bed, $ob) = @_;
220		480
221	return cf::override 0 unless $ob->type == cf::PLAYER;	481	return cf::override 0 unless $ob->type == cf::PLAYER;
222		482
223	my $ns = $ob->contr->ns;	483	my $pl = $ob->contr;
224		484
225	# update respawn position	485	# update respawn position
226	$ob->contr->savebed ($bed->map->path, $bed->x, $bed->y);	486	$pl->savebed ($bed->map->path, $bed->x, $bed->y);
227		487
228	#TODO?	488	cf::async {
229	#strcpy (pl->contr->killer, "left");	489	my $killer = cf::arch::get "killer_logout"; $pl->killer ($killer); $killer->destroy;
230	#check_score (pl); /* Always check score */	490	ext::highscore::check $ob;
231		491
232	$ob->reply (undef, "In the future, you will wake up here when you die.");	492	$pl->save;
233	$ob->contr->save ();
234		493
		494	$ob->send_msg ($cf::SAY_CHANNEL => "In the future, you will wake up here when you die.", cf::NDI_DEF \| cf::NDI_REPLY);
		495
235	$ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to continue playing (y/n)?", sub {	496	$pl->ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to continue playing (y/n)?", sub {
236	if ($_[0] !~ /^[yY]/) {	497	if ($_[0] !~ /^[yY]/) {
237	$ob->contr->save (1);	498	$pl->invoke (cf::EVENT_PLAYER_LOGOUT, 1);
		499	$pl->deactivate;
238	$ns->destroy ();	500	$pl->ns->destroy;
239	}	501	}
		502	});
240	});	503	};
241	},	504	},
242	);	505	);
243		506
244	cf::client->attach (package => __PACKAGE__);	507	cf::player->attach (
		508	on_login => sub {
		509	my ($pl) = @_;
		510	my $name = $pl->ob->name;
245		511
		512	$_->ob->message ("$name has entered the game.", cf::NDI_DK_ORANGE \| cf::NDI_UNIQUE) for cf::player::list;
		513	},
		514	on_logout => sub {
		515	my ($pl, $cleanly) = @_;
		516	my $name = $pl->ob->name;
		517
		518	if ($cleanly) {
		519	$_->ob->message ("$name left the game.", cf::NDI_DK_ORANGE \| cf::NDI_UNIQUE) for cf::player::list;
		520	} else {
		521	$_->ob->message ("$name uncerimoniously disconnected.", cf::NDI_DK_ORANGE \| cf::NDI_UNIQUE) for cf::player::list;
		522	$pl->{unclean_save} = $cf::RUNTIME
		523	unless safe_spot $pl;
		524	}
		525	},
		526	);
		527

Diff Legend

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

Comparing deliantra/server/ext/login.ext (file contents): Revision 1.1 by root, Fri Dec 22 16:34:00 2006 UTC vs. Revision 1.112 by elmex, Mon May 10 15:54:40 2010 UTC

Diff Legend

Comparing deliantra/server/ext/login.ext (file contents):
Revision 1.1 by root, Fri Dec 22 16:34:00 2006 UTC vs.
Revision 1.112 by elmex, Mon May 10 15:54:40 2010 UTC