inherit "std/room";

#define POINTS_NEEDED   100
#define QUEST_DIR	"/domains/Praxis/quests/"

void init() {
    ::init();
    if(!archp(this_player())) this_player()->remove();
}

void create() {
  string *quest_ls;
  int i;
  ::create();
    set_property("light", 1);
    set_short( "Quest room");
    set_long( "Quests are stored here.");
    quest_ls = get_dir(QUEST_DIR);
    if(!sizeof(quest_ls)) return;
    for(i=0; i<sizeof(quest_ls); i++) {
	new(QUEST_DIR+quest_ls[i])->move(this_object());
    }
}

void list_quests(object tp, int x) {
    object *inv;
    int i;
    string *quest_list;

    inv = all_inventory(this_object());
    if(!sizeof(inv)) {
	tell_object(tp, "There are no quests.");
	return;
    }
    quest_list = ({});
    for(i=0; i<sizeof(inv); i++) {
	if(member_array((string)inv[i]->query_name(), (string *)tp->query_quests()) == -1) quest_list += ({ inv[i] });
    }
    if(!x) {
        tell_object(tp, "There are "+sizeof(quest_list)+" quests you "
		    "have not solved. They are these quests:\n");
	for(i=0; i<sizeof(quest_list); i++) {
	    tell_object(tp, (i+1)+": "+(string)present(quest_list[i], this_object())->query_short()+"\n");
	}
    }
    else {
	if(x > sizeof(quest_list)) {
	    tell_object(tp, "No such quest.\n");
	    return;
	}
	tell_object(tp, (string)present(quest_list[x-1], this_object())->query_long());
    }
}

int query_quest_points(string str) {
    int x;
    object ob;

    ob = present(str);
    x = (int)ob->query_quest_points();
    return x;
}

int check_quests(object tp, int lev) {
    int qp;
    string *list;

   qp= (int)tp->query_quest_points();
    if(lev>=5) if(qp < POINTS_NEEDED/4) return 0;
    else if(lev >= 10) if(qp < POINTS_NEEDED/2) return 0;
    else if(lev >= 15) if(qp < (3*POINTS_NEEDED)/4) return 0;
    else if(lev > 19) if(qp < POINTS_NEEDED) return 0;
    return 1;
}

void clean_up() { return; }