[NPC] Nurse Joy Curando Todos Os Pokemons De Uma So Vez

[~Sky~* 0]

Funciona em 8.54 ou maior

 

 

Ola nesse npc foi usado o script go/back do MatheusMkalo.

 

O npc esta quase identico ao do PO é só fala hi e pronto heala vc e todos os seus pokemons...

E as falas tbm estão iguais.

 

E como podem ver eu fis com a poke ball e ultra ball.

 

 

Bom vamos ao script

 

Va na pasta data/npc copie qualquer npc e renomeie para Nurse Joy

feito isso abra o arquivo XML qui vc pois o nome de Nurse Joy apague tudo de dentro e ponha isso.

 

<?xml version="1.0" encoding="UTF-8"?>

<npc name="Nurse Joy" script="Nurse Joy.lua" walkinterval="0" speed="0" floorchange="0">

<health now="100" max="100"/>

<look type="318" head="0" body="0" legs="0" feet="0" addons="0"/>

<parameters>

</parameters>

</npc>

 

Agora salve e fexe

 

Depois disso abra a pasta Scripts copie qualque arquivo LUA e renomeie para Nurse Joy agora abra ele apague tudo e ponha isso

 

local focus = 0

local talk_start = 0

local target = 0

local following = false

local attacking = false

 

function onThingMove(creature, thing, oldpos, oldstackpos, item, itemEx)

 

end

 

 

function onCreatureAppear(creature)

 

end

 

 

function onCreatureDisappear(cid, pos)

if focus == cid then

selfSay('Good bye then.')

focus = 0

talk_start = 0

end

end

 

function onCreatureTurn(creature)

 

end

 

function msgcontains(txt, str)

return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))

end

 

 

function onCreatureSay(cid, type, msg)

msg = string.lower(msg)

if (msgcontains(msg, 'hi')) and getDistanceToCreature(cid) < 4 then

if getPlayerStorageValue(cid, 59987) == 1 then

return selfSay('You Are riding.')

end

if getPlayerStorageValue(cid, 62314) == 1 then

return selfSay('You are flying.')

end

if #getCreatureSummons(cid) >= 1 then

selfSay('Please back your Pokemon to the pokeball...')

focus = 0

talk_start = 0

return TRUE

end

 

if not getTilePzInfo(getCreaturePosition(cid)) then

return selfSay('Please enter in the Pokemon Center...')

 

end

 

-- Poke Ball

 

for slo = CONST_SLOT_FIRST, CONST_SLOT_LAST do

local item = getPlayerSlotItem(cid, slo)

if isContainer(item.uid) then

local items = getItemsInContainerById(item.uid, pokeout)

for i,x in pairs(items) do

local maxh = tonumber(getItemAttribute(x, "poke"):match("/(.+)]"))

doItemSetAttribute(x, "poke", getItemAttribute(x, "poke"):sub(1, findLetter(getItemAttribute(x, "poke"), ".")) .. " HP = ["..maxh.."/"..maxh.."]")

doTransformItem(x, pokein)

 

end

 

local items2 = getItemsInContainerById(item.uid, pokein)

for i,x in pairs(items2) do

local maxh = tonumber(getItemAttribute(x, "poke"):match("/(.+)]"))

doItemSetAttribute(x, "poke", getItemAttribute(x, "poke"):sub(1, findLetter(getItemAttribute(x, "poke"), ".")) .. " HP = ["..maxh.."/"..maxh.."]")

 

end

 

if item.itemid == pokeout or item.itemid == pokein then

local maxh = tonumber(getItemAttribute(item.uid, "poke"):match("/(.+)]"))

doItemSetAttribute(item.uid, "poke", getItemAttribute(item.uid, "poke"):sub(1, findLetter(getItemAttribute(item.uid, "poke"), ".")) .. " HP = ["..maxh.."/"..maxh.."]")

doTransformItem(item.uid, pokein)

 

end

end

 

local items = getItemsInContainerById(item.uid, pokeout)

for i,x in pairs(items) do

local maxh = tonumber(getItemAttribute(x, "poke"):match("/(.+)]"))

doItemSetAttribute(x, "poke", getItemAttribute(x, "poke"):sub(1, findLetter(getItemAttribute(x, "poke"), ".")) .. " HP = ["..maxh.."/"..maxh.."]")

doTransformItem(x, pokein)

 

end

 

local items2 = getItemsInContainerById(item.uid, pokein)

for i,x in pairs(items2) do

local maxh = tonumber(getItemAttribute(x, "poke"):match("/(.+)]"))

doItemSetAttribute(x, "poke", getItemAttribute(x, "poke"):sub(1, findLetter(getItemAttribute(x, "poke"), ".")) .. " HP = ["..maxh.."/"..maxh.."]")

 

end

 

if item.itemid == pokeout or item.itemid == pokein then

local maxh = tonumber(getItemAttribute(item.uid, "poke"):match("/(.+)]"))

doItemSetAttribute(item.uid, "poke", getItemAttribute(item.uid, "poke"):sub(1, findLetter(getItemAttribute(item.uid, "poke"), ".")) .. " HP = ["..maxh.."/"..maxh.."]")

doTransformItem(item.uid, pokein)

 

end

 

-- Ultra Ball

 

local items = getItemsInContainerById(item.uid, pokeoutultra)

for i,x in pairs(items) do

local maxh = tonumber(getItemAttribute(x, "poke"):match("/(.+)]"))

doItemSetAttribute(x, "poke", getItemAttribute(x, "poke"):sub(1, findLetter(getItemAttribute(x, "poke"), ".")) .. " HP = ["..maxh.."/"..maxh.."]")

doTransformItem(x, pokeinultra)

 

end

 

local items2 = getItemsInContainerById(item.uid, pokeinultra)

for i,x in pairs(items2) do

local maxh = tonumber(getItemAttribute(x, "poke"):match("/(.+)]"))

doItemSetAttribute(x, "poke", getItemAttribute(x, "poke"):sub(1, findLetter(getItemAttribute(x, "poke"), ".")) .. " HP = ["..maxh.."/"..maxh.."]")

 

end

 

if item.itemid == pokeoutultra or item.itemid == pokeinultra then

local maxh = tonumber(getItemAttribute(item.uid, "poke"):match("/(.+)]"))

doItemSetAttribute(item.uid, "poke", getItemAttribute(item.uid, "poke"):sub(1, findLetter(getItemAttribute(item.uid, "poke"), ".")) .. " HP = ["..maxh.."/"..maxh.."]")

doTransformItem(item.uid, pokeinultra)

 

end

end

 

selfSay("Hello! We've restored your Pokemon to full health. We hope to see you again!")

local hp = getCreatureMaxHealth(cid)

doCreatureAddHealth(cid, hp)

doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_GREEN)

 

focus = 0

talk_start = 0

end

end

 

function onCreatureChangeOutfit(creature)

 

end

 

Salve e fexe e pronto o npc esta pronto

[*AgT'~ 12]

.moved!

[HackOneHit 0]

É para renomear pra apenas Nurse Joy, ou NurseJoy.xml ??

 

@Edit

 

Aguardando, cara pode adiantar a resposta ??

[DRpok 0]

aki ñ funfo não

 

falo hi e dá erro na janela do server

mas no jogo ñ acontece nd

[Dilmo 0]

MEN coloque os devidos créditos!

esse script foi tirado do xtibia!

Link para o tópico no xtibia:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Nem pra editar as frases do inicio, esse player que ele cita (MatheusMkalo) foi o cara que crio os script do go/back, esse npc so funciona com esse script.

Coloque os créditos men, vc so copiou e postou aqui.