| … | |
… | |
| 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) = @_; |
