-UNIT:
-while (1) {
- my ($sx, $sy) = (500, 0);
-
- while (1) {
- if ($sy >= $maxy + 1) {
- $map[$sy][$sx] = 2;
- last;
- } elsif (!$map[$sy+1][$sx]) {
- $sy++;
- } elsif (!$map[$sy+1][$sx-1]) {
- $sx--;
- $sy++;
- } elsif (!$map[$sy+1][$sx+1]) {
- $sx++;
- $sy++;
+while (!$map[0][500]) {
+ my ($x, $y) = (500, 0);
+
+ while ($y < $maxy) {
+ if (!$map[$y+1][$x]) {
+ $y++;
+ } elsif (!$map[$y+1][$x-1]) {
+ $x--; $y++;
+ } elsif (!$map[$y+1][$x+1]) {
+ $x++; $y++;