… | |
… | |
634 | my ($self, $mode, $flags, $x, $y, $w, $h, $hash) = @_; |
634 | my ($self, $mode, $flags, $x, $y, $w, $h, $hash) = @_; |
635 | |
635 | |
636 | $self->flush_map; |
636 | $self->flush_map; |
637 | |
637 | |
638 | my ($ox, $oy) = ($::MAP->ox, $::MAP->oy); |
638 | my ($ox, $oy) = ($::MAP->ox, $::MAP->oy); |
639 | |
|
|
640 | warn "$ox $oy map_info<$flags, $x, $y, $w, $h, $hash>\n";#d# |
|
|
641 | |
639 | |
642 | my $mapmapw = 250; |
640 | my $mapmapw = 250; |
643 | my $mapmaph = 250; |
641 | my $mapmaph = 250; |
644 | |
642 | |
645 | $self->flood_fill ("", $hash, $flags, |
643 | $self->flood_fill ("", $hash, $flags, |
… | |
… | |
776 | }, |
774 | }, |
777 | ); |
775 | ); |
778 | |
776 | |
779 | ############################################################################# |
777 | ############################################################################# |
780 | |
778 | |
|
|
779 | $SIG{INT} = $SIG{TERM} = sub { exit }; |
|
|
780 | |
781 | $TILECACHE = CFClient::db_table "tilecache"; |
781 | $TILECACHE = CFClient::db_table "tilecache"; |
782 | $FACEMAP = CFClient::db_table "facemap"; |
782 | $FACEMAP = CFClient::db_table "facemap"; |
783 | |
783 | |
784 | CFClient::read_cfg "$Crossfire::VARDIR/pclientrc"; |
784 | CFClient::read_cfg "$Crossfire::VARDIR/pclientrc"; |
785 | |
785 | |
… | |
… | |
822 | |
822 | |
823 | init_screen; |
823 | init_screen; |
824 | |
824 | |
825 | Event::loop; |
825 | Event::loop; |
826 | |
826 | |
|
|
827 | END { SDL::Quit } |
827 | |
828 | |
|
|
829 | |