void FillShipParamShipyard(ref NPChar, int _iType, string _sShipNum)
{
     aref arTo, arFrom;
      
  DeleteAttribute(NPChar, "ship");
     NPChar.Ship.Type = _iType;
      
  SetRandomNameToShip(NPChar);

     SetBaseShipData(NPChar);
     SetCrewQuantity(NPChar, 0);
     if (sti(NPChar.Ship.Cannons.Type) != CANNON_TYPE_NONECANNON)
     {
      NPChar.Ship.Cannons.Type = CANNON_TYPE_CANNON_LBS6;
     }
      
     // вот эту строчку нужно скрыть (закомментировать по правилам синтаксиса С/С++)
     RemoveAllCannonsShipyardShip(NPChar);
      
     DeleteAttribute(NPChar, "Ship.Cargo");
     SetGoodsInitNull(NPChar);
     RecalculateCargoLoad(NPChar);
      
     FillShipyardShipBack(NPChar, _sShipNum);
}

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;

void GetShip()
{
  int iShip = GenerateShip(SHIP_LUGGER, 1);
  pchar.ship.type = iShip;
  SetBaseShipData(pchar);
  SetCrewQuantity(pchar, 21);
  DeleteAttribute(pchar, "ship.cargo.load");
  DeleteAttribute(pchar, "ship.cargo");
  pchar.ship.cargo.load = 0;
  pchar.ship.cargo = 0;
  pchar.ship.Stopped = true;
  pchar.ship.Name = "Быстрый вепрь";
  RealShips[iShip].ship.upgrades.hull = 4;
  RealShips[iShip].HP = 560;
  pchar.ship.HP = 560;
  RealShips[iShip].SP = 100;
  pchar.ship.SP = 100;
  RealShips[iShip].Capacity = 585.0;
  RealShips[iShip].SpeedRate = 15.1;
  RealShips[iShip].TurnRate = 58.3;
  RealShips[iShip].WindAgainstSpeed = 9.7;
  RealShips[iShip].MaxCaliber = 12;
  pchar.ship.cannons.type = CANNON_TYPE_CANNON_LBS12;
  pchar.ship.cargo.goods.balls = 100;
  pchar.ship.cargo.goods.grapes = 50;  
  pchar.ship.cargo.goods.knippels = 50;
  pchar.ship.cargo.goods.bombs = 50;   
  pchar.ship.cargo.goods.powder = 250;
  RecalculateCargoLoad(pchar);
  setWDMPointXZ("Pirates_town");
  NullCharacter.SalayPayMonth = sti(environment.date.month);
}

locations[n].id = "UnderWater";
locations[n].id.label = "UnderWater";
locations[n].filespath.models = "locations\UnderWater";  
locations[n].image = "loading\UnderWater_" + rand(1) + ".tga";
//Sound  
locations[n].type = "underwater";
locations[n].type.LSC = true; //локация ГПК
locations[n].dolly = 2;
...
...
//в сундуках
locations[n].private1.items.gold_dublon = 154;
locations[n].private1.items.jewelry5 = 166;
locations[n].private1.items.jewelry6 = 211;
locations[n].private1.items.jewelry10 = 3;
...
...
locations[n].private7.key = "key_betancur"; // сундук Бетанкура
locations[n].private7.key.delItem = true;
locations[n].private7.money = 100000;  
locations[n].private7.items.gold_dublon = 500;
locations[n].private7.items.icollection = 12; // чтоб удавиться от жадности
locations[n].private7.items.jewelry5 = 400;
locations[n].private7.items.jewelry6 = 1000;
locations[n].private7.items.jewelry10 = 19;
locations[n].private7.items.talisman1 = 1;
n = n + 1;