local SEQUEN_NUMB_1 = {}
local SEQUEN_NUMB_2 = {}
local SEQUEN_NUMB_3 = {}
local QNT_SQN_1 = 0
local QNT_SQN_2 = 0
local QNT_SQN_3 = 0
local LOCK_STATUES_1 = false
local LOCK_STATUES_2 = false
local LOCK_STATUES_3 = false
local STATUES_POS_1 = {
	[01] = {POS = {x=3954, y=1237, z=14}};
	[02] = {POS = {x=3956, y=1237, z=14}};
	[03] = {POS = {x=3958, y=1237, z=14}};
	[04] = {POS = {x=3958, y=1243, z=14}};
	[05] = {POS = {x=3956, y=1243, z=14}};
	[06] = {POS = {x=3954, y=1243, z=14}};
}
local STATUES_POS_2 = {
	[01] = {POS = {x=4062, y=1237, z=14}};
	[02] = {POS = {x=4064, y=1237, z=14}};
	[03] = {POS = {x=4066, y=1237, z=14}};
	[04] = {POS = {x=4066, y=1243, z=14}};
	[05] = {POS = {x=4064, y=1243, z=14}};
	[06] = {POS = {x=4062, y=1243, z=14}};
}
local STATUES_POS_3 = {
	[01] = {POS = {x=4170, y=1237, z=14}};
	[02] = {POS = {x=4172, y=1237, z=14}};
	[03] = {POS = {x=4174, y=1237, z=14}};
	[04] = {POS = {x=4174, y=1243, z=14}};
	[05] = {POS = {x=4172, y=1243, z=14}};
	[06] = {POS = {x=4170, y=1243, z=14}};
}	
local STATUES_CLICK = {
	[10512] = {UID = 10509, ACT = 01};
	[10513] = {UID = 10509, ACT = 02};
	[10514] = {UID = 10509, ACT = 03};
	[10515] = {UID = 10509, ACT = 04};
	[10516] = {UID = 10509, ACT = 05};
	[10517] = {UID = 10509, ACT = 06};
	
	[10518] = {UID = 10510, ACT = 01};
	[10519] = {UID = 10510, ACT = 02};
	[10520] = {UID = 10510, ACT = 03};
	[10521] = {UID = 10510, ACT = 04};
	[10522] = {UID = 10510, ACT = 05};
	[10523] = {UID = 10510, ACT = 06};
	
	[10524] = {UID = 10511, ACT = 01};
	[10525] = {UID = 10511, ACT = 02};
	[10526] = {UID = 10511, ACT = 03};
	[10527] = {UID = 10511, ACT = 04};
	[10528] = {UID = 10511, ACT = 05};
	[10529] = {UID = 10511, ACT = 06};
}

function onUse(player, item, fromPosition, target, toPosition, isHotkey)
	local STORAGE_BONEBROOK = _SYSTEM.DANGEROUS[03][01].STORAGE
	local party = player:getParty()
	if STATUES_CLICK[item.uid] then
		if STATUES_CLICK[item.uid].UID == 10509 then
			if LOCK_STATUES_1 then
				if STATUES_CLICK[item.uid].ACT == SEQUEN_NUMB_1[01] then
					table.remove(SEQUEN_NUMB_1, 01)
					player:getPosition():sendMagicEffect(13)
					
					if #SEQUEN_NUMB_1 == 0 then
						LOCK_STATUES_1 = false
						if not party then
							player:say("Voce acertou a sequencia!", TALKTYPE_MONSTER_SAY)
							player:setStorageValue(STORAGE_BONEBROOK, (player:getStorageValue(STORAGE_BONEBROOK) + 1))
							player:getPosition():sendMagicEffect(13)
						else
							local members = party:getMembers()
							members[#members + 1] = party:getLeader()
							for _, member in ipairs(members) do
								member:say("Voce acertou a sequencia!", TALKTYPE_MONSTER_SAY)
								member:setStorageValue(STORAGE_BONEBROOK, (member:getStorageValue(STORAGE_BONEBROOK) + 1))
								member:getPosition():sendMagicEffect(13)
							end
						end
					end
				else
					LOCK_STATUES_1 = false
					player:say("ErroR!", TALKTYPE_MONSTER_SAY)
					player:getPosition():sendMagicEffect(03)
				end
			else
				player:getPosition():sendMagicEffect(03)
			end
		end
		if STATUES_CLICK[item.uid].UID == 10510 then
			if LOCK_STATUES_2 then
				if STATUES_CLICK[item.uid].ACT == SEQUEN_NUMB_2[01] then
					table.remove(SEQUEN_NUMB_2, 01)
					player:getPosition():sendMagicEffect(13)
					
					if #SEQUEN_NUMB_2 == 0 then
						LOCK_STATUES_2 = false
						if not party then
							player:say("Voce acertou a sequencia!", TALKTYPE_MONSTER_SAY)
							player:setStorageValue(STORAGE_BONEBROOK, (player:getStorageValue(STORAGE_BONEBROOK) + 1))
							player:getPosition():sendMagicEffect(13)
						else
							local members = party:getMembers()
							members[#members + 1] = party:getLeader()
							for _, member in ipairs(members) do
								member:say("Voce acertou a sequencia!", TALKTYPE_MONSTER_SAY)
								member:setStorageValue(STORAGE_BONEBROOK, (member:getStorageValue(STORAGE_BONEBROOK) + 1))
								member:getPosition():sendMagicEffect(13)
							end
						end
					end
				else
					LOCK_STATUES_2 = false
					player:say("ErroR!", TALKTYPE_MONSTER_SAY)
					player:getPosition():sendMagicEffect(03)
				end
			else
				player:getPosition():sendMagicEffect(03)
			end
		end		
		if STATUES_CLICK[item.uid].UID == 10511 then
			if LOCK_STATUES_3 then
				if STATUES_CLICK[item.uid].ACT == SEQUEN_NUMB_3[01] then
					table.remove(SEQUEN_NUMB_3, 01)
					player:getPosition():sendMagicEffect(13)
					
					if #SEQUEN_NUMB_3 == 0 then
						LOCK_STATUES_3 = false
						if not party then
							player:say("Voce acertou a sequencia!", TALKTYPE_MONSTER_SAY)
							player:setStorageValue(STORAGE_BONEBROOK, (player:getStorageValue(STORAGE_BONEBROOK) + 1))
							player:getPosition():sendMagicEffect(13)
						else
							local members = party:getMembers()
							members[#members + 1] = party:getLeader()
							for _, member in ipairs(members) do
								member:say("Voce acertou a sequencia!", TALKTYPE_MONSTER_SAY)
								member:setStorageValue(STORAGE_BONEBROOK, (member:getStorageValue(STORAGE_BONEBROOK) + 1))
								member:getPosition():sendMagicEffect(13)
							end
						end
					end
				else
					LOCK_STATUES_3 = false
					player:say("ErroR!", TALKTYPE_MONSTER_SAY)
					player:getPosition():sendMagicEffect(03)
				end
			else
				player:getPosition():sendMagicEffect(03)
			end
		end
	end
	
	if item.uid == 10509 then
		if LOCK_STATUES_1 == false then
			if player:getStorageValue(STORAGE_BONEBROOK) == 12 then
				QNT_SQN_1 = 05
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 01/03 ].")
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 01/03 ].")
					end
				end
			elseif player:getStorageValue(STORAGE_BONEBROOK) == 13 then
				QNT_SQN_1 = 08
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 02/03 ].")
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 02/03 ].")
					end
				end
			elseif player:getStorageValue(STORAGE_BONEBROOK) == 14 then
				QNT_SQN_1 = 10
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 03/03 ].")
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 03/03 ].")
					end
				end
			elseif player:getStorageValue(STORAGE_BONEBROOK) == 15 then
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Estatua da Zona 04-B liberados.")
					player:setStorageValue(STORAGE_BONEBROOK, 16)
					player:getPosition():sendMagicEffect(13)
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Estatua da Zona 04-B liberado.")
						member:setStorageValue(STORAGE_BONEBROOK, 16)
						member:getPosition():sendMagicEffect(13)
					end
				end
				
				LOCK_STATUES_1 = false
				return true
			else
				player:getPosition():sendMagicEffect(03)
				LOCK_STATUES_1 = false
				return true
			end	
			
			LOCK_STATUES_1 = true
			if #SEQUEN_NUMB_1 > 0 then
				for k in pairs (SEQUEN_NUMB_1) do
					SEQUEN_NUMB_1 [k] = nil
				end
			end
			player:getPosition():sendMagicEffect(13)
			addEvent(effect_random, 3000, player.uid, 01)
			return true
		else
			player:getPosition():sendMagicEffect(03)
		end
	end
	if item.uid == 10510 then
		if LOCK_STATUES_2 == false then
			if player:getStorageValue(STORAGE_BONEBROOK) == 12 then
				QNT_SQN_2 = 05
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 01/03 ].")
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 01/03 ].")
					end
				end
			elseif player:getStorageValue(STORAGE_BONEBROOK) == 13 then
				QNT_SQN_2 = 08
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 02/03 ].")
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 02/03 ].")
					end
				end
			elseif player:getStorageValue(STORAGE_BONEBROOK) == 14 then
				QNT_SQN_2 = 10
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 03/03 ].")
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 03/03 ].")
					end
				end
			elseif player:getStorageValue(STORAGE_BONEBROOK) == 15 then
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Estatua da Zona 04-B liberados.")
					player:setStorageValue(STORAGE_BONEBROOK, 16)
					player:getPosition():sendMagicEffect(13)
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Estatua da Zona 04-B liberado.")
						member:setStorageValue(STORAGE_BONEBROOK, 16)
						member:getPosition():sendMagicEffect(13)
					end
				end
				
				LOCK_STATUES_2 = false
				return true
			else
				player:getPosition():sendMagicEffect(03)
				LOCK_STATUES_2 = false
				return true
			end	
			
			LOCK_STATUES_2 = true
			if #SEQUEN_NUMB_2 > 0 then
				for k in pairs (SEQUEN_NUMB_2) do
					SEQUEN_NUMB_2 [k] = nil
				end
			end	
			player:getPosition():sendMagicEffect(13)
			addEvent(effect_random, 3000, player.uid, 02, QNT_SQN_2)
			return false
		else
			player:getPosition():sendMagicEffect(03)
		end
	end
	if item.uid == 10511 then
		if LOCK_STATUES_3 == false then
			if player:getStorageValue(STORAGE_BONEBROOK) == 12 then
				QNT_SQN_3 = 05
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 01/03 ].")
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 01/03 ].")
					end
				end
			elseif player:getStorageValue(STORAGE_BONEBROOK) == 13 then
				QNT_SQN_3 = 08
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 02/03 ].")
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 02/03 ].")
					end
				end
			elseif player:getStorageValue(STORAGE_BONEBROOK) == 14 then
				QNT_SQN_3 = 10
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 03/03 ].")
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Gerando Sequencia Aleatoria\n[ 03/03 ].")
					end
				end
			elseif player:getStorageValue(STORAGE_BONEBROOK) == 15 then
				if not party then
					player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Estatua da Zona 04-B liberados.")
					player:setStorageValue(STORAGE_BONEBROOK, 16)
					player:getPosition():sendMagicEffect(13)
				else
					local members = party:getMembers()
					members[#members + 1] = party:getLeader()
					for _, member in ipairs(members) do
						member:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Estatua da Zona 04-B liberado.")
						member:setStorageValue(STORAGE_BONEBROOK, 16)
						member:getPosition():sendMagicEffect(13)
					end
				end
				
				LOCK_STATUES_3 = false
				return true
			else
				player:getPosition():sendMagicEffect(03)
				LOCK_STATUES_3 = false
				return true
			end	
			
			LOCK_STATUES_3 = true
			if #SEQUEN_NUMB_3 > 0 then
				for k in pairs (SEQUEN_NUMB_3) do
					SEQUEN_NUMB_3 [k] = nil
				end
			end	
			player:getPosition():sendMagicEffect(13)
			addEvent(effect_random, 3000, player.uid, 03, QNT_SQN_3)
			return false
		else
			player:getPosition():sendMagicEffect(03)
		end
	end
end

function effect_random(creature, id)
	local player = Player(creature)
	if id == 01 then
		if QNT_SQN_1 > 0 then
			QNT_SQN_1 = QNT_SQN_1 - 1
			local CLICK_RANDOM = math.random(01, #STATUES_POS_1)
			local POSITION_STATUES = Position(STATUES_POS_1[CLICK_RANDOM].POS.x, STATUES_POS_1[CLICK_RANDOM].POS.y, 14)
			POSITION_STATUES:sendMagicEffect(CONST_ME_TELEPORT)
			
			table.insert(SEQUEN_NUMB_1, CLICK_RANDOM)
			addEvent(effect_random, 1000, player.uid, id)
			return true
		else
			player:say("Sequencia Finalizada.", TALKTYPE_MONSTER_SAY)
			return true
		end
	end
	if id == 02 then
		if QNT_SQN_2 > 0 then
			QNT_SQN_2 = QNT_SQN_2 - 1
			local CLICK_RANDOM = math.random(01, #STATUES_POS_2)
			local POSITION_STATUES = Position(STATUES_POS_2[CLICK_RANDOM].POS.x, STATUES_POS_2[CLICK_RANDOM].POS.y, 14)
			POSITION_STATUES:sendMagicEffect(CONST_ME_TELEPORT)
			
			table.insert(SEQUEN_NUMB_2, CLICK_RANDOM)
			addEvent(effect_random, 1000, player.uid, id)
		else
			player:say("Sequencia Finalizada.", TALKTYPE_MONSTER_SAY)
		end
	end
	if id == 03 then
		if QNT_SQN_3 > 0 then
			QNT_SQN_3 = QNT_SQN_3 - 1
			local CLICK_RANDOM = math.random(01, #STATUES_POS_3)
			local POSITION_STATUES = Position(STATUES_POS_3[CLICK_RANDOM].POS.x, STATUES_POS_3[CLICK_RANDOM].POS.y, 14)
			POSITION_STATUES:sendMagicEffect(CONST_ME_TELEPORT)
			
			table.insert(SEQUEN_NUMB_3, CLICK_RANDOM)
			addEvent(effect_random, 1000, player.uid, id)
		else
			player:say("Sequencia Finalizada.", TALKTYPE_MONSTER_SAY)
		end
	end
end