function CreatureShouldSurvive(hero, id)
  while 1 do
    if GetHeroCreatures(hero, id) < 1 then
      SetObjectiveState("zadanie4", OBJECTIVE_FAILED)
      sleep(20)
      Loose()
    end
    sleep(1)
  end
end

function StartScene()
StartDialogScene('/MyScene/StartScene/DialogScene1/DialogScene.xdb#xpointer(/DialogScene)')
Trigger(REGION_ENTER_AND_STOP_TRIGGER, "reg12", nil);
for i=1,4 do
  SetObjectiveState("zadanie"..i, OBJECTIVE_ACTIVE) --All quests are strictly numbered from 1 to 4, so we iterate through them in a loop
end
startThread(CreatureShouldSurvive, 'Mardigo', CREATURE_CLERIC)
AddHeroCreatures("Mardigo", 1, 40);
AddHeroCreatures("Mardigo", 5, 10);
AddHeroCreatures("Mardigo", 10, 1);
for i=500,508 do --Since all objects to be removed have a strict numbering from 500 to 508, I iterate through them in a loop
  RemoveObject(i)
end
end

Trigger(REGION_ENTER_AND_STOP_TRIGGER, "reg12", "StartScene");