Pickando E Ganhando Pedra!

Rikezenho
em Actions e Talkactions
  • 1
  • 2

Rikezenho

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 21/04/06Posts: 84

PARA 7.6!

É assim...

Vc cata Pick, usa na pedra, e se você tiver sorte, vai vir pedras preciosas....(Ruby, Emerald, Sapphire, Diamond e Amethyst. Se tiver azar nascerá monstros)

Primeiramente, crie um arquivo chamado picking.lua:

--Pickando pedras e tirando pedras by Rike--

  

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

   pedrapos = {x=topos.x, y=topos.y, z=topos.z}

if item.itemid == 1300 or 1301 or 1302 or 1303 then

sorte = math.random(1,28)

if sorte == 4 then

doSendMagicEffect(topos,3)

doPlayerAddItem(cid,2150,1)

doPlayerSendTextMessage(cid,22,"Wow, an amethyst!")

elseif sorte == 8 then

doSendMagicEffect(topos,3)

doPlayerAddItem(cid,2149,1)

doPlayerSendTextMessage(cid,22,"Wow, an emerald!")

elseif sorte == 12 then

doSendMagicEffect(topos,3)

doPlayerAddItem(cid,2147,1)

doPlayerSendTextMessage(cid,22,"Wow, a ruby!")

elseif sorte == 16 then

doSendMagicEffect(topos,3)

doPlayerAddItem(cid,2146,1)

doPlayerSendTextMessage(cid,22,"Wow, a sapphire!")

elseif sorte == 20 then

doSendMagicEffect(topos,3)

doPlayerAddItem(cid,2145,1)

doPlayerSendTextMessage(cid,22,"Wow, an diamond!")

elseif sorte == 24 then

doSummonCreature('Stone Golem',topos)

elseif sorte == 28 then

doSummonCreature('Gargoyle',topos)

elseif sorte == 2 or 6 or 10 or 14 or 18 or 22 or 26 then

doSendMagicEffect(topos,3)

end

end

  return 1

  end

E depois, no actions.xml coloque:

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

Espero que curtam! :)

Flws!

Próxima action(talvez): Making Bread Funfando!





.Atlanta OTServer:: Eu participo.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~

kamimura

Old School :D
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 19/04/06Posts: 201

ow muito roxx jah vi isso em otros ot so q agora vo po no meu huahuahua

mas tipow muito bom mesmo, ai so tem q coloka npc q compra as pedra !!! prso players ganha grana !!!!


"Sem música, a vida seria um erro." (Friedrich Nietzsche)
___________________________________________________
©1993 - 2009 kamimura™ - Todos os direitos reservados

Presley

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 07/11/05Posts: 20

kra, eh bom mas tem um problema, pod fz issu em qq lugar , vc skeceu axo q d por o else c naum for as ids citadas

colex

Serviços Prestados a Comunidade
avatar
Visconde
Visconde

INFOS

Grupo: ViscondeRegistrado: 03/10/05Posts: 301Gênero: Masculino
kra, eh bom mas tem um problema, pod fz issu em qq lugar , vc skeceu axo q d por o else c naum for as ids citadas

 

 

 

se naum for os ids citados naum vai funcionar

naum precisa du else

mas vc podi acrescentar

else

return 0

Presley

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 07/11/05Posts: 20
se naum for os ids citados naum vai funcionar

naum precisa du else

mas vc podi acrescentar

else

return 0

 

 

 

olha kra, tipo assim, eu ia pidi ajuda pq eu so um péssimo actions maker,... ond poem o

else

return 0

colex

Serviços Prestados a Comunidade
avatar
Visconde
Visconde

INFOS

Grupo: ViscondeRegistrado: 03/10/05Posts: 301Gênero: Masculino

ficaria assim:

 

--Pickando pedras e tirando pedras by Rike--    function onUse(cid, item, frompos, item2, topos)   pedrapos = {x=topos.x, y=topos.y, z=topos.z, stackpos=1}   pedra = getThingfromPos(pedrapos)if pedra.itemid == 1300 or 1301 or 1302 or 1303 thensorte = math.random(1,20)if sorte == 4 thendoSendMagicEffect(topos,3)doPlayerAddItem(cid,2150,1)doPlayerSendTextMessage(cid,22,"Wow, an amethyst!")elseif sorte == 8 thendoSendMagicEffect(topos,3)doPlayerAddItem(cid,2149,1)doPlayerSendTextMessage(cid,22,"Wow, an emerald!")elseif sorte == 12 thendoSendMagicEffect(topos,3)doPlayerAddItem(cid,2147,1)doPlayerSendTextMessage(cid,22,"Wow, a ruby!")elseif sorte == 16 thendoSendMagicEffect(topos,3)doPlayerAddItem(cid,2146,1)doPlayerSendTextMessage(cid,22,"Wow, a sapphire!")elseif sorte == 20 thendoSendMagicEffect(topos,3)doPlayerAddItem(cid,2145,1)doPlayerSendTextMessage(cid,22,"Wow, an diamond!")elseif sorte == 24 thendoSummonCreature('Stone Golem',topos)elseif sorte == 28 thendoSummonCreature('Gargoyle',topos)elseif sorte == 2 or 6 or 10 or 14 or 18 or 22 or 26 thendoSendMagicEffect(topos,3)endelsereturn 0end  return 1  end

 

kamimura

Old School :D
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 19/04/06Posts: 201

Oi,

awe colex muito boa a sua versao

vo testa se gosta vo usa

vlw

//kamimura


"Sem música, a vida seria um erro." (Friedrich Nietzsche)
___________________________________________________
©1993 - 2009 kamimura™ - Todos os direitos reservados

kamusss

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 03/08/05Posts: 66

Eh uma coisa toska e ao mesmo tempo muito loka XD Adorei parabens pelo Script...

Kamusss

userbar084vj7st2jy.gif

colexfan8ro.gif

xtibiauserbar21dx9jy.jpg

*Meu msn* renanzinho_na_parada@hotmail.com

Eu estou 01bf1969-b3c6-490d-9f50-59c15c112489.png no msn

Warlord

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 29/10/05Posts: 18

DAE

mtu bom

Warlord

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 29/10/05Posts: 18

tpw, soh da essas pedra neah?

Claverockz

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 22/10/05Posts: 36

po mt rox lek vo o dificultar um poko e me dis uma coisa tem tp um delay ai n?

pelo q eu vi n tem n eh melho colocar um delay senaum o macro vai cumer =x

Retired of xtibia because:

Me alertaram não sei o porque não falaram o forum que eu floodei...muitas pessoas que não ajudam a comunidaede de Otserver fasem coisas piores e eles não veem...eh nessas horas que eu dou razão ao Xbowax...ou alguma coisa assim.

Baracs

Banido
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 04/11/05Posts: 43

:bye: Outra bela action :)

gostei bastante dessa ae

:)

Thanks

;)

Atenciosamente,

GM Bara

Baracs
Darghos.com

UltraXSoft.com!

__________________________________________________

win

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 07/07/06Posts: 3

sabe d euma coisa, pode ser gold tbm, as vezes (um pouco de azar) cai 1 gold piece, e quando der sorte cai 1 crystal(10k)...

rox neh?

vou fazer isso e adicioanr essas ids, xD

abraços!

drakulla

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 08/01/06Posts: 12Gênero: Masculino

@Rikezenho

@Colex

Bom o TUTO...

Mas Acho q pra fikar Melhor seria, fikando + dificil:

Para FAzer Isso:

Procure Por:

sorte = math.random(1,28)

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

e Substitua Por:

sorte = math.random(1,Numero)

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

Numero = Numero Que Quiser Maior Que 28 ... Qnto Mais Mais Dificil...

Atenciosamente,

Drakulla



drakullafanbar2bt2.gif

 

Mu de Aries

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 24/07/06Posts: 26

tem como fazer para ter exausted, se nao o cara enfia macro e vai picando direto e cata um monte de item e monstro.

  • 1
  • 2