--- deliantra/server/ext/bonus.ext	2007/02/06 10:18:04	1.6
+++ deliantra/server/ext/bonus.ext	2007/06/04 12:19:08	1.7
@@ -22,14 +22,14 @@
 sub determine_weapon_value {
    my ($weapon) = @_;
 
-   my $clone = $weapon->arch->clone;
-   my $value = $clone->value;
+   my $arch  = $weapon->arch;
+   my $value = $arch->value;
 
-   my $wc_diff  = $weapon->stats->wc  - $clone->stats->wc;
-   my $ac_diff  = $weapon->stats->ac  - $clone->stats->ac;
-   my $dam_diff = $weapon->stats->dam - $clone->stats->dam;
+   my $wc_diff  = $weapon->stats->wc  - $arch->stats->wc;
+   my $ac_diff  = $weapon->stats->ac  - $arch->stats->ac;
+   my $dam_diff = $weapon->stats->dam - $arch->stats->dam;
 
-   my $magic_diff = $weapon->magic - $clone->magic;
+   my $magic_diff = $weapon->magic - $arch->magic;
 
    if ($wc_diff    > 0) { $value += $WC_BASE_VALUE    * 1.5 * $wc_diff    * rand_range .5, 1 }
    if ($ac_diff    > 0) { $value += $AC_BASE_VALUE    * 1.5 * $ac_diff    * rand_range .5, 1 }