| … | |
… | |
| 403 | |
403 | |
| 404 | $_->[4]->($self, $_->[0] - $self->{x}, $_->[1] - $self->{y}) |
404 | $_->[4]->($self, $_->[0] - $self->{x}, $_->[1] - $self->{y}) |
| 405 | for values %{ $self->{overlay} || {} }; |
405 | for values %{ $self->{overlay} || {} }; |
| 406 | } |
406 | } |
| 407 | |
407 | |
| 408 | sub change_begin { |
|
|
| 409 | my ($self, $title) = @_; |
|
|
| 410 | |
|
|
| 411 | $self->{change} ||= { |
|
|
| 412 | title => $title, |
|
|
| 413 | }; |
|
|
| 414 | $self->{change}{nest}++; |
|
|
| 415 | } |
|
|
| 416 | |
|
|
| 417 | sub get { |
408 | sub get { |
| 418 | my ($self, $x, $y) = @_; |
409 | my ($self, $x, $y) = @_; |
| 419 | |
410 | |
| 420 | return unless $x >= 0 && $x < $self->{map}{width} |
411 | return unless $x >= 0 && $x < $self->{map}{width} |
| 421 | && $y >= 0 && $y < $self->{map}{height}; |
412 | && $y >= 0 && $y < $self->{map}{height}; |
| … | |
… | |
| 511 | |
502 | |
| 512 | delete $self->{tipinfo}; $self->update_tooltip; |
503 | delete $self->{tipinfo}; $self->update_tooltip; |
| 513 | |
504 | |
| 514 | } |
505 | } |
| 515 | |
506 | |
|
|
507 | sub change_begin { |
|
|
508 | my ($self, $title) = @_; |
|
|
509 | |
|
|
510 | $self->{change} ||= { |
|
|
511 | title => $title, |
|
|
512 | }; |
|
|
513 | $self->{change}{nest}++; |
|
|
514 | } |
|
|
515 | |
| 516 | sub change_stack { |
516 | sub change_stack { |
| 517 | my ($self, $x, $y, $as) = @_; |
517 | my ($self, $x, $y, $as) = @_; |
| 518 | |
518 | |
| 519 | $self->{change}{map}[$x][$y] ||= [$x, $y, $self->{map}{map}[$x][$y]]; |
519 | $self->{change}{map}[$x][$y] ||= [$x, $y, $self->{map}{map}[$x][$y]]; |
| 520 | |
520 | |
