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

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

Vancinis escribió:Buen Aporte Maya, Funciona para tfs 1.0?

si funciona

es para tibia 8.60

lowuher escribió:es para tibia 8.60

si es para tibia 8.60

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 !

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

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?

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

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]

buenas, todo funciona correctamente solo una pregunta, es normal que salga como broadcast y de ser asi, como lo puedo quitar y que salga solo para quien la uso

chili bizc escribió:buenas, todo funciona correctamente solo una pregunta, es normal que salga como broadcast y de ser asi, como lo puedo quitar y que salga solo para quien la uso

En vez de broadcast "doBroadcastMessage" lo cambias a doPlayerSendTextMessage

lo hice pero me arroja error en consola

Código:

[Error - Action Interface]
[17:18:26.743] data/actions/scripts/shoprandom.lua:onUse
[17:18:26.754] Description:
[17:18:26.758] (LuaInterface::luaDoPlayerSendTextMessage) Player not found

hice varios scripts de estos, 10 en total con diferentes items, diferentes actionid y cualquiera que ponga me da el sorteo del ultimo script que tengo por ejemplo:
randomshop1.lua - reward addon doll - actionid 2021
randomshop2.lua - reward exp token - actionid 2022
randomshop3.lua - reward una sword - actionid 2023

si uso el actionid 2021, me da el reward del actionid 2023, de igual manera si uso el actionid 2022 me da reward de actionid 2023

sabran por que pasa eso? uso tfs 0.4

chili bizc escribió:hice varios scripts de estos, 10 en total con diferentes items, diferentes actionid y cualquiera que ponga me da el sorteo del ultimo script que tengo por ejemplo:
randomshop1.lua - reward addon doll - actionid 2021
randomshop2.lua - reward exp token - actionid 2022
randomshop3.lua - reward una sword - actionid 2023

si uso el actionid 2021, me da el reward del actionid 2023, de igual manera si uso el actionid 2022 me da reward de actionid 2023

sabran por que pasa eso? uso tfs 0.4

parece que el scripts esta confundiendo y unificando los scripts en uno solo

tarata de cambiar el nombre a tu local

Código:

local CB =

a cada uno de tu scripts nuevo que vayas creando

me podrias dar un ejemplo?

hice el cambio de nombre en local CB = pero sigue haciendo lo mismo, da el ltimo item del ultimo script registrado

hola se puede este mismo codigo pero que en vez de pedir Crystal Coins te quite puntos premium?

uso

ZNOTEACC
OTX 2 8.6