@verb #4529:"init_maze" this none this rxdo #3135
@program #4529:"init_maze" this none this
this.atick = 1
t = this
ms = args[1]
q = $list_utils:make(ms, $list_utils:make(ms, ""))
for i in [1..ms]
  q[i][1] = q[i][1] + this.wall[4]
  q[1][i] = q[1][i] + this.wall[1]
  q[ms][i] = q[ms][i] + this.wall[3]
  q[i][ms] = q[i][ms] + this.wall[2]
endfor
wall = random(4)
i = this:ret_i(wall, ms)
j = this:ret_j(wall, ms)
if (index(q[i][j], this.wall[wall]))
  q[i][j] = this:strzap(q[i][j], this.wall[wall])
endif
q[i][j] = q[i][j] + this.start_l + this.dr_in[wall] + tostr(wall)
t.start = t.cur_sq = {i, j}
t.start_dir = wall
wall = (wall + 1) % 4 + 1
i = this:ret_i(wall, ms)
j = this:ret_j(wall, ms)
if (index(q[i][j], this.wall[wall]))
  q[i][j] = this:strzap(q[i][j], this.wall[wall])
endif
q[i][j] = q[i][j] + this.end_l + this.dr_o[wall] + tostr(wall)
t.end_sq = {i, j}
t.end_dir = wall
t.maze_layout = q
t.move_list = {}
t.dir = t.start_dir
t.sqnum = 1
"Last modified by whiz (#3135) on Mon Apr 26 20:15:52 1999 MDT."
.