View/Edit #9131:@aliases ll @owner

Switch to edit mode.

1:  "This verb was improve upon by Samson (#9131). All rights, copyrights, and other stuff belong to the original owner."
2:  "Copied from Lila (#9102):ll Oct 19 18:43:30 2000"
3:  "Copied from ChocolateGuy (#4813):ll Jun 22 11:56:34 2000"
4:  what = this:my_match_object(dobjstr)
5:  if (!valid(what))
6:    what = $su:match_player(dobjstr)
7:    if (!valid(what))
8:      biglist = $physical:descendants_suspended()
9:      what = $su:match_suspended(dobjstr, biglist, "name", biglist, "aliases")
10:     if (!valid(what))
11:       return $cmd_utils:object_match_failed(what, dobjstr)
12:     endif
13:   endif
14: endif
15: player:tell("")
16: player:tell("-------------------------------------------------------------")
17: player:tell("")
18: player:tell("<u><b>Name:</u></b> ", what.name)
19: player:tell("<u><b>Title:</b></u> ", what:title())
20: player:tell("<u><b>Aliases:</u></b> ", $su:english_list(what.aliases))
21: player:tell("  <u><b>Shortest:</u></b> ", $list_utils:shortest(what.aliases))
22: player:tell("")
23: player:tell("-------------------------------------------------------------")
24: player:Tell("")
25: what:look_self()
26: player:Tell("")
27: player:tell("-------------------------------------------------------------")
28: player:Tell("")
29: player:tell("Owner: ", what.owner:nn())
30: player:tell("")
31: player:tell("r: ", what.r, "; w: ", what.w, "; f: ", what.f)
32: player:tell("")
33: player:tell("-------------------------------------------------------------")
34: player:tell("")
35: player:tell("<u><b>Verbs:</u></b> ", toliteral(what:verbs()))
36: player:tell("")
37: player:tell("-------------------------------------------------------------")
38: player:tell("")
39: player:tell("<u><b>Files:</u></b> ", toliteral(what:filelist()))
40: player:tell("")
41: player:tell("-------------------------------------------------------------")
42: player:tell("")
43: player:tell("<u><b>Props:</u></b> ", toliteral(what:properties()))
44: player:tell("")
45: player:tell("-------------------------------------------------------------")
46: player:tell("")
47: "Last modified by Samson (#9131) on Sat Oct 21 04:42:30 2000 MDT."

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