Data update

This commit is contained in:
Ingy döt Net 2023-09-16 17:28:03 -07:00
parent 5af6d93694
commit 796d366b97
455 changed files with 7413 additions and 1900 deletions

View file

@ -21,15 +21,15 @@ offs[] = [ 1 n -1 (-n) ]
#
proc m_maze pos . .
m[pos] = 0
call show_maze
show_maze
d[] = [ 1 2 3 4 ]
for i = 4 downto 1
d = random i
dir = offs[d[d]]
d[d] = d[i]
if m[pos + dir] = 1 and m[pos + 2 * dir] <> 0
if m[pos + dir] = 1 and m[pos + 2 * dir] = 1
m[pos + dir] = 0
call m_maze pos + 2 * dir
m_maze pos + 2 * dir
.
.
.
@ -45,9 +45,9 @@ proc make_maze . .
m[n * n - n + i] = 2
.
h = 2 * random 15 - n + n * 2 * random 15
call m_maze h
m_maze h
m[endpos] = 0
endpos += n
.
call make_maze
call show_maze
make_maze
show_maze