Mineração

[Baxnie 8]

Nome do Sistema: Mining

Nome do Autor: Baxnie

Servidor Testado: OpenTibia last SVN - 8.52

Script de mineração.

Para usar, pegue uma pick e utilize em uma das pedras que está na variavel mining.

Para adicionar novas pedras, é só adicionar na variável mining.

Estrutura da variável mining:

{ pedraQueVamosUtilizarAPick, pedraQuePodeSerExtraida1, chanceDeSerExtraida1, pedraQuePodeSerExtraida2, chanceDeSerExtraida2, ... }

A chance é de 1 em X.

mining.lua

-- Mining script by Baxnie - 17/10/2009
-- Structure: {stone, ore1Id, ore1Chance, ore2Id, ore2Chance, ...}
-- Chance is 1 in X

local mining = {{8633, 2146, 10}, -- Blue Large Crystal, Small Sapphire, 10
               {8634, 2150, 10}, -- Light Blue Large Crystal, Small Amethyst, 10
               {8635, 2147, 10}, -- Red Large Crystal, Small Ruby, 10
               {8636, 2149, 10}, -- Green Large Crystal, Small Emerald, 10
               {8637, 2146, 10}, -- Blue Crystal, Small Sapphire, 10
               {8638, 2150, 10}, -- Light Blue Crystal, Small Amethyst, 10
               {8639, 2147, 10}, -- Red Crystal, Small Ruby, 10
               {8640, 2149, 10}, -- Green Crystal, Small Emerald, 10
               {1290, 5880, 10, 2145, 30}} -- Stone, Iron Ore, 10, Small Diamond, 30

function onUse(cid, item, frompos, item2, topos)
   for i = 1, #mining do
       if(item2.itemid == mining[i][1]) then
           local j = 2
           while j <= #mining[i] do
               if(math.random(1, mining[i][j+1]) == 1) then
                   doPlayerAddItem(cid, mining[i][j], 1)
                   doSendMagicEffect(getPlayerPosition(cid), CONST_ME_MAGIC_GREEN)
               end
               j = j + 2
           end
           doSendMagicEffect(topos, CONST_ME_BLOCKHIT)
           return TRUE
       end
   end
end

actions.xml

[color=Black][color=#000000][color=#007700]<[/color][color=#0000bb]action itemid[/color][color=#007700]=[/color][color=#dd0000]"2553" [/color][color=#0000bb]script[/color][color=#007700]=[/color][color=#dd0000]"mining.lua"[/color][color=#007700]/>[/color][/color][/color]

Editado 17 Outubro, 2009 por Baxnie

[Gpwjhlkdcf 21]

Tópico Aprovado e Movido para Scripting > Scripts Prontos > Actions.

 

Padrão de Qualidade: OK

 

Muito bom. Apesar de haver vários desse tipo, este ficou curto e funcional.

[xkarolapt 0]

Funfa no 8.50???

[Kakaher 1]

Alguem pode me explicar como que eu faço pra mudar a chance ?

Obrigado ;D

[Kydrai 0]

@UP

{8634, 2150, 10}

Significa: {pedraQueVamosUtilizarAPick, pedraQuePodeSerExtraida1, chanceDeSerExtraida1}

 

Ou seja, vc muda o 10, quanto menor este mais chances de acerto.

Editado 24 Novembro, 2009 por Kydrai

[Kakaher 1]

Consegui, valeu mano, brigadao ;D

Editado 24 Novembro, 2009 por Kakaher

[Proviem 0]

bem bom so q eu quero sabe oq esse script faz se pude me responde hj mesmo te agradeço e se n pude tambem te agradeço

 

-- Mining V2.6

-- Please understand this is more of a bug fix release

-- Coded by Roman, some credits to twiz for giving an example of his V1.0

function onUse(cid, item, frompos, item2, topos)

Level = getPlayerLevel(cid)

AxeSkill = getPlayerSkill(cid,1)

if item2.actionid == 387 and -- set the action id of rocks

Level >= 10 -- set the level requirement to be able to mine

and

AxeSkill >= 10 -- set the axe skill requirement to be able to mine

then

rand = math.random(1,2000)

if rand < 20 then

doPlayerSendTextMessage(cid,22,"A stone golem came out of the pile of rocks!")

doSummonCreature("Stone Golem", topos)

elseif rand == 1300 then

doPlayerSendTextMessage(cid,22,"You have found a golden nugget.")

doPlayerAddItem(cid,2157,1)

elseif rand > 1995 then

doPlayerSendTextMessage(cid,22,"You have found a diamond.")

doPlayerAddItem(cid,2145,1)

elseif rand >500 and rand <800 then

doPlayerAddItem(cid,2148,7)

elseif rand >700 and rand <1000 then

doPlayerAddItem(cid,2148,6)

elseif rand >1000 and rand <1300 then

doPlayerAddItem(cid,2148,4)

elseif rand >300 and rand <600 then

doPlayerAddItem(cid,2148,5)

elseif rand >1500 and rand <1800 then

doPlayerAddItem(cid,2148,3)

elseif rand >1100 and rand <1400 then

doPlayerAddItem(cid,2148,8)

elseif rand >800 and rand <1100 then

doPlayerAddHealth(cid,-20)

doPlayerSendTextMessage(cid,22,"You lost hitpoints due to exhaustion of mining.")

elseif rand >500 and rand <800 then

doPlayerSendTextMessage(cid,22,"You have found a ruby.")

doPlayerAddItem(cid,2147,1)

elseif rand >550 and rand <800 then

doPlayerSendTextMessage(cid,22,"A fierce dwarf came out of the pile of rocks!")

doSummonCreature("Dwarf", topos)

elseif rand == 40 then

doPlayerSendTextMessage(cid,22,"A fierce dwarf guard came out of the pile of rocks!")

doSummonCreature("Dwarf Guard", topos)

elseif rand == 20 then

doPlayerSendTextMessage(cid,22,"A weak troll has appeared from the pile of rocks!")

doSummonCreature("Troll", topos)

elseif rand >2000 then

doPlayerSendTextMessage(cid,22,"Earthquake!")

doPlayerAddHealth(cid,-100)

elseif rand == 100 and rand <140 then

doPlayerSendTextMessage(cid,22,"A weak troll has appeared from the pile of rocks!")

doSummonCreature("Troll", topos)

elseif rand == 200 then

doPlayerSendTextMessage(cid,22,"A dwarf soldier came out of the pile of rocks!")

doSummonCreature("Dwarf Soldier", topos)

elseif rand >= 105 and rand <150 then

end

doSendMagicEffect(topos,3)

doPlayerAddSkillTry(cid,1,0)

doPlayerSay(cid,"Mining!",1)

else

doPlayerSendCancel(cid,"Voce nao esta minando no lugar certo ou nao tem level minimo 10.")

end

return 1

end

[Dark Yoshiki 0]

#Proviem

Pelo q intendi...

Esse script é de minerar conforme o seu axe skill e seu level

Você pode cavar um monstro ou causar um terremoto se tiver azar, e se tiver sorte pode vir uma pedra preciosa.

Espero ter ajudado

#All

Curti o script,

curtinho

Editado 26 Novembro, 2009 por Dark Yoshiki

[Proviem 0]

vlw so q minera onde? ali esplica em q pedra é pra minera?

[Dark Yoshiki 0]

Sei lah to sem o id dos itens aki

[Zaffend 0]

Apesar de eu não ter compreendido bem a explicação, eu sei q foi das melhores intenções voce ajudar. Boa Sorte ae

 

_____________________________________________________________

[Proviem 0]

mas qual é o id do item ?

pra minerar

[morvy 0]

Mano, vlw ajudo eu d+ agora eu juntei este ai, com refinamento, ta mto massa o sistema q eu fiz, vc usa a pic numa pedra, ai da uma porcentagem de chance de vim ou iron ore, ou iron of smithing (item q eu inventei), ai vc tem q usar o hammer of smithing em uma armaduta, ai gasta iron of smithing, nossa q perfeito q ficou.

[god guizao 0]

Boa, funfo aki certinho

[ViniciusLelis 0]

Fico daora mano, Boa Imaginação

[yuyan_17 0]

ake n pego, e aqui eh stylle tibia 8.50....

oke fis de errado?

 

aki:

-- Mining script by Baxnie - 17/10/2009

-- Structure: {stone, ore1Id, ore1Chance, ore2Id, ore2Chance, ...}

-- Chance is 1 in X

 

local mining = {{8633, 8306, 11}}, -- Blue cave Crystal, pure energy, 11

 

function onUse(cid, item, frompos, item2, topos)

for i = 1, #mining do

if(item2.itemid == mining[1]) then

local j = 2

while j <= #mining do

if(math.random(1, mining[j+1]) == 1) then

doPlayerAddItem(cid, mining[j], 1)

doSendMagicEffect(getPlayerPosition(cid), CONST_ME_MAGIC_GREEN)

end

j = j + 2

end

doSendMagicEffect(topos, CONST_ME_BLOCKHIT)

return TRUE

end

end

end

[thays123 0]

Aprovadoooo

 

 

Coloquei em meu OTserv!!! Um dos Topicos que eu mais Gostei foi o teu Parabens

[Demoniac Maker 0]

Esse Sistema é bem legal pow. Isso deveria ter até no GLOBAL

[Pandá s2 0]

Ficou bem legal e Criativo vou por em meu OTSERV

 

e tou esperando pelo sistemas de : Padeiro, Lenhador, Aquimista, Sapateiro, Alfaiate

[alemao96 0]

Script melhor que os outros do genero,obrigado por ajudar cara!