34c
@verb #7351:"invited @invite" any any any rxdo #55
@program #7351:"invited @invite" any any any
if (!this:controlled_by(player))
  player:tell(E_PERM)
  return E_PERM
endif
time = iobjstr ? $time_utils:parse_english_Time_interval(iobjstr) | 3600
who = $su:match_player(args[1])
if ($command_utils:player_match_failed(who, args[1]))
  return
endif
if (!$cmd_utils:yes_or_no("Allow " + who:title() + " access to this apartment for " + $time_utils:english_time(time) + "?"))
  return player:tell("Ok, not allowing access.")
endif
player:tell("Allowing access.")
this.invites = {@this.invites, who}
$clock:schedule(this, "remove_invite", {who}, 0, 0, time)
who:tell("You are invited to ", this:title(), " for the next ", $time_utils:english_time(time), "!")
"Last modified by Lao-Tzu (#8084) on Mon Nov  1 18:42:48 1999 MST."
.

0