[SERVICE] Die Questkontrolle

Page 643 of 845

643

01/30/2014 21:05 Davidejunior#9631

i'm Learning speak deteach

01/30/2014 23:13 .Ambition#9632

[QUOTE=Davidejunior i'm Learning speak deteach[/QUOTE]

Stop this spam! Wrong Sektion

01/31/2014 15:00 MarcosCC#9633

QUEST:

Spoiler

anyone test flame dungeon?? i have problem with 6 floor,it dont work when i Kill all mobs in the designated area and click in Am-heh Gorge it say me "There was not defeated all deamons,Remaining:0"...anyone fix this quest?? or say me where is problem thx

01/31/2014 16:25 moerth#9634

Servus Leute,

Spieler bekommt bei jedem login das Set...

Quest:

Spoiler

mfg
moerth

01/31/2014 20:37 BlackBynes#9635

Quote:

Originally Posted by moerth

Servus Leute,

Spieler bekommt bei jedem login das Set...

Quest:

Spoiler

quest give_starter_set begin
state start begin
when login begin
local job = 0

if pc.get_job() == 0 then
job = 0
elseif pc.get_job() == 1 then
job = 1
elseif pc.get_job() == 2 then
job = 2
elseif pc.get_job() == 3 then
job = 3
end

if job == 0 then
pc.give_item2(19)
pc.give_item2(11209)
pc.give_item2(12209)
pc.give_item2(15009)
pc.give_item2(17009)
pc.give_item2(14009)
pc.give_item2(16009)
pc.give_item2(13009)

elseif job == 1 then
pc.give_item2(1006)
pc.give_item2(11409)
pc.give_item2(12349)
pc.give_item2(15009)
pc.give_item2(17009)
pc.give_item2(14009)
pc.give_item2(16009)
pc.give_item2(13009)

elseif job == 2 then
pc.give_item2(19)
pc.give_item2(11609)
pc.give_item2(12489)
pc.give_item2(15009)
pc.give_item2(17009)
pc.give_item2(14009)
pc.give_item2(16009)
pc.give_item2(13009)

elseif job == 3 then
pc.give_item2(7009)
pc.give_item2(11809)
pc.give_item2(12629)
pc.give_item2(15009)
pc.give_item2(17009)
pc.give_item2(14009)
pc.give_item2(16009)
pc.give_item2(13009)
set_state(weiter)
end
end
end

state weiter begin
when letter begin
send_letter("Willkommen auf NAME")
end
when button or info begin
say_title("Willkommen "..pc.get_name())
set_state(ende)
end
end
state ende begin
end
end

mfg
moerth

hi,
naja du hast ja auch oben stehen das bei jedem login es das startset geben soll. Aber hier die L�sung, einfach

PHP Code:


			
quest give_starter_set begin

    state start begin

        when login begin

            if pc.getqf("basic_weapon") == 0 then

               pc.setqf("basic_weapon", 1)

                local job = 0

einf�gen.

02/01/2014 11:27 Bostanin Edhe#9636

Hallu Community,

Ich hab ein Problem mit meiner Quest.
Sobald ich Server neu starte m�sste ich rein Theoretisch 20 Sekunden warten.
Nur ist das der fall nicht, ich warte und warte und warte nur es " Der raum ist derzeit noch gespeert ... " passiert nichts.
( Davor hat sie Funktioniert ! das Problem ist seit neustem )
Pls Help me :* :(

Hier einmal die Quest:

PHP Code:


			
quest shizuna begin
    state start begin
        when 20092.chat."Azrael Raum 1" begin
            if game.get_event_flag("dungeon_besetzt") == 1 then -- �berpr�ft ob der Dungeon besetzt ist. 
                say("Der Azrael Raum 1 ist derzeit Deaktiviert.")
                say("Azrael Raum Wird jede Stunde wieder Aktiviert.")
            else
                say("Du m�chtest also den Dungeon betreten")
                local aw = select("JA!","Nein, noch nicht.")
                if aw == 2 then return end
                game.set_event_flag("dungeon_besetzt", 1) -- Setzt den Game Flag auf 1
                server_timer("shizuna", 60) -- Timer,der bestimmt, wann die Gameflag wider auf 0 gesetzt werden soll also wann man ihn wider
                d.join(216)
                d.setf("Ebene", 7)
                d.regen_file("data/dungeon/devilcave/dc_regen_ebene7.txt")
            end
        end
        when shizuna.server_timer begin
            game.set_event_flag("dungeon_besetzt", 0) -- Setzt den Game Flag auf 0, also nach 2 h wieder allowed
        end
    end
end
quest shizuna begin
    state start begin
        when 20092.chat."Azrael Raum 2" begin
            if game.get_event_flag("dungeon_besetzt") == 1 then -- �berpr�ft ob der Dungeon besetzt ist. 
                say("Der Azrael Raum 2 ist derzeit Deaktiviert.")
                say("Azrael Raum Wird jede Stunde wieder Aktiviert.")
            else
                say("Du m�chtest also den Dungeon betreten")
                local aw = select("JA!","Nein, noch nicht.")
                if aw == 2 then return end
                game.set_event_flag("dungeon_besetzt", 1) -- Setzt den Game Flag auf 1
                server_timer("nomnom1", 60) -- Timer,der bestimmt, wann die Gameflag wider auf 0 gesetzt werden soll also wann man ihn wider
                d.join(216)
            end
        end
        when nomnom1.server_timer begin
            game.set_event_flag("dungeon_besetzt", 0) -- Setzt den Game Flag auf 0, also nach 2 h wieder allowed
        end
    end
end
quest shizuna begin
    state start begin
        when 20092.chat."Azrael Raum 3" begin
            if game.get_event_flag("dungeon_besetzt") == 1 then -- �berpr�ft ob der Dungeon besetzt ist. 
                say("Der Azrael Raum 3 ist derzeit Deaktiviert.")
                say("Azrael Raum Wird jede Stunde wieder Aktiviert.")
            else
                say("Du m�chtest also den Dungeon betreten")
                local aw = select("JA!","Nein, noch nicht.")
                if aw == 2 then return end
                game.set_event_flag("dungeon_besetzt", 1) -- Setzt den Game Flag auf 1
                server_timer("nomnomnom", 20) -- Timer,der bestimmt, wann die Gameflag wider auf 0 gesetzt werden soll also wann man ihn wider
                d.join(216)
            end
        end
        when nomnomnom.server_timer begin
            game.set_event_flag("dungeon_besetzt", 0) -- Setzt den Game Flag auf 0, also nach 2 h wieder allowed
        end
    end
end
quest shizuna begin
    state start begin
        when 20092.chat."Azrael Raum 4" begin
            if game.get_event_flag("dungeon_besetzt") == 1 then -- �berpr�ft ob der Dungeon besetzt ist. 
                say("Der Azrael Raum 4 ist derzeit Deaktiviert.")
                say("Azrael Raum Wird jede Stunde wieder Aktiviert.")
            else
                say("Du m�chtest also den Dungeon betreten")
                local aw = select("JA!","Nein, noch nicht.")
                if aw == 2 then return end
                game.set_event_flag("dungeon_besetzt", 1) -- Setzt den Game Flag auf 1
                server_timer("dungeon1", 20) -- Timer,der bestimmt, wann die Gameflag wider auf 0 gesetzt werden soll also wann man ihn wider
                d.join(216)
            end
        end
        when dungeon1.server_timer begin
            game.set_event_flag("dungeon_besetzt", 0) -- Setzt den Game Flag auf 0, also nach 2 h wieder allowed
        end
    end
end
quest shizuna begin
    state start begin
        when 20092.chat."Azrael Raum 5" begin
            if game.get_event_flag("dungeon_besetzt") == 1 then -- �berpr�ft ob der Dungeon besetzt ist. 
                say("Der Azrael Raum 4 ist derzeit Deaktiviert.")
                say("Azrael Raum Wird jede Stunde wieder Aktiviert.")
            else
                say("Du m�chtest also den Dungeon betreten")
                local aw = select("JA!","Nein, noch nicht.")
                if aw == 2 then return end
                game.set_event_flag("dungeon_besetzt", 1) -- Setzt den Game Flag auf 1
                server_timer("dungeon2", 20) -- Timer,der bestimmt, wann die Gameflag wider auf 0 gesetzt werden soll also wann man ihn wider
                d.join(216)
            end
        end
        when dungeon2.server_timer begin
            game.set_event_flag("dungeon_besetzt", 0) -- Setzt den Game Flag auf 0, also nach 2 h wieder allowed
        end
    end
end

02/01/2014 11:59 nOa##9637

Hey Leute ich ben�tige Hilfe bei einer Quest. W�re nett wenn mir einer den/die Fehler nennen k�nnte.

Quest

Spoiler

PHP Code:


			
quest drxavion begin 

    state start begin 

        when login begin 

            if pc.get_map_index() == 73 then 

            if pc.get_level() < 120 then 

            d.exit_all_to_start_position() 

            elseif pc.get_level() >= 120 then 

            pc.set_warp_location(402, 3917, 12931) 

        end 

        when 20094.chat."Die Gem�cher des Drachen" begin 

            if pc.get_level() < 120 then 

                say ("Du hast noch nicht genuegend Erfahrung gesammelt. Komme wieder, wenn du Level 120 bist!")  

            else 

                say_title("Der blaue Drache") 

                say("") 

                say("Als alle 3 Reiche noch eins,") 

                say("waren lebten alle Menschen in Harmonie") 

                say("zusammen. Doch eines Tages brach") 

                say("Dunkelheit �ber diesen Ort herein.") 

                say("") 

                say("Pl�tzlich kam dunkle Kreaturen zu diesem Ort") 

                say("um ihn zu bewachen.") 

                say("Keiner wusste wieso, doch eines Tages") 

                say("Der Mond verdunkelte die Sonne und da sah") 

                say("ich ihn. Den blauen Drachen.") 

                say("Herscher der Dunkelheit und des B�sen.") 

                say("") 

                wait() 

                say_title("Der blaue Drache") 

                say("") 

                say("Damit wieder Freiden herschen kann muss") 

                say("der Drache sterben. Meinst du, du bist") 

                say("dieser Aufgabe gewachsen? ") 

                say("Ich kann dich zu diesem Ort bringen wenn du willst.") 

                say("") 

                say_reward("Soll ich dich zum diesem geheimen") 

                say_reward("Ort Teleportieren?") 

                 

                local t = select("Ja los!", "Nein lieber nicht") 

                    if t == 1 and party.is_party() then 

                        pc.warp(843200, 1066900) 

                    else 

                        return 

            end 

        end 

        when 11506.kill with pc.get_map_index() == 73 and pc.in_dungeon() begin    --Ebene 1 

            local c = 4 

            local m = d.getf("erstercount") + 1 

            d.setf("erstercount", m)  

            d.notice("Noch "..4-n.." Mobs killen bis zur n�chsten Ebene.") 

            if n == m then 

                d.setf("drachenebene", 2) 

                d.setf("erstercount", 0) 

                d.notice("Ihr werdet nun in die n�chste Ebene teleportiert.") 

                d.jump_all(843200, 1066900)                 

            end 

        end 

        when login with pc.in_dungeon() and d.getf("drachenebene") == 2 begin     --Ebene2 

            d.notice("Ihr habt 5 Minuten Zeit den W�chter des Tores zu t�ten") 

            d.spawn_mob(2604, 843200, 1066900) 

            timer("torw�chter1", 120) 

        end 

        when torw�chter1.timer begin 

            if d.getf("drachenebene") == 2 then 

                d.notice("Verbleibende Zeit: 3 Minuten") 

                timer("torw�chter2", 180) 

        end 

        when torw�chter2.timer begin 

            if d.getf(drachenebene") == 2 then 

                d.notice("Surageist1: Verbleibende Zeit: 1 Minute") 

                timer("torw�chter3", 60) 

        end 

        when torw�chter3.timer  begin 

            if d.getf("drachenebene") == 2 then 

                d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert") 

                d.notice("Ihr habt es leider nicht geschafft!") 

                timer("devildown_escapetimer", 3) 

        end 

        when 2604.kill with pc.in_dungeon() begin 

            d.setf("drachenebene", 3) 

            cleartimer("torw�chter1")  

            cleartimer("torw�chter2")  

            cleartimer("torw�chter3")  

            d.notice("Ihr habt es geschafft!");     

            d.notice("Ihr werdet nun weiter in die n�chste Ebene teleportiert") 

            timer("drjumper1", 2) 

        end 

        when drjumper1.timer begin                                          --Ebene3 

            d.jump_all(843200, 1066900) 

            d.setf("count", 0) 

            d.setf("counti", 0) 

            d.spawn_mob(11506, 843200, 1066900) 

            d.spawn_mob(11506, 843200, 1066900) 

            d.spawn_mob(11506, 843200, 1066900) 

            d.spawn_mob(11506, 843200, 1066900) 

            d.spawn_mob(11506, 843200, 1066900) 

            timer("mob_down", 8) 

            timer("mobkill1", 120) 

            d.notice("Ihr m�sst 20 Monster innerhalb von 5 Minuten t�ten um weiter zu kommen!"); 

            d.notice("Die Zeit l�uft! Viel Gl�ck!"); 

        end 

        when mob_down.timer begin 

            d.regen_file("data/dungeon/dd_regen4.txt") 

        end 

        when mobkill1.timer begin 

        if d.getf("drachenebene") == 3 then 

            d.notice("Verbleibende Zeit: 3 Minuten") 

            timer("mobkill2", 120) 

        end 

        when mobkill2.timer begin 

        if d.getf("drachenebene") == 3 then 

            d.notice("Verbleibende Zeit: 1 Minute") 

            timer("mobkill3", 60) 

        end 

        when mobkill3.timer begin 

        if d.getf("drachenebene") == 3 then 

            d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert") 

            d.notice("Ihr habt es leider nicht geschafft!") 

            timer("devildown_escapetimer", 3) 

        end 

        when 11506.kill with pc.in_dungeon() and d.getf("drachenebene") == 3 begin 

            local Dropsiegel = 18 

            local n = d.getf("count") + 1 

            d.setf("count", n)  

            d.notice("Noch "..18-n.." Mobs killen bis Siegeldrop.") 

            if n == Dropsiegel then 

                game.drop_item(71158, 1) 

                d.setf("count", 0) 

                d.spawn_mob(20371, 843200, 1066900) 

            end 

        end 

        when 20371.take with item.vnum == 71158 and d.getf("drachenebene") == 3 begin 

            npc.purge() 

            item.remove() 

            d.setf("drachenebene", 4) 

            cleartimer("mobkill1") 

            cleartimer("mobkill2") 

            cleartimer("mobkill3") 

            d.notice("Ihr habt es geschafft, ihr habt das alte Siegel zerst�rt.") 

            d.notice("Das Portal zur n�chsten Ebene hat sich ge�ffnet.") 

            timer("steine2", 3) 

        end 

        when steine2.timer begin                                        --Ebene4 

            d.jump_all(843200, 1066900) 

            d.spawn_mob(8013, 843200, 1066900) 

            d.spawn_mob(8013, 843200, 1066900) 

            timer("metinkill1", 300) 

            d.notice("Ihr m�sst die beiden Metins innerhalb von 10 Minuten t�ten um weiter zu kommen!"); 

            d.notice("Die Zeit l�uft! Viel Gl�ck!"); 

        end 

        when metinkill1.timer begin 

        if d.getf("drachenebene") == 4 then 

            d.notice("Verbleibende Zeit: 5 Minuten") 

            timer("metinkill2", 240)     

        end 

        when metinkill2.timer begin 

        if d.getf("drachenebene") == 4 then 

            d.notice("Verbleibende Zeit: 1 Minute") 

            timer("metinkill3", 60)     

        end 

        when metinkill3.timer begin 

        if d.getf("drachenebene") == 4 then 

            d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert") 

            d.notice("Ihr habt es leider nicht geschafft!") 

            timer("devildown_escapetimer", 3)     

        end 

        when 8013.kill with pc.in_dungeon() begin 

            local u = 2 

            local o = d.getf("metincount") + 1 

            d.setf("metincount", o)  

            d.notice("Noch "..2-n.." Mobs killen bis zur n�chsten Ebene.") 

            if u == o then 

                d.setf("metincount", 0) 

                d.setf("drachenebene", 5) 

                d.notice("Der Drache spawnt nun!!!") 

                timer("drachespawn", 3) 

            end 

        end 

        when drachenspawn.timer begin                            --Ebene5 (Drachenebene) 

            d.spawn_mob(2493, 843200, 1066900) 

        end 

        when 2493.kill with pc.in_dungeon() and d.getf("drachenebene") == 5 begin 

            d.notice("Ihr habt den Drachen get�tet! Euch steht eine sch�ne Belohnung bevor!") 

            d.notice("Ihr werdet in 20Sekunden zu Map1 zur�ck teleportiert") 

            timer("ende", 20) 

        end 

        when ende.timer begin 

            if d.getf("drachenebene") == 5 then 

            timer("devildown_escapetimer", 1) 

        end 

        when devildown_escapetimer.timer begin 

        d.exit_all_to_start_position() 

        end 

    end 

end

Danke im voraus.

Kind Regarts
nOa/KDT

02/01/2014 12:54 Noa_#9638

PHP Code:


			
d.notice("Noch "..4-n.." Mobs killen bis zur n�chsten Ebene.")

PHP Code:


			
d.notice("Noch "..(4-n).." Mobs killen bis zur n�chsten Ebene.")

PHP Code:


			
if d.getf(drachenebene") == 2 then

PHP Code:


			
if d.getf("drachenebene") == 2 then

und hier, regel das

PHP Code:


			
when login begin  
            if pc.get_map_index() == 73 then  
            if pc.get_level() < 120 then  
            d.exit_all_to_start_position()  
            elseif pc.get_level() >= 120 then  
            pc.set_warp_location(402, 3917, 12931)  
        end

02/01/2014 13:38 bitza12#9639

Hello, can someone help me with this quest? In virtualbox i get this error:

Spoiler

PHP Code:


			
quest guild_building_melt begin
    state start begin
        function GetOreRefineCost(cost)
            if pc.empire != npc.empire then
                return 5 * cost
            end
            if pc.get_guild() == npc.get_guild() then
                return cost * 0.8
            end
            return cost
        end
        function GetMyRefineNum(race)
            return race - 20060 + 50601 or
            race - 20061 + 50602 or
            race - 20062 + 50603 or
            race - 20063 + 50604 or
            race - 20064 + 50605 or
            race - 20065 + 50606 or
            race - 20066 + 50607 or
            race - 20067 + 50608 or
            race - 20068 + 50609 or
            race - 20069 + 50610 or
            race - 20070 + 50611 or
            race - 20071 + 50612 or
            race - 20072 + 50613 or
            race - 25410 + 50614 or
            race - 25411 + 50615 or
            race - 25412 + 50616 or
            race - 25413 + 50617 or
            race - 25414 + 50618
        end
        function GetOreRefineGoodPct()
            return 75
        end
        function GetOreRefineBadPct()
            return 25
        end
        --function GetOreRefineJuwelesPct()
        --    return 65
        --end
        function IsRefinableRawOre(vnum)
            return vnum >= 50601 and vnum <= 50618
        end
        -- all another Ores
        function DoRefine(pct)
            local from_postfix
            local from_name = item_name(item.vnum)
            local to_vnum = item.vnum + 20
            local to_name = item_name(to_vnum)
            local to_postfix 
            local price = guild_building_melt.GetOreRefineCost(3000)
            if under_han(from_name) then
                from_postfix = ""
            else
                from_postfix = ""
            end
            if under_han(to_name) then
                to_postfix = ""
            else
                to_postfix = ""
            end
            say_title(""..mob_name(20001)..".:")
            say("")
            say("Sunt cel mai bun alchimist din lume!")
            say("Adu-mi 100 de bucati de " .. from_name .. "")
            say("si voi incerca sa le schimb in " .. to_name .. ".")
            say("O sa mai am nevoie si de o piatra spirit")
            say("+0, +1 sau +2 pentru transformare.")
            say("")
            if item.count >= 100 then
                say("Sansa sa reuseasca este de: "..pct.."%.")
                say("Toate costurile ajung la "..price.." Yang")
                say("")
                say_reward("Vrei sa incerci?")
                local s = select("Da", "Nu")
                if s == 1 then
                    if pc.get_gold() < price then
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Imi pare rau dar nu ai suficient Yang.")
                        say("Daca fac totul pe gratis eu din ce imi")
                        say("mai castig existenta?")
                        return
                    end
                    local selected_item_cell = select_item()
                    if selected_item_cell == 0 then
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Fara o piatra spirit nu pot sa te ajut,")
                        say("adu-mi o piatra spirit!")
                        say("")
                        return
                    end
                    local old_item = item.get_id()
                    if not item.select_cell(selected_item_cell) then
                        say("Nu ai itemele necesare.")
                        return
                    end
                    if item.vnum < 28000 or item.vnum >= 28300 then
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Ce este asta? Eu ti-am cerut o piatra")
                        say("spirit +0, +1 sau +2. Nu am ce sa fac")
                        say("cu acest lucru.")
                        return
                    end
                    local stone_item = item.vnum
                    item.select(old_item)
                    local chance = number(1, 100)
                    local chance_max = pct
                    if chance <= chance_max then
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Procedeul a fost un succes. Ai primit:")
                        say_item(to_name, to_vnum, "")
                        say("Te mai astept pe la mine!")
                        say("")
                        pc.give_item2(to_vnum,1)
                        pc.changemoney(-price)
                        pc.removeitem(""..from_name.."",100)
                        pc.removeitem(""..stone_item.."",1)
                    else
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Procedeul a esuat.")
                        say("Imi cer scuze dar minereul era mult")
                        say("prea deteriorat. S-a spart in timpul")
                        say("procesului de slefuire.")
                        pc.changemoney(-price)
                        pc.removeitem(""..from_name.."",100)
                        pc.removeitem(""..stone_item.."",1)
                    end
                end
            else
                say("")
                say("Am nevoie de cel putin 100 de bucati")
                say("de " .. from_name .. ". Du-te si mai")
                say("cauta niste " .. to_name .. " pana")
                say("vei avea cel putin 100!")
                say("")
            end
        end
        --Only Diamond
        function DoRefineDiamond(pct)
            local from_postfix
            local from_name = item_name(item.vnum)
            local to_vnum = item.vnum + 30574
            local to_name = item_name(to_vnum)
            local to_postfix 
            local price = guild_building_melt.GetOreRefineCost(10000)
            if under_han(from_name) then
                from_postfix = ""
            else
                from_postfix = ""
            end
            if under_han(to_name) then
                to_postfix = ""
            else
                to_postfix = ""
            end
            say_title(""..mob_name(20001)..".:")
            say("")
            say("Sunt cel mai bun alchimist din lume!")
            say("Adu-mi 100 de bucati de " .. from_name .. " si voi")
            say("incerca sa iti procur " .. to_name .. " .")
            if item.count >= 100 then
                say("Sansa sa reuseasca este de: "..pct.."%.")
                say("Toate costurile te duc la: "..price.." Yang")
                say("")
                say_reward("Vrei sa incerci?")
                local s = select("Da", "Nu")
                if s == 1 then
                    if pc.get_gold() < price then
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Imi pare rau dar nu ai suficient Yang.")
                        say("Daca fac totul pe gratis eu din ce imi")
                        say("mai castig existenta?")
                        return
                    end
                    local chance = number(1, 100)
                    local chance_max = pct
                    if chance <= chance_max then
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Procedeul a fost un succes. Vei primi:")
                        say_item(to_name, to_vnum, "")
                        say("Te mai astept pe la mine!")
                        say("")
                        pc.give_item2(to_vnum,1)
                        pc.changemoney(-price)
                        pc.removeitem(""..from_name.."",100)
                    else
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Procedeul a esuat.")
                        say("Imi cer scuze dar minereul era mult")
                        say("prea deteriorat. S-a spart in timpul")
                        say("procesului de slefuire.")
                        pc.changemoney(-price)
                        pc.removeitem(""..from_name.."",100)
                    end
                end
            else
                say("")
                say("Am nevoie de cel putin 100 de bucati")
                say("de " .. from_name .. ". Du-te si mai")
                say("cauta niste " .. to_name .. " pana")
                say("vei avea cel putin 100!")
                say("")
            end
        end
        --New Mines
        function DoRefineNew(pct)
            local from_postfix
            local from_name = item_name(item.vnum)
            local to_vnum = item.vnum + 41621
            local to_name = item_name(to_vnum)
            local to_postfix 
            local price = guild_building_melt.GetOreRefineCost(15000)
            if under_han(from_name) then
                from_postfix = ""
            else
                from_postfix = ""
            end
            if under_han(to_name) then
                to_postfix = ""
            else
                to_postfix = ""
            end
            say_title(""..mob_name(20001)..".:")
            say("")
            say("Sunt cel mai bun alchimist din lume!")
            say("Adu-mi 100 de bucati de " .. from_name .. "")
            say("si voi incerca sa le schimb in " .. to_name .. ".")
            say("O sa mai am nevoie si de o piatra spirit")
            say("+0, +1 sau +2 pentru transformare.")
            say("")
            if item.count >= 100 then
                say("Sansa sa reuseasca este de: "..pct.."%.")
                say("Toate costurile ajung la "..price.." Yang")
                say("")
                say_reward("Vrei sa incerci?")
                local s = select("Da", "Nu")
                if s == 1 then
                    if pc.get_gold() < price then
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Imi pare rau dar nu ai suficient Yang.")
                        say("Daca fac totul pe gratis eu din ce imi")
                        say("mai castig existenta?")
                        return
                    end
                    local selected_item_cell = select_item()
                    if selected_item_cell == 0 then
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Fara o piatra spirit nu pot sa te ajut,")
                        say("adu-mi o piatra spirit!")
                        say("")
                        return
                    end
                    local old_item = item.get_id()
                    if not item.select_cell(selected_item_cell) then
                        say("Nu ai itemele necesare.")
                        return
                    end
                    if item.vnum < 28000 or item.vnum >= 28300 then
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Ce este asta? Eu ti-am cerut o piatra")
                        say("spirit +0, +1 sau +2. Nu am ce sa fac")
                        say("cu acest lucru.")
                        return
                    end
                    local stone_item = item.vnum
                    item.select(old_item)
                    local chance = number(1, 100)
                    local chance_max = pct
                    if chance <= chance_max then
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Procedeul a fost un succes. Ai primit:")
                        say_item(to_name, to_vnum, "")
                        say("Te mai astept pe la mine!")
                        say("")
                        pc.give_item2(to_vnum,1)
                        pc.changemoney(-price)
                        pc.removeitem(""..from_name.."",100)
                        pc.removeitem(""..stone_item.."",1)
                    else
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Procedeul a esuat.")
                        say("Imi cer scuze dar minereul era mult")
                        say("prea deteriorat. S-a spart in timpul")
                        say("procesului de slefuire.")
                        pc.changemoney(-price)
                        pc.removeitem(""..from_name.."",100)
                        pc.removeitem(""..stone_item.."",1)
                    end
                end
            else
                say("")
                say("Am nevoie de cel putin 100 de bucati")
                say("de " .. from_name .. ". Du-te si mai")
                say("cauta niste " .. to_name .. " pana")
                say("vei avea cel putin 100!")
                say("")
            end
        end
        --Make Juweles
        --function DoRefineNewtojuwels(pct)
        --    local from_postfix
        --    local from_name = item_name(item.vnum)
        --    local to_vnum = item.vnum + 41621--hiernoch zahl�ndern
        --    local to_name = item_name(to_vnum)
        --    local to_postfix 
        --    local price = guild_building_melt.GetOreRefineCost(55000)
        --    if under_han(from_name) then
        --        from_postfix = ""
        --    else
        --        from_postfix = ""
        --    end
        --    if under_han(to_name) then
        --        to_postfix = ""
        --    else
        --        to_postfix = ""
        --    end
        --    say_title(""..mob_name(20001)..":")
        --    say("")
        --    say("Salutare "..pc.get_name..",")
        --    say("nu te-am mai vazut de mult. Mi-am imbunatatit")
        --    say("tehnica, folosind doar o bucata de Aur")
        --    say("si o bucata de "..from_name.."")
        --    say("pot crea noi finisaje.")
        --    say("")
        --    say("Vrei sa incerci? Ai nevoie doar de")
        --    say("o bucata de "..to_name..".")
        --    say("")
        --    if item.count >= 1 then
                say("Sansa sa reuseasca este de: "..pct.."%.")
                say("Toate costurile ajung la "..price.." Yang")
        --        say("")
        --        say_reward("Vrei sa incerci?")
        --        local s = select("Da", "Nu")
        --        if s == 1 then
        --            if pc.get_gold() < price then
        --                say_title(""..mob_name(20001)..".:")
        --                say("")
        --                say("Imi pare rau dar nu ai suficient Yang.") 
        --                say("Daca fac totul pe gratis eu din ce imi") 
        --                say("mai castig existenta?") 
        --                return
        --            end
        --            if pc.countitem("50626")>=1 then
        --                local chance = number(1, 100)
        --                local chance_max = pct
        --                if chance <= chance_max then
        --                    pc.removeitem("50626",1)
        --                    pc.changemoney(-price)
        --                    pc.removeitem(""..from_name.."",100)
        --                    say_title(""..mob_name(20001)..".:")
        --                    say("")
        --                    say("Procedeul a fost un succes. Vei primi:")
        --                    say_item(to_name, to_vnum, "")
        --                    say("Te mai astept pe la mine!")
        --                    say("")
        --                    pc.give_item2(to_vnum,1)
        --                else
        --                    pc.removeitem("50626",1)
        --                    pc.changemoney(-price)
        --                    pc.removeitem(""..from_name.."",100)
        --                    say_title(""..mob_name(20001)..".:")
        --                    say("")
        --                    say("Procedeul a esuat.")
        --                    say("Imi cer scuze dar minereul era mult")
        --                    say("prea deteriorat. S-a spart in timpul")
        --                    say("procesului de slefuire.")
        --                end
        --            else
        --                say_title(""..mob_name(20001)..".:")
        --                say("")
        --                say("Ce e asta? Eu iti cer aur si tu")
        --                say("imi aduci alte prostii. Du-te si")
        --                say("fa-mi rost de cel putin o bucata")
        --                say("de aur. Grabeste-te ca nu am toata")
        --                say("ziua la dispozitie!")
        --                say_item_vnum(50626)
        --            end
        --        end
        --    else
        --        say("")
        --        say("Pentru acest finisaj am nevoie de")
        --        say("cel putin un " .. from_name .. " pentru")
        --        say("a-l putea prelucra in " .. to_name .. ". Intoarce-te")
        --        say("cand vei avea tot ce ti-am cerut")
        --        say("")
        --    end
        --end
        --GOOD
        when 20060.take or 20061.take or 20062.take or 20063.take or 20064.take or 20065.take or 20066.take or
        20067.take or 20068.take or 20069.take or 20070.take or 20071.take or 20072.take or 25410.take or 25411.take or 25412.take or 25413.take or 25414.take  with guild_building_melt.GetMyRefineNum(npc.race) == item.vnum begin
            if item.vnum == 50601 then
                guild_building_melt.DoRefineDiamond(guild_building_melt.GetOreRefineGoodPct())
            else
                guild_building_melt.DoRefine(guild_building_melt.GetOreRefineGoodPct())
            end
        end
        --BAD
        when 20060.take or 20061.take or 20062.take or 20063.take or 20064.take or 20065.take or 20066.take or
        20067.take or 20068.take or 20069.take or 20070.take or 20071.take or
        20072.take or 25410.take or 25411.take or 25412.take or 25413.take or 25414.take with guild_building_melt.IsRefinableRawOre(item.vnum) and guild_building_melt.GetMyRefineNum(npc.race) != item.vnum begin
            if item.vnum == 50601 then
                guild_building_melt.DoRefineDiamond(guild_building_melt.GetOreRefineBadPct())
            else
                guild_building_melt.DoRefine(guild_building_melt.GetOreRefineBadPct())
            end
        end
        --New Mines Take
        when 9017.take with item.vnum == 9013 or item.vnum == 9014 or item.vnum == 9015 or item.vnum == 9016 begin
            if game.get_event_flag("nacht") < 1 then
                guild_building_melt.DoRefineNew(guild_building_melt.GetOreRefineGoodPct())
            else
                guild_building_melt.DoRefineNew(guild_building_melt.GetOreRefineBadPct())
            end
        end
        --Making Juweles
        --when 9017.take with item.vnum == 50634 or item.vnum == 50635 or item.vnum ==50636 or item.vnum ==50637 or item.vnum ==50638 or item.vnum ==50639 begin
        --    guild_building_melt.DoRefineNewtojuwels(guild_building_melt.GetOreRefineJuwelesPct())
        --end
        --Change Spezial
        when 20060.click or 20061.click or 20062.click or 20063.click or 20064.click or
            20065.click or 20066.click or 20067.click or 20068.click or 20069.click or
            20070.click or 20071.click or 20072.click or 25410.click or 25411.click or 25412.click or 25413.click or 25414.click with npc.get_guild() == pc.get_guild() and pc.isguildmaster() begin
            say_title(""..mob_name(20001)..".:")
            say("")
            say("Pentru doar 3.000.000 Yang puteti angaja un")
            say("alchimist specializat in procesarea") 
            say("minereurilor.")
            say("")
            wait()
            if pc.get_gold() < 3000000 then
                say_title(""..mob_name(20001)..".:")
                say("")
                say_reward("Ai nevoie de 3.000.000 Yang pentru")
                say_reward("a angaja un alchimist.")
            else
                say_yellow("Ce specializare doriti sa aiba?")
                local sel = 0
                local timetable_01    = {'Diamant', 'Chihlimbar', 'Lemn fosila', 'Cupru', 'Argint', 'Aur', 'Jade', 'Continua'} 
                local valuetable_01    = {14043, 14044, 14045, 14046, 14047, 14048, 14049, 1, 3} 
                local timetable_02    = {'Lemn de abanos', 'Perle', 'Aur alb', 'Cristal', 'Ametist', 'Lacrima cerului', 'Inapoi', 'Continua'} 
                local valuetable_02    = {19397, 14051, 14052, 14053, 14054, 14055, 0, 2, 3} 
                local timetable_03    = {'Cristal Spirit', 'Rubin', 'Granat', 'Smarald', 'Safir', 'Inapoi', 'Inchide'} 
                local valuetable_03    = {19393, 19394, 19395, 19396, 19397, 1, 3} 

                repeat 
                    if sel == 0 then
                        local s = select_table(timetable_01) 
                        sel = valuetable_01[s] 
                    elseif sel == 1 then 
                        local s = select_table(timetable_02) 
                        sel = valuetable_02[s] 
                    elseif sel == 2 then 
                        local s = select_table(timetable_03) 
                        sel = valuetable_03[s] 
                    end 
                until sel > 2
                
                if sel != 3 then 
                    npc_num = sel + 20060 - 14043 
                    if npc_num == npc.get_race() then
                        say_title(""..mob_name(20001)..".:")
                        say("")
                        say("Acest material nu functioneaza.")
                    else
                        pc.changegold(-3000000)
                        building.reconstruct(sel)
                    end
                else
                    say_title(""..mob_name(20001)..".:")
                    say("")
                    say("Cum doresti, eu imi continui treaba")
                    say("dar ai grija, preturile ar putea creste!")
                    say("")
                end
            end
        end
    end
end

02/01/2014 14:01 nOa##9640

Quote:

Originally Posted by Noa_

PHP Code:

d.notice("Noch "..4-n.." Mobs killen bis zur n�chsten Ebene.")

zu

PHP Code:

d.notice("Noch "..(4-n).." Mobs killen bis zur n�chsten Ebene.")

PHP Code:

if d.getf(drachenebene") == 2 then

zu

PHP Code:

if d.getf("drachenebene") == 2 then

und hier, regel das

PHP Code:

when login begin if pc.get_map_index() == 73 then if pc.get_level() < 120 then d.exit_all_to_start_position() elseif pc.get_level() >= 120 then pc.set_warp_location(402, 3917, 12931) end

Danke aber es gibt immer noch eine Fehlermeldung aus:
[Only registered and activated users can see links. Click Here To Register...]

Falls das jemandem hilft.

02/01/2014 15:30 Noa_#9641

PHP Code:


			
quest drxavion begin  
    state start begin  
        when login begin  
            if pc.get_map_index() == 73 then  
                if pc.get_level() < 120 then  
                    d.exit_all_to_start_position()  
                elseif pc.get_level() >= 120 then  
                    pc.set_warp_location(402, 3917, 12931)  
                end
            end
        end  
        when 20094.chat."Die Gem�cher des Drachen" begin  
            if pc.get_level() < 120 then  
                say ("Du hast noch nicht genuegend Erfahrung gesammelt. Komme wieder, wenn du Level 120 bist!")   
            else  
                say_title("Der blaue Drache")  
                say("")  
                say("Als alle 3 Reiche noch eins,")  
                say("waren lebten alle Menschen in Harmonie")  
                say("zusammen. Doch eines Tages brach")  
                say("Dunkelheit �ber diesen Ort herein.")  
                say("")  
                say("Pl�tzlich kam dunkle Kreaturen zu diesem Ort")  
                say("um ihn zu bewachen.")  
                say("Keiner wusste wieso, doch eines Tages")  
                say("Der Mond verdunkelte die Sonne und da sah")  
                say("ich ihn. Den blauen Drachen.")  
                say("Herscher der Dunkelheit und des B�sen.")  
                say("")  
                wait()  
                say_title("Der blaue Drache")  
                say("")  
                say("Damit wieder Freiden herschen kann muss")  
                say("der Drache sterben. Meinst du, du bist")  
                say("dieser Aufgabe gewachsen? ")  
                say("Ich kann dich zu diesem Ort bringen wenn du willst.")  
                say("")  
                say_reward("Soll ich dich zum diesem geheimen")  
                say_reward("Ort Teleportieren?")  
                  
                local t = select("Ja los!", "Nein lieber nicht")  
                    if t == 1 and party.is_party() then  
                        pc.warp(843200, 1066900)  
                    else  
                        return
                    end
            end  
        end  
        when 11506.kill with pc.get_map_index() == 73 and pc.in_dungeon() begin    --Ebene 1  
            local c = 4  
            local m = d.getf("erstercount") + 1  
            d.setf("erstercount", m)   
            d.notice("Noch "..(4-n).." Mobs killen bis zur n�chsten Ebene.")  
            if n == m then  
                d.setf("drachenebene", 2)  
                d.setf("erstercount", 0)  
                d.notice("Ihr werdet nun in die n�chste Ebene teleportiert.")  
                d.jump_all(843200, 1066900)                  
            end  
        end  
        when login with pc.in_dungeon() and d.getf("drachenebene") == 2 begin     --Ebene2  
            d.notice("Ihr habt 5 Minuten Zeit den W�chter des Tores zu t�ten")  
            d.spawn_mob(2604, 843200, 1066900)  
            timer("torw�chter1", 120)  
        end  
        when torw�chter1.timer begin  
            if d.getf("drachenebene") == 2 then  
                d.notice("Verbleibende Zeit: 3 Minuten")  
                timer("torw�chter2", 180)  
            end
        end  
        when torw�chter2.timer begin  
            if d.getf("drachenebene") == 2 then  
                d.notice("Surageist1: Verbleibende Zeit: 1 Minute")  
                timer("torw�chter3", 60)  
            end
        end  
        when torw�chter3.timer  begin  
            if d.getf("drachenebene") == 2 then  
                d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert")  
                d.notice("Ihr habt es leider nicht geschafft!")  
                timer("devildown_escapetimer", 3)  
            end
        end  
        when 2604.kill with pc.in_dungeon() begin  
            d.setf("drachenebene", 3)  
            cleartimer("torw�chter1")   
            cleartimer("torw�chter2")   
            cleartimer("torw�chter3")   
            d.notice("Ihr habt es geschafft!");      
            d.notice("Ihr werdet nun weiter in die n�chste Ebene teleportiert")  
            timer("drjumper1", 2)  
        end  
        when drjumper1.timer begin                                          --Ebene3  
            d.jump_all(843200, 1066900)  
            d.setf("count", 0)  
            d.setf("counti", 0)  
            d.spawn_mob(11506, 843200, 1066900)  
            d.spawn_mob(11506, 843200, 1066900)  
            d.spawn_mob(11506, 843200, 1066900)  
            d.spawn_mob(11506, 843200, 1066900)  
            d.spawn_mob(11506, 843200, 1066900)  
            timer("mob_down", 8)  
            timer("mobkill1", 120)  
            d.notice("Ihr m�sst 20 Monster innerhalb von 5 Minuten t�ten um weiter zu kommen!");  
            d.notice("Die Zeit l�uft! Viel Gl�ck!");  
        end  
        when mob_down.timer begin  
            d.regen_file("data/dungeon/dd_regen4.txt")  
        end  
        when mobkill1.timer begin  
            if d.getf("drachenebene") == 3 then  
                d.notice("Verbleibende Zeit: 3 Minuten")  
                timer("mobkill2", 120)  
            end
        end  
        when mobkill2.timer begin  
            if d.getf("drachenebene") == 3 then  
                d.notice("Verbleibende Zeit: 1 Minute")  
                timer("mobkill3", 60)  
            end
        end  
        when mobkill3.timer begin  
            if d.getf("drachenebene") == 3 then  
                d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert")  
                d.notice("Ihr habt es leider nicht geschafft!")  
                timer("devildown_escapetimer", 3)  
            end
        end  
        when 11506.kill with pc.in_dungeon() and d.getf("drachenebene") == 3 begin  
            local Dropsiegel = 18  
            local n = d.getf("count") + 1  
            d.setf("count", n)   
            d.notice("Noch "..18-n.." Mobs killen bis Siegeldrop.")  
            if n == Dropsiegel then  
                game.drop_item(71158, 1)  
                d.setf("count", 0)  
                d.spawn_mob(20371, 843200, 1066900)  
            end  
        end  
        when 20371.take with item.vnum == 71158 and d.getf("drachenebene") == 3 begin  
            npc.purge()  
            item.remove()  
            d.setf("drachenebene", 4)  
            cleartimer("mobkill1")  
            cleartimer("mobkill2")  
            cleartimer("mobkill3")  
            d.notice("Ihr habt es geschafft, ihr habt das alte Siegel zerst�rt.")  
            d.notice("Das Portal zur n�chsten Ebene hat sich ge�ffnet.")  
            timer("steine2", 3)  
        end  
        when steine2.timer begin                                        --Ebene4  
            d.jump_all(843200, 1066900)  
            d.spawn_mob(8013, 843200, 1066900)  
            d.spawn_mob(8013, 843200, 1066900)  
            timer("metinkill1", 300)  
            d.notice("Ihr m�sst die beiden Metins innerhalb von 10 Minuten t�ten um weiter zu kommen!");  
            d.notice("Die Zeit l�uft! Viel Gl�ck!");  
        end  
        when metinkill1.timer begin  
        if d.getf("drachenebene") == 4 then  
            d.notice("Verbleibende Zeit: 5 Minuten")  
            timer("metinkill2", 240)      
        end  
        when metinkill2.timer begin  
        if d.getf("drachenebene") == 4 then  
            d.notice("Verbleibende Zeit: 1 Minute")  
            timer("metinkill3", 60)      
        end  
        when metinkill3.timer begin  
        if d.getf("drachenebene") == 4 then  
            d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert")  
            d.notice("Ihr habt es leider nicht geschafft!")  
            timer("devildown_escapetimer", 3)      
        end  
        when 8013.kill with pc.in_dungeon() begin  
            local u = 2  
            local o = d.getf("metincount") + 1  
            d.setf("metincount", o)   
            d.notice("Noch "..2-n.." Mobs killen bis zur n�chsten Ebene.")  
            if u == o then  
                d.setf("metincount", 0)  
                d.setf("drachenebene", 5)  
                d.notice("Der Drache spawnt nun!!!")  
                timer("drachespawn", 3)  
            end  
        end  
        when drachenspawn.timer begin                            --Ebene5 (Drachenebene)  
            d.spawn_mob(2493, 843200, 1066900)  
        end  
        when 2493.kill with pc.in_dungeon() and d.getf("drachenebene") == 5 begin  
            d.notice("Ihr habt den Drachen get�tet! Euch steht eine sch�ne Belohnung bevor!")  
            d.notice("Ihr werdet in 20Sekunden zu Map1 zur�ck teleportiert")  
            timer("ende", 20)  
        end  
        when ende.timer begin  
            if d.getf("drachenebene") == 5 then  
                timer("devildown_escapetimer", 1)  
            end
        end  
        when devildown_escapetimer.timer begin  
            d.exit_all_to_start_position()  
        end  
    end  
end

02/01/2014 15:45 nOa##9642

@ Noa

Sry aber hat keine Ver�nderung ergeben...
Gleiche Fehler wie zuvor.:(

[Only registered and activated users can see links. Click Here To Register...]

02/01/2014 16:30 Noa_#9643

PHP Code:


			
quest drxavion begin  
    state start begin  
        when login begin  
            if pc.get_map_index() == 73 then  
                if pc.get_level() < 120 then  
                    d.exit_all_to_start_position()  
                elseif pc.get_level() >= 120 then  
                    pc.set_warp_location(402, 3917, 12931)  
                end
            end
        end  
        when 20094.chat."Die Gem�cher des Drachen" begin  
            if pc.get_level() < 120 then  
                say ("Du hast noch nicht genuegend Erfahrung gesammelt. Komme wieder, wenn du Level 120 bist!")   
            else  
                say_title("Der blaue Drache")  
                say("")  
                say("Als alle 3 Reiche noch eins,")  
                say("waren lebten alle Menschen in Harmonie")  
                say("zusammen. Doch eines Tages brach")  
                say("Dunkelheit �ber diesen Ort herein.")  
                say("")  
                say("Pl�tzlich kam dunkle Kreaturen zu diesem Ort")  
                say("um ihn zu bewachen.")  
                say("Keiner wusste wieso, doch eines Tages")  
                say("Der Mond verdunkelte die Sonne und da sah")  
                say("ich ihn. Den blauen Drachen.")  
                say("Herscher der Dunkelheit und des B�sen.")  
                say("")  
                wait()  
                say_title("Der blaue Drache")  
                say("")  
                say("Damit wieder Freiden herschen kann muss")  
                say("der Drache sterben. Meinst du, du bist")  
                say("dieser Aufgabe gewachsen? ")  
                say("Ich kann dich zu diesem Ort bringen wenn du willst.")  
                say("")  
                say_reward("Soll ich dich zum diesem geheimen")  
                say_reward("Ort Teleportieren?")  
                  
                local t = select("Ja los!", "Nein lieber nicht")  
                    if t == 1 and party.is_party() then  
                        pc.warp(843200, 1066900)  
                    else  
                        return
                    end
            end  
        end  
        when 11506.kill with pc.get_map_index() == 73 and pc.in_dungeon() begin    --Ebene 1  
            local c = 4  
            local m = d.getf("erstercount") + 1  
            d.setf("erstercount", m)   
            d.notice("Noch "..(4-n).." Mobs killen bis zur n�chsten Ebene.")  
            if n == m then  
                d.setf("drachenebene", 2)  
                d.setf("erstercount", 0)  
                d.notice("Ihr werdet nun in die n�chste Ebene teleportiert.")  
                d.jump_all(843200, 1066900)                  
            end  
        end  
        when login with pc.in_dungeon() and d.getf("drachenebene") == 2 begin     --Ebene2  
            d.notice("Ihr habt 5 Minuten Zeit den W�chter des Tores zu t�ten")  
            d.spawn_mob(2604, 843200, 1066900)  
            timer("torw�chter1", 120)  
        end  
        when torw�chter1.timer begin  
            if d.getf("drachenebene") == 2 then  
                d.notice("Verbleibende Zeit: 3 Minuten")  
                timer("torw�chter2", 180)  
            end
        end  
        when torw�chter2.timer begin  
            if d.getf("drachenebene") == 2 then  
                d.notice("Surageist1: Verbleibende Zeit: 1 Minute")  
                timer("torw�chter3", 60)  
            end
        end  
        when torw�chter3.timer  begin  
            if d.getf("drachenebene") == 2 then  
                d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert")  
                d.notice("Ihr habt es leider nicht geschafft!")  
                timer("devildown_escapetimer", 3)  
            end
        end  
        when 2604.kill with pc.in_dungeon() begin  
            d.setf("drachenebene", 3)  
            cleartimer("torw�chter1")   
            cleartimer("torw�chter2")   
            cleartimer("torw�chter3")   
            d.notice("Ihr habt es geschafft!");      
            d.notice("Ihr werdet nun weiter in die n�chste Ebene teleportiert")  
            timer("drjumper1", 2)  
        end  
        when drjumper1.timer begin                                          --Ebene3  
            d.jump_all(843200, 1066900)  
            d.setf("count", 0)  
            d.setf("counti", 0)  
            d.spawn_mob(11506, 843200, 1066900)  
            d.spawn_mob(11506, 843200, 1066900)  
            d.spawn_mob(11506, 843200, 1066900)  
            d.spawn_mob(11506, 843200, 1066900)  
            d.spawn_mob(11506, 843200, 1066900)  
            timer("mob_down", 8)  
            timer("mobkill1", 120)  
            d.notice("Ihr m�sst 20 Monster innerhalb von 5 Minuten t�ten um weiter zu kommen!");  
            d.notice("Die Zeit l�uft! Viel Gl�ck!");  
        end  
        when mob_down.timer begin  
            d.regen_file("data/dungeon/dd_regen4.txt")  
        end  
        when mobkill1.timer begin  
            if d.getf("drachenebene") == 3 then  
                d.notice("Verbleibende Zeit: 3 Minuten")  
                timer("mobkill2", 120)  
            end
        end  
        when mobkill2.timer begin  
            if d.getf("drachenebene") == 3 then  
                d.notice("Verbleibende Zeit: 1 Minute")  
                timer("mobkill3", 60)  
            end
        end  
        when mobkill3.timer begin  
            if d.getf("drachenebene") == 3 then  
                d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert")  
                d.notice("Ihr habt es leider nicht geschafft!")  
                timer("devildown_escapetimer", 3)  
            end
        end  
        when 11506.kill with pc.in_dungeon() and d.getf("drachenebene") == 3 begin  
            local Dropsiegel = 18  
            local n = d.getf("count") + 1  
            d.setf("count", n)   
            d.notice("Noch "..(18-n).." Mobs killen bis Siegeldrop.")  
            if n == Dropsiegel then  
                game.drop_item(71158, 1)  
                d.setf("count", 0)  
                d.spawn_mob(20371, 843200, 1066900)  
            end  
        end  
        when 20371.take with item.vnum == 71158 and d.getf("drachenebene") == 3 begin  
            npc.purge()  
            item.remove()  
            d.setf("drachenebene", 4)  
            cleartimer("mobkill1")  
            cleartimer("mobkill2")  
            cleartimer("mobkill3")  
            d.notice("Ihr habt es geschafft, ihr habt das alte Siegel zerst�rt.")  
            d.notice("Das Portal zur n�chsten Ebene hat sich ge�ffnet.")  
            timer("steine2", 3)  
        end  
        when steine2.timer begin                                        --Ebene4  
            d.jump_all(843200, 1066900)  
            d.spawn_mob(8013, 843200, 1066900)  
            d.spawn_mob(8013, 843200, 1066900)  
            timer("metinkill1", 300)  
            d.notice("Ihr m�sst die beiden Metins innerhalb von 10 Minuten t�ten um weiter zu kommen!");  
            d.notice("Die Zeit l�uft! Viel Gl�ck!");  
        end  
        when metinkill1.timer begin  
        if d.getf("drachenebene") == 4 then  
            d.notice("Verbleibende Zeit: 5 Minuten")  
            timer("metinkill2", 240)      
        end  
        when metinkill2.timer begin  
        if d.getf("drachenebene") == 4 then  
            d.notice("Verbleibende Zeit: 1 Minute")  
            timer("metinkill3", 60)      
        end  
        when metinkill3.timer begin  
        if d.getf("drachenebene") == 4 then  
            d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert")  
            d.notice("Ihr habt es leider nicht geschafft!")  
            timer("devildown_escapetimer", 3)      
        end  
        when 8013.kill with pc.in_dungeon() begin  
            local u = 2  
            local o = d.getf("metincount") + 1  
            d.setf("metincount", o)   
            d.notice("Noch "..(2-n).." Mobs killen bis zur n�chsten Ebene.")  
            if u == o then  
                d.setf("metincount", 0)  
                d.setf("drachenebene", 5)  
                d.notice("Der Drache spawnt nun!!!")  
                timer("drachespawn", 3)  
            end  
        end  
        when drachenspawn.timer begin                            --Ebene5 (Drachenebene)  
            d.spawn_mob(2493, 843200, 1066900)  
        end  
        when 2493.kill with pc.in_dungeon() and d.getf("drachenebene") == 5 begin  
            d.notice("Ihr habt den Drachen get�tet! Euch steht eine sch�ne Belohnung bevor!")  
            d.notice("Ihr werdet in 20Sekunden zu Map1 zur�ck teleportiert")  
            timer("ende", 20)  
        end  
        when ende.timer begin  
            if d.getf("drachenebene") == 5 then  
                timer("devildown_escapetimer", 1)  
            end
        end  
        when devildown_escapetimer.timer begin  
            d.exit_all_to_start_position()  
        end  
    end  
end