… | |
… | |
317 | |
317 | |
318 | $self->send ($command); |
318 | $self->send ($command); |
319 | status $command; |
319 | status $command; |
320 | } |
320 | } |
321 | |
321 | |
|
|
322 | my $MAP = new CFClient::Map 63, 63;#d# |
|
|
323 | |
|
|
324 | sub conn::feed_map1a { |
|
|
325 | my ($self, $data) = @_; |
|
|
326 | |
|
|
327 | $self->Crossfire::Protocol::feed_map1a ($data); |
|
|
328 | |
|
|
329 | #$MAP->scroll (delete $self->{_dx}, delete $self->{_dy}); |
|
|
330 | #$MAP->map1a_update ($data); |
|
|
331 | } |
|
|
332 | |
322 | sub conn::map_update { |
333 | sub conn::map_update { |
323 | my ($self, $dirty) = @_; |
334 | my ($self, $dirty) = @_; |
324 | |
335 | |
325 | $MAPWIDGET->update; |
336 | $MAPWIDGET->update; |
326 | } |
337 | } |
327 | |
338 | |
328 | sub conn::map_scroll { |
339 | sub conn::map_scroll { |
329 | my ($self, $dx, $dy) = @_; |
340 | my ($self, $dx, $dy) = @_; |
|
|
341 | |
|
|
342 | $self->{_dx} += $dx; |
|
|
343 | $self->{_dy} += $dy; |
330 | |
344 | |
331 | # refresh; |
345 | # refresh; |
332 | } |
346 | } |
333 | |
347 | |
334 | sub conn::map_clear { |
348 | sub conn::map_clear { |