// Asmodean 4-13-97
// Count Object Types
// Taken from Lima Lib object as a test
//
#include <cmd.h>
inherit CMD_BASE;
int cmd(string args, object me)
{
int min;
mapping counts = ([ ]);
objects((: $(counts)[base_name($1)]++ :));
if (!args)
min = 2;
else
sprintf(min, "%i", args);
counts = filter(counts, (: $2 > $(min) :));
write(sprintf("%O\n", counts));
return 1;
}