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.79 by root, Sun Jan 13 09:19:56 2008 UTC vs.
Revision 1.87 by root, Wed May 28 05:12:01 2008 UTC

… …
92 # the map was reset in the meantime 92 # the map was reset in the meantime
93 my $age = $cf::RUNTIME - $time; 93 my $age = $cf::RUNTIME - $time;
94 94
95 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#
96 96
97 ($map, $x, $y) = $pl->savebed;
98
99 if ($age >= $MAX_DISCONNECT_TIME) { 97 if ($age >= $MAX_DISCONNECT_TIME) {
100 $ob->message ( 98 $ob->message (
101 "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. "
102 . "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. "
103 . "Maybe you can find comfort in the thought that your body was quite satisfying in taste... " 101 . "Maybe you can find comfort in the thought that your body was quite satisfying in taste... "
… …
105 cf::NDI_RED 103 cf::NDI_RED
106 ); 104 );
107 # kill them. 105 # kill them.
108 # reminds me of the famous badness 10000 syndrome... 106 # reminds me of the famous badness 10000 syndrome...
109 $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
110 $pl->killer ("a cave-in"); 108 my $killer = cf::arch::get "killer_login"; $pl->killer ($killer); $killer->destroy;
111 } else { 109 } else {
110 ($map, $x, $y) = $pl->savebed;
111
112 $ob->message ( 112 $ob->message (
113 "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. "
114 . "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. "
115 . "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... "
116 . "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.>",
… …
377 } 377 }
378 } else { 378 } else {
379 $ob->roll_stats; 379 $ob->roll_stats;
380 } 380 }
381 381
382 Coro::Timer::sleep 0.2; 382 Coro::Timer::sleep 0.05;
383 } 383 }
384 384
385 $ob->set_animation (2); 385 $ob->set_animation (2);
386 $ob->add_statbonus; 386 $ob->add_statbonus;
387 387
… …
398 398
399 $pl->chargen_race_next; 399 $pl->chargen_race_next;
400 Coro::Timer::sleep 0.2; 400 Coro::Timer::sleep 0.2;
401 } 401 }
402 402
403 # create the playerdir, if necessary, as chargen_race_done did it before
404 # presumably because of unique maps
405 aio_mkdir playerdir $pl, 0770;
403 $pl->chargen_race_done; 406 $pl->chargen_race_done;
404 407
405 while () { 408 while () {
406 my $res = query $ns, cf::CS_QUERY_SINGLECHAR, 409 my $res = query $ns, cf::CS_QUERY_SINGLECHAR,
407 "Now choose a gender.\nPress 'f' to become female, and 'm' to become male.\n"; 410 "Now choose a gender.\nPress 'f' to become female, and 'm' to become male.\n";
… …
465 468
466 # update respawn position 469 # update respawn position
467 $pl->savebed ($bed->map->path, $bed->x, $bed->y); 470 $pl->savebed ($bed->map->path, $bed->x, $bed->y);
468 cf::async { $pl->save }; 471 cf::async { $pl->save };
469 472
470 $pl->killer ("left"); 473 my $killer = cf::arch::get "killer_logout"; $pl->killer ($killer); $killer->destroy;
471 $ob->check_score; 474 $ob->check_score;
472 475
473 $ob->reply (undef, "In the future, you will wake up here when you die."); 476 $ob->reply (undef, "In the future, you will wake up here when you die.");
474 477
475 $pl->ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to continue playing (y/n)?", sub { 478 $pl->ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to continue playing (y/n)?", sub {
… …
497 500
498 if ($cleanly) { 501 if ($cleanly) {
499 $_->ob->message ("$name left the game.", cf::NDI_DK_ORANGE | cf::NDI_UNIQUE) for cf::player::list; 502 $_->ob->message ("$name left the game.", cf::NDI_DK_ORANGE | cf::NDI_UNIQUE) for cf::player::list;
500 } else { 503 } else {
501 $_->ob->message ("$name uncerimoniously disconnected.", cf::NDI_DK_ORANGE | cf::NDI_UNIQUE) for cf::player::list; 504 $_->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#
503 $pl->{unclean_save} = $cf::RUNTIME 505 $pl->{unclean_save} = $cf::RUNTIME
504 unless safe_spot $pl; 506 unless safe_spot $pl;
505 } 507 }
506 }, 508 },
507); 509);
… …
550 $pl->destroy; # destroys $ob 552 $pl->destroy; # destroys $ob
551 } else { 553 } else {
552 my $a_ = $pl->refcnt;#d# 554 my $a_ = $pl->refcnt;#d#
553 my $b_ = $ob->refcnt;#d# 555 my $b_ = $ob->refcnt;#d#
554 556
555 warn "player-scheduler refcnt ", $ob->name, " pl $pl_ref ob $ob_ref (C pl $a_ ob $b_)\n";#d# 557 warn "player-scheduler refcnt ", $ob->name, " pl $pl_ref/3 ob $ob_ref/3 (C pl $a_/1 ob $b_/2)\n";#d#
556 } 558 }
557 } 559 }
558 } 560 }
559 }; 561 };
560 warn $@ if $@; 562 warn $@ if $@;
561 Coro::cede; 563 cf::cede_to_tick;
562 }; 564 };
563 } 565 }
564}; 566};
565 567
566$SCHEDULER->prio (1); 568$SCHEDULER->prio (1);

Diff Legend

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