3b8
@verb #4:"controls controls_norec" this none this rxd #55
@program #4:"controls controls_norec" this none this
{what} = args
try
  if (this == what.owner || this == what || this.wizard)
    return 1
  endif
except (E_INVIND, E_TYPE)
  return 0
endtry
if (!$recycler:valid(what))
  return this.wizard
endif
if (verb != "controls_norec")
  checked = {}
  tocheck = `what.owner.teachers ! E_PROPNF => {}'
  while (tocheck)
    if (this:controls_norec(tocheck[1]))
      return 1
    else
      checked = setadd(checked, tocheck[1])
      tocheck = {@tocheck, @$set_utils:difference(tocheck[1].teachers, checked)}
      tocheck[1..1] = {}
    endif
  endwhile
endif
return 0
"Last modified by whiz (#3135) on Fri Sep  7 13:39:44 2001 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.

0