1c4
@verb #1606:"is_entrance" this none this rxdo #833
@program #1606:"is_entrance" this none this
{x} = args
if (typeof(x) == $OBJ && !x:isa($exit) || (typeof(x) == WAIF && x.class != $vexit) || !`x.dest == this ! E_INVIND => 0')
  return 0
elseif (this.free_entry || typeof(this.entrances) != $LIST)
  return 1
else
  return x.owner:controls(this) || x in this.entrances
endif
"Last modified by Dax (#789) on Wed May  4 06:46:02 2005 MDT."
.

0