@verb #4529:"cm_make_maze" this none this rxdo #3135
@program #4529:"cm_make_maze" this none this
t = this
ms = args[1]
while (1)
  t.move_list = {@t.move_list, t.cur_sq}
  while ((newdoor = t:cm_choose_door(t)) == -1)
    if (t:cm_backup(t) == -1)
      return
    endif
    $command_utils:suspend_if_needed(0)
  endwhile
  t.maze_layout[t.cur_sq[1]][t.cur_sq[2]] = t.maze_layout[t.cur_sq[1]][t.cur_sq[2]] + t.dr_o[newdoor]
  if (newdoor == 1)
    t.cur_sq[1] = t.cur_sq[1] - 1
  elseif (newdoor == 2)
    t.cur_sq[2] = t.cur_sq[2] + 1
  elseif (newdoor == 3)
    t.cur_sq[1] = t.cur_sq[1] + 1
  else
    t.cur_sq[2] = t.cur_sq[2] - 1
  endif
  t.sqnum = t.sqnum + 1
  t.maze_layout[t.cur_sq[1]][t.cur_sq[2]] = t.maze_layout[t.cur_sq[1]][t.cur_sq[2]] + t.dr_in[(newdoor + 1) % 4 + 1]
  $command_utils:suspend_if_needed(0)
endwhile
"Last modified by whiz (#3135) on Mon Apr 26 20:25:06 1999 MDT."
.