function nighttario_OnTalk(MapID, InstanceID, TargetID, TargetTypeID, RoleID, TalkIndex)
--Ночной тарио
local TeamID = role.IsRoleHaveTeam(MapID, InstanceID, RoleID)
	if TalkIndex == -1 then
		local MsgID = msg.BeginMsgEvent()
		msg.AddMsgEvent(MsgID, 20, 950635)        --Телепорт в ночное Тарио.
		msg.AddMsgEvent(MsgID, 24, TargetID)    --npcid
		msg.AddMsgEvent(MsgID, 21, 4)            --кнопка Отмена
		msg.AddMsgEvent(MsgID, 1, 100001)        --ОК
		msg.AddMsgEvent(MsgID, 21, 5)            --кнопка Отмена
		msg.AddMsgEvent(MsgID, 1, 100002)        --отмена
		msg.DispatchRoleMsgEvent(RoleID, MsgID)
    elseif TalkIndex == 4 then
        if role.GetRoleItemNum(RoleID, 5300104) >= 1 then
			if TeamID ~= nil and TeamID ~= 4294967295 then
				local Role = {}
				Role[1], Role[2], Role[3], Role[4], Role[5], Role[6] = role.GetRoleTeamMemID(TeamID)
                for i=1, 6 do
					if Role[i] and Role[i]~= 4294967295 then
					role.RemoveFromRole(MapID, InstanceID, Role[i], 5300104, 1, 420)--id предмета который должен быть для входа, количество
                    role.RoleGotoNewMap(MapID, InstanceID, Role[i], 881225265, 617, 31771, 951)--crc карты и кординаты куда будет попадать при телепорте x y z
					end
                end
              
            end  
                   
        else
			local MsgID = msg.BeginMsgEvent()
			msg.AddMsgEvent(MsgID, 20,    950635)        --Проводник Захваченого города:\n    У вас не хватает Знака Тарио, невозможно войти в Город
			msg.AddMsgEvent(MsgID, 24,    TargetID)    --npcid
			msg.AddMsgEvent(MsgID, 21,    5)            --кнопка Отмена
			msg.AddMsgEvent(MsgID, 1,    100001)        --“да”
			msg.DispatchRoleMsgEvent(RoleID, MsgID)
        end
            
    end
end

aux.RegisterCreatureEvent(9010425, 7, "nighttario_OnTalk") --id НПС для прохода