local internalNpcName = "Riddler"
local npcType = Game.createNpcType(internalNpcName)
local npcConfig = {}

npcConfig.name = internalNpcName
npcConfig.description = internalNpcName

npcConfig.health = 100
npcConfig.maxHealth = npcConfig.health
npcConfig.walkInterval = 2000
npcConfig.walkRadius = 2

npcConfig.outfit = {
	lookType = 48,
}

npcConfig.flags = {
	floorchange = false,
	profession = "normal",
}
npcConfig.speechBubble = SPEECHBUBBLE_NORMAL

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)

npcType.onThink = function(npc, interval)
	npcHandler:onThink(npc, interval)
end

npcType.onAppear = function(npc, creature)
	npcHandler:onAppear(npc, creature)
end

npcType.onDisappear = function(npc, creature)
	npcHandler:onDisappear(npc, creature)
end

npcType.onMove = function(npc, creature, fromPosition, toPosition)
	npcHandler:onMove(npc, creature, fromPosition, toPosition)
end

npcType.onSay = function(npc, creature, type, message)
	npcHandler:onSay(npc, creature, type, message)
end

npcType.onCloseChannel = function(npc, creature)
	npcHandler:onCloseChannel(npc, creature)
end

local function creatureSayCallback(npc, creature, type, message)
	local player = Player(creature)
	local playerId = player:getId()

	if not npcHandler:checkInteraction(npc, creature) then
		return false
	end

	local storage = Storage.Quest.U7_24.TheParadoxTower
	if MsgContains(message, "test") then
		npcHandler:say("Death awaits those who fail the test of the three seals! Do you really want me to test you?", npc, creature)
		npcHandler:setTopic(playerId, 1)
	elseif MsgContains(message, "yes") and npcHandler:getTopic(playerId) == 1 then
		npcHandler:say(
			"FOOL! Now you're doomed! But well ... \z
			So be it! Let's start out with the Seal of Knowledge and the first question: \z
			What name did the necromant king choose for himself?",
			npc,
			creature
		)
		npcHandler:setTopic(playerId, 2)
	elseif MsgContains(message, "goshnar") and npcHandler:getTopic(playerId) == 2 then
		npcHandler:say(
			"HOHO! You have learned your lesson well. \z
			Question number two then: Who or what is the feared Hugo?",
			npc,
			creature
		)
		npcHandler:setTopic(playerId, 3)
	elseif MsgContains(message, "demonbunny") and npcHandler:getTopic(playerId) == 3 then
		if player:getStorageValue(storage.TheFearedHugo) == 4 then
			npcHandler:say("HOHO! Right again. All right. The final question of the first seal: Who was the first warrior to follow the path of the Mooh'Tah?", npc, creature)
			npcHandler:setTopic(playerId, 4)
		else
			npcHandler:say("Hmmm, so you think cheating will get you through that test? Then your final question of the first seal is: What is the meaning of life?", npc, creature)
			npcHandler:setTopic(playerId, 5)
		end
	elseif MsgContains(message, "tha'kull") and npcHandler:getTopic(playerId) == 4 then
		npcHandler:say("HOHO! Lucky you. You have passed the first seal! So ... would you like to continue with the Seal of the Mind?", npc, creature)
		npcHandler:setTopic(playerId, 6)
	elseif MsgContains(message, "yes") and npcHandler:getTopic(playerId) == 6 then
		npcHandler:say("As you wish, foolish one! Here is my first question: It's lighter then a feather but no living creature can hold it for ten minutes?", npc, creature)
		npcHandler:setTopic(playerId, 7)
	elseif MsgContains(message, "breath") and npcHandler:getTopic(playerId) == 7 then
		npcHandler:say("That was an easy one. Let's try the second: If you name it, you break it.", npc, creature)
		npcHandler:setTopic(playerId, 8)
	elseif MsgContains(message, "silence") and npcHandler:getTopic(playerId) == 8 then
		npcHandler:say(
			"Hm. I bet you think you're smart. All right. \z
			How about this: What does everybody want to become but nobody to be?",
			npc,
			creature
		)
		npcHandler:setTopic(playerId, 9)
	elseif MsgContains(message, "old") and npcHandler:getTopic(playerId) == 9 then
		npcHandler:say("ARGH! You did it again! Well all right. Do you wish to break the Seal of Madness?", npc, creature)
		npcHandler:setTopic(playerId, 10)
	elseif MsgContains(message, "yes") and npcHandler:getTopic(playerId) == 10 then
		npcHandler:say("GOOD! So I will get you at last. Answer this: What is your favourite colour?", npc, creature)
		npcHandler:setTopic(playerId, 11)
	elseif MsgContains(message, "green") and npcHandler:getTopic(playerId) == 11 then
		if player:getStorageValue(storage.FavoriteColour) < 1 then
			player:setStorageValue(storage.FavoriteColour, 1)
		end
		npcHandler:say(
			"UHM UH OH ... How could you guess that? Are you mad??? All right. \z
			Penultimate question: What is the opposite?",
			npc,
			creature
		)
		npcHandler:setTopic(playerId, 12)
	elseif MsgContains(message, "none") and npcHandler:getTopic(playerId) == 12 then
		npcHandler:say(
			"NO! NO! NO! That can't be true. You're not only mad, you are a complete idiot! \z
			Ah well. Here is the last question: What is 1 plus 1?",
			npc,
			creature
		)
		npcHandler:setTopic(playerId, 13)
	elseif MsgContains(message, "1") then
		if npcHandler:getTopic(playerId) == 13 then
			if player:getStorageValue(storage.Mathemagics) >= 1 then
				-- Complete mission mathemagics
				if player:getStorageValue(storage.Mathemagics) == 1 then
					player:setStorageValue(storage.Mathemagics, 2)
				end
				-- Complete mission favorite colour
				if player:getStorageValue(storage.FavoriteColour) == 1 then
					player:setStorageValue(storage.FavoriteColour, 2)
				end

				player:teleportTo({ x = 32478, y = 31905, z = 1 })
				player:getPosition():sendMagicEffect(CONST_ME_TELEPORT)
				npcHandler:say("DAMN YOUUUUUUUUUUUUUUUUUUUUUU!", npc, creature)
			else
				npcHandler:say("WRONG!", npc, creature)
				player:teleportTo({ x = 32725, y = 31589, z = 12 })
				player:getPosition():sendMagicEffect(CONST_ME_TELEPORT)
			end
		end
	elseif npcHandler:getTopic(playerId) == 5 then
		npcHandler:say("WRONG! Next time get your own answers. To hell with thee, cheater Sischfried!", npc, creature)
		player:teleportTo({ x = 32725, y = 31589, z = 12 })
		player:getPosition():sendMagicEffect(CONST_ME_TELEPORT)
	else
		npcHandler:say("WRONG!", npc, creature)
		player:teleportTo({ x = 32725, y = 31589, z = 12 })
		player:getPosition():sendMagicEffect(CONST_ME_TELEPORT)
	end
	return true
end

keywordHandler:addKeyword({ "paradox" }, StdModule.say, { npcHandler = npcHandler, text = "This tower, of course, silly one. It holds my {master'}s {treasure}." })
keywordHandler:addAliasKeyword({ "tower" })

keywordHandler:addKeyword({ "master" }, StdModule.say, { npcHandler = npcHandler, text = "His name is none of your business" })
keywordHandler:addKeyword({ "treasure" }, StdModule.say, { npcHandler = npcHandler, text = "I am guarding the treasures of the tower. Only those who pass the {test} of the three sigils may pass." })
keywordHandler:addKeyword({ "name" }, StdModule.say, { npcHandler = npcHandler, text = "I am known as the riddler. That is all you need to know." })
keywordHandler:addKeyword({ "job" }, StdModule.say, { npcHandler = npcHandler, text = "I am the guardian of the paradox tower." })
keywordHandler:addKeyword({ "key" }, StdModule.say, { npcHandler = npcHandler, text = "The key of this tower! You will never find it! A malicious plant spirit is guarding it!." })
keywordHandler:addAliasKeyword({ "door" })

npcHandler:setMessage(MESSAGE_GREET, "|PLAYERNAME| HEHEHEHE! Another fool visits the {tower}! Excellent!")
npcHandler:setMessage(MESSAGE_FAREWELL, "HEHEHE! I knew you don't have the stomach.")
npcHandler:setMessage(MESSAGE_WALKAWAY, "COWARD! CHICKEN! HEHEHEHE!")

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)

npcHandler:addModule(FocusModule:new(), npcConfig.name, true, true, true)

-- npcType registering the npcConfig table
npcType:register(npcConfig)
