… | … | ||
---|---|---|---|
402 | while (<$fh>) { | 402 | while (<$fh>) { |
403 | $data .= $_; | 403 | $data .= $_; |
404 | last if /^$/; | 404 | last if /^$/; |
405 | } | 405 | } |
406 | 406 | ||
407 | # sokevo internally locks some cells | ||
408 | $data =~ y/^%:,;-=?/ #.$* +#/; | ||
409 | |||
407 | push @levels, new Games::Sokoban data => $data; | 410 | push @levels, new Games::Sokoban data => $data; |
408 | } | 411 | } |
409 | } | 412 | } |
410 | 413 | ||
411 | \@levels | 414 | \@levels |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |