Tibiaface | Una comunidad Open Tibia donde encontras : mapas, scripts, Otserver, npc y amigos etc ...
Mensaje (Página 1 de 1.)
Caja Misteriosa el Miér Nov 08, 2017 4:46 pm
Última edición por The_Pain el Jue Nov 16, 2017 6:30 am, editado 2 veces (Razón : Blanca77 no supo expresar la idea, editado por el staff)
Re: Caja Misteriosa el Miér Nov 08, 2017 4:54 pm![[Adm] SevuOT](https://7img.net/users/2712/30/40/04/avatars/10743-22.jpg)
Foro 
Members 
Calendario 
Información 
Shop TibiaFace
Editar Perfil 
Temas Recientes 
4REYES 
<action itemid="xxxx" script="caja_misteriosa.lua" />local posibleItems = {
{ id = 2160, count = 1, chance = 50 },
{ id = 2152, count = 1, chance = 50 }
}
function onUse(player, item, fromPosition, target, toPosition, isHotkey)
local regalo = posibleItems[math.random(1, #posibleItems)]
local aceptado = false
while not aceptado do
local random = math.random(100)
if random <= regalo.chance then
aceptado = true
else
regalo = posibleItems[math.random(1, #posibleItems)]
end
end
player:addItem(regalo.id, regalo.count)
player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, 'Has encontrado ' .. ItemType(regalo.id):getName() .. '.')
player:getPosition():sendMagicEffect(CONST_ME_FIREWORK_YELLOW)
return true
end
Re: Caja Misteriosa el Dom Nov 26, 2017 9:22 pm
para 8.6 el Mar Nov 28, 2017 8:15 pmlocal items = { --The sum of all % must be 100
--{itemId, count, win %},
{2195, 1, 10},
{2157, 50, 40},
{2160, 25, 50},
{2152, 100, 10}
}
function onUse(cid, item, fromPosition, itemEx, toPosition)
local chance = math.random(1,100)
for i = 1, #items, 1 do
if(chance < items[i][3]) then
local itemInfo = getItemInfo(items[i][1])
doPlayerAddItem(cid, items[i][1], items[i][2])
if(items[i][2] == 1) then
itemInfo = itemInfo.article .. " " .. itemInfo.name
else
itemInfo = items[i][2] .. " " .. itemInfo.plural
end
doPlayerSendTextMessage(cid, 25, "You have received " .. itemInfo .. ".")
doRemoveItem(item.uid)
return true
else
chance = chance - items[i][3]
end
end
--This should never happen if done correctly!
doPlayerSendTextMessage(cid, 25, "You failed to open the box.")
return false
end
Mensaje (Página 1 de 1.)
Temas similares
Permisos de este foro:
No puedes responder a temas en este foro.
|
|
|
