/*
 * Copyright (C) 2004-2014 L2J DataPack
 * 
 * This file is part of L2J DataPack.
 * 
 * L2J DataPack 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.
 * 
 * L2J DataPack 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 instances.Kamaloka;

import java.util.ArrayList;
import java.util.Arrays;
import java.util.Calendar;
import java.util.List;
import java.util.function.Function;
import java.util.logging.Level;

import jp.sf.l2j.troja.FastIntObjectMap;
import jp.sf.l2j.troja.IntObjectMap;

import com.l2jserver.gameserver.datatables.SkillData;
import com.l2jserver.gameserver.instancemanager.InstanceManager;
import com.l2jserver.gameserver.model.L2Party;
import com.l2jserver.gameserver.model.L2Spawn;
import com.l2jserver.gameserver.model.L2World;
import com.l2jserver.gameserver.model.Location;
import com.l2jserver.gameserver.model.actor.L2Character;
import com.l2jserver.gameserver.model.actor.L2Npc;
import com.l2jserver.gameserver.model.actor.instance.L2MonsterInstance;
import com.l2jserver.gameserver.model.actor.instance.L2PcInstance;
import com.l2jserver.gameserver.model.entity.Instance;
import com.l2jserver.gameserver.model.instancezone.InstanceWorld;
import com.l2jserver.gameserver.model.quest.Quest;
import com.l2jserver.gameserver.model.skills.BuffInfo;
import com.l2jserver.gameserver.model.skills.Skill;
import com.l2jserver.gameserver.network.SystemMessageId;
import com.l2jserver.gameserver.network.serverpackets.SystemMessage;

public final class Kamaloka extends Quest
{
	/*
	 * Reset time for all kamaloka Default: 6:30AM on server time
	 */
	private static final int RESET_HOUR = 6;
	private static final int RESET_MIN = 30;
	
	/*
	 * Time after which instance without players will be destroyed Default: 5 minutes
	 */
	private static final int EMPTY_DESTROY_TIME = 5;
	
	/*
	 * Time to destroy instance (and eject players away) after boss defeat Default: 5 minutes
	 */
	private static final int EXIT_TIME = 5;
	
	/*
	 * Maximum level difference between players level and kamaloka level Default: 5
	 */
	private static final int MAX_LEVEL_DIFFERENCE = 5;
	
	/*
	 * If true shaman in the first room will have same npcId as other mobs, making radar useless Default: true (but not retail like)
	 */
	private static final boolean STEALTH_SHAMAN = true;
	// Template IDs for Kamaloka
	// @formatter:off
	private static final int[] TEMPLATE_IDS =
	{
		57, 58, 73, 60, 61, 74, 63, 64, 75, 66, 67, 76, 69, 70, 77, 72, 78, 79, 134
	};
	// Level of the Kamaloka
	private static final int[] LEVEL =
	{
		23, 26, 29, 33, 36, 39, 43, 46, 49, 53, 56, 59, 63, 66, 69, 73, 78, 81, 83
	};
	// Duration of the instance, minutes
	private static final int[] DURATION =
	{
		30, 30, 45, 30, 30, 45, 30, 30, 45, 30, 30, 45, 30, 30, 45, 30, 45, 45, 45
	};
	// Maximum party size for the instance
	private static final int[] MAX_PARTY_SIZE =
	{
		6, 6, 9, 6, 6, 9, 6, 6, 9, 6, 6, 9, 6, 6, 9, 6, 9, 9, 9
	};
	
	/**
	 * List of buffs NOT removed on enter from player and pet<br>
	 * On retail only newbie guide buffs not removed<br>
	 * CAUTION: array must be sorted in ascension order!
	 */
	protected static final int[] BUFFS_WHITELIST =
	{
		4322, 4323, 4324, 4325, 4326, 4327, 4328, 4329, 4330, 4331, 5632, 5637, 5950
	};
	// @formatter:on
	// Teleport points into instances x, y, z
	private static final Location[] TELEPORTS =
	{
		new Location(-88429, -220629, -7903),
		new Location(-82464, -219532, -7899),
		new Location(-10700, -174882, -10936), // -76280, -185540, -10936
		new Location(-89683, -213573, -8106),
		new Location(-81413, -213568, -8104),
		new Location(-10700, -174882, -10936), // -76280, -174905, -10936
		new Location(-89759, -206143, -8120),
		new Location(-81415, -206078, -8107),
		new Location(-10700, -174882, -10936),
		new Location(-56999, -219856, -8117),
		new Location(-48794, -220261, -8075),
		new Location(-10700, -174882, -10936),
		new Location(-56940, -212939, -8072),
		new Location(-55566, -206139, -8120),
		new Location(-10700, -174882, -10936),
		new Location(-49805, -206139, -8117),
		new Location(-10700, -174882, -10936),
		new Location(-10700, -174882, -10936),
		new Location(22003, -174886, -10900),
	};
	
	// Respawn delay for the mobs in the first room, seconds Default: 25
	private static final int FIRST_ROOM_RESPAWN_DELAY = 25;
	
	/**
	 * First room information, null if room not spawned.<br>
	 * Skill is casted on the boss when shaman is defeated and mobs respawn stopped<br>
	 * Default: 5699 (decrease pdef)<br>
	 * shaman npcId, minions npcId, skillId, skillLvl
	 */
	private static final int[][] FIRST_ROOM =
	{
		null,
		null,
		{
			22485,
			22486,
			5699,
			1
		},
		null,
		null,
		{
			22488,
			22489,
			5699,
			2
		},
		null,
		null,
		{
			22491,
			22492,
			5699,
			3
		},
		null,
		null,
		{
			22494,
			22495,
			5699,
			4
		},
		null,
		null,
		{
			22497,
			22498,
			5699,
			5
		},
		null,
		{
			22500,
			22501,
			5699,
			6
		},
		{
			22503,
			22504,
			5699,
			7
		},
		{
			25706,
			25707,
			5699,
			7
		}
	};
	
	/*
	 * First room spawns, null if room not spawned x, y, z
	 */
	private static final int[][][] FIRST_ROOM_SPAWNS =
	{
		null,
		null,
		{
			{
				-12381,
				-174973,
				-10955
			},
			{
				-12413,
				-174905,
				-10955
			},
			{
				-12377,
				-174838,
				-10953
			},
			{
				-12316,
				-174903,
				-10953
			},
			{
				-12326,
				-174786,
				-10953
			},
			{
				-12330,
				-175024,
				-10953
			},
			{
				-12211,
				-174900,
				-10955
			},
			{
				-12238,
				-174849,
				-10953
			},
			{
				-12233,
				-174954,
				-10953
			}
		},
		null,
		null,
		{
			{
				-12381,
				-174973,
				-10955
			},
			{
				-12413,
				-174905,
				-10955
			},
			{
				-12377,
				-174838,
				-10953
			},
			{
				-12316,
				-174903,
				-10953
			},
			{
				-12326,
				-174786,
				-10953
			},
			{
				-12330,
				-175024,
				-10953
			},
			{
				-12211,
				-174900,
				-10955
			},
			{
				-12238,
				-174849,
				-10953
			},
			{
				-12233,
				-174954,
				-10953
			}
		},
		null,
		null,
		{
			{
				-12381,
				-174973,
				-10955
			},
			{
				-12413,
				-174905,
				-10955
			},
			{
				-12377,
				-174838,
				-10953
			},
			{
				-12316,
				-174903,
				-10953
			},
			{
				-12326,
				-174786,
				-10953
			},
			{
				-12330,
				-175024,
				-10953
			},
			{
				-12211,
				-174900,
				-10955
			},
			{
				-12238,
				-174849,
				-10953
			},
			{
				-12233,
				-174954,
				-10953
			}
		},
		null,
		null,
		{
			{
				-12381,
				-174973,
				-10955
			},
			{
				-12413,
				-174905,
				-10955
			},
			{
				-12377,
				-174838,
				-10953
			},
			{
				-12316,
				-174903,
				-10953
			},
			{
				-12326,
				-174786,
				-10953
			},
			{
				-12330,
				-175024,
				-10953
			},
			{
				-12211,
				-174900,
				-10955
			},
			{
				-12238,
				-174849,
				-10953
			},
			{
				-12233,
				-174954,
				-10953
			}
		},
		null,
		null,
		{
			{
				-12381,
				-174973,
				-10955
			},
			{
				-12413,
				-174905,
				-10955
			},
			{
				-12377,
				-174838,
				-10953
			},
			{
				-12316,
				-174903,
				-10953
			},
			{
				-12326,
				-174786,
				-10953
			},
			{
				-12330,
				-175024,
				-10953
			},
			{
				-12211,
				-174900,
				-10955
			},
			{
				-12238,
				-174849,
				-10953
			},
			{
				-12233,
				-174954,
				-10953
			}
		},
		null,
		{
			{
				-12381,
				-174973,
				-10955
			},
			{
				-12413,
				-174905,
				-10955
			},
			{
				-12377,
				-174838,
				-10953
			},
			{
				-12316,
				-174903,
				-10953
			},
			{
				-12326,
				-174786,
				-10953
			},
			{
				-12330,
				-175024,
				-10953
			},
			{
				-12211,
				-174900,
				-10955
			},
			{
				-12238,
				-174849,
				-10953
			},
			{
				-12233,
				-174954,
				-10953
			}
		},
		{
			{
				-12381,
				-174973,
				-10955
			},
			{
				-12413,
				-174905,
				-10955
			},
			{
				-12377,
				-174838,
				-10953
			},
			{
				-12316,
				-174903,
				-10953
			},
			{
				-12326,
				-174786,
				-10953
			},
			{
				-12330,
				-175024,
				-10953
			},
			{
				-12211,
				-174900,
				-10955
			},
			{
				-12238,
				-174849,
				-10953
			},
			{
				-12233,
				-174954,
				-10953
			}
		},
		{
			{
				20409,
				-174827,
				-10912
			},
			{
				20409,
				-174947,
				-10912
			},
			{
				20494,
				-174887,
				-10912
			},
			{
				20494,
				-174767,
				-10912
			},
			{
				20614,
				-174887,
				-10912
			},
			{
				20579,
				-174827,
				-10912
			},
			{
				20579,
				-174947,
				-10912
			},
			{
				20494,
				-175007,
				-10912
			},
			{
				20374,
				-174887,
				-10912
			}
		}
	};
	
	/*
	 * Second room information, null if room not spawned Skill is casted on the boss when all mobs are defeated Default: 5700 (decrease mdef) npcId, skillId, skillLvl
	 */
	private static final int[][] SECOND_ROOM =
	{
		null,
		null,
		{
			22487,
			5700,
			1
		},
		null,
		null,
		{
			22490,
			5700,
			2
		},
		null,
		null,
		{
			22493,
			5700,
			3
		},
		null,
		null,
		{
			22496,
			5700,
			4
		},
		null,
		null,
		{
			22499,
			5700,
			5
		},
		null,
		{
			22502,
			5700,
			6
		},
		{
			22505,
			5700,
			7
		},
		{
			25708,
			5700,
			7
		}
	
	};
	
	/*
	 * Spawns for second room, null if room not spawned x, y, z
	 */
	private static final int[][][] SECOND_ROOM_SPAWNS =
	{
		null,
		null,
		{
			{
				-14547,
				-174901,
				-10690
			},
			{
				-14543,
				-175030,
				-10690
			},
			{
				-14668,
				-174900,
				-10690
			},
			{
				-14538,
				-174774,
				-10690
			},
			{
				-14410,
				-174904,
				-10690
			}
		},
		null,
		null,
		{
			{
				-14547,
				-174901,
				-10690
			},
			{
				-14543,
				-175030,
				-10690
			},
			{
				-14668,
				-174900,
				-10690
			},
			{
				-14538,
				-174774,
				-10690
			},
			{
				-14410,
				-174904,
				-10690
			}
		},
		null,
		null,
		{
			{
				-14547,
				-174901,
				-10690
			},
			{
				-14543,
				-175030,
				-10690
			},
			{
				-14668,
				-174900,
				-10690
			},
			{
				-14538,
				-174774,
				-10690
			},
			{
				-14410,
				-174904,
				-10690
			}
		},
		null,
		null,
		{
			{
				-14547,
				-174901,
				-10690
			},
			{
				-14543,
				-175030,
				-10690
			},
			{
				-14668,
				-174900,
				-10690
			},
			{
				-14538,
				-174774,
				-10690
			},
			{
				-14410,
				-174904,
				-10690
			}
		},
		null,
		null,
		{
			{
				-14547,
				-174901,
				-10690
			},
			{
				-14543,
				-175030,
				-10690
			},
			{
				-14668,
				-174900,
				-10690
			},
			{
				-14538,
				-174774,
				-10690
			},
			{
				-14410,
				-174904,
				-10690
			}
		},
		null,
		{
			{
				-14547,
				-174901,
				-10690
			},
			{
				-14543,
				-175030,
				-10690
			},
			{
				-14668,
				-174900,
				-10690
			},
			{
				-14538,
				-174774,
				-10690
			},
			{
				-14410,
				-174904,
				-10690
			}
		},
		{
			{
				-14547,
				-174901,
				-10690
			},
			{
				-14543,
				-175030,
				-10690
			},
			{
				-14668,
				-174900,
				-10690
			},
			{
				-14538,
				-174774,
				-10690
			},
			{
				-14410,
				-174904,
				-10690
			}
		},
		{
			{
				18175,
				-174991,
				-10653
			},
			{
				18070,
				-174890,
				-10655
			},
			{
				18157,
				-174886,
				-10655
			},
			{
				18249,
				-174885,
				-10653
			},
			{
				18144,
				-174821,
				-10648
			}
		}
	};
	
	// miniboss info
	// skill is casted on the boss when miniboss is defeated
	// npcId, x, y, z, skill id, skill level
	/*
	 * Miniboss information, null if miniboss not spawned Skill is casted on the boss when miniboss is defeated Default: 5701 (decrease patk) npcId, x, y, z, skillId, skillLvl
	 */
	private static final int[][] MINIBOSS =
	{
		null,
		null,
		{
			25616,
			-16874,
			-174900,
			-10427,
			5701,
			1
		},
		null,
		null,
		{
			25617,
			-16874,
			-174900,
			-10427,
			5701,
			2
		},
		null,
		null,
		{
			25618,
			-16874,
			-174900,
			-10427,
			5701,
			3
		},
		null,
		null,
		{
			25619,
			-16874,
			-174900,
			-10427,
			5701,
			4
		},
		null,
		null,
		{
			25620,
			-16874,
			-174900,
			-10427,
			5701,
			5
		},
		null,
		{
			25621,
			-16874,
			-174900,
			-10427,
			5701,
			6
		},
		{
			25622,
			-16874,
			-174900,
			-10427,
			5701,
			7
		},
		{
			25709,
			15828,
			-174885,
			-10384,
			5701,
			7
		}
	};
	
	/*
	 * Bosses of the kamaloka Instance ends when boss is defeated npcId, x, y, z
	 */
	private static final int[][] BOSS =
	{
		{
			18554,
			-88998,
			-220077,
			-7892
		},
		{
			18555,
			-81891,
			-220078,
			-7893
		},
		{
			29129,
			-20659,
			-174903,
			-9983
		},
		{
			18558,
			-89183,
			-213564,
			-8100
		},
		{
			18559,
			-81937,
			-213566,
			-8100
		},
		{
			29132,
			-20659,
			-174903,
			-9983
		},
		{
			18562,
			-89054,
			-206144,
			-8115
		},
		{
			18564,
			-81937,
			-206077,
			-8100
		},
		{
			29135,
			-20659,
			-174903,
			-9983
		},
		{
			18566,
			-56281,
			-219859,
			-8115
		},
		{
			18568,
			-49336,
			-220260,
			-8068
		},
		{
			29138,
			-20659,
			-174903,
			-9983
		},
		{
			18571,
			-56415,
			-212939,
			-8068
		},
		{
			18573,
			-56281,
			-206140,
			-8115
		},
		{
			29141,
			-20659,
			-174903,
			-9983
		},
		{
			18577,
			-49084,
			-206140,
			-8115
		},
		{
			29144,
			-20659,
			-174903,
			-9983
		},
		{
			29147,
			-20659,
			-174903,
			-9983
		},
		{
			25710,
			12047,
			-174887,
			-9944
		}
	};
	
	/*
	 * Escape telepoters spawns, null if not spawned x, y, z
	 */
	private static final int[][] TELEPORTERS =
	{
		null,
		null,
		{
			-10865,
			-174905,
			-10944
		},
		null,
		null,
		{
			-10865,
			-174905,
			-10944
		},
		null,
		null,
		{
			-10865,
			-174905,
			-10944
		},
		null,
		null,
		{
			-10865,
			-174905,
			-10944
		},
		null,
		null,
		{
			-10865,
			-174905,
			-10944
		},
		null,
		{
			-10865,
			-174905,
			-10944
		},
		{
			-10865,
			-174905,
			-10944
		},
		{
			21837,
			-174885,
			-10904
		}
	};
	
	/*
	 * Escape teleporter npcId
	 */
	private static final int TELEPORTER = 32496;
	
	/** Kamaloka captains (start npc's) npcIds. */
	private static final int[] CAPTAINS =
	{
		30332,
		30071,
		30916,
		30196,
		31981,
		31340
	};
	
	protected class KamaWorld extends InstanceWorld
	{
		public int index; // 0-18 index of the kama type in arrays
		public int shaman = 0; // objectId of the shaman
		public List<L2Spawn> firstRoom; // list of the spawns in the first room (excluding shaman)
		public List<Integer> secondRoom;// list of objectIds mobs in the second room
		public int miniBoss = 0; // objectId of the miniboss
		public L2Npc boss = null; // boss
	}
	
	private Kamaloka()
	{
		super(-1, Kamaloka.class.getSimpleName(), "instances");
		addFirstTalkId(TELEPORTER);
		addTalkId(TELEPORTER);
		for (int cap : CAPTAINS)
		{
			addStartNpc(cap);
			addTalkId(cap);
		}
		for (int[] mob : FIRST_ROOM)
		{
			if (mob != null)
			{
				if (STEALTH_SHAMAN)
				{
					addKillId(mob[1]);
				}
				else
				{
					addKillId(mob[0]);
				}
			}
		}
		for (int[] mob : SECOND_ROOM)
		{
			if (mob != null)
			{
				addKillId(mob[0]);
			}
		}
		for (int[] mob : MINIBOSS)
		{
			if (mob != null)
			{
				addKillId(mob[0]);
			}
		}
		for (int[] mob : BOSS)
		{
			addKillId(mob[0]);
		}
	}
	
	/**
	 * Check if party with player as leader allowed to enter
	 * @param player party leader
	 * @param index (0-18) index of the kamaloka in arrays
	 * @return true if party allowed to enter
	 */
	private static final boolean checkConditions(L2PcInstance player, int index)
	{
		final L2Party party = player.getParty();
		// player must be in party
		if (party == null)
		{
			player.sendPacket(SystemMessageId.NOT_IN_PARTY_CANT_ENTER);
			return false;
		}
		// ...and be party leader
		if (party.getLeader() != player)
		{
			player.sendPacket(SystemMessageId.ONLY_PARTY_LEADER_CAN_ENTER);
			return false;
		}
		// party must not exceed max size for selected instance
		if (party.getMemberCount() > MAX_PARTY_SIZE[index])
		{
			player.sendPacket(SystemMessageId.PARTY_EXCEEDED_THE_LIMIT_CANT_ENTER);
			return false;
		}
		
		// get level of the instance
		final int level = LEVEL[index];
		// and client name
		final String instanceName = InstanceManager.getInstance().getInstanceIdName(TEMPLATE_IDS[index]);
		
		// for each party member
		for (L2PcInstance partyMember : party.getMembers())
		{
			// player level must be in range
			if (Math.abs(partyMember.getLevel() - level) > MAX_LEVEL_DIFFERENCE)
			{
				SystemMessage sm = SystemMessage.getSystemMessage(SystemMessageId.C1_LEVEL_REQUIREMENT_NOT_SUFFICIENT);
				sm.addPcName(partyMember);
				player.sendPacket(sm);
				return false;
			}
			// player must be near party leader
			if (!partyMember.isInsideRadius(player, 1000, true, true))
			{
				SystemMessage sm = SystemMessage.getSystemMessage(SystemMessageId.C1_IS_IN_LOCATION_THAT_CANNOT_BE_ENTERED);
				sm.addPcName(partyMember);
				player.sendPacket(sm);
				return false;
			}
			// get instances reenter times for player
			FastIntObjectMap<Long> instanceTimes = InstanceManager.getInstance().getAllInstanceTimes(partyMember.getObjectId());
			if (instanceTimes != null)
			{
				for (IntObjectMap.Entry<Long> e : instanceTimes.entrySet())
				{
					int id = e.getKey();
					// find instance with same name (kamaloka or labyrinth)
					// TODO: Zoey76: Don't use instance name, use other system.
					if (!instanceName.equals(InstanceManager.getInstance().getInstanceIdName(id)))
					{
						continue;
					}
					// if found instance still can't be reentered - exit
					if (System.currentTimeMillis() < e.getValue())
					{
						SystemMessage sm = SystemMessage.getSystemMessage(SystemMessageId.C1_MAY_NOT_REENTER_YET);
						sm.addPcName(partyMember);
						player.sendPacket(sm);
						return false;
					}
				}
			}
		}
		return true;
	}
	
	/**
	 * Removing all buffs from player and pet except BUFFS_WHITELIST
	 * @param ch player
	 */
	private static final void removeBuffs(L2Character ch)
	{
		Function<BuffInfo, Boolean> removeBuffs = info ->
		{
			if ((info != null) && !info.getSkill().isStayAfterDeath() && (Arrays.binarySearch(BUFFS_WHITELIST, info.getSkill().getId()) < 0))
			{
				info.getEffected().getEffectList().stopSkillEffects(true, info.getSkill());
			}
			return true;
		};
		
		ch.getEffectList().forEach(removeBuffs, false);
		
		if (ch.hasSummon())
		{
			ch.getSummon().getEffectList().forEach(removeBuffs, false);
		}
	}
	
	/**
	 * Handling enter of the players into kamaloka
	 * @param player party leader
	 * @param index (0-18) kamaloka index in arrays
	 */
	private final synchronized void enterInstance(L2PcInstance player, int index)
	{
		int templateId;
		try
		{
			templateId = TEMPLATE_IDS[index];
		}
		catch (ArrayIndexOutOfBoundsException e)
		{
			throw e;
		}
		
		// check for existing instances for this player
		InstanceWorld world = InstanceManager.getInstance().getPlayerWorld(player);
		// player already in the instance
		if (world != null)
		{
			// but not in kamaloka
			if (!(world instanceof KamaWorld) || (world.getTemplateId() != templateId))
			{
				player.sendPacket(SystemMessageId.ALREADY_ENTERED_ANOTHER_INSTANCE_CANT_ENTER);
				return;
			}
			// check for level difference again on reenter
			if (Math.abs(player.getLevel() - LEVEL[((KamaWorld) world).index]) > MAX_LEVEL_DIFFERENCE)
			{
				SystemMessage sm = SystemMessage.getSystemMessage(SystemMessageId.C1_LEVEL_REQUIREMENT_NOT_SUFFICIENT);
				sm.addPcName(player);
				player.sendPacket(sm);
				return;
			}
			// check what instance still exist
			Instance inst = InstanceManager.getInstance().getInstance(world.getInstanceId());
			if (inst != null)
			{
				removeBuffs(player);
				teleportPlayer(player, TELEPORTS[index], world.getInstanceId());
			}
			return;
		}
		// Creating new kamaloka instance
		if (!checkConditions(player, index))
		{
			return;
		}
		
		// Creating dynamic instance without template
		final int instanceId = InstanceManager.getInstance().createDynamicInstance(null);
		final Instance inst = InstanceManager.getInstance().getInstance(instanceId);
		// set name for the kamaloka
		inst.setName(InstanceManager.getInstance().getInstanceIdName(templateId));
		// set return location
		inst.setSpawnLoc(new Location(player));
		// disable summon friend into instance
		inst.setAllowSummon(false);
		// set duration and empty destroy time
		inst.setDuration(DURATION[index] * 60000);
		inst.setEmptyDestroyTime(EMPTY_DESTROY_TIME * 60000);
		
		// Creating new instanceWorld, using our instanceId and templateId
		world = new KamaWorld();
		world.setInstanceId(instanceId);
		world.setTemplateId(templateId);
		// set index for easy access to the arrays
		((KamaWorld) world).index = index;
		InstanceManager.getInstance().addWorld(world);
		world.setStatus(0);
		// spawn npcs
		spawnKama((KamaWorld) world);
		
		// and finally teleport party into instance
		final L2Party party = player.getParty();
		for (L2PcInstance partyMember : party.getMembers())
		{
			world.addAllowed(partyMember.getObjectId());
			removeBuffs(partyMember);
			teleportPlayer(partyMember, TELEPORTS[index], instanceId);
		}
		return;
	}
	
	/**
	 * Called on instance finish and handles reenter time for instance
	 * @param world instanceWorld
	 */
	private static final void finishInstance(InstanceWorld world)
	{
		if (world instanceof KamaWorld)
		{
			Calendar reenter = Calendar.getInstance();
			reenter.set(Calendar.MINUTE, RESET_MIN);
			// if time is >= RESET_HOUR - roll to the next day
			if (reenter.get(Calendar.HOUR_OF_DAY) >= RESET_HOUR)
			{
				reenter.add(Calendar.DATE, 1);
			}
			reenter.set(Calendar.HOUR_OF_DAY, RESET_HOUR);
			
			SystemMessage sm = SystemMessage.getSystemMessage(SystemMessageId.INSTANT_ZONE_S1_RESTRICTED);
			sm.addInstanceName(world.getTemplateId());
			
			// set instance reenter time for all allowed players
			for (int objectId : world.getAllowed())
			{
				L2PcInstance obj = L2World.getInstance().getPlayer(objectId);
				if ((obj != null) && obj.isOnline())
				{
					InstanceManager.getInstance().setInstanceTime(objectId, world.getTemplateId(), reenter.getTimeInMillis());
					obj.sendPacket(sm);
				}
			}
			
			// destroy instance after EXIT_TIME
			Instance inst = InstanceManager.getInstance().getInstance(world.getInstanceId());
			inst.setDuration(EXIT_TIME * 60000);
			inst.setEmptyDestroyTime(0);
		}
	}
	
	/**
	 * Spawn all NPCs in kamaloka
	 * @param world instanceWorld
	 */
	@SuppressWarnings("all")
	private final void spawnKama(KamaWorld world)
	{
		int[] npcs;
		int[][] spawns;
		L2Npc npc;
		final int index = world.index;
		
		// first room
		npcs = FIRST_ROOM[index];
		spawns = FIRST_ROOM_SPAWNS[index];
		if (npcs != null)
		{
			world.firstRoom = new ArrayList<L2Spawn>(spawns.length - 1);
			int shaman = getRandom(spawns.length); // random position for shaman
			
			for (int i = 0; i < spawns.length; i++)
			{
				if (i == shaman)
				{
					// stealth shaman use same npcId as other mobs
					npc = addSpawn(STEALTH_SHAMAN ? npcs[1] : npcs[0], spawns[i][0], spawns[i][1], spawns[i][2], 0, false, 0, false, world.getInstanceId());
					world.shaman = npc.getObjectId();
				}
				else
				{
					npc = addSpawn(npcs[1], spawns[i][0], spawns[i][1], spawns[i][2], 0, false, 0, false, world.getInstanceId());
					L2Spawn spawn = npc.getSpawn();
					spawn.setRespawnDelay(FIRST_ROOM_RESPAWN_DELAY);
					spawn.setAmount(1);
					spawn.startRespawn();
					world.firstRoom.add(spawn); // store mobs spawns
				}
				npc.setIsNoRndWalk(true);
			}
		}
		
		// second room
		npcs = SECOND_ROOM[index];
		spawns = SECOND_ROOM_SPAWNS[index];
		if (npcs != null)
		{
			world.secondRoom = new ArrayList<Integer>(spawns.length);
			
			for (int[] spawn : spawns)
			{
				npc = addSpawn(npcs[0], spawn[0], spawn[1], spawn[2], 0, false, 0, false, world.getInstanceId());
				npc.setIsNoRndWalk(true);
				world.secondRoom.add(npc.getObjectId());
			}
		}
		
		// miniboss
		if (MINIBOSS[index] != null)
		{
			npc = addSpawn(MINIBOSS[index][0], MINIBOSS[index][1], MINIBOSS[index][2], MINIBOSS[index][3], 0, false, 0, false, world.getInstanceId());
			npc.setIsNoRndWalk(true);
			world.miniBoss = npc.getObjectId();
		}
		
		// escape teleporter
		if (TELEPORTERS[index] != null)
		{
			addSpawn(TELEPORTER, TELEPORTERS[index][0], TELEPORTERS[index][1], TELEPORTERS[index][2], 0, false, 0, false, world.getInstanceId());
		}
		
		// boss
		npc = addSpawn(BOSS[index][0], BOSS[index][1], BOSS[index][2], BOSS[index][3], 0, false, 0, false, world.getInstanceId());
		((L2MonsterInstance) npc).setOnKillDelay(100);
		world.boss = npc;
	}
	
	/**
	 * Handles only player's enter, single parameter - integer kamaloka index
	 */
	@Override
	public final String onAdvEvent(String event, L2Npc npc, L2PcInstance player)
	{
		if (npc == null)
		{
			return "";
		}
		
		try
		{
			enterInstance(player, Integer.parseInt(event));
		}
		catch (Exception e)
		{
			_log.log(Level.WARNING, "", e);
		}
		return "";
	}
	
	/**
	 * Talk with captains and using of the escape teleporter
	 */
	@Override
	public final String onTalk(L2Npc npc, L2PcInstance player)
	{
		final int npcId = npc.getId();
		
		if (npcId == TELEPORTER)
		{
			final L2Party party = player.getParty();
			// only party leader can talk with escape teleporter
			if ((party != null) && party.isLeader(player))
			{
				final InstanceWorld world = InstanceManager.getInstance().getWorld(npc.getInstanceId());
				if (world instanceof KamaWorld)
				{
					// party members must be in the instance
					if (world.isAllowed(player.getObjectId()))
					{
						Instance inst = InstanceManager.getInstance().getInstance(world.getInstanceId());
						
						// teleports entire party away
						for (L2PcInstance partyMember : party.getMembers())
						{
							if ((partyMember != null) && (partyMember.getInstanceId() == world.getInstanceId()))
							{
								teleportPlayer(partyMember, inst.getSpawnLoc(), 0);
							}
						}
					}
				}
			}
		}
		else
		{
			return npcId + ".htm";
		}
		
		return "";
	}
	
	/**
	 * Only escape teleporters first talk handled
	 */
	@Override
	public final String onFirstTalk(L2Npc npc, L2PcInstance player)
	{
		if (npc.getId() == TELEPORTER)
		{
			if (player.isInParty() && player.getParty().isLeader(player))
			{
				return "32496.htm";
			}
			return "32496-no.htm";
		}
		return "";
	}
	
	@Override
	public final String onKill(L2Npc npc, L2PcInstance player, boolean isSummon)
	{
		final InstanceWorld tmpWorld = InstanceManager.getInstance().getWorld(npc.getInstanceId());
		if (tmpWorld instanceof KamaWorld)
		{
			final KamaWorld world = (KamaWorld) tmpWorld;
			final int objectId = npc.getObjectId();
			
			// first room was spawned ?
			if (world.firstRoom != null)
			{
				// is shaman killed ?
				if ((world.shaman != 0) && (world.shaman == objectId))
				{
					world.shaman = 0;
					// stop respawn of the minions
					for (L2Spawn spawn : world.firstRoom)
					{
						if (spawn != null)
						{
							spawn.stopRespawn();
						}
					}
					world.firstRoom.clear();
					world.firstRoom = null;
					
					if (world.boss != null)
					{
						final int skillId = FIRST_ROOM[world.index][2];
						final int skillLvl = FIRST_ROOM[world.index][3];
						if ((skillId != 0) && (skillLvl != 0))
						{
							final Skill skill = SkillData.getInstance().getSkill(skillId, skillLvl);
							if (skill != null)
							{
								skill.applyEffects(world.boss, world.boss);
							}
						}
					}
					
					return super.onKill(npc, player, isSummon);
				}
			}
			
			// second room was spawned ?
			if (world.secondRoom != null)
			{
				boolean all = true;
				// check for all mobs in the second room
				for (int i = 0; i < world.secondRoom.size(); i++)
				{
					// found killed now mob
					if (world.secondRoom.get(i) == objectId)
					{
						world.secondRoom.set(i, 0);
					}
					else if (world.secondRoom.get(i) != 0)
					{
						all = false;
					}
				}
				// all mobs killed ?
				if (all)
				{
					world.secondRoom.clear();
					world.secondRoom = null;
					
					if (world.boss != null)
					{
						final int skillId = SECOND_ROOM[world.index][1];
						final int skillLvl = SECOND_ROOM[world.index][2];
						if ((skillId != 0) && (skillLvl != 0))
						{
							final Skill skill = SkillData.getInstance().getSkill(skillId, skillLvl);
							if (skill != null)
							{
								skill.applyEffects(world.boss, world.boss);
							}
						}
					}
					
					return super.onKill(npc, player, isSummon);
				}
			}
			
			// miniboss spawned ?
			if ((world.miniBoss != 0) && (world.miniBoss == objectId))
			{
				world.miniBoss = 0;
				
				if (world.boss != null)
				{
					final int skillId = MINIBOSS[world.index][4];
					final int skillLvl = MINIBOSS[world.index][5];
					if ((skillId != 0) && (skillLvl != 0))
					{
						final Skill skill = SkillData.getInstance().getSkill(skillId, skillLvl);
						if (skill != null)
						{
							skill.applyEffects(world.boss, world.boss);
						}
					}
				}
				
				return super.onKill(npc, player, isSummon);
			}
			
			// boss was killed, finish instance
			if ((world.boss != null) && (world.boss == npc))
			{
				world.boss = null;
				finishInstance(world);
			}
		}
		return super.onKill(npc, player, isSummon);
	}
	
	public static void main(String[] args)
	{
		new Kamaloka();
	}
}