ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/login.ext
(Generate patch)

Comparing deliantra/server/ext/login.ext (file contents):
Revision 1.77 by root, Fri Dec 28 19:44:34 2007 UTC vs.
Revision 1.79 by root, Sun Jan 13 09:19:56 2008 UTC

… …
52 ); 52 );
53 53
54 1 54 1
55} 55}
56 56
57sub safe_spot($$$) { 57sub safe_spot($) {
58 my ($m, $x, $y) = @_; 58 my ($pl) = @_;
59
60 my $ob = $pl->ob;
61
62 my $m = $ob->map
63 or return;
64 my $x = $ob->x;
65 my $y = $ob->y;
66
67# return 0;#d#
68# warn join ":", $m->at ($x, $y);#d#
69# warn "FOO$m { ".scalar ($m->at ($x, $y))." }\n";
70# return 0;
59 71
60 scalar grep $_->type == cf::SAVEBED, $m->at ($x, $y) 72 scalar grep $_->type == cf::SAVEBED, $m->at ($x, $y)
61} 73}
62 74
63sub enter_map { 75sub enter_map {
… …
73 $ob->enter_link; 85 $ob->enter_link;
74 86
75 my $m = cf::map::find $map; 87 my $m = cf::map::find $map;
76 my $time = delete $pl->{unclean_save}; 88 my $time = delete $pl->{unclean_save};
77 89
78 if ($time && $m && !safe_spot $m, $x, $y) { 90 if ($time && $m) {
79 if ($time < $m->{instantiate_time}) { 91 if ($time < $m->{instantiate_time}) {
80 # the map was reset in the meantime 92 # the map was reset in the meantime
81 my $age = $cf::RUNTIME - $time; 93 my $age = $cf::RUNTIME - $time;
82 94
83 warn $ob->name, " map reset after logout, logout age $age (>= $MAX_DISCONNECT_TIME)\n";#d# 95 warn $ob->name, " map reset after logout, logout age $age (>= $MAX_DISCONNECT_TIME)\n";#d#
… …
146*** or it has been disabled. Face caching is mandatory 158*** or it has been disabled. Face caching is mandatory
147*** so please enable it or use a newer client. 159*** so please enable it or use a newer client.
148*** 160***
149*** Look at your client preferences: 161*** Look at your client preferences:
150*** 162***
151*** CFPlus: all known versions automatically enable the facecache. 163*** deliantra: all known versions automatically enable the facecache.
152*** cfclient: use the -cache commandline option. 164*** cfclient: use the -cache commandline option.
153*** cfclient: map will not redraw automatically (bug). 165*** cfclient: map will not redraw automatically (bug).
154*** gcfclient: use -cache commandline option, or enable 166*** gcfclient: use -cache commandline option, or enable
155*** gcfclient: Client => Configure => Map & Image => Cache Images. 167*** gcfclient: Client => Configure => Map & Image => Cache Images.
156*** jcrossclient: your client is broken, use CFPlus or gcfclient. 168*** jcrossclient: your client is broken, use deliantra or gcfclient.
157*** 169***
158*** 170***
159EOF 171EOF
160 if ($ns->version =~ /jcrossclient/) { 172 if ($ns->version =~ /jcrossclient/) {
161 # let them, for now 173 # let them, for now
… …
485 497
486 if ($cleanly) { 498 if ($cleanly) {
487 $_->ob->message ("$name left the game.", cf::NDI_DK_ORANGE | cf::NDI_UNIQUE) for cf::player::list; 499 $_->ob->message ("$name left the game.", cf::NDI_DK_ORANGE | cf::NDI_UNIQUE) for cf::player::list;
488 } else { 500 } else {
489 $_->ob->message ("$name uncerimoniously disconnected.", cf::NDI_DK_ORANGE | cf::NDI_UNIQUE) for cf::player::list; 501 $_->ob->message ("$name uncerimoniously disconnected.", cf::NDI_DK_ORANGE | cf::NDI_UNIQUE) for cf::player::list;
502 warn "unclean\n" unless safe_spot $pl;#d#
490 $pl->{unclean_save} = $cf::RUNTIME; 503 $pl->{unclean_save} = $cf::RUNTIME
504 unless safe_spot $pl;
491 } 505 }
492 }, 506 },
493); 507);
494 508
495############################################################################# 509#############################################################################

Diff Legend

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