View/Edit #13:@mess*ages

Name(s): @mess*ages

1:  "Copied from Generic Player (#12):@mess by Slacker (#55) Nov  6 13:59:25 2002"
2:  set_task_perms(player)
3:  if ($command_utils:object_match_failed(dobj, dobjstr))
4:    return
5:  endif
6:  found_one = 0
7:  props = $object_utils:all_properties(dobj)
8:  if (typeof(props) == $ERR)
9:    player:tell("You can't read the messages on that.")
10:   return
11: endif
12: for pname in (props)
13:   len = length(pname)
14:   if (len > 4 && pname[1..4] == "msg_")
15:     found_one = 1
16:     try
17:       msg = dobj.(pname)
18:       mname = pname[5..$]
19:     except (E_PERM)
20:       player:sub_tell("@%1 #%d~# is ...unreadable...", mname)
21:       continue
22:     endtry
23:     if (!msg)
24:       player:sub_tell("@%1 #%d~# is ...not set...", mname)
25:     else
26:       player:tell("@", mname, " ", tostr(dobj), " is ", toliteral($html_utils:literal_text(msg)))
27:     endif
28:   endif
29:   $command_utils:suspend_if_needed()
30: endfor
31: if (!found_one)
32:   player:tell("That object has no messages.")
33: endif
34: "Last modified by Dax (#789) on Tue May  3 13:45:56 2005 MDT."

Verb arguments: any none none
Verb perms: Readable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.