/*
 * This file is part of Applied Energistics 2.
 * Copyright (c) 2013 - 2014, AlgorithmX2, All rights reserved.
 *
 * Applied Energistics 2 is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Applied Energistics 2 is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with Applied Energistics 2.  If not, see <http://www.gnu.org/licenses/lgpl>.
 */

package appeng.util.item;


import java.io.ByteArrayInputStream;
import java.io.ByteArrayOutputStream;
import java.io.DataInputStream;
import java.io.DataOutputStream;
import java.io.IOException;
import java.security.InvalidParameterException;
import java.util.List;
import javax.annotation.Nullable;

import io.netty.buffer.ByteBuf;

import net.minecraft.item.Item;
import net.minecraft.item.ItemStack;
import net.minecraft.nbt.CompressedStreamTools;
import net.minecraft.nbt.NBTTagCompound;

import cpw.mods.fml.common.registry.GameRegistry;
import cpw.mods.fml.common.registry.GameRegistry.UniqueIdentifier;
import cpw.mods.fml.relauncher.Side;
import cpw.mods.fml.relauncher.SideOnly;

import appeng.api.config.FuzzyMode;
import appeng.api.storage.StorageChannel;
import appeng.api.storage.data.IAEItemStack;
import appeng.api.storage.data.IAETagCompound;
import appeng.util.Platform;


public final class AEItemStack extends AEStack<IAEItemStack> implements IAEItemStack, Comparable<AEItemStack>
{

	AEItemDef def;

	private AEItemStack( AEItemStack is )
	{
		this.def = is.def;
		this.stackSize = is.stackSize;
		this.setCraftable( is.isCraftable() );
		this.setCountRequestable( is.getCountRequestable() );
	}

	private AEItemStack( ItemStack is )
	{
		if( is == null )
		{
			throw new InvalidParameterException( "null is not a valid ItemStack for AEItemStack." );
		}

		final Item item = is.getItem();
		if( item == null )
		{
			throw new InvalidParameterException( "Contained item is null, thus not a valid ItemStack for AEItemStack." );
		}

		this.def = new AEItemDef( item );

		if( this.def.item == null )
			throw new InvalidParameterException( "This ItemStack is bad, it has a null item." );

		/*
		 * Prevent an Item from changing the damage value on me... Either, this or a core mod.
		 */

		/*
		 * Super hackery.
		 *
		 * is.itemID = appeng.api.Materials.matQuartz.itemID; damageValue = is.getItemDamage(); is.itemID = itemID;
		 */

		/*
		 * Kinda hackery
		 */
		this.def.damageValue = this.def.getDamageValueHack( is );
		this.def.displayDamage = is.getItemDamageForDisplay();
		this.def.maxDamage = is.getMaxDamage();

		NBTTagCompound tagCompound = is.getTagCompound();
		if( tagCompound != null )
			this.def.tagCompound = (AESharedNBT) AESharedNBT.getSharedTagCompound( tagCompound, is );

		this.stackSize = is.stackSize;
		this.setCraftable( false );
		this.setCountRequestable( 0 );

		this.def.reHash();
		this.def.isOre = OreHelper.INSTANCE.isOre( is );
	}

	public static IAEItemStack loadItemStackFromNBT( NBTTagCompound i )
	{
		if( i == null )
			return null;

		ItemStack itemstack = ItemStack.loadItemStackFromNBT( i );
		if( itemstack == null )
			return null;

		AEItemStack item = AEItemStack.create( itemstack );
		// item.priority = i.getInteger( "Priority" );
		item.stackSize = i.getLong( "Cnt" );
		item.setCountRequestable( i.getLong( "Req" ) );
		item.setCraftable( i.getBoolean( "Craft" ) );
		return item;
	}

	@Nullable
	public static AEItemStack create( ItemStack stack )
	{
		if( stack == null )
		{
			return null;
		}

		return new AEItemStack( stack );
	}

	public static IAEItemStack loadItemStackFromPacket( ByteBuf data ) throws IOException
	{
		byte mask = data.readByte();
		// byte PriorityType = (byte) (mask & 0x03);
		byte StackType = (byte) ( ( mask & 0x0C ) >> 2 );
		byte CountReqType = (byte) ( ( mask & 0x30 ) >> 4 );
		boolean isCraftable = ( mask & 0x40 ) > 0;
		boolean hasTagCompound = ( mask & 0x80 ) > 0;

		// don't send this...
		NBTTagCompound d = new NBTTagCompound();

		d.setShort( "id", data.readShort() );
		d.setShort( "Damage", data.readShort() );
		d.setByte( "Count", (byte) 0 );

		if( hasTagCompound )
		{
			int len = data.readInt();

			byte[] bd = new byte[len];
			data.readBytes( bd );

			ByteArrayInputStream di = new ByteArrayInputStream( bd );
			d.setTag( "tag", CompressedStreamTools.read( new DataInputStream( di ) ) );
		}

		// long priority = getPacketValue( PriorityType, data );
		long stackSize = getPacketValue( StackType, data );
		long countRequestable = getPacketValue( CountReqType, data );

		ItemStack itemstack = ItemStack.loadItemStackFromNBT( d );
		if( itemstack == null )
			return null;

		AEItemStack item = AEItemStack.create( itemstack );
		// item.priority = (int) priority;
		item.stackSize = stackSize;
		item.setCountRequestable( countRequestable );
		item.setCraftable( isCraftable );
		return item;
	}

	@Override
	public void add( IAEItemStack option )
	{
		if( option == null )
			return;

		// if ( priority < ((AEItemStack) option).priority )
		// priority = ((AEItemStack) option).priority;

		this.incStackSize( option.getStackSize() );
		this.setCountRequestable( this.getCountRequestable() + option.getCountRequestable() );
		this.setCraftable( this.isCraftable() || option.isCraftable() );
	}

	@Override
	public void writeToNBT( NBTTagCompound i )
	{
		/*
		 * Mojang Fucked this over ; GC Optimization - Ugly Yes, but it saves a lot in the memory department.
		 */

		/*
		 * NBTBase id = i.getTag( "id" ); NBTBase Count = i.getTag( "Count" ); NBTBase Cnt = i.getTag( "Cnt" ); NBTBase
		 * Req = i.getTag( "Req" ); NBTBase Craft = i.getTag( "Craft" ); NBTBase Damage = i.getTag( "Damage" );
		 */

		/*
		 * if ( id != null && id instanceof NBTTagShort ) ((NBTTagShort) id).data = (short) this.def.item.itemID; else
		 */
		i.setShort( "id", (short) Item.itemRegistry.getIDForObject( this.def.item ) );

		/*
		 * if ( Count != null && Count instanceof NBTTagByte ) ((NBTTagByte) Count).data = (byte) 0; else
		 */
		i.setByte( "Count", (byte) 0 );

		/*
		 * if ( Cnt != null && Cnt instanceof NBTTagLong ) ((NBTTagLong) Cnt).data = this.stackSize; else
		 */
		i.setLong( "Cnt", this.stackSize );

		/*
		 * if ( Req != null && Req instanceof NBTTagLong ) ((NBTTagLong) Req).data = this.stackSize; else
		 */
		i.setLong( "Req", this.getCountRequestable() );

		/*
		 * if ( Craft != null && Craft instanceof NBTTagByte ) ((NBTTagByte) Craft).data = (byte) (this.isCraftable() ?
		 * 1 : 0); else
		 */
		i.setBoolean( "Craft", this.isCraftable() );

		/*
		 * if ( Damage != null && Damage instanceof NBTTagShort ) ((NBTTagShort) Damage).data = (short)
		 * this.def.damageValue; else
		 */
		i.setShort( "Damage", (short) this.def.damageValue );

		if( this.def.tagCompound != null )
			i.setTag( "tag", this.def.tagCompound );
		else
			i.removeTag( "tag" );
	}

	@Override
	public boolean fuzzyComparison( Object st, FuzzyMode Mode )
	{
		if( st instanceof IAEItemStack )
		{
			IAEItemStack o = (IAEItemStack) st;

			if( this.sameOre( o ) )
				return true;

			if( o.getItem() == this.getItem() )
			{
				if( this.def.item.isDamageable() )
				{
					ItemStack a = this.getItemStack();
					ItemStack b = o.getItemStack();

					try
					{
						if( Mode == FuzzyMode.IGNORE_ALL )
						{
							return true;
						}
						else if( Mode == FuzzyMode.PERCENT_99 )
						{
							return ( a.getItemDamageForDisplay() > 1 ) == ( b.getItemDamageForDisplay() > 1 );
						}
						else
						{
							float APercentDamaged = 1.0f - (float) a.getItemDamageForDisplay() / (float) a.getMaxDamage();
							float BPercentDamaged = 1.0f - (float) b.getItemDamageForDisplay() / (float) b.getMaxDamage();

							return ( APercentDamaged > Mode.breakPoint ) == ( BPercentDamaged > Mode.breakPoint );
						}
					}
					catch( Throwable e )
					{
						if( Mode == FuzzyMode.IGNORE_ALL )
						{
							return true;
						}
						else if( Mode == FuzzyMode.PERCENT_99 )
						{
							return ( a.getItemDamage() > 1 ) == ( b.getItemDamage() > 1 );
						}
						else
						{
							float APercentDamaged = (float) a.getItemDamage() / (float) a.getMaxDamage();
							float BPercentDamaged = (float) b.getItemDamage() / (float) b.getMaxDamage();

							return ( APercentDamaged > Mode.breakPoint ) == ( BPercentDamaged > Mode.breakPoint );
						}
					}
				}

				return this.getItemDamage() == o.getItemDamage();
			}
		}

		if( st instanceof ItemStack )
		{
			ItemStack o = (ItemStack) st;

			OreHelper.INSTANCE.sameOre( this, o );

			if( o.getItem() == this.getItem() )
			{
				if( this.def.item.isDamageable() )
				{
					ItemStack a = this.getItemStack();

					try
					{
						if( Mode == FuzzyMode.IGNORE_ALL )
						{
							return true;
						}
						else if( Mode == FuzzyMode.PERCENT_99 )
						{
							return ( a.getItemDamageForDisplay() > 1 ) == ( o.getItemDamageForDisplay() > 1 );
						}
						else
						{
							float APercentDamaged = 1.0f - (float) a.getItemDamageForDisplay() / (float) a.getMaxDamage();
							float BPercentDamaged = 1.0f - (float) o.getItemDamageForDisplay() / (float) o.getMaxDamage();

							return ( APercentDamaged > Mode.breakPoint ) == ( BPercentDamaged > Mode.breakPoint );
						}
					}
					catch( Throwable e )
					{
						if( Mode == FuzzyMode.IGNORE_ALL )
						{
							return true;
						}
						else if( Mode == FuzzyMode.PERCENT_99 )
						{
							return ( a.getItemDamage() > 1 ) == ( o.getItemDamage() > 1 );
						}
						else
						{
							float APercentDamaged = (float) a.getItemDamage() / (float) a.getMaxDamage();
							float BPercentDamaged = (float) o.getItemDamage() / (float) o.getMaxDamage();

							return ( APercentDamaged > Mode.breakPoint ) == ( BPercentDamaged > Mode.breakPoint );
						}
					}
				}

				return this.getItemDamage() == o.getItemDamage();
			}
		}

		return false;
	}

	@Override
	public IAEItemStack copy()
	{
		return new AEItemStack( this );
	}

	@Override
	public IAEItemStack empty()
	{
		IAEItemStack dup = this.copy();
		dup.reset();
		return dup;
	}

	@Override
	public IAETagCompound getTagCompound()
	{
		return this.def.tagCompound;
	}

	@Override
	public boolean isItem()
	{
		return true;
	}

	@Override
	public boolean isFluid()
	{
		return false;
	}

	@Override
	public StorageChannel getChannel()
	{
		return StorageChannel.ITEMS;
	}

	@Override
	public ItemStack getItemStack()
	{
		ItemStack is = new ItemStack( this.def.item, (int) Math.min( Integer.MAX_VALUE, this.stackSize ), this.def.damageValue );
		if( this.def.tagCompound != null )
			is.setTagCompound( this.def.tagCompound.getNBTTagCompoundCopy() );

		return is;
	}

	@Override
	public Item getItem()
	{
		return this.def.item;
	}

	@Override
	public int getItemDamage()
	{
		return this.def.damageValue;
	}

	@Override
	public boolean sameOre( IAEItemStack is )
	{
		return OreHelper.INSTANCE.sameOre( this, is );
	}

	@Override
	public boolean isSameType( IAEItemStack otherStack )
	{
		if( otherStack == null )
			return false;

		return this.def.equals( ( (AEItemStack) otherStack ).def );
	}

	@Override
	public boolean isSameType( ItemStack otherStack )
	{
		if( otherStack == null )
			return false;

		return this.def.isItem( otherStack );
	}

	@Override
	public int hashCode()
	{
		return this.def.myHash;
	}

	@Override
	public boolean equals( Object ia )
	{
		if( ia instanceof AEItemStack )
		{
			return ( (AEItemStack) ia ).def.equals( this.def );// && def.tagCompound == ((AEItemStack) ia).def.tagCompound;
		}
		else if( ia instanceof ItemStack )
		{
			ItemStack is = (ItemStack) ia;

			if( is.getItem() == this.def.item && is.getItemDamage() == this.def.damageValue )
			{
				NBTTagCompound ta = this.def.tagCompound;
				NBTTagCompound tb = is.getTagCompound();
				if( ta == tb )
					return true;

				if( ( ta == null && tb == null ) || ( ta != null && ta.hasNoTags() && tb == null ) || ( tb != null && tb.hasNoTags() && ta == null ) || ( ta != null && ta.hasNoTags() && tb != null && tb.hasNoTags() ) )
					return true;

				if( ( ta == null && tb != null ) || ( ta != null && tb == null ) )
					return false;

				if( AESharedNBT.isShared( tb ) )
					return ta == tb;

				return Platform.NBTEqualityTest( ta, tb );
			}
		}
		return false;
	}

	@Override
	public String toString()
	{
		return this.getItemStack().toString();
	}

	@Override
	public int compareTo( AEItemStack b )
	{
		int id = this.def.itemID - b.def.itemID;
		if( id != 0 )
			return id;

		int damageValue = this.def.damageValue - b.def.damageValue;
		if( damageValue != 0 )
			return damageValue;

		int displayDamage = this.def.displayDamage - b.def.displayDamage;
		if( displayDamage != 0 )
			return displayDamage;

		return ( this.def.tagCompound == b.def.tagCompound ) ? 0 : this.compareNBT( b.def );
	}

	private int compareNBT( AEItemDef b )
	{
		int nbt = this.compare( ( this.def.tagCompound == null ? 0 : this.def.tagCompound.getHash() ), ( b.tagCompound == null ? 0 : b.tagCompound.getHash() ) );
		if( nbt == 0 )
			return this.compare( System.identityHashCode( this.def.tagCompound ), System.identityHashCode( b.tagCompound ) );
		return nbt;
	}

	private int compare( int l, int m )
	{
		return l < m ? -1 : ( l > m ? 1 : 0 );
	}

	@SideOnly( Side.CLIENT )
	public List getToolTip()
	{
		if( this.def.tooltip != null )
			return this.def.tooltip;

		return this.def.tooltip = Platform.getTooltip( this.getItemStack() );
	}

	@SideOnly( Side.CLIENT )
	public String getDisplayName()
	{
		if( this.def.displayName != null )
			return this.def.displayName;

		return this.def.displayName = Platform.getItemDisplayName( this.getItemStack() );
	}

	@SideOnly( Side.CLIENT )
	public String getModID()
	{
		if( this.def.uniqueID != null )
			return this.getModName( this.def.uniqueID );

		return this.getModName( this.def.uniqueID = GameRegistry.findUniqueIdentifierFor( this.def.item ) );
	}

	private String getModName( UniqueIdentifier uniqueIdentifier )
	{
		if( uniqueIdentifier == null )
			return "** Null";

		return uniqueIdentifier.modId == null ? "** Null" : uniqueIdentifier.modId;
	}

	public IAEItemStack getLow( FuzzyMode fuzzy, boolean ignoreMeta )
	{
		AEItemStack bottom = new AEItemStack( this );
		AEItemDef newDef = bottom.def = bottom.def.copy();

		if( ignoreMeta )
		{
			newDef.displayDamage = newDef.damageValue = 0;
			newDef.reHash();
			return bottom;
		}

		if( newDef.item.isDamageable() )
		{
			if( fuzzy == FuzzyMode.IGNORE_ALL )
			{
				newDef.displayDamage = 0;
			}
			else if( fuzzy == FuzzyMode.PERCENT_99 )
			{
				if( this.def.damageValue == 0 )
					newDef.displayDamage = 0;
				else
					newDef.displayDamage = 1;
			}
			else
			{
				int breakpoint = fuzzy.calculateBreakPoint( this.def.maxDamage );
				newDef.displayDamage = breakpoint <= this.def.displayDamage ? breakpoint : 0;
			}

			newDef.damageValue = newDef.displayDamage;
		}

		newDef.tagCompound = AEItemDef.LOW_TAG;
		newDef.reHash();
		return bottom;
	}

	public IAEItemStack getHigh( FuzzyMode fuzzy, boolean ignoreMeta )
	{
		AEItemStack top = new AEItemStack( this );
		AEItemDef newDef = top.def = top.def.copy();

		if( ignoreMeta )
		{
			newDef.displayDamage = newDef.damageValue = Integer.MAX_VALUE;
			newDef.reHash();
			return top;
		}

		if( newDef.item.isDamageable() )
		{
			if( fuzzy == FuzzyMode.IGNORE_ALL )
			{
				newDef.displayDamage = this.def.maxDamage + 1;
			}
			else if( fuzzy == FuzzyMode.PERCENT_99 )
			{
				if( this.def.damageValue == 0 )
					newDef.displayDamage = 0;
				else
					newDef.displayDamage = this.def.maxDamage + 1;
			}
			else
			{
				int breakpoint = fuzzy.calculateBreakPoint( this.def.maxDamage );
				newDef.displayDamage = this.def.displayDamage < breakpoint ? breakpoint - 1 : this.def.maxDamage + 1;
			}

			newDef.damageValue = newDef.displayDamage;
		}

		newDef.tagCompound = AEItemDef.HIGH_TAG;
		newDef.reHash();
		return top;
	}

	public boolean isOre()
	{
		return this.def.isOre != null;
	}

	@Override
	void writeIdentity( ByteBuf i ) throws IOException
	{
		i.writeShort( Item.itemRegistry.getIDForObject( this.def.item ) );
		i.writeShort( this.getItemDamage() );
	}

	@Override
	void readNBT( ByteBuf i ) throws IOException
	{
		if( this.hasTagCompound() )
		{
			ByteArrayOutputStream bytes = new ByteArrayOutputStream();
			DataOutputStream data = new DataOutputStream( bytes );

			CompressedStreamTools.write( (NBTTagCompound) this.getTagCompound(), data );

			byte[] tagBytes = bytes.toByteArray();
			int size = tagBytes.length;

			i.writeInt( size );
			i.writeBytes( tagBytes );
		}
	}

	@Override
	public boolean hasTagCompound()
	{
		return this.def.tagCompound != null;
	}
}