24d
@verb #58:"cart_player" this none this rxdo #789
@program #58:"cart_player" this none this
$perm_utils:can_hack() || raise(E_PERM)
{who} = args
if (!is_player(who) || (who.wizard && who.no_cart) || who in connected_players())
  return E_INVARG
endif
where = who.location
home = who.home
player = this
set_task_perms(this)
if (where == home || where == $limbo)
  return E_NONE
endif
$msg:mtell(who, "cartoff", who)
this:send_home(who)
if (who.location == home)
  $msg:mtell(who, "dropoff", who)
endif
"Last modified by Cecil (#7407) on Thu Jan 23 22:53:57 2003 MST."
.

0