• TibiaFace

    Tibiaface | Una comunidad Open Tibia donde encontras : mapas, scripts, Otserver, npc y amigos etc ...

    .
    demo menumenu

    Afiliados



    Votar:

    [talkaction] !regalar

    Compartir:

    Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje (Página 1 de 1.)

    1[talkaction] !regalar Empty [talkaction] !regalar Miér Sep 11, 2013 12:29 pm

    [Admin] God Maya

    [Admin] God Maya
    Administrador
    Administrador
    !regalar 3.0
    mi nueva versión de este script
    funciones:
    le regala un item o varios(del mismo tipo) a un o todos los players online.-
    Código:

        !regalar player, chain armor
        !regalar player, crystal coin, 80
    Comandos de god:
    Código:
       !regalar player, 2160, 100
        !regalar todos, 2195
    agregan la siguiente linea en talkaction.xml
    Código:
       <talkaction words="!regalar" event="script" value="regalar.lua"/>
    regalar.lua

    Código:

        -- Sistema de regalo 3.0
        -- script creado por Leyendario.
        -- soporte tecnico del script directamente con Leyendario.
        local function regalarItem(cid, itemid, amount)
            local item = 0
            if(isItemStackable(itemid)) then
                item = doCreateItemEx(itemid, amount)
                if(doPlayerAddItemEx(cid, item, true) ~= RETURNVALUE_NOERROR) then
                    return false
                end
            else
                for i = 1, amount do
                    item = doCreateItemEx(itemid)
                    if(doPlayerAddItemEx(cid, item, true) ~= RETURNVALUE_NOERROR) then
                        return false
                    end
                end
            end
            
            return true
        end

        function onSay(cid, words, param, channel)
            
            if(param == "") then
                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "diga un nombre, seguido del item, seguido de la cantidad(opcional)  ejemplo: !regalar leyendario, chain armor, 1")
                return TRUE
            end
            
            local leyendario = string.explode(param, ",")
            local cantidad = 1
            local regalar = leyendario[2]
            
            if (leyendario[3]) then
                cantidad = leyendario[3]
            end  
           
            local id = tonumber(regalar)
            
            if(not id) then
                id = getItemIdByName(regalar, false)
                if(not id) then
                    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Un item con ese nombre no existe.")
                    return true
                else
                    regalar = id  
               end
            end
            
            
            
            if(isItemMovable(regalar) == false) then
                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "item no se puede regalar")
                return TRUE
            else
                
                if(leyendario[1] == "todos") then
                    if getPlayerGroupId(cid) > 4 then
                        local monos = getPlayersOnline()
                        local ley = {}
                        for i, lol in ipairs(monos) do
                            ley[i] = lol
                            local tengo_ladilla = ley[#ley]
                            regalarItem(tengo_ladilla, regalar, cantidad)        
                       end
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "regalos entregados")
                        
                    else
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "player no encontrado")
                    end
                    return TRUE
                end
                
                if (getPlayerByName(leyendario[1])) then
                    if getPlayerGroupId(cid) > 4 then
                        regalarItem(getPlayerByNameWildcard(leyendario[1]), regalar, cantidad)      
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "regalo entregado")
                    else
                        if getPlayerItemCount(cid,regalar) >= cantidad then
                            doPlayerRemoveItem(cid, regalar, cantidad)
                            regalarItem(getPlayerByNameWildcard(leyendario[1]), regalar, cantidad)      
                            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "regalo entregado")
                        else
                            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "no tienes este item")
                        end
                    end
                    return TRUE
                else
                    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "persona no encontrada")
                end
            end
            return TRUE
        end
    creditos leyendario



    [talkaction] !regalar YNU5B25
    2 participantes
    http://www.tibiaface.com

    2[talkaction] !regalar Empty Re: [talkaction] !regalar Vie Sep 20, 2013 9:25 am

    Psycho

    Psycho
    Moderador
    Moderador
    man ese script siempre tubo un problema el de que todos los usuarios lo pueden usar.
    aunque se le ponga asi aun asi lo pueden usar los players lo provare y vere si aun sigue teniendo ese problema!..

    <talkaction words="!regalar" access="5" event="script" value="regalar.lua"/>



    AFC By Psycho & DMOT Server
    [Tienes que estar registrado y conectado para ver este vínculo]
    2 participantes
    http://digidarkss.com

    3[talkaction] !regalar Empty Re: [talkaction] !regalar Vie Sep 20, 2013 12:28 pm

    [Admin] God Maya

    [Admin] God Maya
    Administrador
    Administrador
    bueno revisare ese script y tomare encuenta lo que dice



    [talkaction] !regalar YNU5B25
    2 participantes
    http://www.tibiaface.com

    Contenido patrocinado


    2 participantes

    Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje (Página 1 de 1.)

    Permisos de este foro:
    No puedes responder a temas en este foro.

     

    BienvenidosTibiaFace es una comunidad de Open Tibia. Para participar debes estar registrado (click para Regístrate).