function c9010304_On_Talk(MapID, InstanceID, TargetID, TargetTypeID, RoleID, TalkIndex) --Гамлет Мастер изминения знаков
	local a = role.GetRoleItemNum(RoleID, 3040001) --1 ур
	local b = role.GetRoleItemNum(RoleID, 3040006)
	local c = role.GetRoleItemNum(RoleID, 3040011)
	local d = role.GetRoleItemNum(RoleID, 3040016)
	local e = role.GetRoleItemNum(RoleID, 6600317)
	
	local a1 = role.GetRoleItemNum(RoleID, 3040002) --2 ур
	local b1 = role.GetRoleItemNum(RoleID, 3040007)
	local c1 = role.GetRoleItemNum(RoleID, 3040012)
	local d1 = role.GetRoleItemNum(RoleID, 3040017)

	local a2 = role.GetRoleItemNum(RoleID, 3040003) --3 ур
	local b2 = role.GetRoleItemNum(RoleID, 3040008)
	local c2 = role.GetRoleItemNum(RoleID, 3040013)
	local d2 = role.GetRoleItemNum(RoleID, 3040018)
	
	local a3 = role.GetRoleItemNum(RoleID, 3040004) --4 ур
	local b3 = role.GetRoleItemNum(RoleID, 3040009)
	local c3 = role.GetRoleItemNum(RoleID, 3040014)
	local d3 = role.GetRoleItemNum(RoleID, 3040019)
		
	local a4 = role.GetRoleItemNum(RoleID, 3040005) --5 ур
	local b4 = role.GetRoleItemNum(RoleID, 3040010)
	local c4 = role.GetRoleItemNum(RoleID, 3040015)
	local d4 = role.GetRoleItemNum(RoleID, 3040020)
	
	local a5 = role.GetRoleItemNum(RoleID, 5802609) --6 ур
	local b5 = role.GetRoleItemNum(RoleID, 5802614)
	local c5 = role.GetRoleItemNum(RoleID, 5802619)
	local d5 = role.GetRoleItemNum(RoleID, 5802624)
	
	local a6 = role.GetRoleItemNum(RoleID, 5802610) --7 ур
	local b6 = role.GetRoleItemNum(RoleID, 5802615)
	local c6 = role.GetRoleItemNum(RoleID, 5802620)
	local d6 = role.GetRoleItemNum(RoleID, 5802625)
	
	
	local FreeSize = role.GetBagFreeSize(TargetID)
	local MsgID = msg.BeginMsgEvent()
	if TalkIndex == -1 then
		msg.AddMsgEvent(MsgID, 20, 950301) --Здесь вы можете соединять знаки для получения более качественных.				
		msg.AddMsgEvent(MsgID, 24, TargetID)		
		msg.AddMsgEvent(MsgID, 21, 9)			
		msg.AddMsgEvent(MsgID, 1, 950302) --Священное сияние [Ур. 1]
		msg.AddMsgEvent(MsgID, 21, 10)			
		msg.AddMsgEvent(MsgID, 1, 950304) --Священное сияние [Ур. 2]
		msg.AddMsgEvent(MsgID, 21, 11)			
		msg.AddMsgEvent(MsgID, 1, 950306) --Священное сияние [Ур. 3]
		msg.AddMsgEvent(MsgID, 21, 12)			
		msg.AddMsgEvent(MsgID, 1, 950308) --Священное сияние [Ур. 4]
		msg.AddMsgEvent(MsgID, 21, 13)			
		msg.AddMsgEvent(MsgID, 1, 950310) --Священное сияние [Ур. 5]
		msg.AddMsgEvent(MsgID, 21, 14)			
		msg.AddMsgEvent(MsgID, 1, 950312) --Священное сияние [Ур. 6]
		msg.AddMsgEvent(MsgID, 21, 15)			
		msg.AddMsgEvent(MsgID, 1, 950314) --Священное сияние [Ур. 7]
		msg.AddMsgEvent(MsgID, 21, 99)
		msg.AddMsgEvent(MsgID, 1, 100002)				--Отмена
		msg.DispatchRoleMsgEvent(RoleID, MsgID)	
	elseif TalkIndex == 9 then
		if a >= 1 and b >= 1 and c >= 1 and d >= 1 and e >= 3 then
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040001, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040006, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040011, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040016, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,6600317, 3, 400)
				role.AddRoleItem(MapID, InstanceID, RoleID, 3040021, 1, -1, 8, 420)
		else
		msg.AddMsgEvent(MsgID, 20, 950303) --Требуется Страшный Суд [Ур. 1], Священное возмездие [Ур. 1], Священное наказание [Ур. 1], Священный символ [Ур. 1] и 3 Осколков знака.			
		msg.AddMsgEvent(MsgID, 24, TargetID)	
		msg.AddMsgEvent(MsgID, 21, 9)			
		msg.AddMsgEvent(MsgID, 1, 950316) --Соединить
		msg.AddMsgEvent(MsgID, 21, -1)			
		msg.AddMsgEvent(MsgID, 1, 950317) --Назад
		msg.AddMsgEvent(MsgID, 21, 99)
		msg.AddMsgEvent(MsgID, 1, 100002) --Отмена	
				
	end
	elseif TalkIndex == 10 then 
		if a1 >= 1 and b1 >= 1 and c1 >= 1 and d1 >= 1 and e >= 5 then
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040002, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040007, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040012, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040017, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,6600317, 5, 400)
				role.AddRoleItem(MapID, InstanceID, RoleID, 3040022, 1, -1, 8, 420)
		else
		msg.AddMsgEvent(MsgID, 20, 950305) --Требуется Страшный Суд [Ур. 2], Священное возмездие [Ур. 2], Священное наказание [Ур. 2], Священный символ [Ур. 2] и 5 Осколков знака.			
		msg.AddMsgEvent(MsgID, 24, TargetID)	
		msg.AddMsgEvent(MsgID, 21, 10)			
		msg.AddMsgEvent(MsgID, 1, 950316) --Соединить
		msg.AddMsgEvent(MsgID, 21, -1)			
		msg.AddMsgEvent(MsgID, 1, 950317) --Назад
		msg.AddMsgEvent(MsgID, 21, 99)
		msg.AddMsgEvent(MsgID, 1, 100002) --Отмена	
	end
		
	elseif TalkIndex == 11 then
		if a2 >= 1 and b2 >= 1 and c2 >= 1 and d2 >= 1 and e >= 7 then
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040003, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040008, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040013, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040018, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,6600317, 7, 400)
				role.AddRoleItem(MapID, InstanceID, RoleID, 3040023, 1, -1, 8, 420)
		else
		msg.AddMsgEvent(MsgID, 20, 950307) --Требуется Страшный Суд [Ур. 3], Священное возмездие [Ур. 3], Священное наказание [Ур. 3], Священный символ [Ур. 3] и 7 Осколков знака.			
		msg.AddMsgEvent(MsgID, 24, TargetID)	
		msg.AddMsgEvent(MsgID, 21, 11)			
		msg.AddMsgEvent(MsgID, 1, 950316) --Соединить
		msg.AddMsgEvent(MsgID, 21, -1)			
		msg.AddMsgEvent(MsgID, 1, 950317) --Назад
		msg.AddMsgEvent(MsgID, 21, 99)
		msg.AddMsgEvent(MsgID, 1, 100002) --Отмена	
	end
	elseif TalkIndex == 12 then
		if a3 >= 1 and b3 >= 1 and c3 >= 1 and d3 >= 1 and e >= 9 then
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040004, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040009, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040014, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040019, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,6600317, 9, 400)
				role.AddRoleItem(MapID, InstanceID, RoleID, 3040024, 1, -1, 8, 420)
		else
		msg.AddMsgEvent(MsgID, 20, 950309) --Требуется Страшный Суд [Ур. 4], Священное возмездие [Ур. 4], Священное наказание [Ур. 4], Священный символ [Ур. 4] и 9 Осколков знака.			
		msg.AddMsgEvent(MsgID, 24, TargetID)	
		msg.AddMsgEvent(MsgID, 21, 12)			
		msg.AddMsgEvent(MsgID, 1, 950316) --Соединить
		msg.AddMsgEvent(MsgID, 21, -1)			
		msg.AddMsgEvent(MsgID, 1, 950317) --Назад
		msg.AddMsgEvent(MsgID, 21, 99)
		msg.AddMsgEvent(MsgID, 1, 100002) --Отмена	
	end
		
	elseif TalkIndex == 13 then
		if a4 >= 1 and b4 >= 1 and c4 >= 1 and d4 >= 1 and e >= 11 then
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040005, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040010, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040015, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,3040020, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,6600317, 11, 400)
				role.AddRoleItem(MapID, InstanceID, RoleID, 3040025, 1, -1, 8, 420)
		else
		msg.AddMsgEvent(MsgID, 20, 950311) --Требуется Страшный Суд [Ур. 5], Священное возмездие [Ур. 5], Священное наказание [Ур. 5], Священный символ [Ур. 5] и 11 Осколков знака.			
		msg.AddMsgEvent(MsgID, 24, TargetID)	
		msg.AddMsgEvent(MsgID, 21, 13)			
		msg.AddMsgEvent(MsgID, 1, 950316) --Соединить
		msg.AddMsgEvent(MsgID, 21, -1)			
		msg.AddMsgEvent(MsgID, 1, 950317) --Назад
		msg.AddMsgEvent(MsgID, 21, 99)
		msg.AddMsgEvent(MsgID, 1, 100002) --Отмена	
	end
	elseif TalkIndex == 14 then	
		if a5 >= 1 and b5 >= 1 and c5 >= 1 and d5 >= 1 and e >= 13 then
			role.RemoveFromRole(MapID, InstanceID,RoleID,5802609, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,5802614, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,5802619, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,5802624, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,6600317, 13, 400)
				role.AddRoleItem(MapID, InstanceID, RoleID, 5802629, 1, -1, 8, 420)
		else
		msg.AddMsgEvent(MsgID, 20, 950313) --Требуется Страшный Суд [Ур. 6], Священное возмездие [Ур. 6], Священное наказание [Ур. 6], Священный символ [Ур. 6] и 13 Осколков знака.			
		msg.AddMsgEvent(MsgID, 24, TargetID)	
		msg.AddMsgEvent(MsgID, 21, 14)			
		msg.AddMsgEvent(MsgID, 1, 950316) --Соединить
		msg.AddMsgEvent(MsgID, 21, -1)			
		msg.AddMsgEvent(MsgID, 1, 950317) --Назад
		msg.AddMsgEvent(MsgID, 21, 99)
		msg.AddMsgEvent(MsgID, 1, 100002) --Отмена	
	end
	elseif TalkIndex == 15 then
		if a6 >= 1 and b6 >= 1 and c6 >= 1 and d6 >= 1 and e >= 13 then
			role.RemoveFromRole(MapID, InstanceID,RoleID,5802610, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,5802615, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,5802620, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,5802625, 1, 400)
			role.RemoveFromRole(MapID, InstanceID,RoleID,6600317, 15, 400)
				role.AddRoleItem(MapID, InstanceID, RoleID, 5802630, 1, -1, 8, 420)
		else
		msg.AddMsgEvent(MsgID, 20, 950313) --Требуется Страшный Суд [Ур. 7], Священное возмездие [Ур. 7], Священное наказание [Ур. 7], Священный символ [Ур. 7] и 5 Осколков знака.			
		msg.AddMsgEvent(MsgID, 24, TargetID)	
		msg.AddMsgEvent(MsgID, 21, 15)			
		msg.AddMsgEvent(MsgID, 1, 950316) --Соединить
		msg.AddMsgEvent(MsgID, 21, -1)			
		msg.AddMsgEvent(MsgID, 1, 950317) --Назад
		msg.AddMsgEvent(MsgID, 21, 99)
		msg.AddMsgEvent(MsgID, 1, 100002) --Отмена	
		
	end
end	
	msg.DispatchRoleMsgEvent(RoleID, MsgID)		
end


aux.RegisterCreatureEvent(9010304, 7, "c9010304_On_Talk")