--- deliantra/Deliantra-Client/DC/UI.pm	2006/05/19 23:18:42	1.217
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/05/20 15:37:27	1.218
@@ -2614,13 +2614,18 @@
          } elsif ($ev->{button} == 3) {
             my @menu_items = (
                ["examine", sub { $::CONN->send ("examine $item->{tag}") }],
-               ["mark",    sub { $::CONN->send ("mark $item->{tag}") }],
+               ["mark",    sub { $::CONN->send ("mark ". pack "N", $item->{tag}) }],
                ["apply",   sub { $::CONN->send ("apply $item->{tag}") }],
-               ["drop",    sub { $::CONN->send ("move $main::OPENCONT $item->{tag} 0") }],
-               [
-                  $item->{flags} & Crossfire::Protocol::F_LOCKED ? "lock" : "unlock",
-                  sub { $::CONN->send ("lock $item->{tag}") }, 
-               ],
+               (
+                  $item->{flags} & Crossfire::Protocol::F_LOCKED
+                  ? (
+                     ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $item->{tag}) }],
+                    )
+                  : (
+                     ["lock",   sub { $::CONN->send ("lock " . pack "CN", 1, $item->{tag}) }],
+                     ["drop",   sub { $::CONN->send ("move $main::OPENCONT $item->{tag} 0") }],
+                  )
+               ),
             );
 
             CFClient::UI::Menu->new (items => \@menu_items)->popup ($ev);