… | |
… | |
76 | $y -= int 0.5 * $::MAP->h; |
76 | $y -= int 0.5 * $::MAP->h; |
77 | |
77 | |
78 | $x += 1; |
78 | $x += 1; |
79 | $y += 1; |
79 | $y += 1; |
80 | |
80 | |
81 | $::CONN->send ("lookat $x $y") |
81 | $::CONN->lookat ($x, $y) |
82 | if $::CONN; |
82 | if $::CONN; |
83 | |
83 | |
84 | } elsif ($ev->{button} == 2) { |
84 | } elsif ($ev->{button} == 2) { |
85 | my ($ox, $oy) = ($ev->{x}, $ev->{y}); |
85 | my ($ox, $oy) = ($ev->{x}, $ev->{y}); |
86 | my ($bw, $bh) = ($::CFG->{map_shift_x}, $::CFG->{map_shift_y}); |
86 | my ($bw, $bh) = ($::CFG->{map_shift_x}, $::CFG->{map_shift_y}); |