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.78 by root, Mon Jan 7 01:55:19 2008 UTC vs.
Revision 1.82 by root, Sun Apr 6 17:08:51 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;
59 61
62 my $m = $ob->map
63 or return;
64 my $x = $ob->x;
65 my $y = $ob->y;
66
60 return 0; 67# return 0;#d#
61 warn join ":", $m->at ($x, $y);#d# 68# warn join ":", $m->at ($x, $y);#d#
62 warn "FOO$m { ".scalar ($m->at ($x, $y))." }\n"; 69# warn "FOO$m { ".scalar ($m->at ($x, $y))." }\n";
63 return 0; 70# return 0;
64 71
65 scalar grep $_->type == cf::SAVEBED, $m->at ($x, $y) 72 scalar grep $_->type == cf::SAVEBED, $m->at ($x, $y)
66} 73}
67 74
68sub enter_map { 75sub enter_map {
… …
78 $ob->enter_link; 85 $ob->enter_link;
79 86
80 my $m = cf::map::find $map; 87 my $m = cf::map::find $map;
81 my $time = delete $pl->{unclean_save}; 88 my $time = delete $pl->{unclean_save};
82 89
83 if ($time && $m && !safe_spot $m, $x, $y) { 90 if ($time && $m) {
84 if ($time < $m->{instantiate_time}) { 91 if ($time < $m->{instantiate_time}) {
85 # the map was reset in the meantime 92 # the map was reset in the meantime
86 my $age = $cf::RUNTIME - $time; 93 my $age = $cf::RUNTIME - $time;
87 94
88 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#
89
90 ($map, $x, $y) = $pl->savebed;
91 96
92 if ($age >= $MAX_DISCONNECT_TIME) { 97 if ($age >= $MAX_DISCONNECT_TIME) {
93 $ob->message ( 98 $ob->message (
94 "You didn't use a bed to reality to leave this realm, leaving your body in great danger. " 99 "You didn't use a bed to reality to leave this realm, leaving your body in great danger. "
95 . "Unfortunately, nobody was near to help you when the monsters arrived to eat you. " 100 . "Unfortunately, nobody was near to help you when the monsters arrived to eat you. "
… …
100 # kill them. 105 # kill them.
101 # reminds me of the famous badness 10000 syndrome... 106 # reminds me of the famous badness 10000 syndrome...
102 $ob->stats->hp (-10000); #] if they survive this they deserved to live 107 $ob->stats->hp (-10000); #] if they survive this they deserved to live
103 $pl->killer ("a cave-in"); 108 $pl->killer ("a cave-in");
104 } else { 109 } else {
110 ($map, $x, $y) = $pl->savebed;
111
105 $ob->message ( 112 $ob->message (
106 "You didn't use a bed to reality to leave this realm, leaving your body in great danger. " 113 "You didn't use a bed to reality to leave this realm, leaving your body in great danger. "
107 . "Fortunately, some friendly dwellers found you, checked your passport, and brought you to safety. " 114 . "Fortunately, some friendly dwellers found you, checked your passport, and brought you to safety. "
108 . "Better use a savebed next time, much worse things could have happened... " 115 . "Better use a savebed next time, much worse things could have happened... "
109 . "H<You disconnected without having used a savebed. When you do that for too long, you might die.>", 116 . "H<You disconnected without having used a savebed. When you do that for too long, you might die.>",
… …
151*** or it has been disabled. Face caching is mandatory 158*** or it has been disabled. Face caching is mandatory
152*** so please enable it or use a newer client. 159*** so please enable it or use a newer client.
153*** 160***
154*** Look at your client preferences: 161*** Look at your client preferences:
155*** 162***
156*** CFPlus: all known versions automatically enable the facecache. 163*** deliantra: all known versions automatically enable the facecache.
157*** cfclient: use the -cache commandline option. 164*** cfclient: use the -cache commandline option.
158*** cfclient: map will not redraw automatically (bug). 165*** cfclient: map will not redraw automatically (bug).
159*** gcfclient: use -cache commandline option, or enable 166*** gcfclient: use -cache commandline option, or enable
160*** gcfclient: Client => Configure => Map & Image => Cache Images. 167*** gcfclient: Client => Configure => Map & Image => Cache Images.
161*** jcrossclient: your client is broken, use CFPlus or gcfclient. 168*** jcrossclient: your client is broken, use deliantra or gcfclient.
162*** 169***
163*** 170***
164EOF 171EOF
165 if ($ns->version =~ /jcrossclient/) { 172 if ($ns->version =~ /jcrossclient/) {
166 # let them, for now 173 # let them, for now
… …
490 497
491 if ($cleanly) { 498 if ($cleanly) {
492 $_->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;
493 } else { 500 } else {
494 $_->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;
495 $pl->{unclean_save} = $cf::RUNTIME; 502 $pl->{unclean_save} = $cf::RUNTIME
503 unless safe_spot $pl;
496 } 504 }
497 }, 505 },
498); 506);
499 507
500############################################################################# 508#############################################################################
… …
547 } 555 }
548 } 556 }
549 } 557 }
550 }; 558 };
551 warn $@ if $@; 559 warn $@ if $@;
552 Coro::cede; 560 cf::cede_to_tick;
553 }; 561 };
554 } 562 }
555}; 563};
556 564
557$SCHEDULER->prio (1); 565$SCHEDULER->prio (1);

Diff Legend

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