action Nick System [PDE]

[Refe 320]

Olá, hoje eu vim postar mais um sistema para o PDE!

Sistema da vez:

Nick System

Vá em data/npc/scripts e crie um arquivo chamado namer.lua

Coloque isso dentro:

  Mostrar conteúdo oculto

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).."! I posso dar ao seu pokemon um nick ou posso colocar em seu pokemon uma aura, se o boost dele For +50...")

elseif (msgcontains(msg, "no") or msgcontains(msg, "bye")) and focus == cid and conv ~= 3 then

	selfSay("Não tem problema, então, senhor. Volte quando lhe apetecer!")
	focus = 0

elseif (msgcontains(msg, "nick") or msgcontains(msg, "nickname")) and focus == cid and conv == 1 then

     if #getCreatureSummons(cid) >= 1 then 
        selfSay("Devolva o seu pokemon para sua pokeball!")
        focus = 0
     return true
     end   

		if getPlayerSlotItem(cid, 8).uid <= 0 then
			selfSay("Desculpe, você não tem um pokemon no slot principal!")
			focus = 0
		return true
		end

	selfSay("Coloque o seu pokemon no slot principal e me diga, o nick que você gostaria de me dar ao seu pokemon?")
	conv = 3
	
elseif msgcontains(msg, "aura") and focus == cid and conv == 1 then

     if getPlayerSlotItem(cid, 8).uid <= 0 then
        selfSay("Desculpe, você não tem um pokemon no slot principal!")
        focus = 0
     return true
     end
     
     local pb = getPlayerSlotItem(cid, 8).uid
     if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 50 then
        selfSay("Desculpe, seu pokemon não esta boost +50!")
        focus = 0
     return true
     end  
     
     if getItemAttribute(pb, "aura") and getItemAttribute(pb, "aura") ~= "" then
        selfSay("Desculpe, seu pokemon Já tem uma aura elemental!")
        focus = 0
     return true
     end 
     
     if #getCreatureSummons(cid) >= 1 then 
        selfSay("Devolva o seu pokemon para sua pokeball!")
        focus = 0
     return true
     end       
          
     selfSay("Você pode escolher uma dessas auras: red aura, blue aura, green aura, yellow aura, white aura, gray aura, cyan aura, purple aura, orange aura. Qual deles você prefere?")
     conv = 9
     
elseif isInArray(auras, msg) and focus == cid and conv == 9 then

       selfSay("Você tem certeza que quer que colocar um "..msg.." no seu 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("Desculpe, você não tem um pokemon no slot principal!")
        focus = 0
     return true
     end
     
     local pb = getPlayerSlotItem(cid, 8).uid
     if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 50 then
        selfSay("Desculpe, seu pokemon não é impulsionada +50!")
        focus = 0
     return true
     end
     
     if #getCreatureSummons(cid) >= 1 then 
        selfSay("Devolva o seu pokemon para sua pokeball!")
        focus = 0
     return true
     end   
     
     doItemSetAttribute(pb, "aura", auraFinal)   
     selfSay("Feito! Agora seus pokemon têm uma nova aura elemental. Enjoy it!")
	 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("Lamentamos, mas o nick tem símbolos inválidos.")
		return true
		end
	end

	if string.len(msg) <= 1 or string.len(msg) >= 19 then
		selfSay("Desculpe, que Nick é muito longo ou muito curto!")
	return true
	end

	local pokename = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")


	selfSay("Tem certeza de que quer mudar para que as vossas de "..pokename.." name to \""..msge.."\"? Isso vai custar-lhe 10 hundred dollars.")
	conv = 5
	finalname = msge

elseif msgcontains(msg, "yes") and focus == cid and conv == 5 then

     if #getCreatureSummons(cid) >= 1 then 
        selfSay("Devolva o seu pokemon para sua pokeball!")
        focus = 0
     return true
     end     

	if getPlayerSlotItem(cid, 8).uid <= 0 then
		selfSay("Onde está o seu pokemon! Você tem que mantê-lo no slot principal!")
		focus = 0
	return true
	end

	if doPlayerRemoveMoney(cid, 100000) == false then
		selfSay("Você não tem dinheiro suficiente para pagar esse serviço, volte mais tarde.")
		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 = {"Quer dar alguns apelidos para o seu pokemon? Fale comigo!",
		  "Você sabia que seu pokemon fica um pouco mais feliz Quando você dar a ele um apelido?",
		  "Cada pokemon quer ter um apelido! Vem falar comigo!",
		  "Pokemons adora apelidos, você deve dar um ao seu.",
		 }

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("Volte outra hora!")
		end

		if getDistanceToCreature(focus) > 3 then
			selfSay("Enjoy!")
			focus = 0
		return true
		end

		local dir = doDirectPos(npcpos, focpos)	
		selfTurn(dir)
	end


return true
end

 

 

Agora em data/npc crie um arquivo chamado nick.xml e cole isso:

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

<npc name="John" 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>

Agora em actions/scripts/goback.lua

Antes de:

else
    doPlayerSendCancel(cid, "This pokemon is fainted.")
end
return true
end

Coloque:

		local nick = getItemAttribute(item.uid, "nick")
	if not nick then
		local name = getItemAttribute(item.uid, "poke")
			local level = getItemAttribute(item.uid, "level")
		doCreatureSetNick(getCreatureSummons(cid)[1], ""..name.." ["..level.."]")
		else
	local level = getItemAttribute(item.uid, "level")
	doCreatureSetNick(getCreatureSummons(cid)[1], ""..nick.." ["..level.."]")
	end

Caso queira sem o level no nome coloque:

		local nick = getItemAttribute(item.uid, "nick")
	if not nick then
		local name = getItemAttribute(item.uid, "poke")
		doCreatureSetNick(getCreatureSummons(cid)[1], name)
		else
	local level = getItemAttribute(item.uid, "level")
	doCreatureSetNick(getCreatureSummons(cid)[1], nick)
	end

[fabiosa 8]

certinho vlw. rep

[Refe 320]

  Em 30/01/2016 em 00:36, fabiosa disse:

certinho vlw. rep

 

[Administrador 1435]

Conteúdo bom como sempre hehe

Obrigado por trazer ao xTibia!

[Refe 320]

  Em 30/01/2016 em 01:18, Daniel disse:

Conteúdo bom como sempre hehe

Obrigado por trazer ao xTibia!

Valeu Daniel!

[Bluester 206]

Muito bom

[Refe 320]

  Em 30/01/2016 em 14:13, Bluester disse:

Muito bom

 

Valeu, @@Bluester