… | |
… | |
205 | |
205 | |
206 | sub as_lines { |
206 | sub as_lines { |
207 | split /\n/, $_[0]{data} |
207 | split /\n/, $_[0]{data} |
208 | } |
208 | } |
209 | |
209 | |
210 | =item @lines = $level->as_rle |
210 | =item $line = $level->as_rle |
211 | |
211 | |
212 | http://www.sokobano.de/wiki/index.php?title=Level_format |
212 | http://www.sokobano.de/wiki/index.php?title=Level_format |
213 | |
213 | |
214 | =cut |
214 | =cut |
215 | |
215 | |
… | |
… | |
222 | |
222 | |
223 | $data |
223 | $data |
224 | } |
224 | } |
225 | |
225 | |
226 | =item ($x, $y) = $level->start |
226 | =item ($x, $y) = $level->start |
|
|
227 | |
|
|
228 | Returns (0-based) starting coordinate. |
227 | |
229 | |
228 | =cut |
230 | =cut |
229 | |
231 | |
230 | sub start { |
232 | sub start { |
231 | my ($self) = @_; |
233 | my ($self) = @_; |