@verb #4529:"cm_choose_door" this none this rxdo #3135
@program #4529:"cm_choose_door" this none this
can = {}
t = args[1]
x = this.cur_sq[1]
y = this.cur_sq[2]
for a in (this.chdr_help)
  if (this:cm_chdr_testwalldoor(t, a[1]))
    if (this:cm_chdr_anyin(this.maze_layout[x + a[3]][y + a[4]]))
      this.maze_layout[x][y] = this.maze_layout[x][y] + this.wall[a[1]]
      this.maze_layout[x + a[3]][y + a[4]] = this.maze_layout[x + a[3]][y + a[4]] + this.wall[a[2]]
    else
      can = {@can, a[1]}
    endif
  endif
endfor
return can ? can[random(length(can))] | -1
"Last modified by whiz (#3135) on Mon Apr 26 20:23:20 1999 MDT."
.