[ViewVC] Diff of: cvs/deliantra/server/ext/map

Comparing deliantra/server/ext/map_lib.ext (file contents):
Revision 1.5 by elmex, Sat Feb 2 17:38:36 2008 UTC vs.
Revision 1.7 by elmex, Sat Mar 20 14:57:58 2010 UTC

 sub rec_inv_by_slaying {
    my ($ob, $slaying, $cb) = @_;
    $cb->($ob) if $ob->slaying eq $slaying;
    for my $iob ($ob->inv) { rec_inv_by_slaying ($iob, $slaying, $cb) }
+}
+=item count_linked ($map, $connected)
+Counts the number of objects with the connected value C<$connected> on
+the map C<$map>.
+=cut
+sub count_linked {
+   my ($map, $connected) = @_;
+   my (@a) = $map->find_link ($connected);
+   scalar @a
 }
 =item object attachment: 'check_inventory_on_apply'
 This attachment checks on apply whether the applyer
       rec_inv_by_slaying ($pl, $cfg->{key_string}, sub {
          my ($ob) = @_;
          $match = $ob;
       });
       if ($match) {
-         $match->decrease_ob_nr ($cfg->{decrease_by_cnt}) if $cfg->{decrease_by_cnt};
+         $match->decrease ($cfg->{decrease_by_cnt}) if $cfg->{decrease_by_cnt};
          $pl->message ($cfg->{message_on_match}, cf::NDI_UNIQUE) if defined $cfg->{message_on_match};
       } else {
          $pl->message ($cfg->{message_on_nomatch}, cf::NDI_RED | cf::NDI_UNIQUE) if defined $cfg->{message_on_nomatch};
          cf::override;
       }

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