@verb #3008:"invite" any none none rdo #6319
@program #3008:"invite" any none none
if (!argstr || !`is_player(who = this:match(args[1])) ! ANY => 0')
  return player:tell("Usage: invite [player]")
elseif (who.location != this)
  return player:tell("Use @invite to invite people to the Cafe.")
endif
i = 0
priv = ""
for x in [1..length(this.p_tables)]
  if (i = player in this.p_tables[x])
    priv = "Private "
    ii = i
  endif
endfor
if (!priv)
  for x in [1..length(this.tables)]
    if (i = player in this.tables[x])
      ii = i
    endif
  endfor
endif
if (!ii)
  return player:tell("You have to be sitting, first.")
endif
$msg:mtell({who, "i"}, "invited", who, ii, priv)
priv && (this.p_invited[ii] = setadd(this.p_invited[ii], who))
"Last modified by Raptor (#6319) on Wed May  5 02:23:11 1999 MDT."
.