#if defined(WIN32)
#include <windows.h>
#else
#include <sys/types.h>
#endif
#include <stdio.h>
#include <string.h>
#include <time.h>
#include "merc.h"

DECLARE_DO_FUN( do_save );

void do_marry( CHAR_DATA * ch, char *argument )
{
    char arg1[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH];
    CHAR_DATA *victim;
    CHAR_DATA *victim2;

    /*    char buf[MAX_STRING_LENGTH]; */
    argument = one_argument( argument, arg1 );
    argument = one_argument( argument, arg2 );

    if ( ( ch->level >= LEVEL_IMMORTAL ) )
    {
        if ( arg1[0] == '\0' || arg2[0] == '\0' )
        {
            send_to_char( "Syntax: marry <char1> <char2>\n\r", ch );
            return;
        }

        if ( !str_cmp( arg1, arg2 ) )
        {
            send_to_char( "A person cannot be married to themselves!\n\r", ch );
            return;
        }

        if ( ( victim = get_char_world( ch, arg1 ) ) == NULL )
        {
            send_to_char( "The first person mentioned isn't playing.\n\r", ch );
            return;
        }

        if ( ( victim2 = get_char_world( ch, arg2 ) ) == NULL )
        {
            send_to_char( "The second person mentioned isn't playing.\n\r",
                          ch );
            return;
        }

        if ( victim == victim2 )
        {
            send_to_char
                ( "I don't think marrying someone to themselves is a very good idea.\n\r",
                  ch );
            return;
        }

        if ( IS_NPC( victim ) || IS_NPC( victim2 ) )
        {
            send_to_char
                ( "I don't think they want to be Married to the Mob.\n\r", ch );
            return;
        }

        if ( !IS_SET( victim->act, PLR_CONSENT )
             || !IS_SET( victim2->act, PLR_CONSENT ) )
        {
            send_to_char( "They do not give consent.\n\r", ch );
            return;
        }

        if ( !is_name( victim->pcdata->spouse, "(none)" )
             || !is_name( victim2->pcdata->spouse, "(none)" ) )
        {
            send_to_char( "They are already married! \n\r", ch );
            return;
        }

        if ( victim->level < 1 || victim2->level < 1 )
        {
            send_to_char( "They are not of the proper level to marry.\n\r",
                          ch );
            return;
        }

        send_to_char( "You pronounce them man and wife!\n\r", ch );
        send_to_char( "You say the big 'I do.'\n\r", victim );
        send_to_char( "You say the big 'I do.'\n\r", victim2 );

        victim->pcdata->spousec += 1;
        victim2->pcdata->spousec += 1;
        free_string( &victim->pcdata->spouse );
        victim->pcdata->spouse = str_dup( victim2->name );
        free_string( &victim2->pcdata->spouse );
        victim2->pcdata->spouse = str_dup( victim->name );

        do_save( victim, "" );
        do_save( victim2, "" );

        /*    victim->pcdata->spouse = victim2->name;
           victim2->pcdata->spouse = victim->name; */

        return;
    }

    /*   else
       {
       send_to_char( "You do not have marrying power.\n\r", ch);
       return;
       } */
}

void do_divorce( CHAR_DATA * ch, char *argument )
{
    char arg1[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH];
    CHAR_DATA *victim;
    CHAR_DATA *victim2;
    /*    char buf[MAX_STRING_LENGTH]; */

    argument = one_argument( argument, arg1 );
    argument = one_argument( argument, arg2 );

    if ( ch->level >= LEVEL_IMMORTAL )
    {
        if ( arg1[0] == '\0' || arg2[0] == '\0' )
        {
            send_to_char( "Syntax: divorce <char1> <char2>\n\r", ch );
            return;
        }

        if ( ( victim = get_char_world( ch, arg1 ) ) == NULL )
        {
            send_to_char( "The first person mentioned isn't playing.\n\r", ch );
            return;
        }

        if ( ( victim2 = get_char_world( ch, arg2 ) ) == NULL )
        {
            send_to_char( "The second person mentioned isn't playing.\n\r",
                          ch );
            return;
        }

        if ( victim == victim2 )
        {
            send_to_char
                ( "I don't think divorcing someone without the other knowing is a very good idea.\n\r",
                  ch );
            return;
        }

        if ( IS_NPC( victim ) || IS_NPC( victim2 ) )
        {
            send_to_char( "I don't think they're Married to the Mob...\n\r",
                          ch );
            return;
        }

        if ( !IS_SET( victim->act, PLR_CONSENT )
             || !IS_SET( victim2->act, PLR_CONSENT ) )
        {
            send_to_char( "They do not give consent.\n\r", ch );
            return;
        }

        if ( !is_name( victim->pcdata->spouse, victim2->name ) )
        {
            send_to_char( "They aren't even married!!\n\r", ch );
            return;
        }

        send_to_char( "You hand them their papers.\n\r", ch );
        send_to_char( "Your divorce is final.\n\r", victim );
        send_to_char( "Your divorce is final.\n\r", victim2 );

        victim->pcdata->spousec -= 1;
        victim2->pcdata->spousec -= 1;
        free_string( &victim->pcdata->spouse );
        victim->pcdata->spouse = str_dup( "(none)" );
        free_string( &victim2->pcdata->spouse );
        victim2->pcdata->spouse = str_dup( "(none)" );

        do_save( victim, "" );
        do_save( victim2, "" );

        /*
           victim->pcdata->spouse = str_dup("none") ;
           victim2->pcdata->spouse = str_dup("none"); */

        return;
    }
    else
    {
        send_to_char( "You do not have divorcing power.\n\r", ch );
        return;
    }
}

void do_consent( CHAR_DATA * ch )
{
    if ( IS_NPC( ch ) )
        return;

    if ( IS_SET( ch->act, PLR_CONSENT ) )
    {
        send_to_char( "You no longer give consent.\n\r", ch );
        REMOVE_BIT( ch->act, PLR_CONSENT );
        return;
    }

    send_to_char( "You now give consent to be Married!\n\r", ch );
    SET_BIT( ch->act, PLR_CONSENT );

    return;
}