[ViewVC] Diff of: cvs/deliantra/server/lib/cf.pm

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.20 by root, Sun Jul 16 17:29:02 2006 UTC vs.
Revision 1.22 by root, Wed Jul 19 08:50:42 2006 UTC

 sub unload_extension {
    my ($pkg) = @_;
    warn "removing extension $pkg\n";
+   if (my $cb = $pkg->can ("on_unload")) {
+      $cb->($pkg);
+   }
    # remove hooks
    for my $idx (0 .. $#EVENT) {
       delete $hook[$idx]{$pkg};
    }
          unload_extension $_ for @exts;
          delete $INC{"cf.pm"};
          # don't, removes xs symbols, too
-         #Symbol::delete_package $pkg;
+         #Symbol::delete_package __PACKAGE__;
          require cf;
       };
       warn $@ if $@;
       $who->message ($@) if $@;
       for grep %$_, $ob, $ob->inv;
    unlink "$path.cfperl";#d##TODO#remove
 };
+#############################################################################
+# core extensions - in perl
+# rough implementation of a future "reply" method that works
+# with dialog boxes.
+sub cf::object::player::reply($$;$) {
+   my ($self, $msg, $flags) = @_;
+   $flags = cf::NDI_WHITE unless @_ >= 3;
+   $self->message ($msg, $flags);
+}
+#############################################################################
+# initialisation
 register "<global>", __PACKAGE__;
 unshift @INC, maps_directory "perl";
 load_extensions;

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