@verb #3512:"@invite(old)" any any any rxdo #6319
@program #3512:"@invite(old)" any any any
"Usage: @invite <player> [<extra args>]"
""
"Invites a person to join you in your room."
""
"Now calls <room>:invited(<extra args>) on the room you're in when you invite someone."
""
"Original verb by Lancer (#5999), modified for customizability etc by Raptor (#6319)."
this:update_usage("invite", player)
if (!args)
  return player:tell("Usage: invite &lt;player&gt; [&lt;extra args&gt;]")
endif
dobj = $command_utils:player_match_result($string_utils:match_local_player(args[1]), args[1])[2]
args = `args[2..$] ! E_RANGE => {}'
if (dobj.location == player.location)
  return player:sub_tell("%d is already here!")
endif
try
  if (`msg = player.location:invited(dobj, altmsg = $string_utils:from_list(args, " ")) ! E_PERM' == E_PERM)
    return player:tell("Sorry, you're not allowed to invite people into this room.")
  endif
except (ANY)
  msg = altmsg
endtry
!player:controls(player.location) && player.location:sub_announce("%n  %1  %n~l%2.", dobj, msg ? tostr(" ", msg) | "")
dobj:sub_tell("You have been invited by %n to @join %n~o in %n~l%1.", msg ? tostr(" ", msg) | "")
player:sub_tell("You invite %d to @join you.")
"Last modified by Dax (#789) on Thu Nov  8 11:38:33 2001 MST."
.