2cb
@verb #7407:"do_cellphone_cmd" this none this rxdo #7407
@program #7407:"do_cellphone_cmd" this none this
{msg, from} = args
if (caller != this)
  raise(E_PERM)
endif
cmd = $string_utils:trim($list_utils:setremove_all(msg, "")[$])
this:tell("Received cellphone command: ", toliteral(cmd))
if (cmd == "who")
  connlist = $set_utils:intersection(connected_players(), this.friendlies)
  titlelist = $su:name_list(connlist)
  this:text_msg(tostr("WHO LISTING-> ", titlelist))
elseif (cmd == "who full")
  connlist = connected_players()
  titlelist = $su:name_list(connlist)
  this:text_msg(tostr("WHO LISTING-> ", titlelist))
endif
"Last modified by Cecil (#7407) on Fri Oct  5 14:50:15 2001 MDT."
.

0