ROOM MN1HosMercTalkRoom
  def Object MN1HosMercTalk
  begin

    Attribute HosTalk = No

  phrase TakeQuest()
      this.State = qGoalReached
    end phrase

    phrase CompleteQuest()
      this.State = qCompleted
      this.CheckPrecedence()
    end phrase

    phrase FailQuest()
      this.State = qFailed
      this.CheckPrecedence()
    end phrase

    phrase RelatedTo_EmilianoHos()
      if (this.State==qAvailable)
        return Yes
      else
        return No
      end if
    end phrase

	phrase PrintRelatedUserChoices_EmilianoHos(StartFrom)
        if ((this.State==qAvailable) AND (MN1HosMercTalk.HosTalk == No) AND (callm Player.HasInTeam(RobiniaHernandez)==No))
          userch("Скажите, барон, нет ли у вас на примете людей, готовых взяться за опасную работу?", StartFrom+2)
        end if
        if ((this.State==qAvailable) AND (MN1HosMercTalk.HosTalk == Yes) AND (callm Player.HasInTeam(RobiniaHernandez)==No))
          userch("Барон, вы рассказывали о наемнице, которая иногда на вас работает... ", StartFrom+3)
        end if
    end phrase

    phrase RelatedConversationFor_EmilianoHos(reply)
    switch (reply)
     when 2:
       call ONCE EmilianoHosD1_2()
     when 3:
       call ONCE EmilianoHosD1_3()
    end switch
    end phrase

    initial
      MN1HosMercTalk.inherit StdQuest
      MN1HosMercTalk.RegisterMe("Наемники Хоса")

      EmilianoHos.AddQuest(MN1HosMercTalkRoom.MN1HosMercTalk, NULL)
    end initial
  end

    phrase EmilianoHosD1_2()
     print("Наемников, ты имеешь в виду?.. Да, есть тут одна. Зовут Ямайка. Иногда выполняет для меня кое-какие задания. Хороший боец... и, хм... честный работник, если ты понимаешь, о чем я.  ")
     userch("А я мог бы ее нанять, как вы думаете? ", ucOK)
      MN1HosMercTalk.HosTalk = Yes
      call PrintToJournalExact(PRINTPERFORMEDQUEST, "Заметки", "Через барона Хоса можно связаться с наемниками, которые базируются в окрестностях его поместья.")
      askch
     print("А почему ты меня спрашиваешь? Ее и спроси. ")
     userch("А вы можете с ней связаться? ", ucOK)
     userch("Так и сделаю, когда увижу. (конец диалога) ", ucStopChat)
       switch(askch)
           when ucOK:
             call SummonJamD1_2()
            when ucStopChat:
             stop chat imm
             askch
            end switch
   end phrase

    phrase EmilianoHosD1_3()
     print("Помню, а что? ")
     userch("Я хочу попросить вас связаться с ней и вызвать ее сюда ", ucOK)
     userch("Да ничего, просто вспомнилось. (конец диалога) ", ucStopChat)
       switch(askch)
           when ucOK:
             call SummonJamD1_2()
            when ucStopChat:
             stop chat imm
             askch
            end switch
  end phrase

   phrase SummonJamD1_2()
    if (RobiniaHernandez.Live==No)
      print("Ты знаешь, она мертва. ")
      userch("Очень жаль.. (конец диалога) ", ucStopChat)
      if (askch==ucStopChat) then stop chat imm
    else

   if (has MN1HosMercTalk JamReqest)
       print("Я уже обещал вызвать ее. Жди. ")
       userch("Склероз... (конец диалога) ", ucStopChat)
      if (askch==ucStopChat) then stop chat imm
    else

    if (RobiniaHernandez.MySector == FuerteHos)
       print("А что с ней связаываться, она здесь. ")
       userch("Отлично, пойду поговорю с ней. (конец диалога) ", ucStopChat)
       askch
       stop chat imm
    else
       print("Да без проблем. ")
       userch("Сделайте одолжение. ", 2)
       userch("Простите, я передумал. ", ucStopChat)
        switch(askch)
        when 2:
          print("Я передам своему радисту. Сегодня он даст в эфир вызов. Когда будет - не знаю, но обычно дольше суток ее ждать не приходится. ")
          MN1HosMercTalk.Add JamReqest
          local RandomTimer = call RND(10,24)
          on event timer2+RandomTimer callm RobiniaHernandez.SetSector(FuerteHos, "OrderedMercs")
          on event timer2+RandomTimer MN1HosMercTalk.Del JamReqest
          delete when "Character "+str(RobiniaHernandez.ININame) + " reached sector "+str(FuerteHos.Name)
          on event 'Sector '+str(FuerteHos.Name)+' unloading finished' RobiniaHernandez.LocationInSector = "MercMarket"
          userch("Спасибо. ", ucOK)
          askch
          print("(смеется) Будешь должен. ")
          userch("Да уж.. (конец диалога) ", ucStopChat)
          askch
          stop chat imm
        when ucStopChat:
          askch
          stop chat imm
        end switch
    end if

    end if

    end if

   end phrase

end room