@verb #2030:"gi*ve ha*nd" this at/to any rxdo #987
@program #2030:"gi*ve ha*nd" this at/to any
"Copied from Generic Thing&&Chose generique (#5):give by Optimus_Prime (#2) Fri Apr 28 15:42:56 1995 EDT"
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")
else
  this:moveto(iobj)
  $msg:mtell({iobj, "i"}, this.location == iobj ? "give" | "give_failed")
endif
"Last modified by Dax (#789) on Wed Jun  3 09:06:20 1998 EDT."
.