/*                  _,.                               .,_
                .-` _ \  _.-'`\   _,...,_   /`'-._  / _ `-.
             .-`_.-` \ :' _,-\ :-`_,,.,,_`-: /-._ `: / `-._`-.
          .-`_.'     ,` .'   ,` ,'-.,_,.-`, `,   `. `.     '._`-.
        .' .'       / ,`.'-./ ,``-.,_`_,.-``, \.-'.`. \       '. `.
      .'  `````````` /   '-.,/       `       \,.-'   \ ``````````  `.
     ````````````````                                 ````````````````
                 .                                ,__ 
                 /       ___  ` .___         __.  /  `
                 |      /   ` | /   \      .'   \ |__ 
                 |     |    | | |   '      |    | |   
                 /---/ `.__/| / /           `._.' |   
                                                     /   
        .___                \                                
        /   `    ___  .___  |   , , __     ___    ____   ____
        |    |  /   ` /   \ |  /  |'  `. .'   `  (      (    
        |    | |    | |   ' |-<   |    | |----'  `--.   `--. 
        /---/  `.__/| /     /  \_ /    | `.___, \___.` \___.'

     L.o.D runs SMAUG v1.4.
 
    SMAUG 1.4 written by Thoric (Derek Snider) with Altrag, Blodkai,
    Haus, Narn,Scryn, Swordbearer, Tricops, Gorog, Rennard, Grishnakh,
    Fireblade and Nivek.
    Original MERC 2.1 code by Hatchet, Furey, and Kahn.  
    Original DikuMUD code by:  Hans Staerfeldt, Katja Nyboe, Tom Madsen,
    Michael Seifert & Sebastian Hammer
	 http://www.geocities.com/lairofdarkness2001/index.html
     ................                                 ................
      `.  .......... \   .-'`\      _._      /`'-.   / ..........  .'
        `. `._      \ `.'.-'\ `..-'` _ `'-..` /'-.'.' /      _.' .'
          `-. `._    `. `._  `. `.;'```';.` .`  _.' .'    _.' .-'
             `-. `-._/ ;._ `-/ :-._``'``_.-: \-' _.; \_.-' .-'
                `-._  /   '-.,/    `'''`    \,.-'   \  _.-'
                    `'                               '`
	 	            //Clone Function.\\
*/

/*
here's a clone command, easily enough it clones an obj using the built in clone_object function. just add this to any c file and add the entrys for do_clone in mud.h and tables.c, and add the command online using cedit clone create and cedit clone level ## where ## is the level imm you want to have the command.
coded by typhon...
LoD.Arthmoor.com 4600
*/
void do_clone (CHAR_DATA *ch, char *argument) 
{
   char arg[MAX_INPUT_LENGTH]; 
   OBJ_DATA *clone, *obj;
   int imax=1,icur;
   argument = one_argument(argument, arg);
   
   if ( is_number ( arg ) )
   {
       imax = atoi(arg);
	   argument = one_argument(argument, arg);
   }

   if (arg[0] == '\0' )
   { 
     send_to_char("Clone what?\n\r",ch); 
     return;
   }
if ( (obj = get_obj_carry (ch, arg)) == NULL){
	send_to_char("You dont have that.\n\r", ch);
	return;
}
for ( icur = 0;icur<imax;icur++){
clone = create_object( obj->pIndexData, 0);
clone = clone_object( obj );
obj_to_char(clone, ch);
}
return;
}