| … | … | ||
|---|---|---|---|
| 262 | 262 | ||
| 263 | sub coord { | 263 | sub coord { |
| 264 | my ($self, $x, $y) = @_; | 264 | my ($self, $x, $y) = @_; |
| 265 | 265 | ||
| 266 | ( | 266 | ( |
| 267 | int $self->{x} + $x / TILESIZE, | 267 | int +($self->{x} + $x) / TILESIZE, |
| 268 | int $self->{y} + $y / TILESIZE, | 268 | int +($self->{y} + $y) / TILESIZE, |
| 269 | ) | 269 | ) |
| 270 | } | 270 | } |
| 271 | 271 | ||
| 272 | #sub handle_key { | 272 | #sub handle_key { |
| 273 | # my ($self, $key, $state) = @_; | 273 | # my ($self, $key, $state) = @_; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |