FORT
//-------------------------------------------------------------------------
    makeref(refShip,ShipsTypes[SHIP_FORT]);
    refShip.Name            = "Fort";
    refShip.Class           = 1;
    refShip.Cannon          = CANNON_TYPE_CANNON_LBS32;
    refShip.MaxCaliber      = 32;
    refShip.Weight            = Tonnes2CWT(22500);
    refShip.Capacity        = 27000;
    refShip.CannonsQuantity = 68;
    refShip.MaxCrew         = 6500;
    refShip.MinCrew         = 3000;
    refShip.SpeedRate        = 11.2;
    refShip.TurnRate        = 20;
    refShip.Price           = 36000;
    refShip.HP              = 54000;
    refShip.SP              = 100;

    refShip.CanEncounter    = false;

//Заведение квеста на диалог с "Portos"в таверне
         pchar.quest.Case1.win_condition.l1 = "location";
         pchar.quest.Case1.win_condition.l1.location = "Redmond_tavern";
         pchar.quest.Case1.win_condition = "Case1";
   //Перемещение Рortosa
    ChangeCharacterAddressGroup(characterFromID("Portos"), "Redmond_tavern", "Sit", "Sit5");
    LAi_SetSitType(characterFromID("Portos"));

    case "Case1":

        //задаем тип поведения Актер ГГ, чтобы не дергался и не свалил куда-нибудь
        LAi_SetActorType(PChar);

        //задаем тип поведения Актер сидящей НПС, чтобы не дергался и не свалил куда-нибудь
        LAi_SetSitType(characterFromID("Portos"));  

        //тут ставим необходимую ноду диалога непися, может быть любая ВАМ необходимая...
        //в данном случаее Первая встреча
        Characters[GetCharacterIndex("Portos")].Dialog.CurrentNode = "First time";

        //(наоборот)указываем второму персонажу <characterFromID("Portos")> следовать к первому pchar
        //по истечении времени 1.0 вызовется квест... тут его нет ""
        LAi_ActorFollow(characterFromID("Portos"), pchar, "dialog_portos", 5.0);
        LAi_ActorFollow(pchar, characterFromID("Portos"), "", 5.0);
        
  break;
        case "dialog_portos":
            //----------------
            LAi_ActorWaitDialog(Pchar, characterFromID("Portos"));
            LAi_ActorDialog(characterFromID("Portos"), Pchar, "", 5.0, 0);
        
  break;

  case "Case2":
        //возвращаем тип Плэйер ГГ
        LAi_SetPlayerType(Pchar);

case "Case1":

        LAi_SetActorType(PChar);
        ref chr = CharacterFromID("Portos");
        chr.Dialog.CurrentNode = "First time";
        // после диалога выполнится case 2 и ГГ перестанет быть актером
        LAi_ActorDialog(Pchar, chr, "Case2", 5.0, 0.5);
        
break;

case "Case2":
        LAi_SetPlayerType(Pchar);