#include <lib.h>

inherit LIB_DAEMON;
string *foenames = ({});

mixed cmd(string str) {
    object *foes = ({});
    object ob;
    string ret;
    foenames = ({});
    if(sizeof(str) && !creatorp(this_player())){
        if(find_player(lower_case(str)) != this_player())
            return "You can only know about your own enemies.";
    }
    if(!str) str = this_player()->GetKeyName();
    ob = find_player(lower_case(str));
    if(!ob) return "No such player found.";
    foes = ob->GetEnemies();
    if(!sizeof(foes)){
        ret = "No creatures bear ill will toward "+capitalize(str)+".";
    }
    else {
        ret = "The following creatures bear ill will toward "+ 
            capitalize(str)+": ";
        filter(foes, (: foenames += ({$1->GetShort()}) :) );
        ret += implode(foenames, ", ")+".";
    }
    return ret;
}

void help() {
    message("help",
            "Syntax: enemies\n"
            "This command reports who feels antagonism toward you.",
            this_player() );
}