/*
 * This program is free software: you can redistribute it and/or modify it under
 * the terms of the GNU General Public License as published by the Free Software
 * Foundation, either version 3 of the License, or (at your option) any later
 * version.
 * 
 * This program 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 General Public License for more
 * details.
 * 
 * You should have received a copy of the GNU General Public License along with
 * this program. If not, see <http://www.gnu.org/licenses/>.
 */
package com.l2jserver.gameserver.datatables;

import gnu.trove.map.hash.TIntObjectHashMap;

import java.io.BufferedReader;
import java.io.File;
import java.io.FileNotFoundException;
import java.io.FileReader;
import java.io.IOException;
import java.io.LineNumberReader;
import java.util.ArrayList;
import java.util.StringTokenizer;
import java.util.logging.Level;
import java.util.logging.Logger;

import com.l2jserver.Config;
import com.l2jserver.gameserver.idfactory.IdFactory;
import com.l2jserver.gameserver.instancemanager.ClanHallManager;
import com.l2jserver.gameserver.instancemanager.InstanceManager;
import com.l2jserver.gameserver.instancemanager.MapRegionManager;
import com.l2jserver.gameserver.model.StatsSet;
import com.l2jserver.gameserver.model.actor.instance.L2DoorInstance;
import com.l2jserver.gameserver.model.actor.templates.L2CharTemplate;
import com.l2jserver.gameserver.model.entity.ClanHall;
import com.l2jserver.gameserver.model.entity.clanhall.SiegableHall;
import com.l2jserver.gameserver.pathfinding.AbstractNodeLoc;

public class DoorTable
{
	private static final Logger _log = Logger.getLogger(DoorTable.class.getName());
	
	private final TIntObjectHashMap<L2DoorInstance> _staticItems;
	private final TIntObjectHashMap<ArrayList<L2DoorInstance>> _regions;
	
	protected DoorTable()
	{
		_staticItems = new TIntObjectHashMap<L2DoorInstance>();
		_regions = new TIntObjectHashMap<ArrayList<L2DoorInstance>>();
		parseData();
		onStart();
	}
	
	public void reloadAll()
	{
		respawn();
	}
	
	public void respawn()
	{
		_staticItems.clear();
		_regions.clear();
		parseData();
	}
	
	public void parseData()
	{
		final File doorData = new File(Config.DATAPACK_ROOT, "data/door.csv");
		try (
			FileReader fr = new FileReader(doorData);
			BufferedReader br = new BufferedReader(fr);
			LineNumberReader lnr = new LineNumberReader(br))
		{
			String line = null;
			_log.info("Searching clan halls doors:");
			
			while ((line = lnr.readLine()) != null)
			{
				if ((line.trim().length() == 0) || line.startsWith("#"))
				{
					continue;
				}
				
				L2DoorInstance door = parseList(line, false);
				putDoor(door);
				door.spawnMe(door.getX(), door.getY(), door.getZ());
			}
			
			_log.info("DoorTable: Loaded " + _staticItems.size() + " Door Templates for " + _regions.size() + " regions.");
		}
		catch (FileNotFoundException e)
		{
			_log.warning("door.csv is missing in data folder");
		}
		catch (IOException e)
		{
			_log.log(Level.WARNING, "Error while creating door table " + e.getMessage(), e);
		}
	}
	
	/**
	 * Parses door list.
	 * @param line string
	 * @param commanderDoor whether the door is commander door (fortress)
	 * @return created door instance
	 */
	public static L2DoorInstance parseList(final String line, final boolean commanderDoor)
	{
		StringTokenizer st = new StringTokenizer(line, ";");
		L2DoorInstance door = null;
		try
		{
			String name = st.nextToken();
			int id = Integer.parseInt(st.nextToken());
			int x = Integer.parseInt(st.nextToken());
			int y = Integer.parseInt(st.nextToken());
			int z = Integer.parseInt(st.nextToken());
			int rangeXMin = Integer.parseInt(st.nextToken());
			int rangeYMin = Integer.parseInt(st.nextToken());
			int rangeZMin = Integer.parseInt(st.nextToken());
			int rangeXMax = Integer.parseInt(st.nextToken());
			int rangeYMax = Integer.parseInt(st.nextToken());
			int rangeZMax = Integer.parseInt(st.nextToken());
			int hp = Integer.parseInt(st.nextToken());
			int pdef = Integer.parseInt(st.nextToken());
			int mdef = Integer.parseInt(st.nextToken());
			int emitter = Integer.parseInt(st.nextToken());
			boolean unlockable = false;
			if (st.hasMoreTokens())
			{
				unlockable = Boolean.parseBoolean(st.nextToken());
			}
			boolean startOpen = false;
			if (st.hasMoreTokens())
			{
				startOpen = Boolean.parseBoolean(st.nextToken());
			}
			boolean targetable = true;
			if (st.hasMoreTokens())
			{
				targetable = Boolean.parseBoolean(st.nextToken());
			}
			int hallId = 0;
			if (st.hasMoreTokens())
			{
				hallId = Integer.parseInt(st.nextToken());
			}
			
			if (rangeXMin > rangeXMax)
			{
				_log.severe("Error in door data, XMin > XMax, ID:" + id);
			}
			if (rangeYMin > rangeYMax)
			{
				_log.severe("Error in door data, YMin > YMax, ID:" + id);
			}
			if (rangeZMin > rangeZMax)
			{
				_log.severe("Error in door data, ZMin > ZMax, ID:" + id);
			}
			int collisionRadius; // (max) radius for movement checks
			if ((rangeXMax - rangeXMin) > (rangeYMax - rangeYMin))
			{
				collisionRadius = rangeYMax - rangeYMin;
			}
			else
			{
				collisionRadius = rangeXMax - rangeXMin;
			}
			
			StatsSet npcDat = new StatsSet();
			npcDat.set("npcId", id);
			npcDat.set("level", 0);
			npcDat.set("jClass", "door");
			
			npcDat.set("baseSTR", 0);
			npcDat.set("baseCON", 0);
			npcDat.set("baseDEX", 0);
			npcDat.set("baseINT", 0);
			npcDat.set("baseWIT", 0);
			npcDat.set("baseMEN", 0);
			
			npcDat.set("baseShldDef", 0);
			npcDat.set("baseShldRate", 0);
			npcDat.set("baseAccCombat", 38);
			npcDat.set("baseEvasRate", 38);
			npcDat.set("baseCritRate", 38);
			
			// npcDat.set("name", "");
			npcDat.set("collision_radius", collisionRadius);
			npcDat.set("collision_height", rangeZMax - rangeZMin);
			npcDat.set("sex", "male");
			npcDat.set("type", "");
			npcDat.set("baseAtkRange", 0);
			npcDat.set("baseMpMax", 0);
			npcDat.set("baseCpMax", 0);
			npcDat.set("rewardExp", 0);
			npcDat.set("rewardSp", 0);
			npcDat.set("basePAtk", 0);
			npcDat.set("baseMAtk", 0);
			npcDat.set("basePAtkSpd", 0);
			npcDat.set("aggroRange", 0);
			npcDat.set("baseMAtkSpd", 0);
			npcDat.set("rhand", 0);
			npcDat.set("lhand", 0);
			npcDat.set("armor", 0);
			npcDat.set("baseWalkSpd", 0);
			npcDat.set("baseRunSpd", 0);
			npcDat.set("name", name);
			npcDat.set("baseHpMax", hp);
			npcDat.set("baseHpReg", 3.e-3f);
			npcDat.set("baseMpReg", 3.e-3f);
			npcDat.set("basePDef", pdef);
			npcDat.set("baseMDef", mdef);
			
			L2CharTemplate template = new L2CharTemplate(npcDat);
			door = new L2DoorInstance(IdFactory.getInstance().getNextId(), template, id, name, unlockable);
			door.setRange(rangeXMin, rangeYMin, rangeZMin, rangeXMax, rangeYMax, rangeZMax);
			door.setCurrentHpMp(door.getMaxHp(), door.getMaxMp());
			door.setXYZInvisible(x, y, z);
			door.setMapRegion(MapRegionManager.getInstance().getMapRegionLocId(x, y));
			door.setEmitter(emitter);
			door.setTargetable(targetable);
			
			if (hallId > 0)
			{
				ClanHall hall = ClanHallManager.getAllClanHalls().get(hallId);
				if (hall != null)
				{
					door.setClanHall(hall);
					hall.getDoors().add(door);
					
					if (hall.isSiegableHall())
					{
						((SiegableHall) hall).getDoorDefault().add(line);
					}
				}
			}
			
			if (commanderDoor)
			{
				door.setIsCommanderDoor(startOpen);
			}
			else
			{
				door.setOpen(startOpen);
			}
		}
		catch (Exception e)
		{
			_log.log(Level.SEVERE, "Error in door data at line: " + line, e);
		}
		return door;
	}
	
	public L2DoorInstance getDoor(Integer id)
	{
		return _staticItems.get(id);
	}
	
	public void putDoor(L2DoorInstance door)
	{
		_staticItems.put(door.getDoorId(), door);
		
		if (_regions.contains(door.getMapRegion()))
		{
			_regions.get(door.getMapRegion()).add(door);
		}
		else
		{
			final ArrayList<L2DoorInstance> region = new ArrayList<L2DoorInstance>();
			region.add(door);
			_regions.put(door.getMapRegion(), region);
		}
	}
	
	public L2DoorInstance[] getDoors()
	{
		return _staticItems.values(new L2DoorInstance[0]);
	}
	
	/**
	 * Performs a check and sets up a scheduled task for those doors that require auto opening/closing.
	 */
	public void checkAutoOpen()
	{
		for (L2DoorInstance doorInst : getDoors())
		{
			// Tower of Insolence (open_time 120 seconds)
			// TODO: (close_time 120 seconds & random_time 120 seconds)
			if (doorInst.getDoorName().startsWith("toi_"))
			{
				doorInst.setAutoActionDelay(120000);
			}
			
			// devils (open_time 2 minutes)
			// TODO: (close_time 120 seconds & random_time 30 seconds)
			else if (doorInst.getDoorName().startsWith("di_"))
			{
				doorInst.setAutoActionDelay(120000);
			}
			
			// Garden of Eva (open_time 300 seconds)
			// TODO: (close_time 20 seconds & random_time 120 seconds)
			else if (doorInst.getDoorName().startsWith("goe_"))
			{
				doorInst.setAutoActionDelay(300000);
			}
			
			// Kratei's Cube (open_time 20 seconds)
			// TODO: (close_time 15 seconds & random_time 10 seconds)
			else if (doorInst.getDoorName().startsWith("kc20_"))
			{
				doorInst.setAutoActionDelay(20000);
			}
			
			// Kratei's Cube (open_time 30 seconds)
			// TODO: (close_time 15 seconds & random_time 10 seconds)
			else if (doorInst.getDoorName().startsWith("kc30_"))
			{
				doorInst.setAutoActionDelay(30000);
			}
			
			// Kratei's Cube (open_time 25 seconds)
			// TODO: (close_time 15 seconds & random_time 10 seconds)
			else if (doorInst.getDoorName().startsWith("kc25_"))
			{
				doorInst.setAutoActionDelay(25000);
			}
			
			// Kratei's Cube (open_time 15 seconds)
			// TODO: (close_time 15 seconds & random_time 10 seconds)
			else if (doorInst.getDoorName().startsWith("kc15_"))
			{
				doorInst.setAutoActionDelay(15000);
			}
			
			// Kratei's Cube (open_time 10 seconds)
			// TODO: (close_time 15 seconds & random_time 5 seconds)
			else if (doorInst.getDoorName().startsWith("kc10_"))
			{
				doorInst.setAutoActionDelay(10000);
			}
			
			// Kratei's Cube (open_time 10 seconds)
			// TODO: (close_time 15 seconds & random_time 10 seconds)
			else if (doorInst.getDoorName().startsWith("kc10b_"))
			{
				doorInst.setAutoActionDelay(10000);
			}
			
			// Kratei's Cube (open_time 14 seconds)
			// TODO: (close_time 15 seconds & random_time 10 seconds)
			else if (doorInst.getDoorName().startsWith("kc14_"))
			{
				doorInst.setAutoActionDelay(14000);
			}
			
			// Kratei's Cube (open_time 23 seconds)
			// TODO: (close_time 15 seconds & random_time 10 seconds)
			else if (doorInst.getDoorName().startsWith("kc23_"))
			{
				doorInst.setAutoActionDelay(23000);
			}
			
			// Kratei's Cube (open_time 18 seconds)
			// TODO: (close_time 15 seconds & random_time 10 seconds)
			else if (doorInst.getDoorName().startsWith("kc18_"))
			{
				doorInst.setAutoActionDelay(18000);
			}
			
			// Kratei's Cube (open_time 26 seconds)
			// TODO: (close_time 15 seconds & random_time 10 seconds)
			else if (doorInst.getDoorName().startsWith("kc26_"))
			{
				doorInst.setAutoActionDelay(26000);
			}
		}
	}
	
	public boolean checkIfDoorsBetween(AbstractNodeLoc start, AbstractNodeLoc end, int instanceId)
	{
		return checkIfDoorsBetween(start.getX(), start.getY(), start.getZ(), end.getX(), end.getY(), end.getZ(), instanceId);
	}
	
	public boolean checkIfDoorsBetween(int x, int y, int z, int tx, int ty, int tz, int instanceId)
	{
		ArrayList<L2DoorInstance> allDoors;
		if ((instanceId > 0) && (InstanceManager.getInstance().getInstance(instanceId) != null))
		{
			allDoors = InstanceManager.getInstance().getInstance(instanceId).getDoors();
		}
		else
		{
			allDoors = _regions.get(MapRegionManager.getInstance().getMapRegionLocId(x, y));
		}
		
		if (allDoors == null)
		{
			return false;
		}
		
		for (L2DoorInstance doorInst : allDoors)
		{
			if (doorInst.getXMax() == 0)
			{
				continue;
			}
			
			// line segment goes through box
			// first basic checks to stop most calculations short
			// phase 1, x
			if (((x <= doorInst.getXMax()) && (tx >= doorInst.getXMin())) || ((tx <= doorInst.getXMax()) && (x >= doorInst.getXMin())))
			{
				// phase 2, y
				if (((y <= doorInst.getYMax()) && (ty >= doorInst.getYMin())) || ((ty <= doorInst.getYMax()) && (y >= doorInst.getYMin())))
				{
					// phase 3, basically only z remains but now we calculate it with another formula (by rage)
					// in some cases the direct line check (only) in the beginning isn't sufficient,
					// when char z changes a lot along the path
					if ((doorInst.getCurrentHp() > 0) && !doorInst.getOpen())
					{
						int px1 = doorInst.getXMin();
						int py1 = doorInst.getYMin();
						int pz1 = doorInst.getZMin();
						int px2 = doorInst.getXMax();
						int py2 = doorInst.getYMax();
						int pz2 = doorInst.getZMax();
						
						int l = tx - x;
						int m = ty - y;
						int n = tz - z;
						
						int dk;
						
						if ((dk = ((doorInst.getA() * l) + (doorInst.getB() * m) + (doorInst.getC() * n))) == 0)
						{
							continue; // Parallel
						}
						
						float p = (float) ((doorInst.getA() * x) + (doorInst.getB() * y) + (doorInst.getC() * z) + doorInst.getD()) / (float) dk;
						
						int fx = (int) (x - (l * p));
						int fy = (int) (y - (m * p));
						int fz = (int) (z - (n * p));
						
						if (((Math.min(x, tx) <= fx) && (fx <= Math.max(x, tx))) && ((Math.min(y, ty) <= fy) && (fy <= Math.max(y, ty))) && ((Math.min(z, tz) <= fz) && (fz <= Math.max(z, tz))))
						{
							if ((((fx >= px1) && (fx <= px2)) || ((fx >= px2) && (fx <= px1))) && (((fy >= py1) && (fy <= py2)) || ((fy >= py2) && (fy <= py1))) && (((fz >= pz1) && (fz <= pz2)) || ((fz >= pz2) && (fz <= pz1))))
							{
								return true; // Door between
							}
						}
					}
				}
			}
		}
		return false;
	}
	
	private void onStart()
	{
		try
		{
			checkAutoOpen();
		}
		catch (NullPointerException e)
		{
			_log.log(Level.WARNING, "There are errors in your Door.csv file. Update door.csv", e);
		}
	}
	
	public static DoorTable getInstance()
	{
		return SingletonHolder._instance;
	}
	
	private static class SingletonHolder
	{
		protected static final DoorTable _instance = new DoorTable();
	}
}