--- deliantra/server/ext/chat.ext	2007/04/27 21:11:00	1.16
+++ deliantra/server/ext/chat.ext	2007/06/19 17:32:56	1.19
@@ -1,4 +1,4 @@
-#! perl
+#! perl # depends=irc
 #CONVERSION: PARTIAL
 
 # implement a replacement for the built-in say/chat/shout/tell/reply commands
@@ -785,7 +785,7 @@
          # if some listener teleported us somewhere else, stop right here
          last unless $map->path == $pl->map->path;
 
-         my $dialog = new NPC_Dialogue ob => $pl, npc => $npc;
+         my $dialog = new NPC_Dialogue pl => $pl->contr, npc => $npc;
          my ($reply, @kw) = $dialog->tell ($msg);
 
          if (defined $reply) {
@@ -826,7 +826,7 @@
       my $NOW = time;
 
       cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", $name, $msg;
-      ext::schmorp_irc::do_notice (sprintf "[%s] %s", $name, $msg);
+      ext::irc::do_notice (sprintf "[%s] %s", $name, $msg);
 
       $_->ob->message ("$name chats: $msg", cf::NDI_BLUE)
          for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list;
@@ -848,7 +848,7 @@
       my $name = $pl->name;
 
       cf::LOG cf::llevDebug, sprintf "QBERT {%s} %s\n", $name, $msg;
-      ext::schmorp_irc::do_notice (sprintf "\007\0034{%s} %s\n", $name, $msg);
+      ext::irc::do_notice (sprintf "\007\0034{%s} %s\n", $name, $msg);
 
       $_->ob->message ("$name shouts: $msg", cf::NDI_RED)
          for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 2 } cf::player::list;
@@ -871,7 +871,7 @@
    if ($target =~ /irc\//) {
       my (undef, $nick) = split /\//, $target, 2;
       $pl->message ("You tell $target: $args");
-      ext::schmorp_irc::do_notice (sprintf "(%s) %s: %s\n", $name, $nick, $msg);
+      ext::irc::do_notice (sprintf "(%s) %s: %s\n", $name, $nick, $msg);
    } elsif (my $other = cf::player::find_active $target) {
 
       if ($msg) {
@@ -907,7 +907,7 @@
    if ($pl->{ext_last_tell} =~ /irc\//) {
       my (undef, $nick) = split /\//, $pl->{ext_last_tell}, 2;
       $pl->message ("You tell " . $pl->{ext_last_tell} . ": $args");
-      ext::schmorp_irc::do_notice (sprintf "(%s) %s: %s\n", $name, $nick, $args);
+      ext::irc::do_notice (sprintf "(%s) %s: %s\n", $name, $nick, $args);
    } elsif (my $other = cf::player::find_active $pl->{ext_last_tell}) {
 
       if ($args) {