--- deliantra/server/ext/NPC_Dialogue.pm 2007/08/26 04:07:40 1.8 +++ deliantra/server/ext/NPC_Dialogue.pm 2008/04/21 06:35:26 1.9 @@ -127,7 +127,7 @@ @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_ob_nr (1); + @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