"Usage: @domains";
"Wiz only!";
"Gives a list of domain suffixes, and how many";
"character/players have it.";
"Jason Nolan via EnCore list Nov 18,2001" ;
done = 0;
sitelist = {};
for p in (players())
   m = p.email_address;
   $command_utils:suspend_if_needed(0);
   site = m[rindex(m, ".") + 1..length(m)];
   if (rindex(m, ".") != 0)
     for s in [1..length(sitelist)]
       if (site == sitelist[s][1])
         sitelist[s][2] = sitelist[s][2] + 1;
         done = 1;
       endif
     endfor
     if (done == 0 && site)
       sitelist = listappend(sitelist, {site, 1});
     endif
   endif
   done = 0;
endfor
sites = sitelist;
sitelist = {};
maxnum = 0;
while (length(sites) > 0)
   for s in [1..length(sites)]
     $command_utils:suspend_if_needed(0);
     if (sites[s][2] > maxnum)
       maxnum = sites[s][2];
       index = s;
     endif
   endfor
   sitelist = listappend(sitelist, sites[index]);
   sites = listdelete(sites, index);
   maxnum = 0;
endwhile
player:tell("--- site info report ---");
player:tell("");
player:tell($string_utils:center("site suffix", 15) + 
$string_utils:center("#", 3));
player:tell("");
for s in [1..length(sitelist)]
   $command_utils:suspend_if_needed(0);
   player:tell($string_utils:center(sitelist[s][1], 15) + 
$string_utils:center(sitelist[s][2], 3));
endfor
player:tell("");
player:tell("------------------------");