@verb #7412:"make_portal" this none this rxdo #9019
@program #7412:"make_portal" this none this
if (caller != this && !caller_perms().wizard)
  raise(E_PERM)
endif
{source, dest} = args
if (is_player(dest))
  dest = dest.location
endif
if (this.debug)
  player:tell(source, " ", dest)
endif
portal = $recycler:create(this.portal_parent)
portal:initialize()
"Foo on nonstandard $recycler's!!!"
portal:setdest(dest)
portal:moveto(source)
portal:open()
return portal
"Last modified by Mr.Underhill (#9019) on Thu Dec 27 22:13:26 2001 MST."
.