@verb #7407:"finger_player" this none this rxdo #7407
@program #7407:"finger_player" this none this
player:tell("Username: ", $string_utils:nn(this))
player:tell("Real name: Bradley Lawrence")
player:tell("Shell: /", toint(this), "/do_command")
player:tell(" ")
player:tell(@this:connected(0) ? {"Connected for ", $string_utils:from_seconds(this:connected_seconds()), " from ", $string_utils:connection_hostname(connection_name(this))} | {"Last On at ", this:ctime(this.last_disconnect_time)})
"****"
"Okay. now begins the fun mail checky thingy"
number = 0
for i in [length(this.messages)..1]
  if (this.current_message[2] >= this.messages[i][2][1])
    break
  else
    number = number + 1
  endif
endfor
player:tell(@number ? {number, " unread @mail messages."} | {"No unread messages."})
"woo. finally done the fun mail checky thingy."
"****"
player:tell(`this.project ! ANY' ? {" ", "Project:", @typeof(this.project) == $LIST ? this.project | {this.project}, " "} | {" ", "No project.", @`this.plan ! ANY' ? {" "} | {}})
player:tell(`this.plan ! ANY' ? {"Plan:", @typeof(this.plan) == $LIST ? this.plan | {this.plan}} | "No plan.")
"Last modified by Dax (#789) on Tue May  3 14:09:36 2005 MDT."
.