@verb #9699:"put place stick insert throw toss drop thrust push deposit lay set position" any in/inside/into this rdo #789
@program #9699:"put place stick insert throw toss drop thrust push deposit lay set position" any in/inside/into this
"Wizzed by Dax."
if (dobj == $failed_match)
  player:tell("What ", dobjstr, "?")
elseif (dobj == $ambiguous_match)
  player:tell("Which ", dobjstr, "? I see more than one.")
elseif (dobj == this)
  player:tell("Very cute... very cute... i think not.")
elseif (dobj == player)
  player:tell("Uh- no. Try 'enter portal' instead.")
elseif (player.location != this.location)
  player:tell("Try as you might, you just can't reach the portal.")
elseif (!(dobj.location in {player, player.location}))
  player:tell(dobj:title(), " is not within reach.")
else
  set_task_perms(player)
  player:tell(this:put_msg())
  `dobj:tell(this:uput_msg()) ! E_VERBNF'
  player.location:announce_all_but({player, dobj, this}, this:oput_msg())
  `dobj:moveto(this.dest) ! ANY'
  if (dobj.location != this.dest)
    `dobj:tell(this:reject_msg()) ! E_VERBNF'
    player.location:announce_all_but({this, dobj}, this:obreject_msg())
  else
    `dobj:tell(this:arrive_msg()) ! E_VERBNF'
    dobj.location:announce_all_but({dobj}, this:obarrive_msg())
  endif
endif
"Last modified by Dax (#789) on Sun Dec 30 20:21:34 2001 MST."
.