/*No error messages or anything yet.*/

void main( string who) {
  object *usr;
  int i;
  int flag;
  string what;
  
  sscanf(who, "%s %s", who, what);
  
  what = capitalize(what);

  usr = USER_D->query_users();
  flag = 0;
    for ( i = 0; i < sizeof (usr); i++) {
      if ((usr[i]->query_player()->query_environment() == this_environment()) && (usr[i]->query_player()->query_name() == who)) {
	usr[i]->query_player()->message( capitalize(this_player()->query_name()) + " whispers to you: " + what + "\n");
	write( "You whisper to " + capitalize(who) + ": " + what + "\n");
	this_player()->query_environment()->tell_room(this_player(), capitalize(this_player()->query_name()) + " whispers something to " + capitalize(who) + ".\n", usr[i]->query_player());
	flag = 1;
      }
    }
  if (flag == 0) {
    write("Who did you want to whisper to?\n");
  }
}