#include <standard.h>
#include <cmd.h>
inherit CMD_BASE;
void setup()
{
position = 1;
}
static int cmd(string str, object me) {
mapping m ;
string s ;
m = ([ ]) ;
foreach( object ob in objects() )
{
if( clonep( ob ) && !environment( ob ) && inherits( "/std/object", ob ))
{
m[base_name( ob )]++ ;
}
}
s = "" ;
s += "leaked object list\n" ;
foreach( string k, int v in m )
{
s += sprintf( " %-40s : %d\n", k, v ) ;
}
tell_object( TP, s ) ;
return 1 ;
}