----------------------------------------------------
--MAKE HERB LV10
--METIN2 Herb Quest   
----------------------------------------------------
quest make_herb_lv10  begin
  state start begin
   when login or levelup with pc.get_level() ==10  begin
    set_state(information)
   end  
  end

  state information begin
   when letter begin
    local v = find_npc_by_vnum(20084)
    if v != 0 then
     target.vid("__TARGET__", v, " Квест биолога ")
    end
    send_letter(" Подойдите к биологу")
   end

   when button or info begin
    say_title(" Биолог заинтересовался вами ")
    say("")
    say(" Биолог нуждается в вашей помощи!!! ")
    say("")
   end
    
   when __TARGET__.target.click or
    20084.chat."Kakiblьten" begin
    target.delete("__TARGET__")
    say(" Биолог: ")
    ---                    l
    say(" Ах!Вы мне поможите? ")
    say(" Отлично... ")
    say(" Я биолог Шагрибаб ")
    say(" Я изучаю много растений в этом мире")
    say(" Если-бы вы мне помогли в моих иследованиях")
    say(" Я обещаю, награда будет достойная!")
    wait()
    say(" Биолог: ")
    say(" Я недавно начал... ")
    say(" Иследования по волкам ")
    say(" я должен многое успеть ")
    say(" и помощь мне не помешает ")
    say(" Собирите 5 цветов персика и я вас награжу ")
       say(" Надо убивать голодных волков альфа ")
    say(" Я пойду у меня много работы.. ")
    say("")                    
    set_state(go_to_disciple)
    pc.setqf("collect_count",0)
    pc.setqf("drink_drug",0)  
   end
  end

  state go_to_disciple begin
   when letter begin
    send_letter("Sammlung der Krдuter")
     
   end
   when button or info begin
    say_title("Kakiblьten")
    ---                    l
    say("")
    say(" Биолог дал вам работу ")
    say(" Собрать 5 цветов персика ")
    say(" Убивая Голодных волков альфа ")
    say("")
    say_item_vnum(50703)  
    say_reward("   У вас сейчас есть".." "..pc.getqf("collect_count")..")
    say("")
   end
    
   when 71035.use begin --°gґbГД¤ф

    if pc.getqf("drink_drug")==1 then
     say("")
     say("¤wёgЁПҐО¤F1¦ё")
     say("")

     return
    end
    if pc.count_item(50703)==0 then
     say(" У вас нет! ")
     say(" У вас нет ")
     say(" бла-бла-бла чето там:D ")
     say("")
     return
    end
    item.remove()  
    pc.setqf("drink_drug",1)
   end

   when 177.kill begin
    if pc.count_item(50703)<5- pc.getqf("collect_count")then
     pc.give_item2(50703, 1)
    end
   end
    
      when 20084.chat."Kakiblьte" with pc.count_item(50703) >0   begin
     say(" Один момент ...")
     ---                    l
     say(" Спасибо, ")
     say("")
     pc.remove_item(50703, 1)
     wait()
      
     local pass_percent
     if pc.getqf("drink_drug")==0 then
      pass_percent=90
     else   
      pass_percent=100
     end
      
     local s= number(1,100)
     if s<= pass_percent  then
        if pc.getqf("collect_count")< 4 then     --5*УҐH¤U
       local index =pc.getqf("collect_count")+1  
       pc.setqf("collect_count",index)     --Ёъ±o¤@*У®Й +1
       say("Биолог:")
       say(" Отлично!")
       say(" Осталось".." "..5-pc.getqf("collect_count").. ")
       say(" Принисите мне! ")
       say("")
       pc.setqf("drink_drug",0)  --ГД¤фЄм©l¤Ж
       return
      end  
      say(" Биолог ")
      say(" Вот ваше вознаграждение ")
      say("")
      say_reward(" Вы получите 50кк янг! ")
      say_reward(" Медное ожерелье +9 ")  
       
      pc.setqf("collect_count",0)
      pc.setqf("drink_drug",0)  
       
      clear_letter()
      set_state(__complete)
       
      p c.give_item2(16029)
      pc.change_money(50000000)
      set_quest_state("levelup","run")

       
      return
     else         
     say( " Биолог: ")
     say(" Приходи ещё! ")
     say("")
     pc.setqf("drink_drug",0)  --ГД¤фЄм©l¤Ж
     return
     end

  end
end

    
  state __complete begin
  end
end