--- deliantra/server/ext/bonus.ext	2006/12/15 19:29:18	1.1
+++ deliantra/server/ext/bonus.ext	2007/01/04 00:53:53	1.3
@@ -1,9 +1,6 @@
 #!perl
 use List::Util qw/min/;
 
-$cf::CFG{ext_bonus}
-   or return;
-
 my $WC_BASE_VALUE    = 15 * 5000;  # 15r
 my $AC_BASE_VALUE    = 40 * 5000;  # 40r
 my $DAM_BASE_VALUE   = 200;        # 25p
@@ -39,14 +36,15 @@
    if ($dam_diff   > 0) { $value += $DAM_BASE_VALUE   * ($dam_diff ** 2.4) * rand_range .5, 1 }
    if ($magic_diff > 0) { $value += $MAGIC_BASE_VALUE * 1.5 * $magic_diff * rand_range .5, 1 }
 
-   warn sprintf "WC DIFF: %3d, %3d, %3d, %3d | %10d = %10.3f r\n",
-        $dam_diff, $wc_diff, $ac_diff, $magic_diff, $value,  $value / 5000
-      if $cf::CFG{ext_bonus_debug};
+#   warn sprintf "WC DIFF: %3d, %3d, %3d, %3d | %10d = %10.3f r\n",
+#        $dam_diff, $wc_diff, $ac_diff, $magic_diff, $value,  $value / 5000
+#      if $cf::CFG{ext_bonus_debug};
 
    $weapon->value ($value);
 }
 
-cf::attach_to_type cf::WEAPON, 0,
+cf::object->attach (
+   type         => cf::WEAPON,
    on_add_bonus => sub {
       my ($item, $creator, $diff, $max_magic, $flags) = @_;
       return if $flags || !$creator;
@@ -62,4 +60,4 @@
 
       cf::override;
    },
-;
+);