if (RealShips[sti(Pchar.Ship.Type)].BaseType == SHIP_QUEST)
{
        if (RealShips[sti(Pchar.Ship.Type)].ship.upgrades.hull == 1)
        {
               link.l1 = "У меня к вам несколько необычная просьба, " + GetAddress_Form(npchar) + ". Это касается внешнего вида моего корабля...";
               link.l1.go = "Ship_Unique_Upgrade";
               link.l2 = "Нет, спасибо. Я ошибся...";
               link.l2.go = "exit";       
       }

       if (RealShips[sti(Pchar.Ship.Type)].ship.upgrades.hull == 3)
       {
               link.l1 = "Я бы хотел сменить внешний вид корпуса своего корабля.";
               link.l1.go = "Ship_Unique_Return";
               link.l2 = "Нет, спасибо. Я ошибся...";
               link.l2.go = "exit";
       }  
}

case "Ship_Unique_Upgrade":
           dialog.text = "Очень интересно... Продолжайте, " + GetAddress_Form(npchar) + "!";
           link.l1 = "Я бы хотел сделать с корпусом нечто подобное.";
           link.l1.go = "Ship_Unique_Upgrade_1";
break;

case "Ship_Unique_Upgrade_1":
           dialog.text = "Гм!.. Позвольте поинтересоваться, каким же образом?";
           link.l1 = "Сможете сделать это?";
           link.l1.go = "Ship_Unique_Upgrade_2";
break;

case "Ship_Unique_Upgrade_2":
           dialog.text = ""; // тут можно написать про тяжёлую жизнь верфиста  
           link.l1 = "Превосходно! В таком случае поговорим о вашем гонораре за работу.";
           link.l1.go = "Ship_Unique_Upgrade_3";
break;

case "Ship_Unique_Upgrade_3":
           dialog.text = "Отлично, я приступаю к работе!";
           link.l1 = "";
           link.l1.go = "Ship_Unique_Upgrade_4";
           break;

case "Ship_Unique_Upgrade_4":
           DialogExit();
           RealShips[sti(Pchar.Ship.Type)].ship.upgrades.hull = 3;
            
           // антураж (можно ещё прикрутить промотку времени и спецэффекты
           Log_Info("Заказ принят и выполнен!");
           PlayStereoSound("interface\notebook.wav");
           PlayStereoSound("interface\notebook.wav");
           NextDiag.TempNode = "Meeting";
break;

case "Ship_Unique_Return":
           dialog.text = "Очень интересно... Продолжайте, " + GetAddress_Form(npchar) + "!";
           link.l1 = "Я бы хотел восстановить прежний внешний вид корпуса своего корабля.";
           link.l1.go = "Ship_Unique_Return_1";
           break;

           // тут пишем какой угодно развесёлый диалог для антуража
           // можно вписать условие оплаты гонорара за работу на верфи или что-попало

case "Ship_Unique_Return_4":
           DialogExit();
           RealShips[sti(Pchar.Ship.Type)].ship.upgrades.hull = 1;
            
           // антураж           
           Log_Info("Заказ принят и выполнен!");
           PlayStereoSound("interface\notebook.wav");
           PlayStereoSound("interface\notebook.wav");
           NextDiag.TempNode = "Meeting";
break;