mud/lib/lib/leader.c

/*    /domains/Ylsrim/npc/leader.c
 *    from the Dead Souls Object Library
 *    class leader inheritable
 *    created by Descartes of Borg 951115
 *    Version: @(#) leader.c 1.5@(#)
 *    Last modified: 96/11/24
 */

#include <lib.h>
#include <daemons.h>
#include <message_class.h>
#include "include/leader.h"

inherit LIB_SENTIENT;

int eventTeachPlayer(object who, string spell);

static void create(){
    sentient::create();
}

mixed eventAsk(object who, string str){
    string cmd, args;
    mixed tmp;
    string lang, prof, orig = str;

    lang = who->GetDefaultLanguage();
    prof = who->GetLanguageLevel(lang);
    str = translate(str, prof);
    prof = this_object()->GetLanguageLevel(lang);
    str = translate(str, prof);

    if( (tmp = sentient::eventAsk(who, orig)) == 1 ) return 1;
    if( !str || str == "" ){
        eventForce("speak ask me to what? To describe " + 
                (GetClass() || "thing") + "s?");
        return 1;
    }
    if( sscanf(str, "%s %s", cmd, args) != 2 ){
        cmd = str;
        args = 0;
    }
    switch(cmd){
        case "describe": case "preview": case "explain":
            eventPreview(who, args);
            break;

        case "convert":
            eventConvert(who, args);
            break;

        case "join": case "become": case "be":
            eventJoin(who, args);
            break;

        case "teach":
            eventTeachPlayer(who, args);
            break;

        default:
            eventForce("speak I am not sure what you want");
            if( who->GetClass() ){
                eventForce("speak do you mean to ask me to teach a spell?");
            }
            else {
                eventForce("speak do you mean to ask me to describe " +
                        pluralize((GetClass()||"thing")) + "?");
            }
            break;
    }
    return 1;
}

void eventConvert(object who, string args){
    if( GetSkillLevel("faith") < 1 ){
        eventForce("speak I don't do conversions");
        return;
    }
    if( !args || args == "" ){
        eventForce("speak convert whom?");
        return;
    }
    if( args != "me" ){
        object ob;

        ob = present(args, environment());
        if( !ob ){
            eventForce("speak I don't see any such thing here");
            return;
        }
        if( !living(ob) ){
            eventForce("laugh");
            eventForce("speak would you like to worship some cheese too?");
            return;
        }
        if( ob != who ){
            eventForce("speak " + ob->GetName() + " must request "
                    "conversion of " + possessive(ob) + " own free will.");
            return;
        }
    }
    who->SetProperty("converting", GetReligion(1));
    eventForce("speak I will give it a try, I hope my faith serves me");
    call_out((: eventForce("convert " + ($(who))->GetKeyName()) :), 1);
}

void eventPreview(object who, string args){
    if( args ) args = remove_article(lower_case(args));
    if( args && args != "" && args != (""+GetClass()) ){
        if( args[0..<2] != GetClass() ){
            eventForce("speak You want me to describe what?");
            return;
        }
    }
    who->eventPage(DIR_CLASS_HELP "/" + GetClass(), MSG_HELP);
}

void eventJoin(object who, string args){
    string myclass = (GetClass() || "thing");
    if( !args || args == "" ){
        eventForce("speak Do you mean you wish to become " +
                add_article(myclass) + "?");
        return;
    }
    args = remove_article(lower_case(args));
    if( args != myclass && args[0..<2] != myclass && 
            args != pluralize(myclass) ){
        eventForce("speak you want me to make you a what?");
        eventForce("speak people only ask me to join the " +
                pluralize(myclass));
        return;
    }
    if( who->ClassMember(myclass) ){
        eventForce("speak You are already " + add_article(myclass));
        return;
    }
    if( who->GetClass() == who->SetClass(GetClass()) ){
        eventForce("speak You cannot become " + add_article(GetClass()) + "!");
        eventForce("attack " + who->GetKeyName());
        return;
    }
    if( !(who->GetReligion()) && GetReligion() )
        who->SetReligion(GetReligion(0), GetReligion(1));
    environment()->eventPrint(GetName() + " makes " + who->GetName() +
            " " + add_article(GetClass()) + ".",
            ({ who, this_object() }));
    eventForce("speak welcome new " + GetClass() + "!");
    eventForce("speak Inside this hall, you will find sanctuary.");
    eventForce(GetClass() + " " + who->GetName() +
            " just joined our ranks!");
    who->SetShort("foo");  /* reset title */
    return;
}

int eventPreAttack(object ob){
    if( member_array(ob, GetEnemies()) > -1 ) return sentient::eventPreAttack(ob);
    eventForce(GetClass() + " " + pluralize((GetClass() || "citizen")) + "! Our home is " 
            "being raided by " + ob->GetName() + "!");
    return sentient::eventPreAttack(ob);
}

int eventTeachPlayer(object who, string spell){
    object ob = SPELLS_D->GetSpell(spell);

    if( ob ){
        foreach(string skill in ob->GetSkills()){
            if( GetSkillLevel(skill) < ob->GetRequiredSkill(skill) ){
                eventForce("speak I don't know " + spell + ".");
                return 1;
            }
        }
        if( !who->eventLearnSpell(spell) ){
            eventForce("speak You are not prepared for that spell!");
            return 1;
        }
        who->eventPrint(GetName() + " touches your forehead and gives "
                "you knowledge of " + spell + ".");
        environment()->eventPrint(GetName() + " touches " +
                possessive_noun(who) +
                " forehead and gives " +
                objective(who) + " knowledge of " +
                spell + ".", who);
        return 1;
    }
    else {
        eventForce("speak I have never heard of such a spell");
        return 1;
    }
}