-	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);
		attachrid( .@aid );
		getinventorylist;
		while( .@i < @inventorylist_count ){
			if( @inventorylist_equip[.@i] ){
				.@equip[.@size] = @inventorylist_id[.@i];
				.@identify[.@size] = @inventorylist_identify[.@i];
				.@refine[.@size] = @inventorylist_refine[.@i];
				.@attribute[.@size] = @inventorylist_attribute[.@i];
				.@card1[.@size] = @inventorylist_card1[.@i];
				.@card2[.@size] = @inventorylist_card2[.@i];
				.@card3[.@size] = @inventorylist_card3[.@i];
				.@card4[.@size] = @inventorylist_card4[.@i];
				.@size++;
			}
			.@i++;
		}
		attachrid( .@origin );
		// clearitem;
		for( .@i = 0; .@i < .@size; .@i++ ){
			getitem2 .@equip[.@i],1,.@identify[.@i],.@refine[.@i],.@attribute[.@i],.@card1[.@i],.@card2[.@i],.@card3[.@i],.@card4[.@i];
			equip .@equip[.@i];
		}
		dispbottom "Cloned "+.@atcmd_parameters$[0]+" equipments.";
	}
	end;
}