Action TFS 0.X Mining System

[xWhiteWolf 3008]

Antes de tudo queria agradecer ao cara do suporte que me pediu pra fazer isso, achei muito legal a idéia.

Fala galera do TK, vim trazer um script bem simpleszinho mas que abre um leque de opções de RPG e diversão pro seu OT.. Trata-se do Mining System, um sistema que você pode utilizar a pick normal (ou uma outra pick especial) para minerar a terra e tentar conseguir items que você pode trocar por dinheiro, items ou utilizar para craftar items. São 70 leveis de Mining que vão upando conforme vc minera.

Enfim, vamos ao script:

actions\scripts\mining.lua:

terra = {351,352,353,354,355}
 levels = {
[-1] = 2229, ---- skull
[0] = 1294, --- small stone
[1] = 3976, --- worm
[10] = 2149, -- Small Emerald
[12] = 2146, -- Small Sapphire
[15] = 2145, -- Small Diamond 
[17] = 2150, -- Small Amethyst
[20] = 2147, -- Small Ruby
[25] = 2144, -- Black Pearls 
[27] = 2143, -- White Pearls
[30] = 2157, -- Gold Nuggets
[35] = 2156, --- red gem
[36] = 2158, -- blue gem 
[37] = 2155, -- green gem 
[38] = 2153, -- violet gem
[39] = 2154, -- yellow gem
[40] = 7761, -- small enchanted emerald 
[42] = 7759, -- Small Enchanted Sapphiire
[45] = 7762, -- Small Enchanted Amethyst
[50] = 7760, -- Small Enchanted Ruby
[70] = 2177  -- Life Crystal
} 


local config = {
storage = 19333,
chance = 40, --- chance de achar um item ou não
k = 2, --- constante de level.. quanto maior, mais fácil é upar. (a fórmula é level ao quadrado dividido pela constante)
experience = 19334
}


function onUse(cid, item, fromPosition, itemEx, toPosition)


local drops = {}


function getDrops(cid)
for i= -1,getPlayerStorageValue(cid, config.storage) do
if levels[i] then
table.insert(drops, levels[i])
end
end
return true
end


if isInArray(terra, itemEx.itemid) then
getDrops(cid)
doPlayerSetStorageValue(cid, config.experience, getPlayerStorageValue(cid, config.experience)+1)
local experience = getPlayerStorageValue(cid, config.experience)
if experience >= (8+(getPlayerStorageValue(cid, config.storage)^2))/config.k then
doPlayerSetStorageValue(cid, config.storage, getPlayerStorageValue(cid, config.storage)+1)
doPlayerSendTextMessage(cid, 27, "Congratulations, you have leveled! Your currect level is "..getPlayerStorageValue(cid, config.storage) ..".")
if getPlayerStorageValue(cid, config.storage) == 50 then
doPlayerSendTextMessage(cid, 20, "For reaching level "..getPlayerStorageValue(cid, config.storage) .." you have been awarded with Mining Helmet.")
doPlayerAddItem(cid, 7497, 1, true)
end
end
if config.chance >= math.random(1,100) then
if #drops >= 1 then
local item = drops[math.random(1,#drops)]
doPlayerSendTextMessage(cid, 27, "You have found a "..getItemNameById(item)..".")
doPlayerAddItem(cid, item, 1, true)
end
doSendMagicEffect(toPosition, 3)
else
doSendMagicEffect(toPosition, 2)
return true
end
elseif itemEx.itemid == item.itemid then
doPlayerSendTextMessage(cid, 27, "You're currenctly level "..getPlayerStorageValue(cid, config.storage)..".")
else
return false
end
return true
end

em terra vc coloca os ids dos chãos em que é possível minerar, levels é o level da skill e o ID do respectivo item que você fica capaz de conseguir após alcançar esse nível. Em outras palavras, no começo vc só consegue minerar skull, no nv 70 vc vai ter a chance de conseguir todos os items anteriores e não só life crystal. O restante das configurações está no meio do script:

local config = {

storage = 19333,

chance = 40, --- chance de achar um item ou não

k = 2, --- constante de level.. quanto maior, mais fácil é upar. (a fórmula é level ao quadrado dividido pela constante)

experience = 19334

}

o storage é onde vai salvar o seu nível

chance é a chance de pegar um item cada vez que minera.

k é a constante de level, o nivel 10 precisa de 10*10/k de experiencia para ser alcançado (com k sendo 2 dá 50 de experiencia), ou seja, com 50 picaretadas na terra vc pega nivel 10.

experience é o storage que fica salvo sua experiencia.

Bônus: Ao alcançar level 50 você ganha o Mining Helmet como prêmio, ele não faz nada de especial mas é como se fosse um troféu. No meu server tem uma série de troféus que voce pode colecionar e fica como sendo uma conquista épica para os players.

e no actions.xml:

<action itemid="2553" script="mining.lua"/>

OBS: Sugiro que vcs utilizem uma outra pick pra não dar conflito mas você faz oque quiser.

PS: Uma fotinha pra vcs verem

Spoiler

Espero que tenham gostado!  

[Wend 976]

Bom conteúdo *--* Com Certeza irei usa em meu Servidor  

Reputado!

[luanluciano93 1994]

Ótimo ideia, vai ajudar muitos usuários, reputado.

[Farathor 14]

n teria como colocar por action?, por exemplo, coloco a action em tal lugar, dai ali pode minerar, e os lugares que não tiver não pode

 

 

e me explica melhor isso  "  k = 2, --- constante de level.. quanto maior, mais fácil é upar. (a fórmula é level ao quadrado dividido pela constante) "

Editado Junho 18, 2014 por Farathor (veja o histórico de edições)

[xWhiteWolf 3008]

dá ué.. 

terra = {65783}
.
.
.
isInArray(terra, itemEx.uid)

agora só vai dar pra minerar nos pisos que tiverem unique id 65783.

A constante de level é o seguinte.. a fórmula da experiência necessária é level²/k (level ao quadrado dividido por k). Se vc quer upar nivel 70 vc precisa minerar 70*70/k que da 2450 vezes.

[Farathor 14]

resumindo, a cada level upado fica mais difícil de upar?

[xWhiteWolf 3008]

sim ué.. pra upar do 50 pro 51 a conta é a seguinte:

(51*51/k) - (50*50/k) que é igual a 1300 - 1250 = 50 picaretadas.

[Rezende.16 33]

Achei um ótimo sistema , rep + parabéns

Editado Junho 24, 2014 por Rezende.16 (veja o histórico de edições)

[Markone Victor 2]

nao tem como colocar um exhausted no script?

[xWhiteWolf 3008]

tem sim, eu só não coloquei porque o próprio tibia ja tem um sistema de exhausted padrão de 1 segundo entre ações contendo itemEx (que é configurável pelo config.lua)

[Rudkiller 7]

Muito bom Lobo! rep+ pra vc! Venho acompanhando seus scripts desde que entrei no TibiaKing, você é foda! 

Tenho uma sugestão aqui tipo, ao invés de minerar o chão, o player minera as paredes de cavernas, daí é só configurar os ids da parede no script, assim:

terra = {id da parede de caverna,id,id,id}

Editado Janeiro 10, 2015 por Rudkiller (veja o histórico de edições)

[Thayam 187]

Esse WhiteWolf é inacreditável hahah! Reputado irmão!

[xWhiteWolf 3008]

@Rudkiller, obrigado  , pra fazer da forma que vc quer é só adicionar o id das bordas de caverna ali e remover os do chão (ou mantém os dois haha)

[7804364 0]

when i use the pickaxe on ids i get no console errors but i get "you cannot use this item" tfs 1.1

[xWhiteWolf 3008]

this script was developed for 0.3.6 so It explains alot of the no working but it should show errors in console, specially because it was made for a older version.
Probably you are using the same id of pick for both scripts (the original one and mine) and they're conflicting. Remove the older and use mine, you'll see the errors

[elipe 5]

desculpe reviver o topico, mas gostaria de saber se é possivel colocar para uma classe especifica pode ultilizar... obrigado xD

[xWhiteWolf 3008]

12 horas atrás, elipe disse:

desculpe reviver o topico, mas gostaria de saber se é possivel colocar para uma classe especifica pode ultilizar... obrigado xD

claro, abaixo de 

function onUse(cid, item, fromPosition, itemEx, toPosition)

coloque

if getPlayerVocation(cid) ~= X then return false end


Se a classe for diferente de X (insira o numero da classe aqui) então cancele.

[rheynkhen 26]

wolf tenho uma dúvida com a parte de actions desse seu script de mining:

 

terra = {9021,9022,9023,9024,9025}
 levels = {
[-1] = 2229, ---- skull
[0] = 1294, --- small stone
[1] = 3976, --- worm
[10] = 2149, -- Small Emerald
[12] = 2146, -- Small Sapphire
[15] = 2145, -- Small Diamond 
[17] = 2150, -- Small Amethyst
[20] = 2147, -- Small Ruby
[25] = 2144, -- Black Pearls 
[27] = 2143, -- White Pearls
[40] = 7761, -- small enchanted emerald 
[42] = 7759, -- Small Enchanted Sapphiire
[45] = 7762, -- Small Enchanted Amethyst
[50] = 7760, -- Small Enchanted Ruby
[80] = 2157, -- Gold Nuggets 
[100] = 2177, 2157, 2156, 2158, 2155, 2153, 2154 -- Life Crystal, red gem, blue gem, green gem, violet gem, yellow gem
}

local config = {
storage = 19333,
chance = 15, --- chance de achar um item ou não
k = 1, --- constante de level.. quanto maior, mais fácil é upar. (a fórmula é level ao quadrado dividido pela constante)
experience = 19334
}


function onUse(cid, item, fromPosition, itemEx, toPosition)


local drops = {}


function getDrops(cid)
for i= -1,getPlayerStorageValue(cid, config.storage) do
if levels[i] then
table.insert(drops, levels[i])
end
end
return true
end


if isInArray(terra, itemEx.itemid) then
getDrops(cid)
doPlayerSetStorageValue(cid, config.experience, getPlayerStorageValue(cid, config.experience)+1)
local experience = getPlayerStorageValue(cid, config.experience)
if experience >= (8+(getPlayerStorageValue(cid, config.storage)^2))/config.k then
doPlayerSetStorageValue(cid, config.storage, getPlayerStorageValue(cid, config.storage)+1)
doPlayerSendTextMessage(cid, 27, "Congratulations, you have leveled! Your currect level is "..getPlayerStorageValue(cid, config.storage) ..".")
if getPlayerStorageValue(cid, config.storage) == 50 then
doPlayerSendTextMessage(cid, 20, "For reaching level "..getPlayerStorageValue(cid, config.storage) .." you have been awarded with Mining Helmet.")
doPlayerAddItem(cid, 7497, 1, true)
end
end
if config.chance >= math.random(1,100) then
if #drops >= 1 then
local item = drops[math.random(1,#drops)]
doPlayerSendTextMessage(cid, 27, "You have found a "..getItemNameById(item)..".")
doPlayerAddItem(cid, item, 1, true)
end
doSendMagicEffect(toPosition, 3)
else
doSendMagicEffect(toPosition, 2)
return true
end
elseif itemEx.itemid == item.itemid then
doPlayerSendTextMessage(cid, 27, "You're currenctly level "..getPlayerStorageValue(cid, config.storage)..".")
else
return false
end
return true
end

a tabela no inicio  onde vc configura os níveis de mining, pelo que eu entendi de acordo com cada skill somente a partir do mesmo os itens que estão configurados viriam.

 

no meu server usando como exemplo as gems são de extrema utilidade, e esta configurado para somente no skill de mining 100 poder consegui-las correto? essa seria  a lógica certo?

 

estou estranhando uma coisa digamos que meu skill de mining seja 28, mesmo assim eu estou conseguindo as gems sendo que só seria possível com skill 100, não ha erros nada do tipo distro,console, etc.., somente esta situação, poderia dizer como fixar pra ficar cravado que somente no skill correspondente da tabela ter a chance de achar o item pois não só com as gem mas em todos itens configurados com seus respectivos skills não importa em qual nível eu ja esteja com o mining todos podem aparecer.

 

desculpe se eu acabei enrolando com muita informação.

Editado Junho 29, 2016 por rheynkhen (veja o histórico de edições)

[xWhiteWolf 3008]

local drops = {}


function getDrops(cid)
for i= -1,getPlayerStorageValue(cid, config.storage) do
if levels[i] then
table.insert(drops, levels[i])
end
end
return true
end

a tabela de drops inicialmente tá vazia, aí eu vou de -1 até o valor do storage configurado pra ser o level;

se existir levels ele insere o item na tabela de drops.

Por fim ele pega aleatoriamente um dos itens da tabela de drops.

Oque tá acontecendo no seu script é q vc cometeu um erro bem simples, vc colocou 

[100] = 2177, 2157, 2156, 2158, 2155, 2153, 2154

a tabela entende isso da seguinte maneira

[100] = 2177,
[2] = 2157,
[3] = 2156.. e por aí vai.

Se você quiser usar desse jeito q vc fez, vc tem que botar um { no 100, ficando assim a linha inteira>
[100] = {2177, 2157, 2156, 2158, 2155, 2153, 2154} -- Life Crystal, red gem, blue gem, green gem, violet gem, yellow gem

assim vc denota que todos esses elementos pertencem ao 100, só que aí vc teria que modificar pra em vez dele verificar somente o levels ele verifica se caso o levels for uma tabela, então adicionar todos os elementos dela.

if type(levels) == 'table' then

 for _, v in ipairs (levels) do
   table.insert(drops, v)
else
table.insert(drops, levels)
end
end


Outra solução seria deixar no mesmo modelo do script original, ou seja, em vez de atribuir todos esses pro 100, vc poderia atribuir pra niveis intermédiarios:
[98] = 2157
[99] = 2156...

[di12345d 2]

terra = {6573}
 levels = {
[-1] = 2229, ---- skull
[0] = 1294, --- small stone
[1] = 3976, --- worm
[10] = 2149, -- Small Emerald
[12] = 2146, -- Small Sapphire
[15] = 2145, -- Small Diamond 
[17] = 2150, -- Small Amethyst
[20] = 2147, -- Small Ruby
[25] = 2144, -- Black Pearls 
[27] = 2143, -- White Pearls
[30] = 2157, -- Gold Nuggets
[35] = 2156, --- red gem
[36] = 2158, -- blue gem 
[37] = 2155, -- green gem 
[38] = 2153, -- violet gem
[39] = 2154, -- yellow gem
[40] = 7761, -- small enchanted emerald 
[42] = 7759, -- Small Enchanted Sapphiire
[45] = 7762, -- Small Enchanted Amethyst
[50] = 7760, -- Small Enchanted Ruby
[70] = 2177  -- Life Crystal
} 


local config = {
storage = 19333,
chance = 40, --- chance de achar um item ou não
k = 1, --- constante de level.. quanto maior, mais fácil é upar. (a fórmula é level ao quadrado dividido pela constante)
experience = 19334
}


function onUse(cid, item, fromPosition, itemEx, toPosition)


local drops = {}


function getDrops(cid)
for i= -1,getPlayerStorageValue(cid, config.storage) do
if levels[i] then
table.insert(drops, levels[i])
end
end
return true
end


if isInArray(terra, itemEx.itemid) then
getDrops(cid)
doPlayerSetStorageValue(cid, config.experience, getPlayerStorageValue(cid, config.experience)+1)
local experience = getPlayerStorageValue(cid, config.experience)
if experience >= (8+(getPlayerStorageValue(cid, config.storage)^2))/config.k then
doPlayerSetStorageValue(cid, config.storage, getPlayerStorageValue(cid, config.storage)+1)
doPlayerSendTextMessage(cid, 27, "Congratulations, you have leveled! Your currect level is "..getPlayerStorageValue(cid, config.storage) ..".")
if getPlayerStorageValue(cid, config.storage) == 50 then
doPlayerSendTextMessage(cid, 20, "For reaching level "..getPlayerStorageValue(cid, config.storage) .." you have been awarded with Mining Helmet.")
doPlayerAddItem(cid, 7497, 1, true)
end
end
if config.chance >= math.random(1,100) then
if #drops >= 1 then
local item = drops[math.random(1,#drops)]
doPlayerSendTextMessage(cid, 27, "You have found a "..getItemNameById(item)..".")
doPlayerAddItem(cid, item, 1, true)
end
doSendMagicEffect(toPosition, 3)
else
doSendMagicEffect(toPosition, 2)
return true
end
elseif itemEx.itemid == item.itemid then
doPlayerSendTextMessage(cid, 27, "You're currenctly level "..getPlayerStorageValue(cid, config.storage)..".")
else
return false
end
return true
end

tentei de 2 maneiras usar o script, usando como action e uniqID no caso no piso e não deu certo falta alterar algo no script?

 

pra não dar erro de duplicação você poderia deixar como action  tudo bem?

 

irei usar varios crystais para minerar será em 1 servidor RPG