package nautilus.game.arcade.managers;

import java.util.HashSet;
import java.util.Iterator;

import mineplex.core.common.util.UtilBlock;
import mineplex.core.common.util.UtilEvent;
import mineplex.core.common.util.UtilEvent.ActionType;
import mineplex.core.common.util.UtilMath;
import mineplex.core.common.util.UtilParticle;
import mineplex.core.common.util.UtilPlayer;
import mineplex.core.common.util.UtilServer;
import mineplex.core.common.util.UtilParticle.ParticleType;
import mineplex.core.common.util.UtilParticle.ViewDist;
import mineplex.core.common.util.UtilTime;
import mineplex.core.common.util.UtilWorld;
import mineplex.core.itemstack.ItemStackFactory;
import mineplex.core.titangiveaway.TitanGiveawayAnimation;
import mineplex.core.titangiveaway.TitanGiveawayManager;
import mineplex.core.updater.UpdateType;
import mineplex.core.updater.event.UpdateEvent;
import nautilus.game.arcade.ArcadeManager;
import nautilus.game.arcade.events.GameStateChangeEvent;
import nautilus.game.arcade.game.Game;
import nautilus.game.arcade.game.Game.GameState;
import net.minecraft.server.v1_8_R3.BlockPosition;
import net.minecraft.server.v1_8_R3.PacketPlayOutBlockAction;
import net.minecraft.server.v1_8_R3.TileEntity;
import net.minecraft.server.v1_8_R3.TileEntityEnderChest;

import org.bukkit.Effect;
import org.bukkit.Location;
import org.bukkit.Material;
import org.bukkit.Sound;
import org.bukkit.block.Block;
import org.bukkit.block.BlockFace;
import org.bukkit.craftbukkit.v1_8_R3.CraftWorld;
import org.bukkit.craftbukkit.v1_8_R3.entity.CraftPlayer;
import org.bukkit.craftbukkit.v1_8_R3.util.CraftMagicNumbers;
import org.bukkit.entity.Item;
import org.bukkit.entity.Player;
import org.bukkit.event.EventHandler;
import org.bukkit.event.Listener;
import org.bukkit.event.block.BlockDamageEvent;
import org.bukkit.event.player.PlayerCommandPreprocessEvent;
import org.bukkit.event.player.PlayerInteractEvent;
import org.bukkit.event.player.PlayerPickupItemEvent;
import org.bukkit.inventory.ItemStack;
import org.bukkit.util.Vector;

public class HolidayManager implements Listener
{
	public enum HolidayType
	{
		Christmas(Material.CHEST, "Present", Sound.CAT_MEOW),
		Halloween(Material.PUMPKIN, "Pumpkin", Sound.ZOMBIE_REMEDY),
		Easter(Material.CHEST, "Egg Basket", Sound.CAT_MEOW);

		private Material _blockType;
		private String _blockName;
		private Sound _blockBreakSound;

		HolidayType(Material blockType, String blockName, Sound blockBreakSound)
		{
			_blockType = blockType;
			_blockName = blockName;
			_blockBreakSound = blockBreakSound;
		}

		public String getBlockName() 
		{
			return _blockName;
		}

		public Sound getBlockSound()
		{
			return _blockBreakSound;
		}

		public Material getBlockType() 
		{
			return _blockType;
		}
	}

	private HolidayType type = HolidayType.Christmas;
	private String _statName = "Christmas Presents 2015";

	ArcadeManager Manager;
	private TitanGiveawayManager _titanManager;

	public HashSet<Block> _active = new HashSet<Block>();

	private HashSet<Item> _eggs = new HashSet<Item>();

	private HashSet<Item> _coins = new HashSet<Item>();
	private HashSet<Item> _gems = new HashSet<Item>();

	public long _lastSpawn = System.currentTimeMillis();

	public HolidayManager(ArcadeManager manager, TitanGiveawayManager titanManager)
	{
		Manager = manager;
		_titanManager = titanManager;

		Manager.getPluginManager().registerEvents(this, Manager.getPlugin());
	}	

	@EventHandler
	public void reset(GameStateChangeEvent event) 
	{
		_active.clear();

		_lastSpawn = System.currentTimeMillis();
	}

	@EventHandler
	public void blockEffect(UpdateEvent event)
	{
		if (event.getType() == UpdateType.TICK)
			return;

		Iterator<Block> blockIterator = _active.iterator();

		while (blockIterator.hasNext())
		{
			Block block = blockIterator.next();

			//Break
			if (block.getType() != Material.PUMPKIN && 
					block.getType() != Material.JACK_O_LANTERN && 
					block.getType() != Material.CHEST)
			{
				specialBlockBreak(null, block);
				blockIterator.remove();
				continue;
			}

			if (type == HolidayType.Halloween)
			{
				UtilParticle.PlayParticle(ParticleType.FLAME, block.getLocation().add(0.5, 0.5, 0.5), 0, 0, 0, 0.06f, 4,
						ViewDist.LONG, UtilServer.getPlayers());
				if (Math.random() > 0.90)
				{
					if (block.getType() == Material.PUMPKIN)
					{
						block.setType(Material.JACK_O_LANTERN);
					}
					else
					{
						block.setType(Material.PUMPKIN);
					}
				}
			}
			else if (type == HolidayType.Easter)
			{
				UtilParticle.PlayParticle(ParticleType.HAPPY_VILLAGER, block.getLocation().add(0.5, 0.2, 0.5), 0.3f, 0.2f, 0.3f, 0, 1,
						ViewDist.LONG, UtilServer.getPlayers());

				if (Math.random() > 0.90)
				{
					Item egg = block.getWorld().dropItem(block.getLocation().add(0.5, 0.8, 0.5), 
							ItemStackFactory.Instance.CreateStack(Material.EGG, (byte)0, 1, System.currentTimeMillis() + "Egg"));
					egg.setVelocity(new Vector((Math.random()-0.5)*0.3, Math.random()-0.4, (Math.random()-0.5)*0.3));

					_eggs.add(egg);

					block.getWorld().playSound(block.getLocation(), Sound.CHICKEN_EGG_POP, 0.25f + (float)Math.random() * 0.75f, 0.75f + (float)Math.random() * 0.5f);
				}

				if (Math.random() > 0.95)
				{
					sendChestPackets(block);
				}
			}
			else if (type == HolidayType.Christmas)
			{
				UtilParticle.PlayParticle(ParticleType.SNOW_SHOVEL, block.getLocation().add(0.5, 1, 0.5), 0.5f, 0.5f, 0.5f, 0, 3,
						ViewDist.LONG, UtilServer.getPlayers());
			}
		}
	}

	@EventHandler
	public void spawnSpecialBlockUpdate(UpdateEvent event)
	{
		if (event.getType() != UpdateType.SEC)
			return;

		if (Manager.GetGame() == null)
			return;

		if (Manager.GetGameHostManager().isPrivateServer())
			return;

		Game game = Manager.GetGame();

		int requirement = (int)((double)Manager.GetPlayerFull() * 0.5d);
		if (UtilServer.getPlayers().length < requirement)
			return;

		if (game.GetState() != GameState.Live)
			return; 

		if (!UtilTime.elapsed(_lastSpawn, 90000))
			return;

		if (Math.random() > 0.01)
			return;

		int toDrop = Math.max(1, game.GetPlayers(false).size()/6);
		for (int i=0 ; i< toDrop ; i++)
		{
			double interval = 1 / (double)(toDrop);

			if (Math.random() >= (i * interval)) // Diminishing per growth
			{
				spawnSpecialBlock(findSpecialBlockLocation(game));
			}
		}	

		_lastSpawn = System.currentTimeMillis();
	}

	private void spawnSpecialBlock(Block block)
	{
		if (block == null)
		{
			System.out.println("Holiday Block: Could Not Find Suitable Block");
			return;
		}

		block.setType(type.getBlockType());
		block.getWorld().playEffect(block.getLocation(), Effect.STEP_SOUND, type.getBlockType());

		if (type.getBlockType() == Material.CHEST)
		{
			sendChestPackets(block);
		}

		_active.add(block);

		System.out.println("Spawned Holiday Block: " + UtilWorld.locToStrClean(block.getLocation()));
	} 

	private void sendChestPackets(Block block)
	{
		PacketPlayOutBlockAction packet = new PacketPlayOutBlockAction(new BlockPosition(block.getX(), block.getY(), block.getZ()),
				CraftMagicNumbers.getBlock(block), 1, 1);

		for (Player other : UtilServer.getPlayers())
			UtilPlayer.sendPacket(other, packet);
	}

	private Block findSpecialBlockLocation(Game game)
	{
		Block block = null;
		int attempts = 2000;
		while (attempts > 0)
		{
			attempts--;

			int x = game.WorldData.MinX + UtilMath.r(Math.abs(game.WorldData.MaxX - game.WorldData.MinX));
			int z = game.WorldData.MinZ + UtilMath.r(Math.abs(game.WorldData.MaxZ - game.WorldData.MinZ));

			block = UtilBlock.getHighest(game.WorldData.World, x, z, null);

			if (block.getLocation().getY() <= 2 || block.getLocation().getY() < game.WorldData.MinY || block.getLocation().getY() > game.WorldData.MaxY)
				continue;

			if (block.getRelative(BlockFace.DOWN).isLiquid())
				continue;

			if (!UtilBlock.airFoliage(block) || !UtilBlock.airFoliage(block.getRelative(BlockFace.UP)))
				continue;

			if (!UtilBlock.solid(block.getRelative(BlockFace.DOWN)))
				continue;

			boolean nextToChest = false;
			for (Block other : UtilBlock.getSurrounding(block, false))
			{
				if (other.getType() == Material.CHEST)
					nextToChest = true;
			}
			if (nextToChest)
				continue;

			return block;
		}

		return null;
}

	@EventHandler
	public void specialBlockDamage(BlockDamageEvent event)
	{
		if (UtilPlayer.isSpectator(event.getPlayer()))
			return;

		if (Manager.GetGame() != null && !Manager.GetGame().IsAlive(event.getPlayer()))
			return;

		if (!_active.contains(event.getBlock()))
			return;

		specialBlockBreak(event.getPlayer(), event.getBlock());
	}

	private void specialBlockBreak(Player player, final Block block)
	{
		block.getWorld().playEffect(block.getLocation(), Effect.STEP_SOUND, type.getBlockType());
		block.setType(Material.AIR);

		if (player != null && Manager.GetGame() != null)
		{
			Manager.GetGame().AddStat(player, _statName, 1, false, true);
			System.out.println("Recording Pumpkin Break for " + player.getName());
		}

		//Coins
		for (int i=0 ; i < 4 + Math.random()*8 ; i++)
		{
			Item coin = block.getWorld().dropItem(block.getLocation().add(0.5, 1, 0.5), 
					ItemStackFactory.Instance.CreateStack(175, (byte)0, 1, UtilMath.r(999999) + "Coin"));

			Vector vel = new Vector(
					(Math.random() - 0.5) * 0.5, 
					0.1 + Math.random() * 0.3, 
					(Math.random() - 0.5) * 0.5);

			coin.setVelocity(vel);

			coin.setPickupDelay(20);

			_coins.add(coin);
		}

		//Gems
		for (int i=0 ; i < 4 + Math.random()*8 ; i++)
		{
			Item gem = block.getWorld().dropItem(block.getLocation().add(0.5, 1, 0.5),
					ItemStackFactory.Instance.CreateStack(Material.EMERALD, (byte)0, 1, UtilMath.r(999999) + "Gem"));

			Vector vel = new Vector(
					(Math.random() - 0.5) * 0.5,
					0.1 + Math.random() * 0.3,
					(Math.random() - 0.5) * 0.5);

			gem.setVelocity(vel);

			gem.setPickupDelay(20);

			_gems.add(gem);
		}

		// Titan Giveaway
		if (player != null)
		{
			_titanManager.openPumpkin(player, new Runnable()
			{
				@Override
				public void run()
				{
					Location location = block.getLocation().add(0.5, 0.5, 0.5);
					new TitanGiveawayAnimation(_titanManager, location, 3000L);
				}
			});
		}

		//Effect
		block.getWorld().playSound(block.getLocation(), type.getBlockSound(), 1f, 1f);
	}

	@EventHandler
	public void coinPickup(PlayerPickupItemEvent event)
	{
		if (UtilPlayer.isSpectator(event.getPlayer()))
			return;

		if (_coins.contains(event.getItem()))
		{
			event.setCancelled(true);
			event.getItem().remove();

			Manager.GetDonation().RewardCoinsLater(type + " Coins", event.getPlayer(), 4 * event.getItem().getItemStack().getAmount());

			event.getPlayer().getWorld().playSound(event.getPlayer().getLocation(), Sound.ORB_PICKUP, 1f, 2f);
		}
		else if (_gems.contains(event.getItem()))
		{
			event.setCancelled(true);
			event.getItem().remove();

			Manager.GetDonation().RewardGemsLater(type + " Gems", event.getPlayer(), 4 * event.getItem().getItemStack().getAmount());

			event.getPlayer().getWorld().playSound(event.getPlayer().getLocation(), Sound.ORB_PICKUP, 1f, 2f);
		}

		else if (_eggs.contains(event.getItem()))
		{
			event.setCancelled(true);
		}
	}

	@EventHandler
	public void itemClean(UpdateEvent event)
	{
		if (event.getType() != UpdateType.FAST)
			return;

		Iterator<Item> coinIterator = _coins.iterator();

		while (coinIterator.hasNext())
		{
			Item coin = coinIterator.next();

			if (!coin.isValid() || coin.getTicksLived() > 1200)
			{
				coin.remove();
				coinIterator.remove();
			}
		}

		Iterator<Item> gemIterator = _gems.iterator();

		while (gemIterator.hasNext())
		{
			Item gem = gemIterator.next();

			if (!gem.isValid() || gem.getTicksLived() > 1200)
			{
				gem.remove();
				gemIterator.remove();
			}
		}

		Iterator<Item> eggIterator = _eggs.iterator();

		while (eggIterator.hasNext())
		{
			Item egg = eggIterator.next();

			if (!egg.isValid() || egg.getTicksLived() > 40)
			{
				egg.remove();
				eggIterator.remove();
			}
		}
	}

	@EventHandler
	public void spawnDebug(PlayerCommandPreprocessEvent event)
	{
		if (event.getPlayer().isOp() && event.getPlayer().getName().equals("Chiss") && event.getMessage().contains("pumpkin"))
		{
			spawnSpecialBlock(event.getPlayer().getLocation().getBlock());
		}
	}
}