Npc Diferente.

MUTAN0 · Julho 25, 2008

Bem, como algum de voces devem ter visto, eu fiz um totorial sobre colocar Npc/Monsters no mapEditor.

Use-o para adicionar este npc á seu mapa:

(-Adicionando Monsters/Npcs no seu MapEditor-)

Mas agora eu venho trazer uma coisa que vi muitos membros pedirem e nao serem respondidos...

Um Npc que vende premium account por scarab coins, itens Vips por scarab coins, e promotion por gps.

Mao na massa:

Vá para pasta npc de seu OT (data\npc);

copie qualquer arquivo e cole renomeando para Pestar (que sera o nome do npc que eu usarei no topico, se preferir outro nome, Mude com sua preferencia).

Abra-o em um bloco de notas e apague tudo dentro e adicione isto no lugar:

local focus = 0
local talk_start = 0
local target = 0
local days = 0

function onThingMove(creature, thing, oldpos, oldstackpos)

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 (focus == 0)) and getDistanceToCreature(cid) < 4 then
	selfSay('Ola ' .. creatureGetName(cid) .. '! Eu vendo VIP e itens VIP.')
	focus = cid
	talk_start = os.clock()

elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then
	  selfSay('Desculpe, ' .. creatureGetName(cid) .. '! Falarei com voce em alguns instantes.')

  elseif focus == cid then
	talk_start = os.clock()

	if msgcontains(msg, 'promoted') or msgcontains(msg, 'promotion') then
		if getPlayerVocation(cid) > 4 then
			selfSay('Desculpe, voce ja esta promovido.')
			talk_state = 0
		elseif getPlayerLevel(cid) < 20 then
			selfSay('Voce precisa ter no minimo level 20...')
			talk_state = 0
					elseif not getPlayerPremium(cid) then
			selfSay('Compre vip antes, depois eu lhe promoverei.')
			talk_state = 0
		else
			selfSay('Voce quer ser promovido por 20k?')
			talk_state = 1
		end

	elseif msgcontains(msg, 'premium') or msgcontains(msg, 'vip') then
		selfSay('Voce quer comprar 15 dias de VIP por 50 scarab Coins?')
		talk_state = 2

	elseif talk_state == 1 then
		if msgcontains(msg, 'yes') then
			if pay(cid,20000) then
				doPlayerSetVocation(cid, getPlayerVocation(cid)+4)
				selfSay('Voce foi promovido!')
			else
				selfSay('Voce nao tem dinheiro suficiente.')
			end
		end
		talk_state = 0

	elseif talk_state == 2 then
		if msgcontains(msg, 'yes') then
			if doPlayerRemoveItem(cid,2159,50) == TRUE then
				addPremium(cid,16)
				selfSay('Voce recebeu 15 dias de premium!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
			elseif focus == cid then
	talk_start = os.clock()

	if msgcontains(msg, 'shield of honor') then
			if doPlayerRemoveItem(cid,2159,200) == TRUE then
			doPlayerAddItem(cid,2535,1)
				selfSay('Voce recebeu Shield of Honor!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
				 end
		end
	if msgcontains(msg, 'helmet of honor') then
			if doPlayerRemoveItem(cid,2159,50) == TRUE then
			doPlayerAddItem(cid,2506,1)
				selfSay('Voce recebeu Helmet of Honor!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
			   if msgcontains(msg, 'armor of honor') then
			if doPlayerRemoveItem(cid,2159,50) == TRUE then
			doPlayerAddItem(cid,2505,1)
				selfSay('Voce recebeu Armor of Honor!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
				if msgcontains(msg, 'legs of honor') then
			if doPlayerRemoveItem(cid,2159,50) == TRUE then
			doPlayerAddItem(cid,2507,1)
				selfSay('Voce recebeu Legs of Honor!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
				if msgcontains(msg, 'sword of honor') then
			if doPlayerRemoveItem(cid,2159,200) == TRUE then
			doPlayerAddItem(cid,7382,1)
				selfSay('Voce recebeu Sword of Honor!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
				if msgcontains(msg, 'axe of honor') then
			if doPlayerRemoveItem(cid,2159,200) == TRUE then
			doPlayerAddItem(cid,7388,1)
				selfSay('Voce recebeu Axe of Honor!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
				if msgcontains(msg, 'club of honor') then
			if doPlayerRemoveItem(cid,2159,200) == TRUE then
			doPlayerAddItem(cid,7392,1)
				selfSay('Voce recebeu Club of Honor!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
				if msgcontains(msg, 'damage ring') then
			if doPlayerRemoveItem(cid,2159,150) == TRUE then
			doPlayerAddItem(cid,2210,1)
				selfSay('Voce recebeu Damage Ring!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
				if msgcontains(msg, 'warrior ring') then
			if doPlayerRemoveItem(cid,2159,150) == TRUE then
			doPlayerAddItem(cid,2211,1)
				selfSay('Voce recebeu Warrior Ring!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
				   if msgcontains(msg, 'magician ring') then
			if doPlayerRemoveItem(cid,2159,150) == TRUE then
			doPlayerAddItem(cid,2212,1)
				selfSay('Voce recebeu Magician Ring!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
				   if msgcontains(msg, 'flames sword') then
			if doPlayerRemoveItem(cid,2159,250) == TRUE then
			doPlayerAddItem(cid,7748,1)
				selfSay('Voce recebeu Flames Sword!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
				   if msgcontains(msg, 'united axe') then
			if doPlayerRemoveItem(cid,2159,250) == TRUE then
			doPlayerAddItem(cid,7751,1)
				selfSay('Voce recebeu United Axe!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
				   if msgcontains(msg, 'cranial club') then
			if doPlayerRemoveItem(cid,2159,250) == TRUE then
			doPlayerAddItem(cid,7756,1)
				selfSay('Voce recebeu Cranial Club!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end
			   if msgcontains(msg, 'onyx arrow') then
			if doPlayerRemoveItem(cid,2159,200) == TRUE then
			doPlayerAddItem(cid,7365,1)
				selfSay('Voce recebeu Onix Arrow!')
			else
				selfSay('Sorry, you do not have scarab Coins.')
			end
		end

		talk_state = 0

	  elseif msgcontains(msg, 'bye')  and getDistanceToCreature(cid) < 4 then
		  selfSay('Good bye, ' .. creatureGetName(cid) .. '!')
		  focus = 0
		  talk_start = 0
	  end
  end
end


function onCreatureChangeOutfit(creature)

end


function onThink()
doNpcSetCreatureFocus(focus)
  if (os.clock() - talk_start) > 30 then
	  if focus > 0 then
		  selfSay('Next Please...')
	  end
		  focus = 0
  end
if focus ~= 0 then
	if getDistanceToCreature(focus) > 4 then
		selfSay('Good bye then.')
		focus = 0
	end
end
end

Editando o NPC: (Usando exemplos do Script)

if (msgcontains(msg, 'hi') and (focus == 0)) and getDistanceToCreature(cid) < 4 then
selfSay('Ola ' .. creatureGetName(cid) .. '! Eu vendo VIP e itens VIP.')

--Isso ele respondera ao player dizer 'hi'.

elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then
selfSay('Desculpe, ' .. creatureGetName(cid) .. '! Falarei com voce em alguns 
instantes.')

--Isso ele respondera se chegar um player, dizer 'hi', mas outro player ja estiver falando com o Npc.

elseif msgcontains(msg, 'premium') or msgcontains(msg, 'vip') then

--Isso é o que o player dira para o Npc saber que ele quer comprar 'premium' ou 'vip'.

selfSay('Voce quer comprar 15 dias de VIP por 50 scarab Coins?')

--Isso é a resposta do Npc para o player

if msgcontains(msg, 'yes') then

--O player diz que 'yes', ou seja, aceita a compra de "premium".

if doPlayerRemoveItem(cid,2159,50) == TRUE then

--Aqui o Npc removera os scarab coins;

*2159 é o ID dos scarab coins;

*50 é a quantidade de scarab coins.

addPremium(cid,15)

--O 15 é a quantidade de dias que o Npc deu ao player.

selfSay('Voce recebeu 15 dias de premium!')

--Npc confirma a venda.

selfSay('Sorry, you do not have scarab Coins.')

--Npc diz ao player que ele nao tem scarab coins o bastante para a venda.

if msgcontains(msg, 'cranial club') then

--Player diz ao Npc que deseja compra o Cranial Club (nome do club em meu OT).

if doPlayerRemoveItem(cid,2159,250) == TRUE then

--Npc remove os scarab coins do player;

*2159 é o ID dos scarab coins;

*250 é a quantidade.

doPlayerAddItem(cid,7756,1)

--Npc dá ao player o Cranial club;

*7756 é o ID do club.

*1 é a quantidade.

selfSay('Voce recebeu Cranial Club!')

--Npc confirma a venda

selfSay('Sorry, you do not have scarab Coins.')

--Npc diz ao player que ele nao tem scarab coins o bastante para efetuar a compra.

if (os.clock() - talk_start) > 30 then
if focus > 0 then
selfSay('Next Please...')

--Apos 30 segundos sem falar com o Npc, ele se despede do player dizendo 'Next please...'

Bem, é isso ai gente.

Agora aproveitem o Npc e editem o que quiserem, pois com o mesmo script da de fazer bastante coisas afins em seu OT.

CREDITOS: Topico 100% meu, sem direitos á CTRL+C ou CTRL+V.

Deixe seu comentario, please.

Obrigado, ate a proxima :party:

--EDIT--

O npc estava com um erro que eu nao percebi, ja esta arrumado e 100% funcionando.

Vlw...

Editado Julho 28, 2008 por MUTAN0

h3online · Julho 25, 2008

poxa cara bem legal gostei mesmo continue assim q vc vai longe.

Oniram · Julho 25, 2008

Não sei se tá funfando, mas se tivé fico bom mesmo, parabéns

makakinho3 · Julho 25, 2008

v testar

parece tar bom

MUTAN0 · Julho 25, 2008

Sim, teste e diga o que achou...

Vlws

Jvchequer · Julho 27, 2008

Olá Xtibiano,

Parabéns, o tópico está ótimo.

Mais está na seção errada.

Tópico Movido. :forward:

Atenciosamente,

JV Chequer *Sub-Administrador do Fórum Xtibia.com*

MUTAN0 · Setembro 5, 2008

^-^

Gosto de ajudar.

Quando puder estarei fazendo novos tutoriais.

Até mais.

careca21 · Setembro 5, 2008

Uu Muito Bom Cara e a 1º vez Que Vejo Iso

Muito Bom Scarab Coins Por Vip ou Premy....

E Uma Otima ideia, Pos Iscarab Coin e Uma Moeda nao utilizada no tibia

so Achei que fico Muito Grande o Topico...

Mas Ta Muiot Manero !!!

Entrar

Npc Diferente.

Posts Recomendados

MUTAN0 1

Link para o comentário

Compartilhar em outros sites

h3online 1

Link para o comentário

Compartilhar em outros sites

Oniram 1

Link para o comentário

Compartilhar em outros sites

makakinho3 1

Link para o comentário

Compartilhar em outros sites

MUTAN0 1

Link para o comentário

Compartilhar em outros sites

Jvchequer 63

Link para o comentário

Compartilhar em outros sites

MUTAN0 1

Link para o comentário

Compartilhar em outros sites

careca21 0

Link para o comentário

Compartilhar em outros sites

Quem Está Navegando 0 membros estão online

Conteúdo Similar

otserver Alguem poderia me ajudar ?? Com esse Mapa de POKETIBIA

Baiak Titan 8.6 200X - 24h/7 Dedicado BR (COM MONTARIAS)

script alguém pode me ajudar nessa spells aqui, queira que colocassem pro meu personagem ficar inatingível por 6 segundos e podendo atacar livremente

Cliente 10.00 Bug Quando o jogador usa qualquer magia ou posição

Fóruns

Tutoriais

Suporte