-	script	clone_equip	-1,{
OnInit:
	bindatcmd "cloneequip",strnpcinfo(3)+"::OnAtcommand",99,99;
	end;
OnAtcommand:
	.@aid = getcharid( 3,.@atcmd_parameters$[0] );
	if( .@aid ){
		.@origin = getcharid(3);
		.@i = select( "Head Top","Armor","Hand L","Hand R","Garment","Shoe","Acc L","Acc R","Head Mid","Low" );
		attachrid( .@aid );
		.@equip = getequipid( .@i );
		if( .@equip != -1 ){
			.@refine = getequiprefinerycnt( .@i );
			.@slot = getequipcardcnt( .@i );
			for( .@x = 0; .@x < .@slot; .@x++ )
				.@card[.@x] = getequipcardid( .@i,.@x );
		}
		attachrid( .@origin );
		if( .@equip != -1 ){
			getitem2 .@equip,1,1,.@refine,0,.@card[0],.@card[1],.@card[2],.@card[3];
			equip .@equip[.@i];
			dispbottom "Cloned "+.@atcmd_parameters$[0]+" equipments.";
		}
		else{
			dispbottom "Nothing to clone on that equipment slot";
		}
	}
	close;
}