[COLECTIE]QUEST-URI FOLOSITOARE

Alexandru™ · 01 Oct 2015, 22:40

Salutare! ^_^

Am cateva Questuri facute de un prieten de care nu mai are nevoie
Si decat sa le sterg direct ma-m gandit sa vi le dau voua

!!! Va rog sa lasati Copyrightul. Nu va deranjeaza cu nimic si asa isi extind si el munca. Multumesc! !!!

Nu toate Questurile sunt *WOW* dar sunt folositoare!

Quest #1: Anunt cand cineva omoara un monstru
Informatii: Cand cineva omoara un monstru definit de voi, sus v-a aparea un mesaj pentru toti.
Quest:

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest kill_benachrichtigung begin 
    state start begin 
        when kill with npc.get_race() == MOBVNUM begin -- puneti MOBVNUM  
            notice_all("["..pc.get_name().."] tocmai ce la omorat pe XYZ. Extraordinar!")  -- XYZ inlocuiti cu numele Monstrului
        end 
    end 
end

Quest #2: Primul Login
Informatii: Un anunt mai special care arata cand un nou jucator s-a logat ce rasa si regat a ales.
Quest:

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest primullogin begin
    state start begin
        when login begin
            local tab = {
                ["Regat"] = {
                    [1] = "rosu",
                    [2] = "galben",
                    [3] = "albastru"
                },
                ["Rasa"] = {
                    [0] = "Razboinic",
                    [1] = "Ninja",
                    [2] = "Sura",
                    [3] = "Saman"
                },
                ["Server"] = "Numele Serverului"
            }
            notice_all(string.format("Jucatorul %s din regatul %s a intrat in lumea %s ca %s.", pc.get_name(), tab["Regat"][pc.get_empire()], tab["Server"], tab["Rasa"][pc.get_job()]))
            set_state( __COMPLETE__ )
        end
    end
    state __COMPLETE__ begin
    end
end

Quest #3: Logout Text
Informatii: Cand un jucatorse delogheaza, sus va aparea un mesaj
Quest:

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest logoutinfo begin 
    state start begin 
        when logout or disconnect begin 
            syschat("Multumim ca ai jucat XYZ. Pe data viitoare!") 
        end 
    end 
end

Quest #4: Mod AFK
Informatii: Daca vreti sa mergeti AFK si vreti ca "toti" sa stie va puteti transforma intr-un foc de tabara
Quest:

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest afk begin  
   state start begin  
      when 70028.use begin  
         say_title("Mod AFK")  
         say("Ce doresti sa faci?")
         local b = select("Merg AFK","Am revenit","Inapoi") 
         if b == 1 then 
            say("Ouk, de acum esti AFK!") 
            pc.polymorph(30000, 2000000) 
         end 
         elseif b == 2 then 
            say("Ouk, te transform la loc!") 
            pc.remove_polymorph() 
         end 
         elseif b == 3 then 
            say("Ouk!") 
            return 
         end 
      end 
   end
end

Quest #5: Dragonul ucigas
Informatii: La nivelul 100 trebuie sa omorati Dragonul Albastru
Quest:

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest dragon begin
   state start begin
      when login with pc.level >= 100 begin
         set_state(information)
      end
   end

   state information begin
      when letter begin
         send_letter("Dragonul ucigas")
      end

      when info or button begin
         say_title("Dragonul ucigas"")
         say("Vino mai aproape micutule.")
         say("Am auzit ca in ultimul timp ai devenit foarte puternic.")
         say("De aceea am o rugaminte la tine:")
         say("Fata mea a fost ucisa acum mult timp de o bestie nemiloasa.")
         say("Te rog sa imi razbuni fata.")
         say("Daca reusesti iti voi da o recompensa pe masura!")
         say_reward("Omoara Dragonul Albastru!")
         say("")
           pc.setqf("state")
           q.set_counter("2493", 1)
      end

      when 2291.kill begin
         local count = pc.getqf("state1
         if count <= 1 then
            pc.setqf("stateunt)
               q.set_counter("2493", count)
         end
         if count == 0 then
             say_title("Dragonul ucigas")
             say("Multumesc ca ai omorat Dragonul.")
            say("Ca recompensa primesti sigiliul lui Azrael!")
            pc.give_item2(19, 1)
            pc.give_item2(11219, 1)
            clear_letter()
            set_state(__COMPLETE__)

         end
      end
   end

   state __COMPLETE__ begin
   end
end

Quest #6: Interzice shop
Informatii: Cu acest Quest puteti interzice pe un Map sa se poata deschide Magazine Private. Trebuie doar sa puneti Indexul Mapei
Quest:

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest buendel begin
    state start begin
        when 50200.use begin
            if pc.get_map_index() == 66 then
                chat ("Aici nu poti face un Magazin!")
            else
                cmdchat("OpenPrivateShop")
            end
        end 
    end
end

Quest #7: Nivelul dorit
Informatii: Jucatorul isi poate alege nivelul dorit
Quest:

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest leveldorit begin
    state start begin
        when npcvnum.chat."Nivelul dorit" begin
            say_title("NPCNAME:")
            say("Ce nivel doresti sa ai?")
            local a=input()
            if tonumber(a)==false then
                say_title("NPCNAME:")
                say("Introduce doar cifre te rog!")
            else
                pc.set_level(a)
                say_title("NPCNAME:")
                say("Acum ai nivelul "..pc.get_level().."")
            end
        end
    end
end

De adaugat in questlib.lua:

Cod: Selectaţi tot

function pc.set_level(x)
    while pc.get_level() ~= x do
        pc.give_exp2(pc.get_next_exp())
    end
end

Quest #8: Yang la nimereala
Informatii: Cand cineva foloseste un anumit Item primeste -1000 Yang sau +1000 Yang. Suma poate fi schimbata. Itemul dispare dupa folosire
Quest:

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest changegold begin  
    when vnum.use begin    -- VNUM-ul unui Item trebuie pus iar Itemul trebuie sa aiba Type 18  
        pc.change_gold((number(0,1)==1 and -1000 or 1000)) 
        pc.remove_item(item.vnum, 1) 
    end  
end

Quest #9: VIP
Informatii: Acest Quest pune numele [VIP] in fata unui jucator. P.S in Quest scrie (VIP) dar dupa ce schimbati numele o sa apara [VIP]
Quest:

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest vip begin
    state start begin
        when ITEM_VNUM.use begin --- ITEM_VNUM trebuie inlocuit cu VNUM-ul Itemul care sa activeze VIP si trebuie sa aiba Type 18
            say_title("Salutare "..pc.get_name().."!")
            say("Cu .")
            say("")
            say("")
            say("Doresti sa devii VIP?")
            say(pc.get_name(), " -----------> (VIP)", pc.get_name())
            local aw = select("Da", "Nu")
            if aw == 2 then
            return
            end
                name = pc.get_name()
                zahl = string.len(name)
                if aw == 1 and zahl <= 7 then
                mysql_query("UPDATE player.player SET name='[VIP]"..pc.get_name().."' WHERE name='"..pc.get_name().."'")
                say_title("Status schimbat cu succes!")
                say("Felicitari! Acum esti VIP pe Nmele Serverului.")
                say("")
                say("")
                say("Informatie")
                say_reward("Schimbarea in statusul (VIP) poate dura 20-30 de Minute.")
                elseif zahl > 7 then
                say_title("Numele tau!")
                say("Numnele tau este prea lung.")
                say("Numele nu are voie sa aiba mai mult de 7 caractere.")
                say("Daca nu respecti regula numele tau s-ar putea schimba in")
                say("de exemplu, DaRealPain --> (VIP)DaRealP")
                say("")
                say("")
                say_reward("Vrei totusi sa continui?")
                local a = select("Da", "Nu")
                if a == 2 then
                return
                end
                    say_title("Schimbarea numelui")
                    say("Introdu numele dorit:")
                    say_reward("Fii atent!Nu mai mult de 7 caractere.")
                    local inp = input()
                    if string.len(inp) > 7 or inp == "" then
                    say("Numele tau are mai mult de 7 caractere.")
                    say("Imi pare sincer rau.")
                    return
                    else
                    say_title("Ouk")
                    say("Numele tau respecta cerinta.")
                    say("")
                    say("Esti sigur ca vrei sa activezi statusul VIP")
                    say("cu numele (VIP)", inp," ?")
                    local b = select("Da", "Nu")
                        if b == 2 then
                        return
                        else
                        mysql_query("UPDATE player.player SET name='[VIP]"..inp.."' WHERE name='"..pc.get_name().."'")
                        say_title("Status schimbat cu succes!")
                        say("Felicitari! Acum esti VIP pe Nmele Serverului.")
                        say("")
                        say("")
                        say("Info")
                        say_reward("Schimbarea in statusul (VIP) poate dura 20-30 de Minute.")
                    end
                end
            end
        end
    end
end

Changelog:

Cod: Selectaţi tot

03.01.2015 - 02:47 -> Quest 1 si 2 adaugat
03.01.2015 - 17:58 -> Quest 3 adaugat
03.01.2015 - 18:16 -> Quest 4 si 5 adaugat
03.01.2015 - 18:29 -> Quest 6 adaugat
03.01.2015 - 19:52 -> Quest 7 adaugat
03.01.2015 - 21:59 -> Quest 8 adaugat
03.01.2015 - 22:20 -> Quest 9 adaugat

Un mulțumesc nu strică..!
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. Testaţi quest-ul.

Lozy · 02 Oct 2015, 18:08

Bravo.

[COLECTIE]QUEST-URI FOLOSITOARE

Cateva quest-uri folositoare pentru orice server

[NOU]4 Questuri folositoare !

cateva imagini folositoare

Erori launcher-programe folositoare

Cine este conectat