/* This file written for the use of Asgardian Nightmare by Gabe Volker */

#include "include.h"

/* Claim Ownership */
void do_emblazon(CHAR_DATA *ch, char *argument)
{
    char arg[MAX_INPUT_LENGTH];
    OBJ_DATA *obj, *stone;

    one_argument( argument, arg );

    if (IS_NPC(ch))
    {
     send_to_char("Nice Try.\n\r",ch);
     return;
    }

    /* Restricts here */
    stone = get_eq_char(ch,WEAR_HOLD);

    if( stone == NULL)
    {
     send_to_char("You must be holding a Blood Stone.\n\r",ch);
     return;
    }

    if( stone->pIndexData->vnum != 9950 )
    {
     send_to_char("You must be holding a Blood Stone.\n\r",ch);
     return;
    }

    if ( arg[0] == '\0' )
    {
        send_to_char( "What object do you wish to emblazon?\n\r", ch );
	return;
    }

    if ( ( obj = get_obj_carry(ch, arg) ) == NULL )
	{
         send_to_char("You are not carrying that item.\n\r",ch);
         return;
        }

    if ( obj->owner != NULL && strlen(obj->owner) > 1 )
    {
        if (!str_cmp(ch->name,obj->owner))
            send_to_char("It already bears your mark!\n\r",ch);
	else
            send_to_char("Someone else owns this item.\n\r",ch);
	return;
    }

    /* Reductions here */
    obj_from_char(stone);

    if (obj->owner != NULL) free_string(obj->owner);
    obj->owner = str_dup(ch->name);
    act("The Blood Stone fuses into a fiery dagger.",ch,obj,NULL,TO_CHAR);
    act("You emblazon your mark onto $p.",ch,obj,NULL,TO_CHAR);
    act("$n writes runes onto $p with a fiery dagger.",ch,obj,NULL,TO_ROOM);
    return;
}

/* Disown */
void do_scratch(CHAR_DATA *ch, char *argument)
{
    char arg[MAX_INPUT_LENGTH];
    OBJ_DATA *obj;

    one_argument( argument, arg );

    if (IS_NPC(ch))
    {
     send_to_char("Nice Try.\n\r",ch);
     return;
    }

    if ( arg[0] == '\0' )
    {
        send_to_char( "What object do you wish to scratch your emblem off of?\n\r", ch );
	return;
    }

    if ( ( obj = get_obj_carry(ch, arg) ) == NULL )
	{
         send_to_char("You are not carrying that item.\n\r",ch);
         return;
        }

    if (obj->owner == NULL)
    {
       send_to_char("You do not own this item!\n\r",ch);
       return;
    }
    if (str_cmp(ch->name,obj->owner))
    {
       send_to_char("You do not own this item!\n\r",ch);
       return;
    }

    if (obj->owner != NULL) free_string(obj->owner);

    act("You scratch your mark off of $p.",ch,obj,NULL,TO_CHAR);
    act("$n scratches the marks of ownership off of $p.",ch,obj,NULL,TO_ROOM);
    return;
}