void GhostShipOnMap()
{
     ref  sld;
     int  i;
     ref  rRealShip;
      
     sld = characterFromID("GhostCapt");
     // пушки чинятся в SetBaseShipData DeleteAttribute(sld, "ship.cannons");
      
     SetBaseShipData(sld);

     /* цвет парусов (чёрный) */
     sld.ship.sailscolor = argb(255, 60, 60, 60);
      
     DeleteAttribute(sld,"ship.sails");
     DeleteAttribute(sld,"ship.masts");
     DeleteAttribute(sld,"ship.blots");

     /* далее следуют параметры [i]расколдованного[/i] корабля */
     Ship_SetTaskNone(SECONDARY_TASK, sti(sld.index));

     if (CheckAttribute(pchar , "GenQuest.GhostShip.LastBattle"))
     {
         rRealShip = GetRealShip(sti(sld.Ship.Type));
          
         /* макс. калибр орудий */
         rRealShip.MaxCaliber = 48;
          
         /* текущий калибр и тип орудий */
         rRealShip.Cannon = CANNON_TYPE_CANNON_LBS48;
          
         /* прочность корпуса */
         rRealShip.HP = 9500;
          
         /* бейдевинд */
         rRealShip.WindAgainstSpeed = 4.5;
          
         /* манёвренность */
         rRealShip.TurnRate   = 35.0;
      
         SetBaseShipData(sld);
         //DeleteAttribute(sld, "ship.sailscolor");

         /* орудия заколдованного корабля */
         sld.ship.Cannons.Type = CANNON_TYPE_CANNON_LBS48;

         Character_SetAbordageEnable(sld, false);
     }
     else
     {
         /* прочность корпуса заколдованного корабля */
         sld.ship.hp = 52000; // 13%
     }

     /* команда, тип энкаунтера, идентификация и энкаунтер на глоб. карте */
     SetCrewQuantityOverMax(sld, 665);
     sld.mapEnc.type = "war";
     sld.mapEnc.Name = "корабль-призрак ''Орион''";
     sld.mapEnc.worldMapShip = "pirates_manowar";
                  
     /* мораль и численность команды */
     sld.ship.Crew.Morale = 90;
     ChangeCrewExp(sld, "Sailors", 100);
     ChangeCrewExp(sld, "Cannoners", 100);
     ChangeCrewExp(sld, "Soldiers", 100);
                  
     /* боезапас заколдованного корабля */
     Fantom_SetBalls(sld, "pirate");
     Fantom_SetCharacterGoods(sld, GOOD_BALLS,  3900 + rand(300));
     Fantom_SetCharacterGoods(sld, GOOD_BOMBS,  2900 + rand(300));
     Fantom_SetCharacterGoods(sld, GOOD_POWDER, 5700 + rand(300));

     ...
     ...
     ...
}

void GhostShipInit()
{
     ref sld;
     /* капитан корабля: идентификатор, модель, анимация, пол, ранг, нация */
     sld = GetCharacter(NPC_GenerateCharacter("GhostCapt", "ozg_carlos", "man", "man", 55, PIRATE, -1, true));
     sld.dialog.filename      = "Quest\GhostShip_dialog.c";
     sld.dialog.currentnode   = "GhostCapt";
      
     /* имя капитана корабля */
     sld.name     = "Филипп";
     sld.lastname = "ван Страатен";
      
     /* репутация и перки капитана корабля */
     sld.reputation = 35;
     sld.RebirthPhantom = true;
     sld.AlwaysEnemy = true;
     sld.DontHitInStorm = false;       
     sld.DontRansackCaptain = true;       
     sld.SinkTenPercent = false;       
     sld.Abordage.Enable = false;      
     sld.SaveItemsForDead = true;        
     sld.AlwaysSandbankManeuver = true;    
     //sld.GenQuest.CrewSkelMode  = true;
     LAi_SetHP(sld, 665, 665);
     SetCharacterPerk(sld, "Energaiser");
     sld.SuperShooter = true;
      
     Character_SetAbordageEnable(sld, false);
      
     DeleteAttribute(sld, "items");
      
     /* экипировка капитана заколдованного корабля */
     GiveItem2Character(sld, "blade81");    
     EquipCharacterByItem(sld, "blade81");
     GiveItem2Character(sld, "pistol6");
     EquipCharacterByItem(sld, "pistol6");
     TakeNItems(sld, "bullet", 10);
     TakeNItems(sld, "powder", 10);
     TakeNItems(sld,"potion2", 30);
     sld.money = 70000;
      
     LAi_SetLoginTime(sld, 6.0, 21.99);
     LAi_SetCitizenType(sld);
     LAi_group_MoveCharacter(sld, "TmpEnemy");
      
     /* модель и название корабля */
     sld.Ship.Type = CreateBaseShip(SHIP_FLYINGDUTCHMAN);
     sld.Ship.Name = "Орион";
      
     ref rRealShip = GetRealShip(sti(sld.Ship.Type));
      
     /* параметры заколдованного корабля */
     sld.ship.sailscolor = argb(255,60,60,60);
     rRealShip.MaxCaliber = 48;
     rRealShip.Cannon = CANNON_TYPE_CANNON_LBS48;
     rRealShip.MaxCrew = 665;
     rRealShip.OptCrew = 505;
     rRealShip.Capacity = 5200;
     rRealShip.HP = 19500;
     rRealShip.WindAgainstSpeed = 10.0;
     rRealShip.SpeedRate = 15.5;
     rRealShip.TurnRate = 35.0;
     rRealShip.Price = 550000;
      
     pchar.GenQuest.GhostShip.ShipType   = sti(sld.Ship.Type);
}