--- deliantra/Deliantra-Client/DC/Protocol.pm 2007/07/24 18:39:39 1.133 +++ deliantra/Deliantra-Client/DC/Protocol.pm 2007/07/27 18:04:42 1.136 @@ -189,7 +189,9 @@ # message window $self->connect_ext (channel_info => sub { - $::MESSAGE_WINDOW->add_channel ($_[0]); + my ($info) = @_; + $self->{channels}->{$info->{id}} = $info; + $::MESSAGE_WINDOW->add_channel ($info); }); # destroy widgets on logout @@ -896,7 +898,7 @@ # no longer neecssary with TRT servers #$text =~ s/(?<=\S)\n(?=\w)/ /g; - ::message ({ fg => $fg, markup => $_, type => $type }) + ::message ({ fg => $fg, markup => $_, type => $type, extra => [@extra] }) for split /\n/, $text; $self->{statusbox}->add ($text, @@ -1162,7 +1164,6 @@ . "map size $self->{mapw}×$self->{maph}\n" ); - ::setup_build_button ($self->{editor_support}->{builder_ui}); } sub logged_in { @@ -1194,14 +1195,6 @@ $self->send_command ("pickup $::CFG->{pickup}"); } -sub buildat { - my ($self, $builditem, $x, $y) = @_; - - if ($self->{cfplus_ext}) { - $self->send_ext_msg (builder_build => dx => $x, dy => $y, (ref ($builditem) eq 'HASH') ? %$builditem : (item => $builditem)); - } -} - sub lookat { my ($self, $x, $y) = @_;