/* /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;
}