[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/Protocol.pm

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.86 by root, Sun Oct 8 21:22:30 2006 UTC vs.
Revision 1.88 by root, Sun Nov 19 20:31:29 2006 UTC

 use Crossfire::Protocol::Constants;
 use CFPlus;
 use CFPlus::UI;
 use CFPlus::Pod;
+use Crossfire::Protocol::Base 0.95;
 use base 'Crossfire::Protocol::Base';
 sub new {
    my $class = shift;
 }
 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);
    ::status ($command);
 }
    # try to create single paragraphs out of the multiple lines sent by the server
    $spell->{message} =~ s/(?<=\S)\n(?=\w)/ /g;
    $spell->{message} =~ s/\n+$//;
    $spell->{message} ||= "Server did not provide a description for this spell.";
-   $::SPELL_PAGE->add_spell ($spell);
+   $::SPELL_LIST->add_spell ($spell);
    $self->{map_widget}->add_command ("invoke $spell->{name}", CFPlus::asxml $spell->{message});
    $self->{map_widget}->add_command ("cast $spell->{name}", CFPlus::asxml $spell->{message});
 }
 sub spell_delete {
    my ($self, $spell) = @_;
-   $::SPELL_PAGE->remove_spell ($spell);
+   $::SPELL_LIST->remove_spell ($spell);
+}
+sub setup {
+   my ($self, $setup) = @_;
+   $::MAP->resize ($self->{mapw}, $self->{maph});
 }
 sub addme_success {
    my ($self) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines