/* /lib/detect.c
 * from the Dead Souls LPC Library
 * inheritable object for all tangible game objects
 * created by Descartes of Borg 950207
 */

#include <dirs.h>
#include "include/detect.h"

int direct_detect_wrd_in_obj(string word) {
    if( environment() != this_player() &&
      environment() != environment(this_player()) ) {
	this_player()->eventPrint("You need better access to it.");
	return 0;
    }
    else return 1;
}

mixed eventDetect(object who, string str, int ability) {
    mixed magic;

    magic = GetProperty("magic item");
    if( str == "magic" ) {
	if( !magic ) {
	    if( random(ability) > 50 ) {
		who->AddSkillPoints("conjuring", random(ability * 2 + 1));
		message("my_action", "You are certain there is no magic "
		  "in " + GetShort() + ".", who);
		return 1;
	    }
	    else {
		string *spells;
		string spell;

		if( random(ability) > 50 ) {
		    who->AddSkillPoints("conjuring", random(ability));
		    message("my_action", "You do not detect any magic "
		      "in " + GetShort() + ".", who);
		    return 1;
		}
		who->AddSkillPoints("conjuring", random(5));
		spells = map(get_dir(DIR_SPELL_VERBS + "/*.c"), (: $1[0..<3] :));
		spell = spells[random(sizeof(spells))];
		message("my_action", "You vaguely sense \"" + spell + "\".",
		  who);
		return 1;
	    }
	}
	else {
	    string *spells;
	    string spell;

	    if( random(ability) > 20 ) {
		who->AddSkillPoints("conjuring", random(1 + 2* ability));
		if( arrayp(magic) ) magic = magic[random(sizeof(magic))];
		if( random(ability) > 50 )
		    message("my_action", "You definitely sense \"" +
		      magic + "\".", who);
		else message("my_action", "You vaguely sense \"" + magic +
		      "\".", who);
		return 1;
	    }
	    who->AddSkillPoints("conjuring", random(5) + 1);
	    if( random(ability) > 50 ) {
		message("my_action", "You do not detect any magic "
		  "in " + GetShort() + ".", who);
		return 1;
	    }
	    spells = map(get_dir(DIR_SPELL_VERBS + "/*.c"), (: $1[0..<3] :));
	    spell = spells[random(sizeof(spells))];
	    message("my_action", "You vaguely sense \"" + spell + "\".", who);
	    return 1;
	}
    }
    if( !magic ) {
	if( random(ability) > 20 ) {
	    who->AddSkillPoints("conjuring", random(ability) + 5);
	    message("my_action", "You do not sense " + str + ".", who);
	}
	else {
	    who->AddSkillPoints("conjuring", random(5));
	    message("my_action", "You are not at all certain.", who);
	}
	return 1;
    }
    if( (arrayp(magic) && member_array(str, magic) != -1) ||
      (stringp(magic) && str == magic) ) {
	if( random(ability) > 10 ) {
	    who->AddSkillPoints("conjuring", random(ability));
	    message("my_action", "You sense " + str + " in " +
	      GetShort() + ".", who);
	}
	else {
	    who->AddSkillPoints("conjuring", random(5));
	    message("my_action", "Everything seems fuzzy in your head.", who);
	}
	return 1;
    }
    if( random(ability) > 10 ) {
	who->AddSkillPoints("conjuring", random(ability));
	message("my_action", "You do not sense " + str + " in " +
	  GetShort() + ".", who);
	return 1;
    }
    who->AddSkillPoints("conjuring", random(5));
    message("my_action", "Everything seems fuzzy in your head.", who);
    return 1;
}