package de.ellpeck.naturesaura.blocks.tiles;

import de.ellpeck.naturesaura.Helper;
import de.ellpeck.naturesaura.api.aura.chunk.IAuraChunk;
import de.ellpeck.naturesaura.blocks.ModBlocks;
import de.ellpeck.naturesaura.items.ModItems;
import de.ellpeck.naturesaura.packet.PacketHandler;
import de.ellpeck.naturesaura.packet.PacketParticles;
import net.minecraft.block.state.IBlockState;
import net.minecraft.entity.item.EntityItemFrame;
import net.minecraft.init.Blocks;
import net.minecraft.init.Items;
import net.minecraft.item.Item;
import net.minecraft.item.ItemStack;
import net.minecraft.tileentity.TileEntity;
import net.minecraft.util.EnumFacing;
import net.minecraft.util.EnumHand;
import net.minecraft.util.ITickable;
import net.minecraft.util.math.BlockPos;
import net.minecraft.world.WorldServer;
import net.minecraftforge.common.IPlantable;
import net.minecraftforge.common.util.FakePlayer;
import net.minecraftforge.common.util.FakePlayerFactory;
import net.minecraftforge.items.CapabilityItemHandler;
import net.minecraftforge.items.IItemHandler;

import java.util.ArrayList;
import java.util.List;

public class TileEntityPlacer extends TileEntityImpl implements ITickable {

    @Override
    public void update() {
        if (!this.world.isRemote && this.world.getTotalWorldTime() % 15 == 0) {
            if (this.redstonePower > 0)
                return;
            TileEntity tileUp = this.world.getTileEntity(this.pos.up());
            if (tileUp == null || !tileUp.hasCapability(CapabilityItemHandler.ITEM_HANDLER_CAPABILITY, EnumFacing.DOWN))
                return;
            IItemHandler handler = tileUp.getCapability(CapabilityItemHandler.ITEM_HANDLER_CAPABILITY, EnumFacing.DOWN);
            if (handler == null)
                return;
            List<EntityItemFrame> frames = Helper.getAttachedItemFrames(this.world, this.pos);
            if (frames.isEmpty())
                return;

            List<BlockPos> validPositions = new ArrayList<>();
            int range = 5;
            for (int x = -range; x <= range; x++)
                for (int y = -range; y <= range; y++)
                    for (int z = -range; z <= range; z++) {
                        BlockPos pos = this.pos.add(x, y, z);
                        if (!this.framesContain(frames, pos, this.world.getBlockState(pos)))
                            continue;

                        BlockPos up = pos.up();
                        IBlockState state = this.world.getBlockState(up);
                        if (state.getBlock().isReplaceable(this.world, up))
                            validPositions.add(up);
                    }
            if (validPositions.isEmpty())
                return;

            for (int i = 0; i < handler.getSlots(); i++) {
                ItemStack stack = handler.extractItem(i, 1, true);
                if (stack.isEmpty())
                    continue;

                BlockPos pos = validPositions.get(this.world.rand.nextInt(validPositions.size()));
                ItemStack left = this.tryPlace(stack.copy(), pos);
                if (ItemStack.areItemStacksEqual(stack, left))
                    continue;

                handler.extractItem(i, 1, false);
                BlockPos spot = IAuraChunk.getHighestSpot(this.world, this.pos, 10, this.pos);
                IAuraChunk.getAuraChunk(this.world, spot).drainAura(spot, 10);

                PacketHandler.sendToAllAround(this.world, this.pos, 32, new PacketParticles(pos.getX(), pos.getY(), pos.getZ(), 9));

                return;
            }
        }
    }

    private boolean framesContain(List<EntityItemFrame> frames, BlockPos pos, IBlockState state) {
        ItemStack stack = state.getBlock().getItem(this.world, pos, state);
        if (stack.isEmpty())
            return false;

        for (EntityItemFrame frame : frames) {
            ItemStack frameStack = frame.getDisplayedItem();
            if (frameStack.isEmpty())
                continue;
            if (Helper.areItemsEqual(stack, frameStack, false))
                return true;

            if (state.getBlock() == Blocks.FARMLAND && frameStack.getItem() == ModItems.FARMING_STENCIL)
                return true;
        }
        return false;
    }

    private ItemStack tryPlace(ItemStack stack, BlockPos pos) {
        if (this.handleSpecialCases(stack, pos))
            return stack;

        if (!(this.world instanceof WorldServer))
            return stack;

        FakePlayer fake = FakePlayerFactory.getMinecraft((WorldServer) this.world);
        fake.inventory.mainInventory.set(fake.inventory.currentItem, stack);
        fake.interactionManager.processRightClickBlock(fake, this.world, fake.getHeldItemMainhand(), EnumHand.MAIN_HAND,
                pos, EnumFacing.DOWN, 0.5F, 0.5F, 0.5F);
        return fake.getHeldItemMainhand().copy();
    }

    private boolean handleSpecialCases(ItemStack stack, BlockPos pos) {
        if (stack.getItem() == Items.REDSTONE)
            if (Blocks.REDSTONE_WIRE.canPlaceBlockAt(this.world, pos))
                this.world.setBlockState(pos, Blocks.REDSTONE_WIRE.getDefaultState());
            else
                return false;
        else if (stack.getItem() == Item.getItemFromBlock(ModBlocks.GOLD_POWDER))
            if (ModBlocks.GOLD_POWDER.canPlaceBlockAt(this.world, pos))
                this.world.setBlockState(pos, ModBlocks.GOLD_POWDER.getDefaultState());
            else
                return false;
        else if (stack.getItem() instanceof IPlantable) {
            IPlantable plantable = (IPlantable) stack.getItem();
            IBlockState plant = plantable.getPlant(this.world, pos);
            if (!plant.getBlock().canPlaceBlockAt(this.world, pos))
                return false;
            this.world.setBlockState(pos, plant);
        } else
            return false;

        stack.shrink(1);
        return true;
    }
}