function visit_crypt(hero)
	QuestionBox(GetMapDataPath() .. 'visit_crypt.txt', 'crypt_ok', 'crypt_cancel')
end

Trigger(4, 'crypt', 'visit_crypt')

function crypt_ok() -- функция вызывается в случае нажатия игроком кнопки ОК
	-- ...
end

function crypt_cancel() -- функция вызывается в случае нажатия игроком кнопки Отмена
	-- ...
end

Добавлено через 15 минут
Можно сделать ещё такую функцию, которая будет сразу возвращать сам ответ игрока, а не вызывать другую функцию. По-моему, это несколько удобнее.

function QuestionBoxRef(msg)
	question_box_ref_answer = -1
	QuestionBox(msg, "question_box_ref_answer=1 --", "question_box_ref_answer=0 --")
	while question_box_ref_answer == -1 do
		sleep()
	end
	return question_box_ref_answer == 1
end

-- пример использования

function visit_crypt(hero)
	if QuestionBoxRef(GetMapDataPath() .. 'visit_crypt.txt') then
		-- игрок согласен
	else
		-- игрок отказал
	end
end

Trigger(4, 'crypt', 'visit_crypt')