47e
@verb #8438:"bdays" none none none rdo #8438
@program #8438:"bdays" none none none
"Copied from Avenger (#8219):bdays Nov  1 20:20:00 2000"
"First, find all people with .real_bday set."
unsortedPeople = {}
for p in ($player:descendants())
  if (`p.real_bday ! ANY => 0')
    unsortedPeople = {@unsortedPeople, p}
  endif
  $command_utils:suspend_if_needed(0)
endfor
"Use a bubble sort routine - descending by birthday."
sortedPeople = unsortedPeople
for outerPeople in [1..length(sortedPeople)]
  for innerPeople in [1..length(sortedPeople)]
    if (sortedPeople[outerPeople].real_bday < sortedPeople[innerPeople].real_bday)
      temp = sortedPeople[innerPeople]
      sortedPeople[innerPeople] = sortedPeople[outerPeople]
      sortedPeople[outerPeople] = temp
    endif
    $command_utils:suspend_if_needed(0)
  endfor
endfor
infoPeople = {}
for person in (sortedPeople)
  infoPeople = {@infoPeople, {$string_utils:nn(person), ctime(person.first_connect_time), ctime(person.real_bday)}}
  $command_utils:suspend_if_needed(0)
endfor
this:tellcolumns({30, 1, 1}, {"Player", "First Connect", "Birthday"}, @infoPeople)
.

0