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

Comparing deliantra/server/ext/cfplus.ext (file contents):
Revision 1.1 by root, Fri Dec 15 19:29:18 2006 UTC vs.
Revision 1.4 by root, Mon Apr 2 18:04:45 2007 UTC

 cf::register_extcmd cfplus_support => sub {
    my ($pl, $msg) = @_;
    # $msg->{version}
+   (
-   (version => 2)
+      version => 2,
+   )
 };
 my %dialog; # currently active dialogs
 my $timer = Event->timer (interval => 0.2, parked => 1, data => cf::WF_AUTOCANCEL, cb => sub {
 =cut
 cf::register_extcmd lookat => sub {
    my ($pl, $msg) = @_;
    my ($dx, $dy) = @$msg{qw(dx dy)};
+   return unless $pl->ob && $pl->ob->map;
    my $near = (abs $dx) <= 2 && (abs $dy) <= 2;
    my %res;
 cf::register_extcmd npc_dialog_begin => sub {
    my ($pl, $msg) = @_;
    my ($id, $dx, $dy) = @$msg{qw(msgid dx dy)};
+   return unless $pl->ob && $pl->ob->map;
    return unless (abs $dx) <= 2 && (abs $dy) <= 2;
    return unless $pl->cell_visible ($dx, $dy);
    for my $npc ($pl->ob->map->at ($pl->ob->x + $dx, $pl->ob->y + $dy)) {
       if (NPC_Dialogue::has_dialogue $npc) {
    delete $dialog{$msg->{msgid}};
    ()
 };
-cf::attach_to_players
+cf::player->attach (
    on_logout => sub {
       my ($pl) = @_;
       delete $dialog{$_} for grep $pl->ob == $dialog{$_}{ob}, keys %dialog;
    },
-;
+);
 =item ... = extcmd editor_support
 Returns the value required by clients that have an editor to download and
 upload maps from/to the server.

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