6 questuri create de mine Pentru Metin

Deconectat
Avatar utilizator
Melon
Utilizator interzis !
Utilizator interzis !
Mesaje: 63
Membru din: 09 Iul 2015
Localitate: bucuresti
Status: Sunt bine mersi ^.^
Server Metin2: --------
Regat: Chunjo
Mulțumiri acordate: 0
Mulțumiri primite: 0
Contact:

6 questuri create de mine Pentru Metin

Mesajde Melon » 11 Iul 2015, 17:21

Salut . M-am gandit sa va fac si eu niste questuri .. Sa imi spuneti daca sunt bune .. sunt incepator deocamdata la Questuri dar .. Ma cam pricep incet,incet =))) Asa. Am avut cereri de questurile accestea... hai sa nu va mai tin in suspans hai sa vi le dau :D .

Fierar in romana :
Înlocuieşte în linie cu

Cod: Selectaţi tot

quest blacksmith begin
    state start begin
        when 20016
.chat."Vrei sa imbunatatesti ceva?" begin
            say_title
("Fierarul Oraşului")
            say("Bună ziua , aventurierule")
            say("Eu sunt fierarul din acest oraş")
            say("Eu îţi pot evolua iteme ,dar se poate")
            say("să şi eşueze.")
            say("Nu din vina mea .")
            say_reward("Trage itemul pe mine pentru al îmbunătăţi.")
        end
    end
end



Biolog..

Adaugă în linie, înainte de

Cod: Selectaţi tot

[spoiler]state start begin 
        when login or levelup with pc
.level>29 begin 
            set_state
(talk_to_disciple_lv30) 
        end     
    end 
    state talk_to_disciple_lv30 begin 
        when letter begin 
            local v 
= find_npc_by_vnum(20084) 
            if v 
!= 0 then target.vid("__TARGET__", v, "Cererea biologului") 
            end 
            send_letter
("Cererea biologului") 
        end 
        when button or info begin 
            say_title
("Cererea biologului") 
            say
("") 
            say
("Biologul are nevoie de ajutorul tau") 
            say
("Dute si vorbeste cu el") 
            say
("") 
            say_reward
("Discuta cu biologul") 
            say
("") 
        end 
        when __TARGET__
.target.click or 20084.chat."Orkzähne" begin 
            target
.delete("__TARGET__") 
            say
("Biolog:") 
            say
("") 
            say
("Oh,ai venit sa ma ajuti?") 
            say
("Ei bine ...") 
            say
("Eu sunt de altfel biologul") 
            say
("si ma ocup cu studierea numeroaselor plante") 
            say
("Daca ma ajuti cu cercetarea,") 
            say
("eu te voi rasplati din plin") 
            say
("") 
            wait
() 
            say
("Biolog:") 
            say
("Eu va voi rasplati din plin .") 
            say
("Vom face cercetarea pe o legenda") 
            say
("Dar eu trebuie sa fac mai intai in prezent ,") 
            say
("ar fi atat de frumos daca m-ai ajuta") 
            say
("") 
            wait
() 
            say
("Biolog:") 
            say
("Am nevoie de 10 dinti de orc pentru cercetarea mea.") 
            say
("Cu toate astea sunt foarte fragili ,") 
            say
("se poate ca la unii dinti") 
            say
("sa nu pot fi analizati") 
            say
("Am nevoie de toti cei 10,") 
            say
("pentru a finaliza cercetarea") 
            say
("") 
            set_state
(collect_orcteeth) 
            pc
.setqf("duration",0) 
            pc
.setqf("collect_count",0) 
        end 
    end 
    state collect_orcteeth begin 
        when letter begin 
            send_letter
("Die Forschung des Biologen") 
        end 
        when button or info begin 
            say_title
("Dinti de orc") 
            say
("") 
            say
("Biologul ti-a dat mult de lucru,") 
            say
("sa colectezi cei 10 dinti de orc.") 
            say
("Colecteaza-i si adui pe toti la biolog.") 
            say
("") 
            say_item_vnum
(30006)  
            say_reward
("Aveti in prezent "..pc.getqf("collect_count").." abgegeben!") 
            say
("") 
        end 
        when 20084
.chat."Dinti de orc" with pc.count_item(30006)>0 begin 
            if get_time
()>pc.getqf("duration") then 
                say
("Un moment ...") 
                say
("Iti multumesc mult,") 
                say
("lasa-ma sa revizuiesc rapid") 
                say
("in cazul in care acest dinte este in ordine ...") 
                say
("") 
                pc
.remove_item("30006", 1) 
                pc
.setqf("duration",get_time()+300) 
                wait
() 
                local rand 
= number(0,99) 
                if rand
<50 then 
                    local count 
= pc.getqf("collect_count")+
                    if count
<10 then 
                        pc
.setqf("collect_count", count) 
                        say
("Biolog:") 
                        say
("Excelent,acest dinte este in ordine.") 
                        say
("Adu-mi altul.) 
                        say("
Se poate cerceta.") 
                        say("") 
                        say_reward("
Aveti in prezent"..pc.getqf("collect_count").." abgegeben!") 
                        say("") 
                    else  
                        say("
Biolog:") 
                        say("
Mi-ai adus 10 dinti.") 
                        say("
Acum,te rog s ate duci sa imi aduci piatra Jinunggyis") 
                        say("
Pentru a aduce piatra Jinunggyis.") 
                        say("
Trebuie sa te duci sa o procuri de la orcii mandrii...")     
                        say("
Cred ca esti suficient de puternic pentru ea.") 
                        say("") 
                        pc.setqf("
collect_count",0) 
                        pc.setqf("
duration",0)  
                        set_state(collect_jinunggyis) 
                    end 
                else                                 
                    say("
Biolog:") 
                    say("
Imi pare rau dar acest dintele este") 
                    say("
deja putrezit") 
                    say("
Te rog sa-mi aduci un alt dinte de orc.") 
                    say("") 
                end 
            else 
                say("
Biolog:") 
                say("
Imi pare rau") 
                say("
Studiile nu sunt terminate inca.") 
                say("
Te rog sa imi aduci un alt dinte mai tarziu.") 
                say("") 
            end 
        end 
    end 
    state collect_jinunggyis begin 
        when letter begin 
            send_letter("
Piatra Jinunggyis") 
        end 
        when button or info begin 
            say_title("
Piatra Jinunggyis") 
            say("") 
            say("
Felicitari! Aveti toti cei 10 dinti de orc") 
            say("
Acum aveti nevoie sa capturati piatra Jinunggyis") 
            say("") 
            say_item_vnum(30220) 
            say("
Aceasta piatra de fapt contine un suflet") 
            say("") 
        end 
        when 635.kill or 636.kill or 637.kill begin 
            if pc.count_item(30220)<1 then 
                local rand = number(0,99) 
                if rand<5 then pc.give_item2(30220, 1) 
                end 
            end     
        end 
        when 20084.chat."
Piatra Jinunggyis" begin 
            if pc.count_item(30220)>0 then 
                say("
Biolog:") 
                say("
Datorita muncii dumneavoastra avem acum") 
                say("
legenda pietrei Jinunggyis.") 
                say("
Ai luptat din greu.") 
                say("
Dute si vorbeste cu Baek-Go,") 
                say("
pentru a creste puterea ta interioara.") 
                say("") 
                pc.remove_item(30220,1) 
                set_state(jinunggyis_reward) 
            else 
                say("
Biolog:") 
                say("
Bravo,mi-ai adus 10 bucati") 
                say("
Acum eu va rog sa-mi aduceti piatra Jinunggyis") 
                say("
Pentru a aduce piatra Jinunggyis") 
                say("
Trebuie sa ucideti Orcii cei mandrii")     
                say("
Cred ca esti suficient de puternic pentru a aduce piatra.") 
                say("")         
            end 
        end 
    end     
    state jinunggyis_reward begin 
        when letter begin 
            send_letter("
Discutati cu Baek-Go") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("
__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say("
Pentru a primi recomepnsa de la biolog") 
            say("
dute si vorbeste cu baek-go.") 
            say("
Acesta iti va creste competentele permanent!") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat."
Recompensa de la biolog" begin 
            target.delete("
__TARGET__") 
            say_title("
Baek-Go:") 
            say("
Eu vad...") 
            say("
Biologul v-a trimis la mine.") 
            say("
Iata rasplata ta:") 
            say("") 
            say_reward("
Veti primi:") 
            say_reward("
Viteza de miscare +10% (permanent)") 
            say("") 
            affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) 
            set_state(collect_quest_lv40) 
        end 
    end[/spoiler]



camera_cristal

[spoiler]
Înlocuieşte în linie cu

Cod: Selectaţi tot

quest camera_cristal begin
state start begin
        
        when 30123
.chat."Templul Dragonului." with pc.get_map_index() == 73 begin
        if get_time
() > game.get_event_flag("Grotte_time") then
\


Pvp quest. ::: 



[install][b][color=#BF0080]Înlocuieşte în linie cu[/b][/color] [code=php]quest neopvp begin    
    state start begin    
        when login or levelup with pc
.get_level() >= 98 and pc.getqf("level") == 0 begin
            say
("Buna.")
            say("... ai ajuns la nivelul 98.")
            say("Remarcabil!")
            say("Acum, vom vedea ce fel de luptator esti!")
            say("...")
            say("Noua ta cerinta, este sa lupti!")
            say("Pentru fiecare lupta, vei primi un punct PvP.")
            say("Iar pentru, punctele adunate, vei cate o recompensa care iti va imbunatati calitaea de luptator.")
            say_reward("50 puncte PvP = +1000% tare impotriva semi-oamenilor")
            say_reward("1 puncte PvP = + 5000 Puncte Vitale")
            say_reward("1 puncte PvP = + 5% tare impotriva semi-oamenilor")
            say_reward("1 puncte PvP = + 1500 Puncte Vitale")
            pc.setqf("level", 1)
        end
        when kill with nu ai pentru ce
.is_pc() begin
            if get_time
() < pc.getqf("kill_time") then 
                chat
("Cele 2 min. nu au trecut inca.")
                chat("Nu vei obtine nici un punct.")
                return
            end    
            chat
("Ai obtinut un punct. Te felicit! ")
            chat("Poti obtine cate un punct la fiecare 2 minute.")
            chat("Acum ai : "..pc.getqf("kill_punkte").." puncte.")
            pc.setqf("kill_punkte", pc.getqf("kill_punkte")+1)
            pc.setqf("kill_time", get_time() + 60*2) 
            if pc
.getqf("kill_punkte") == 50 then
                affect
.add_collect(apply.ATTBONUS_HUMAN,3,60*60*24*365*60)
                say("Ai reusit, ai adunat 1 puncte PvP.")
                say("Taria impotriva semi-oamenilor a crescut cu 3(%) procente.")
            elseif pc.getqf("kill_punkte") == 1 then
                affect
.add_collect(apply.MAX_HP,500,60*60*24*365*60)
                say("Ai reusit, ai adunat 1 puncte PvP.")
                say("Punctele tale vitale au crescut cu 500.")
            elseif pc.getqf("kill_punkte") == 200 then
                affect
.add_collect(apply.ATTBONUS_HUMAN,5,60*60*24*365*60)
                say("Ai reusit, ai adunat 200 puncte PvP.")
                say_reward("...")
                say_reward("Taria impotrva semi-oamenilor a crescut cu 5(%) procente.")
            elseif pc.getqf("kill_punkte") == 500 then
                affect
.add_collect(apply.MAX_HP,1500,60*60*24*365*60)
                say("Ai reusit, ai adunat 1 puncete PvP.")
                say("Punctele tale vitale au crescut cu 1500.")
            end
        end
    end
end


        game
.set_event_flag("Grotte_zugang",0)
        end
        if pc
.is_gm() or pc.count_item(80041) >= 1 then
        say_title
(""..mob_name(30123).."")
        say("Bun venit "..pc.get_name().."")
        say("Nu ai nevoie nici de chei nici de parola")
        say("esti GM poti intra cand vrei.")
        wait()
        pc.warp(826400, 1063800)
        return
        end
        if game
.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) < 3 then
        say_title
(""..mob_name(30123).."")
        say_reward("Pentru a intra în templul lui Beran,")
        say_reward("ai nevoie de "..item_name(30179).."")
        say_item_vnum(30179)
        say_reward("Această cheie răsucită pică la Căpitanul Setaou.")
        say_reward("Ai nevoie de trei Chei Răsucite pentru a intra.")
        return
        end
        if game
.get_event_flag("Grotte_zugang") == 1 then
        say_title
(""..mob_name(30123).."")
        pc.setqf("grotte_passworto", 078954687921)
        if pc.getqf("abgabe") == 1 then
        pc
.setqf("abgabe",0)
        say("Ai cele trei Chei Răsucite.")
        say("Te voi teleporta imediat în camera de cristal.")
        pc.setqf("erlaubt",1)
        wait()
        pc.warp(826400, 1063800)
        return
        end
        say
("Introdu codul ales de liderul grupului.")
        local passwort = tonumber(input(""))
        --pc.setqf("grotte_passworto", passwort) 
        if game
.get_event_flag("Grotte_passwort") == passwort then
        say_title
(""..mob_name(30123).."")
        say("Ai introdus codul corect.")
        if pc.count_item(30179) < 3 then
        say
("Nu te pot teleporta deoarece nu ai")
        say(""..item_name(30179).."")
        say_item_vnum(30179)
        say("Ai nevoie de cele trei Chei Răsucite.")
        return
        end
        say
("Te voi teleporta imediat.")
        pc.setqf("erlaubt",1)
        wait()
        if pc.can_warp() then   
     pc
.remove_item("30179",3) end
        pc
.warp(826400, 1063800)
        elseif passi != pc.getqf("grotte_passworto") then
        say_title
(""..mob_name(30123).."")
        say("")
        return
        end
        end
        if game
.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) >= 3 then
        say_title
(""..mob_name(30123).."")
        say("Deţin în mine, ultima suflare a zului dragon.")
        say("Această suflare magică te pot ajuta să mergi în")
        say_reward("Camera de cristal.")
        say("")
        say("Ai nevoie de cele trei chei răsucite.")
        local i = select("Da, Vreau", "Nu, Mulţumesc")
        if 1 == i then
        say_title
(""..mob_name(30123).."")
        say("Ai nevoie de un cod pentru tine şi grupul tău.")
        say("Codul pe care îl vei introduce, va trebui să ")
        say("conţină maxim 2 cifre.")
        local passwort = tonumber(input(""))
        if passwort and passwort <= 999999999 and pc.count_item(30179)>=1 then
        game
.set_event_flag("Grotte_zugang",1)
        game.set_event_flag("Grotte_passwort",passwort)
        local times = get_time() + 300 --Wartezeit
        game
.set_event_flag("Grotte_time", times)
        say_title(""..mob_name(30123).."")
        pc.setqf("abgabe",1)
        say("Parola aleasa este: "..passwort.."")
        notice_in_map("[Pocal Magic]:Parola camerei alese este "..passwort.." ")
        pc.remove_item("30179",3)
        else 
        say_title
(""..mob_name(30123).."")
        say("Nu ai scris codul corect.")
        end
        end
        end
        end
    when login with pc
.get_map_index() == 189 and not pc.is_gm() begin
        if pc
.count_item("80041") >= 1 then chat("") return end
        if pc
.get_level() < 75 or pc.getqf("erlaubt") == 0 and pc.get_map_index() == 189 then
         chat
("")
            warp_to_village()
        end
        notice_in_map
("[Camera de cristal]:Bun venit în camera de cristal ! Începem prima sarcină a voastră.")
        notice_in_map("[Camera de cristal]:Spargeţi toate metinele, si aflaţi care este metinul corespunzător.")
        pc.set_warp_location(73 , 1825, 12207)
        end
    when 8031
.kill with pc.get_map_index() == 189 begin
        timer
("skipia_boss_goo", 10)
        notice_in_map("[Camera de cristal]:Aţi spart metinul corespunzător.")
     notice_in_map("[Camera de cristal]:Îl veţi întâlni pe Beran-Setaou. Ce veţi face ?")
     d.kill_all()
        end
    when skipia_boss_goo
.timer begin
        game
.set_event_flag("Grotte_zugang",0)
        d.new_jump_all(189, 8264, 10638)
        d.setf("grotte_boss", 1)
        d.spawn_mob(9012, 64, 142)
        end
    when 8031
.kill or 8032.kill or 8033.kill or 8034.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
    local n 
=d.getf("count") + 1
    d
.setf("count", n) 
    notice_in_map
("[Camera de cristal]:Aţi spart până acum "..n.." metine.")
    if n > 2 then
    local t 
= number(1,4)
    notice_in_map("[Camera de cristal]:Beran-Setaou este foarte furios.")
    notice_in_map("[Camera de cristal]:Cheama şi mai multe metine.")
    if 1 == t then
    d
.regen_file("data/dungeon/skia_boss1.txt")
    elseif 2 == t then
    d
.regen_file("data/dungeon/skia_boss2.txt")
    elseif 3 == t then
    d
.regen_file("data/dungeon/skia_boss3.txt")
    else
    d
.regen_file("data/dungeon/skia_boss4.txt")
    end
    end
    end
    when 2493
.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
        d
.setf("grotte_boss", 3)
        notice_all("Cu o ultimă suflare de speranţă liderul "..pc.get_name().."")
        notice_all("Urmat de războinici lui de încredere, au reuşit să învingă Dragonul Albastru.")
        timer("skipia_boss_end", 60)
        d.spawn_mob(9012, 64, 142)
        d.kill_all()
        d.clear_regen()
        end

    when login with pc
.in_dungeon() and d.getf("grotte_boss") == 2 begin
    pc
.set_warp_location(73 , 1825, 12207)
    end
    when login with pc
.in_dungeon() and d.getf("grotte_boss") == 1 begin
        timer
("skipia_boss_end", 3600)    
        d
.set_regen_file("data/dungeon/skia_boss.txt")
        local t = number(1,4)
        if 1 == t then
            d
.regen_file("data/dungeon/skia_boss1.txt")
            elseif 2 == t then
            d
.regen_file("data/dungeon/skia_boss2.txt")
            elseif 3 == t then
            d
.regen_file("data/dungeon/skia_boss3.txt")
            else
            d
.regen_file("data/dungeon/skia_boss4.txt")
        end
        local o 
= number(1,4)
        if 1 == o then
            d
.regen_file("data/dungeon/skia_boss5.txt")
            elseif 2 == o then
            d
.regen_file("data/dungeon/skia_boss6.txt")
            elseif 3 == o then
            d
.regen_file("data/dungeon/skia_boss7.txt")
            else
            d
.regen_file("data/dungeon/skia_boss8.txt")
            end    
        d
.setf("grotte_boss", 2)
        d.notice("[Camera de cristal]:Aveţi la dispozitie 60 de minute să îi capturaţi sufletul lui Beran.")
        d.setf("count", 0)
        pc.set_warp_location(73 , 1825, 12207)
        end

    when login with pc
.in_dungeon() and d.getf("grotte_boss") == 3 begin -- begin
    
--pc.warp(181700, 1220600)
    end
    when skipia_boss_end
.timer begin
        d
.exit_all()
        end
    when skipia_boss_ende
.timer begin
        kill_all_in_map
(189)
        game.set_event_flag("Grotte_zugang",0)
        d.setf("grotte_boss", 1)
        d.exit_all()
    end
    when login with pc
.get_map_index() != 189 or not pc.in_dungeon() begin
    pc
.setqf("erlaubt",0)
    end
    end
end  
[/code][/install][/spoiler]



11 etaje dt :


Adaugă în linie, înainte de

Cod: Selectaţi tot

quest deviltower_zone begin
    state start begin
    when login begin
        if pc
.get_map_index() == 66 then
        
-- Nicht in einer Etage, die wieder nach drauˇĽn .
        -- Layer Range 
        
-- 1F   88  577  236 737
        
-- 2F   91  343  238 504
        
-- 3F  104  107  248 269
        if pc
.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then
            pc
.warp((5376+532)*100, (512+596+4)*100, 65)
        end
        pc
.set_warp_location(65, 5376+532, 512+596+4)
        elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
        pc
.set_warp_location(65, 5376+532, 512+596+4)
        end
    end
    when deviltower_man
.chat.locale.deviltower_man_chat begin
        if pc
.get_level() < 40 then
        say
(locale.deviltower_man_say_you_cant)
        else
        say
(locale.deviltower_man_say)
        local s = select(locale.deviltower_enter,locale.deviltower_no_enter)
        if s == 1 then
            
-- warp into!
            pc.warp(216500,727000)
        end
        end
    end
    when devil_stone1
.kill begin
        timer
("devil_stone1_1", 6)
    end
    when devil_stone1_1
.timer begin
        local mapto7
= pc.count_item(30302)  -- Ich weiß nicht, das wahre Tilgung der die Existenz der Seele des Turms 
        pc
.remove_item(30302,mapto7)

        local boxto7= pc.count_item(30300)  -- Beseitigung des unbekannten weiß nicht, ob es sich um ein Feld 
        pc
.remove_item(30300,boxto7)

        d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])
        d.regen_file("data/dungeon/deviltower2_regen.txt")
        d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/deviltower3_regen.txt")
    end
    
--when devil_stone2.kill begin
    
--d.jump_all_local(special.devil_tower[2][1], special.devil_tower[2][2])
    --end
    when devil_stone3
.kill begin
        
--d.jump_all_local(special.devil_tower[3][1], special.devil_tower[3][2])
        --d.set_exit_all_at_eliminate(6)
        --d.set_warp_at_eliminate(6, d.get_map_index(), 100, 100)
        --d.set_warp_at_eliminate(4, 65, 5376+532, 512+596+4)
        d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[3][1], special.devil_tower[3][2], "data/dungeon/deviltower4_regen.txt")
        d.check_eliminated()
        --d.exit_all()
    end
    function get_4floor_stone_pos
()
        local positions = {
        {368, 629},
        {419, 630},
        {428, 653},
        {422, 679},
        {395, 689},
        {369, 679},
        {361, 658},
        }
        for i = 1, 6 do
        local j 
= number(i, 7)
        if i != j then
            local t 
= positions[i];
            positions[i] = positions[j];
            positions[j] = t;
        end
        end
        
--for i = 1, 7 do
    
--    positions[i][1] = positions[i][1] * 100
    
--    positions[i][2] = positions[i][2] * 100
     
--   end
        return positions
    end
    when 8016
.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        d
.setf("level", 4)
        -- Reproduzieren eine groˇĽ Anzahl von Monstern und Herstellung von wahr und falsch Steine Steine 
        
--d.regen_file("data/dungeon/deviltower4_regen.txt")
        local positions = deviltower_zone.get_4floor_stone_pos()
        for i = 1, 6 do
        chat
(positions[i][1], positions[i][2])
        d.set_unique("fake" .. i , d.spawn_mob(8017, positions[i][1], positions[i][2]))
        end
        chat
(positions[7][1], positions[7][2])
        local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
        chat(vid)
        d.set_unique("real", vid)
        server_loop_timer('devil_stone4_update', 10, pc.get_map_index())
        server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())

        d.notice("Aici este al 4-lea etaj");
        d.notice("gaseste adevarata piatra.");
        d.notice("in terment de maxim 15 minute.");
    end

    when devil_stone4_fail1
.server_timer begin
        if d
.select(get_server_timer_arg()) then
        d
.notice("10 minute!")
        server_timer('devil_stone4_fail2', 5*60, get_server_timer_arg())
        end
    end

    when devil_stone4_fail2
.server_timer begin
        if d
.select(get_server_timer_arg()) then
        d
.notice("5 minute!")
        server_timer('devil_stone4_fail', 5*60, get_server_timer_arg())
        end
    end

    when devil_stone4_fail
.server_timer begin
        if d
.select(get_server_timer_arg()) then
        d
.notice("Timpul a expirat!")
        d.exit_all()
        clear_server_timer('devil_stone4_update', get_server_timer_arg())
        end
    end

    when devil_stone4_update
.server_timer begin
        if d
.select(get_server_timer_arg()) then
        if not d
.is_unique_dead("real") then
            for i 
= 1, 6 do
            if d
.getf("fakedead" .. i) == 0 then
                if d
.unique_get_hp_perc("fake" .. i) < 50 then
                d
.purge_unique("fake" .. i)
                d.setf("fakedead" .. i, 1)
                d.notice("Piatra metin dispare.");
                end
            end
            end
        else
            
--d.clear_regen()
            --d.regen_file("data/dungeon/deviltower5_regen.txt")
            server_timer("devil_stone4_end", 5, get_server_timer_arg())
            d.notice("Felicitari a-ti reusit!");
            d.notice("Trece-ti la etajul urmator!")
            clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
            clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
            clear_server_timer('devil_stone4_fail', get_server_timer_arg())
        end
        else
        server_timer
('devil_stone4_stop_timer', 1, get_server_timer_arg())
        end
    end

    when devil_stone4_stop_timer
.server_timer begin
        clear_server_timer
('devil_stone4_update', get_server_timer_arg())
    end

    when devil_stone4_end
.server_timer begin
        if d
.select(get_server_timer_arg()) then
        d
.setf("level", 5)
        d.setf("stone_count", 5)
        d.notice("Etajul 5!")
        d.notice("Omoara toti monstrii, iar de la acestia pica niste chei!")
        d.notice("Gaseste cheia cea buna pentru a trece la nivelul urmator!")
        d.notice("Cu ajutorul acestor chei vei putea ajunge la nivelul 6!(ai 20 de minute)")
        d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
        server_timer('devil_stone5_fail1', 5*60, get_server_timer_arg())
        clear_server_timer('devil_stone4_update', get_server_timer_arg())

        -- 5. Stock, weiter zu reproduzieren 
        d
.set_regen_file("data/dungeon/deviltower5_regen.txt")

        -- 5. Stock, Seal Stone Reproduktion 
        d
.spawn_mob(20073, 421, 452)
        d.spawn_mob(20073, 380, 460)
        d.spawn_mob(20073, 428, 414)
        d.spawn_mob(20073, 398, 392)
        d.spawn_mob(20073, 359, 426)
        end
    end
    when devil_stone5_fail1
.server_timer begin
        if d
.select(get_server_timer_arg()) then
        d
.notice("15 minute!")
        server_timer('devil_stone5_fail2', 5*60, get_server_timer_arg())
        end
    end

    when devil_stone5_fail2
.server_timer begin
        if d
.select(get_server_timer_arg()) then
        d
.notice("10 minute!")
        server_timer('devil_stone5_fail3', 5*60, get_server_timer_arg())
        end
    end

    when devil_stone5_fail3
.server_timer begin
        if d
.select(get_server_timer_arg()) then
        d
.notice("5 minute!")
        server_timer('devil_stone5_fail', 5*60, get_server_timer_arg())
        end
    end

    when devil_stone5_fail
.server_timer begin
        if d
.select(get_server_timer_arg()) then
        d
.notice("Timpul a expirat!")
        d.exit_all()
        end
    end

    
--when devil_stone4.kill begin
        
--d.setf("level", 5)
        --d.setf("stone_count", 4)
        --d.clear_regen()
        --d.regen_file("data/dungeon/deviltower5_regen.txt")
        --d.jump_all_local(special.devil_tower[4][1], special.devil_tower[4][2])
    --end

    when 1062
.kill with pc.in_dungeon() and d.getf("level") == 5 begin
        local KILL_COUNT_FOR_DROP_KEY 
= 50
        
--if is_test_server() then
        
--KILL_COUNT_FOR_DROP_KEY = 1
        
--end
        local n 
=d.getf("count") + 1
        d
.setf("count", n) 
        if n 
== KILL_COUNT_FOR_DROP_KEY then
        
-- Falling Tasten 
        game
.drop_item(50084, 1)
        d.setf("count", 0)
        end
    end
    when devil_stone5
.take with item.vnum == 50084 begin
        npc
.purge()
        item.remove()
        d.setf("stone_count", d.getf("stone_count") - 1)
        if d.getf("stone_count") <= 0 then
        d
.setf("level", 6)
        d.clear_regen()
        d.regen_file("data/dungeon/deviltower6_regen.txt")

        d.notice("Felicitari!")
        d.notice("Vei urca la etajul urmator.")
        d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
        clear_server_timer('devil_stone5_fail1', get_server_timer_arg())
        clear_server_timer('devil_stone5_fail2', get_server_timer_arg())
        clear_server_timer('devil_stone5_fail3', get_server_timer_arg())
        clear_server_timer('devil_stone5_fail', get_server_timer_arg())
        else
        d
.notice("Coloana eliminate ... mai ai"..d.getf("stone_count").."Mult noroc!")
        end
    end

    when devil_stone6
.kill begin
        
-- Geschickt, um eine Karte, wo die Verfeinerung St. 
        
-- Ansonsten ˇĽfnen Sie ein neues Lian Sheng 
        
--d.jump_all(special.devil_tower[6][1], special.devil_tower[6][2])
        d.kill_all()
       -- d.set_warp_at_eliminate(3*60, 65, 5376+532, 512+596+4)
        d.check_eliminated()
        local reward_alchemist = {20074, 20075, 20076}
        d.spawn_mob(reward_alchemist[number(1,3)], 425, 216);
        d.setqf("can_refine", 1)
    end

    
--------------------------------------
    -- 7 D kommt man aus dem Zugriff vor dem 8. Stock 
    
--------------------------------------

    when 20074.chat."Die Oberen Stockwerke" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        say
(""..mob_name(20074).."")
        say("Doriti sa trece-ti mai departe?")
        say("")
        say("Eu unul voi ramane aici!")
        say("")
        wait()
        if pc.level >=75 then
            say
("Sunteti cel putin suficient de mare in level.")
            say("Dar sunteti, de asemenea, suficient de curajos?")
            say("Exista o singura metoda de a afla acest lucru!")
            timer("devil_jump_7", 6)
            return
        end
        say
("Sunteti din pacate, nu înca")
        say("suficient de mari sa creasca în continuare")
        say("Exercitarea un pic si apoi se întoarce.")
        say("Mult noroc in calatoria voastra.")
        say("")
        wait()
        pc.warp(590500, 110500)
        return
    end
    when 20075
.chat."Mit Bezug auf den oberen Turm .." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        say
(""..mob_name(20075).."")
        say("Doriti sa trece-ti mai departe?")
        say("")
        say("Eu voi ramane aici!")
        say("")
        wait()
        if pc.level >=75 then
            say
("Sunteti cel putin suficient de mare in level.")
            say("Dar sunteti, de asemenea, suficient de curajos?")
            say("Exista o singura metoda de a afla acest lucru!")
            timer("devil_jump_7", 6)
            return
        end
        say
("Sunteti din pacate, nu înca")
        say("suficient de mari sa creasca în continuare")
        say("Exercitarea un pic si apoi se întoarce.")
        say("Mult noroc in calatoria voastra.")
        say("")
        wait()
        pc.warp(590500, 110500)
        return
    end
    when 20076
.chat."Mit Bezug auf den oberen Turm .." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        say
(""..mob_name(20076).."")
        say("Doriti sa trece-ti mai departe?")
        say("")
        say("Eu voi ramane aici!")
        say("")
        wait()
        if pc.level >=75 then
            say
("Sunteti cel putin suficient de mare in level.")
            say("Dar sunteti, de asemenea, suficient de curajos?")
            say("Exista o singura metoda de a afla acest lucru!")
            timer("devil_jump_7", 6)
            return
        end
        say
("Sunteti din pacate, nu înca")
        say("suficient de mari sa creasca în continuare")
        say("Exercitarea un pic si apoi se întoarce.")
        say("Mult noroc in calatoria voastra.")
        say("")
        wait()
        pc.warp(590500, 110500)
        return
    end

   when devil_jump_7
.timer begin
        d
.clear_regen()

        d.spawn_mob(8018, 639, 658)
        d.spawn_mob(8018, 611, 637)
        d.spawn_mob(8018, 596, 674)
        d.spawn_mob(8018, 629, 670)

        d.setf("level", 7)

        d.jump_all(2048+590, 6656+638)
    end
    
    when 8018
.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        local cont 
= d.getf("7_stone_kill") + 1
        d
.setf("7_stone_kill", cont)

        if cont >= 4 then
            d
.setf("7_stone_kill", 0)
            d.set_regen_file("data/dungeon/deviltower7_regen.txt")
        end    
    end

    when 8019
.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        game
.drop_item(30300, 1)
    end

    when 30300
.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        pc
.remove_item("30300", 1)

        local pct = number(1,10)

        if pct == 1 then
            
-- Fall wahr Karte
            game
.drop_item(30302, 1)
            d.clear_regen()
        else
            
-- Fall wahr Karte
            game
.drop_item(30301, 1)
            
        end
    end

    when 30302
.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        
-- An der 8th Floor 
        say
("Vei fi teleportat in pestera Zin.Mult noroc in continuare!")
        pc.remove_item("30302", 1)
        timer("devil_jump_8", 6)
        d.clear_regen()
    end
                        
    
--------------------------------------------
    -- Von 8 F vor der Ankunft geben Sie die 9 F 
    
--------------------------------------------
    when devil_jump_8.timer begin
        d
.setf("level", 8)
        d.jump_all(2048+590, 6656+403)
        d.set_regen_file("data/dungeon/deviltower8_regen.txt")
        d.spawn_mob(20366, 640, 460)
        local _count= pc.count_item(30302)-- True Tilgung Dead Turm 
        pc
.remove_item(30302,_count)
        
    end

    when 1040
.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        local pct1 
= number(1, 5)
        if pct1 == 1 then
            local pct2 
= number(1, 10)
            if pct2 == 1 then
                
-- Fall wahre SchlˇĽsel 
                game
.drop_item(30304, 1)
            else
                
-- Keys fiel 
                game
.drop_item(30303, 1)
            end
        else
            return
        end
    end

    when 20366
.take with item.vnum == 30304 begin
        
-- 9 F-Zeichen aufgehoben 
        npc
.purge()
        item.remove()
        timer("devil_jump_9", 6)
    end

    
---------------------------------------------
    -- 9 F ein Ende, indem Sie 
    
---------------------------------------------
    when devil_jump_9.timer begin
        d
.setf("level", 9)
        d.jump_all(2048+590, 6656+155)
        d.regen_file("data/dungeon/deviltower9_regen.txt")
    end

    when 1093
.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        d
.kill_all()
        timer("devil_end_jump", 10)
        d.notice("Felicitari!")
        d.notice("Ai ucis pe Grim Reaper!")
        d.notice("Acum, veti ajunge la stagiul urmator, ucide demon rege!")
    end

    when devil_end_jump
.timer begin
        d
.setf("level", 7)
        d.jump_all(2048+590, 6656+638)
        d.clear_regen()
        d.spawn_mob(1094, 639, 658)
    end
    
    when 1094
.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        d
.notice("Felicitari!")
        d.notice("Ai ucis soldatii regelui demon!")
        d.notice("Acum, veti ajunge la etajul urmator, Demon albastru!")
        d.kill_all()
        timer("devil_end_jump_schmied", 10)
    end

    when devil_end_jump_schmied
.timer begin
        d
.setf("level", 9)
        d.jump_all(2048+590, 6656+155)
        d.clear_regen()
        d.spawn_mob(1095, 605, 178)
    end
    
    when 1095
.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        notice_all
("".. pc.get_name() .." Felicitari ai ucis demonul!")
        notice_all("Felicitari inca odata!")
        d.notice("")
        d.notice("Ai ucis Demonul Albastru!")
        d.notice("Ca o recompensa iti va aparea toti cei 3 fierari din acest turn!")
        d.check_eliminated()
        local reward_alchemist = {20074, 20075, 20076}
        d.spawn_mob(20074, 609, 179);
        d.spawn_mob(20075, 609, 172);
        d.spawn_mob(20076, 609, 185);
        d.spawn_mob(9012, 619, 170);
        d.setqf("can_refine", 1)
    end
end
end

Paa .



lingouri
Instrucţiuni DIY

Cod: Selectaţi tot

quest barren begin
    state start begin
    
                when 80007
.use begin
                say_title
("Lingou aur 1 miliard (1kkk)")
                say("Valoarea acestui lingou este 1 miliard (1kkk)")
                say("Ai posibilitatea sa-l transformi in yang.")
                say("Lingoul va disparea,dupa ce primesti banii.")
                say("")
                say_reward("Esti sigur ca vrei sa-l transformi in bani?")
                local s = select("Desigur,am nevoie..", "Nu")
    
                if s 
== 1 and pc.count_item(80007) and pc.get_gold()<=999999999 then
                pc
.change_money(999999999)
                pc.remove_item(80007)
                elseif s == 1 and pc.get_gold()>=999999999 then
                say
("Ai prea mult yang in inventar!")
                say("Poti purta la tine doar 2kkk (2 miliarde)!")
                say_reward("Schimba-l cand ai spatiu suficient")
                elseif s == 1 and pc.count_item(80007)==0 then
                say
("Schimbarea a reusit,esti mai bogat cu un miliard!")
                say_reward("Nu ezita,cand mai ai,schimba-l in bani")
                end
    
                if s 
== 2 then
                return
                end
            end
            
                when 80005
.use begin
                say_title
("Lingou aur 100 milioane (100kk)")
                say("Valoarea acestui lingou este 100 milioane (100kk)")
                say("Ai posibilitatea sa-l transformi in yang.")
                say("Lingoul va disparea,dupa ce primesti banii.")
                say("")
                say_reward("Esti sigur ca vrei sa-l transformi in bani?")
                local s = select("Desigur,am nevoie..", "Nu")
    
                if s 
== 1 and pc.count_item(80005) and pc.get_gold()<=1499999999 then
                pc
.change_money(100000000)
                pc.remove_item(80005)
                elseif s == 1 and pc.get_gold()>=1499999999 then
                say
("Poti purta la tine doar 2kkk (2 miliarde)!")
                say_reward("Schimba-l cand ai spatiu suficient!")
                elseif s == 1 and pc.count_item(80005)==0 then
                say
("Schimbarea a reusit,esti mai bogat cu 100 miliaone!")
                say_reward("Nu ezita,cand mai ai,schimba-l in bani")
                end
    
                if s 
== 2 then
                return
                end
            end
                
                when 80004
.use begin
                say_title
("Lingou argint 50 milioane (50kk)")
                say("Valoarea acestui lingou 50 milioane (50kk)")
                say("Ai posibilitatea sa-l transformi in yang.")
                say("Lingoul va disparea,dupa ce primesti banii.")
                say("")
                say_reward("Esti sigur ca vrei sa-l transformi in bani?")
                local s = select("Desigur,am nevoie..", "Nu")
                
                if s 
== 1 and pc.count_item(80004) and pc.get_gold()<=1899999999 then
                pc
.change_money(50000000)
                pc.remove_item(80004)
                elseif s == 1 and pc.get_gold()>=1899999999 then
                say
("Poti purta la tine doar 2kkk (2 miliarde)!")
                say_reward("Schimba-l cand ai spatiu suficient!")
                elseif s == 1 and pc.count_item(80004)==0 then
                say
("Schimbarea a reusit,esti mai bogat cu 50 milioane!")
                say_reward("Nu ezita,cand mai ai,schimba-l in bani")
                end
    
                if s 
== 2 then
                return
                end
            end
        
        when 80006
.use begin
                say_title
("Lingou aur 500 milioane (500kk)")
                say("Valoarea acestui lingou este 500 milioane (500kk)")
                say("Ai posibilitatea sa-l transformi in yang.")
                say("Lingoul va disparea,dupa ce primesti banii.")
                say("")
                say_reward("Esti sigur ca vrei sa-l transformi in bani?")
                local s = select("Desigur,am nevoie..", "Nu")
    
                if s 
== 1 and pc.count_item(80006) and pc.get_gold()<=999999999 then
                pc
.change_money(500000000)
                pc.remove_item(80006)
                elseif s == 1 and pc.get_gold()>=999999999 then
                say
("Ai prea mult yang in inventar!")
                say("Poti purta la tine doar 2kkk (2 miliarde)!")
                say_reward("Schimba-l cand ai spatiu suficient")
                elseif s == 1 and pc.count_item(80006)==0 then
                say
("Schimbarea a reusit,esti mai bogat cu 500 milioane!")
                say_reward("Nu ezita,cand mai ai,schimba-l in bani")
                end
    
                if s 
== 2 then
                return
                end
            end
            when 80003
.use begin
                say_title
("Lingou argint 10 milioane (10kk)")
                say("Valoarea acestui lingou este 10 milioane (10kk)")
                say("Ai posibilitatea sa-l transformi in yang.")
                say("Lingoul va disparea,dupa ce primesti banii.")
                say("")
                say_reward("Esti sigur ca vrei sa-l transformi in bani?")
                local s = select("Desigur,am nevoie..", "Nu")
    
                if s 
== 1 and pc.count_item(80003) and pc.get_gold()<=999999999 then
                pc
.change_money(10000000)
                pc.remove_item(80003)
                elseif s == 1 and pc.get_gold()>=999999999 then
                say
("Ai prea mult yang in inventar!")
                say("Poti purta la tine doar 2kkk (2 miliarde)!")
                say_reward("Schimba-l cand ai spatiu suficient")
                elseif s == 1 and pc.count_item(80003)==0 then
                say
("Schimbarea a reusit,esti mai bogat cu 10 milioane!")
                say_reward("Nu ezita,cand mai ai,schimba-l in bani")
                end
    
                if s 
== 2 then
                return
                end
            end
           end 
    end

Trebuie să fii logat sau înregistrat pentru a vedea acest link.
Imagine

Deconectat
Avatar utilizator
MenDarK
Mister Just4Metin
Mister Just4Metin
Mesaje: 988
Membru din: 27 Iul 2013
Localitate: Bucureşti .
Reputație: Moderator [1.55/3.0]
Fost Trial Moderator
Fost Super Moderator
Tehnician
Status: Nu Mai JOC !
Server Metin2: Nu Mai JOC !
Regat: Shinsoo
Mulțumiri acordate: 0
Mulțumiri primite: 2
Contact:

Re: 6 questuri create de mine Pentru Metin

Mesajde MenDarK » 11 Iul 2015, 19:16

Mutat in sectiunea corespunzatoare.

Deconectat
Avatar utilizator
florinst56
Nivel 2
Nivel 2
Mesaje: 170
Membru din: 29 Aug 2014
Status: Http://Zenon.Mtn2.Ro
Server Metin2: http://zenon.mtn2.ro
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: 6 questuri create de mine Pentru Metin

Mesajde florinst56 » 14 Iul 2015, 18:01

Foarte bun

-- Mar Iul 14, 2015 6:02 pm --

Edit : nu merge
Cauti un server de Metin2 deschis recent ?
-Level 105
-Bonusuri fixe
-Switchbot implementat
-Iteme noi
-Sisteme noi
Hai si tu pe Trebuie să fii logat sau înregistrat pentru a vedea acest link.
Descrierea completa http://just4metin.ro/servere-hostate/mt ... 26943.html

Deconectat
Avatar utilizator
[RaffaeL]
Helper
Helper
Mesaje: 610
Membru din: 19 Mar 2016
Localitate: Almeria ,Spania
Reputație: ==================
► Helper J4M
==================
►Fost Trial Helper J4M
==================
► Mister J4M
==================
►Nume anterior: Mutant
==================
Status: Incerc sa ajut,cum stiu,cum pot..pe toti
Server Metin2: http://airis2.com
Mulțumiri acordate: 0
Mulțumiri primite: 107
Contact:

Re: 6 questuri create de mine Pentru Metin

Mesajde [RaffaeL] » 31 Ian 2017, 01:55

Sunt create sau traduse de tine?
Cand faci bine,nu este bine;Cand faci rau,tot nu e bine;
Daca incerci sa ajuti,toti zic:..."Üite si pe asta e destept"
Eu oricum incerc,dar daca si reusesc,unImagine nu strica.


Înapoi la “Quest-uri”

Cine este conectat

Utilizatori ce ce navighează pe acest forum: anormal12, R00tKyDDu și 3 vizitatori