quest devil_all begin
        state start begin
                when 20093.click begin
                        local a=select ("Ördög katakombája", "Bezárás")
                        if a==1 then
                                say_reward("Az Ördög katakombája:")
                                say("Ez a pálya 5 szintből áll.")
                                say("Az első 2 szinten fejlődni tudtok")
                                say_reward(" Az első: - Naga hegység")
                                say_reward(" A második: - Zombi hegység")
                                say("A Naga hegységbe 100 szinttől lehet bemenni.")
                                say("A Zombi hegységbe pedig 120 szinttől.")
                                say("")
                                say("")
                                say("")
                                wait()
                                say(mob_name(20093)..":")
                                say_reward("Érdekel hogy mi a további 3 szint?")
                                wait()
                                say("Te:")
                                say_reward("Igen érdekel")
                                wait()
                                say("Ugyebár az első 2 szinten fejlődni tudsz.")
                                say("A Zombi hegységbe 120 szinttől tudsz bemenni,")
                                say("Majd ha ott felfejlődsz 125-re,")
                                say("Akkor elérhetővé válik számodra Az")
                                say_reward("Ördög katakombája..")
                                wait()
                                say("Te:")
                                say_reward("Kérlek mond tovább..")
                                say_reward("Nagyon érdekel.")
                                wait()
                                say(mob_name(20093)..":")
                                say_reward("Maga az ördög katakombája")
                                say_reward("3 szintből áll.")
                                say_reward("Az első szinten 3 metint kell megölnöd")
                                say_reward("A 2. szinten pedig megkell ölnöd kaltazár")
                                say_reward("segédjéd mégpedig a vörös halál sárkányt.")
                                say_reward("A 3.szinten pedig megmérkőzhetsz kaltazárral.")
                                say_reward("Értékes új tárgyakat fog dobni ha megölöd.")
                                wait()
                                say("Te:")
                                say_reward("Köszönöm hogy elmondtad.")
                                say(mob_name(20093)..":")
                                say("Tehát hova szeretnél menni?")
                                say_reward("Vedd figyelembe HOGY")
                                say_reward("A belépési szintek a következők:")
                                say("Naga hegység: 100 szint + 40 millió yang.")
                                say("Zombi hegység: 120 szint + 100 millió yang.")
                                say("Ördög katakombája 125 szint + 200 millió yang.")
                                say_reward("Mit választasz?")
                                wait()
                                local b=select("Naga hegység", "Zombi hegység", "Ördög katakombája", "Bezárás")
                                if b==1 then
                                        if pc.get_level >= 100 and pc.gold >= 40000000 then -- 40 millió ugye a belépés.
                                                say_reward("Hmm, úgylátom mindened megvan,")
                                                say_reward("Azonnal teleportállak!")
                                                wait()
                                                pc.warp(315200 , 1209200) -- Naga hegység!
                                                pc.changegold ( -40000000 )
                                                chat("40 millió yang levonásra került tőled!")
                                        else
                                                say(mob_name(20093)..":")
                                                say_reward("Sajnálom...")
                                                say_reward("Neked még nincs meg mindened.")
                                                return
                                        end
                                elseif b==2 then
                                        if pc.get_level >= 120 and pc.gold >= 80000000 then -- 80 millió yang belépéshez.
                                                say_reward("Hmm, úgy látom mindened megvan,")
                                                say_reward("Azonnal teleportállak!")
                                                wait()
                                                pc.warp(362400 , 1208100)
                                                pc.changegold ( -80000000 )
                                                chat("80 millió yang levonásra került tőled!")
                                        else
                                                say_reward("Sajnálom...")
                                                say_reward("Neked még nincs meg mindened.")
                                                return
                                        end
                                end
                        end
                end             -- end of when
        end             -- end of state
end             --      end of quest