Test of the Reformer

/*
 * Copyright (c) 2013 L2jMobius
 * 
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 * 
 * The above copyright notice and this permission notice shall be
 * included in all copies or substantial portions of the Software.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
 * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR
 * IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 */
package quests.Q00227_TestOfTheReformer;

import org.l2jmobius.gameserver.entity.Location;
import org.l2jmobius.gameserver.entity.actor.Npc;
import org.l2jmobius.gameserver.entity.actor.Player;
import org.l2jmobius.gameserver.entity.actor.enums.player.PlayerClass;
import org.l2jmobius.gameserver.mechanics.script.Quest;
import org.l2jmobius.gameserver.mechanics.script.QuestSound;
import org.l2jmobius.gameserver.mechanics.script.QuestState;
import org.l2jmobius.gameserver.mechanics.script.State;
import org.l2jmobius.gameserver.mechanics.skill.Skill;
import org.l2jmobius.gameserver.mechanics.stats.Stat;
import org.l2jmobius.gameserver.mechanics.stats.functions.FuncSet;
import org.l2jmobius.gameserver.network.enums.ChatType;
import org.l2jmobius.gameserver.network.serverpackets.SocialAction;
import org.l2jmobius.gameserver.util.ArrayUtil;

public class Q00227_TestOfTheReformer extends Quest
{
	// NPCs
	private static final int PUPINA = 30118;
	private static final int SLA = 30666;
	private static final int RAMUS = 30667;
	private static final int KATARI = 30668;
	private static final int KAKAN = 30669;
	private static final int NYAKURI = 30670;
	private static final int OL_MAHUM_PILGRIM = 30732;
	
	// Monsters
	private static final int MISERY_SKELETON = 20022;
	private static final int SKELETON_ARCHER = 20100;
	private static final int SKELETON_MARKSMAN = 20102;
	private static final int SKELETON_LORD = 20104;
	private static final int SILENT_HORROR = 20404;
	private static final int NAMELESS_REVENANT = 27099;
	private static final int ARURAUNE = 27128;
	private static final int OL_MAHUM_INSPECTOR = 27129;
	private static final int OL_MAHUM_BETRAYER = 27130;
	private static final int CRIMSON_WEREWOLF = 27131;
	private static final int KRUDEL_LIZARDMAN = 27132;
	
	// Items
	private static final int BOOK_OF_REFORM = 2822;
	private static final int LETTER_OF_INTRODUCTION = 2823;
	private static final int SLA_LETTER = 2824;
	private static final int GREETINGS = 2825;
	private static final int OL_MAHUM_MONEY = 2826;
	private static final int KATARI_LETTER = 2827;
	private static final int NYAKURI_LETTER = 2828;
	private static final int UNDEAD_LIST = 2829;
	private static final int RAMUS_LETTER = 2830;
	private static final int RIPPED_DIARY = 2831;
	private static final int HUGE_NAIL = 2832;
	private static final int LETTER_OF_BETRAYER = 2833;
	private static final int BONE_FRAGMENT_4 = 2834;
	private static final int BONE_FRAGMENT_5 = 2835;
	private static final int BONE_FRAGMENT_6 = 2836;
	private static final int BONE_FRAGMENT_7 = 2837;
	private static final int BONE_FRAGMENT_8 = 2838;
	private static final int BONE_FRAGMENT_9 = 2839;
	private static final int KAKAN_LETTER = 3037;
	
	// Rewards
	private static final int MARK_OF_REFORMER = 2821;
	private static final int DIMENSIONAL_DIAMOND = 7562;
	
	// Checks & Instances
	private static long _timer;
	
	// Misc
	private static Npc _olMahumInspector;
	private static Npc _olMahumPilgrim;
	private static Npc _olMahumBetrayer;
	private static boolean _crimsonWerewolf = false;
	private static boolean _krudelLizardman = false;
	
	// Allowed skills when attacking Crimson Werewolf
	private static final int[] ALLOWED_SKILLS =
	{
		1031, // Disrupt Undead
		1069, // Sleep
		1147, // Vampiric Touch
		1164, // Curse: Weakness
		1168, // Curse: Poison
		1177, // Wind Strike
		1184, // Ice Bolt
		1201, // Dryad Root
		1206, // Wind Shackle
		4192, // BOSS HP Drain
	};
	private static final int DISRUPT_UNDEAD = 1031;
	
	public Q00227_TestOfTheReformer()
	{
		super(227, "Test of the Reformer");
		registerQuestItems(BOOK_OF_REFORM, LETTER_OF_INTRODUCTION, SLA_LETTER, GREETINGS, OL_MAHUM_MONEY, KATARI_LETTER, NYAKURI_LETTER, UNDEAD_LIST, RAMUS_LETTER, RIPPED_DIARY, HUGE_NAIL, LETTER_OF_BETRAYER, BONE_FRAGMENT_4, BONE_FRAGMENT_5, BONE_FRAGMENT_6, BONE_FRAGMENT_7, BONE_FRAGMENT_8, BONE_FRAGMENT_9, KAKAN_LETTER);
		addStartNpc(PUPINA);
		addTalkId(PUPINA, SLA, RAMUS, KATARI, KAKAN, NYAKURI, OL_MAHUM_PILGRIM);
		addAttackId(NAMELESS_REVENANT, CRIMSON_WEREWOLF);
		addKillId(MISERY_SKELETON, SKELETON_ARCHER, SKELETON_MARKSMAN, SKELETON_LORD, SILENT_HORROR, NAMELESS_REVENANT, ARURAUNE, OL_MAHUM_INSPECTOR, OL_MAHUM_BETRAYER, CRIMSON_WEREWOLF, KRUDEL_LIZARDMAN);
	}
	
	@Override
	public String onEvent(String event, Npc npc, Player player)
	{
		String htmltext = event;
		final QuestState st = getQuestState(player, false);
		if (st == null)
		{
			return htmltext;
		}
		
		switch (event)
		{
			case "30118-04.htm":
			{
				st.startQuest();
				giveItems(player, BOOK_OF_REFORM, 1);
				if (!player.getVariables().getBoolean("secondClassChange39", false))
				{
					htmltext = "30118-04b.htm";
					giveItems(player, DIMENSIONAL_DIAMOND, DF_REWARD_39.get(player.getPlayerClass().getId()));
					player.getVariables().set("secondClassChange39", true);
				}
				break;
			}
			case "30118-06.htm":
			{
				st.setCond(4, true);
				takeItems(player, BOOK_OF_REFORM, 1);
				takeItems(player, HUGE_NAIL, 1);
				giveItems(player, LETTER_OF_INTRODUCTION, 1);
				break;
			}
			case "30666-04.htm":
			{
				st.setCond(5, true);
				takeItems(player, LETTER_OF_INTRODUCTION, 1);
				giveItems(player, SLA_LETTER, 1);
				break;
			}
			case "30669-03.htm":
			{
				if (!st.isCond(12))
				{
					st.setCond(12, true);
				}
				
				if (!_crimsonWerewolf)
				{
					// It may only be hunted with low level spells, so it never resists magic whatever magic success formula is configured.
					final Npc werewolf = addSpawn(CRIMSON_WEREWOLF, -9382, -89852, -2333, 0, false, 299000);
					werewolf.addStatFunc(new FuncSet(Stat.MAGIC_SUCCESS_RES, 0x100, werewolf, 0, null));
					_crimsonWerewolf = true;
					
					// Resets Crimson Werewolf
					startQuestTimer("werewolf_cleanup", 300000, null, player, false);
				}
				break;
			}
			case "30670-03.htm":
			{
				st.setCond(15, true);
				if (!_krudelLizardman)
				{
					addSpawn(KRUDEL_LIZARDMAN, 126019, -179983, -1781, 0, false, 299000);
					_krudelLizardman = true;
					
					// Resets Krudel Lizardman
					startQuestTimer("lizardman_cleanup", 300000, null, player, false);
				}
				break;
			}
			case "werewolf_despawn":
			{
				npc.abortAttack();
				npc.broadcastSay(ChatType.GENERAL, "Cowardly guy!");
				npc.decayMe();
				_crimsonWerewolf = false;
				cancelQuestTimer("werewolf_cleanup", null, player);
				return null;
			}
			case "ol_mahums_despawn":
			{
				_timer++;
				if (st.isCond(8) || (_timer >= 60))
				{
					if (_olMahumPilgrim != null)
					{
						_olMahumPilgrim.deleteMe();
						_olMahumPilgrim = null;
					}
					
					if (_olMahumInspector != null)
					{
						_olMahumInspector.deleteMe();
						_olMahumInspector = null;
					}
					
					cancelQuestTimer("ol_mahums_despawn", null, player);
					_timer = 0;
				}
				
				return null;
			}
			case "betrayer_despawn":
			{
				if (_olMahumBetrayer != null)
				{
					_olMahumBetrayer.deleteMe();
					_olMahumBetrayer = null;
				}
				
				return null;
			}
			case "werewolf_cleanup":
			{
				_crimsonWerewolf = false;
				return null;
			}
			case "lizardman_cleanup":
			{
				_krudelLizardman = false;
				return null;
			}
		}
		
		return htmltext;
	}
	
	@Override
	public String onTalk(Npc npc, Player player)
	{
		String htmltext = getNoQuestMsg(player);
		final QuestState st = getQuestState(player, true);
		
		switch (st.getState())
		{
			case State.CREATED:
			{
				if ((player.getPlayerClass() == PlayerClass.CLERIC) || (player.getPlayerClass() == PlayerClass.SHILLIEN_ORACLE))
				{
					htmltext = (player.getLevel() < 39) ? "30118-01.htm" : "30118-03.htm";
				}
				else
				{
					htmltext = "30118-02.htm";
				}
				break;
			}
			case State.STARTED:
			{
				final int cond = st.getCond();
				switch (npc.getId())
				{
					case PUPINA:
					{
						if (cond < 3)
						{
							htmltext = "30118-04a.htm";
						}
						else if (cond == 3)
						{
							htmltext = "30118-05.htm";
						}
						else if (cond > 3)
						{
							htmltext = "30118-07.htm";
						}
						break;
					}
					case SLA:
					{
						if (cond == 4)
						{
							htmltext = "30666-01.htm";
						}
						else if ((cond > 4) && (cond < 10))
						{
							htmltext = "30666-05.htm";
						}
						else if (cond == 10)
						{
							htmltext = "30666-06.htm";
							st.setCond(11, true);
							takeItems(player, OL_MAHUM_MONEY, 1);
							giveItems(player, GREETINGS, 3);
						}
						else if ((cond > 10) && (cond < 20))
						{
							htmltext = "30666-06.htm";
						}
						else if (cond == 20)
						{
							htmltext = "30666-07.htm";
							takeItems(player, KATARI_LETTER, 1);
							takeItems(player, KAKAN_LETTER, 1);
							takeItems(player, NYAKURI_LETTER, 1);
							takeItems(player, RAMUS_LETTER, 1);
							giveItems(player, MARK_OF_REFORMER, 1);
							addExpAndSp(player, 164032, 17500);
							player.broadcastPacket(new SocialAction(player.getObjectId(), 3));
							st.exitQuest(false, true);
						}
						break;
					}
					case KATARI:
					{
						if ((cond == 5) || (cond == 6))
						{
							htmltext = "30668-01.htm";
							
							if (cond == 5)
							{
								st.setCond(6, true);
								takeItems(player, SLA_LETTER, 1);
							}
							
							if ((_olMahumPilgrim == null) && (_olMahumInspector == null))
							{
								_olMahumPilgrim = addSpawn(OL_MAHUM_PILGRIM, -4015, 40141, -3664, 0, false, 0);
								_olMahumInspector = addSpawn(OL_MAHUM_INSPECTOR, -4034, 40201, -3665, 0, false, 0);
								
								// Resets Ol Mahums' instances
								startQuestTimer("ol_mahums_despawn", 5000, null, player, true);
								
								_olMahumInspector.asAttackable().addDamageHate(_olMahumPilgrim, 0, 99999);
								_olMahumInspector.getAI().setIntentionAttack(_olMahumPilgrim);
								
								// TODO : make Npc be able to attack Attackable.
								// _olMahumPilgrim.asAttackable().addDamageHate(_olMahumInspector, 0, 99999);
								// _olMahumPilgrim.getAI().setIntentionAttack(_olMahumInspector);
							}
						}
						else if (cond == 7)
						{
							htmltext = "30668-01.htm";
							
							if (_olMahumPilgrim == null)
							{
								_olMahumPilgrim = addSpawn(OL_MAHUM_PILGRIM, -4015, 40141, -3664, 0, false, 0);
								
								// Resets Ol Mahums' instances
								startQuestTimer("ol_mahums_despawn", 5000, null, player, true);
							}
						}
						else if (cond == 8)
						{
							htmltext = "30668-02.htm";
							
							if (_olMahumBetrayer == null)
							{
								_olMahumBetrayer = addSpawn(OL_MAHUM_BETRAYER, -4106, 40174, -3660, 0, false, 0);
								_olMahumBetrayer.setRunning();
								_olMahumBetrayer.getAI().setIntentionMoveTo(new Location(-7732, 36787, -3709));
								
								// Resets Ol Mahum Betrayer's instance
								startQuestTimer("betrayer_despawn", 40000, null, player, false);
							}
						}
						else if (cond == 9)
						{
							htmltext = "30668-03.htm";
							st.setCond(10, true);
							takeItems(player, LETTER_OF_BETRAYER, 1);
							giveItems(player, KATARI_LETTER, 1);
						}
						else if (cond > 9)
						{
							htmltext = "30668-04.htm";
						}
						break;
					}
					case OL_MAHUM_PILGRIM:
					{
						if (cond == 7)
						{
							htmltext = "30732-01.htm";
							st.setCond(8, true);
							giveItems(player, OL_MAHUM_MONEY, 1);
						}
						break;
					}
					case KAKAN:
					{
						if ((cond == 11) || (cond == 12))
						{
							htmltext = "30669-01.htm";
						}
						else if (cond == 13)
						{
							htmltext = "30669-04.htm";
							st.setCond(14, true);
							takeItems(player, GREETINGS, 1);
							giveItems(player, KAKAN_LETTER, 1);
						}
						else if (cond > 13)
						{
							htmltext = "30669-04.htm";
						}
						break;
					}
					case NYAKURI:
					{
						if ((cond == 14) || (cond == 15))
						{
							htmltext = "30670-01.htm";
						}
						else if (cond == 16)
						{
							htmltext = "30670-04.htm";
							st.setCond(17, true);
							takeItems(player, GREETINGS, 1);
							giveItems(player, NYAKURI_LETTER, 1);
						}
						else if (cond > 16)
						{
							htmltext = "30670-04.htm";
						}
						break;
					}
					case RAMUS:
					{
						if (cond == 17)
						{
							htmltext = "30667-01.htm";
							st.setCond(18, true);
							takeItems(player, GREETINGS, 1);
							giveItems(player, UNDEAD_LIST, 1);
						}
						else if (cond == 18)
						{
							htmltext = "30667-02.htm";
						}
						else if (cond == 19)
						{
							htmltext = "30667-03.htm";
							st.setCond(20, true);
							takeItems(player, BONE_FRAGMENT_4, 1);
							takeItems(player, BONE_FRAGMENT_5, 1);
							takeItems(player, BONE_FRAGMENT_6, 1);
							takeItems(player, BONE_FRAGMENT_7, 1);
							takeItems(player, BONE_FRAGMENT_8, 1);
							takeItems(player, UNDEAD_LIST, 1);
							giveItems(player, RAMUS_LETTER, 1);
						}
						else if (cond > 19)
						{
							htmltext = "30667-03.htm";
						}
						break;
					}
				}
				break;
			}
			case State.COMPLETED:
			{
				htmltext = getAlreadyCompletedMsg(player);
				break;
			}
		}
		
		return htmltext;
	}
	
	@Override
	public void onAttack(Npc npc, Player attacker, int damage, boolean isPet, Skill skill)
	{
		// Crimson Werewolf leaves as soon as a player hits it with anything but the allowed skills.
		if ((npc.getId() == CRIMSON_WEREWOLF) && !isPet && !npc.isScriptValue(1) && ((skill == null) || !ArrayUtil.contains(ALLOWED_SKILLS, skill.getId())))
		{
			npc.setScriptValue(1);
			startQuestTimer("werewolf_despawn", 1000, npc, attacker, false);
			return;
		}
		
		final QuestState st = getQuestState(attacker, false);
		if (st == null)
		{
			return;
		}
		
		final int cond = st.getCond();
		switch (npc.getId())
		{
			case NAMELESS_REVENANT:
			{
				// Only a kill right after Disrupt Undead counts, any other hit clears it.
				if ((cond == 1) || (cond == 2))
				{
					npc.setScriptValue(((skill != null) && (skill.getId() == DISRUPT_UNDEAD)) ? 1 : 2);
				}
				break;
			}
		}
	}
	
	@Override
	public void onKill(Npc npc, Player player, boolean isPet)
	{
		final QuestState st = getQuestState(player, false);
		if ((st == null) || !st.isStarted())
		{
			return;
		}
		
		final int cond = st.getCond();
		switch (npc.getId())
		{
			case NAMELESS_REVENANT:
			{
				if (((cond == 1) || (cond == 2)) && npc.isScriptValue(1) && (getQuestItemsCount(player, RIPPED_DIARY) < 7))
				{
					giveItems(player, RIPPED_DIARY, 1);
					if (getQuestItemsCount(player, RIPPED_DIARY) >= 7)
					{
						st.setCond(2, true);
						takeItems(player, RIPPED_DIARY, -1);
						addSpawn(ARURAUNE, npc, false, 300000);
					}
					else
					{
						playSound(player, QuestSound.ITEMSOUND_QUEST_ITEMGET);
					}
				}
				break;
			}
			case ARURAUNE:
			{
				if (cond == 2)
				{
					st.setCond(3, true);
					giveItems(player, HUGE_NAIL, 1);
					npc.broadcastSay(ChatType.GENERAL, "The concealed truth will always be revealed...!");
				}
				break;
			}
			case OL_MAHUM_INSPECTOR:
			{
				if (cond == 6)
				{
					st.setCond(7, true);
				}
				break;
			}
			case OL_MAHUM_BETRAYER:
			{
				if (cond == 8)
				{
					st.setCond(9, true);
					giveItems(player, LETTER_OF_BETRAYER, 1);
					cancelQuestTimer("betrayer_despawn", null, player);
					_olMahumBetrayer = null;
				}
				break;
			}
			case CRIMSON_WEREWOLF:
			{
				if (cond == 12)
				{
					st.setCond(13, true);
					cancelQuestTimer("werewolf_cleanup", null, player);
					_crimsonWerewolf = false;
				}
				break;
			}
			case KRUDEL_LIZARDMAN:
			{
				if (cond == 15)
				{
					st.setCond(16, true);
					cancelQuestTimer("lizardman_cleanup", null, player);
					_krudelLizardman = false;
				}
				break;
			}
			case SILENT_HORROR:
			{
				if ((cond == 18) && !hasQuestItems(player, BONE_FRAGMENT_4))
				{
					giveItems(player, BONE_FRAGMENT_4, 1);
					if (hasQuestItems(player, BONE_FRAGMENT_5, BONE_FRAGMENT_6, BONE_FRAGMENT_7, BONE_FRAGMENT_8))
					{
						st.setCond(19, true);
					}
					else
					{
						playSound(player, QuestSound.ITEMSOUND_QUEST_ITEMGET);
					}
				}
				break;
			}
			case SKELETON_LORD:
			{
				if ((cond == 18) && !hasQuestItems(player, BONE_FRAGMENT_5))
				{
					giveItems(player, BONE_FRAGMENT_5, 1);
					if (hasQuestItems(player, BONE_FRAGMENT_4, BONE_FRAGMENT_6, BONE_FRAGMENT_7, BONE_FRAGMENT_8))
					{
						st.setCond(19, true);
					}
					else
					{
						playSound(player, QuestSound.ITEMSOUND_QUEST_ITEMGET);
					}
				}
				break;
			}
			case SKELETON_MARKSMAN:
			{
				if ((cond == 18) && !hasQuestItems(player, BONE_FRAGMENT_6))
				{
					giveItems(player, BONE_FRAGMENT_6, 1);
					if (hasQuestItems(player, BONE_FRAGMENT_4, BONE_FRAGMENT_5, BONE_FRAGMENT_7, BONE_FRAGMENT_8))
					{
						st.setCond(19, true);
					}
					else
					{
						playSound(player, QuestSound.ITEMSOUND_QUEST_ITEMGET);
					}
				}
				break;
			}
			case MISERY_SKELETON:
			{
				if ((cond == 18) && !hasQuestItems(player, BONE_FRAGMENT_7))
				{
					giveItems(player, BONE_FRAGMENT_7, 1);
					if (hasQuestItems(player, BONE_FRAGMENT_4, BONE_FRAGMENT_5, BONE_FRAGMENT_6, BONE_FRAGMENT_8))
					{
						st.setCond(19, true);
					}
					else
					{
						playSound(player, QuestSound.ITEMSOUND_QUEST_ITEMGET);
					}
				}
				break;
			}
			case SKELETON_ARCHER:
			{
				if ((cond == 18) && !hasQuestItems(player, BONE_FRAGMENT_8))
				{
					giveItems(player, BONE_FRAGMENT_8, 1);
					if (hasQuestItems(player, BONE_FRAGMENT_4, BONE_FRAGMENT_5, BONE_FRAGMENT_6, BONE_FRAGMENT_7))
					{
						st.setCond(19, true);
					}
					else
					{
						playSound(player, QuestSound.ITEMSOUND_QUEST_ITEMGET);
					}
				}
				break;
			}
		}
	}
}