--- deliantra/server/lib/cf/mapscript.pm	2009/01/08 04:35:04	1.2
+++ deliantra/server/lib/cf/mapscript.pm	2009/01/08 19:23:44	1.3
@@ -17,7 +17,7 @@
    (&find)[0]->value
 }
 
-sub set($;$) {
+sub trigger($;$) {
    $self->map->trigger ($_[0], $#_ ? $_[1] : 1, $self);
 }
 
@@ -31,13 +31,13 @@
 
 use strict qw(subs vars);
 
+our %CACHE;
+
 sub activate($$$) {
    ($self, $state, $activator, $originator) = @_;
 
-   warn "$self->{msg} $self->{on_activate}\n";#d#
-
    (
-      $self->{on_activate} ||= cf::safe_eval
+      $CACHE{$self->msg} ||= cf::safe_eval
          "package mapscript; sub {\n"
          . "#line 1 '" . ($self->debug_desc) . "'\n"
          . $self->msg