View/Edit #2168:_confunc

Name(s): _confunc

1:  "Copied from Tribal_Chant (#2338):_confunc Mar 19 19:33:01 1999"
2:  if (!$perm_utils:is_called_from($login, "user_connected"))
3:    return E_PERM
4:  endif
5:  pass(@args)
6:  if (this.answering_machine == {})
7:    player:tell("There are no messages on your answering machine.")
8:  endif
9:  if (this.answering_machine)
10:   for msg in (this.answering_machine)
11:     if (length(msg) == 2)
12:       player:tell("Message from ", msg[1].name, ":")
13:       player:tell(msg[2])
14:     else
15:       player:tell("Message from ", msg[1].name, " at ", ctime(msg[2]), ":")
16:       player:tell(msg[3])
17:     endif
18:   endfor
19:   this:tell("Done.  Use @clearmsg to clear messages.")
20: endif
21: "$news:check()"
22: "Last modified by Avator (#2168) on Sun Mar 12 01:25:43 2000 MST."

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

You are not logged in.