action [Action] Corte Arvores Ganhe Items V2

[Kuro o Shiniga 87]

Eae Galera :tongue2: Agora Venho Mostrar A Versão 2 Desse Script Disseram Qe Ficaria Mais Legal Assim Podendo Cortar Varias Arvores E Ganhando Variios Items Esta Ai O Script Espero qe Gostem Adicionei Qase Todas As Arvores.

 

 

Testado Em: Snowz Thyranic 3.1 (8.6)

 

Data/Actions/Script Crie Um Arquivo Lua Renomeie Para Corte E Adicione

 

 

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

local arr = {2768, 2703, 2702, 2705, 2785, 2711, 2700, 2767, 2701, 2707, 7024, 10143}

if isInArray(arr, itemEx.itemid) then

local pos = getThingPos(itemEx.uid)

doCreatureSay(cid, "Yeah Cut", 1)

doRemoveItem(itemEx.uid,1)

local item = {

[1] = 3976,

[2] = 2147,

[3] = 2226,

[4] = 2230,

[5] = 2160,

[6] = 2148,

[7] = 9811,

[8] = 7732,

[9] = 1294,

[10] = 2239,

}

doPlayerAddItem(cid, item[math.random(0, 10)], 1)

doCreateItem(804,1,toPosition)

doSendMagicEffect(toPosition, 45)

addEvent(doRemoveItemFromPos, 5000, toPosition, 804)

doSendMagicEffect(toPosition, 56)

addEvent(doCreateItem,5002,4535,1,pos)

addEvent(doCreateItem, 25000, itemEx.itemid, 1, toPosition)

return true

end

return false

end

 

 

Depois Em Data/Actions/Actions.xml Adicione

 

 

<action itemid="2558" event="script" value="Corte.lua"/>

 

 

Espero Qe Gostem Se Gostou Rep+ Vlw Abrass :positive:

 

Agradesso A Um Parceiro Qe Sempre Me Ajudou A Aprender Lua Não Vou Citar Nome! Vlw ^^

Editado Maio 17, 2011 por Pinpao

[Dudu08267 7]

Parece ser um otimo script acho que isso ai tbm daria pro harvest em servers de poketibia

[Kuro o Shiniga 87]

Acho Qe Da Sim :smile_positivo:

Editado Março 20, 2011 por Pinpao

[Vodkart 1515]

mto bom,eu já tinha feito um pelo array aqui tbm,mais nem postei :X

parabens ai REP+

[Kuro o Shiniga 87]

Vlw Ae *-*

[Hudsin 47]

Ótimo script,irei usálo e colocar uns itens legais como recompensa =D

[gonorreiaswat 151]

É um ótimo Script, vou usá-lo, me serviu muito bem, então é "Rep+"

 

SemMais!

 

 

Obrigadão ae

[Kuro o Shiniga 87]

Qe Bom Fico Feliz Em Saber Qe Gostou ^^

[Subwat 405]

bom script maneiro.

vlw por compartilhar

[gonorreiaswat 151]

Qe Bom Fico Feliz Em Saber Qe Gostou ^^

 

Porém, tive outra idéia, seria maneiro tbm por pra qdo cortar a árvore, ficar o toquinho ID, sakas?

 

Corta, transforma no Toquinho, depois em uma árvore média e depois na original!

seria uma boa...

 

mas é só um palpite, o Script tah show... abraços

 

[dustot 24]

[1:32:17.296] [Error - Action Interface]

[1:32:17.296] data/actions/scripts/Corte.lua:onUse

[1:32:17.296] Description:

[1:32:17.296] (luaAddEvent) Callback parameter should be a function.

Deseja finalizar o arquivo em lotes (S/N)?

 

Deu esse erro e fechou meu server... :s

[Kuro o Shiniga 87]

Gonorreia

 

Vou Fazer Isso E Ja Postarei Aqi ^^

 

 

small201

 

Qal A Versão Do Seu Server?

[arkires 8]

Bom acho que falto mais um end no final testa ai depois vc fala fmz se deu

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

local arr = {2768, 2703, 2702, 2705, 2785, 2711, 2700, 2767, 2701, 2707, 7024, 10143}

if isInArray(arr, itemEx.itemid) then

local pos = getThingPos(itemEx.uid)

doCreatureSay(cid, "Yeah Cut", 1)

doRemoveItem(itemEx.uid,1)

local item = {

[1] = 3976,

[2] = 2147,

[3] = 2226,

[4] = 2230,

[5] = 2160,

[6] = 2148,

[7] = 9811,

[8] = 7732,

[9] = 1294,

[10] = 2239,

}

doPlayerAddItem(cid, item[math.random(0, 10)], 1)

doCreateItem(804,1,toPosition)

doSendMagicEffect(toPosition, 45)

addEvent(doRemoveItemFromPos, 5000, toPosition, 804)

doSendMagicEffect(toPosition, 56)

addEvent(doCreateItem,5002,4535,1,pos)

addEvent(doCreateItem, 25000, itemEx.itemid, 1, toPosition)

return true

end

return false

end

end

 

bom scrip ^^

[Kuro o Shiniga 87]

Não '-' Se Por Mais Um end O Script Não Vai Funcionar Provavelmente.

Do Jeito Qe Eu Post Funciona Perfeitamente.

[dustot 24]

small201

 

Qal A Versão Do Seu Server?

 

Uso TFS 0.4

Vesão Tibia : 8.6

 

Vlw