/*    /lib/chapel.c
 *    from the Dead Souls  Object Library
 *    allows people to marry
 *    created by Descartes of Borg 951210
 *    Version: @(#) chapel.c 1.2@(#)
 *    Last modified: 96/10/09
 */

#include <lib.h>
#include "include/chapel.h"

inherit LIB_ROOM;

private int AllowSacrifice, SacrificeType;
private string array Classes, Religion, Deities, DeityIds;

/*     **********  /lib/chapel.c apply methods  **********     */
static void create(){
    room::create();
    Classes = ({});
    Religion = allocate(2);
    Deities = ({});
    DeityIds = ({});
    AllowSacrifice = 0;
    SacrificeType = 0;
}

/*     **********  /lib/chapel.c modal methods  **********     */
mixed CanMarry(object who, object spouse1, object spouse2){
    mixed tmp;

    if( (tmp = spouse1->CanMarry(who, spouse2)) != 1 ){
        if( tmp ) return tmp;
        else return spouse1->GetName() + " cannot be married.";
    }
    if( (tmp = spouse2->CanMarry(who, spouse1)) != 1 ){
        if( tmp ) return tmp;
        else return spouse2->GetName() + " cannot be married.";
    }
    if( archp(who) ){
        return 1;
    }
    return 1;
}

    mixed CanSacrifice(object who, object what, string deus){
        if( who->GetReligion(1) != Religion[1] )
            return "You must hold the beliefs of " + Religion[1] + " to do that.";
        if( !(what->GetVendorType() & SacrificeType) )
            return "You cannot sacrifice that here.";
        if( member_array(deus, DeityIds) == -1 )
            return "You do not worship anything called \"" + deus + "\".";
        return AllowSacrifice;
    }

mixed eventMarry(object who, object spouse1, object spouse2){
    mixed tmp;

    if( (tmp = spouse1->eventMarry(who, spouse2)) != 1 ) return tmp;
    if( (tmp = spouse2->eventMarry(who, spouse1)) != 1 ){
        spouse1->SetMarried(0);
        return tmp;
    }
    spouse1->eventPrint(who->GetName() + " weds you to " +
            spouse2->GetName() + ".");
    spouse2->eventPrint(who->GetName() + " weds you to " +
            spouse1->GetName() + ".");
    who->eventPrint("You join " + spouse1->GetName() + " to " +
            spouse2->GetName() + " in marriage.");
    this_object()->eventPrint(who->GetName() + " joins " +
            spouse1->GetName() + " and " +
            spouse2->GetName() + ".",
            ({ spouse1, spouse2, who }));
    who->AddSkillPoints("faith", random(100));
    return 1;
}

mixed eventSacrifice(object who, object what, string deus){
    who->eventPrint("You attempt to make a sacrifice, but nothing happens.");
    return 1;
}

/*     **********  /lib/chapel.c event methods  **********     */
int SetAllowSacrifice(int x){ return (AllowSacrifice = x); }

int GetAllowSacrifice(){ return AllowSacrifice; }

string *SetClasses(string *rc){ return (Classes = rc); }

string *GetClasses(){ return Classes; }

string *SetDeities(string *deities){
    string *ids = ({});

    Deities = deities;
    foreach(string deus in deities)
        ids += explode(lower_case(deus), " ");
    DeityIds = ids;
    return Deities;
}

string *GetDeities(){ return Deities; }

string *SetReligion(string adj, string noun){
    Religion[0] = adj;
    Religion[1] = noun;
    return Religion;
}

varargs string GetReligion(int flag){ return Religion[flag]; }

int SetSacrificeType(int x){ return (SacrificeType = x); }

int AddSacrificeType(int x){ return (SacrificeType |= x); }

int GetSacrificeType(){ return SacrificeType; }