| … | |
… | |
| 163 | sub invoke_button_down { |
163 | sub invoke_button_down { |
| 164 | my ($self, $ev, $x, $y) = @_; |
164 | my ($self, $ev, $x, $y) = @_; |
| 165 | |
165 | |
| 166 | if ($ev->{button} == 1) { |
166 | if ($ev->{button} == 1) { |
| 167 | $self->grab_focus; |
167 | $self->grab_focus; |
| 168 | return unless $::CONN; |
168 | return unless $::CONN && $self->{ctilesize}; |
| 169 | |
169 | |
| 170 | my $x = $self->{dx} + DC::floor +($ev->{x} - $self->{sx0}) / $self->{ctilesize}; |
170 | my $x = $self->{dx} + DC::floor +($ev->{x} - $self->{sx0}) / $self->{ctilesize}; |
| 171 | my $y = $self->{dy} + DC::floor +($ev->{y} - $self->{sy0}) / $self->{ctilesize}; |
171 | my $y = $self->{dy} + DC::floor +($ev->{y} - $self->{sy0}) / $self->{ctilesize}; |
| 172 | |
172 | |
| 173 | $x -= DC::floor $::MAP->w * 0.5; |
173 | $x -= DC::floor $::MAP->w * 0.5; |
| … | |
… | |
| 518 | $::MAP->draw ($dx, $dy, $sw, $sh, |
518 | $::MAP->draw ($dx, $dy, $sw, $sh, |
| 519 | $self->{tilesize}, |
519 | $self->{tilesize}, |
| 520 | $::CONN->{player}{tag}, |
520 | $::CONN->{player}{tag}, |
| 521 | -$self->{sdx}, -$self->{sdy}); |
521 | -$self->{sdx}, -$self->{sdy}); |
| 522 | |
522 | |
| 523 | #glTranslate -$self->{sdx}, -$self->{sdy}; # anchro fow at player |
523 | #glTranslate -$self->{sdx}, -$self->{sdy}; # anchor fow at player |
| 524 | glScale $self->{tilesize}, $self->{tilesize}; |
524 | glScale $self->{tilesize}, $self->{tilesize}; |
| 525 | |
525 | |
| 526 | if (my $tex = $self->{fow_texture}) { |
526 | if (my $tex = $self->{fow_texture}) { |
| 527 | glPushMatrix; |
527 | glPushMatrix; |
| 528 | glTranslate +(min 0, $sdx_t), (min 0, $sdy_t); |
528 | glTranslate +(min 0, $sdx_t), (min 0, $sdy_t); |
