--- deliantra/Deliantra-Client/DC.pm	2006/07/12 17:20:04	1.98
+++ deliantra/Deliantra-Client/DC.pm	2006/07/14 17:35:34	1.99
@@ -335,6 +335,12 @@
          my @menu_items = (
             ["examine", sub { $::CONN->send ("examine $self->{tag}") }],
             ["mark",    sub { $::CONN->send ("mark ". pack "N", $self->{tag}) }],
+            ["ignite/thaw",  # first try of an easier use of flint&steel
+               sub {
+                  $::CONN->send ("mark ". pack "N", $self->{tag});
+                  $::CONN->send ("command apply flint and steel");
+               }
+            ],
             ["apply",   sub { $::CONN->send ("apply $self->{tag}") }],
             (
                $self->{flags} & F_LOCKED