quest make_bloodstone begin
    state start begin
        when 20016.chat."Tworzenie Krwistego Kamienia" begin
            say_title("Kowal")
            say("Krwisty Kamien pozwoli Ci wejsc do")
            say("Niebianskiego Labiryntu, gdy osiagniesz")
            say("Poziom postaci 75Lv")
            wait()
            if pc.count_item(30021)==0 then
            say_title("Kowal")
            say("Aby to wytworzyc potrzebujesz")
            say("")
            say_item_vnum(30021)
            wait()
        if pc.count_item(25040)==0 then
        say_title("Kowal")
        say("Dodatkowo bedziesz potrzebowal")
        say("")
        say_item_vnum(25040)
        wait()
        if pc.count_item(30157)==0 then
        say_title("Kowal")
        say("To tez sie przyda")
        say("")
        say_item_vnum(30157)
        wait()
        say_title("Kowal")
        say("Czy masz wszystkie materialy?")
        say("Dodatkowo bedziesz potrzebowal 1.000.000 yang")
        say("Jesli masz wszystko, moge Ci taki zwoj zrobic")
        say("")
        say_reward("Tworzenie Kamienia moze sie nieudac.")
        say_reward("Daje 25% szans, ze sie uda zrobienie")
        say_reward("tego kamienia, jak sie nieuda to musisz")
        say_reward("przyniesc nastepne skladniki.")
        local s=select("Rob", "Nie rob")
        if 1==s then
        if pc.get_gold() < 1000000 then
            say_title("Kowal")
            say("Masz za malo yang!")
            elseif pc.count_item(30021)>0 and pc.count_item(25040)>0 and pc.count_item(30157)>0 then
        local szansa = number(1, 4)
            if szansa == 1 then
                pc.remove_item(30021)
                pc.remove_item(25040)
                pc.remove_item(30157)
                pc.changegold(-1000000)
                pc.give_item2(30190)
                say_title("Kowal")
                say("Krwisty Kamien zostal stworzony!")
                say("Zdobadz ponownie materialy, przyjdz")
                say("z nimi do mnie, a zrobie Ci nastepny.")
                return
                else
                    pc.remove_item(30021)
                    pc.remove_item(25040)
                    pc.remove_item(30157)
                    pc.changegold(-1000000)
                    say_title("Kowal")
                    say("Wytworzenie zwoju sie nieudalo.")
                    say_reward("Moj blad, sprobuj ponownie")
                    return
                    end
                end
                say_title("Kowal")
                say("Wytworzenie zwoju sie nieudalo.")
                say_reward("Brakuje skladnikow")
                return
            end
        end
    end
end