View/Edit #331:search_rooms

Name(s): search_rooms

1:  {data} = args
2:  set_task_perms(caller_perms())
3:  player:tell("Searching for <B>rooms</B> named <I>", $html_utils:literal_text(data), "</I>...<P>")
4:  rooms = {@$room_db:find_all(data), @$room_db:find_all($su:a_or_an(data) + " " + data), @$room_db:find_all("The " + data)}
5:  if (rooms)
6:    info = {{"Room", "Owner"}}
7:    for room in (rooms)
8:      $command_utils:suspend_if_needed()
9:      owner = room.owner
10:     valid(room) && valid(owner) && (info = {@info, {tostr($web:link(room), " (", room, ")"), tostr($web:link(owner), " (", owner, ")")}})
11:   endfor
12:   player:tellColumns({40, 40}, @info)
13: else
14:   player:tell("Sorry, there are no rooms in the MOO with that name.")
15: endif
16: "Last modified by Dax (#789) on Sun Jul 10 11:56:22 2005 MDT."

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

You are not logged in.