--- deliantra/Deliantra-Client/DC/Protocol.pm 2006/10/08 21:22:30 1.86 +++ deliantra/Deliantra-Client/DC/Protocol.pm 2006/11/07 22:41:27 1.87 @@ -9,6 +9,8 @@ use CFPlus::UI; use CFPlus::Pod; +use Crossfire::Protocol::Base 0.95; + use base 'Crossfire::Protocol::Base'; sub new { @@ -321,9 +323,8 @@ sub user_send { my ($self, $command) = @_; - if ($self->{record}) { - push @{$self->{record}}, $command; - } + push @{$self->{record}}, $command + if $self->{record}; $self->logprint ("send: ", $command); $self->send_command ($command); @@ -669,6 +670,12 @@ $::SPELL_PAGE->remove_spell ($spell); } +sub setup { + my ($self, $setup) = @_; + + $::MAP->resize ($self->{mapw}, $self->{maph}); +} + sub addme_success { my ($self) = @_;