case "Ship_capture":

и перед ним записываем такое выражение
             
       case "Ship_capture_NPC_Dead":
        if(CheckAttribute(refCharacter,"ShipCapture") && refCharacter.ShipCapture=="1")
        {
         DeleteAttribute(refCharacter, "ShipCapture");
         return true;
        }
        return CharacterIsDead(refCharacter);
        return false;
       break;

    makeref(ch,Characters[n]);    // священник        
       ch.id = "First Church Treas";
       ch.name = "Отец";
       ch.lastname = "Валериан";
       ch.model = "priest_2";
       ch.location    = "StMartin_Tavern"; // сидит в таверне и никуда не уходит
       ch.location.group = "sit";
       ch.location.locator = "sit3";
       ch.Dialog.Filename = "Valerian_dialog.c";
       ch.namelock = 1; //запрещаем менять имя
       ch.QuestLock = 1;       
       ch.sex = "man";
       LAi_SetImmortal(ch, true);
       Lai_SetSitType(ch); //мужик сидячий
       n = n + 1;

       makeref(ch,Characters[n]);    // Бандюк       
       ch.id = "Bandiuk";
       ch.name = "Бандит";
       ch.lastname = "";
       ch.rank = 5;
       ch.model = "officer_2";
       ch.nation = PIRATE;
       ch.RemoveLock = true;       
         ch.skill.Fencing = "5";
         ch.skill.Gun = "5";       
       ch.sex = "man";
       ch.CanThiefed = "false";
       LAi_NPC_Equip(ch, ch.rank, true, true); //вещички соответствуют уровню, но можно и отдельно прописать оружие
       Lai_SetStayType(ch); //а этот - стоячий

       n = n + 1;       
       makeref(ch,Characters[n]);    // вражий кораблик       
       ch.id = "Kasatka";
       ch.rank = 10;
       ch.model = "pirate_4";
       ch.nation = PIRATE;
       ch.RemoveLock = true;       
         ch.skill.Leadership = 10;
         ch.skill.Fencing = 10;
         ch.skill.Gun = 10;
         ch.skill.Sailing = 10;
         ch.skill.Tactic = 10;
         ch.skill.Accuracy = 10;
         ch.skill.Cannons = 10;
         ch.skill.Grappling = 10;
         ch.skill.Repair = 10;
         ch.skill.Defence = 10;
         ch.skill.Commerce = 10;
         ch.skill.Sneak = 10;       
       ch.characterlock = 1;
       ch.QuestLock = 1;
       ch.sex = "man";
       ch.CanThiefed = "false";
       ch.Ship.Name = "Касатка";
       ch.Ship.Type = GenerateShip(SHIP_SLOOP, 1); // здесь прописываем класс кораблика, если нужен Моновар, пишем - SHIP_MANOWAR, все кораблики описаны в Ships_init.с (путь: program\ships)
       ch.Ship.Stopped = true;
          ch.perks.list.Gunner = true; //абгрейдим по полной
       ch.perks.list.GunnerCamicadze = true;
       ch.perks.list.GunnerSniper = true;
          ch.perks.list.BoardingMaster = true;
          ch.perks.list.BoardingDevil = true;
       ch.perks.list.Carpenter = true;
       ch.perks.list.Builder = true;
       SetBaseShipData(ch);
       LAi_SetLevelHP(ch);
       Lai_SetWarriorType(ch);
       n = n + 1;
             
              
       makeref(ch,Characters[n]);  // Девушка
       ch.id = "Rebekka";
       ch.name = "Реббека";
       ch.lastname = "Робинсон";
       ch.model = "lady_6"; // модель выбираем по желанию
       ch.RemoveLock = true;       
       ch.Dialog.Filename = "Rebеkka_dialog.c";
       ch.namelock = 1;
       ch.QuestLock = 1;
       ch.sex = "woman";
       ch.CanThiefed = "false";
       LAi_SetImmortal(ch, true);
       Lai_SetStayType(ch);
       n = n + 1;

  /////////////////////////////////////////////////////////////////////////////////
        // НАЗВАНИЕ КВЕСТА и все такое
        /////////////////////////////////////////////////////////////////////////////////

        case "ChurchTreasure_1":
        SetQuestHeader("ChurchTrs"); // открываем заголовок квеста в ЖЖ
        AddQuestRecord("ChurchTrs", "1"); // первая запись в ЖЖ
        GiveItem2Character(pchar, "Quest_ring_1"); //даем ГГ предмет
        ChangeCharacterAddressGroup(CharacterFromID("Bandiuk"), "StMartin_town", "goto", "goto1"); //ставим бандита в локацию
        ChangeCharacterAddressGroup(CharacterFromID("Rebekka"), "StEustatius_town", "goto", "goto2"); //ставим девушку в локацию
        PChar.quest.ChurchTreasure_2.win_condition.l1 = "location"; //следующий кейс начнется только когда ГГ выйдет в город
        PChar.quest.ChurchTreasure_2.win_condition.l1.location = "StMartin_town";
        PChar.quest.ChurchTreasure_2.win_condition = "ChurchTreasure_2";
        break;
              
        case "ChurchTreasure_2":
        Locations[FindLocation(PChar.location)].reload.l1.disable = true; //закрываем выход в море, чтоб ГГ не сбежал
              LAi_SetWarriorType(CharacterFromID("Bandiuk"));
           LAi_SetHP(CharacterFromID("Bandiuk"), 100.0, 100.0); //жизнь бандита
              LAi_group_MoveCharacter(CharacterFromID("Bandiuk"), "PIRATES_BANDA");
        LAi_group_SetRelation("PIRATES_BANDA", LAI_GROUP_PLAYER, LAI_GROUP_ENEMY); //не уважает бандит ГГ, что тут сделаешь?
        LAi_group_FightGroups("PIRATES_BANDA", LAI_GROUP_PLAYER, true); //создали бандита, как только ГГ выйдет из таверны NPS нападет
        PChar.quest.ChurchTreasure_3.win_condition.l1 = "NPC_Death"; // следующий кейс запуститься только когда NPS погибнет
        PChar.quest.ChurchTreasure_3.win_condition.l1.character = "Bandiuk";
        PChar.quest.ChurchTreasure_3.win_condition = "ChurchTreasure_3";        
        break;
              
        case "ChurchTreasure_3":
        AddQuestRecord("ChurchTrs", "2"); //запись в ЖЖ
        Locations[FindLocation(PChar.location)].reload.l1.disable = false; //открываем проход
        ChangeCharacterAddress(characterFromID("First Church Treas"), "None", ""); //убираем священника       
        PChar.quest.ChurchTreasure_4.win_condition.l1 = "ExitFromLocation"; // следующий кейс запуститься когда ГГ покинет данную локацию
        PChar.quest.ChurchTreasure_4.win_condition.l1.location = PChar.location;
        PChar.quest.ChurchTreasure_4.win_condition = "ChurchTreasure_4";       

        break;
              
        case "ChurchTreasure_4":
                  ChangeCharacterAddress(characterFromID("Bandiuk"), "None", ""); //убираем бандита
                  bQuestDisableMapEnter = true; //закрываем выход в карту, теперь ГГ на корабле не сбежит
         Island_SetReloadEnableGlobal(PChar.location, false); //запретить перегруз
         Group_CreateGroup("Kasatka"); //создаем вражий кораблик
         Group_AddCharacter("Kasatka", "Kasatka");
         Group_SetGroupCommander("Kasatka", "Kasatka");
         Group_SetAddress("Kasatka", Characters[GetMainCharacterIndex()].location, "", ""); //кораблик преследует ГГ
         SetCharacterRelationBoth(nMainCharacterIndex, GetCharacterIndex("Kasatka"), RELATION_ENEMY); //однозначно, враг
         Group_SetTaskAttack("Kasatka", PLAYER_GROUP);
         Group_LockTask("Kasatka");       
         UpdateRelations();    //обновим отношения       
         PChar.quest.ChurchTreasure_5.win_condition.l1 = "Ship_capture_NPC_Dead"; //следующий кейс запуститься если кораблик потоплен или взят на абордаж       
         PChar.quest.ChurchTreasure_5.win_condition.l1.character = "Kasatka";
         PChar.quest.ChurchTreasure_5.win_condition = "ChurchTreasure_5";
              
        break;
              
        case "ChurchTreasure_5":
            AddQuestRecord("ChurchTrs", "3"); //еще запись в ЖЖ
         bQuestDisableMapEnter = false; //открываем карту
         Island_SetReloadEnableGlobal(PChar.location, true); //перегружаемся
         Group_SetAddress("Kasatka", "None", "None", "None"); //убираем вражий кораблик
        break;
              

              
        case "ChurchTreasure_6": //это кейс запускается после диалога с девушкой, потому и нет перехода из предыдущих кейсов
            AddQuestRecord("ChurchTrs", "4"); //пишем в ЖЖ
            CloseQuestHeader("ChurchTrs"); //закрываем заголовок квеста в ЖЖ
            TakeNItems(PChar, "Quest_ring_1", -1); //отбираем вещичку у ГГ
            ChangeCharacterAddress(characterFromID("Rebekka"), "None", ""); // убираем девушку
        break;

void ProcessDialogEvent()
{
       ref NPChar;
       aref Link, NextDiag;

       DeleteAttribute(&Dialog,"Links");

       makeref(NPChar,CharacterRef);
       makearef(Link, Dialog.Links);
       makearef(NextDiag, NPChar.Dialog);

       switch(Dialog.CurrentNode)
       {
        case "First time":
         dialog.text = "Приветствую  тебя странник. Сделай доброе дело, отвези это кольцо на Св. Евтафий. Найди там девушку по имени Реббека Робинсон. Вот ей колечко то и отдай. И будет тебе счастье.";
         link.l1 = "Конечно, я помогу тебе. Грех священнику не помочь.";
         link.l1.go = "cherch ques";
         link.l2 = "Ага, уже побежал.";
         link.l2.go = "exit";

        break;
              
        case "cherch ques":
        AddDialogExitQuest("ChurchTreasure_1");    //запускает первый кейс из квеста, начинаем квест после диалога, если ответ положительный
        NextDiag.CurrentNode = NextDiag.TempNode;
        DialogExit();
        break;

        case "Exit":
        ChangeCharacterAddress(characterFromID("First Church Treas"), "None", ""); //убираем священника, если ответ отрицательный, второй раз квест взять будет невозможно.
         NextDiag.CurrentNode = NextDiag.TempNode;
         DialogExit();
        break;
       }
}

void ProcessDialogEvent()
{
       ref NPChar;
       aref Link, NextDiag;

       DeleteAttribute(&Dialog,"Links");

       makeref(NPChar,CharacterRef);
       makearef(Link, Dialog.Links);
       makearef(NextDiag, NPChar.Dialog);

       switch(Dialog.CurrentNode)
       {
        case "First time":
         dialog.text = "Не приставайте ко мне. Я вас не знаю.";
         link.l1 = "Но… я привез колечко от отца Валериана…";
         link.l1.go = "rebev2";

        break;
              
        case "rebev2":
         dialog.text = "О-о-о… Не кричите так громко, мужчина. Давайте колечко и всего вам доброго.";
         link.l1 = "Что за...";
         link.l1.go = "exit";
        break;

        case "Exit":
              AddDialogExitQuest("ChurchTreasure_6"); //запускает последний кейс из квеста       
         NextDiag.CurrentNode = NextDiag.TempNode;
         DialogExit();
        break;
       }
}

#QUEST    ChurchTrs
Простая вроде история
#TEXT    1
В трактире, встретился мне священник и… ни тебе благословения, ни тебе спасительного слова, а вот так, сразу, сунул мне какое-то кольцо и беги с ним на Св. Евстафий, передавай его девушке. Ох уж эти шуры-муры наших святош. Ну да ладно, в путь!!!
#TEXT    2
Только вышел и на тебе. Сабелькой по голове. Странные шутки у местных.       
#TEXT    3
Не, ну они уже достали. Неужели эта штукенция такая  дорогая, или еще что? Если так дальше дело пойдет, не сносить мне головы.
#TEXT    4
Реббека Робинсон, странная себе такая девушка. Чего я только не преодолел, чтобы колечко привести, и на тебе… Все таки культура на этих островах еще далека от совершенства.