--- deliantra/server/ext/NPC_Dialogue.pm	2007/01/04 15:20:11	1.2
+++ deliantra/server/ext/NPC_Dialogue.pm	2007/06/16 14:35:41	1.4
@@ -28,6 +28,8 @@
 sub new {
    my ($class, %arg) = @_;
 
+   $arg{ob} = $arg{pl}->ob;
+
    my $self = bless {
       %arg,
    }, $class;
@@ -198,7 +200,7 @@
    topic:
    for my $match (@{ $self->{match} }) {
       for (split /\|/, $match->[0]) {
-         if ($_ eq "*" || $lcmsg eq lc) {
+         if ($_ eq "*" || $lcmsg =~ /\b\Q$_\E\b/i) {
             my $reply = $match->[1];
             my @kw;