Switch to edit mode.
Name(s): @owner1: meh = this:my_match_object(dobjstr)
2: if (!valid(meh))
3: meh = $su:match_player(dobjstr)
4: if (!valid(meh))
5: LIST = $physical:descendants_suspended()
6: meh = $su:match_suspended(dobjstr, LIST, "name", LIST, "aliases")
7: if (!valid(meh))
8: return $cmd_utils:object_match_failed(meh, dobjstr)
9: endif
10: endif
11: endif
12: player:tell("<b><u>Name</U>:</b> ", meh.name)
13: player:tell("<b><u>Title</U>:</b> ", meh:title())
14: player:tell("<b><u>Aliases</U>:</b> ", $su:english_list(meh.aliases))
15: player:tell("<b><u>Type</u>:</b> ", $code_utils:classify_object(meh))
16: player:tell("-------------------------------------------------------------")
17: player:tell("<b><u>Owner</U>:</b> ", meh.owner:nn())
18: player:tell("r: ", meh.r, "; w: ", meh.w, "; f: ", meh.f)
19: player:tell("-------------------------------------------------------------")
20: player:tell("<b><u>Verbs</U>:</b> ", toliteral(meh:verbs()))
21: player:tell("-------------------------------------------------------------")
22: player:tell("<b><u>Props</U>:</b> ", toliteral(meh:properties()))
23: player:tell("-------------------------------------------------------------")
24: player:tell("<b><u>Files</U>:</b> ", toliteral(meh:filelist()))
25: "Last modified by Jescor (#9362) on Mon Mar 6 13:07:12 2006 MST."