[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.7 by elmex, Tue Jun 19 18:14:36 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 {
-   while (my ($id, $dialog) = each %dialog) {
-      my (undef, $dx, $dy) = $dialog->{ob}->rangevector ($dialog->{npc});
-      next if (abs $dx) <= 2 && (abs $dy) <= 2;
-      $dialog->{ob}->contr->ext_reply ($id => msgtype => "error", msg => "out of range");
-      delete $dialog{$id};
-   }
+   )
-   $_[0]->w->stop unless keys %dialog;
-});
+};
 sub dialog_tell {
    my ($id, $dialog, $msg) = @_;
-   my $pl = $dialog->{ob}->contr;
+   my $pl = $dialog->{pl};
    my ($reply, @kw) = $dialog->tell ($msg);
-   $reply = "..." unless $reply;
+   $reply = "..." unless defined $reply;
+   return if $reply eq ""; # NPC doesn't want to say, or wants to say something later
    $pl->ext_reply ($id => msgtype => "reply", msg => $reply, add_topics => \@kw);
 }
 =item ... = extcmd lookat { dx => $dx, dy => $dy }
 =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;
    if ($pl->cell_visible ($dx, $dy)) {
       for my $ob ($pl->ob->map->at ($pl->ob->x + $dx, $pl->ob->y + $dy)) {
          $res{npc_dialog} = $ob->name
-            if $near && NPC_Dialogue::has_dialogue $ob;
+            if $near && NPC_Dialogue::has_dialogue $ob && !$pl->{npc_dialog};
       }
    }
    %res
 };
 Tries to start a dialogue with the mapspace specified by $dx and $dy (see
 C<extcmd lookat>). The $msgid will be used as a handle for all future
 messages related to this dialog interaction.
 It either replies with an error reply or starts a dialog by telling
-the npc "hi" and returning a reply strcuture as with C<extcmd
+the npc "hi" and returning a reply structure as with C<extcmd
 npc_dialog_tell>.
 =cut
 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);
+   return if $pl->{npc_dialog}; # only one dialog at a time
    for my $npc ($pl->ob->map->at ($pl->ob->x + $dx, $pl->ob->y + $dy)) {
       if (NPC_Dialogue::has_dialogue $npc) {
+         $pl->attach ("npc_dialog_active");
-         $dialog{$id} = new NPC_Dialogue ob => $pl->ob, npc => $npc;
+         $pl->{npc_dialog} = new NPC_Dialogue pl => $pl, npc => $npc, id => $id;
-         dialog_tell $id, $dialog{$id}, "hi";
+         dialog_tell $id, $pl->{npc_dialog}, "hi";
-         $timer->start;
          return;
       }
    }
    (msgtype => "error", msg => "nothing to talk to found")
 =cut
 cf::register_extcmd npc_dialog_tell => sub {
    my ($pl, $msg) = @_;
+   if (my $dialog = $pl->{npc_dialog}) {
-   dialog_tell $msg->{msgid}, $dialog{$msg->{msgid}}, $msg->{msg}
+      dialog_tell $msg->{msgid}, $dialog, $msg->{msg};
-      if $dialog{$msg->{msgid}};
+   }
    ()
 };
 =item extcmd npc_dialog_end { msgid => $id }
 =cut
 cf::register_extcmd npc_dialog_end => sub {
    my ($pl, $msg) = @_;
-   delete $dialog{$msg->{msgid}};
+   if (my $dialog = delete $pl->{npc_dialog}) {
+      $pl->detach ("ncpa_dialog_active");
+   }
    ()
 };
-cf::attach_to_players
-   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.
    map +($_ => $cf::CFG{"editor_$_"}), qw(servertype gameserver testserver cvs_root lib_root builder_ui)
 };
 sub unload {
-   while (my ($id, $dialog) = each %dialog) {
+   for my $pl (cf::player::list) {
+      if (my $dialog = delete $pl->{npc_dialog}) {
+         $pl->detach ("npc_dialog_active");
-      $dialog->{ob}->contr->ext_reply ($id => msgtype => "error", msg => "npc dialogue module was reloaded");
+         $pl->ext_reply ($dialog->{id} => msgtype => "error", msg => "npc dialogue module was reloaded");
+      }
    }
-   %dialog = ();
 }
+cf::player::attachment npc_dialog_active =>
+   on_logout => sub {
+      my ($pl) = @_;
+      delete $pl->{npc_dialog};
+      $pl->detach ("npc_dialog_active");
+   },
+   on_move => sub {
+      my ($pl, $dir) = @_;
+      if (my $dialog = $pl->{npc_dialog}) {
+      warn "on_move<@_>\n";#d#
+      warn $pl->ob;
+      warn $dialog;
+      warn $dialog->{npc};
+      warn $dialog->{npc}->is_valid;
+         my (undef, $dx, $dy) = $pl->ob->rangevector ($dialog->{npc});
+         return if (abs $dx) <= 2 && (abs $dy) <= 2;
+         $pl->ext_reply ($dialog->{id} => msgtype => "error", msg => "out of range");
+      }
+      delete $pl->{npc_dialog};
+      $pl->detach ("npc_dialog_active");
+   },
+;
+cf::player->attach (
+   on_login => sub {
+      my ($pl) = @_;
+      delete $pl->{npc_dialog};
+   },
+);
 =back
 =cut

Diff Legend

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

Comparing deliantra/server/ext/cfplus.ext (file contents): Revision 1.1 by root, Fri Dec 15 19:29:18 2006 UTC vs. Revision 1.7 by elmex, Tue Jun 19 18:14:36 2007 UTC

Diff Legend

Comparing deliantra/server/ext/cfplus.ext (file contents):
Revision 1.1 by root, Fri Dec 15 19:29:18 2006 UTC vs.
Revision 1.7 by elmex, Tue Jun 19 18:14:36 2007 UTC