| … | |
… | |
| 294 | ["mark", sub { $::CONN->send ("mark ". pack "N", $self->{tag}) }], |
294 | ["mark", sub { $::CONN->send ("mark ". pack "N", $self->{tag}) }], |
| 295 | ["ignite/thaw", # first try of an easier use of flint&steel |
295 | ["ignite/thaw", # first try of an easier use of flint&steel |
| 296 | sub { |
296 | sub { |
| 297 | $::CONN->send ("mark ". pack "N", $self->{tag}); |
297 | $::CONN->send ("mark ". pack "N", $self->{tag}); |
| 298 | $::CONN->send ("command apply flint and steel"); |
298 | $::CONN->send ("command apply flint and steel"); |
|
|
299 | } |
|
|
300 | ], |
|
|
301 | ["inscribe", # first try of an easier use of flint&steel |
|
|
302 | sub { |
|
|
303 | &::open_string_query ("Text to inscribe", sub { |
|
|
304 | my ($entry, $txt) = @_; |
|
|
305 | $::CONN->send ("mark ". pack "N", $self->{tag}); |
|
|
306 | $::CONN->send ("command use_skill inscription $txt"); |
|
|
307 | }); |
| 299 | } |
308 | } |
| 300 | ], |
309 | ], |
| 301 | ["apply", sub { $::CONN->send ("apply $self->{tag}") }], |
310 | ["apply", sub { $::CONN->send ("apply $self->{tag}") }], |
| 302 | ( |
311 | ( |
| 303 | $self->{flags} & F_LOCKED |
312 | $self->{flags} & F_LOCKED |
