| … | |
… | |
| 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 (sprintf "lookat %d %d", $x, $y) |
81 | $::CONN->send ("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}); |
