@verb #4529:"_constructor" this none this rxdo #3135
@program #4529:"_constructor" this none this
"Begin generic security check (_constructor)"
if (verb == "_constructor" && caller_perms() != #-1)
  raise(E_PERM)
  return E_PERM
endif
"End generic security check (_constructor)"
what = args[1]
fork (0)
  $msg:mtell("calc")
  l = parent(args[1]).location
  sz = l.last_set[1] == player ? l.last_set[2] | this.size
  this.size = sz
  args[1]:create_maze(sz)
  dobjstr = prepstr = ""
  while (player.location:has_tick(player) == 0)
    suspend(1)
  endwhile
  args[1].dir = (args[1].dir + 1) % 4 + 1
  suspend(0)
  args[1].create_time = time()
  player.location:look()
  #3388:message("NEW")
endfork
"Last modified by Lao-Tzu (#8084) on Mon Dec 17 14:29:16 2001 MST."
.