3bb
@verb #8438:"finger_player" this none this rxdo #8438
@program #8438:"finger_player" this none this
"Hey, don't poke me. . ."
"Return a, fairly, UNIX-y looking finger."
"Programmed by Jay (#8438). Feel Free to Copy and Use! :-)"
player:tell("Login: ", $string_utils:nn(this), $string_utils.tab, $string_utils.tab, $string_utils.tab, "Rank: ", this:rank())
player:Tell("Directory: ", this:basedir(), $string_utils.tab, $string_utils.tab, $string_utils.tab, "Shell: /moo/moousers")
player:tell(this:connected(1) ? tostr("On since: ", ctime(time() - connected_seconds(this))) | tostr("Last login: ", this:ctime(this.last_connect_time)))
mail = this:length_all_msgs() - this:length_date_le(this:get_current_message()[2])
if (mail)
  player:tell(mail, " unread mail message", length(mail) > 1 ? "s" | "", ".")
else
  player:tell("No Mail.")
endif
player:tell(`this.plan ? tostr("Plan: ", this.plan) | "No Plan." ! ANY => "No Plan."')
return
.

0