1b8
@verb #3136:"summon" any none none rxd #2633
@program #3136:"summon" any none none
$dperms:only_owner()
{who, moi} = {$su:match_player(argstr), this.owner}
if (toint(who) < 0)
  return player:tell("Who?")
endif
who.location:sub_announce_all(who:msg_odepart(), moi, who)
moi.location:sub_announce_all(who:msg_oarrive(), moi, who)
move(who, moi.location)
return 1
"Last modified by Dax (#789) on Tue May  3 14:11:57 2005 MDT."
.

0