• TibiaFace

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

    .
    demo menumenu

    Afiliados



    Votar:

    [Actions] Palanca que cobra y te da un item aleatoriamente

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

    [Admin] God Maya

    avatar
    Administrador
    Administrador
    hola usuarios de tibiaface

    hoy le traigo un script de una palanca que que al darle use le quita cierta cantidad de dinare y le vende un item al randon o mejor dicho al sorteo ustedes pueden añadir mas items.

    instalacion:

    Se van a:

    data/actions/scripts

    copian cualquier archivo y renombran por shoprandom.lua y pegan esto dentro

    Código:
    -- CONFIGURAÇÕES --
    PR = {2494, 2346, 7366, 8921, 7366} -- ID de los item sorteados.
    money = {2160, 'crystal coin'} -- ID de item y nombre que le cobrara en este caso son crystal coin.
    count = 20 -- cantidad de dinero.
    cast = "[Alavanca Mágica]"
    function onUse(cid, item, fromPosition, itemEx, toPosition)
    local roleta = math.random(1, #PR)
    local CB = {
    doSendAnimatedText, doSendMagicEffect,
    doPlayerAddItem, doPlayerRemoveItem
    }
    if not CB[4](cid, money[1], count) then
        doPlayerSendCancel(cid, "Usted necesita de "..count.." "..money[2].." para usar la palanca mágica.")
                          CB[2](getThingPos(cid), CONST_ME_POFF)
    else
    CB[2](getThingPos(cid), 14)
                if(roleta == 1) then
                                CB[3](cid, PR[1], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." uso la palanca mágica y gano 1 "..getItemNameById(PR[1])..".", 22)
                elseif(roleta == 2) then
                                CB[3](cid, PR[2], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." uso la palanca mágica y gano 1 "..getItemNameById(PR[2])..".", 22)             
                elseif(roleta == 3) then
                                CB[3](cid, PR[3], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." uso la palanca mágica y gano 1 "..getItemNameById(PR[3])..".", 22)           
                elseif(roleta == 4) then
                                CB[3](cid, PR[4], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." uso la palanca mágica y gano 1 "..getItemNameById(PR[4])..".", 22)             
                elseif(roleta == 5) then
                                CB[3](cid, PR[5], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." uso la palanca mágica y gano 1 "..getItemNameById(PR[5])..".", 22)
    end
    end
    return TRUE
    end

    luego añaden esta tag en:

    Data/actions/actions.xml

    Código:
    <action actionid="2021" event="script" value="shoprandom.lua"/>



    créditos : Halls Santos



    Ver perfil de usuario http://www.tibiaface.com

    Vancinis

    avatar
    Miembro
    Miembro
    Buen Aporte Maya, Funciona para tfs 1.0?

    Ver perfil de usuario

    [Admin] God Maya

    avatar
    Administrador
    Administrador
    Vancinis escribió:Buen Aporte Maya, Funciona para tfs 1.0?
    si funciona



    Ver perfil de usuario http://www.tibiaface.com

    lowuher

    avatar
    Nuevo Miembro
    Nuevo Miembro
    es para tibia 8.60

    Ver perfil de usuario

    [Admin] God Maya

    avatar
    Administrador
    Administrador
    lowuher escribió:es para tibia 8.60


    si es para tibia 8.60



    Ver perfil de usuario http://www.tibiaface.com

    Krapula

    avatar
    Donador User
    Donador User
    Aqui brosito Todo perfect Pero no me da Nada Solamente quita el item pero no da La Reward :S

    No da error ni nada que podra ser? nisiquiera me dice dnd podria estar yo equivocandome !

    Ver perfil de usuario http://www.facebook.com

    [Admin] God Maya

    avatar
    Administrador
    Administrador
    Krapula escribió:Aqui brosito Todo perfect Pero no me da Nada Solamente quita el item pero no da La Reward :S

    No da error ni nada que podra ser? nisiquiera me dice dnd podria estar yo equivocandome !


    Código:
    PR = {13982, 13947, 13954, 13975, 13968, 13961, 13989, 13996} --- Coloque o id que sera sorteado
    money = {2145, 'small diamond'} -- ID do diamond
    count = 3 ---- Quantidade dos diamonds
    cast = "[sORTEADOR DE ITEM]"
    function onUse(cid, item, fromPosition, itemEx, toPosition)
    local roleta = math.random(1, #PR)
    local CB = {
    doSendAnimatedText, doSendMagicEffect,
    doPlayerAddItem, doPlayerRemoveItem
    }
    if not CB[4](cid, money[1], count) then
        doPlayerSendCancel(cid, "Você precisa de "..count.." "..money[2].." pra usar o sorteador de items.")
                          CB[2](getThingPos(cid), CONST_ME_POFF)
    else
    CB[2](getThingPos(cid), 14)
                if(roleta == 1) then
                                CB[3](cid, PR[1], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." usou o sorteador de items e ganhou 1 "..getItemNameById(PR[1])..".", 22)
                elseif(roleta == 2) then
                                CB[3](cid, PR[2], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." usou o sorteador de items e ganhou 1 "..getItemNameById(PR[2])..".", 22)             
                elseif(roleta == 3) then
                                CB[3](cid, PR[3], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." usou o sorteador de items e ganhou 1 "..getItemNameById(PR[3])..".", 22)           
                elseif(roleta == 4) then
                                CB[3](cid, PR[4], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." usou o sorteador de items e ganhou 1 "..getItemNameById(PR[4])..".", 22)             
                elseif(roleta == 5) then
                                CB[3](cid, PR[5], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." usou o sorteador de items e ganhou 1 "..getItemNameById(PR[5])..".", 22)             
                elseif(roleta == 6) then
                                CB[3](cid, PR[6], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." usou o sorteador de items e ganhou 1 "..getItemNameById(PR[6])..".", 22)             
                elseif(roleta == 7) then
                                CB[3](cid, PR[7], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." usou o sorteador de items e ganhou 1 "..getItemNameById(PR[7])..".", 22)             
                elseif(roleta == 8) then
                                CB[3](cid, PR[8], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." usou o sorteador de items e ganhou 1 "..getItemNameById(PR[8])..".", 22)
    end
    end
    return TRUE
    end



    Ver perfil de usuario http://www.tibiaface.com

    Krapula

    avatar
    Donador User
    Donador User
    Con esto funciona pero solo me da 1 item intente 10 veces y me dio 4 item y repetido no es posible q nunca falle al intentar?

    Ver perfil de usuario http://www.facebook.com

    [Admin] God Maya

    avatar
    Administrador
    Administrador
    Krapula escribió:Con esto funciona pero solo me da 1 item intente 10 veces y me dio 4 item y repetido no es posible q nunca falle al intentar?

    aqui en esta linea te muestra el randon

    Código:
    local roleta = math.random(1, #PR)

    1 al numero de cantidad de item agregados



    Ver perfil de usuario http://www.tibiaface.com

    Krapula

    avatar
    Donador User
    Donador User
    Explicare para quien luego necesite el script es que yo adicione muchisimos item mas a la ruleta y eso tambien quiere decir que tengo que agregar muchas mas lineas de
    Código:
     elseif(roleta == 8) then
                                CB[3](cid, PR[8], 1)
    doBroadcastMessage(""..cast.." "..getCreatureName(cid).." Usted ha Ganado en su sorteo 1 "..getItemNameById(PR[8])..".", 22)

    y seguirle la secuencia Para que funcione el scrip en otx tambien se debe cambiar esta linea [code]<action actionid="2021" event="script" value="shoprandom.lua"/>/code]

    Por esta en el action.xml para que pueda funcionar
    [code]<action uniqueid="2021" event="script" value="shoprandom.lua"/>[/code]

    Ver perfil de usuario http://www.facebook.com

    Contenido patrocinado


    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).