Premium(VIP) Oyuncu Görevi Questi

Nizam-ı Alem · 23 Mar 2025

Merhaba Değerli forum üyeleri forumda yok diye biliyorum böyle bir sistem sizlerle paylaşmak istedim hepinize iyi forumlar.

Özellikler:
Premium ve VIP oyunculara bazı ek özellikler sunar, örneğin:
Başka bir oyuncuya ışınlanma
GM olarak duyurulma [zamanla]
İstenildiği zaman P becerilerinin etkinleştirilmesi
V4'te doğrudan bosslara ışınlanma vb.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

SQL:

-- Quest »» Premium Member -
---------------------------------------------
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

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.