3cb
@verb #3852:"kagen" none none none rdo #3852
@program #3852:"kagen" none none none
"Programmed by Quadir (#9780) and HIghos (#3852)"
caller == this || raise(E_PERM)
who = #1186
try
  info = who:view()
except (E_PERM)
  return player:tell("You do not have permission to check that person's online status.")
endtry
player:tell(who:title(), " is ", info[1] ? "connect" | "disconnect", "ed.")
noun = $cecil_utils:pronoun(who, "She")
if (info[1])
  player:tell(noun, " has been connected for ", $time_utils:english_time(info[2]))
  player:tell(noun, " has been idle for ", $time_utils:english_time(info[3]))
  player:tell(noun, " is located at ", $su:nn(who.location))
else
  player:tell("Due to the fact that she is goes invisible, no accurate reading of when she was last on and for how long could be taken.")
endif
player:tell("It is ", who:ctime(), " where ", who:title(), " is.")
"Last modified by HIghoS (#3852) on Tue Aug  8 11:08:08 2000 MDT."
.

0