/*    /verbs/players/marry.c
 *    from the Dead Souls  Object Library
 *    marry
 *    marry LIV to LIV
 *    created by Descartes of Borg 951210
 */

#include <lib.h>
#include <objects.h>
#include "include/marry.h"

inherit LIB_VERB;

static void create() {
    verb::create();
    SetVerb("marry");
    SetRules("LIV to LIV");
    SetErrorMessage("Marry whom to whom?");
    SetHelp("Syntax: <marry PLAYER to PLAYER>\n\n"
      "Allows people of proper divine or legal authority to join two "
      "souls in marriage. In order to marry people, you must be in an "
      "appropriate location for it.\n\n"
      "See also: divorce");
}

mixed can_marry_liv_to_liv() {

    if( (int)this_player()->GetSkillLevel("faith") < 5 )
        return "You do not have enough faith to join to people.";
    return 1;;
}

mixed do_marry_liv_to_liv(object spouse1, object spouse2) {
    mixed tmp;
    if( this_player() == spouse1 || this_player() == spouse2 )
        return "You may not perform a marriage on yourself.";
    tmp = (mixed)environment(this_player())->CanMarry(this_player(),
      spouse1, spouse2);
    if( !tmp ) {
        this_player()->eventPrint("This place is not holy to you.");
        return 1;
    }
    else if( stringp(tmp) ) {
        this_player()->eventPrint(tmp);
        return 1;
    }
    tmp = (mixed)environment(this_player())->eventMarry(this_player(),
      spouse1, spouse2);
    if( tmp == 1 ) {
        object ring;

        ring = new(OBJ_WED_RING);
        ring->SetSpouse((string)spouse2->GetCapName());
        ring->eventMove(spouse1);
        ring = new(OBJ_WED_RING);
        ring->SetSpouse((string)spouse1->GetCapName());
        ring->eventMove(spouse2);
    }
}