356
@verb #3207:"invite" any none none rdo #4017
@program #3207:"invite" any none none
invite = $recycler:valid(dobj) ? dobj | ($recycler:valid(match = $su:match_player(dobjstr)) ? match | "oops")
if (player != this.owner)
  return player:tell(tostr(E_PERM) + ".")
elseif (invite == "oops")
  return player:tell("Who is \"" + dobjstr + "\"?")
elseif (this:acceptable(invite))
  return player:sub_tell("%1 is already allowed to come in.", invite:title())
endif
this:sub_announce("%n invites %1 to join %n~o in %t.", invite:title())
player:sub_tell("You invite %1 to join you in %t.", invite:title())
invite:sub_tell("%n invites you to join %n~o in %t.")
this.allowed = setadd(this.allowed, invite)
fork (60 * 10)
  this.allowed = setremove(this.allowed, invite)
endfork
"Last modified by Patrick (#4017) on Fri Nov 30 20:17:46 2001 MST."
.

0