pedido Pedido De Script

[lucas1324 0]

Alguem poderia me passar um sistema de nick ? pode ser pelas sources pois eu tenho as sources do meu server

 

e tambem queria saber como por o look da minha pokeball assim

 

 

 

 

 

 

16:27 You see a Poke Ball.

This is Gasparzinho's (Gengar) pokeball. HP = [3800/3800]

 

 

No caso ali aparecer o nick do poke e a vida dele alguem sabe?

Editado Agosto 3, 2012 por LUKINHAS132

[notle2012 233]

qual versão vc usa eu tenho sistema de nick

aqui

[lucas1324 0]

Ultilizo a 8.54

 

Pf Field 2.0 se nao me engano so que to com as sources '-'

 

 

 

@Alguem Ajuda Pliz

 

@Post

 

Alguem me ajuda por favor

Editado Agosto 3, 2012 por LUKINHAS132

[notle2012 233]

data\npc\Namer.xml

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Namer" script="nick.lua" walkinterval="350000" floorchange="0" speed="0" lookdir="2">
<health now="150" max="150"/>
<look type="614" head="115" body="122" legs="0" feet="76"/>
<parameters>

</parameters>
</npc>

 

data\npc\scripts\nick.lua

local focus = 0
local talk_start = 0
local conv = 0
local target = 0
local following = false
local attacking = false
local talkState = {}
local finalname = ""
function onThingMove(creature, thing, oldpos, oldstackpos)
end
function onCreatureAppear(creature)
end
function onCreatureDisappear(cid, pos)
if focus == cid then
selfSay('Good bye sir!')
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, msge)
local msg = string.lower(msge)
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

if focus == cid then
 talk_start = os.clock()
end
local auras = {"red aura", "blue aura", "green aura", "yellow aura", "white aura", "gray aura", "cyan aura", "purple aura", "orange aura"}

if (msgcontains(msg, 'hi') and (focus == 0) and (getDistanceToCreature(cid) <= 4)) then
focus = cid
conv = 1
talk_start = os.clock()
selfSay("Hello, "..getCreatureName(cid).."! Eu posso dar o seu Pokémon um apelido me diga 'nickname' e nome que queira")
elseif (msgcontains(msg, "no") or msgcontains(msg, "bye")) and focus == cid and conv ~= 3 then
selfSay("No problem then, sir. Come back when you feel like it!")
focus = 0
elseif (msgcontains(msg, "nick") or msgcontains(msg, "nickname")) and focus == cid and conv == 1 then
 if getPlayerSlotItem(cid, 8).uid <= 0 then
  selfSay("Sorry, you don't have a pokemon in the main slot!")
  focus = 0
 return true
 end
selfSay("Put your pokemon at the main slot and tell me, what nickname would you like me to give to your pokemon?")
conv = 3

elseif msgcontains(msg, "aura") and focus == cid and conv == 1 then
 if getPlayerSlotItem(cid, 8).uid <= 0 then
	selfSay("Sorry, you don't have a pokemon in the main slot!")
	focus = 0
 return true
 end

 local pb = getPlayerSlotItem(cid, 8).uid
 if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 50 then
	selfSay("Sorry, your pokemon is not boosted +50!")
	focus = 0
 return true
 end  

 selfSay("You can choose one of these auras: red aura, blue aura, green aura, yellow aura, white aura, gray aura, cyan aura, purple aura, orange aura. Which one do you prefer?")
 conv = 9

elseif isInArray(auras, msg) and focus == cid and conv == 9 then
   selfSay("Are you sure that you want to put a "..msg.." in your pokemon?")
   conv = 11
   local d, e = msg:find('(.-) aura')
auraFinal = string.sub(msg, d -1, e - 5)

elseif msgcontains(msg, "yes") and focus == cid and conv == 11 then	  
 if getPlayerSlotItem(cid, 8).uid <= 0 then
	selfSay("Sorry, you don't have a pokemon in the main slot!")
	focus = 0
 return true
 end

 local pb = getPlayerSlotItem(cid, 8).uid
 if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 50 then
	selfSay("Sorry, your pokemon is not boosted +50!")
	focus = 0
 return true
 end

 doItemSetAttribute(pb, "aura", auraFinal)  
 selfSay("Done! Now your pokemon have a new elemental aura. Enjoy it!")
 if #getCreatureSummons(cid) >= 1 then
 adjustStatus(getCreatureSummons(cid)[1], getPlayerSlotItem(cid, 8).uid)
 end
 focus = 0
 conv = 0

elseif conv == 3 and focus == cid then
local tablee = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "x", "w", "y", "z", ".", ":", "'", '"', "~", "^", "@", "#", "$", "%", "&", "*", "(", ")", "-", "+", "_", "?", ">", "<", "•", ";", "°", "¹", "²", "³", "£", "¢", "¬", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
local table = {"'", '"', "!", "ã", "õ", "ç", "´", "`", "á", "à", "ó", "ò", "é", "è", "í", "ì", "ú", "ù", "¹", "²", "³", "£", "¢", "¬", "§", "°", "º", "ª", "•", "|"}
for a = 1, #table do
 if string.find(msg, table[a]) then
  selfSay("Sorry, the nick has invalid symbols.")
 return true
 end
end
if string.len(msg) <= 1 or string.len(msg) >= 19 then
 selfSay("Sorry, that nick is too long or too short!")
return true
end
local pokename = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")

selfSay("Are you sure that you want to change your's "..pokename.." name to \""..msge.."\"? This is going to cost you 10 hundred dollars.")
conv = 5
finalname = msge
elseif msgcontains(msg, "yes") and focus == cid and conv == 5 then
if getPlayerSlotItem(cid, 8).uid <= 0 then
 selfSay("Where is your pokemon?! You have to keep it at the main slot!")
 focus = 0
return true
end
if doPlayerRemoveMoney(cid, 100000) == false then
 selfSay("You don't have enough money to afford this service, come back later.")
 focus = 0
 conv = 0
return true
end
local nick = ""..finalname..""
local description = "Contains a "..getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke").."."
selfSay("Done! Your pokemon now has a new name, enjoy it!")
doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "nick", nick)
local newdes = description.."\nIt's nickname is: "..finalname.."."
doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "description", newdes)
local hp = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "happy")
doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "happy", hp + 25)
if #getCreatureSummons(cid) >= 1 then
 adjustStatus(getCreatureSummons(cid)[1], getPlayerSlotItem(cid, 8).uid)
end
focus = 0
conv = 0
end
end

local intervalmin = 38
local intervalmax = 70
local delay = 25
local number = 1
local messages = {"Want to give some nicknames to your pokemon? Talk to me!",
"Did you know your pokemon gets a little happier when you give him a nickname?",
"Every pokemon wants to have a nickname! Come talk to me!",
"Pokemons love nicknames, you should give yours one.",
  }
function onThink()
if focus == 0 then
 selfTurn(1)
  delay = delay - 0.5
  if delay <= 0 then
selfSay(messages[number])
number = number + 1
 if number > #messages then
  number = 1
 end
delay = math.random(intervalmin, intervalmax)
  end
 return true
else
if not isCreature(focus) then
 focus = 0
return true
end
 local npcpos = getThingPos(getThis())
 local focpos = getThingPos(focus)
 if npcpos.z ~= focpos.z then
  focus = 0
 return true
 end
 if (os.clock() - talk_start) > 45 then
  focus = 0
  selfSay("Come back some other time!")
 end
 if getDistanceToCreature(focus) > 3 then
  selfSay("Enjoy!")
  focus = 0
 return true
 end
 local dir = doDirectPos(npcpos, focpos)
 selfTurn(dir)
end

return true
end

 

e tenho esse outro

local focus = 0
local talk_start = 0
local conv = 0
local target = 0
local following = false
local attacking = false
local talkState = {}
local finalname = ""
function onThingMove(creature, thing, oldpos, oldstackpos)
end
function onCreatureAppear(creature)
end
function onCreatureDisappear(cid, pos)
if focus == cid then
selfSay('Good bye sir!')
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, msge)
local msg = string.lower(msge)
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

if (msgcontains(msg, 'hi') and (focus == 0) and (getDistanceToCreature(cid) <= 4)) then
--if not isPremium(cid) then
--selfSay("Hello, "..getCreatureName(cid).."! I'm sorry, but I can only give nicknames to pokemons for premium members!")
--return true
--end
focus = cid
conv = 1
selfSay("Hello, "..getCreatureName(cid).."! I can give your pokemon a nickname, would you like it?")
elseif (msgcontains(msg, "no") or msgcontains(msg, "bye")) and focus == cid and conv ~= 3 then
selfSay("No problem then, sir. Come back when you feel like it!")
focus = 0
elseif msgcontains(msg, "yes") and focus == cid and conv == 1 then
 if getPlayerSlotItem(cid, 8).uid <= 0 then
  selfSay("Sorry, you don't have a pokemon in the main slot!")
  focus = 0
 return true
 end
selfSay("Put your pokemon at the main slot and tell me, what nickname would you like me to give to your pokemon?")
conv = 3
elseif conv == 3 and focus == cid then
local tablee = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "x", "w", "y", "z", ".", ":", "'", '"', "~", "^", "@", "#", "$", "%", "&", "*", "(", ")", "-", "+", "_", "?", ">", "<", "•", ";", "°", "¹", "²", "³", "£", "¢", "¬", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
local table = {"'", '"', "!", "ã", "õ", "ç", "´", "`", "á", "à", "ó", "ò", "é", "è", "í", "ì", "ú", "ù", "¹", "²", "³", "£", "¢", "¬", "§", "°", "º", "ª", "•", "|"}
for a = 1, #table do
 if string.find(msg, table[a]) then
  selfSay("Sorry, the nick has invalid symbols.")
 return true
 end
end
if string.len(msg) <= 1 or string.len(msg) >= 19 then
 selfSay("Sorry, that nick is too long or too short!")
return true
end
local pokename = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")

selfSay("Are you sure that you want to change your's "..pokename.." name to \""..msge.."\"? This is going to cost you 10 hundred dollars.")
conv = 5
finalname = msge
elseif msgcontains(msg, "yes") and focus == cid and conv == 5 then
if getPlayerSlotItem(cid, 8).uid <= 0 then
 selfSay("Where is your pokemon?! You have to keep it at the main slot!")
 focus = 0
return true
end
if doPlayerRemoveMoney(cid, 100000) == false then
 selfSay("You don't have enough money to afford this service, come back later.")
 focus = 0
 conv = 0
return true
end
local nick = ""..finalname..""
local description = "Contains a "..getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke").."."
selfSay("Done! Your pokemon now has a new name, enjoy it!")
doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "nick", nick)
local newdes = description.."\nIt's nickname is: "..finalname.."."
doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "description", newdes)
local hp = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "happy")
doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "happy", hp + 25)
if #getCreatureSummons(cid) >= 1 then
 doCreatureSetNick(getCreatureSummons(cid)[1], finalname)
end
focus = 0
conv = 0
end
end

function onThink()
if focus ~= 0 then
a, b, c = selfGetPosition()
if c ~= getThingPos(focus).z then
focus = 0
end
end
if focus ~= 0 then
if getDistanceToCreature(focus) > 6 then
focus = 0
end
end
return true
end

 

mais tem eu editar

1. goback.lua
   
2. order.lua
   
3. look.lua
   
4. login.lua
   
5. acho que ainda falto algo kkkkk
   

Editado Agosto 3, 2012 por notle2012

[lucas1324 0]

Pode me falar como Editar ?

 

Vo te reputar amanha reputo mais

 

 

Mais se tu puder me ajudar a editar.

[notle2012 233]

primeiro ver se npc pego na sua versão ele renomeia com pokemon fora da ball ou dentro da ball

renomeia ele fora da ball pra ver se pego pq se vc renomeia ele dentro da ball

quando tirar não vai funcionar pq o seu goback.lua

não esta editado ainda

Editado Agosto 3, 2012 por notle2012

[lucas1324 0]

18:56 You see a pokeball.

Contains a This is Mew's pokeball. HP = [7200/7200].

It's nickname is: Soberano.

 

Ta Funcionando mais nao esta aparecendo com ele fora da ball como tu disse nao esta editado ainda

 

Pode me ajudar?

 

@ Ajuda?

 

@Alguem sabe os arquivos que tem que editar?

 

Alguem me Ajuda por favor

 

Do rep+ me ajudem aew

 

 

teste

 

Editado Agosto 4, 2012 por LUKINHAS132