Генерация лабиринтов

[SMT]

немножко наврал в уменьшении переменной "дистанция". на самом деле, это счётчик, который уменьшается после каждого изменения x/y. то есть код внутреннего цикла выглядит как

  дистанция = 2+random(4);
  выбрать_напр:
    напр = random(4);
    switch (напр) {
       case 0:
          если (ХодилиВлево) goto выбрать_напр;
          for (;;)
          {
            если (A[x-2,y]!=#FF или A[x-1,y]!=#FF или
                  A[x-2,y-1]!=#FF или A[x-1,y-1]!=#FF или
                  A[x-2,y+1]!=#FF или A[x-1,y+1]!=#FF)
            {
               ХодилиВлево = да;
               goto выбрать_напр;
            }
            иначе
            {
               x=x-1; A[x,y] = 0;
               дистанция=дистанция-1;
               если (дистанция == 0) break; // внутренний for (;;)
            }
          }
          break; // case
  // аналогично по остальным направлениям

в принципе, лабиринты тоже будут получаться хорошие, только менее извилистые, т.е. меньше точек, в которых ответвляется корридор. можно попробовать оба варианта

ещё забыл вставить перед первым for (; команды A[x,y]=0, без которой начальный квадрат оказывается отрезан от остального лабиринта

ещё не забудь, что куча обращений типа A[x+1,y-2] на самом деле кишит остатками от деления на размер лабиринта (mod 64)

а насчёт начального квадрата, почему он кодируется кодом #80, а не #00?

[Advertiser]

[TomCaT]

ещё не забудь, что куча обращений типа A[x+1,y-2] на самом деле кишит остатками от деления на размер лабиринта (mod 64)

а насчёт начального квадрата, почему он кодируется кодом #80, а не #00?

Ничего не забуду. Общее оформление вот счас сделал, теперь алгоритм странслирую на Pascal, а там и экзешник сюда выложу.

чего то у мя игра виснет не запускается

игра ок. 20 кб, бейсик-коды в виде блока кодов, с дискеты как обычно грузятся в память повыше, а потом перемещаются на адрес 23296 (16384, не помню в оющем). В процессе перемещения могут быть убиты сиспеременные памяти 128-ых и старше. Поэтому запускайся в режиме 48.

А если и там не будет пахать, то где-то у меня z80-образ завалялся. Подойдёт?

[TomCaT]

а насчёт начального квадрата, почему он кодируется кодом #80, а не #00?

Кстати, понял - чтобы и не стенка, и не проход. Не проход - чтоб из старта не отводить новые пути при случ. поиске начала нового ответвления. Не стенка - чтоб не закрасить его очередным ответвлением.

[SMT]

уже сам понял. если края окантовать кодов #80 и стартовый квадрат переместить в середину, можно генерить лабиринты без циклического зацикливания по краям

[TomCaT]

без циклического зацикливания по краям

Шутка дня

Есть идеи насчёт убыстрения алгоритма анти-право/лево-рукоправильных лабиринтов-недеревьев?