package com.colen.postea.Utility;

import java.util.ArrayList;
import java.util.List;
import java.util.function.BiFunction;
import java.util.stream.Collectors;

import net.minecraft.block.Block;
import net.minecraft.nbt.NBTTagCompound;
import net.minecraft.nbt.NBTTagList;
import net.minecraft.world.World;

import com.colen.postea.API.BlockReplacementManager;
import com.colen.postea.API.TileEntityReplacementManager;

import akka.japi.Pair;
import cpw.mods.fml.common.registry.GameRegistry;

public class ChunkFixerUtility {

    public static void processChunkNBT(NBTTagCompound compound, World world) {
        transformTileEntities(compound, world);
        transformNormalBlocks(compound, world);
    }

    private static void transformNormalBlocks(NBTTagCompound compound, World world) {
        NBTTagCompound level = compound.getCompoundTag("Level");
        NBTTagList sections = level.getTagList("Sections", 10);

        int chunkXPos = level.getInteger("xPos") * 16; // Assuming each chunk is 16 blocks along x-axis
        int chunkZPos = level.getInteger("zPos") * 16; // Assuming each chunk is 16 blocks along z-axis

        for (int i = 0; i < sections.tagCount(); i++) {
            NBTTagCompound section = sections.getCompoundTagAt(i);
            byte[] blockArray = section.getByteArray("Blocks16");
            byte[] metadataArray = section.getByteArray("Data");
            byte sectionY = section.getByte("Y");

            for (int index = 0; index < blockArray.length / 2; index++) {
                int blockId = ((blockArray[index * 2] & 0xFF) << 8) | (blockArray[index * 2 + 1] & 0xFF);
                byte metadata = (byte) ((index & 1) == 0 ? (metadataArray[index / 2] & 0x0F)
                    : ((metadataArray[index / 2] & 0xF0) >> 4));

                Block block = Block.getBlockById(blockId);
                String blockName = GameRegistry.findUniqueIdentifierFor(block)
                    .toString();

                BlockConversionInfo blockConversionInfo = new BlockConversionInfo();
                blockConversionInfo.blocKName = blockName;
                blockConversionInfo.blockID = blockId;
                blockConversionInfo.metadata = metadata;
                blockConversionInfo.world = world;

                int x = index % 16;
                int y = (index / 256) + (sectionY * 16); // Add the offset of the current section in Y direction
                int z = (index / 16) % 16;

                blockConversionInfo.x = x + chunkXPos + 1;
                blockConversionInfo.y = y; // Y remains unchanged as it's already global
                blockConversionInfo.z = z + chunkZPos + 1;

                BlockConversionInfo output = BlockReplacementManager.getBlockReplacement(blockConversionInfo);
                if (output != null) {
                    int newBlockId = output.blockID;
                    int newMetadata = output.metadata;

                    blockArray[index * 2] = (byte) ((newBlockId >> 8) & 0xFF);
                    blockArray[index * 2 + 1] = (byte) (newBlockId & 0xFF);

                    if ((index & 1) == 0) { // Even
                        metadataArray[index / 2] &= 0xF0;
                        metadataArray[index / 2] |= (newMetadata & 0x0F);
                    } else { // Odd
                        metadataArray[index / 2] &= 0x0F;
                        metadataArray[index / 2] |= ((newMetadata << 4) & 0xF0);
                    }
                }
            }
        }
    }

    public static void transformTileEntities(NBTTagCompound chunkNBT, World world) {
        NBTTagCompound level = chunkNBT.getCompoundTag("Level");

        Pair<List<ConversionInfo>, NBTTagList> output = adjustTileEntities(level.getTagList("TileEntities", 10), world);
        List<ConversionInfo> conversionInfoList = output.first();
        NBTTagList tileEntities = output.second();

        if (tileEntities.tagCount() > 0) {
            level.setTag("TileEntities", tileEntities);
        }

        int chunkXPos = level.getInteger("xPos") * 16; // Assuming each chunk is 16 blocks along x-axis
        int chunkZPos = level.getInteger("zPos") * 16; // Assuming each chunk is 16 blocks along z-axis

        NBTTagList sections = level.getTagList("Sections", 10);
        for (int i = 0; i < sections.tagCount(); i++) {
            NBTTagCompound section = sections.getCompoundTagAt(i);
            processSection(section, conversionInfoList, chunkXPos, chunkZPos);
        }
    }

    private static void processSection(NBTTagCompound section, List<ConversionInfo> conversionInfoList, int chunkXPos,
        int chunkZPos) {
        byte[] blockArray = section.getByteArray("Blocks16");
        byte[] metadataArray = section.getByteArray("Data");
        byte y = section.getByte("Y");

        List<ConversionInfo> filteredList = filterConversionInfosByY(conversionInfoList, y);

        for (ConversionInfo info : filteredList) {
            int[] localCoords = convertToChunkLocalCoordinates(info, y, chunkXPos, chunkZPos);
            int index = computeBlockIndex(localCoords);
            setBlockInfo(info.blockInfo.block, index, blockArray);
            setMetadata(info.blockInfo.metadata, index, metadataArray);
        }
    }

    private static List<ConversionInfo> filterConversionInfosByY(List<ConversionInfo> conversionInfoList, byte y) {
        return conversionInfoList.stream()
            .filter(info -> info.y >= y * 16 && info.y < (y + 1) * 16)
            .collect(Collectors.toList());
    }

    private static int[] convertToChunkLocalCoordinates(ConversionInfo info, byte y, int chunkXPos, int chunkZPos) {
        int tileX = info.x - chunkXPos;
        int tileY = info.y - y * 16;
        int tileZ = info.z - chunkZPos;
        return new int[] { tileX, tileY, tileZ };
    }

    private static int computeBlockIndex(int[] localCoords) {
        return localCoords[1] * 256 + localCoords[2] * 16 + localCoords[0];
    }

    private static void setBlockInfo(Block block, int index, byte[] blockArray) {
        int blockID = Block.getIdFromBlock(block);
        blockArray[index * 2] = (byte) ((blockID >> 8) & 0xFF);
        blockArray[index * 2 + 1] = (byte) (blockID & 0xFF);
    }

    private static void setMetadata(int metadata, int index, byte[] metadataArray) {
        int metadataIndex = index / 2;
        byte currentMetadataByte = metadataArray[metadataIndex];

        if ((index & 1) == 0) { // Even
            currentMetadataByte &= 0xF0;
            currentMetadataByte |= (metadata & 0x0F);
        } else { // Odd
            currentMetadataByte &= 0x0F;
            currentMetadataByte |= ((metadata << 4) & 0xF0);
        }

        metadataArray[metadataIndex] = currentMetadataByte;
    }

    private static Pair<List<ConversionInfo>, NBTTagList> adjustTileEntities(NBTTagList tileEntities, World world) {
        List<ConversionInfo> conversionInfo = new ArrayList<>();

        NBTTagList tileEntitiesCopy = new NBTTagList();

        for (int i = 0; i < tileEntities.tagCount(); i++) {
            NBTTagCompound tileEntity = tileEntities.getCompoundTagAt(i);
            String tileEntityId = tileEntity.getString("id");

            // Check if we have a transformer registered for this tile entity ID
            BiFunction<NBTTagCompound, World, BlockInfo> transformationFunction = TileEntityReplacementManager
                .getTileEntityToNormalBlockTransformerFunction(tileEntityId);

            if (transformationFunction != null) {
                int x = tileEntity.getInteger("x");
                int y = tileEntity.getInteger("y");
                int z = tileEntity.getInteger("z");

                BlockInfo blockInfo = transformationFunction.apply(tileEntity, world);

                if (blockInfo.tileTransformer != null) {
                    tileEntitiesCopy.appendTag(blockInfo.tileTransformer.apply(tileEntity));
                } // Otherwise they are removed, therefore not appended.

                conversionInfo.add(new ConversionInfo(x, y, z, blockInfo));
            }
        }

        return new Pair<>(conversionInfo, tileEntitiesCopy);
    }

    public static class ConversionInfo {

        public final int x;
        public final int y;
        public final int z;
        public final BlockInfo blockInfo;

        public ConversionInfo(int x, int y, int z, BlockInfo blockInfo) {
            this.x = x;
            this.y = y;
            this.z = z;
            this.blockInfo = blockInfo;
        }
    }
}