[Action] [Pedido Troca Funçao Dessa Script]

[xXxPhexXx 0]

--> meu projeto quem quiser entrar na equipe http://www.xtibia.com/forum/topic/133004-equipe-projeto-pokemon/

 

 local notAllowed = {"Ferumbras", "Demon"}
local storage = {
status = 15244,
pokeName = 15212
}
local actionid_used = 7510

function onUse(cid, item, fromPos, item2, toPos)
local pokeballStatus = getPlayerStorageValue(cid, storage.status)
local pokeName = getPlayerStorageString(cid, storage.pokeName)
pos = getPlayerPosition(cid) pos.stackpos = 0
if pokeballStatus <= 0 then
toPos.stackpos = 253
local pokeThing = getThingfromPos(toPos)
if isCreature(pokeThing.uid) == TRUE then
if isPlayer(pokeThing.uid) == FALSE then
local pokename_ = getCreatureName(pokeThing.uid)
if item.actionid ~= actionid_used then
-- local maxHealth = 400
-- local creatureHealth = getCreatureHealth(pokeThing.uid)
-- local divNum = (string.len(maxHealth)-1)^2
-- local result = math.floor((creatureHealth/divNum)/10)
-- local chance = math.random(1, math.random(4, math.random(7, math.max(result, 7))))
-- if chance == result then
if isInTable(notAllowed, pokename_) == TRUE then
doPlayerSendCancel(cid, "You cannot catch this creature")
else
setPlayerStorageString(cid, storage.pokeName, pokename_)
doRemoveCreature(pokeThing.uid)
doSendDistanceShoot(fromPos, toPos, 37)
setPlayerStorageValue(cid, storage.status, 1)
doSetItemSpecialDescription(item.uid, "Essa pokebola Contem um" .. pokename_ .. ".")
doSetItemActionId(item.uid, actionid_used)
end
-- else
-- doSendMagicEffect(fromPos, 2)
-- doPlayerSendCancel(cid, "The Pokemom Escaped")
-- end
elseif item.actionid == actionid_used and pokename_ == pokeName then
doCreatureSay(cid, pokeName .. " Back!!", TALKTYPE_SAY)
doRemoveCreature(pokeThing.uid)
doSetItemSpecialDescription(item.uid, "Essa Poke Bola Tem Um " .. pokename_ .. ".")
setPlayerStorageValue(cid, storage.status, 1)
doSendDistanceShoot(fromPos, toPos, 37)
else
doSendMagicEffect(fromPos, 2)
doPlayerSendCancel(cid, "Essa Pokebola Ja Tem Um Pokemon")
end
else
doPlayerSendCancel(cid, "You cannot catch this creature")
end
else
doPlayerSendCancel(cid, "Creature not found")
end
elseif pokeballStatus == 1 then
-- summons = doCreatureSummons(cid)
-- if #summons >= 2 then
-- doPlayerSendCancel(cid, "You cannot call more pokemons")
-- else
doConvinceSummon(cid, pokeName, 0, toPos)
doSendDistanceShoot(fromPos, toPos, 37)
doCreatureSay(cid, pokeName .. " Go!!", TALKTYPE_SAY)
setPlayerStorageValue(cid, storage.status, 0)
doSetItemSpecialDescription(item.uid, "Nao Ha Pokemons.")
-- end
end

return 1
end

function isInTable(t, val)
for _, v in pairs(t) do
if v == val then
return TRUE
end
end
return LUA_ERROR
end

 

 

 

eu queria que esse script aparecese a imagem da pokeball abrindo e saindo o lazer em veis do exori san

 

e tambem que tenha uma posibilidade do pokemon ser capturado e so quando ele tiver morto eu ate pago pra quem faser isso pra

mim se o script tiver do jeito que eu queru do ate 100 reais Preciso mt dessa script por favor

Editado Maio 17, 2010 por Phezinho

[luisfe23 199]

@Topic

O topico ta em area errada, o correto seria em Pedidos de Script.

Reportado para algum moderador mover o tópico.

 

- Coloque o script em [ code] [/ code] (sem espaço) assim o topico fica mais organizado.

 

@Script (EDIT)

Achei o script para pokeball.

Link: Clique aqui

 

 

Abraços.

Editado Maio 17, 2010 por luisfe23

[guedes101 6]

Seção errada amigo

Estarei reportando o topico para que o movam.

[xXxPhexXx 0]

Desculpa So novo aki no xtibia e n entendi direito as regras

 

luis esse script e o que eu tenhu eu queria que alguem modificace ele pra mim

[Vilden 137]

Amigo este local é para postagem de scripts já prontas, e você

está com dúvida sobre uma script..

 

O local seria Dúvidas sobre Scripts

 

Movido!

Editado Maio 17, 2010 por Vilden

[guedes101 6]

para mudar o efeito é só alterar essa parte em vermelho:

 

doSendMagicEffect(fromPos, 2)

 

até qual voce queirá

Editado Maio 17, 2010 por Swishy

[xXxPhexXx 0]

eu criei um sprite com o lazer ino pra poke bola e ela fechando n tem como por pra essa sprite aparecer ?

[guedes101 6]

eu não sei adicionar sprites no OT server,até mesmo porque Sprite não é nessa seção...

[lucasatak 14]

claro que tem,pra voce ter posto a sprite,você tem que por o numero que voce modificou e colocar ali aonde ele falou.

 

doSendMagicEffect(fromPos, 2) - modifique apenas o numero.

[xXxPhexXx 0]

lukas me ajuda numa coisa? me add no msn phellippe_gatao@hotmail.com

[matheus1000 11]

Phezinho,

 

você precisa de um programa chamado data editor. Depois que você edita a sprite você precisa abria o Tibia.dat e editar com o id da sprite e tals.

 

Espero ter ajudado :smile_positivo:

[DevilMoon 125]

phezinho se copio esse script la da seçao de actions que eu postei que foi o Narutho la né

[xXxPhexXx 0]

Sim