ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.113 by root, Mon Aug 14 01:21:01 2006 UTC vs.
Revision 1.114 by elmex, Mon Aug 14 04:34:40 2006 UTC

280 sub { 280 sub {
281 &::open_string_query ("Text to inscribe", sub { 281 &::open_string_query ("Text to inscribe", sub {
282 my ($entry, $txt) = @_; 282 my ($entry, $txt) = @_;
283 $::CONN->send ("mark ". pack "N", $self->{tag}); 283 $::CONN->send ("mark ". pack "N", $self->{tag});
284 $::CONN->send ("command use_skill inscription $txt"); 284 $::CONN->send ("command use_skill inscription $txt");
285 });
286 }
287 ],
288 ["rename", # first try of an easier use of flint&steel
289 sub {
290 &::open_string_query ("Rename item to:", sub {
291 my ($entry, $txt) = @_;
292 $::CONN->send ("mark ". pack "N", $self->{tag});
293 $::CONN->send ("command rename to <$txt>");
285 }); 294 });
286 } 295 }
287 ], 296 ],
288 ["apply", sub { $::CONN->send ("apply $self->{tag}") }], 297 ["apply", sub { $::CONN->send ("apply $self->{tag}") }],
289 ( 298 (

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines