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

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

Diff Legend

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

Comparing deliantra/server/ext/login.ext (file contents): Revision 1.10 by root, Fri Jan 5 20:04:02 2007 UTC vs. Revision 1.115 by root, Sun Jan 23 23:37:55 2011 UTC

Diff Legend

Comparing deliantra/server/ext/login.ext (file contents):
Revision 1.10 by root, Fri Jan 5 20:04:02 2007 UTC vs.
Revision 1.115 by root, Sun Jan 23 23:37:55 2011 UTC