567
@verb #12:"@lastlog" any none none rdo #60
@program #12:"@lastlog" any none none
"Prints the time and date that the specified player(s) logged on."
if (caller != this)
  return $msg:mtell("huh")
elseif (args)
  for dude in (listdelete($command_utils:player_match_result($string_utils:match_player(args), args), 1))
    if (dude.last_connect_time > time())
      player:sub_tell("%1 requested a character on %2, but hasn't logged in yet.", dude, player:ctime(dude.last_disconnect_time))
    else
      player:sub_tell(dude.last_connect_time < dude.last_disconnect_time ? "%1 last connected on %2 and then disconnected %4 later on %3." | "%1 last disconnected on %3 and then reconnected on %2", dude, player:ctime(dude.last_connect_time), player:ctime(dude.last_disconnect_time), $su:from_seconds(dude.last_disconnect_time - dude.last_connect_time))
    endif
    if (dude:isa($guest))
      "Guests don't login from the web."
    elseif (dude.last_web_time)
      player:sub_tell("%1 was last logged in on the web %3 ago on %2.", dude, player:ctime(dude.last_web_time), $su:from_seconds(time() - dude.last_web_time))
    else
      player:sub_tell("%1 has never logged in using the web.", dude)
    endif
  endfor
else
  player:tell("Usage:  @lastlog &lt;player&gt; [&lt;player&gt;...]")
endif
"Last modified by Dax (#789) on Sat Aug 24 21:47:01 2002 MDT."
.

0