--- deliantra/server/ext/login.ext 2008/05/28 05:12:01 1.87 +++ deliantra/server/ext/login.ext 2008/08/17 22:46:26 1.88 @@ -75,6 +75,7 @@ sub enter_map { my ($pl) = @_; + warn $pl->ob->name, ": enter map 1\n";#d# my $ob = $pl->ob; my ($map, $x, $y) @@ -82,10 +83,13 @@ ? @{delete $ob->{_link_pos}} : ($pl->maplevel, $ob->x, $ob->y); + warn $pl->ob->name, ": enter map 2\n";#d# $ob->enter_link; + warn $pl->ob->name, ": enter map 3\n";#d# my $m = cf::map::find $map; my $time = delete $pl->{unclean_save}; + warn $pl->ob->name, ": enter map 4\n";#d# if ($time && $m) { if ($time < $m->{instantiate_time}) { @@ -128,7 +132,16 @@ } } - $ob->goto ($map, $x, $y); + warn $pl->ob->name, ": enter map 5\n";#d# + #$ob->goto ($map, $x, $y); + $ob->goto ($map, $x, $y, sub { + warn $pl->ob->name, ": enter map check\n";#d# + $_[0] + }, sub { + warn $pl->ob->name, ": enter map done\n";#d# + }); + warn $pl->ob->name, ": enter map 6\n";#d# + } # delete a player directory, be non-blocking AND synchronous...