View/Edit #331:search_players

Name(s): search_players

1:  {data} = args
2:  set_task_perms(caller_perms())
3:  player:tell("Searching for <B>players</B> named <I>", $html_utils:literal_text(data), "</I>...<P>")
4:  players = $player_db:find_all(data)
5:  if (players)
6:    info = {{"Player", "Rank", "Location", "Status"}}
7:    for dude in (players)
8:      $command_utils:suspend_if_needed()
9:      loc = dude.location
10:     status = $object_utils:connected(dude) ? "Logged in" | "Disconnected"
11:     info = {@info, {tostr($web:link(dude), " (", dude, ")"), dude:rank(), tostr($web:link(loc), " (", loc, ")"), status}}
12:   endfor
13:   player:tellColumns({40, 15, 40, 15}, @info)
14: else
15:   player:tell("Sorry, there are no players on the MOO registered by that name.")
16: endif
17: "Last modified by Dax (#789) on Sun Jul 10 11:54:36 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Dax (#789)

You are not logged in.