--- deliantra/Deliantra-Client/DC.pm	2006/07/30 13:16:44	1.108
+++ deliantra/Deliantra-Client/DC.pm	2006/07/30 17:43:26	1.110
@@ -28,7 +28,6 @@
 use BerkeleyDB;
 use Pod::POM ();
 use Scalar::Util ();
-use JSON::Syck ();
 use Storable (); # finally
 
 our %STAT_TOOLTIP = (
@@ -107,14 +106,10 @@
    die "FATAL: can't find required file $_[0]\n";
 }
 
-$JSON::Syck::ImplicitUnicode = 1;
-
-sub from_json {
-   JSON::Syck::Load $_[0]
-}
-
-sub to_json {
-   JSON::Syck::Dump $_[0]
+BEGIN {
+   use Crossfire::Protocol::Base ();
+   *to_json   = \&Crossfire::Protocol::Base::to_json;
+   *from_json = \&Crossfire::Protocol::Base::from_json;
 }
 
 sub read_cfg {
@@ -298,6 +293,15 @@
                   $::CONN->send ("command apply flint and steel");
                }
             ],
+            ["inscribe",  # first try of an easier use of flint&steel
+               sub {
+                  &::open_string_query ("Text to inscribe", sub {
+                     my ($entry, $txt) = @_;
+                     $::CONN->send ("mark ". pack "N", $self->{tag});
+                     $::CONN->send ("command use_skill inscription $txt");
+                  });
+               }
+            ],
             ["apply",   sub { $::CONN->send ("apply $self->{tag}") }],
             (
                $self->{flags} & F_LOCKED