| … | |
… | |
| 300 | |
300 | |
| 301 | sub message_window { |
301 | sub message_window { |
| 302 | my $window = new CFClient::UI::FancyFrame |
302 | my $window = new CFClient::UI::FancyFrame |
| 303 | border_bg => [1, 1, 1, 0.5], |
303 | border_bg => [1, 1, 1, 0.5], |
| 304 | bg => [0.3, 0.3, 0.3, 0.8], |
304 | bg => [0.3, 0.3, 0.3, 0.8], |
| 305 | user_w => $::WIDTH/4, |
305 | user_w => int $::WIDTH / 3, |
| 306 | user_h => $::HEIGHT, |
306 | user_h => int $::HEIGHT / 5, |
| 307 | child => (my $vbox = new CFClient::UI::VBox); |
307 | child => (my $vbox = new CFClient::UI::VBox); |
| 308 | |
308 | |
| 309 | $vbox->add ($LOGVIEW = new CFClient::UI::TextView |
309 | $vbox->add ($LOGVIEW = new CFClient::UI::TextView |
| 310 | expand => 1, |
310 | expand => 1, |
| 311 | fontsize => $::CFG->{log_fontsize}, |
311 | fontsize => $::CFG->{log_fontsize}, |
| … | |
… | |
| 585 | return if $mode ne "spatial"; |
585 | return if $mode ne "spatial"; |
| 586 | |
586 | |
| 587 | $x += $MAP->ox; |
587 | $x += $MAP->ox; |
| 588 | $y += $MAP->oy; |
588 | $y += $MAP->oy; |
| 589 | |
589 | |
| 590 | $self->load_map ($hash, $x, $y); |
590 | $self->load_map ($hash, $x, $y) |
|
|
591 | unless $self->{neigh}{$hash}[5]++;#d# |
| 591 | |
592 | |
| 592 | $neigh->[$tile] = [$x, $y, $w, $h]; |
593 | $neigh->[$tile] = [$x, $y, $w, $h]; |
| 593 | |
594 | |
| 594 | $self->flood_fill ("$path$tile", $hash, $flags, $x0, $y0, $x1, $y1) |
595 | $self->flood_fill ("$path$tile", $hash, $flags, $x0, $y0, $x1, $y1) |
| 595 | if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1; |
596 | if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1; |
