--- deliantra/Deliantra-Client/DC.pm	2006/05/26 18:28:23	1.70
+++ deliantra/Deliantra-Client/DC.pm	2006/05/26 20:36:32	1.71
@@ -192,6 +192,9 @@
 
 package CFClient::Item;
 
+use strict;
+use Crossfire::Protocol::Constants;
+
 sub desc_string {
    my ($self) = @_;
 
@@ -200,19 +203,19 @@
          ? $self->{name}
          : "$self->{nrof} × $self->{name_pl}";
 
-   $self->{flags} & Crossfire::Protocol::F_OPEN
+   $self->{flags} & F_OPEN
       and $desc .= " (open)";
-   $self->{flags} & Crossfire::Protocol::F_APPLIED
+   $self->{flags} & F_APPLIED
       and $desc .= " (applied)";
-   $self->{flags} & Crossfire::Protocol::F_UNPAID
+   $self->{flags} & F_UNPAID
       and $desc .= " (unpaid)";
-   $self->{flags} & Crossfire::Protocol::F_MAGIC
+   $self->{flags} & F_MAGIC
       and $desc .= " (magic)";
-   $self->{flags} & Crossfire::Protocol::F_CURSED
+   $self->{flags} & F_CURSED
       and $desc .= " (cursed)";
-   $self->{flags} & Crossfire::Protocol::F_DAMNED
+   $self->{flags} & F_DAMNED
       and $desc .= " (damned)";
-   $self->{flags} & Crossfire::Protocol::F_LOCKED
+   $self->{flags} & F_LOCKED
       and $desc .= " *";
 
    $desc
@@ -250,7 +253,7 @@
             ["mark",    sub { $::CONN->send ("mark ". pack "N", $self->{tag}) }],
             ["apply",   sub { $::CONN->send ("apply $self->{tag}") }],
             (
-               $self->{flags} & Crossfire::Protocol::F_LOCKED
+               $self->{flags} & F_LOCKED
                ? (
                   ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $self->{tag}) }],
                  )