ff7
@verb #4457:"where" any any any rxdo #4457
@program #4457:"where" any any any
"Copied from Hudson (#8016):where Jun  6 20:51:26 2000"
"Copied from Rob-on-a-rope (#5772):where Oct 10 17:30:09 1999"
lines2 = {}
offlinedudes = {}
lines = {}
if (magots = args ? listdelete($command_utils:player_match_result($string_utils:match_player(args), args), 1) | connected_players())
  for dude in (magots)
    if (dude == #2440)
      where = `dude.location:msg_who_location(dude) ! ANY => `dude.location:title() ! ANY => dude.location.name''
      if (index($string_utils:explode($time_utils:english_time(dude.owner:idle_seconds()))[2], ","))
        idle = tostr($string_utils:explode($time_utils:english_time(dude.owner:idle_seconds()))[1], " ", $string_utils:explode($time_utils:english_time(dude:idle_seconds()))[2])[1..$ - 1]
      else
        idle = tostr($string_utils:explode($time_utils:english_time(dude.owner:idle_seconds()))[1], " ", $string_utils:explode($time_utils:english_time(dude.owner:idle_seconds()))[2])
      endif
      if (index($string_utils:explode($time_utils:english_time(#2774:player_age(dude.owner)))[2], ","))
        title = `dude:title() ! ANY => dude.name'
        lines = {@lines, {dude.owner:idle_second() ? tostr("", title) | dude:title(), tostr(dude), dude.orank, dude.owner.gender, tostr(tostr(#2774:player_Age(dude.owner) < 1209600 ? "*" | ""), $string_utils:explode($time_utils:english_time(#2774:player_Age(dude.owner)))[1], " ", $string_utils:explode($time_utils:english_time(#2774:player_Age(dude.owner)))[2])[1..$ - 1], idle, where, tostr(dude.location)}}
      else
        lines = {@lines, {dude.owner:idle_second() ? tostr("", dude:title()) | dude:title(), tostr(dude), dude.orank, dude.owner.gender, tostr(tostr(#2774:player_Age(dude) < 1209600 ? "*" | ""), $string_utils:explode($time_utils:english_time(#2774:player_Age(dude.owner)))[1], " ", $string_utils:explode($time_utils:english_time(#2774:player_Age(dude.owner)))[2]), idle, where, tostr(dude.location)}}
      endif
    elseif (dude in connected_players() && dude != #2440)
      where = `dude.location:msg_who_location(dude) ! ANY => `dude.location:title() ! ANY => dude.location.name''
      if (index($string_utils:explode($time_utils:english_time(dude:idle_seconds()))[2], ","))
        idle = tostr($string_utils:explode($time_utils:english_time(dude:idle_seconds()))[1], " ", $string_utils:explode($time_utils:english_time(dude:idle_seconds()))[2])[1..$ - 1]
      else
        idle = tostr($string_utils:explode($time_utils:english_time(dude:idle_seconds()))[1], " ", $string_utils:explode($time_utils:english_time(dude:idle_seconds()))[2])
      endif
      if (index($string_utils:explode($time_utils:english_time(`#2774:player_age(dude) ! ANY => $slacker.first_connect_time'))[2], ","))
        title = `dude:title() ! ANY => dude.name'
        $cmd_utils:suspend_if_needed(1)
        lines = {@lines, {dude:idle_seconds() ? tostr("", title) | title, tostr(dude), dude:rank(6), dude.gender, tostr(tostr(`#2774:player_Age(dude) ! ANY => $slacker.first_connect_time' < 1209600 ? "*" | ""), $string_utils:explode($time_utils:english_time(`#2774:player_Age(dude) ! ANY => $slacker.first_connect_time'))[1], " ", $string_utils:explode($time_utils:english_time(`#2774:player_Age(dude) ! ANY => $slacker.first_connect_time'))[2])[1..$ - 1], idle, where, tostr(dude.location)}}
      else
        title = `dude:title() ! ANY => dude.name'
        lines = {@lines, {dude:idle_second() ? tostr("", title) | dude:title(), tostr(dude), dude:rank(6), dude.gender, tostr(tostr(#2774:player_Age(dude) < 1209600 ? "*" | ""), $string_utils:explode($time_utils:english_time(#2774:player_Age(dude)))[1], " ", $string_utils:explode($time_utils:english_time(#2774:player_Age(dude)))[2]), idle, where, tostr(dude.location)}}
      endif
    else
      lastdisconnect = ctime(dude.last_disconnect_time)
      offlinedudes = {@offlinedudes, dude}
      where = `dude.location:msg_who_location(dude) ! ANY => `dude.location:title() ! ANY => dude.location.name''

0