quest collect_quest_lv155 begin
    state start begin
    end
    state run begin
        when login or levelup begin
            if pc.level >= 155 then
                set_state(information)
                cmdchat("oddaj "..q.getcurrentquestindex())
            else
                cmdchat("biolog 0|0|0|0|0")
            end
        end
    end

    state information begin
        when letter begin
            local v = find_npc_by_vnum(30016)
            if v != 0 then
                target.vid("__TARGET__", v, "Biologist Chaegirab")
            end
            q.set_icon("scroll_open_green.tga")
            send_letter("Analiza Biologa")
        end

        when login begin
            cmdchat("oddaj "..q.getcurrentquestindex())
            cmdchat("biolog 0|0|0|0|0")
        end

        when button or info begin
            target.delete("__TARGET__")
            say_title("Biolog Chaegirab:")
            say("")
            say("Aktualnie badam Płonący Węgiel.")
            say("Musze przeprowadzić kilka eksperymentów,")
            say("dlatego potrzebuje kilku sztuk.")
            say("Czy mógłbyś przynieść mi 10 Węgla?")
            say("Proszę, pomóż mi! Zawsze przynoś mi po jednym,")
            say("abym miał czas na ich dokładne przebadanie!")
            say("Powodzenia!")
            say("")
            cmdchat("biolog 28027|".. pc.getqf("duration").."|"..pc.getqf("collect_count").."|3|30")
            cmdchat("oddaj "..q.getotherquestindex("collect_quest_lv155_okno"))
            set_state(go_to_disciple)
            set_quest_state("collect_quest_lv155_okno","run")
            pc.setqf("duration",60*60*24)
            pc.setqf("collect_count",0)
            pc.setqf("drink_drug",0)
        end

        when __TARGET__.target.click or 30016.chat."Potrzebuje Twojej pomocy." begin
            target.delete("__TARGET__")
            say_title("Biolog Chaegirab:")
            say("")
            say("Niebiosa,proszę pomóżcie mi...")
            say("Zbieram informacje na temat potworów w tym ")
            say("imperium. Jest bardzo dużo rzeczy,")
            say("które muszą zostać zrobione. Nie mam")
            say("czasu abym mógł sam wybrać się na wyprawę.")
            say("Proszę,pomóż mi.")
            say("")
            wait()
            say("")
            say("Aktualnie badam Płonący Węgiel.")
            say("Musze przeprowadzić kilka eksperymentów,")
            say("dlatego potrzebuje kilku sztuk.")
            say("Czy mógłbyś przynieść mi 10 sztuk Węgla?")
            say("Proszę,pomóż mi! Zawsze przynoś mi po jednym,")
            say("abym miał czas na ich dokładne przebadanie!")
            say("")
            say("Węgla szukaj w Bramach Piekieł-dungeon 150!")
            say("")
            say("Powodzenia!")
            say("")
            cmdchat("biolog 28027|".. pc.getqf("duration").."|"..pc.getqf("collect_count").."|3|30")
            cmdchat("oddaj "..q.getotherquestindex("collect_quest_lv155_okno"))
            set_state(go_to_disciple)
            set_quest_state("collect_quest_lv155_okno","run")
            pc.setqf("duration",60*60*24)
            pc.setqf("collect_count",0)
            pc.setqf("drink_drug",0)
        end
    end

    state go_to_disciple begin
        when letter begin
            q.set_icon("scroll_open_green.tga")
            send_letter("Analiza Biologa")
        end

        when login with pc.get_level() >= 155 begin
            if pc.getqf("duration") - get_time() > 0 then
                cmdchat("biolog 28027|".. pc.getqf("duration").."|"..pc.getqf("collect_count").."|3|30")
            else
                cmdchat("biolog 28027|0|"..pc.getqf("collect_count").."|3|30")
            end
        end

        when button or info begin
            say_title("Znajdź Płonący Węgiel.")
            say("")
            say("Biolog Chaegirab, uczeń Uriela,")
            say("szuka Płonącego Węgla.")
            say("Zawsze przynoś mu po jednym, aby miał czas")
            say("na ich dokładne przebadanie.")
            say("Węgla szukaj w Bramach Piekieł-dungeon 155!")
            say("")
            say("")
            say_item_vnum(28027)
            say("")
            say("")
            say_reward("Do tej pory zebrałeś: "..pc.getqf("collect_count").."szt. Płonący Węgiel.")
            say("")
        end


        when kill with npc.get_race() == 5014 begin
            local s = number(1, 3)
            if s == 1 then
                pc.give_item2(28027, 1)
            end
        end

        when 28001.use begin
            if get_time() < pc.getqf("duration") then
                syschat("Nie możesz jeszcze użyć Eliksiru Poszukiwacza.")
                return
            end
            if pc.getqf("drink_drug")==1 then
                syschat("Użyłeś już Eliksiru Poszukiwacza.")
                return
            end
            if pc.count_item(28001)==0 then
                syschat("Możesz użyć Eliksir Poszukiwacza tylko gdy posiadasz Płonący Węgiel.")
                return
            end
            pc.remove_item(28001, 1)
            pc.setqf("drink_drug",1)
        end

        when 28002.use begin
            if get_time() > pc.getqf("redm_duration") then
                pc.setqf("monocles_used", 0)
            end
            if get_time() > pc.getqf("duration") then
                syschat("Możesz już oddać przedmiot do badań Biologa nie potrzebujesz Zaklinacza Czasu.")
                return
            end
            if pc.getqf("monocles_used") > 4 then
                syschat("Możesz zużyć tylko pięć Zaklinaczy Czasu na dzień.")
                return
            end
            if pc.getqf("monocles_used") == 0 then
                pc.setqf("redm_duration", get_time()+24*60*60)
            end
            pc.remove_item(28002, 1)
            pc.setqf("duration", get_time()-1)
            local use = pc.getqf("monocles_used")+1
            pc.setqf("monocles_used",use)
            syschat("Użyłeś Zaklinacza Czasu. Możesz teraz oddać przedmiot do badań Biologa.")
        end

        when 30016.chat."GM: Płonący Węgiel lv155" with pc.count_item(28027) >0 and pc.is_gm() and get_time() <= pc.getqf("duration") begin
            say(mob_name(30016))
            say("Jesteś GM, OK")
            pc.setqf("duration", get_time()-1)
            return
        end

        when 30016.chat."Płonący Węgiel" begin
            if pc.count_item(28027) >0 then
                if get_time() > pc.getqf("duration") then
                    if  pc.count_item(28027) >0 then
                        say_title("Biolog Chaegirab:")
                        say("")
                        say("Oh!!Znalazłeś!")
                        say("Pozwól, że rzucę okiem...")
                        say("Jeszcze chwilkę.")
                        say("")
                        pc.remove_item("28027",1)
                        pc.setqf("duration",get_time()+1)
                        wait()
                        local pass_percent
                        if pc.getqf("drink_drug")==0 then
                            pass_percent=70
                        else
                            pass_percent=100
                        end
                        local s= number(1,3)
                        if s<= pass_percent  then
                            if pc.getqf("collect_count")< 2 then
                                local index =pc.getqf("collect_count")+1
                                pc.setqf("collect_count",index)
                                say_title("Biolog Chaegirab:")
                                say("")
                                say("Oh!! Ten Węgiel jest doskonałej jakości!")
                                say("Przynieś mi jeszcze: "..10-pc.getqf("collect_count").. "szt. Płonący Węgiel.")
                                say("Proszę, spróbuj je znaleźć! ")
                                say("")
                                pc.setqf("drink_drug",0)
                                cmdchat("biolog 28027|".. pc.getqf("duration").."|"..pc.getqf("collect_count").."|3|30")
                                return
                            end
                            cmdchat("biolog 28028|0|0|1|30")
                            say_title("Biolog Chaegirab:")
                            say("")
                            say("Oh, zebrałeś już wszystkie?")
                            say("Dobra robota...")
                            say("Ale poczekaj!")
                            say("Aby zakończyć swoją pracę, potrzebuję ")
                            say("jeszcze jednego przedmiotu! Kamień Władcy. ")
                            say("")
                            say("Znajdziesz go w Bramach Piekieł-dungeon 155!.")
                            say("")
                            pc.setqf("collect_count",0)
                            pc.setqf("drink_drug",0)
                            pc.setqf("duration",0)
                            set_quest_state("collect_quest_lv155_okno","key")
                            set_state(key_item)
                            return
                        else
                            say_title("Chaegirab:")
                            say("")
                            say("Ten Węgiel jest złej jakości!")
                            say("Spróbuj przynieść inny!")
                            say("Proszę, pomóż mi!")
                            say("")
                            pc.setqf("drink_drug",0)
                            return
                        end
                    else
                        say_title("Chaegirab:")
                        say("")
                        say("Nie masz "..item_name(28027).."!")
                        return
                    end
                else
                    say_title("Chaegirab:")
                    say("")
                    say("Jest mi bardzo przykro ....")
                    say("Nie przeanalizowałem jeszcze ostatniego Ognistego ")
                    say("Węgla... ")
                    say("")
                    return
                end
            else
                say("Nie masz przy sobie Ognistego Węgla.")
            end
        end
    end

    state key_item begin
        when login with pc.get_level() >= 155 begin
            cmdchat("biolog 28028|0|0|1|30")
        end

        when letter begin
            q.set_icon("scroll_open_green.tga")
            send_letter("Analiza Biologa")
            if pc.count_item(28028)>0 then
                local v = find_npc_by_vnum(30016)
                if v != 0 then
                    target.vid("__TARGET__", v, "")
                end
            end
        end

        when button or info begin
            if pc.count_item(28028) >0 then
                say_title("Kamień Władny")
                say("")
                say("Wróć do Biologa, aby")
                say("oddać mu kamień!")
                say("")
                return
            end
            say_title("Specjalny Kamień ")
            say("")
            say("Zebrałeś już wszystkie 10 przedmiotów!")
            say("Teraz, biolog potrzebuje ostatni ")
            say("przedmiot, aby zakończyć swoje badania!")
            say("")
            say("")
            say_item_vnum(28028)
            say("")
            say("")
            say("Możesz go w Bramach Piekieł-dungeon 155!")
            say("Potwory które mogą mieć kamień to "..mob_name(5014)..".")
            say("")
        end

        when 5014.kill begin
            local s = number(1, 5)
            if s == 1 and pc.count_item(28028)==0 then
                pc.give_item2(28028, 1)
                q.set_icon("scroll_open_green.tga")
                send_letter("Znalazłeś Kamienistą Małże. ")
            end
        end

        when __TARGET__.target.click or 30016.chat."Zdobyłem Kamienistą Małże " with pc.count_item(28028) > 0  begin
            if pc.count_item(28028) > 0 then
                target.delete("__TARGET__")
                say_title("Biolog Chaegirab")
                say("")
                say("Oh, Znalazłeś!")
                say("Bardzo Tobie dziękuję!")
                say("Stworzyłem przepis na niezwykłą siłę!")
                say("Możesz teraz iść do Alchemika po nagrodę!")
                say("Z twoją pomocą dowiedziałem się wiele o Władcy tej Krainy.")
                say("")
                cmdchat("biolog 0|0|0|0|0")
                pc.remove_item(28028,1)
                set_state(__reward)
                set_quest_state("collect_quest_lv155_okno","reward")
            else
                say_title("Biolog Chaegirab")
                say("Nie masz "..item_name(28028).."!")
                say("")
                return
            end
        end
    end

    state __reward begin
        when login with pc.get_level() >= 155 begin
            cmdchat("biolog 0|0|0|0|0")
        end
        when letter begin
            q.set_icon("scroll_open_green.tga")
            send_letter("Sekretny Przepis")
            local v = find_npc_by_vnum(30017)
            if v != 0 then
                target.vid("__TARGET__", v, "Alchemik")
            end
        end

        when button or info begin
            say_title("Nagroda Biologa")
            say("")
            say("W nagrodę za zdobycie Płonących Węgli i Kamienia Władcy,")
            say("Biolog Chaegirab dał Ci przepis.")
            say("Przynieś go Alchemikowi a on stworzy specjalny eliksir!")
            say("")
        end

        when __TARGET__.target.click or 30017.chat."Sekretny Przepis"  begin
            target.delete("__TARGET__")
            say_title("Alchemik:")
            say("")
            say("Hmm, a więc Biolog")
            say("wysłał Cię po nagrodę?")
            say("Zobaczmy, co tam masz...")
            say("")
            say_reward("Jako nagrodę otrzymujesz:")
            say_reward("+10% Silny przeciwko Surze")
            say_reward("+10% Silny przeciwko Szamanowi")
            say("")
            say_reward("Wpływ ten nie jest tymczasowy tylko stały.")
            affect.add_collect(apply.ATT_BONUS_TO_SURA, 10, 60*60*24*365*60) -- 60Years
            affect.add_collect(apply.ATT_BONUS_TO_SHAMAN, 10, 60*60*24*365*60) -- 60Years
            clear_letter()
            set_quest_state("collect_quest_lv155_okno","__complete")
            set_state(__complete)
        end
    end
    state __complete begin
    end
end