quest historyk_100 begin
    state start begin
        when login or levelup with pc.level >= 100 begin
            set_state(information)
        end
    end
    state information begin
        when letter begin
            local v = find_npc_by_vnum(33002)
            if v != 0 then
            target.vid("__TARGET__", v, "Mapy Historyka")
            end
            send_letter("Mapy Historyka")
        end
        when button or info begin
            say_title("Mapy Historyka")
            say("")
            say("Hisotryk, wielki uczony")
            say("rozpoczyna badania nad mapami")
            say("idż do niego i mu pomóż.")
            say("")
        end
        when __TARGET__.target.click or 33002.chat."Mapy Historyka" begin
            target.delete("__TARGET__")
            say_title("Historyk:")
            say("Hmm... nowa twarzyczka...")
            say("nie widzieliśmy się wcześniej, prawda ? ")
            say("")
            wait()
            say_title("Historyk:")
            say("Ale skoro już tutaj jesteś to")
            say("mam dla Ciebie zadania")
            wait()
            say("Od kilku tygodni staram się zbadać ")
            say("mapy wikingów, są mi bardzo potrzebne")
            say("Proszę przynieś mi 15 sztuk.")
            set_state(go_to_disciple)
            pc.setqf("duration",0)
            pc.setqf("collect_count",0)
        end
    end
    state go_to_disciple begin
        when letter begin
            send_letter("Mapy Wikingów")
        end
        when button or info begin
            say_title("Mapy Wikingów")
            say("")
            say("Historyk, wielki uczony")
            say("szuka map wikingów.")
            say("Możesz je zdobyć z potworów w Dolinie Chciwości.")
            say("")
            say_item_vnum(22030)
            say_reward("Oddałeś już: "..pc.getqf("collect_count").." Map.")
            say("")
        end
        when 33002.chat."Mapy Wikingów" with pc.count_item(22030) >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_title("Historyk:")
                say("Wspaniały okaz nienaruszonej")
                say("mapy wikingów.")
                say("")
                pc.remove_item("22030", 1)
                pc.setqf("duration",get_time()+1*1*1)
                wait()
                    if pc.getqf("collect_count")< 14 then
                        local index =pc.getqf("collect_count")+1
                        pc.setqf("collect_count",index)
                        say_title("Potrzebuję jeszcze ".." "..15-pc.getqf("collect_count").. " Map.")
                        say("")
                        return
                    else
                        say_title("Historyk:")
                        say_title("Rewelacyjnie powiadam.")
                        say_title("Hmm... bowiem zasługujesz")
                        say_title("na nagrodę ")
                        pc.give_item2(19,2)
                        pc.give_item2(19,2)
                        pc.setqf("collect_count",0)
                        pc.setqf("duration",0)
                        clear_letter()
                        set_quest_state("historyk_115", "run")
                        set_state(__complete)
                        return
                    end
            end
        end
        when kill with npc.get_race() >= 3401 and npc.get_race() <= 3405 and npc.get_race() >= 3501 and npc.get_race() <= 3505 begin
            local szansa = math.random(50) -- szansa na drop........... (1/podanaliczba) * 100 = x%
            if szansa == 1 then
                pc.give_item2(22030)
            end
        end
    end
    state __complete begin
    end
end