gurba-0.40/
gurba-0.40/bin/
gurba-0.40/lib/
gurba-0.40/lib/cmds/guild/fighter/
gurba-0.40/lib/cmds/monster/
gurba-0.40/lib/cmds/race/catfolk/
gurba-0.40/lib/cmds/race/dwarf/
gurba-0.40/lib/cmds/verb/
gurba-0.40/lib/daemons/data/
gurba-0.40/lib/data/boards/
gurba-0.40/lib/data/messages/
gurba-0.40/lib/data/players/
gurba-0.40/lib/design/
gurba-0.40/lib/domains/gurba/
gurba-0.40/lib/domains/gurba/guilds/fighter/
gurba-0.40/lib/domains/gurba/monsters/
gurba-0.40/lib/domains/gurba/objects/armor/
gurba-0.40/lib/domains/gurba/objects/clothing/
gurba-0.40/lib/domains/gurba/objects/weapons/
gurba-0.40/lib/domains/gurba/vendors/
gurba-0.40/lib/kernel/cmds/admin/
gurba-0.40/lib/kernel/daemons/
gurba-0.40/lib/kernel/include/
gurba-0.40/lib/kernel/lib/
gurba-0.40/lib/kernel/net/
gurba-0.40/lib/kernel/sys/
gurba-0.40/lib/logs/
gurba-0.40/lib/pub/
gurba-0.40/lib/std/modules/languages/
gurba-0.40/lib/std/races/
gurba-0.40/lib/std/races/monsters/
gurba-0.40/lib/wiz/fudge/
gurba-0.40/lib/wiz/spud/
gurba-0.40/src/host/beos/
gurba-0.40/src/host/pc/res/
gurba-0.40/src/kfun/
gurba-0.40/src/lpc/
gurba-0.40/src/parser/
gurba-0.40/tmp/
void main( string str ) {
  if( str == "" ) {
    int i;
    object *pSnooping;
    
    pSnooping = this_player()->query_snooping();
    if( pSnooping != 0 && sizeof( pSnooping ) > 0 ) { 
      this_player()->message( "You are snooping:" );
      for( i = 0; i < sizeof( pSnooping ); i++ ) {
	this_player()->message( capitalize( pSnooping[i]->query_name() ) );
      }
    } else {
      this_player()->message( "You are snooping noone." );
    }
  } else {
    object pPlayer;

    pPlayer = USER_D->find_player( str );

    if( pPlayer == this_player() ) {
      this_player()->message( "You can't snoop yourself." );
      return;
    }

    if( pPlayer == 0 ) {
      this_player()->message( "That player isn't here now." );
    } else {
      if( this_player()->is_snooping( pPlayer ) ) {
	this_player()->remove_snooping( pPlayer );
	pPlayer->remove_snoopee( this_player() );
      } else {
	int i;
	object *pSnooping;

	pSnooping = pPlayer->query_snooping();
	if( pSnooping != 0 && sizeof( pSnooping ) > 0 ) {
	  for( i = 0; i < sizeof( pSnooping ); i++ ) {
	    if( pSnooping[i]->query_name() == this_player()->query_name() ) {
	      this_player()->message( "He's already snooping you." );
	      return;
	    }
	  }
	}
	this_player()->add_snooping( pPlayer );
	pPlayer->add_snoopee( this_player() );
      }
    }
  }
}