View/Edit #12:@find

Switch to edit mode.

Name(s): @find
1:  "Lists all rooms who's name start with the input string."
2:  if (!argstr)
3:    return player:tell("You must give the name of some room.")
4:  endif
5:  rooms = $room_db:find_all(argstr)
6:  if (!rooms)
7:    $msg:mtell("not_exist", argstr)
8:  else
9:    for r in (rooms)
10:     player:tell("  ", $string_utils:nn(r))
11:     path = $room_db:path_between(player.location, r, player)
12:     if (path == E_NACC)
13:       player:tell("    [no path from here to there]")
14:     elseif (path == {})
15:       player:tell("    [you are here]")
16:     else
17:       go = "go"
18:       for x in (path)
19:         go = tostr(go, " ", x.name)
20:       endfor
21:       go = $su:lowercase(go)
22:       player:tell("    <A XCH_CMD=\"", go, "\">", go, "</A>")
23:     endif
24:   endfor
25: endif
26: "Last modified by Dax (#789) on Mon Jun 12 15:59:44 2006 MDT."

Verb arguments: any any any
Verb perms: Readable NOT-Debug
Verb owned by: Hacker (#60)

You are not logged in.

[home | help | who | search | setup | code]