@verb #8043:"icq" none none none rdo #8043
@program #8043:"icq" none none none
"Copied from James (#6397):icq Nov  4 20:10:05 2001"
"Copied from The_spider (#7446):icq Apr  4 16:24:58 1999"
"Copied from Niki (#7941):icq Mar 20 12:57:30 1999"
for i in (players())
  if (i:has_property("icq"))
    player:tell(tostr($string_utils:left(tostr(i:title(), " (", i, ")"), 30), " ", i.icq))
  endif
endfor
player:tell("----- End -----")
.