Divine lua vip commands problem

NarcoRP

El Diablo Nunca Duerme
Divine
NarcoRP Rep
1
0
0
Rep
3
NarcoRP Vouches
0
0
0
Vouches
0
Posts
132
Likes
109
2 YEARS
2 YEARS OF SERVICE
LEVEL 8 81 XP
lua problem vip lua commands the command works rank 1 which is a moderator I added the source vip system out of the staff ranks I don't know how to explain it I have this lua command as I told you it works as a moderator level 1 I want my vip system
?hash=8c34e206c8c46cb42d6e048cb0e25836.png



and this is the lua that I want to work since I see changes from IsPremium it is not normal ranges of staff SEC_MODERATOR or I am wrong I don't know the truth can you help me

C++:
--[[
-- Script Name : VIP  Commands
-- Made By : PrivateDonut
-- Version : 1.0
-- Description : This script allows you to add VIP commands to your server.
]] --

local vipCooldown = 10 -- Enfriamiento en segundos para comandos VIP

-- Manage VIP Commands
-- true = Turned on, false = turned off
local vip = true
local vipBuffs = true
local vipWhisperOn = true
local vipWhisperOff = true
local vipMall = true
local vipChangeFaction = false
local vipChangeRace = false
local vipChangeName = false

-- Gestionar privilegios de comandos VIP
-- No necesita editar esto si solo tiene un rango VIP
-- Puede configurar el acceso a cada comando según sus necesidades, usa account_access en la tabla de autenticación.
local vipPrivilege = 1
local vipBuffPrivilege = 1
local vipWhisperOnPrivilege = 1
local vipWhisperOffPrivilege = 1
local vipMallPrivilege = 1
local vipChangeFactionPrivilege = 1
local vipChangeRacePrivilege = 1
local vipChangeNamePrivilege = 1

-- Manage Mall Cords
local vipMallX = 5845.691406 -- X Cord
local vipMallY = 648.121155 -- Y Cord
local vipMallZ = 647.512634 -- Z Cord
local vipMallO = 0.131922 -- O Cord
local vipMallMap = 571 -- Map ID

-- VIP Buffs
-- You can add as many buffs here as you'd like, just seperate them with a comma. The last entry doesn't need a comma.
local vipBuff = {
    35912,
    65075
}

-- Do not edit below this line unless you know what you're doing
local cooldowns = {}
local buff = {}
function commandCooldown(player, command, cooldownTime)
    -- Check if the player is on cooldown
    if (cooldowns[player:GetGUIDLow() .. command] ~= nil) then
        local currentTime = os.time()
        if (currentTime < cooldowns[player:GetGUIDLow() .. command]) then
            player:SendBroadcastMessage("Tu debes esperar " .. cooldowns[player:GetGUIDLow() .. command] - currentTime .." segundos antes de volver a usar este comando.")
            return false
        end
    end
    cooldowns[player:GetGUIDLow() .. command] = os.time() + cooldownTime
    return true
end

function OnChatMessage(event, player, command, type, language)
    local rank = player:GetGMRank()

    if command == "vip" then
        if rank >= vipPrivilege then
            if vip == true then
                if commandCooldown(player, command, vipCooldown) then
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r ~~ VIP Lista de comandos ~~")
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r .vip - muestra esta lista")
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r .vip mall - Teletransportarse al centro comercial VIP!")
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r .vip buff - Mejorate")
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r .vip susurro activado - activa el susurro")
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r .vip susurro apagado - apagar susurro")
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r .vip changefaction - Cambia tu facción")
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r .vip changerace - Change your race")
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r .vip changename - Change your name")
                else
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|rThe VIP el comando está deshabilitado.")
                end
            end
        else
            player:SendBroadcastMessage("|cFFFF0000[VIP System]|r No tienes permiso para usar este comando.")
        end
    end

    if command == "vip mall" then
        if rank >= vipMallPrivilege then
            if vipMall == true then
                if commandCooldown(player, command, vipCooldown) then
                    -- Check if player is in combat
                    if player:IsInCombat() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r No puedes usar este comando mientras estás en combate.!")
                        return false
                    end
                    -- Check if player is dead
                    if player:IsDead() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r No puedes usar este comando mientras estás muerto!")
                        return false
                    end
                    -- Check if player is in a vehicle
                    if player:IsOnVehicle() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r No puede usar este comando mientras está en un vehículo!")
                        return false
                    end
                    player:Teleport(vipMallMap, vipMallX, vipMallY, vipMallZ, vipMallO)
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r Ahora estás siendo teletransportado al centro comercial VIP.!")
                end
            else
                player:SendBroadcastMessage("|cFFFF0000[VIP System]|r El comando VIP Mall está deshabilitado.")
            end
        else
            player:SendBroadcastMessage("|cFFFF0000[VIP System]|r No tienes permiso para usar este comando.")
        end
    end

    if command == "vip buff" then
        if rank >= vipBuffPrivilege then
            if vipBuffs == true then
                if commandCooldown(player, command, vipCooldown) then
                    -- Check if player is in combat
                    if player:IsInCombat() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while in combat!")
                        return false
                    end
                    -- Check if player is dead
                    if player:IsDead() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while dead!")
                        return false
                    end
                    -- Check if player is in a vehicle
                    if player:IsOnVehicle() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while in a vehicle!")
                        return false
                    end
                    for i = 1, #vipBuff do
                        player:AddAura(vipBuff[i], player)
                    end
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You have been buffed!")
                end
            else
                player:SendBroadcastMessage("|cFFFF0000[VIP System]|r The VIP Buff command is disabled.")
            end
        else
            player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You do not have permission to use this command.")
        end
    end

    if command == "vip whisper on" then
        if rank >= vipWhisperOnPrivilege then
            if vipWhisperOn == true then
                if commandCooldown(player, command, vipCooldown) then
                    -- Check if player is in combat
                    if player:IsInCombat() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while in combat!")
                        return false
                    end
                    -- Check if player is dead
                    if player:IsDead() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while dead!")
                        return false
                    end
                    player:SetAcceptWhispers()
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You have turned whispers back on")
                end
            else
                player:SendBroadcastMessage("|cFFFF0000[VIP System]|r The VIP whisper on command is disabled.")
            end
        else
            player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You do not have permission to use this command.")
        end
    end

    if command == "vip whisper off" then
        if rank >= vipWhisperOnPrivilege then
            if vipWhisperOff == true then
                if commandCooldown(player, command, vipCooldown) then
                    -- Check if player is in combat
                    if player:IsInCombat() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while in combat!")
                        return false
                    end
                    -- Check if player is dead
                    if player:IsDead() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while dead!")
                        return false
                    end
                    player:SetAcceptWhispers(false)
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You have turned whisper off!")
                end
            else
                player:SendBroadcastMessage("|cFFFF0000[VIP System]|r The VIP whisper off command is disabled.")
            end
        else
            player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You do not have permission to use this command.")
        end
    end

    if command == "vip changefaction" then
        if rank >= vipChangeFactionPrivilege then
            if vipChangeFaction == true then
                if commandCooldown(player, command, vipCooldown) then
                    -- Check if player is in combat
                    if player:IsInCombat() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while in combat!")
                        return false
                    end
                    -- Check if player is dead
                    if player:IsDead() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while dead!")
                        return false
                    end
                    -- Check if player is in a vehicle
                    if player:IsOnVehicle() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while in a vehicle!")
                        return false
                    end
                    player:SetAtLoginFlag(64)
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You will be able to change your faction on your next login!")
                end
            else
                player:SendBroadcastMessage("|cFFFF0000[VIP System]|r The VIP change faction command is disabled.")
            end
        else
            player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You do not have permission to use this command.")
        end
    end

    if command == "vip changerace" then
        if rank >= vipChangeRacePrivilege then
            if vipChangeRace == true then
                if commandCooldown(player, command, vipCooldown) then
                    -- check if player is in combat
                    if player:IsInCombat() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while in combat!")
                        return false
                    end
                    -- check if player is dead
                    if player:IsDead() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while dead!")
                        return false
                    end
                    player:SetAtLoginFlag(128)
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You will be able to change your race on your next login!")
                end
            else
                player:SendBroadcastMessage("|cFFFF0000[VIP System]|r The VIP whisper on command is disabled.")
            end
        else
            player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You do not have permission to use this command.")
        end
    end

    if command == "vip changename" then
        if rank >= vipChangeNamePrivilege then
            if vipChangeName == true then
                if commandCooldown(player, command, vipCooldown) then
                    -- check if player is in combat
                    if player:IsInCombat() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while in combat!")
                        return false
                    end
                    -- check if player is dead
                    if player:IsDead() then
                        player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You cannot use this command while dead!")
                        return false
                    end
                    player:SetAtLoginFlag(1)
                    player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You will be able to change your name on your next login!")
                end
            else
                player:SendBroadcastMessage("|cFFFF0000[VIP System]|r The VIP change name command is disabled.")
            end
        else
            player:SendBroadcastMessage("|cFFFF0000[VIP System]|r You do not have permission to use this command.")
        end
    end

end

local function DeleteChat(event, player, command)
    if (command:find("vip")) then
        return false
    end
end

RegisterPlayerEvent(42, OnChatMessage)
RegisterPlayerEvent(42, DeleteChat)
 

Attachments

  • Captura.PNG
    Captura.PNG
    31.3 KB · Views: 0
  • vip_commands.lua
    13.2 KB · Views: 1

maxyazrael

Active member
maxyazrael Rep
0
0
0
Rep
0
maxyazrael Vouches
0
0
0
Vouches
0
Posts
26
Likes
20
Bits
2 YEARS
2 YEARS OF SERVICE
LEVEL 1 55 XP
[CÓDIGO]
-- Gracias Kusa por las guias -- editar Mj Levy Ackerman

-- Por favor antes de usar este script - en el SQL que te dejo junto a este enlace, primero agrega el SQL: "account_vip" a tu auth
-- Una ves puesto en tu autenticación, buscarás la tabla nueva que se llamará "account_vip" la abres, te saldra 3 columnas, AccountId - Vip_Level - active
-- En la primera columna AccountId vas a poner la ID de tu cuenta
-- En la segunda columna Vip_Level vas a poner el numero 1
-- y en la tercera no pondras nada, la deja vacia o en 0.

-- Cuando hayas hecho eso ya podrás probar tus scripts, funciona con estos comandos:

-- #vip en --> activa el vip
-- #vip off --> Desactiva el vip
-- #buff --> Te bufa
-- #reparar --> reparar tus artículos
-- #banco --> abre tu banco
-- #tvip --> te lleva a la zona vip

-- Recuerda cualquiera duda de no saber ponerlo avisarme no más, chauu.

VIP locales = 1
activo_1 local = 1
activo_0 local = 0


-- Lista de hechizos personalizados
Hechizo local1 = 15366
Hechizo local2 = 16609
Hechizo local3 = 48162
Hechizo local4 = 48074
Hechizo local5 = 48170
Hechizo local6 = 43223
Hechizo local7 = 36880
Hechizo local8 = 467
Hechizo local9 = 69994
Hechizo local10 = 33081
Hechizo local11 = 24705
Hechizo local12 = 26035
Hechizo local13 = 48469



local NoVIP1 = "|cffff0000[SystemVip]|r lo siento"
local NoVIP2 = "Tu no eres VIP |r"

ActiveVip1 local = "|cffff0000[SystemVip]|r"
local ActiveVip2 = "Active su vip en"

VipOn local = "|cff00ff00|TInterface\\icons\\spell_holy_fanaticism:15|t|r VIP activado |cffff0000"

local VipOff = "|cff00ff00|TInterface\\icons\\Spell_Shadow_DeathScream:15|t|r ¡VIP Desactivado! |cffff0000"

local Buff = "|cff00ff00|TInterface\\icons\\Spell_Nature_StormReach:15|t|r Estás Buffed |cffff0000"


función local CustomVipActive(evento, jugador, mensaje, _, idioma)
resultado local = AuthDBQuery("SELECCIONE AccountId DESDE account_vip DONDE Vip_Level=1 and AccountId = "..player:GetAccountId())
if (msg == "#vip on") entonces -- Usa #premium para enviar el menú de chismes
si (resultado) entonces
OnMenuVipOnHello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..NoVIP1.." "..jugador:GetName()..""..NoVIP2.."")
fin
fin
fin

función local CustomVipOff(evento, reproductor, mensaje, _, idioma)
resultado local = AuthDBQuery("SELECCIONE AccountId DESDE account_vip DONDE Vip_Level=1 and AccountId = "..player:GetAccountId())
if (msg == "#vip off") entonces -- Usa #premium para enviar el menú de chismes
si (resultado) entonces
OnMenuVipOffHello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..NoVIP1.." "..jugador:GetName()..""..NoVIP2.."")
fin
fin
fin

función local Custom0OnChat(evento, reproductor, mensaje, _, idioma)
resultado local = AuthDBQuery("SELECCIONE AccountId DE Account_VIP DONDE activo=1 y AccountId = "..player:GetAccountId())
si (mensaje == "#buff") entonces --
si (resultado) entonces
OnMenu0Hello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..ActiveVip1.." "..jugador:GetName().." "..ActiveVip2.."")
fin
fin
fin

función local Custom1OnChat(evento, reproductor, mensaje, _, idioma)
resultado local = AuthDBQuery("SELECCIONE AccountId DE Account_VIP DONDE activo=1 y AccountId = "..player:GetAccountId())
si (mensaje == "#reparar") entonces --
si (resultado) entonces
OnMenu1Hello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..ActiveVip1.." "..jugador:GetName().." "..ActiveVip2.."")
fin
fin
fin

función local Custom2OnChat(evento, reproductor, mensaje, _, idioma)
resultado local = AuthDBQuery("SELECCIONE AccountId DE Account_VIP DONDE activo=1 y AccountId = "..player:GetAccountId())
si (mensaje == "#banco") entonces --
si (resultado) entonces
OnMenu2Hello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..ActiveVip1.." "..jugador:GetName().." "..ActiveVip2.."")
fin
fin
fin

función local Custom3OnChat(evento, reproductor, mensaje, _, idioma)
resultado local3 = AuthDBQuery("SELECCIONE AccountId DE Account_VIP DONDE activo=1 y AccountId = "..player:GetAccountId())
si (mensaje == "#tvip") entonces --
si (resultado3) entonces
OnMenu3Hello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..ActiveVip1.." "..jugador:GetName().." "..ActiveVip2.."")
fin
fin
fin

función OnMenuVipOnHello(evento, jugador)
AuthDBQuery("REPLACE INTO Account_VIP (AccountId, Vip_Level, active) VALORES ("..player:GetAccountId().. ","..VIP..","..active_1..")")
jugador:SendAreaTriggerMessage(""..VipOn..""..jugador:GetName().."")
jugador:SendBroadcastMessage(""..VipOn..""..jugador:GetName().."")
fin

función OnMenuVipOffHello(evento, jugador)
AuthDBQuery("ACTUALIZAR auth.Account_VIP SET `active`='"..active_0.."' WHERE `AccountId`='"..player:GetAccountId().."';");
jugador:SendAreaTriggerMessage(""..VipOff..""..jugador:GetName().."")
jugador:SendBroadcastMessage(""..VipOff..""..jugador:GetName().."")
fin

función OnMenu0Hello(evento, jugador)


-- Estos son los buff que estan arriba, ahi mismo los cambias

jugador: CastSpell (jugador, Spell1, verdadero)
jugador: CastSpell (jugador, Spell2, verdadero)
jugador: CastSpell (jugador, Spell3, verdadero)
jugador: CastSpell (jugador, Spell4, verdadero)
jugador: CastSpell (jugador, Spell5, verdadero)
jugador: CastSpell (jugador, Spell6, verdadero)
jugador: CastSpell (jugador, Spell7, verdadero)
jugador: CastSpell (jugador, Spell8, verdadero)
jugador: CastSpell (jugador, Spell9, verdadero)
jugador: CastSpell (jugador, Spell10, verdadero)
jugador: CastSpell (jugador, Spell11, verdadero)
jugador: CastSpell (jugador, Spell12, verdadero)
jugador: CastSpell (jugador, Spell13, verdadero)
jugador:SendAreaTriggerMessage(""..Buff..""..jugador:GetName().."")
jugador:SendBroadcastMessage(""..Buff..""..jugador:GetName().."")
fin


Reparación local = "|cff00ff00Sus artículos están arreglados |cffff0000"
Banco local = "|cff00ff00Banco de |cffff0000"
local MsgTele = "|cff00FF1DTeleporting [zona vip]"

función OnMenu1Hello(evento, jugador)
player:DurabilityRepairAll() -- Esto es para reparar tus items
jugador:SendBroadcastMessage(""..Reparar..""..jugador:ObtenerNombre().."")
jugador:GossipComplete()
fin


función OnMenu2Hello(evento, jugador)
player:SendShowBank(player) --- Mostrar tu banco
jugador:SendBroadcastMessage(""..Banco..""..jugador:ObtenerNombre().."")
jugador:GossipComplete()
fin

función OnMenu3Hello(evento, jugador)
player:Teleport(0, 4298.775879, -2762.187256, 16.632673, 3.633596) -- Aqui para cambiar coordenadas a la zona VIP, recuerda usar .gps y ponerlas en el orden = (MAP, X, Y, Z, O)
jugador:Desmontar()
jugador:EnviarMensajeBroadcast(""..MsgTele"..")
jugador:EnviarNotificación("|cff00FF1DEspera un minuto...")
jugador:GossipComplete()
fin

función local VIPLogout (evento, jugador) --Este Remove Vip On.
AuthDBQuery("ACTUALIZAR auth.Account_VIP SET `active`='"..active_0.."' WHERE `AccountId`='"..player:GetAccountId().."';");
fin

-- Registro de eventos
Registrar evento de jugador (4, cierre de sesión VIP)
Registrar evento de jugador (18, Custom0OnChat)
Registrar evento de jugador (18, Custom1OnChat)
Registrar evento de jugador (18, Custom2OnChat)
Registrar evento de jugador (18, Custom3OnChat)
RegisterPlayerEvent(18, CustomVipActive)
Registrar evento de jugador (18, CustomVipOff)
[/CODIGO]


Usa este lua cuando tenia lk
 

NarcoRP

El Diablo Nunca Duerme
Divine
NarcoRP Rep
1
0
0
Rep
3
NarcoRP Vouches
0
0
0
Vouches
0
Posts
132
Likes
109
2 YEARS
2 YEARS OF SERVICE
LEVEL 8 81 XP
[CÓDIGO]
-- Gracias Kusa por las guias -- editar Mj Levy Ackerman

-- Por favor antes de usar este script - en el SQL que te dejo junto a este enlace, primero agrega el SQL: "account_vip" a tu auth
-- Una ves puesto en tu autenticación, buscarás la tabla nueva que se llamará "account_vip" la abres, te saldra 3 columnas, AccountId - Vip_Level - active
-- En la primera columna AccountId vas a poner la ID de tu cuenta
-- En la segunda columna Vip_Level vas a poner el numero 1
-- y en la tercera no pondras nada, la deja vacia o en 0.

-- Cuando hayas hecho eso ya podrás probar tus scripts, funciona con estos comandos:

-- #vip en --> activa el vip
-- #vip off --> Desactiva el vip
-- #buff --> Te bufa
-- #reparar --> reparar tus artículos
-- #banco --> abre tu banco
-- #tvip --> te lleva a la zona vip

-- Recuerda cualquiera duda de no saber ponerlo avisarme no más, chauu.

VIP locales = 1
activo_1 local = 1
activo_0 local = 0


-- Lista de hechizos personalizados
Hechizo local1 = 15366
Hechizo local2 = 16609
Hechizo local3 = 48162
Hechizo local4 = 48074
Hechizo local5 = 48170
Hechizo local6 = 43223
Hechizo local7 = 36880
Hechizo local8 = 467
Hechizo local9 = 69994
Hechizo local10 = 33081
Hechizo local11 = 24705
Hechizo local12 = 26035
Hechizo local13 = 48469



local NoVIP1 = "|cffff0000[SystemVip]|r lo siento"
local NoVIP2 = "Tu no eres VIP |r"

ActiveVip1 local = "|cffff0000[SystemVip]|r"
local ActiveVip2 = "Active su vip en"

VipOn local = "|cff00ff00|TInterface\\icons\\spell_holy_fanaticism:15|t|r VIP activado |cffff0000"

local VipOff = "|cff00ff00|TInterface\\icons\\Spell_Shadow_DeathScream:15|t|r ¡VIP Desactivado! |cffff0000"

local Buff = "|cff00ff00|TInterface\\icons\\Spell_Nature_StormReach:15|t|r Estás Buffed |cffff0000"


función local CustomVipActive(evento, jugador, mensaje, _, idioma)
resultado local = AuthDBQuery("SELECCIONE AccountId DESDE account_vip DONDE Vip_Level=1 and AccountId = "..player:GetAccountId())
if (msg == "#vip on") entonces -- Usa #premium para enviar el menú de chismes
si (resultado) entonces
OnMenuVipOnHello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..NoVIP1.." "..jugador:GetName()..""..NoVIP2.."")
fin
fin
fin

función local CustomVipOff(evento, reproductor, mensaje, _, idioma)
resultado local = AuthDBQuery("SELECCIONE AccountId DESDE account_vip DONDE Vip_Level=1 and AccountId = "..player:GetAccountId())
if (msg == "#vip off") entonces -- Usa #premium para enviar el menú de chismes
si (resultado) entonces
OnMenuVipOffHello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..NoVIP1.." "..jugador:GetName()..""..NoVIP2.."")
fin
fin
fin

función local Custom0OnChat(evento, reproductor, mensaje, _, idioma)
resultado local = AuthDBQuery("SELECCIONE AccountId DE Account_VIP DONDE activo=1 y AccountId = "..player:GetAccountId())
si (mensaje == "#buff") entonces --
si (resultado) entonces
OnMenu0Hello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..ActiveVip1.." "..jugador:GetName().." "..ActiveVip2.."")
fin
fin
fin

función local Custom1OnChat(evento, reproductor, mensaje, _, idioma)
resultado local = AuthDBQuery("SELECCIONE AccountId DE Account_VIP DONDE activo=1 y AccountId = "..player:GetAccountId())
si (mensaje == "#reparar") entonces --
si (resultado) entonces
OnMenu1Hello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..ActiveVip1.." "..jugador:GetName().." "..ActiveVip2.."")
fin
fin
fin

función local Custom2OnChat(evento, reproductor, mensaje, _, idioma)
resultado local = AuthDBQuery("SELECCIONE AccountId DE Account_VIP DONDE activo=1 y AccountId = "..player:GetAccountId())
si (mensaje == "#banco") entonces --
si (resultado) entonces
OnMenu2Hello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..ActiveVip1.." "..jugador:GetName().." "..ActiveVip2.."")
fin
fin
fin

función local Custom3OnChat(evento, reproductor, mensaje, _, idioma)
resultado local3 = AuthDBQuery("SELECCIONE AccountId DE Account_VIP DONDE activo=1 y AccountId = "..player:GetAccountId())
si (mensaje == "#tvip") entonces --
si (resultado3) entonces
OnMenu3Hello(evento, jugador)
demás
jugador:SendBroadcastMessage(""..ActiveVip1.." "..jugador:GetName().." "..ActiveVip2.."")
fin
fin
fin

función OnMenuVipOnHello(evento, jugador)
AuthDBQuery("REPLACE INTO Account_VIP (AccountId, Vip_Level, active) VALORES ("..player:GetAccountId().. ","..VIP..","..active_1..")")
jugador:SendAreaTriggerMessage(""..VipOn..""..jugador:GetName().."")
jugador:SendBroadcastMessage(""..VipOn..""..jugador:GetName().."")
fin

función OnMenuVipOffHello(evento, jugador)
AuthDBQuery("ACTUALIZAR auth.Account_VIP SET `active`='"..active_0.."' WHERE `AccountId`='"..player:GetAccountId().."';");
jugador:SendAreaTriggerMessage(""..VipOff..""..jugador:GetName().."")
jugador:SendBroadcastMessage(""..VipOff..""..jugador:GetName().."")
fin

función OnMenu0Hello(evento, jugador)


-- Estos son los buff que estan arriba, ahi mismo los cambias

jugador: CastSpell (jugador, Spell1, verdadero)
jugador: CastSpell (jugador, Spell2, verdadero)
jugador: CastSpell (jugador, Spell3, verdadero)
jugador: CastSpell (jugador, Spell4, verdadero)
jugador: CastSpell (jugador, Spell5, verdadero)
jugador: CastSpell (jugador, Spell6, verdadero)
jugador: CastSpell (jugador, Spell7, verdadero)
jugador: CastSpell (jugador, Spell8, verdadero)
jugador: CastSpell (jugador, Spell9, verdadero)
jugador: CastSpell (jugador, Spell10, verdadero)
jugador: CastSpell (jugador, Spell11, verdadero)
jugador: CastSpell (jugador, Spell12, verdadero)
jugador: CastSpell (jugador, Spell13, verdadero)
jugador:SendAreaTriggerMessage(""..Buff..""..jugador:GetName().."")
jugador:SendBroadcastMessage(""..Buff..""..jugador:GetName().."")
fin


Reparación local = "|cff00ff00Sus artículos están arreglados |cffff0000"
Banco local = "|cff00ff00Banco de |cffff0000"
local MsgTele = "|cff00FF1DTeleporting [zona vip]"

función OnMenu1Hello(evento, jugador)
player:DurabilityRepairAll() -- Esto es para reparar tus items
jugador:SendBroadcastMessage(""..Reparar..""..jugador:ObtenerNombre().."")
jugador:GossipComplete()
fin


función OnMenu2Hello(evento, jugador)
player:SendShowBank(player) --- Mostrar tu banco
jugador:SendBroadcastMessage(""..Banco..""..jugador:ObtenerNombre().."")
jugador:GossipComplete()
fin

función OnMenu3Hello(evento, jugador)
player:Teleport(0, 4298.775879, -2762.187256, 16.632673, 3.633596) -- Aqui para cambiar coordenadas a la zona VIP, recuerda usar .gps y ponerlas en el orden = (MAP, X, Y, Z, O)
jugador:Desmontar()
jugador:EnviarMensajeBroadcast(""..MsgTele"..")
jugador:EnviarNotificación("|cff00FF1DEspera un minuto...")
jugador:GossipComplete()
fin

función local VIPLogout (evento, jugador) --Este Remove Vip On.
AuthDBQuery("ACTUALIZAR auth.Account_VIP SET `active`='"..active_0.."' WHERE `AccountId`='"..player:GetAccountId().."';");
fin

-- Registro de eventos
Registrar evento de jugador (4, cierre de sesión VIP)
Registrar evento de jugador (18, Custom0OnChat)
Registrar evento de jugador (18, Custom1OnChat)
Registrar evento de jugador (18, Custom2OnChat)
Registrar evento de jugador (18, Custom3OnChat)
RegisterPlayerEvent(18, CustomVipActive)
Registrar evento de jugador (18, CustomVipOff)
[/CODIGO]


Usa este lua cuando tenia lk
what is that I don't understand
 

maxyazrael

Active member
maxyazrael Rep
0
0
0
Rep
0
maxyazrael Vouches
0
0
0
Vouches
0
Posts
26
Likes
20
Bits
2 YEARS
2 YEARS OF SERVICE
LEVEL 1 55 XP
that's a vip system in lua for wow
 

NarcoRP

El Diablo Nunca Duerme
Divine
NarcoRP Rep
1
0
0
Rep
3
NarcoRP Vouches
0
0
0
Vouches
0
Posts
132
Likes
109
2 YEARS
2 YEARS OF SERVICE
LEVEL 8 81 XP
that's a vip system in lua for wow
the one I have is the same as a vip system I'm not asking to be passed I'm asking for help how to modify that lua
 

maxyazrael

Active member
maxyazrael Rep
0
0
0
Rep
0
maxyazrael Vouches
0
0
0
Vouches
0
Posts
26
Likes
20
Bits
2 YEARS
2 YEARS OF SERVICE
LEVEL 1 55 XP
haa ok entiendo y que quieres modificar?
 

NarcoRP

El Diablo Nunca Duerme
Divine
NarcoRP Rep
1
0
0
Rep
3
NarcoRP Vouches
0
0
0
Vouches
0
Posts
132
Likes
109
2 YEARS
2 YEARS OF SERVICE
LEVEL 8 81 XP

maxyazrael

Active member
maxyazrael Rep
0
0
0
Rep
0
maxyazrael Vouches
0
0
0
Vouches
0
Posts
26
Likes
20
Bits
2 YEARS
2 YEARS OF SERVICE
LEVEL 1 55 XP
Ceo que tengo ese mismo comando custom vip en lua y si mal no recuerdo necesita un sql en el auth donde se agrega el id de la cuenta que lo va a usar independiente del rango gm que tenga o no
ya dentro del juego ps lo comandos que trae
 

NarcoRP

El Diablo Nunca Duerme
Divine
NarcoRP Rep
1
0
0
Rep
3
NarcoRP Vouches
0
0
0
Vouches
0
Posts
132
Likes
109
2 YEARS
2 YEARS OF SERVICE
LEVEL 8 81 XP
Ceo que tengo ese mismo comando custom vip en lua y si mal no recuerdo necesita un sql en el auth donde se agrega el id de la cuenta que lo va a usar independiente del rango gm que tenga o no
ya dentro del juego ps lo comandos que trae
tu estas usando tanbla diferente account_vip el mio es account_premium que es IsPremium y depaso tu lua esta malo esta traducido español con signos de carita y eso
 

maxyazrael

Active member
maxyazrael Rep
0
0
0
Rep
0
maxyazrael Vouches
0
0
0
Vouches
0
Posts
26
Likes
20
Bits
2 YEARS
2 YEARS OF SERVICE
LEVEL 1 55 XP
aclaro que no fue el que postie ese es el sitema el otro es comando custom vip si utiliza una tabla account vip
en la cual se puede elegir el id de la cuenta y otorgarle rango de vip acorde a lo que esta en el lua
 

3,390

1,271

9,555

428

Top