@verb #1518:"gi*ve ha*nd" this at/to any rxdo #833
@program #1518:"gi*ve ha*nd" this at/to any
dobj = this
if (this.location != player)
  $msg:mtell("not_have")
elseif (!valid(player.location))
  $msg:mtell("not_here", iobjstr)
elseif ($command_utils:object_match_failed(iobj = player.location:match_object(iobjstr), iobjstr))
elseif (iobj.location != player.location)
  $msg:mtell("not_here", iobjstr)
elseif (iobj == player)
  $msg:mtell("give_self")
elseif (!iobj:accept(this))
  $msg:mtell({iobj, "i"}, "give_failed")
elseif (!this:is_unlocked_for(iobj))
  $msg:mtell({iobj, "i"}, "give_failed")
else
  this:moveto(iobj)
  $msg:mtell({iobj, "i"}, this.location == iobj ? "give" | "give_failed")
endif
.