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

Posts by Piciul- [Legacy 3554]

933 posts

  1. #541
    Reply in Gaming
    
    quest automesaj begin 
    state start begin 
    when login begin 
    timer("timer1", 601) 
    end 
    
    when timer1.timer begin 
    timer("timer2", 721) 
    notice("Echipa Metin2 nu va cere niciodata datele")
    notice("de autentificare a contului.")
    end 
    
    when timer2.timer begin 
    timer("timer3", 901) 
    notice("Vizitati-ne pe forum.")
    notice("just4metin.ro")
    end 
    
    when timer3.timer begin 
    notice("Nu cereti unui iteme, yang unui gm.")
    notice("Riscati blocarea contului.")
    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 .

  2. #542
    Reply in Gaming
    
        quest Zi_Noapte begin
        state start begin
        when 20095.chat."Activare la ora 19:00" with pc.is_gm() begin
        say("Odata activat va functiona automat.")
        timer("Noapte", 1)
        end
        when notte.timer begin
        notice_all("La orele 19:00 soarele va apune.")
        game.set_event_flag("x", 1)
        timer("Ziua", 60*60*13)
        end
        when giorno.timer begin
        notice_all("La orele 8:00 Soarele isi va varsa iar razele calde peste aceste tinuturi.")
        game.set_event_flag("x", 0)
        timer("Noapte", 60*60*15)
        end
        end
        end
    

    Instalare:

    1. Creezi un fişier text cu numele 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 .

  3. #543
  4. #544
  5. #545
    Reply in Gaming
    
    quest cauta_gaseste begin
        state start begin
       
            when login begin
                if game.get_event_flag("cauta_gaseste") == 1 then         
                    notice("[Metin2IL]: Evenimentul Cauta si Gaseste este activ.")            
                end
            end
                
            when letter with pc.is_gm() begin
             send_letter("GM: Eveniment Cauta si Gaseste ")
          end
          
          when button or info begin
                
          if pc.is_gm() then
             
          say_gm_title ( "Eveniment Cauta si Gaseste:" )
          say_gm ( "Ce doresti sa faci?[ENTER]" )      
          if game.get_event_flag("cauta_gaseste") == 0 then
          say_kingdom_red ( "Evenimentul este oprit.[ENTER]" )      
          else      
          say_kingdom_yellow ( "Evenimentul este pornit.[ENTER]" )   
          end
                
             local s=select ( "Porneste evenimentul", "Opreste evenimentul", "Iesire" )
                   
          if s==1 then
          
                notice_all("[SERVER]: Evenimentul Cauta si Gaseste a inceput.")                  
                game.set_event_flag("cauta_gaseste", 1)               
                    char_log(0, "cauta_gaseste_start from" ..pc.get_name())
                
             local metindv = number(1,4)
             if metindv==1 then
             regen_in_map(80, "data/regen/regenpadure.txt")
             end
             if metindv==2 then
                regen_in_map(80, "data/regen/regenpadure1.txt")
             end
             if metindv==3 then
                regen_in_map(80, "data/regen/regenpadure2.txt")
             end
                if metindv==4 then
                regen_in_map(80, "data/regen/regenpadure3.txt")
             end
          
                
             say_gm_title ( "Eveniment Cauta si Gaseste:" )
             say_gm ( "Evenimentul a fost pornit.[ENTER]" )
          
                wait ()
                
                send_letter("GM: Eveniment Cauta si Gaseste ")
                return
                   
            elseif s==2 then
                            
                notice_all("[SERVER]: Evenimentul Cauta si Gaseste a luat sfarsit.")
                game.set_event_flag("cauta_gaseste", 0)               
                    char_log(0, "cauta_gaseste_end from" ..pc.get_name())
                kill_all_in_map(80)
    
                
             say_gm_title ( "Eveniment Cauta si Gaseste:" )
             say_gm ( "Evenimentul a luat sfarsit.[ENTER]" )
                   
                wait ()
                
                send_letter("GM: Eveniment Cauta si Gaseste ")
                return
                   
                elseif s==3 then   
                send_letter("GM: Eveniment Cauta si Gaseste ")
                return
                   
                end
             end
          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.

  6. #546
    Reply in Gaming
    
    quest oxevent_manager begin
        state start begin
          when login with pc.get_map_index()==113 begin
             pc.polymorph(34014, 1800)
             command("unmount")
          end
          when letter with pc.get_map_index()==113 begin
             send_letter("Paraseste OX")
          end
          when button or info begin
             say_title("Evenimentul OX")
             say("Dai startul la evenimentul OX?")
             local s=select("Da", "Nu")
             if s==2 then
                send_letter("Paraseste OX")
                return
             end
             local empire = pc.get_empire()
             if empire== 1 then
                pc.warp(433300, 219600)
             elseif  empire == 2 then  
                pc.warp(431500, 209200)
             elseif  empire == 3 then 
                pc.warp(439800, 211000)
             end
          end
            when 20011.chat."Evenimentul OX - 2Metin" begin
                say_title("Uriel")
                say("Hei,salut!Acesta este evenimentul OX")
                say("pe Serverul Metin22Metin!")
                say("Intrebarile vor fi de cultura generala ,si Metin")
                say("Atentie!Toate intrebarile sunt doar")
                say("cu o varianta de raspuns!!")
                wait()      
             if pc.get_level() < 31 then      
                say_title("Uriel :")
                say("")
                say("Îmi pare rau, dar nu ai nivelul necesar pentru")
                say("a participa.")
                say("")
                say_reward("Nivelul minim pentru participare: 30")
                say("")
                return
                elseif game.get_event_flag("oxevent_status") == 0 then
                    say_title("Uriel")
                    say("GM-ii inca nu au dat startul,dar probabil")
                    say("daca vorbesti cu mine acum este gata sa")
                    say("inceapa!Fii pe faza.")
                elseif game.get_event_flag("oxevent_status") == 1 then
                    say_title("Uriel")
                    say("Concursul OX a inceput")
                    say("Eu te pot duce acolo..sau nu?")
                    local s = select("Particip la OX", "Spectator", "Inapoi")
                if s == 1 then
                   say_title("Uriel")
                   say("Atunci eu te voi duce in harta unde se")
                        say("tine concursul.Fii pe faza.")
                        wait()
                   pc.polymorph(34027, 1800)
                   pc.warp(896500, 24600)
                    elseif s == 2 then
                        say_title("Uriel")
                        say("Spectator?Pai si premiile?Nu ii inteleg")
                        say("pe tinerii din ziua de azi..Fie cum doresti")
                        say("Am plecat!")
                        wait()
                   pc.polymorph(34027, 1800)
                        pc.warp(896300, 28900)
                    end
                elseif game.get_event_flag("oxevent_status") == 2 then
                    say_title("Uriel")
                    say("Concursul a inceput deja,numai poti.")
                    say("participa.Data viitoare fi mai rapid.")
                    say("Injurile la adresa staff-ului. duc la ban permanent")
                    say("Nu iti risca contul pentru ca ai pierdut.")
                    say("o amarata de runda OX!")
                    local s = select("Macar spectator...", "Inapoi")
                    if s == 1 then
                        say_title("Uriel")
                        say("Bine,spectator te pot baga.")
                        say("Dar daca injuri GMul ai ban")
                        say("Sunt cu ochii pe tine!")
                   say_reward("Cu ochii pe tine am zis!")
                        wait()
                        pc.warp(896300, 28900)
                    end
                end
            end
          when 20358.chat."GM: OX-Panel" with pc.is_gm() begin         
             local stat = oxevent.get_status()
             if stat == 0 then
                say_title("Concursul OX")
                say_reward("Porneste OX?")
                local s = select("Da", "Nu")
                if s==2 then return end
                local v = oxevent.open()
                if v == 0 then
                   say_title("Concursul OX")
                   say("Eroare!Nu a putut fii incarcat oxquiz.lua.")
                   say_reward("Verifica daca nu ai gresit vreo intrebare")
                   say_reward("Mai exact,lipsa unui apostrof sau unei paranteze")
                   return
                elseif v == 1 then
                   say_title("Concursul OX")
                   say("Concursul OX a inceput cu succes")
                   server_timer("automatic1", 10*60, 113)
                   notice_all("Metin2 2Metin a pornit Evenimentul OX!")
                   notice_all("Vorbeste cu Uriel pentru a participa!")
                   notice_all("Premiile Va asteaptam  !")
                else
                   say("A aparut o eroare : Error1")
                   return
                end
             elseif stat == 1 then
                say_title("Concursul OX")
                say("Portile sunt inca deschise.")
                say("In mapa sunt "..oxevent.get_attender().." jucatori activi.")
                say("")
                local s = select("Inchide portile", "Inapoi")
                if s == 1 then
                   notice_all("Portile OX-ului au fost inchise!")
                   notice_all("Data viitoare fiti mai rapizi!")
                   oxevent.close()               
                end
             elseif stat == 2 then
                say_title("Concursul OX")
                say("Alege ce doresti sa faci:")
                local s = select("Intrebare OX", "Premiu OX", "Sfarseste aceasta runda", "Inchide OX de urgenta", "Inapoi")
                if s == 1 then
                   local v = oxevent.quiz(1, 30)
                   if v == 0 then
                      say_title("Concursul OX")
                      say("A aparut o eroare : Error2 !")
                      return                  
                   else
                      say_title("Concursul OX")
                      say("Intrebare adresata cu succes!")
                      return
                   end
                elseif s == 2 then
                   say_title("Concursul OX")
                   say("Introdu codul itemului care doresti sa il.")
                   say("oferi jucatorilor.")
                   say_reward("De exemplu : 50011 este Cufar Lumina Lunii")
                   local item_vnum = input()
                   say_title("Concursul OX")
                   say("Introdu cantitatea de iteme primite de jucatori.")
                   say("asupra itemului tastat mai sus.")
                   say_reward("De exemplu ,daca mai sus ai scris 50011")
                   say_reward("si aici scrii 200,jucatorii vor primii 200 cufere")
                   local item_count = input()
                   oxevent.give_item(item_vnum, item_count)
                   say_title("Concursul OX")
                   say("Au fost recompensati "..oxevent.get_attender().." jucatori,si au primit  "..item_count.."x")               
                   say(item_name(item_vnum).." oferite.")
                   notice_all("Au venit premiile!Ati primit "..item_count.." de "..item_name(item_vnum))
                elseif s == 3 then               
                   oxevent.end_event()
                   notice_all("Concursul OX a luat sfarsit.")
                   notice_all("Concurentii vor fii teleportati in map1 ")
                   notice_all("Sper ca v-ati distrat!")
                   setskin(0)
                elseif s == 4 then
                   say_title("Concursul OX")
                   say("Inchiderea de urgenta a concursului OX")
                   say("poate duce la probleme la questul oxului")
                   say("Folositi aceasta optiune doar cand e neaparata")
                   say("nevoie!")
                   say_reward("Vrei sa inchizi de urgenta Concursul OX?!")
                   local s = select("Da,este o urgenta", "Nu.")
                   if s == 1 then
                      oxevent.end_event_force()
                   end
                elseif s == 5 then
                   return
                end
             elseif stat == 3 then
                say_title("Concursul OX")
                say("In acest moment este deja pusa o intrebare")
                say("Deobicei dupa ce zice ca jucatorii trebuie sa")
                say("astepte 5 secunde,poti acorda premiul.")
                say_reward("Ai rabdare.Cu graba nu rezolvi nimic.")
             else
                say_title("Concursul OX")
                say("A aparut o eroare : Error4")
                return
             end
          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 .

  7. #547
    Reply in Gaming
    
    ----------------------------------------------------
    -----    Server: Metin2                    -----
    -----    Author:             -----
    ----------------------------------------------------
    
    quest check_trans_ticket begin
       state start begin
          when login or levelup with pc.level >35 begin
             set_state(zone_enter)
          end
       end
          
       state zone_enter begin
          when 20088.chat."Înspre Caverna II (Lv.35)" begin
             say_title("Chuk-Sal:")
             say("")
             say("Oh, vãd foarte rar oameni care îndrãznesc sã ")
             say("exploreze aceste peºteri. Eu sunt protectorul")
             say("sigiliului magic, aºa cã, creaturi rele")
             say("nu poate trece sã ne ameninþe.")
             say("")
             say("În primul rând, lasã-mã sã vãd calificarea ta.")
             say("")
             
             wait()
             
             if pc.count_item(71095)>0 then
                setdelay(20)
                say_title("Chuk-Sal:")
                say("")
                say("Bun! Calificarea ta este validã.")
                say("În care dintre aceste camere vrei sã mergi?")
                say("")
                local s = select("V2 (a)","V2 (b)","V2 (c)","Închide")
                if s == 1 then
                   pc.warp(704100, 464100)
                elseif s == 2 then
                   pc.warp(704100, 464100)
                elseif s == 3 then
                   pc.warp(704100, 464100)
                end   
                pc.remove_item(71095)      
             else
                say_title("Chuk-Sal:")
                say("")
                say("Ai nevoie de un bilet de trecere.")
                say("Nu te pot lãsa în cazul în care nu aveþi.")
                say("permisul de trecere.")
                say_item("Permis",71095,"")
                return
             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

  8. #548
    Reply in Gaming
    
    ---------------------------------------------
    -- Quest »» Premium Member               -
    -- Created by                     -
    -- Language »» Romanian                -
    --               -
    ---------------------------------------------
    quest premium_member begin
       state start begin
          when 932.use begin
             say_title2("Membru Premium[ENTER]")
             say2("Bun venit în meniul jucãtorului premiu.")
             say2("Cu ce te pot ajuta?[ENTER]")
             local main = select("Competenþe Perfecte","Anunþ (notice)","Teleportare","Închide")
             if main == 1 then
                say_title2("Membru Premium - Competenþe Perfecte[ENTER]")
                say2("Doreºti competenþe perfecte? Nu te costã nimic.[ENTER]")
                local perf = select("Da","Nu")
                if perf == 1 then
                   table.foreachi(special.active_skill_list[pc.get_job()+1][pc.get_skill_group()],function(r,skill) pc.set_skill_level(skill,59) end)
                   syschat("Ai primit Competenþe Perfecte!")
                else
                   return
                end
             elseif main == 2 then
                say_title2("Membru Premium - Anunþ[ENTER]")
                say2("Aceastã accesibilitate îþi oferã posibilitatea de a")
                say2("face un anunþ precum un membrum staff.[ENTER]")
                say2("Odatã ce ai fãcut un anunþ, va trebuit sã aºtepþi douã ")
                say2("ore (petrecute în joc) pentru a putea face din nou.[ENTER]")
                say2("Dacã vei folosi limbaj neadecvat în anunþuri sau vei")
                say2("face reclame, caracterului tãu îi va fi blocat chatul")
                say2("timp de 48 de ore.[ENTER]")
                say_reward("Doreºti sã faci un anunþ?")
                local announce = select("Da","Nu")
                if announce == 1 then
                   if pc.getqf("time_to_wait") > pc.get_playtime() then
                      local time_to_wait = pc.getqf("time_to_wait") - pc.get_playtime()
                      syschat("Încã nu poþi face un nou anunþ!")
                      syschat("Timp rãmas de aºteptat: "..time_to_wait.." minute.")
                   else
                      say_title2("Membru Premium - Anunþ ")
                      say2("Introdu mesajul dorit...[ENTER]")
                      local mesaje1 = input()
                      say_title2("Membru Premium - Anunþ ")
                      say2("Introdu mesajul dorit...[ENTER]")
                      local mesaje2 = input()
                      say_title2("Membru Premium - Anunþ ")
                      say2("Introdu mesajul dorit...[ENTER]")
                      local mesaje3 = input()
                      say_title2("Membru Premium - Anunþ ")
                      say2("Introdu mesajul dorit...[ENTER]")
                      local mesaje4 = input()
                      say_title2("Membru Premium - Anunþ [ENTER]")
                      say2(""..mesaje1.." "..mesaje2.."")
                      say2(""..mesaje3.." "..mesaje4.."[ENTER]")
                      say_reward("Faceþi public acest mesaj?[ENTER]")
                      local send = select("Da","Nu")
                      if send == 1 then
                         notice_all(""..pc.get_name()..": "..mesaje1.." "..mesaje2.." "..mesaje3.." "..mesaje4.."")
                         pc.setqf("time_to_wait", 120 * 1 + pc.get_playtime())
                      else
                         return
                      end
                   end
                else
                   return
                end
             elseif main == 3 then
                say_title2("Membru Premium - Teleportare[ENTER]")
                say2("Unde doreºti sã fii teleportat?[ENTER]")
                local teleport = select("La un jucãtor","V4","Închide")
                if teleport == 1 then
                   say_title2("Membru Premium - Teleportare[ENTER]")
                   say("Introdu numele jucãtorului la care doreºti sã te")
                   say("teleportezi. Acesta va putea refuza cererea ta![ENTER]")
                   local name = input()
                   if name == "" then
                      syschat("Valoare nulã!")
                      return
                   else
                      say("Aºteaptã sã vad dacã "..name.." te primeºte la el/ea!")
                      say("")
                      local find_name = find_pc_by_name(name)
                      local confirmare = confirm(find_name, "Doresti ca "..pc.name.." sã vinã la tine?", 30) 
                      if confirmare != CONFIRM_OK then
                         say(""..name.." nu a acceptat teleportarea ta!")
                      else
                         pc.teleport(name)
                      end
                   end
                elseif teleport == 2 then
                   say_title2("Membru Premium - Teleportare V4[ENTER]")
                   say2("Unde doreºti sã fii teleportat în V4?[ENTER]")
                   local v4 = select("Generalul Yonghan(750, 350)","Cãpitanul Yonghan(V4 sfârºit)","Închide")
                   if v4 == 1 then
                      pc.warp(228600, 1238200)
                   elseif v4 == 2 then
                      pc.warp(181500, 1220500)
                   else
                      return
                   end
                else
                   return
                end
             end
          end
       end
    end
    

    Acest quest transforma item-ul dorit [de aici il puteti schimba -"when 932.use begin"] intr-un item pentru membri premium.

    -Competente perfecte

    -Teleportare mape

    -Teleportare jucator / daca vrea sa accepte sau nu.

  9. #549
    Reply in Gaming
    
    quest regenbogen begin
                    state start begin
                            when 50512.use  begin
                            pc.removeitem("50512", 1)
                       
                                say_title("Piatra curcubeu")
                                say("Aceasta piatra va poate face")
                                say("magiile perfecte.")
                               
                                if pc.job ==0 then
                                say("Alegeti competentele dvs.")
                               
                                local s=select("Corp","Mental")
                               
                                if s==1 then
                                --Corp
                                pc.set_skill_group(1)
                                pc.set_skill_level(1 ,59)
                                pc.set_skill_level(2 ,59)
                                pc.set_skill_level(3 ,59)
                                pc.set_skill_level(4 ,59)
                                pc.set_skill_level(5 ,59)
                                say("Competentele dvs. sunt perfecte")
                                end
                               
                                if s==2 then
                                --Mental
                                pc.set_skill_group(2)
                                pc.set_skill_level(16 ,59)
                                pc.set_skill_level(17 ,59)
                                pc.set_skill_level(18 ,59)
                                pc.set_skill_level(19 ,59)
                                pc.set_skill_level(20 ,59)
                                say("Competentele dvs. sunt perfecte")
                                end
                               
                                elseif pc.job ==1 then
                                say("Alegeti competentele dvs.")
                               
                                local s=select("Lame","Arc")
                               
                                if s==1 then
                                --Lame
                                pc.set_skill_group(3)
                                pc.set_skill_level(31 ,59)
                                pc.set_skill_level(32 ,59)
                                pc.set_skill_level(33 ,59)
                                pc.set_skill_level(34 ,59)
                                pc.set_skill_level(35 ,59)
                                say("Competentele dvs. sunt perfecte")
                                end
                               
                                if s==2 then
                                --Arc
                                pc.set_skill_group(4)
                                pc.set_skill_level(46 ,59)
                                pc.set_skill_level(47 ,59)
                                pc.set_skill_level(48 ,59)
                                pc.set_skill_level(49 ,59)
                                pc.set_skill_level(50 ,59)
                                say("Competentele dvs. sunt perfecte")
                                end
                               
                                elseif pc.job ==2 then
                                say("Alegeti competentele dvs.")
                                local s=select("Magie","Arme")
                               
                                if s==1 then
                                --Magie
                                pc.set_skill_group(5)
                                pc.set_skill_level(76 ,59)
                                pc.set_skill_level(77 ,59)
                                pc.set_skill_level(78 ,59)
                                pc.set_skill_level(79 ,59)
                                pc.set_skill_level(80 ,59)
                                pc.set_skill_level(81, 59)
                                say("Competentele dvs. sunt perfecte")
                                end
                               
                                if s==2 then
                                --Arme
                                pc.set_skill_group(6)
                                pc.set_skill_level(61 ,59)
                                pc.set_skill_level(62 ,59)
                                pc.set_skill_level(63 ,59)
                                pc.set_skill_level(64 ,59)
                                pc.set_skill_level(65 ,59)
                                pc.set_skill_level(66 ,59)
                                say("Competentele dvs. sunt perfecte")
                                end
                               
                                elseif pc.job ==3 then
                                say("Alegeti competentele dvs.")
                                local s=select("Vindecare","Dragon")
                               
                                if s==1 then
                                --Vindecare
                                pc.set_skill_group(7)
                                pc.set_skill_level(106 ,59)
                                pc.set_skill_level(107 ,59)
                                pc.set_skill_level(108 ,59)
                                pc.set_skill_level(109 ,59)
                                pc.set_skill_level(110 ,59)
                                pc.set_skill_level(111 ,59)
                                say("Competentele dvs. sunt perfecte")
                                end
                               
                                if s==2 then
                                --Dragon
                                pc.set_skill_group(8)
                                pc.set_skill_level(91 ,59)
                                pc.set_skill_level(92 ,59)
                                pc.set_skill_level(93 ,59)
                                pc.set_skill_level(94 ,59)
                                pc.set_skill_level(95 ,59)
                                pc.set_skill_level(96 ,59)
                                say("Competentele dvs. sunt perfecte")
                                end
                          
                          elseif pc.job ==4 then
                                say("Alegeti competentele dvs.")
                                local s=select("N.A")
                               
                                if s==1 then
                                --N.A
                                pc.set_skill_group(9)
                                pc.set_skill_level(170 ,59)
                                pc.set_skill_level(171 ,59)
                                pc.set_skill_level(172 ,59)
                                pc.set_skill_level(173 ,59)
                                pc.set_skill_level(174 ,59)
                                pc.set_skill_level(175 ,59)
                                say("Competentele dvs. sunt perfecte")
                                end
                            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

  10. #550
    [Resursă] Quest Loterie
    Reply in Gaming
    
    quest gdv_entry  begin
       state start begin
          when 20094.chat."Loteria Metin2" begin
             
             if 20 > get_global_time() - pc . getqf ( "lottery_last_play" ) then 
          say ("Trebuie s? astep?i 20 secunde ca s? po?i juca din nou,pentru a se evita spawnul") 
          return
       end 
       say_title ( "Casier:" )
       say ("Pentru a te juca trebuie s-? pl?testi un pre? în valoare de 3kk")
       say_reward ("Pret: 3.000.000 Yang")
       say ("Continu?m?")
       local scelta = select ( "Da","Nu" )
       if scelta == 1 then
          if pc . gold >= 5000 then
             pc . changegold ( - 3000000 )
             local k
             repeat
                say_title ( "Casier:" )
                say ( "Introduce?i un num?r de la 1 la 20" )
                say ("În cazul în care num?rul corespunde cu")
                say ("numarul ales de dumneavoastr? pute?i castiga")
                say ("suma de 50.000.000 Yang!!")
                k = tonumber(input())
                if k == nil then
                   say_title("Casier:")
                   say("Trebuie s-? introduce?i un num?r!")
                   local s = select("Continu?", "Anuleaz?")
                   if s == 2 then
                      return
                   end
                else
                   if k <= 0 then
                      say_title("Casier:")
                      say("Trebuie s-? introduce?i un num?r mai mare decât 0")
                      local s = select("Continu?", "Anuleaz?")
                      if s == 2 then
                         return
                      end
                   else
                      if k > 20 then
                         say_title("Casier:")
                         say("Trebuie s-? introduce?i un num?r între 1 si 20")
                         local s = select("Continu?", "Anuleaz?")
                         if s == 2 then
                            return
                         end
                      else
                         break
                      end
                   end
                end
             until false
             say("Introduce?i un num?r " .. k )
             wait ()
             say ("?i acum vom continua cu extragerea!")
             local random_number = tostring(number(1,20))
             say("Num?rul extras: " .. random_number)
             if random_number == tostring(k) then
                say ("Felicit?ri, ai câ?tigat potul cel mare de 100.000.000. yang!")
                say_reward ("Ai primit 50.000.000. Yang")
                pc.changegold ( 50000000 )
             else 
                say ("Se pare ca ai gresit num?rul,mai incerca :(")
             end
          end
          pc.setqf("lottery_last_play" , get_global_time()) 
          return
                end
             end
          end   
       end
    end
    

    Cum îl instalez ?

    1. Intraţi în file zila scrieţi "/usr/home/game/share/locale/germany/quest (depinde ce server aveţi)."

    2. Îl puneţi acolo (să fie. Quest) şi dă-ţi click dreapta pe el apoi selectaţi Permisiunile Filelor apoi scrieţi la valoare numerică: 777.

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

    4. Intraţi pe server şi scrieţi/reload q!

  11. #551
    Reply in Gaming
    
    quest reset_scroll begin
        state start begin   
          when 71002.use begin              
                say_title("Resetare competenþe:")
             say("")
                say("Gândeºte-te bine înainte sã faci asta!")
                say("Cu acest pergament iþi vei reseta toate")
                say("competenþele." )
             say("" )
                say("Eºti sigur cã vrei acest lucru?")
             say("" )         
                local s = select("Da", "Nu")
             
                if 2 == s then 
                   return
                end
             
                say_title("Resetare competenþe:")
                say("")
                say("Aceastã acþiune este ireversibilã.")
                say("Esti sigur?")
                say("")   
                local c = select("Da, reseteazã ","Nu")
             
                if 2 == c then
                   return
                end
             
                say_title("Resetare competenþe:")      
             say("")
             say("Competenþele tale au fost resetate.")
             say("")
             pc.remove_item(71002)
                pc.clear_skill()
                pc.set_skill_group(0)         
            end
          
          
            when 71003.use begin     
                say_title("Resetare competenþã:")
             say("")
                say("Acest pergament iþi permite sã resetezi")
                say("o competenþã la 0 puncte.")
             say("Acestã acþiune este ireversibilã.")   
             say("")
             wait ()
             say("Alege competenþa:")      
             say("")
                local result = BuildSkillList(pc.get_job(), pc.get_skill_group())
                local vnum_list = result[1]
                local name_list = result[2]
                if table.getn(vnum_list) < 2 then
       
                say_reward("Nu ai competenþe pe care sã le poþi reseta.")
             say("")
                    return
                end 
                
                local i = select_table(name_list)
             
                if table.getn(name_list) == i then
                    return
                end
             
                local name = name_list[i]
                local vnum = vnum_list[i]
             
                say_title("Resetare competenþã:")
             say("")
                say(string.format("Eºti sigur cã vrei sã restezi %s ?", name))
             say("")
              local s = select("Da", "Nu")
             
                if 2 == s then
                    return
                end
             
             pc.remove_item(71003)
                pc.clear_one_skill(vnum)
                pc.setqf("force_to_master_skill", 1)
                say_title("Resetare competenþã:")
             say("")
                say("Competenþa a fost resetatã cu succes.")
             say("")         
            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

  12. #552
    Reply in Gaming
    
    quest schimbarasa begin
    state start begin
    
    when 40003.use begin
    say_title("Schimbă Rasa :")
    say_verde("Salut ".. pc.get_name() ..", doreşti să schimbi rasa actuală ?")
    say("")
    say_reward("Atenţie !!!")
    say_verde("Odată ce ţi-ai schimbat rasa nu vei mai putea")
    say_verde("reveni la cea veche decat dacă vei folosi un")
    say_verde("nou Inel !")
    say_item_vnum("40003")
    say("")
    wait ()
    say_title("Schimbă rasa !")
    say_reward("Eşti sigur că vrei să-ţi schimbi rasa caracterului?")
    say("")
    local main_set = select ("Da","Nu")
    
    if main_set == 2 then
    return
    end
    
    if main_set == 1 then
    say_title("Schimbă Rasa:")
    say_verde("Ce rasa ai vrea să aibă caracterul tău ?")
    say("")
    local schimbarasa = select ("Razboinic","Ninja","Sura","Şaman","Închide")
    
    if schimbarasa == 1 then
    say_title("Schimbă Rasa:")
    say_verde("Ce sex vrei sa aibă caracterul tău ?")
    say("")
    local sexwar = select ("Masculin","Feminin","Închide")
    
    if sexwar == 1 then
    pc.polymorph("4")
    pc.change_sex()
    
    elseif sexwar == 2 then
    pc.polymorph("4")
    pc.change_sex()
    pc.polymorph("20032")
    pc.polymorph("1")
    pc.change_sex()
    pc.polymorph("20032")
    
    elseif sexwar == 3 then
    return
    end
    elseif schimbarasa == 2 then
    say_title("Schimbă Rasa:")
    say_verde("Ce sex vrei sa aibă caracterul tău ?")
    say("")
    local sexninja = select ("Masculin","Feminin","Închide")
    
    if sexninja == 2 then
    pc.polymorph("5")
    pc.change_sex()
    
    elseif sexninja == 1 then
    pc.polymorph("5")
    pc.change_sex()
    pc.polymorph("20032")
    pc.polymorph("1")
    pc.change_sex()
    pc.polymorph("20032")
    
    elseif sexninja == 3 then
    return
    end
    
    elseif schimbarasa == 3 then
    say_title("Schimbă Rasa:")
    say_verde("Ce sex vrei sa aibă caracterul tău ?")
    say("")
    local sexsura = select ("Masculin","Feminin","Închide")
    if sexsura == 1 then 
    pc.polymorph("6")
    pc.change_sex()
    
    elseif sexsura == 2 then
    pc.polymorph("6")
    pc.change_sex()
    pc.polymorph("20032")
    pc.polymorph("1")
    pc.change_sex()
    pc.polymorph("20032")
    
    elseif sexsura == 3 then
    return
    end
    
    elseif schimbarasa == 4 then
    say_title("Schimbă Rasa:")
    say_verde("Ce sex vrei sa aibă caracterul tău ?")
    say("")
    local sexshamy = select ("Masculin","Feminin","Închide")
    if sexshamy == 2 then 
    pc.polymorph("7")
    pc.change_sex()
    
    elseif sexshamy == 1 then
    pc.polymorph("7")
    pc.change_sex()
    pc.polymorph("20032")
    pc.polymorph("1")
    pc.change_sex()
    pc.polymorph("20032")
    
    elseif sexshamy == 3 then
    return
    end
    
    elseif schimbarasa == 5 then
    return
    end
    pc.removeitem(40003, 1)
    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

  13. #553
    [Resursă] Quest Pvp Judy
    Reply in Gaming
    
    quest npc4metin begin
       state start begin
          when 20094.chat."NPC " begin
             local s = select("Skiluri G/P", "Banca", "Loto(Loterie)", "Schimba rasa", "Schimba sexul", "Resetare Skill", "Pagina 2", "Anuleaza")
                if s == 1 then   
                   say_title ( "Skilluri G/P:" )
                   say ( "Bun venit pe  Metin" )
                   say ( " Metin va ofera posibilitatea de a lua skillurile P sau G fara a mai apela la GM!" )
                   say ( "Pentru a lua skillurile trebuie sa platesti o suma de bani" )
                   say ( "" )
                   say ( "" )
                   say_reward ( "Skillurile G costa 15kk, necesita nivel 40" )
                   say_reward ( "Skillurile P costa 30kk, necesita nivel 60")
                   local opzioni = select ( "Skiluri G" , "Skiluri P", "Anuleaza" )
                      if opzioni == 1 then
                         if pc.get_gold()<15000000 then
                            say("Nu ai 15 kk")
                         elseif pc.get_level()<40 then
                            say("Nu ai nivel 40")
                         else
                            local skillg = select ("Warrior","Ninja","Sura","Shaman","Le-am luat deja..")
                               if skillg == 1 then
                                  pc.set_skill_level (1,30)
                                  pc.set_skill_level (2,30)
                                  pc.set_skill_level (3,30)
                                  pc.set_skill_level (4,30)
                                  pc.set_skill_level (5,30)
                                  pc.set_skill_level (16,30)
                                  pc.set_skill_level (17,30)
                                  pc.set_skill_level (18,30)
                                  pc.set_skill_level (19,30)
                                  pc.set_skill_level (20,30)
                                  pc . changegold ( - 15000000 ) 
                               elseif skillg == 2 then
                                  pc.set_skill_level (31,30)
                                  pc.set_skill_level (32,30)
                                  pc.set_skill_level (33,30)
                                  pc.set_skill_level (34,30)
                                  pc.set_skill_level (35,30)
                                  pc.set_skill_level (46,30)
                                  pc.set_skill_level (47,30)
                                  pc.set_skill_level (48,30)
                                  pc.set_skill_level (49,30)
                                  pc.set_skill_level (50,30)
                                  pc . changegold ( - 15000000 )
                               elseif skillg == 3 then
                                  pc.set_skill_level (61,30)
                                  pc.set_skill_level (62,30)
                                  pc.set_skill_level (63,30)
                                  pc.set_skill_level (64,30)
                                  pc.set_skill_level (65,30)
                                  pc.set_skill_level (66,30)
                                  pc.set_skill_level (76,30)
                                  pc.set_skill_level (77,30)
                                  pc.set_skill_level (78,30)
                                  pc.set_skill_level (79,30)
                                  pc.set_skill_level (80,30)
                                  pc.set_skill_level (81,30)
                                  pc . changegold ( - 15000000 )
                               elseif skillg == 4 then
                                  pc.set_skill_level (91,30)
                                  pc.set_skill_level (92,30)
                                  pc.set_skill_level (93,30)
                                  pc.set_skill_level (94,30)
                                  pc.set_skill_level (95,30)
                                  pc.set_skill_level (96,30)
                                  pc.set_skill_level (106,30)
                                  pc.set_skill_level (107,30)
                                  pc.set_skill_level (108,30)
                                  pc.set_skill_level (109,30)
                                  pc.set_skill_level (110,30)
                                  pc.set_skill_level (111,30)
                                  pc . changegold ( - 15000000 )
                               end
                            end
                      elseif opzioni == 2 then
                         if pc.get_gold()<30000000 then
                            say("Nu ai 30kk")
                         elseif pc.get_level()<60 then
                            say("Nu ai nivelul 60")
                         else
                            local skillp = select ("Warrior","Ninja","Sura","Shaman","Le-am luat deja..")
                               if skillp == 1 then
                                  pc.set_skill_level(1 ,59)
                                  pc.set_skill_level(2 ,59)
                                  pc.set_skill_level(3 ,59)
                                  pc.set_skill_level(4 ,59)
                                  pc.set_skill_level(5 ,59)
                                  pc.set_skill_level(16 ,59)
                                  pc.set_skill_level(17 ,59)
                                  pc.set_skill_level(18 ,59)
                                  pc.set_skill_level(19 ,59)
                                  pc.set_skill_level(20 ,59)
                                  pc . changegold ( - 30000000 )
                               elseif skillp == 2 then
                                  pc.set_skill_level(31 ,59)
                                  pc.set_skill_level(32 ,59)
                                  pc.set_skill_level(33 ,59)
                                  pc.set_skill_level(34 ,59)
                                  pc.set_skill_level(35 ,59)
                                  pc.set_skill_level(46 ,59)
                                  pc.set_skill_level(47 ,59)
                                  pc.set_skill_level(48 ,59)
                                  pc.set_skill_level(49 ,59)
                                  pc.set_skill_level(50 ,59)
                                  pc . changegold ( - 30000000 )
                               elseif skillp == 3 then
                                  pc.set_skill_level(76 ,59)
                                  pc.set_skill_level(77 ,59)
                                  pc.set_skill_level(78 ,59)
                                  pc.set_skill_level(79 ,59)
                                  pc.set_skill_level(80 ,59)
                                  pc.set_skill_level(81, 59)
                                  pc.set_skill_level(61 ,59)
                                  pc.set_skill_level(62 ,59)
                                  pc.set_skill_level(63 ,59)
                                  pc.set_skill_level(64 ,59)
                                  pc.set_skill_level(65 ,59)
                                  pc.set_skill_level(66 ,59)
                                  pc . changegold ( - 30000000 )
                               elseif skillp == 4 then
                                  pc.set_skill_level(106 ,59)
                                  pc.set_skill_level(107 ,59)
                                  pc.set_skill_level(108 ,59)
                                  pc.set_skill_level(109 ,59)
                                  pc.set_skill_level(110 ,59)
                                  pc.set_skill_level(111 ,59)
                                  pc.set_skill_level(91 ,59)
                                  pc.set_skill_level(92 ,59)
                                  pc.set_skill_level(93 ,59)
                                  pc.set_skill_level(94 ,59)
                                  pc.set_skill_level(95 ,59)
                                  pc.set_skill_level(96 ,59)
                                  pc . changegold ( - 30000000 )
                               end
                            end
                         end
                elseif s == 2 then
                   say_title("Depozit de Yang")
                   say("Ce pot face pentru tine?")
                   local f = select("Depune Yang(100kk)", "Depune Yang(500kk)", "Depune Yang(1kkk)", "Retrage Yang(100kk)" , "Retrage Yang(500kk)" , "Retrage Yang(1kkk)" , "Inchide")
                   if f == 1 then
                      say_title("Depozit de Yang")
                   say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
                   say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Pana Razboinicului!" )
                               say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
                               say ( "" ) 
                               say ( "Doresti sa depui 100kk?" )
                               local s = select ( "Da" , "Nu" )
                               if s == 2 then 
                               return 
                               end  
                               if pc.get_gold()<100000000 then
                               say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 100kk" )  
                               say ( "Te astept cand ai acesti bani :)" ) 
                               return 
                               end
                               say ( "Ai depozitat banii cu succes!" ) 
                               say_item ( "Pana Razboinicului" , 70036 , "" ) 
                               pc . changegold ( - 100000000 ) 
                               pc . give_item2 ( 70036 )
                   elseif f == 2 then            
                      say_title("Depozit de Yang")
                   say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
                   say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Medalia Razboinicului!" )
                               say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
                               say ( "" ) 
                               say ( "Doresti sa depui 500kk?" )
                               local s = select ( "Da" , "Nu" )
                               if s == 2 then 
                               return 
                               end  
                               if pc.get_gold()<500000000 then
                               say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 500kk" )  
                               say ( "Te astept cand ai acesti bani :)" ) 
                               return 
                               end
                               say ( "Ai depozitat banii cu succes!" ) 
                               say_item ( "Medalia Razboinicului" , 70004 , "" ) 
                               pc . changegold ( - 500000000 ) 
                               pc . give_item2 ( 70004 )            
                   elseif f == 3 then
                      say_title("Depozit de Yang")
                   say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
                   say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Cupa Razboinicului!" )
                               say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
                               say ( "" ) 
                               say ( "Doresti sa depui 1kkk?" )
                               local s = select ( "Da" , "Nu" )
                               if s == 2 then 
                               return 
                               end  
                               if pc.get_gold()<1000000000 then
                               say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 1kkk" )  
                               say ( "Te astept cand ai acesti bani :)" ) 
                               return 
                               end
                               say ( "Ai depozitat banii cu succes!" ) 
                               say_item ( "Cupa Razboinicului" , 50042 , "" ) 
                               pc . changegold ( - 1000000000 ) 
                               pc . give_item2 ( 50042 )
                               elseif f == 4 then
                                  say_title ( "Depozit de Yang" ) 
                                  say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
                                  say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
                                  say_item ( "Pana Razboinicului" , 70036 , "" )
                                    say_title ( "Depozit de Yang" ) 
                                  say ( "Esti sigur ca doresti sa retragi banii?" )
                                  local s = select ( "Da" , "Nu" ) 
                                  if s == 2 then 
                                  return 
                                  end 
                                  if pc . count_item ( 70036 ) == 0 then 
                                  say_title ( "Depozit de Yang" )
                                  say ( "Nu detii Pana Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 100kk!." ) 
                                  say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Pana Razboinicului." ) 
                                  return 
                                  end 
                                  say_title ( "Depozit de Yang" ) 
                                  if pc . count_item ( 70036 ) == 0 then 
                                  return 
                                  end 
                                  say ( "Ai retras banii cu succes!" ) 
                                  pc . remove_item ( 70036 ) 
                                  pc . changegold ( 100000000 )
                                                       elseif f == 5 then
                                                          say_title ( "Depozit de Yang" ) 
                                  say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
                                  say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
                                  say_item ( "Medalia Razboinicului" , 70004 , "" )
                                    say_title ( "Depozit de Yang" ) 
                                  say ( "Esti sigur ca doresti sa retragi banii?" )
                                  local s = select ( "Da" , "Nu" ) 
                                  if s == 2 then 
                                  return 
                                  end 
                                  if pc . count_item ( 70004 ) == 0 then 
                                  say_title ( "Depozit de Yang" )
                                  say ( "Nu detii Medalia Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 500kk!." ) 
                                  say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Medalia Razboinicului." )
                                  return 
                                  end 
                                  say_title ( "Depozit de Yang" ) 
                                  if pc . count_item ( 70004 ) == 0 then 
                                  return 
                                  end 
                                  say ( "Ai retras banii cu succes!" ) 
                                  pc . remove_item ( 70004 ) 
                                  pc . changegold ( 500000000 )
                                                        elseif f == 6 then
                                                          say_title ( "Depozit de Yang" ) 
                                  say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
                                  say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
                                  say_item ( "Cupa Razboinicului" , 50042 , "" )
                                    say_title ( "Depozit de Yang" ) 
                                  say ( "Esti sigur ca doresti sa retragi banii?" )
                                  local s = select ( "Da" , "Nu" ) 
                                  if s == 2 then 
                                  return 
                                  end 
                                  if pc . count_item ( 50042 ) == 0 then 
                                  say_title ( "Depozit de Yang" )
                                  say ( "Nu detii Cupa Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 1kkk!." ) 
                                  say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Cupa Razboinicului." ) 
                                  return 
                                  end 
                                  say_title ( "Depozit de Yang" ) 
                                  if pc . count_item ( 50042 ) == 0 then 
                                  return 
                                  end 
                                  say ( "Ai retras banii cu succes!" ) 
                                  pc . remove_item ( 50042 ) 
                                  pc . changegold ( 1000000000 )
                               end
                elseif s == 3 then
                   local loto = select("Loto 1 din 5", "Loto 1 din 10", "Loto 1 din 20", "Poate nu am nrorc...")
                      if loto == 1 then
                         say_title("Loteria:")
                         say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
                         say("Poti sa participi la loto la un pret de:")
                         say_reward("6.000.000 Yang (6kk)")
                         say("Continui?")
                         local scelta = select("Da","Nu")
                         if scelta == 1 then
                            if pc . gold >= 6000000 then
                               pc . changegold ( - 6000000 )
                               local k
                               repeat
                                  say_title( "Loteria:" )
                                  say( "Introdu un numar de la 1 la 5" )
                                  say("Daca acest numar corespunde cu rezultatul")
                                  say("poti castiga un")
                                  say("jackpot de 50.000.000 Yang (50kk)!!")
                                  k = tonumber(input())
                                  if k == nil then
                                     say_title("Loteria:")
                                     say("Scrie un numar!")
                                     local s = select("Continua", "Anuleaza")
                                     if s == 2 then
                                        return
                                     end
                                  else
                                     if k <= 0 then
                                        say_title("Loteria:")
                                        say("Scrie un numar pozitiv!")
                                        local s = select("Continua", "Anuleaza")
                                        if s == 2 then
                                           return
                                        end
                                     else
                                        if k > 5 then
                                           say_title("Loteria:")
                                           say("Scrie un numar intre 1 si 5")
                                           local s = select("Continua", "Anuleaza")
                                           if s == 2 then
                                              return
                                           end
                                        else
                                           break
                                        end
                                     end
                                  end
                               until false
                               say("Numarul ales de tine: " .. k )
                               wait ()
                               say ("Este timpul extrageri numarului!")
                               local random_number = tostring(number(1,5))
                               say("Numarul extras: " .. random_number)
                               if random_number == tostring(k) then
                                  say ("Se pare ca norocul te-a lovit din plin")
                                  say_reward ("Ai castigat 50.000.000 Yang(50kk)")
                                  pc.changegold ( 50000000 )
                               else 
                                  say ("Din pacate nu ai avut noroc. Reincearca!")
                               end
                            end
                         end
                      elseif loto == 2 then
                         say_title("Loteria:")
                         say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
                         say("Poti sa participi la loto la un pret de:")
                         say_reward("5.000.000 Yang (5kk)")
                         say("Continui?")
                         local scelta = select("Da","Nu")
                         if scelta == 1 then
                            if pc . gold >= 5000000 then
                               pc . changegold ( - 5000000 )
                               local k
                               repeat
                                  say_title( "Loteria:" )
                                  say( "Introdu un numar de la 1 la 10" )
                                  say("Daca acest numar corespunde cu rezultatul")
                                  say("poti castiga un")
                                  say("jackpot de 75.000.000 Yang (75kk)!!")
                                  k = tonumber(input())
                                  if k == nil then
                                     say_title("Loteria:")
                                     say("Scrie un numar!")
                                     local s = select("Continua", "Anuleaza")
                                     if s == 2 then
                                        return
                                     end
                                  else
                                     if k <= 0 then
                                        say_title("Loteria:")
                                        say("Scrie un numar pozitiv!")
                                        local s = select("Continua", "Anuleaza")
                                        if s == 2 then
                                           return
                                        end
                                     else
                                        if k > 10 then
                                           say_title("Loteria:")
                                           say("Scrie un numar intre 1 si 10")
                                           local s = select("Continua", "Anuleaza")
                                           if s == 2 then
                                              return
                                           end
                                        else
                                           break
                                        end
                                     end
                                  end
                               until false
                               say("Numarul ales de tine: " .. k )
                               wait ()
                               say ("Este timpul extrageri numarului!")
                               local random_number = tostring(number(1,10))
                               say("Numarul extras: " .. random_number)
                               if random_number == tostring(k) then
                                  say ("Se pare ca norocul te-a lovit din plin")
                                  say_reward ("Ai castigat 75.000.000 Yang(75kk)")
                                  pc.changegold ( 75000000 )
                               else 
                                  say ("Din pacate nu ai avut noroc. Reincearca!")
                               end
                            end
                         end
                      elseif loto == 3 then
                         say_title("Loteria:")
                         say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
                         say("Poti sa participi la loto la un pret de:")
                         say_reward("4.000.000 Yang (4kk)")
                         say("Continui?")
                         local scelta = select("Da","Nu")
                         if scelta == 1 then
                            if pc . gold >= 4000000 then
                               pc . changegold ( - 4000000 )
                               local k
                               repeat
                                  say_title( "Loteria:" )
                                  say( "Introdu un numar de la 1 la 20" )
                                  say("Daca acest numar corespunde cu rezultatul")
                                  say("poti castiga un")
                                  say("jackpot de 100.000.000 Yang (100kk)!!")
                                  k = tonumber(input())
                                  if k == nil then
                                     say_title("Loteria:")
                                     say("Scrie un numar!")
                                     local s = select("Continua", "Anuleaza")
                                     if s == 2 then
                                        return
                                     end
                                  else
                                     if k <= 0 then
                                        say_title("Loteria:")
                                        say("Scrie un numar pozitiv!")
                                        local s = select("Continua", "Anuleaza")
                                        if s == 2 then
                                           return
                                        end
                                     else
                                        if k > 20 then
                                           say_title("Loteria:")
                                           say("Scrie un numar intre 1 si 20")
                                           local s = select("Continua", "Anuleaza")
                                           if s == 2 then
                                              return
                                           end
                                        else
                                           break
                                        end
                                     end
                                  end
                               until false
                               say("Numarul ales de tine: " .. k )
                               wait ()
                               say ("Este timpul extrageri numarului!")
                               local random_number = tostring(number(1,20))
                               say("Numarul extras: " .. random_number)
                               if random_number == tostring(k) then
                                  say ("Se pare ca norocul te-a lovit din plin")
                                  say_reward ("Ai castigat 100.000.000 Yang(100kk)")
                                  pc.changegold ( 100000000 )
                               else 
                                  say ("Din pacate nu ai avut noroc. Reincearca!")
                               end
                            end
                         end
                      end
                elseif s == 4 then
                   say ( "" ) 
                   say ( "Vrei sa schimbi Rasa??" ) 
                   say ( "Din ori ce rasa esti poti deveni alta" )
                   say ( "" )
                   say ( "" )
                   say ( "" )
                   local main_set = select ( "Da" , "Nu" )
                   if main_set == 1 then
                      say ( "Ce Rasa Vrei?" )
                      local razzacambiasex = select ("Warrior","Ninja","Sura","Shaman","Nu Stiu..")
                         if razzacambiasex == 1 then      
                            local sexwar = select ("Baiat","Fata")
                               if sexwar == 1 then            
                                  pc.polymorph("4")
                                  pc.change_sex()
                               elseif sexwar == 2 then
                                  pc.polymorph("4")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                         elseif razzacambiasex == 2 then
                            local sexninja = select ("Baiat","Fata")
                               if sexninja == 2 then            
                                  pc.polymorph("5")
                                  pc.change_sex()
                               elseif sexninja == 1 then
                                  pc.polymorph("5")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                         elseif razzacambiasex == 3 then
                            local sexsura = select ("Baiat","Fata")
                               if sexsura == 1 then            
                                  pc.polymorph("6")
                                  pc.change_sex()
                               elseif sexsura == 2 then
                                  pc.polymorph("6")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                         elseif razzacambiasex == 4 then
                            local sexshamy = select ("Baiat","Fata")
                               if sexshamy == 2 then            
                                  pc.polymorph("7")
                                  pc.change_sex()
                               elseif sexshamy == 1 then
                                  pc.polymorph("7")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                            end
                         end
                elseif s == 5 then
                   say ( "" ) 
                   say ( "Sigur vrei sa schimbi sexul?" ) 
                   say ( "" )
                   local main_set = select ( "Da" , "Nu" ) 
                      if main_set == 1 then
                         pc.change_sex()
                         pc.polymorph("20032")
                         say ( "Ai schimbat sexul cu succes" ) 
                      end
                elseif s == 6 then
                   local reskill = select("Reseteaza toate skilurile", "M-am razgandit")
                      if reskill == 1 then
                         say ( "Vrei Sa Resetezi toate skillurile?" )
                         say ( "Daca resetezi skillurile vei loa totul de la M1." )
                         local main_set = select ( "Da" , "Nu" ) 
                            if main_set == 1 then
                               pc.setqf("clear", 1)
                               pc.clear_skill()
                               pc.set_skill_group(0)
                               say ( "Succes! Iti urez o zi buna !" ) 
                            end
                         end
                elseif s == 7 then
                   local pagina2 = select("Elimina frizura", "Mareste viteza", "Mesaj global", "Modificare grad", "Teleportarea jucatorului", "Cal lvl 21", "Marmura Binecuvantare", "Anuleaza")
                      if pagina2 == 1 then
                         say ( "" ) 
                         say ( "Esti sigur ca vrei sa elimini frizura?" ) 
                         say ( "" )
                         local main_set = select ( "Da" , "Nu" ) 
                            if main_set == 1 then
                            pc.set_part(PART_HAIR, 0)
                            say ( "Ai Eliminat Cu Succes Frizura" ) 
                            say ( "" ) 
                         end
                      elseif pagina2 == 2 then
                         if pc.get_gold()<1000000000 then
                         say("Nu ai 1.000.000.000 Yang (1kkk)")
                      else
                         say ( "Esti sigur ca vrei sa iti maresc viteza" ) 
                         say ( "de miscare si de atac cu 150 puncte?" )
                         say ( "Aceasta costa 1.000.000.000 Yang (1kkk)" )
                         local vel =select ("Da","Nu")
                            if vel == 1 then
                               affect . add_collect ( apply . ATT_SPEED , 150 , 60 * 60 * 24 * 365 * 60 ) 
                               affect . add_collect ( apply . MOV_SPEED , 150 , 60 * 60 * 24 * 365 * 60 ) 
                               pc . changegold ( -1000000000 )
                               say ( "Ai primit viteza maxima cu succes" ) 
                               say ( "Ti s-au retras din Yang 1.000.000.000 Yang (1kkk)" )
                            end
                         end
                      elseif pagina2 == 3 then
                         say("Cu doar 5kk poti sa postezi")
                         say("un mesaj global")
                         say("Daca adresezi jigniri staffului")
                         say("sau unor playeri , se ajunge la sanctiuni")
                         say("Esti sigur ca vrei sa postezi un mesaj?")
                         local mes = select("Da", "Nu")
                            if mes == 1 then
                               if pc.get_gold()<5000000 then
                               say("Nu ai 5.000.000 Yang (5kk)")
                            else
                               say("Scrie Mesajul :")
                               local notice_text = input()
                               notice_all("Lv. "..pc.get_level().."  "..pc.get_name().." spune : "..notice_text)
                               pc.changegold(-5000000)
                            end
                         end
                      elseif pagina2 == 4 then
                         say("Cu doar 3kk poti sa iti")
                         say("modifici gradul din fata numelui")
                         say("Esti sigur ca vrei sa iti modifici")
                         say("gradul?")
                         local grad = select("Da", "Nu")
                            if grad == 1 then
                               local grad1 = select("Transforma-ti gradul(Pozitiv)", "Transforma-ti gradul(Nagativ)", "Anuleaza")
                                  if grad1 == 1 then
                                     if pc.get_gold()<3000000 then
                                     say("Nu ai 3.000.000 Yang (3kk)")
                                  else
                                     say("Alege ce grad sa-ti dau")
                                     local a = select ( "Prietenos" , "Bun" , "Nobil" , "Cavaleresc" , "Anuleaza" )
                                        if a == 1 then
                                        pc . change_alignment ( 1000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Prietenos")
                                        elseif a == 2 then
                                        pc . change_alignment ( 4000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Bun")
                                        elseif a == 3 then
                                        pc . change_alignment ( 8000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Nobil")
                                        elseif a == 4 then
                                        pc . change_alignment ( 20000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Cavaleresc")
                                        end
                                     end
                                  elseif grad1 == 2 then
                                     if pc.get_gold()<3000000 then
                                     say("Nu ai 3.000.000 Yang (3kk)")
                                  else
                                     local b = select ( "Agresiv" , "Fatarnic" , "Rautacios" , "Crud" , "Anuleaza" )
                                        if b == 1 then
                                        pc . change_alignment ( -1000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Agresiv")
                                        elseif b == 2 then
                                        pc . change_alignment ( -4000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Fatarnic")
                                        elseif b == 3 then
                                        pc . change_alignment ( -8000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Rautacios")
                                        elseif b == 4 then
                                        pc . change_alignment ( -20000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Crud")
                                        end
                                     end
                                  end
                               end
                      elseif pagina2 == 5 then
                         say_title("Teleportarea jucatorului:")
                         say("Daca ai 35kk poti sa te teleportezi la un alt jucator.")
                         say_reward("Vrei sa te teleportezi?")
                         local a = select("Da","Nu!")
                            if a == 1 then
                               if pc.get_gold()<35000000 then
                               say("Nu ai 35.000.000 Yang (35kk)")
                            else
                               say_title("Teleportarea jucatorului:")
                               say_reward("Scrie numele jucatorului la care vrei sa te[ENTER]teleportezi:")
                               local name = input()
                                  pc.teleport(name)
                                  pc.changegold(-35000000)
                               end
                            end
                      elseif pagina2 == 6 then
                         say ( "Salut! Iti pot oferi cal lvl 21 in schimbul a 5kk" ) 
                         say ( "Vrei sa iti dau calul?" ) 
                         say ( "" ) 
                         say ( "Sigur vrei?" )
                         local main_set = select("Da", "Nu") 
                            if main_set == 1 then
                               if pc.get_gold()<5000000 then
                               say("Nu ai 5.000.000 Yang (5kk)")
                            else
                               horse . unride ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               pc.changegold(-5000000)
                               command("setsk 131 10")
                               command("setsk 137 20")
                               command("setsk 138 20")
                               command("setsk 139 20")
                               command("setsk 140 20")
                               horse . ride ( ) 
                               setskin ( NOWINDOW ) 
                               pc . give_item2 ( "50053" , 1 )
                            end
                         end
                      elseif pagina2 == 7 then
                         say("Eu iti pot oferi 2 stocuri de marmuri")
                         say("Unul de o marmura; Unul de 5 marmuri")
                         local marmuri = select("Stoc de o Marmura", "Stoc de 5 Marmuri", "Anuleaza")
                            if marmuri == 1 then
                               pc . give_item2 ( "70024" , 1 )
                               say("Ai primit o Marmura")
                            elseif marmuri == 2 then
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               say("Ai primit 5 Marmuri")
                            end
                         end
                      end
                   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 .

  14. #554
    Reply in Gaming
    
    ----------------------------------------------------
    -----    Server: Lorys II           -----
    -----    Author: -------            -----
    ----------------------------------------------------
    
    quest WhissAbilitati begin
            state start begin
                    when login or levelup with pc.level>=5 and pc.skillgroup ==0 begin
                set_state(run)
             end
          end     
             state run begin
                    when login with pc.get_skill_group()!=0 begin
                            restart_quest()
                    end
    
                    when letter with pc.get_skill_group()==0 begin
                      send_letter_ex("Abilitati", "blue,ex", "scroll_open_blue.tga")
                   local job=pc.get_job()
                   end
                   when button or info begin
                      if pc.job == 0 then
                                  say_title("[COLOR r;1|g;0.6|b;0.6]Alege Competenta[/COLOR]")
                                    say("")
                                    ----"123456789012345678901234567890123456789012345678901234567890"|
                            say("Daca admiri Razbonicii pentru atacurile")
                            say("lor rapide si repetative, iti recomanda Lupta")
                            say("de Corp. Daca vrei sa invingi grupuri mari de")
                            say("monstrii dintr-un singur atac iti recomand")
                            say("Lupta Mentala.")
                         local whiss = select ("Corp", "Mental", "Noteaza pe mai tarziu")
                         if whiss == 3 then
                                return
                            end
                      if whiss == 1 then
                         set_state("start")
                            pc.set_skill_group(1)
                            pc.clear_skill()
                            char_log(0, "CLEAR_SKILL", "Clear Skill By Skill Teacher")
                      -------------
                         say("Bun-venit!")
                         say("Odata cu luarea deciziei pentru o invatatura,")
                         say("dobandesti toate magiile la gradul de m1. Le poti")
                         say("folosi la dobandirea deprindeii pe care o alegi.")
                         syschat("Ai ales Lupta de corp.")                  
                         syschat("Ai primit toate magiile la gradul de m1.")
                         pc.set_skill_level(1 ,20)
                         pc.set_skill_level(2 ,20)
                         pc.set_skill_level(3 ,20)
                         pc.set_skill_level(4 ,20)
                         pc.set_skill_level(5 ,20)
                         pc.set_skill_level(6 ,20)
                                  clear_letter()
                end
                      if whiss == 2 then
                      set_state("start")
                            pc.set_skill_group(2)
                            pc.clear_skill()
                            char_log(0, "CLEAR_SKILL", "Clear Skill By Skill Teacher")
                      -----------------------------
                         say("Bun-venit!")
                         say("Odata cu luarea deciziei pentru o invatatura,")
                         say("dobandesti toate magiile la gradul de m1. Le poti")
                         say("folosi la dobandirea deprindeii pe care o alegi.")
                         syschat("Ai ales Lupta mentala.")
                         syschat("Ai primit toate magiile la gradul de m1.")
                         say("")
                         pc.set_skill_level(16 ,20)
                         pc.set_skill_level(17 ,20)
                         pc.set_skill_level(18 ,20)
                         pc.set_skill_level(19 ,20)
                         pc.set_skill_level(20 ,20)
                         pc.set_skill_level(21 ,20)
                                  clear_letter()
                      end
                      end
                      end
                    when letter with pc.get_skill_group()==0 begin
                      send_letter_ex("Abilitati", "blue,ex", "scroll_open_blue.tga")
                   local job=pc.get_job()
                   end
                   when button or info begin
                      if pc.job == 1 then
                                  say_title("[COLOR r;1|g;0.6|b;0.6]Alege Competenta[/COLOR]")
                                    say("")
                                    ----"123456789012345678901234567890123456789012345678901234567890"|
                            say("Daca vrei sa fi cunoscut ca un arcas remarcabil,")
                            say("poti invata Lupta cu Arcul. Daca esti pregatit sa ")
                            say("ai parte de misterioasele secrete ale")
                            say("intunericului, atunci pentru ninja cea mai buna ")
                            say("alegere este Lupta cu Sabia.")
                         local whiss = select ("Lupta cu Arcul", "Lupta cu Sabia", "Noteaza pe mai tarziu")
                         if whiss == 3 then
                                return
                            end
                      if whiss == 1 then
                         set_state("start")
                            pc.set_skill_group(2)
                            pc.clear_skill()
                            char_log(0, "CLEAR_SKILL", "Clear Skill By Skill Teacher")
                      -------------
                         say("Bun-venit!")
                         say("Odata cu luarea deciziei pentru o invatatura,")
                         say("dobandesti toate magiile la gradul de m1. Le poti")
                         say("folosi la dobandirea deprindeii pe care o alegi.")
                         syschat("Ai ales Lupta cu Arcul.")
                         syschat("Ai primit toate magiile la gradul de m1.")
                         say("")
                         pc.set_skill_level(46 ,20)
                         pc.set_skill_level(47 ,20)
                         pc.set_skill_level(48 ,20)
                         pc.set_skill_level(49 ,20)
                         pc.set_skill_level(50 ,20)
                         pc.set_skill_level(51 ,20)
                                  clear_letter()
                end
                      if whiss == 2 then
                      set_state("start")
                            pc.set_skill_group(1)
                            pc.clear_skill()
                            char_log(0, "CLEAR_SKILL", "Clear Skill By Skill Teacher")
                      -----------------------------
                         say("Bun-venit!")
                         say("Odata cu luarea deciziei pentru o invatatura,")
                         say("dobandesti toate magiile la gradul de m1. Le poti")
                         say("folosi la dobandirea deprindeii pe care o alegi.")
                         syschat("Ai ales Lupta cu Sabia.")
                         syschat("Ai primit toate magiile la gradul de m1.")
                         say("")
                         pc.set_skill_level(31 ,20)
                         pc.set_skill_level(32 ,20)
                         pc.set_skill_level(33 ,20)
                         pc.set_skill_level(34 ,20)
                         pc.set_skill_level(35 ,20)
                         pc.set_skill_level(36 ,20)
                                  clear_letter()
                end
                      end
                      end
                    when letter with pc.get_skill_group()==0 begin
                      send_letter_ex("Abilitati", "blue,ex", "scroll_open_blue.tga")
                   local job=pc.get_job()
                   end
                   when button or info begin
                      if pc.job == 0 then
                                  say_title("[COLOR r;1|g;0.6|b;0.6]Alege Competenta[/COLOR]")
                                    say("")
                                    ----"123456789012345678901234567890123456789012345678901234567890"|
                            say("")
                      say("in invatatura armelor magice se exerseaza arta")
                      say("loviturii violente asupra dusmanului slabit prin")
                      say("oscilarea lamelor blestemate.")
                      say("in cadrul invataturii magiei negre se utilizeaza ")
                      say("arta de a slabi dusmanul de la distanta ")
                      say("prin forta blestemelor.")
                         local whiss = select ("Invatatura Armelor Magice", "Invatatura Magiei Negre", "Noteaza pe mai tarziu")
                         if whiss == 3 then
                                return
                            end
                      if whiss == 1 then
                         set_state("start")
                            pc.set_skill_group(1)
                            pc.clear_skill()
                            char_log(0, "CLEAR_SKILL", "Clear Skill By Skill Teacher")
                      -------------
                         say("Bun-venit!")
                         say("Odata cu luarea deciziei pentru o invatatura,")
                         say("dobandesti toate magiile la gradul de m1. Le poti")
                         say("folosi la dobandirea deprindeii pe care o alegi.")
                         syschat("Ai ales Invatatura Armelor Magice.")                  
                         syschat("Ai primit toate magiile la gradul de m1.")
                         pc.set_skill_level(61 ,20)
                         pc.set_skill_level(62 ,20)
                         pc.set_skill_level(63 ,20)
                         pc.set_skill_level(64 ,20)
                         pc.set_skill_level(65 ,20)
                         pc.set_skill_level(66 ,20)
                                  clear_letter()
                end
                      if whiss == 2 then
                      set_state("start")
                            pc.set_skill_group(2)
                            pc.clear_skill()
                            char_log(0, "CLEAR_SKILL", "Clear Skill By Skill Teacher")
                      -----------------------------
                         say("Bun-venit!")
                         say("Odata cu luarea deciziei pentru o invatatura,")
                         say("dobandesti toate magiile la gradul de m1. Le poti")
                         say("folosi la dobandirea deprindeii pe care o alegi.")
                         syschat("Ai ales Invatatura Magiei Negre.")
                         syschat("Ai primit toate magiile la gradul de m1.")
                         say("")
                         pc.set_skill_level(76 ,20)
                         pc.set_skill_level(77 ,20)
                         pc.set_skill_level(78 ,20)
                         pc.set_skill_level(79 ,20)
                         pc.set_skill_level(80 ,20)
                         pc.set_skill_level(81, 20)
                                  clear_letter()
                      end
                      end
                      end
                    when letter with pc.get_skill_group()==0 begin
                      send_letter_ex("Abilitati", "blue,ex", "scroll_open_blue.tga")
                   local job=pc.get_job()
                   end
                   when button or info begin
                      if pc.job == 1 then
                                  say_title("[COLOR r;1|g;0.6|b;0.6]Alege Competenta[/COLOR]")
                                    say("")
                                    ----"123456789012345678901234567890123456789012345678901234567890"|
                      say("invatatura Puterea Dragonului se bazeaza pe")
                      say("atacuri puternice de foc ca cele ale")
                      say("Dragonului dar si pe fermecarea membrilor grupului")
                      say("cu vraji ce le ofera protectia Dragonului.")
                      say("Vindecarea se bazeaza pe impietrirea oponentului")
                      say("cu socuri electrice. De asemenea poti vindeca")
                      say("membrii grupului si le poti oferi forta suplimentara.")
                         local whiss = select ("Puterea Dragonului", "Invatatura Vindecarii", "Noteaza pe mai tarziu")
                         if whiss == 3 then
                                return
                            end
                      if whiss == 1 then
                         set_state("start")
                            pc.set_skill_group(2)
                            pc.clear_skill()
                            char_log(0, "CLEAR_SKILL", "Clear Skill By Skill Teacher")
                      -------------
                         say("Bun-venit!")
                         say("Odata cu luarea deciziei pentru o invatatura,")
                         say("dobandesti toate magiile la gradul de m1. Le poti")
                         say("folosi la dobandirea deprindeii pe care o alegi.")
                         syschat("Ai ales invatatura Vindecarii.")
                         syschat("Ai primit toate magiile la gradul de m1.")
                         say("")
                         pc.set_skill_level(106 ,20)
                         pc.set_skill_level(107 ,20)
                         pc.set_skill_level(108 ,20)
                         pc.set_skill_level(109 ,20)
                         pc.set_skill_level(110 ,20)
                         pc.set_skill_level(111 ,20)
                                  clear_letter()
                end
                      if whiss == 2 then
                      set_state("start")
                            pc.set_skill_group(1)
                            pc.clear_skill()
                            char_log(0, "CLEAR_SKILL", "Clear Skill By Skill Teacher")
                      -----------------------------
                         say("Bun-venit!")
                         say("Odata cu luarea deciziei pentru o invatatura,")
                         say("dobandesti toate magiile la gradul de m1. Le poti")
                         say("folosi la dobandirea deprindeii pe care o alegi.")
                         syschat("Ai ales Lupta cu Sabia.")
                         syschat("Ai primit toate magiile la gradul de m1.")
                         say("")
                         pc.set_skill_level(31 ,20)
                         pc.set_skill_level(32 ,20)
                         pc.set_skill_level(33 ,20)
                         pc.set_skill_level(34 ,20)
                         pc.set_skill_level(35 ,20)
                         pc.set_skill_level(36 ,20)
                                  clear_letter()
                end
                      end   
                      end
                end
                end
                   
    
  15. #555
    Reply in Gaming
    
    ----------------------------------------------
    -----JustIrinel.Ro @ Creeat-----
    ----------------------------------------------
    
    quest gmmode_protection begin
    state start begin
    when 20095.chat."Protectia GM-MODE" with pc.is_gm() begin
    say_title(mob_name(20095)..":")
    if game.get_event_flag("gmmode_protection") == 0 then
    say_title("JustIrinel")
    say("Doriti sa activati Protectia GM-MODE?[ENTER]")
    local s = select(locale.yes, locale.no)
    if s == 1 then
    say_title("JustIrinel")
    say("Protectia GM-MODE Activata.[ENTER]")
    game.set_event_flag("gmmode_protection", 1)
    server_timer("gmmode_protection", 5, get_server_timer_arg())
    end
    elseif game.get_event_flag("gmmode_protection") == 1 then
    say_title("JustIrinel")
    say("Doriti sa dezactivati protectia GM-MODE?[ENTER]")
    local s = select(locale.yes, locale.no)
    if s == 1 then
    say_title("JustIrinel")
    say("Protectia GM MODE a fost dezactivata.[ENTER]")
    game.set_event_flag("gmmode_protection", 0)
    end
    end
    end
    
    when gmmode_protection.server_timer begin
    clear_server_timer("gmmode_protection", get_server_timer_arg())
    if game.get_event_flag("gmmode_protection") == 1 then
    if game.get_event_flag("test") == 1 then
    game.set_event_flag("test", 0)
    end
    server_timer("gmmode_protection", 5, get_server_timer_arg())
    end
    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 .

  16. #556
  17. #557
  18. #558
  19. #559
  20. #560