/*    /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;
    string cls;

    if( (tmp = spouse1->CanMarry(who, spouse2)) != 1 ) {
	if( tmp ) return tmp;
	else return (string)spouse1->GetName() + " cannot be married.";
    }
    if( (tmp = spouse2->CanMarry(who, spouse1)) != 1 ) {
	if( tmp ) return tmp;
	else return (string)spouse2->GetName() + " cannot be married.";
    }
    if( archp(who) ) {
	return 1;
    }
    if( (string)who->GetReligion(1) == Religion[1] ) {
	foreach(cls in Classes)
	  if( (int)who->ClassMember(cls) ) return 1;
    }
    return "You are not allowed to perform marriages here.";
}

mixed CanSacrifice(object who, object what, string deus) {
    if( (string)who->GetReligion(1) != Religion[1] )
      return "You must hold the beliefs of " + Religion[1] + " to do that.";
    if( !((int)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((string)who->GetName() + " weds you to " +
		       (string)spouse2->GetName() + ".");
   spouse2->eventPrint((string)who->GetName() + " weds you to " +
		       (string)spouse1->GetName() + ".");
   who->eventPrint("You join " + (string)spouse1->GetName() + " to " +
		   (string)spouse2->GetName() + " in marriage.");
   this_object()->eventPrint((string)who->GetName() + " joins " +
			     (string)spouse1->GetName() + " and " +
			     (string)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; }