Аскет2Нет, таки не работают скрипты. В чём дело? Посмотрите, если можно.

	function SetPlayerStartResources (player, wood, ore, mercury, crystal, sulfur, gem, gold)
  if player == 1
  then wood = 20
  ore = 20
  mercury = 10
  crystal = 15
  sulfur = 10
  gem = 10
  gold = 15000
end
end

	SetPlayerStartResources (1, 20, 20, 10, 15, 10, 10, 15000)

--без всяких function и пр.

	function alive()
	while IsHeroAlive("Hero9") do
		sleep(10)
	end
	Loose()
-- или --
  Loose(1)
end

Аскет2Ну, главное, работает.

	function gnom (heroname)
  if heroname == "Hero9"
  then MessageBox (GetMapDataPath().."ha.txt")
  Trigger(REGION_ENTER_AND_STOP_TRIGGER, "Ha", nil);
end;
end;

Trigger(REGION_ENTER_AND_STOP_TRIGGER, "Ha", "ha");

	function QuestPervii ()
  if HasArtefact ("Hero9", "TOME_OF_DESTRUCTION")  без кавычек, неверный id
    then MessageBox (GetMapDataPath().."QuestPervii.txt")
    ChangeHeroStat ("Hero9", STAT_DEFENSE, 7) STAT_DEFENCE
    RemoveArtefact ("Hero9", "TOME_OF_DESTRUCTION")  без кавычек, неверный id
   Trigger(OBJECT_TOUCH_TRIGGER, "Pervii", nil)
  else MessageBox (GetMapDataPath().."LoseL.txt")
end;
end;

	function QuestVtoroi ()
  if HasArtefacts ("Hero9", "SKULL_OF_MARKAL")  неправильное имя функции, id без кавычек, неверный id
    then MessageBox (GetMapDataPath().."QuestVtoroi.txt")
    ChangeHeroStat ("Hero9", STAT_OFFENCE, 7)
    RemoveArtefact ("Hero9", "SKULL_OF_MARKAL" ) без кавычек, неверный id
  Trigger(OBJECT_TOUCH_TRIGGER, "Vtoroi", nil)
  else MessageBox (GetMapDataPath().."LoseLI.txt")
end;
end;

	function alive()
	while IsHeroAlive("Hero9") do
		sleep(10)
	end
	Loose()
-- или --
  Loose(1)  убрать, дабы никого не смущать
end

	Trigger(OBJECT__TRIGGER, 'X', 'capture_town')  неправильный id триггера, указатель на несуществующую функцию

	function alive()
	while IsHeroAlive("Hero9") do
		sleep(10)
	end
	Loose()
-- или --
  Loose(1)  
end

	
function alive(heroname)
     if heroname=="Hero9" then
          Loose()
     end
end
Trigger(2, 1, "alive")

MasteRЧтобы не возиться со всякими константами типа REGION_ENTER_AND_STOP_TRIGGER, или TOME_OF_DESTRUCTION их лучше заменять на числа (все числа указаны в документе IDs for scripts). Так и компактнее, и позволит избежать ряд ошибок, почти незаметных при отладке.

Например коды
Trigger(REGION_ENTER_AND_STOP_TRIGGER, "Gnom", "gnom")
и
Trigger(6, "Gnom", "gnom")
работают одинаково, но вторую запись куда удобней использовать

	function alive()
	while IsHeroAlive("Hero9") do
		sleep(10)
	end
	Loose()
-- или --
  Loose(1)  
end

	
function alive(heroname)
     if heroname=="Hero9" then
          Loose()
     end
end
Trigger(2, 1, "alive")

Нужен скрипт, чтобы после смерти героя миссия провалилась. Заранее спс.

RedHeavenHeroNargott не одобрит.
В Notepad++, где я, к примеру, пишу скрипты, при вводе первых букв константы предлагается список из слов в файле, остаётся только выбрать. Так шанс ошибиться меньше.

Добавлено через 2 минуты


Второй сработает при любой потере игроком героя, первый - только при смерти.

	function borderGuard()
  QuestionBox("ссылка на текст с вопросом", "bgok")
end

function bgok()
  local gold = GetPlayerResource(1, GOLD)
  if gold >= количество_золота then
    SetPlayerResource(1, GOLD, gold - количество_золота)
    RemoveObject("скриптовое имя стража границ")
  else
    MessageBox("ссылка на текст с оповещением о нехватке ресурсов")
  end
end

SetObjectEnabled("скриптовое имя стража границ", nil)
Trigger(4, "скриптовое имя стража границ", "borderGuard")