quest zeby begin
    state start begin
        when login or levelup with pc.level >= 30 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, "Analiza Biologa")
            end
            send_letter("Analiza Biologa")
        end
        when button or info begin
            say_title("Analiza Biologa")
            say("")
            say("Biolog Chaegirab, ucze??iela,")
            say("w??ie Cie szuka? Prosz?d?")
            say("do niego i zaoferuj mu swoj?pomoc.")
            say("")
        end
        when __TARGET__.target.click or 20084.chat."Znajd?Biologa" begin
            target.delete("__TARGET__")
            say("Biolog Chaegirab:")
            say("Niebiosa, prosz?om??i... ")
            say("Badam wszystkie rodzaje ro?in w tym ")
            say("imperium. Jest bardzo du? rzeczy, ")
            say("kt??musz?zosta?badane. Nie mam ")
            say("czasu abym m??sam wybra?i?a wyprawe. ")
            say("Prosz?om??i. ")
            wait()
            say("Biolog Chaegirab:")
            say("Aktualnie badam Z? Orka.")
            say("Musz?rzeprowadzi?ilka eksperyment??")
            say("dlatego potrzebuj?ilku egzemplarzy.")
            say("Czy m??y?przynie? mi dziesi?Z?w Orka?")
            say("Prosz?pom??i! Zawsze przyno?mi po jednym,")
            say("abym mia?czas na ich dok?dne przebadanie!")
            say("")
            set_state(go_to_disciple)
            pc.setqf("duration",0)
            pc.setqf("collect_count",0)
            pc.setqf("drink_drug",0)
        end
    end
    state go_to_disciple begin
        when letter begin
            send_letter("Zadanie Specjalne")
        end
        when button or info begin
            say_title("Znajd?Z? Orka")
            say("")
            say("Biolog Chaegirab, ucze??iela,")
            say("szuka Z?w Orka.")
            say("Zawsze przyno?mu po jednym, aby mia?czas")
            say("na ich dok?dne przebadanie.")
            say("Z?w szukaj u Czarnych Ork??")
            say("")
            say_item_vnum(30006)
            say_reward("Do tej pory dostarczy?? "..pc.getqf("collect_count").." Z?w Orka.")
            say("")
        end
        when 71035.use begin
            if get_time() < pc.getqf("duration") and pc.getqf("drink_drug") < 1 then
            say_reward("Eliskir Poszukiwacza:")
            say("Ten magiczny przedmiot zmniejsza czas")
            say("oddania nast?ego przedmiotu u biologa,")
            say("po jego u?ciu mo?sz natychmiast")
            say("odda?rzedmiot!")
            say("Ponadto daj?i?z?szans?a przyj?e przedmiotu!")
            say_reward("Czy chcesz u??liksiru?")
            say_reward("Zostanie on usuni? po u?ciu.")
            local wy = select("U?j.", "Nie u?waj.")
            if wy == 2 then
                return
            elseif wy == 1 then
                pc.setqf("duration", 0)
                pc.setqf("drink_drug",1)
                say("Mo?sz ju?odda?rzedmiot biologowi!")
                say_reward("Eliksir Poszukiwacza zostaj?suni?!")
                pc.remove_item(71035, 1)
            end
            else
            say_reward("Eliksir Poszukiwacza:")
            say("Nie mo?sz u??rzedmiotu, poniewa?")
            say("biolog ju?mo? przyj? przedmiot.")
            return
            end
        end
        when 20084.chat."Z? Orka" with pc.count_item(30006) >0 begin
            local roznica = pc.getqf("duration") - get_time()
            local minuty = roznica/60
            local minuty2 = math.floor(minuty)
            if get_time() > pc.getqf("duration") then
                say("Biolog Chaegirab:")
                say("Oh!! Znalaz??")
                say("Pozw??e rzuce okiem...")
                say("Jeszcze chwilke.")
                say("")
                pc.remove_item("30006", 1)
                pc.setqf("duration",get_time()+1*1*1)
                wait()
                local pass_percent
                if pc.getqf("drink_drug")==0 then
                    pass_percent=50
                else
                    pass_percent=90
                end
                local s= number(1,100)
                if s<= pass_percent then
                    if pc.getqf("collect_count")< 9 then
                        local index =pc.getqf("collect_count")+1
                        pc.setqf("collect_count",index)
                        say("Biolog Chaegirab:")
                        say_green("Oh!! Ten Z? Orka jest doskona?j jako?i!")
                        say("Przynie?mi jeszcze ".." "..10-pc.getqf("collect_count").. " Z?w Orka.")
                        say("Prosz?spr?? je znale?!")
                        say("")
                        pc.setqf("drink_drug",0)
                        return
                    end
                    say("Biolog Chaegirab:")
                    say("Oh, Zebrae?wszystkie Z? Orka.")
                    say("Bardzo Tobie dzi?je!")
                    say("W zamian otrzymasz nagrode!")
                    say("Idz do mojego mistrza Uriela")
                    say("On za pomoc mi podaruje Ci cenna nagrode.")
                    say("")
                    say_reward("Mo?sz teraz i? do Baek-Go po nagrod?")
                    say("")
                    set_state(__reward)
                    return
                else
                    say("Biolog Chaegirab:")
                    say_red("Ten Z? Orka jest z?j jako?i!")
                    say("Spr?? przynie? mi inny!")
                    say("Prosz?pom??i!")
                    pc.setqf("drink_drug",0)
                    return
                end
            else
                say("Biolog Chaegirab:")
                say("Jeszcze nie sko???m bada?statniego Z? Orka !")
                say("Przyjd?do mnie za : "..minuty2.." minut!")
                say("")
                return
            end
        end
    end
    state __reward begin
        when letter begin
            send_letter("Analiza Biologa - Nagroda")
            local v = find_npc_by_vnum(20018)
            if v != 0 then
            target.vid("__TARGET__", v, "Baek-Go")
            end
        end
        when button or info begin
            say_title("Odbierz nagrod?")
            say("Biolog Chaegirab wysy? Ci?")
            say("po nagrod?o Baek-Go!")
            say("")
        end
        when __TARGET__.target.click or 20018.chat."Nagroda" begin
            target.delete("__TARGET__")
            say("Baek-Go:")
            say("Hmm, a wi?Biolog")
            say("wys??Cie po nagrod?")
            say("Zobaczmy, co tam mam...")
            say("")
            say_reward("Czerw. Ebonit. Szkatu?")
            say_reward("TEST BON - OMDLENIE 10%")
            affect.add_collect(apply.STUN_PCT, 10, 60*60*24*365*60)
            pc.give_item2(50109)
            clear_letter()
            set_quest_state("collect_quest_lv40", "run")
            set_state(__complete)
        end
    end
    state __complete begin
    end
end