~~ Npc Apelidar Pokemon !

Henrique127
em NPCs, monsters e raids
  • 1
  • 2

Henrique127

Artesao xD
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 18/10/10Posts: 33Char no Tibia: Loide Knight

Aew Galera Tipo EU Editei o Npc Que Apelida O Pokemon ,, Mais Como Eu Nao Sei Mexer Com Sources So Vo Postar o Npc !! Entao Vamos La ''Script Do Pokemon Squadium''

 

Vai Em Seuot/data/npc E Crie Um Arquivo Chamado name.xml E Adicione Isto !

 

 

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

 

<npc name="Namer" script="NameRater.lua" walkinterval="350000" floorchange="0" speed="0" lookdir="2">

 

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

 

<look type="178" head="91" body="114" legs="86" feet="0"/>

 

<parameters>

 

 

</parameters>

 

</npc>

 

 

 

Depois Vai Em Seuot/data/npc/script E Crie Um Arquivo Chamado NameRater.lua E Adicione Isto Dentro !

 

 

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)

NpcSystem.parseParameters(npcHandler)

local talkState = {}

 

function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end

function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end

function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end

function onThink() npcHandler:onThink() end

 

function creatureSayCallback(cid, type, msg)

 

if(not npcHandler:isFocused(cid)) then

return false

end

 

if msgcontains(msg:lower(), "job") then

selfSay("Hello ".. getCreatureName(cid) .." . I'm the name rater. Do you wanna change the name of your pokemon?", cid)

talk_state = 1

 

elseif msgcontains(msg:lower(), "nick") or msgcontains(msg:lower(), "yes") and talk_state == 1 then

selfSay("Ok. But first i need you put the ball that contains the pokemon which you wanna change name in the pokeball slot. Is this in?", cid)

talk_state = 2

 

elseif msgcontains(msg:lower(), "yes") and talk_state == 2 then

selfSay("So, what will be the nickname?", cid)

talk_state = 3

 

elseif talk_state == 3 then

nick = tostring(msg)

 

if #getCreatureSummons(cid) == 0 then

if #nick <= 13 then

if getPlayerSlotItem(cid, CONST_SLOT_FEET).itemid >= 1 then

doItemSetAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "nickname", "".. nick .."")

selfSay("So be it. Come back anytime.", cid)

talk_state = 0

else

selfSay("There is no ball on the slot.", cid)

talk_state = 2

end

else

selfSay("Too long nickname. Try again.", cid)

talk_state = 2

end

else

selfSay("I want you put your pokemon back to the ball. Try again.", cid)

talk_state = 2

end

 

elseif msgcontains(msg:lower(), "summon") then

local x = doSummonCreature("Bulbasaur", getCreaturePos(getNpcId()))

doConvinceCreature(getNpcId(), x)

doChallengeCreature(x, cid)

doMonsterSetTarget(x, cid)

doChallengeCreature(getNpcId(), cid)

doMonsterSetTarget(getCreatureSummons(getNpcId())[1], cid)

selfSay("Take this!", cid)

 

elseif msgcontains(msg:lower(), "no") and talk_state ~= 3 then

selfSay("Hmmm, ok then. COme back anytime.")

talk_state = 0

end

return true

end

 

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)

npcHandler:addModule(FocusModule:new())

 

 

 

 

E Depois Adicione no Map Editor ,, E Edita Pelo Source "QUE EU NAO SEI MEXER" ,, se eu aprender eu posto um tuto vlw galera

 

 

 

:wink_smile:



 

 

Ajudei E Esta Em Duvida ? REP++ ;D

Pokemon World Sky Online "Aonde Sua Diaverçao Esta Em Primeiro Lugar"

 

 

 

 

MEUS TRABALHOS :]

 

 

CURIOSO(A)

BrunooAngel

#Bruninhoo '
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 21/08/11Posts: 202Char no Tibia: Kaiser Demon

o script esta errado, o certo é o NICK.LUA, e o npc nao responde temq arrumar o bug do BROCK e da linha 49 [nao lembro ql linha]

assinaturapleasedonotcr.png

 

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

 

barradisco.gif

Samukasz

avatar
Campones
Campones

INFOS

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

nada ver aki pego certin vlw ai manin resp+

Henrique127

Artesao xD
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 18/10/10Posts: 33Char no Tibia: Loide Knight

Samukasz Parabens :thumbsupsmiley2: : Voce Fesz O NPC Muda O Nick ? Edito No Sorces ?? Se Voce Consguil Edita No Sources ME Avisa Ae :smile_positivo:

 

 

--------

 

Groku : Isso Que Nois Queremos :]

 

 

--------

 

BrunoooAngeel : Sim Tbm Tem o Do Nick .. Mais Esse Tbm Da So Precisa Edita No Sources So Que Eu Nao Sei Mexe !



 

 

Ajudei E Esta Em Duvida ? REP++ ;D

Pokemon World Sky Online "Aonde Sua Diaverçao Esta Em Primeiro Lugar"

 

 

 

 

MEUS TRABALHOS :]

 

 

CURIOSO(A)

lucasxdlol

avatar
Campones
Campones

INFOS

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

Aew Galera Tipo EU Editei o Npc Que Apelida O Pokemon ,, Mais Como Eu Nao Sei Mexer Com Sources So Vo Postar o Npc !! Entao Vamos La ''Script Do Pokemon Squadium''

 

Vai Em Seuot/data/npc E Crie Um Arquivo Chamado name.xml E Adicione Isto !

 

 

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

 

<npc name="Namer" script="NameRater.lua" walkinterval="350000" floorchange="0" speed="0" lookdir="2">

 

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

 

<look type="178" head="91" body="114" legs="86" feet="0"/>

 

<parameters>

 

 

</parameters>

 

</npc>

 

 

 

Depois Vai Em Seuot/data/npc/script E Crie Um Arquivo Chamado NameRater.lua E Adicione Isto Dentro !

 

 

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)

NpcSystem.parseParameters(npcHandler)

local talkState = {}

 

function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end

function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end

function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end

function onThink() npcHandler:onThink() end

 

function creatureSayCallback(cid, type, msg)

 

if(not npcHandler:isFocused(cid)) then

return false

end

 

if msgcontains(msg:lower(), "job") then

selfSay("Hello ".. getCreatureName(cid) .." . I'm the name rater. Do you wanna change the name of your pokemon?", cid)

talk_state = 1

 

elseif msgcontains(msg:lower(), "nick") or msgcontains(msg:lower(), "yes") and talk_state == 1 then

selfSay("Ok. But first i need you put the ball that contains the pokemon which you wanna change name in the pokeball slot. Is this in?", cid)

talk_state = 2

 

elseif msgcontains(msg:lower(), "yes") and talk_state == 2 then

selfSay("So, what will be the nickname?", cid)

talk_state = 3

 

elseif talk_state == 3 then

nick = tostring(msg)

 

if #getCreatureSummons(cid) == 0 then

if #nick <= 13 then

if getPlayerSlotItem(cid, CONST_SLOT_FEET).itemid >= 1 then

doItemSetAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "nickname", "".. nick .."")

selfSay("So be it. Come back anytime.", cid)

talk_state = 0

else

selfSay("There is no ball on the slot.", cid)

talk_state = 2

end

else

selfSay("Too long nickname. Try again.", cid)

talk_state = 2

end

else

selfSay("I want you put your pokemon back to the ball. Try again.", cid)

talk_state = 2

end

 

elseif msgcontains(msg:lower(), "summon") then

local x = doSummonCreature("Bulbasaur", getCreaturePos(getNpcId()))

doConvinceCreature(getNpcId(), x)

doChallengeCreature(x, cid)

doMonsterSetTarget(x, cid)

doChallengeCreature(getNpcId(), cid)

doMonsterSetTarget(getCreatureSummons(getNpcId())[1], cid)

selfSay("Take this!", cid)

 

elseif msgcontains(msg:lower(), "no") and talk_state ~= 3 then

selfSay("Hmmm, ok then. COme back anytime.")

talk_state = 0

end

return true

end

 

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)

npcHandler:addModule(FocusModule:new())

 

 

 

 

E Depois Adicione no Map Editor ,, E Edita Pelo Source "QUE EU NAO SEI MEXER" ,, se eu aprender eu posto um tuto vlw galera

 

 

 

:wink_smile:

 

 

 

Totalmente uma Farça, 100% Squadium e.e

Na proxima coloque os créditos, Se voce nã osabe mecher nas sourcers não deveria postar aqui neh --'

Henrique127

Artesao xD
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 18/10/10Posts: 33Char no Tibia: Loide Knight

Acho que voce nao leu !

 

Aew Galera Tipo EU Editei o Npc Que Apelida O Pokemon ,, Mais Como Eu Nao Sei Mexer Com Sources So Vo Postar o Npc !! Entao Vamos La ''Script Do Pokemon Squadium'' <<,

 

JA Falei Que O Script E Do Squadium --' Presta A Tençao Antes De Posta !



 

 

Ajudei E Esta Em Duvida ? REP++ ;D

Pokemon World Sky Online "Aonde Sua Diaverçao Esta Em Primeiro Lugar"

 

 

 

 

MEUS TRABALHOS :]

 

 

CURIOSO(A)

victorkta

avatar
Campones
Campones

INFOS

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

Aew, serviu de base pro meu Nick System. Rep+!!!

Henrique127

Artesao xD
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 18/10/10Posts: 33Char no Tibia: Loide Knight

Tchuca Fala Cmg Msn Que Eu Te Passo O Sources !



 

 

Ajudei E Esta Em Duvida ? REP++ ;D

Pokemon World Sky Online "Aonde Sua Diaverçao Esta Em Primeiro Lugar"

 

 

 

 

MEUS TRABALHOS :]

 

 

CURIOSO(A)

Henrique127

Artesao xD
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 18/10/10Posts: 33Char no Tibia: Loide Knight

Tem Sim ,, Henrique Aki :D



 

 

Ajudei E Esta Em Duvida ? REP++ ;D

Pokemon World Sky Online "Aonde Sua Diaverçao Esta Em Primeiro Lugar"

 

 

 

 

MEUS TRABALHOS :]

 

 

CURIOSO(A)

WolneiAC

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 04/10/10Posts: 14

Ae adicione as sources ae cara. :smile_positivo:

www.pookemonotproject.blogspot.com

BlackDruidz

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 26/08/11Posts: 5

ae aki em casa o meu nao e esse mas tenho esse ae tanbem meu server parece que nao aceita esse script auguen

pode ajudar do +rep

os scripts que tenho.

 

NameRater

Apelido

Nick

..........

Oq chego mais proximo do meu server foi o Name Rater Se Aguen Poder Ajudar ;D Rep

Henrique127

Artesao xD
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 18/10/10Posts: 33Char no Tibia: Loide Knight

Eu Consegui Por Gender System :D

Ai EU Vo Posta Ja Editado ,,

Esperem :D

 

Calma Galera Vo Posta As Sources Do Pokemon Sim Vo Da Upload ,,



 

 

Ajudei E Esta Em Duvida ? REP++ ;D

Pokemon World Sky Online "Aonde Sua Diaverçao Esta Em Primeiro Lugar"

 

 

 

 

MEUS TRABALHOS :]

 

 

CURIOSO(A)

  • 1
  • 2