Sistema De MineraƧao(muito Bom Para Server Serios)!

FelipeAugustoGuimaraesGome

Eu??
avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 30/06/08Posts: 117Char no Tibia: Menor De Rook

Bom Vo motrar para vocês sistema de mineraçao com uma pick bata nas rochas ai vc ira estar minerando poderÔ encontrar varias coisas Bom vamos começar

 

Va em actions/scripts e copie qualquer arquivo e renomeie para mining

Apague tudo e coloque isso

 

--==--Sistema de Mineração--==--

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

 

difskill = 100 --Dificuldade do skill(quanto maior mais dificil)

dif =10000 --Dificuldade

skillid = 15895

 

--Minerando pedras preciosas

smallrand = math.random(1, 10)

if smallrand == 1 then

smallpremio = 2145 -- Small Diamond

elseif smallrand == 2 or smallrand == 3 then

smallpremio = 2146 -- Small Sapphire

elseif smallrand == 4 or smallrand == 5 then

smallpremio = 2147 -- Small Ruby

elseif smallrand == 6 or smallrand == 7 then

smallpremio = 2149 -- Small Emerald

else

smallpremio = 2150 -- Small Amethysh

end

 

--Minerando Gems

gemrand = math.random(1, 5)

if gemrand == 1 then

gempremio = 2153 -- Violet Gem

elseif gemrand == 2 then

gempremio = 2154 -- Yellow Gem

elseif gemrand == 3 then

gempremio = 2155 -- Big Emerald

elseif gemrand == 4 then

gempremio = 2156 -- Big Ruby

else

gempremio = 2158 -- Blue Gem

end

 

--Minerando Porcarias

porcrand = math.random(1,3)

if porcrand == 1 then

porcpremio = 1293 -- Stone

elseif porcrand == 2 then

porcpremio = 1294 -- Small Stone

else

porcpremio = 1295 -- Stone

end

 

--Minerando coisas legais

lglrand = math.random(1, 4)

if lglrand == 1 then

lglpremio = 2320 -- Skull

elseif lglrand == 2 then

lglpremio = 2151 -- Talon

elseif lglrand == 3 then

lglpremio = 2225 -- Piece of Iron

else

lglpremio = 2260 -- Blank Rune

end

 

rand = math.random(1, dif)

if item2.itemid == 356 or

item2.itemid == 357 or

item2.itemid == 358 or

item2.itemid == 359 or

item2.itemid == 360 or

item2.itemid == 361 or

item2.itemid == 362 or

item2.itemid == 363 or

item2.itemid == 364 or

item2.itemid == 365 or

item2.itemid == 366 or

item2.itemid == 367 or

item2.itemid == 371 or

item2.itemid == 372 or

item2.itemid == 373 or

item2.itemid == 374 or

item2.itemid == 375 or

item2.itemid == 376 or

item2.itemid == 378 or

item2.itemid == 379 or

item2.itemid == 380 or

item2.itemid == 381 or

item2.itemid == 382 then

 

if rand <= 50 then

doSendAnimatedText(topos,'Tck',210)

doSendMagicEffect(topos,3)

pedra = doPlayerAddItem(cid,porcpremio,1)

doSetItemSpecialDescription(pedra, "Minerado por "..getPlayerName(cid)..".")

AddSkill(cid,skillid,2)

elseif rand >50 and rand <= 70 then

doSendAnimatedText(topos,'Tuk',210)

doSendMagicEffect(topos,3)

pedra = doPlayerAddItem(cid,lglpremio,1)

doSetItemSpecialDescription(pedra, "Minerado por "..getPlayerName(cid)..".")

AddSkill(cid,skillid,2)

elseif rand >70 and rand <= 80 then

doSendAnimatedText(topos,'Tnk',210)

doSendMagicEffect(topos,3)

pedra = doPlayerAddItem(cid,smallpremio,1)

doSetItemSpecialDescription(pedra, "Minerado por "..getPlayerName(cid)..".")

AddSkill(cid,skillid,2)

elseif rand >80 and rand <= 85 then

doSendAnimatedText(topos,'Tnk',210)

doSendMagicEffect(topos,3)

pedra = doPlayerAddItem(cid,gempremio,1)

doSetItemSpecialDescription(pedra, "Minerado por "..getPlayerName(cid)..".")

AddSkill(cid,skillid,2)

else

doSendAnimatedText(topos,'Tin',210)

doSendMagicEffect(topos,2)

AddSkill(cid,skillid,1)

end

end

end

 

Depois va em actions.xml e add isso

 

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

 

Bom so isso

 

Creditos

 

ahhhh 95% Por ter postado em lugar errado

 

5% pra mim por ter trazido a um topico em lugar certo flws

 

--------------------------------------------------------------------------------

Assinatura

 

fanbarlo0.png

 

Minha Fan Bar Te ajudei? Entao Use

fanbarrez7.png

 

Sou Fan de

 

userbar641449wl2zk9.gif sliimfanlo2.png

 

Metas

 

[x]1 posts (SERVO)

[x]10 posts (CAMPONÊS)

[x]25 posts (CAƇADOR)

[x]50 posts (CAVALEIRO)

[x]100 posts (BARONETE)

[ ]200 posts (BARƃO)<----- Go Go Go!

[ ]300 posts (VISCONDE)

[ ]400 posts (DUQUE)

[ ]600 posts (ARQUEDUQUE)

[ ]800 posts (ARISTOCRATA)

[ ]1000 posts (REGENTE)

[ ]1400 posts (SƁBIO)

[ ]1800 posts (SACERDOTE)

[ ]2500 posts (PRƍNCIPE)<-----Um dia chego la ;D

 

Sobre SoulCalibur

 

SoulCalibur foi o unico a zerar tibia 7 vezes.

SoulCalibur fez 2 retas paralelas se encontrarem e uma dezer "oi" para outra.

SoulCalibur mata uma pedra com 2 passaros.

SoulCalibur contou ate o infinito 2x

SoulCalibur uma vez apostou corrida com seu reflexo e ganhou

SoulCalibur quando entra na Ôgua ele não fika molhado, é a Ôgua que fika Chuck Norris

O tempo não espera ninguém. Exceto se for SoulCalibur

SoulCalibur perdeu a virgindade antes de seu pai

SoulCalibur uma vez tropeƧou numa pedra, o mundo gira atƩ hoje

SoulCalibur consegue dividir por zero.

Algumas pessoas usam uniforme do Superman. JĆ” o Superman usa uniforme do SoulCalibur

Quando Deus disse "haja luz" SoulCalibur disse "diga 'por favor'".

Não existe teoria da evolução. Apenas uma lista de criaturas que SoulCalibur deixa viver.

SoulCalibur Ć© o Ćŗnico ser humano que jĆ” derrotou uma parede de tijolos em um jogo de tĆŖnis.

SoulCalibur jogou roleta russa com uma arma totalmente carregada e ganhou.

SoulCalibur zerou o Ragnarƶk no Atari

SoulCalibur não bate manteiga. Ele dÔ uma voadora na vaca e a manteiga sai voando.

Certa vez, SoulCalibur derrubou um caça alemão usando seu dedo e falando: "Bang!"

SoulCalibur pode beber um galão de leite em 47s

SoulCalibur venceu o Campeonato Mundial de Poker com um dois de paus e uma carta "Saída Livre da Prisão" do Banco ImobiliÔrio.

Hail SoulCalibur!

Maioral

The Roleplaying Master
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 29/01/06Posts: 27Char no Tibia: Orkuteiro

Qual a pedra , mais exatamente q eu tenho que colocar para minerar?


>
>
>
>
> Ć© oque pretendo faser com vocĆŖ se vocĆŖ nĆ£o comentar meu tópicos ƒ.ó
>
>
>
Primeiro De tudo , Saiba Que um dia , eu quero ser um grande scriper e um grande mapper :D


[i][Esta Ć© Minha Assinatura. Veja E Morra Feliz.[i/]


hmm espero que isso nao caia aki na terra..














Minha Meta Ć© :
10 topicos [X]
Matar O Infeliz Que Ta Lendo Minha Assinatura [Correndo Atras]



Ê MACARENA!

\/---Isso Ć© para vocĆŖ que gosta de bolinhas inocentes---\/


FelipeAugustoGuimaraesGome

Eu??
avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 30/06/08Posts: 117Char no Tibia: Menor De Rook
Qual a pedra , mais exatamente q eu tenho que colocar para minerar?

 

Bom o Ideal eo player descobriri qual e a pedra ^^![/

 

--------------------------------------------------------------------------------

Assinatura

 

fanbarlo0.png

 

Minha Fan Bar Te ajudei? Entao Use

fanbarrez7.png

 

Sou Fan de

 

userbar641449wl2zk9.gif sliimfanlo2.png

 

Metas

 

[x]1 posts (SERVO)

[x]10 posts (CAMPONÊS)

[x]25 posts (CAƇADOR)

[x]50 posts (CAVALEIRO)

[x]100 posts (BARONETE)

[ ]200 posts (BARƃO)<----- Go Go Go!

[ ]300 posts (VISCONDE)

[ ]400 posts (DUQUE)

[ ]600 posts (ARQUEDUQUE)

[ ]800 posts (ARISTOCRATA)

[ ]1000 posts (REGENTE)

[ ]1400 posts (SƁBIO)

[ ]1800 posts (SACERDOTE)

[ ]2500 posts (PRƍNCIPE)<-----Um dia chego la ;D

 

Sobre SoulCalibur

 

SoulCalibur foi o unico a zerar tibia 7 vezes.

SoulCalibur fez 2 retas paralelas se encontrarem e uma dezer "oi" para outra.

SoulCalibur mata uma pedra com 2 passaros.

SoulCalibur contou ate o infinito 2x

SoulCalibur uma vez apostou corrida com seu reflexo e ganhou

SoulCalibur quando entra na Ôgua ele não fika molhado, é a Ôgua que fika Chuck Norris

O tempo não espera ninguém. Exceto se for SoulCalibur

SoulCalibur perdeu a virgindade antes de seu pai

SoulCalibur uma vez tropeƧou numa pedra, o mundo gira atƩ hoje

SoulCalibur consegue dividir por zero.

Algumas pessoas usam uniforme do Superman. JĆ” o Superman usa uniforme do SoulCalibur

Quando Deus disse "haja luz" SoulCalibur disse "diga 'por favor'".

Não existe teoria da evolução. Apenas uma lista de criaturas que SoulCalibur deixa viver.

SoulCalibur Ć© o Ćŗnico ser humano que jĆ” derrotou uma parede de tijolos em um jogo de tĆŖnis.

SoulCalibur jogou roleta russa com uma arma totalmente carregada e ganhou.

SoulCalibur zerou o Ragnarƶk no Atari

SoulCalibur não bate manteiga. Ele dÔ uma voadora na vaca e a manteiga sai voando.

Certa vez, SoulCalibur derrubou um caça alemão usando seu dedo e falando: "Bang!"

SoulCalibur pode beber um galão de leite em 47s

SoulCalibur venceu o Campeonato Mundial de Poker com um dois de paus e uma carta "Saída Livre da Prisão" do Banco ImobiliÔrio.

Hail SoulCalibur!

furiavr

avatar
Cavaleiro
Cavaleiro

INFOS

Grupo: CavaleiroRegistrado: 27/04/08Posts: 156Char no Tibia: Retired!

Poo manero, ja vi isso em um ot axei bem lgl, agora vo colokar no meu...valeu mesmo0o0o mano, ta de parabƩns!

 

SoulCalibur quando entra na Ôgua ele não fika molhado, é a Ôgua que fika Chuck Norris

 

Axo q era pra vc ter escrito: SoulCalibur quando entra na Ôgua ele não fika molhado, é a Ôgua que fika SoulCalibur

 

xD

_ferrari_

avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 27/12/06Posts: 202

ripado do forum, post original de king CPI

Objetivos:
50 posts [x]
100 posts[x]
200 posts[x]
500 posts[x]
"Um post em um fórum deve como uma saia. Longa o suficiente para cobrir o assunto, porém curta o suficiente para manter as coisas interessantes"
Gosta de mim? Foi com minha cara? Quer me matar? Use: