@verb #7412:"press push hit bang smack depress" any on top of/on/onto/upon this rdo #9019
@program #7412:"press push hit bang smack depress" any on top of/on/onto/upon this
if (!(this.location in {player, player.location}))
  player:tell(this:dont_have_msg())
elseif ((this.where = this:getwhere(dobj, dobjstr)) == 0)
  player:tell(this:not_found_msg())
elseif (player.location == this.where)
  player:tell("Opening a portal from here to here would be... redundant...")
else
  player:tell(this:press_button_msg())
  player.location:announce(this:opress_button_msg())
  there = here = 0
  try
    here = this:make_portal(player.location, this.where)
    there = this:make_portal(this.where, player.location)
  except (E_QUOTA, E_TYPE)
    if (here)
      here:cancel()
    endif
    if (there)
      there:cancel()
    endif
    player:tell(this:failed_create_msg())
  endtry
endif
"Last modified by Mr.Underhill (#9019) on Thu Dec 27 21:46:40 2001 MST."
.