… | |
… | |
6 | use Crossfire::Protocol::Constants; |
6 | use Crossfire::Protocol::Constants; |
7 | |
7 | |
8 | use CFPlus; |
8 | use CFPlus; |
9 | use CFPlus::UI; |
9 | use CFPlus::UI; |
10 | use CFPlus::Pod; |
10 | use CFPlus::Pod; |
|
|
11 | |
|
|
12 | use Crossfire::Protocol::Base 0.95; |
11 | |
13 | |
12 | use base 'Crossfire::Protocol::Base'; |
14 | use base 'Crossfire::Protocol::Base'; |
13 | |
15 | |
14 | sub new { |
16 | sub new { |
15 | my $class = shift; |
17 | my $class = shift; |
… | |
… | |
319 | } |
321 | } |
320 | |
322 | |
321 | sub user_send { |
323 | sub user_send { |
322 | my ($self, $command) = @_; |
324 | my ($self, $command) = @_; |
323 | |
325 | |
324 | if ($self->{record}) { |
|
|
325 | push @{$self->{record}}, $command; |
326 | push @{$self->{record}}, $command |
326 | } |
327 | if $self->{record}; |
327 | |
328 | |
328 | $self->logprint ("send: ", $command); |
329 | $self->logprint ("send: ", $command); |
329 | $self->send_command ($command); |
330 | $self->send_command ($command); |
330 | ::status ($command); |
331 | ::status ($command); |
331 | } |
332 | } |
… | |
… | |
665 | |
666 | |
666 | sub spell_delete { |
667 | sub spell_delete { |
667 | my ($self, $spell) = @_; |
668 | my ($self, $spell) = @_; |
668 | |
669 | |
669 | $::SPELL_PAGE->remove_spell ($spell); |
670 | $::SPELL_PAGE->remove_spell ($spell); |
|
|
671 | } |
|
|
672 | |
|
|
673 | sub setup { |
|
|
674 | my ($self, $setup) = @_; |
|
|
675 | |
|
|
676 | $::MAP->resize ($self->{mapw}, $self->{maph}); |
670 | } |
677 | } |
671 | |
678 | |
672 | sub addme_success { |
679 | sub addme_success { |
673 | my ($self) = @_; |
680 | my ($self) = @_; |
674 | |
681 | |