@verb #5451:"heel summon call" any any any rxdo #7407
@program #5451:"heel summon call" any any any
caller_perms() == player || raise(E_PERM)
object = #5451:_match_pet(argstr)
if (toint(object) < 0)
  if (object == $ambiguous_match)
    player:tell("More than one object matches \"" + argstr + "\"")
  elseif (object == $failed_match)
    player:tell("Couldn't Find \"" + argstr + "\"!")
  endif
else
  if (object.owner != player)
    return E_PERM
  else
    this = object
    object.location:sub_announce(object:msg_odepart(), player, object)
    player.location:sub_announce(object:msg_oarrive(), player, object)
    object:moveto(player.location)
    return 1
  endif
endif
"Last modified by Dax (#789) on Tue May  3 14:11:58 2005 MDT."
.