--- deliantra/server/ext/NPC_Dialogue.pm	2007/08/08 07:55:57	1.6
+++ deliantra/server/ext/NPC_Dialogue.pm	2009/01/08 19:23:44	1.14
@@ -14,12 +14,6 @@
 
 use strict;
 
-sub has_dialogue($) {
-   my ($ob) = @_;
-
-   $ob->msg =~ /^\@match /;
-}
-
 sub parse_message($) {
    map [split /\n/, $_, 2],
       grep length,
@@ -123,6 +117,20 @@
 C<slaying> or any other method that is allowed to be called on a
 C<cf::object> here.
 
+=item B<matching for an item name and removing the matched item>
+
+   @match found earhorn
+   @cond grep $_->slaying =~ /Gramp's walking stick/, $who->inv
+   @eval my @g = grep { $_->slaying =~ /Gramp's walking stick/ } $who->inv; $g[0]->decrease;
+   Thanks for the earhorn!
+
+This example is a bit more complex. The C<@eval> statement will search
+the players inventory for the same term as the C<@cond> and then
+decreases the number of objects used there.
+
+(See also the map: C<scorn/houses/cornerbrook.map> for an example how this is
+used in the real world :-)
+
 =back
 
 =item @eval perl
@@ -195,12 +203,24 @@
 state won't be changed when the connection is triggered by other triggers.  So
 be careful when triggering the connection from other objects.
 
-When a state argument is given it should be either 0 or 1. 1 will 'push' the connection
-and 0 will 'release' the connection. This is useful for example when you want to
-let a npc control a door.
+When a state argument is given it should be a positive integer. Any value
+C<!= 0> will 'push' the connection (in general, you should specify C<1>
+for this) and C<0> will 'release' the connection. This is useful for
+example when you want to let an NPC control a door.
 
 Trigger all objects with the given connected-id by 'releasing' the connection.
 
+=item @playersound face-name
+
+Plays the given sound face (either an alias or sound file path) so that
+only the player talking to the npc can hear it.
+
+=item @npcsound face-name
+
+Plays the given sound face (either an alias or sound file path) as if
+the npc had made that sound, i.e. it will be located at the npc and all
+players near enough can hear it.
+
 =item @addtopic topic
 
 Adds the given topic names (separated by C<|>) to the list of topics
@@ -251,6 +271,12 @@
                } elsif ($cmd eq "comment") {
                   # nop
 
+               } elsif ($cmd eq "playersound") {
+                  $self->{ob}->contr->play_sound (cf::sound::find $args);
+
+               } elsif ($cmd eq "npcsound") {
+                  $self->{npc}->play_sound (cf::sound::find $args);
+
                } elsif ($cmd eq "cond") {
                   cf::safe_eval $args, %vars
                      or next topic;
@@ -284,13 +310,12 @@
 
                } elsif ($cmd eq "trigger") {
                   my ($con, $state) = split /\s+/, $args, 2;
-                  $con = $con * 1;
 
                   if (defined $state) {
-                    $self->{npc}->map->trigger ($args, $state);
+                    $self->{npc}->map->trigger ($con, $state, $self->{npc}, $self->{ob});
                   } else {
-                    my $rvalue = \$self->{npc}{dialog_trigger}{$con};
-                    $self->{npc}->map->trigger ($con, $$rvalue = !$$rvalue);
+                    my $rvalue = \$self->{npc}{dialog_trigger}{$con+0};
+                    $self->{npc}->map->trigger ($con, $$rvalue = !$$rvalue, $self->{npc}, $self->{ob});
                   }
 
                } elsif ($cmd eq "addtopic") {
@@ -309,10 +334,6 @@
             delete $self->{npc}{$self->{ob}->name}{dialog_state} unless %$state;
             delete $self->{ob}{dialog_flag}                      unless %$flag;
 
-            # combine lines into paragraphs
-            $reply =~ s/(?<=\S)\n(?=\w)/ /g;
-            $reply =~ s/\n\n/\n/g;
-
             # ignores flags and npc from replies
             $reply = join "\n", (map $_->[1], @replies), $reply;
 
@@ -326,6 +347,9 @@
                }
             }
 
+            $self->{npc}->use_trigger ($self->{ob})
+               if $self->{npc}->type == cf::MAGIC_EAR;
+
             return wantarray ? ($reply, @kw) : $reply;
          }
       }