Back to Piciul- [Legacy 3554]'s profile
Piciul- [Legacy 3554]

Posts by Piciul- [Legacy 3554]

933 posts

  1. #381
    Reply in Gaming
    
    quest gara begin
        state start begin
            when login with pc.level > 59 begin
                send_letter("Just4Metin.ro-Ajutor pentru Yonah")
                local v = find_npc_by_vnum(20005)
               target.vid("__TARGET__", v, "Yonah")
            end
          
            when info or button begin
                say_title("Just4Metin.ro-Ajutor pentru Yonah")
                say("Yonah i-a spus grajdarului care ti-a trimis")
                say("aceasta scrisoare sa vii pana la el.Are sa")
                say("iti dea de lucru in olaria lui.")
                say("Vorbeste cu Yonah,este in prima harta")
                say("a regatului tau.")
            end
          
            when __TARGET__.target.click begin
               say_title("Yonah:")
                say("Salut "..pc.get_name().." .")
                say("Bine ai venit in olaria mea!")
                say("Familia mea duce de generatii intregi")
                say("arta olaritului.Din ne-atentie,")
                say("mi-am spart pretiosul Portelan Celadon.")
                say("E cristal pur,si pretios.Dar arta..ptua!")
                say_item("Portelan aurit","30204","")
                wait()
                say_title("Yonah:")
                say("De recuperat,este imposibil,insa,as putea")
                say("sa creez unul.Iti voi da o lista intreaga")
                say("cu materialele.Atentie,adumi-le in ordinea")
                say("in care ti le scriu pe lista.")
                say("Prima data am nevoie de scule pentru a-l")
                say("produce.Am nevoie de un vas de lemn.")
                say_item("Vas pentru olarit","30205","")
                wait()
                say_title("Yonah")
                say("Bine inteles,poti refuza aceasta sarcina.")
                say("Ajutorul nu e obligatoriu...")
                local s = select ("Te ajut.", "N-am timp..")
                if s == 1 then
                    say_title("Yonah:")
                    say("Intotdeuna ma pot baza pe tine.")
                    say("Incepe sa omori buturugi de lemn.")
                    say("Este materialul perfect pentru vasul meu")
                    target.delete("__TARGET__")
                    set_state(state2)
                elseif s == 2 then
                   say_title("Yonah:")
                    say("In acest caz..pacat.")
                    set_state(fail)
                    target.delete("__TARGET__")
                end
            end
        end
        state state2 begin
            when letter begin
                send_letter("Ucide buturugi.")
            end
          
            when info or button begin
                say_title("Ajutor pentru Yonah - Ucide buturugi")
                say("Yonah ti-a dat informatia ca si-a spart")
                say("portelanul preferat.Trebuie sa faci")
                say("mai intai,rost de un vas de lemn.Este")
                say("facut din lemn,deci poate gasesti la buturugi")
                say("Incearca si vezi daca resuesti sa faci rost")
                say("de lemn de la ele.")
            end
            when 2312.kill begin
               local n = number(0,100)
                if n == 1 then
                   notice("Aceasta buturuga contine lemn de calitate superioara!")
                    notice("Ai primit o bucata!")
                    pc.give_item2(50602, 1)
                    set_state(state3)
                else
                   notice("Aceasta buturuga are un lemn plin de ciuperci putrezite.")
                end
            end
        end
        state state3 begin
            when letter begin
                send_letter("Ai obtinut lemn.")
                local v = find_npc_by_vnum(20005)
               target.vid("Olar", v, "Yonah")
            end
          
            when info or button begin
                say_title("Ai obtinut lemn.")
                say("Ai obtinut o bucata de lemn!Ce lipicioasa e!")
                say("Numai buna pentru vasul in care trebuie sa")
                say("olareasca noul vas Yonah.")
            end
            when Olar.target.click begin
               if pc.count_item(50602) > 0 then
                   say_title("Yonah:")
                    say("Acest lemn este prelucrat foarte frumos.")
                    say("Imediat voi face un vas de lemn...")
                    say(". . .")
                    say(". . .")
                    say(". . .")
                    say("Vasul este gata!")
                    say("Acum am nevoie de ceva aur!Il vei gasii")
                    say("la grajdar.Spune-i ca i-am cerut eu.")
                    say_item_vnum(80008)
                    pc.remove_item(50602, 1)
                    target.delete("Olar")
                    set_state(state4)
                else
                   say_title("Yonah:")
                    say("In inventarul tau nu vad niciun lemn.")
                    say("Uite,cam asa arata:")
                    say_item_vnum(80008)
                    say("Unde l-ai pierdut?")
                end
            end
        end
        state state4 begin
            when letter begin
                send_letter("Indreapta-te catre grajdar.")
                local v = find_npc_by_vnum(20349)
               target.vid("Grajdar", v, "Ponei")
            end
          
            when info or button begin
                say_title("Obtine aur.")
                say("Ai obtinut o bucata de lemn!Ce lipicioasa e!")
                say("Numai buna pentru vasul in care trebuie sa")
                say("olareasca noul vas Yonah.Acum trebuie sa faci")
                say("rost de aur.Grajdarul te va ajuta!")
            end  
           when Grajdar.target.click begin
               say_title("Grajdar:")
                say("Pe prietenul meu Yonah?")
                say("Cum sa nu-l ajut !")
                say("Poftim,uite aici aurul.")
                pc.give_item2(80008, 1)
                say_item_vnum(80008)
                target.delete("Grajdar")
                set_state(state5)
            end
        end
        state state5 begin
            when letter begin
                send_letter("Ai obtinut aur.")
                local v = find_npc_by_vnum(20005)
               target.vid("__TARGET__22", v, "Yonah")
            end
          
            when info or button begin
                say_title("Ajutor pentru Yonah.")
                say("Ai obtinut bucata de aur.Acum putem")
                say("repara vasul de aur.Vorbeste cu")
                say("Yonah.")
            end      
            when __TARGET__22.target.click begin
               if pc.count_item(80008) > 0 then
                   say_title("Yonah:")
                    say("Perfect!Acum voi putea sa fac portelanul")
                    say("Trebuie sa mestec aurul..Oh,e gata!")
                    say_item("Portelanul auriu","70018","")
                    say("Multumesc")
                    wait()
                    say_title("Yonah:")
                    say("Acum,bine-meritata ta recompensa pentru ajutorul")
                    say("oferi mie.Iti multumesc,o zi buna!")
                    say("Ai primit 5000000 experienta")
                    say("Ai primit 50.000.000 yang.")
                    pc.remove_item(80008, 1)
                    pc.give_exp2(5000000)
                    pc.change_gold(50000000)
                    target.delete("__TARGET__22")
                    set_state(fail)
                else
                   say_title("Yonah:")
                    say("Nu ai bucata de aur...")
                    say_item_vnum(50626)
                end
            end
        end
        state fail begin
        end
    end   
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu rasplata.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc rasplata.quest

    5. Intraţi pe server şi scrieţi /reload q .

  2. #382
    [Resursă] Quest 500 Dueluri
    Reply in Gaming
    
    -------------------------------------------------------------------
    ---  Quest realizat de   ----
    -------------------------------------------------------------------
    quest dueluri begin
        state start begin
            when login with pc.level >= 90 begin
                set_state(player_kill)
            end
        end
    
        state player_kill begin
            when letter begin
                send_letter("500 Dueluri")
            end
    
            when button or info begin
                say_title("Experþi în dueluri !")
             say("")
          say("Salut ".. pc.get_name() ..", ai atins level 90, felicitãri!")
          say("Am o nouã misiune pentru tine care constã în,")
          say("câºtigarea a 500 de dueluri.")
                say("Demonstreazã-þi puterea ºi fã-te cunoscut !")
                say("Respectã regulile ºi fii corect.")
             say("")
             say("")
             say("")
                say_verde("Omoarã 500 jucãtori în duel,")
             say_verde("ºi vei primi o recompensã generoasã.")
                say("")
                pc.setqf("state", 500)
                q.set_counter("Dueluri rãmase:", 500)
             set_state (kill)
            end
       end
    
       state kill begin
          when letter begin
             send_letter("Dueluri Rãmase")
          end
          
          when button or info begin
          say("Salut ".. pc.get_name() ..", ai început duelurile?")
          say("Foarte bine !")
          say("")
          say_reward("ªi nu uita,")
                say("Demonstreazã-þi puterea ºi fã-te cunoscut !")
                say("Respectã regulile ºi fii corect.")
             say("")
             say("")
             say("")
             say_verde("Dueluri rãmase: "..pc.getqf("state").." ")
          end
    
    
            when kill begin
                if npc.is_pc() then
                local count = pc.getqf("state") - 1
                if count <= 500 then
                    pc.setqf("state", count)
                    q.set_counter("Dueluri restanþe:", count)
                end
                if count == 0 then
                    say_title("Felicitãri ai reuºit !")
                    say("Ai doborât 500 jucãtori în duel !")
                    say("Recompesã :")
                    say_verde("10% împotriva fiecãrei rase.")
                    affect.add_collect(apply.ATT_BONUS_TO_WARRIOR, 10, 60*60*24*365*60)
                    affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN, 10, 60*60*24*365*60)
                    affect.add_collect(apply.ATT_BONUS_TO_SURA, 10, 60*60*24*365*60)
                    affect.add_collect(apply.ATT_BONUS_TO_SHAMAN, 10, 60*60*24*365*60)
                notice_all("".. pc.get_name() ..", doborât 500 jucãtori în duel.")
                    clear_letter()
                    set_state(__COMPLETE__)
    
                end
            end
        end
        end
    
        state __COMPLETE__ begin
        end
    end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu dueluri.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc dueluri.quest

    5. Intraţi pe server şi scrieţi /reload q .

  3. #383
  4. #384
  5. #385
  6. #386
  7. #387
  8. #388
  9. #389
  10. #390
  11. #391
  12. #392
  13. #393
  14. #394
    Reply in Gaming
    
    -----------------------------------------------------------------------------------------------------------------
    -- Metin2
    --Quest realizat de
    -----------------------------------------------------------------------------------------------------------------
    quest companion begin
            state start begin
                    when login or levelup with pc.level >= 2 and pc.level <= 99 begin
                            set_state(information)
                    end
            end
            state information begin
          when letter begin
             send_letter("Ajutor!")
          end
    -----------------------------------------------------------------------------------------------------------------
       when info or button begin
    say_title ( "Salutare!" ) 
    say ( "" ) 
    say ( "Ajuta-ma te rog, am o mare problema!" ) 
    say ( "Un caine m-a muscat." ) 
    say ( "Prima ta sarcina este sa omori cainele blestemat" ) 
    say ( "" ) 
    say_reward ( "Ucide 20 Caini Salbatici." ) 
    say ( "" ) 
    pc . setqf ( "state" , 20 ) 
    q . set_counter ( "Caini Salbatici" , 20 ) 
    
       end
    -----------------------------------------------------------------------------------------------------------------
          when 101.kill begin
             local count = pc.getqf("state") - 1
             if count <= 100 then
                pc.setqf("state", count)
             q.set_counter("Caini Salbatici", count)
             end
             if count == 0 then
             say_title("Felicitari!")
             say("")
             say("Esti foarte rapid!")
             say("Multumesc mult pentru ajutor!")
             say("")
                say_reward("Recompensa:")
                say_reward("900.000 yang")
                say_reward("3.000 experienta.")
                say_reward("Sigiliu Omulet de zapada(Permanent).")
                say_reward("Care iti ofera 3.000PV si 20 tarie impotriva animalelor")
                pc.change_money(900000)
                pc.give_exp2(3000)
                pc.give_item2(53030,1)
                clear_letter()
                set_state(__companion__)
    -----------------------------------------------------------------------------------------------------------------
             end
          end
       end
    
       state __companion__ begin
       end
    end
    

    Tutorial instalare quest:

    • Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest

    • Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    • Îl puneţi acolo (să fie .quest sau .lua) şi da-ţi permisiuni 777.

    • Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/questapoi ./qc nume_quest.quest

    • Intraţi pe server şi scrieţi /reload q

  15. #395
    Reply in Gaming
    
    quest blazingpurgatory begin
        state start begin
          when 20394.chat."Fortareata Dragonului Rosu" with pc.get_map_index() == 62 begin
             say_title("Gardianul iadului")
             say("Zeul tuturor demonilor, Sung Mahi, s-a ridicat - sfarsitul umanitatii se apropie!")
             say("Puterile sale distrugatoare sunt inca slabite iar ochii sai inca vad in ceata.")
             say("Dar slujitorii acestuia nu vor avea odihna pana ce stapanul lor va reusi sa se")
             say("ridice contra umanitatii cu toate puterile sale.")
             say_reward("Esti pregatit sa il infrunti ?")
             if select("Da!","Nu") == 1 then
              if pc.get_level() >= 91 then
                pc.warp(776500,673200)
                else
                syschat("Nu esti destul de puternic. Revino cand ajungi la nivelul 91.")
              end
             else
             syschat("Revino cand esti pregatit")
             end      
          end
          
            when 20394.chat."Fortareata Dragonului Rosu" with pc.get_map_index() == 235 begin
                say_title("Gardianul iadului")
                say("Eu sunt paznicul grotei lui Razador,")
                say("zeul iadului, el ma tine sub sclavie")
                say("elibereazama si vei fi rasplatit")
                say("Ca sa'l poti distrugi trebuie sa-ti formezi")
                say("o echipa de luptatori curajosi")
                say("Voi fi alaturi de tine!")
                say("")
                wait()
                say_title("Gardianul Iadului")
                say("Razador are multi monstri sub sclavia lui,")
                say("ei vor fi mai greu de ucis daca esti singur,")
                say("dar daca ai o echpia va fi mult mai usor")
                say("Trebuie sa-ti zic ca el e foarte puternic")
                say("si drumul pana la el e foarte greu.")
                say("")
                wait()
                say_title("Gardianul Iadului")
                if pc.get_level() >= 91 then
                    if party.is_party() or pc.is_gm()  then
                        if party.is_leader() or pc.is_gm() then
                            if pc.count_item(71095) > 0 or pc.is_gm() then
                                say_reward("Vrei sa intri sa'l distrugi pe Razador?")
                                if select("Da!","Nu") == 1 then
                                    pc.remove_item(71095,1)
                                    d.join(235)
                                end
                            else
                                say_reward("Ai nevoie de itemul!")
                                say_item_vnum(71095)
                            end
                        else
                            say_reward("Trebuie sa fi tu liderul grupului!")
                        end
                    else
                        say_reward("Trebuie sa faci parte dintr-un grup!")
                    end
                else
                    say_reward("Trebuie sa ai nivelul 91!")
                end
            end
    
            when login with pc.get_map_index() >= 2350000 and pc.get_map_index() <= 2355000 begin
                say("Sper ca vati pregatit")
                say("de lupta cu Razador, Succes!")
                say("")
                if party.is_party() then
                    if party.is_leader() then
                        blazingpurgatory.start()
                    end
                else
                    if pc.is_gm() then
                        blazingpurgatory.start()
                    end
                end
            end
            
            function start()
                d.regen_file("data/dungeon/blazingpurgatory/blazingpurgatory_flamenpc.txt")
                d.setf("purgatory_gate_sequence",number(1,7))
                local sequence = {{1,2,3,4,5,6},{4,1,3,2,5,6},{2,5,3,1,4,6},{3,1,6,2,4,5},{5,3,2,4,6,1},{6,1,5,2,4,3},{6,3,5,3,1,4}}
                for i = 1, 6 do
                    d.regen_file("data/dungeon/blazingpurgatory/blazingpurgatory_gate_"..sequence[d.getf("purgatory_gate_sequence")][i]..".txt")
                end
                d.setf("acutal_round",0)
                d.setf("time", get_time()+60*60*1)
                server_timer("purgatorytime",3600,pc.get_map_index())
                server_loop_timer("purgatorytimenotice",300,pc.get_map_index()<= 2355000 )
                blazingpurgatory.NoticeTime()
            end            
            
            when purgatorytimenotice.server_timer begin
                if d.select(get_server_timer_arg()) then
                    blazingpurgatory.NoticeTime()
                end
            end
    
            when purgatorytime.server_timer begin
                if d.select(get_server_timer_arg()) then
                    d.notice("Ai la dispozitie!")
                    d.exit_all()
                end
            end
            
            when 20385.click with pc.get_map_index() >= 2350000 and pc.get_map_index() <= 2355000 and d.getf("block_altar") == 0 begin
                if d.getf("purgatory_level") == 7 then
                    d.setf("block_altar",1)
                    d.setf("actual_round",7)
                    d.notice("[Fortareata Dragonului Rosu]Felicitari ai terminat de facut prima parte ,")
                    d.notice("[Fortareata Dragonului Rosu]Lupta cu Razador va incepe esti pregatit!")
                    timer("warp_to_boss",5)
                else
                        
                    d.setf("purgatory_level",d.getf("purgatory_level")+1)
                    blazingpurgatory.purge()
                    blazingpurgatory.LoadStage()
                    d.setf("block_altar",1)
                    
                    blazingpurgatory.NoticeTime()
                    d.notice("[Fortareata Dragonului Rosu] O camera a fost deschisa !")
                end
            end
    
            when warp_to_boss.timer begin
                d.jump_all(8111,6864)
                d.notice("[Fortareata Dragonului Rosu]Razador")
                d.notice("[Fortareata Dragonului Rosu]Ma voi ridica din nou daca nu esti destul de puternic sa ma invingi!")
                d.set_regen_file("data/dungeon/blazingpurgatory/blazingpurgatory_monster_7.txt")
                blazingpurgatory.NoticeTime()
            end    
            
            when kill with pc.get_map_index() >= 2350000 and pc.get_map_index() <= 2355000 begin
                if d.getf("actual_round") == 1 or d.getf("actual_round") == 3 then
                    d.setf("kill_count_bp1",d.getf("kill_count_bp1") +1)
                    if d.getf("kill_count_bp1") == d.getf("bp_kill_to_next") then
                        d.notice("[Fortareata Dragonului Rosu] Revino la Altar pentru noua camera!")
                        blazingpurgatory.purge()
                    end
                elseif d.getf("actual_round") == 2 or d.getf("actual_round") == 5 then
                    d.setf("kill_count_bp",d.getf("kill_count_bp") +1)
                    if d.getf("kill_count_bp") == d.getf("kill_to_drop_key") then
                        game.drop_item_with_ownership(50084,50)
                        d.setf("kill_count_bp",0)
                    end
                elseif d.getf("actual_round") == 4 and npc.get_race() == 6009 then
                    if number(1,5) == 1 then
                        d.notice("[Fortareata Dragonului Rosu] Revino la Altar pentru noua camera!")
                        blazingpurgatory.purge()
                    end
                elseif d.getf("actual_round") == 6 and npc.get_race() == 8034 then
                    d.notice("[Fortareata Dragonului Rosu] Revino la Altar pentru noua camera!")
                    blazingpurgatory.purge()    
                elseif d.getf("actual_round") == 7 and npc.get_race() == 6091 then
                    d.notice("[Fortareata Dragonului Rosu]Felicitari lai invins pe Razador!")
                    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ã-l învingã pe Razador.")   
                local time = get_time()
                d.setqf2("blazingpurgatory","daily_razador_last_kill", time)
                d.setqf2("blazingpurgatory","daily_razador", 1)            
                    d.clear_regen()
                    d.kill_all()
                    d.spawn_mob(9012, 64, 142)
                end
            end
    
          when 20081.take with pc.get_map_index() >= 2350000 and pc.get_map_index() <= 2355000 begin
                if item.get_vnum() == 50084 then
                    if d.getf("actual_round") == 2 then
                        pc.remove_item(item.get_vnum(),1)
                        if number(1,8) == 1 then
                            npc.purge()
                            d.notice("[Fortareata Dragonului Rosu] Revino la Altar pentru noua camera!")
                            blazingpurgatory.purge()
                        else
                            syschat("Aceasta cheie nu a fost buna adu alta.!")
                        end
                    elseif d.getf("actual_round") == 5 then
                        local sequence = {{1,2,3,4,5,5},{4,3,2,1,5,5},{4,5,3,1,2,2},{5,3,4,2,1,1},{5,1,3,4,2,2}}
                        if blazingpurgatory.GetPillarID() == sequence[d.getf("sequence")][d.getf("pillarcount")] then
                            pc.remove_item(item.get_vnum(),1)
                            npc.purge()
                            d.setf("pillarcount", d.getf("pillarcount")+1)
                            if d.getf("pillarcount") == 6 then
                                d.notice("[Fortareata Dragonului Rosu] Revino la Altar pentru noua camera!")
                                blazingpurgatory.purge()
                            else
                                d.notice("[Fortareata Dragonului Rosu]Mai ai "..6-d.getf("pillarcount").." sigili de deschis!")
                            end
                        elseif blazingpurgatory.GetPillarID() == false then
                            syschat("Dute mai aproape si trage piatra cheie!")
                        elseif blazingpurgatory.GetPillarID() != sequence[d.getf("sequence")][d.getf("pillarcount")] then
                            pc.remove_item(item.get_vnum(),1)
                            syschat("[Fortareata Dragonului Rosu]Nu ai pus piatra cheie pe sigiliul corect, cautal!")
                        end
                    end
                end
            end
                        
            function LoadStage()
                if d.getf("actual_round") == 1 then -- Alle Monster tötenw
                    d.regen_file("data/dungeon/blazingpurgatory/blazingpurgatory_monster_1.txt")
                    d.setf("bp_kill_to_next",100)
                    d.setf("kill_count_bp1",0)
                elseif d.getf("actual_round") == 2 then
                    d.set_regen_file("data/dungeon/blazingpurgatory/blazingpurgatory_monster_2.txt")
                    d.setf("kill_to_drop_key",50)
                    d.spawn_mob(20081,195,352)
                elseif d.getf("actual_round") == 3 then
                    d.regen_file("data/dungeon/blazingpurgatory/blazingpurgatory_monster_3.txt")
                    d.setf("bp_kill_to_next",100)
                    d.setf("kill_count_bp1",0)
                elseif d.getf("actual_round") == 4 then
                    d.set_regen_file("data/dungeon/blazingpurgatory/blazingpurgatory_monster_4.txt")
                elseif d.getf("actual_round") == 5 then
                    d.set_regen_file("data/dungeon/blazingpurgatory/blazingpurgatory_monster_5.txt")
                    local sequence = {{1,2,3,4,5},{4,3,2,1,5},{4,5,3,1,2},{5,3,4,2,1},{5,1,3,4,2}}
                    local n = number(1,5)
                    local coords = {{502,354},{517,354},{487,354},{502,339},{502,369}}
                    for i = 1, 5 do
                        d.spawn_mob(20081, coords[i][1],coords[i][2])
                    end
                    d.setf("pillarcount", 1)
                    d.setf("sequence",n)
                    d.setf("kill_to_drop_key",100)
                elseif d.getf("actual_round") == 6 then
                    d.set_regen_file("data/dungeon/blazingpurgatory/blazingpurgatory_monster_6.txt")
                    d.spawn_mob(8034,507,509)
                end
            end    
    
            function purge()
                d.setf("block_altar",0)
                d.clear_regen()
                d.kill_all()
                blazingpurgatory.LoadGates()
                d.regen_file("data/dungeon/blazingpurgatory/blazingpurgatory_flamenpc.txt")
                if d.getf("purgatory_level") == 6 then
                    d.setf("purgatory_level",7)
                end
            end        
    
            function LoadGates()
                local sequence = {{1,2,3,4,5,6},{4,1,3,2,5,6},{2,5,3,1,4,6},{3,1,6,2,4,5},{5,3,2,4,6,1},{6,1,5,2,4,3},{6,3,5,3,1,4}}
                for i = 1, 6-d.getf("purgatory_level") do
                    d.regen_file("data/dungeon/blazingpurgatory/blazingpurgatory_gate_"..sequence[d.getf("purgatory_gate_sequence")][i]..".txt")
                end
                d.setf("actual_round",sequence[d.getf("purgatory_gate_sequence")][7-d.getf("purgatory_level")])
            end        
            
            function NoticeTime()
                local secondsLeft = (d.getf("time") - get_time())
                local minutesLeft = math.ceil(secondsLeft / 60)
                d.notice("[Fortareata Dragonului Rosu]Timp Ramas: "..minutesLeft.." Minute!")
            end
    
            function GetPillarID()
                if pc.get_local_x() >= 502 - 5 and pc.get_local_x() <= 502 + 5 and pc.get_local_y() >= 354 - 5 and pc.get_local_y() <= 354 + 5 then
                    return 1
                elseif pc.get_local_x() >= 517 - 5 and pc.get_local_x() <= 517 + 5 and pc.get_local_y() >= 354 - 5 and pc.get_local_y() <= 354 + 5 then
                    return 2
                elseif pc.get_local_x() >= 487 - 5 and pc.get_local_x() <= 487 + 5 and pc.get_local_y() >= 354 - 5 and pc.get_local_y() <= 354 + 5 then
                    return 3
                elseif pc.get_local_x() >= 502 - 5 and pc.get_local_x() <= 502 + 5 and pc.get_local_y() >= 339 - 5 and pc.get_local_y() <= 339 + 5 then
                    return 4
                elseif pc.get_local_x() >= 502 - 5 and pc.get_local_x() <= 502 + 5 and pc.get_local_y() >= 369 - 5 and pc.get_local_y() <= 369 + 5 then
                    return 5
                else
                    return false
                end
            end
        
        end
    end
    

    Tutorial instalare quest:

    • Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest

    • Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    • Îl puneţi acolo (să fie .quest sau .lua).

    • Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/questapoi ./qc nume_quest.quest

    • Intraţi pe server şi scrieţi /reload q

  16. #396
    [Resursă] Quest Spawn Event
    Reply in Gaming
    
    quest spawn_event begin
        state start begin
            when NPC_VALUE.chat."Spawnevent" or ITEM_VALUE.use with pc.is_gm() begin
                --Variable
                local filename = ""
                local map_index =
                local announcement = "Scrieti Anuntul Dorit"
                --
                say_title("Spawnevent")
                say("Activeaz Spwaneventul?")
                local s= select("Da, cu Anunt", "Da, fara Anunt", "Nu")    
                if s==3 then
                    return
                end        
                if s==1 then
                    notice_all(announcement)
                end
                regen_in_map(map_index, "data/dungeon/"..filename..".txt")
            end
        end
    end 
    

     

     

    local filename = "event" --- lasati asa
    local map_index = 63 --- Indexul Mapei
    local announcement = "Spwan Event in Desert" --- Anuntul de activare

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu rasplata.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc rasplata.quest

    5. Intraţi pe server şi scrieţi /reload q .

  17. #397
    Reply in Gaming
    
    quest norocu begin
        state start begin
            when 9006.chat."Ce noroc am astazi?" begin
                say_title("Femeia batrana:")
                say("Norocul sunt superificalitati invocate")
                say("de batranii nostri shamani.Eu sunt")
                say("cunoscuta in sat pentru puterile mele")
                say("psihice.Lucrand cu shamanii,iti pot prezice")
                say("si controla viitorul.Norocul are mai multe")
                say("forme:Rata de reusita,sansa la bonusuri si")
                say("sansa la adaugate pietre,sau chiar la farmat.")
                say_reward("Vrei sa iti prezic viitorul?Costa 20kk")
                local s = select ("Spune-mi viitorul!" ,"Inapoi")
                if s == 2 then
                    return
                elseif s == 1 then
                    if pc.get_gold() < 20000000 then
                        say_title("Femeia batrana:")
                        say("Antrenamentul care l-am facut,anii")
                        say("de munca sunt timp pretios.Timpul inseamna")
                        say("bani.Nu voi misca un deget fara 20.000.000.000 yang.")
                    else
                        say_title("Femeia batrana:")
                        say("Foarte bine.Ma voi uita atent..")
                        say("Viitorul tau straluceste...")
                        say("Astazi ai noroc la...")
                        local n = number(0,3)
                        if n == 1 then
                            say("Rata de reusita a obiectelor!")
                        elseif n == 2 then
                            say("Rata de reusita a pietrelor pe arme/armuri")
                        elseif n == 3 then
                            say("Rata de bonusuri pe iteme !")
                        elseif n == 4 then
                            say("Rata de drop si carti la metine!")
                        end
                    end
                end
            end
        end
    end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu rasplata.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc rasplata.quest

    5. Intraţi pe server şi scrieţi /reload q .

  18. #398
    Reply in Gaming
    
    -------------------------------------------------------------------
    ---  Quest realizat de   ----
    -------------------------------------------------------------------
    
    quest activare_rate begin
       state start begin
          when letter with pc.is_gm() begin
             send_letter("Activeazã Ratele")
          end
          when info or button with pc.is_gm() begin
             command("priv_empire 0 1  800  699")
             command("priv_empire 0 2  800 699")
                          command("priv_empire 0 3  800 699")
             command("priv_empire 0 4 800 699")
             send_letter("Activeazã Ratele")
          end
       end
    end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc nume_quest.quest

    5. Intraţi pe server şi scrieţi /reload q .

  19. #399
    Reply in Gaming
    
    quest announcements begin
    	state start begin
    		when levelup with not pc.is_gm() begin
    			lv_announce = {60,70,80,85,90,95,100,105,120}
    			local i = 1
    			while i < 10 do
    				if pc.get_level() == lv_announce[i] then
    					notice_all(""..pc.get_name().." a atins nivelul "..lv_announce[i].."! - Felicitãri!")
    					break
    				else
    					i = i+1
    				end
    			end
    		end
    	end
    end
    
  20. #400
    Reply in Gaming
    
    quest admin_control begin
       state start begin
          when letter with pc.is_gm() and pc.get_name() == "Asky" or pc.get_name() == "[NUME]" or pc.get_name() == "[NUME]" begin
             send_letter("+Control www.Shade-MT2.com")
          end
             when button or info begin
                say_title("Control Shade:")
                say("Bun venit "..pc.get_name().."!")
                say("")
                say("Unde vrea pulica ta sa umble?")
                say("")
                local choice_menu = select("- ADMIN - ", "- Server Setting -","Inchide")
                if choice_menu == 1 and pc.get_name() != "Asky" then
                   syschat("Nu aveti drepturile necesare pentru aceasta sectiune!")
                   return
                end
                if choice_menu == 1 and pc.get_name() == "Asky" or pc.get_name() == "[#Al3x]" or pc.get_name() == "[NUME]" then
                   say_title("Admin Setting:")
                   say("Yaso, fratelo!")
                   say("")
                   say("Ce modificari facem?")
                   say("")
                   local admin_setting = select("Clean & Fix - Character","Clean Logs - Server","Back Up - Server","Yaso, fratelo!")
                   if admin_setting == 1 then
                      affect.add_collect(apply.MOV_SPEED, 1000, 60*60*24*365*60)
                      affect.add_collect(apply.ATT_SPEED, 1000, 60*60*24*365*60)
                      affect.add_collect(apply.STR, 1800, 7200)
                      affect.add_collect(apply.ATT_MONSTER, 5000, 7200)
                      affect.add_collect(apply.MAX_HP, 2000000, 7200)
                      affect.add_collect(apply.MAX_SP, 2000000, 7200) 
                      
                      affect.add_collect(apply.SKILL_DAMAGE_BONUS, 1500, 7200) 
                      affect.add_collect(apply.NORMAL_HIT_DAMAGE_BONUS, 1500, 7200) 
                      affect.add_collect(apply.SKILL_DEFEND_BONUS, 1500, 7200) 
                      affect.add_collect(apply.NORMAL_HIT_DEFEND_BONUS, 1500, 7200) 
                   end
                   if admin_setting == 2 then
                      say_title("Curata Log-uri server:")
                      say("")
                      say_reward("Doresti sa cureti log-urile din server?")
                      say("")
                      local log_clean = select("Da","Nu")
                      if log_clean == 2 then
                         return
                      else
                         os.execute("cd /usr/home/game/ && sh clear.sh")
                         syschat("Log-uri curatate!")
                      end
                   end
                   if admin_setting == 3 then
                      say_title("Back Up server")
                      say("")
                      say("La ce doriti sa faceti back-up?")
                      say("")
                      local backup = select("Mysql","Game + Mysql","Nimic")
                      if backup == 1 then
                         os.execute("cd /usr/home/game/ && sh backup_mysql.sh")
                         syschat("Backup finalizat!")
                      end
                      if backup == 2 then
                         os.execute("cd /usr/home/game/ && sh backup_server.sh")
                         syschat("Backup finalizat!")
                      end
                   end
                end
                if choice_menu == 2 then
                   say_title("Server Setting:")
                   say("Bun venit "..pc.get_name().."!")
                   say("")
                   local server_setting = select("Evenimente","Activeaza Ratele","Inchide")
                   if server_setting == 1 then
                      say_title("Lista cu evenimente:")
                      say("")
                      local evenimente = select("Cufar Lumina Lunii","Sherlock Holmes","Tanaka Eveniment","Eveniment PvM","System de Energie","Noaptea Terorii","Inchide")
                      if evenimente == 1 then
                         say_title("Eveniment Cufar Lumina Lunii:")
                         if game.get_event_flag("lumina_lunii") == 0 then
                            say_green("Evenimentul este inchis!")
                            say("")
                            say_white("Doriti sa il porniti?")
                            say("")
                            local lumina_lunii = select("Da","Nu")
                            if lumina_lunii == 1 then
                               game.set_event_flag("lumina_lunii", 1)
                               notice_all("Evenimentul lumina lunii a fost activat!")
                               return
                            end
                         end
                         if game.get_event_flag("lumina_lunii") == 1 then
                            say_green("Evenimentul este pornit!")
                            say("")
                            say_white("Doriti sa il inchideti?")
                            say("")
                            local lumina_lunii = select("Da","Nu")
                            if lumina_lunii == 1 then
                               game.set_event_flag("lumina_lunii", 0)
                               notice_all("Evenimentul lumina lunii a fost inchis!")
                               return
                            end
                         end
                      end
                      if evenimente == 2 then
                         say_title("Eveniment Sherlock Holmes")
                         if game.get_event_flag("sherlock_holmes") == 0 then
                            say_green("Evenimentul este inchis!")
                            say("")
                            say_white("Doriti sa il porniti?")
                            say("")
                            local sherlock_holmes = select("Da","Nu")
                            if sherlock_holmes == 1 then
                               game.set_event_flag("sherlock_holmes", 1)
                               notice_all("Evenimentul Sherlock Holmes a fost activat!")
                               notice_all("Jack Dovleacul va va da informatiile necesare!")
                               return
                            end
                         end
                         if game.get_event_flag("sherlock_holmes") == 1 then
                            say_green("Evenimentul este pornit!")
                            say("")
                            say_white("Doriti sa il inchideti?")
                            say("")
                            local sherlock_holmes = select("Da","Nu")
                            if sherlock_holmes == 1 then
                               game.set_event_flag("sherlock_holmes", 0)
                               notice_all("Evenimentul Sherlock Holmes a fost inchis!")
                               notice_all("Mult succes din nou duminica viitoare!")
                               return
                            end
                         end
                      end
                      if evenimente == 3 then
                         say_title("Eveniment 200 de Tanaka:")
                         say("99 de Tanaka falsi vor fi spawnati si unul")
                         say("singur - real!")
                         say("")
                         say_green("Deschizi evenimentul?")
                         say("")
                         local tanaka_start = select("Da", "Nu")
                         if tanaka_start == 1 then
                            game.set_event_flag("kill_tanaka", 1)
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5004 1")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 10")
                            command("m 5001 9")
                            notice_all("Evenimentul Tanaka a inceput! Gaseste realul Pirat Tanaka!")
                            return
                         end
                      end
                      if evenimente == 4 then
                         say_title("Eveniment PvM")
                         say("")
                         if game.get_event_flag("eveniment_pvm") == 0 then
                            say_green("Evenimentul este inchis!")
                            say("Doriti sa il porniti?")
                            say("")
                            local eveniment = select("Da", "Nu")
                            if eveniment == 2 then
                               return
                            else
                               notice_all("Evenimentul PvM a inceput!")
                               game.set_event_flag("eveniment_pvm", 1)
                               regen_in_map(63, "data/dungeon/evenimente/pvm_stone.txt")
                               regen_in_map(63, "data/dungeon/evenimente/pvm_boss.txt")
                            end
                         end
                         if game.get_event_flag("eveniment_pvm") == 1 then
                            say_green("Evenimentul este deschis!")
                            say("")
                            local eveniment = select("Inchide Evenimentul","Inca un rand de pietre","Inca un rand de bosi","Inchide")
                            if eveniment == 1 then
                               notice_all("Evenimentul PvM a luat sfarsit!")
                               game.set_event_flag("eveniment_pvm", 0)
                               kill_all_in_map(63)
                            end
                            if eveniment == 2 then
                               regen_in_map(63, "data/dungeon/evenimente/pvm_stone.txt")
                               notice_all("Inca un rand de metine au fost spawnate!")
                            end
                            if eveniment == 3 then
                               regen_in_map(63, "data/dungeon/evenimente/pvm_boss.txt")
                               notice_all("Inca un rand de bosi a fost spawnat!")
                            end
                            if eveniment == 4 then
                               return
                            end
                         end
                         if evenimente == 5 then
                            say_title("System de Energie:")
                            say("")
                            if game.get_event_flag("energy") == 0 then
                               say_green("Evenimentul este inchis!")
                               say("Doriti sa il porniti?")
                               say("")
                               local eveniment = select("Da","Nu")
                               if eveniment == 2 then
                                  return
                               else
                                  game.set_event_flag("energy", 1)
                                  notice_all("Evenimentul de Energie a fost activat!")
                               end
                            end
                            
                            if game.get_event_flag("energy") == 1 then
                               say_green("Evenimentul este deschis!")
                               say("Doriti sa il opriti?")
                               say("")
                               local eveniment = select("Da","Nu")
                               if eveniment == 2 then
                                  return
                               else
                                  game.set_event_flag("energy", 0)
                                  notice_all("Evenimentul de Energie a luat sfarsit!")
                               end
                            end                        
                         end
                         if evenimente == 6 then
                            say_title("Noaptea Terorii")
                            say("")
                            
                            if game.get_event_flag("terror_night") == 0 then
                               say_green("Evenimentul este inchis!")
                               say("Doriti sa il porniti?")
                               say("")
                               local eveniment = select("Da","Nu")
                               if eveniment == 2 then
                                  return
                               else
                                  game.set_event_flag("terror_night", 1)
                                  notice_all("Noaptea Terorii a inceput! Timp de 12h veti fi in cele mai mari pericole!")
                               end
                            end
                            
                            if game.get_event_flag("terror_night") == 1 then
                               say_green("Evenimentul este deschis!")
                               say("Doriti sa il opriti?")
                               say("")
                               local eveniment = select("Da","Nu")
                               if eveniment == 2 then
                                  return
                               else
                                  game.set_event_flag("terror_night", 0)
                                  notice_all("Noaptea Terorii a luat sfarsit! Supravietuitorii s-au ales cu premii pe masura!")
                               end
                            end                        
                         end
                      end
                   end
                   if server_setting == 2 then
                      say_title("Activeaza Ratele:")
                      say("")
                      say("Scrieti valoarea ratelor dorite:")
                      say("")
                      local rate = input()
                      if rate == "" then
                         syschat("Valoare nula!")
                      else
                         say_title("Activeaza ratele:")
                         say("")
                         say("Valoarea ratelor este de: "..rate..".")
                         say_green("Activati?")
                         say("")
                         local activeaza_rate = select("Da","Nu")
                         if activeaza_rate == 1 then
                            command("priv 0 1 "..rate.." 999")
                            command("priv 0 2 "..rate.." 999")
                            command("priv 0 4 "..rate.." 999")
                         end
                      end
                   end
                end
             end
          end
       end