string query_door(object what, string direction){
    string door = what->GetDoor(direction);
    object puerta;
    if(!door) return "#";
    else {
	puerta = load_object(door);
	if(!puerta) return "#";
	if(puerta->GetClosed()) return "O";
	return "#";
    }
    return " ";
}

varargs string simple_map(mixed arg){
    string *exits;
    string *extra_desc = ({});
    string ret = "";
    string line0 = "---------\n";
    string line6 = "---------\n";
    string line1 = "|       |\n";
    string line2, line3, line4, line5;
    line2 = line3 = line4 = line5 = line1;
    if(!arg && !this_player()) return "";
    if(!arg) arg = environment(this_player());
    if(stringp(arg)) arg = load_object(arg);
    if(living(arg) || arg->GetMount()) arg = environment(arg);
    if(!arg) return "";
    exits = arg->GetExits();
    if(!exits || !sizeof(exits)) return "";
    line3[4..4] = "*";

    foreach(string element in exits){
	switch(element){
	case "north" : line1[4..4] = query_door(arg, element); line2[4..4] = "|";break;
	case "south" : line5[4..4] = query_door(arg, element); line4[4..4] = "|";break;
	case "east" : line3[7..7] = query_door(arg, element); line3[5..5] = "-";line3[6..6] = "-";break;
	case "west" : line3[1..1] = query_door(arg, element); line3[2..2] = "-";line3[3..3] = "-";break;
	case "northeast" : line1[7..7] = query_door(arg, element); line2[6..6] = "/";break;
	case "northwest" : line1[1..1] = query_door(arg, element); line2[2..2] = "\\";break;
	case "southeast" : line5[7..7] = query_door(arg, element); line4[6..6] = "\\";break;
	case "southwest" : line5[1..1] = query_door(arg, element); line4[2..2] = "/";break;
	    //case "up" : extra_desc += ({ "up" });break;
	    //case "down" : extra_desc += ({ "down" });break;
	default : extra_desc += ({ element });break;
	}
    }
    if(sizeof(extra_desc)){
	line3 = replace_string(line3,"\n"," Also available: "+item_list(extra_desc)+".\n");
    }
    ret = line0 + line1 + line2 + line3 + line4 + line5 +line6;
    return ret;
}