favor não postar em outro forum

Cansei de ver as BPs da mesma cor nos OTs

Criei esse NPC Back Picka

(AhuHhehUahaE)

1° - Vamos acertar uma das BPs

Confira seu data\items\items.xml

Se estiver assim :

<item id="3960" name="backpack">
<attribute key="weight" value="1800"/>
<attribute key="containerSize" value="20"/>
<attribute key="slotType" value="backpack"/>
</item>

troca por isto :

	<item id="3960" name="an old and used backpack">
<attribute key="description" value="A label on the backpack reads: Property of Sam, Thais."/>
<attribute key="weight" value="1800"/>
<attribute key="containerSize" value="20"/>
<attribute key="slotType" value="backpack"/>
</item>

=======================================================================

2° - Criando o NPC

data\npc\BackPicka.xml

<?xml version="1.0"?>

<npc name="Back Picka" script="data/npc/scripts/bp.lua" access="3" lookdir="1" autowalk="200" speed="200">
<health now="1" max="1"/>
<look type="160" head="38" body="79" legs="107" feet="114"/>
</npc>

Altere o look type a gosto.

A velocidade de andar e mover eu puz 200

(quase não fica parado e anda na velocidade BOH)

=======================================================================

3° - Criando o Script

data\npc\scripts\bp.lua

local focus = 0
local talk_start = 0
local target = 0
local following = false
local attacking = false

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('Hello ' .. creatureGetName(cid) .. '! I sell all types of BackPack for 20 gps each.')
	focus = cid
	talk_start = os.clock()

elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then
	selfSay('Sorry, ' .. creatureGetName(cid) .. '! I talk to you in a minute.')

elseif focus == cid then
	if msgcontains(msg, 'bp') or msgcontains(msg, 'backpack') or msgcontains(msg, 'bps') or msgcontains(msg, 'backpacks') then
		selfSay('I sell brown (1) , green (2) , yellow (3) , red (4) , purple (5) , blue (6) , gray(7) , golden (8) , star (9) , camouflage (10).') 
		selfSay('I can sell specials pirate (11) , holding (12) , sam (13) , fur (14).')
		talk_start = os.clock()

	elseif msgcontains(msg, 'brown') or msgcontains(msg, '1') then
		buy(cid,1988,1,20)

	elseif msgcontains(msg, 'green') or msgcontains(msg, '2') then
		buy(cid,1998,1,20)

	elseif msgcontains(msg, 'yellow') or msgcontains(msg, '3') then
		buy(cid,1999,1,20)

	elseif msgcontains(msg, 'red') or msgcontains(msg, '4') then
		buy(cid,2000,1,20)

	elseif msgcontains(msg, 'purple') or msgcontains(msg, '5') then
		buy(cid,2001,1,20)

	elseif msgcontains(msg, 'blue') or msgcontains(msg, '6') then
		buy(cid,2002,1,20)

	elseif msgcontains(msg, 'gray') or msgcontains(msg, '7') then
		buy(cid,2003,1,20)

	elseif msgcontains(msg, 'golden') or msgcontains(msg, '8') then
		buy(cid,2004,1,20)

	elseif msgcontains(msg, 'star') or msgcontains(msg, '9') then
		buy(cid,5949,1,20)

	elseif msgcontains(msg, 'camouflage') or msgcontains(msg, '10') then
		buy(cid,3940,1,20)

	elseif msgcontains(msg, 'pirate') or msgcontains(msg, '11') then
		buy(cid,5926,1,20)

	elseif msgcontains(msg, 'holding') or msgcontains(msg, '12') then
		buy(cid,2365,1,20)

	elseif msgcontains(msg, 'sam') or msgcontains(msg, '13') then
		buy(cid,3960,1,20)

	-- elseif msgcontains(msg, 'fur') or msgcontains(msg, '14') then
	-- 	buy(cid,7342,1,20)

	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) > 5 then
		selfSay('Good bye then.')
		focus = 0
	end
end
end

O Player vai poder comprar a BP pela cor ou pelo número.

Todas BPs valem 20 gps.

Exemplo :

Trecho da fala do NPC

bla-bla-bla (7) , golden (8) , bla-bla-bla

Trecho do script

elseif msgcontains(msg, 'golden') or msgcontains(msg, '8') then
buy(cid,2004,1,20)

Se o Player falar "golden" ou "8" ele vai comprar a BP Dourada de Ankrhamun por 20 gps.

(alterar o preço se desejar)

Acho que é só....

:XTibia_smile:

Cara que rox adorei

~~Aprovado~~

muito bom conde xD

cada dia trazendo novos tutoriais para ajudar o xtibia

testado e aprovado

minhas obras

Como sempre o Conde Sapo está contribuindo para o fórum com seus tutoriais criativos!

Conde.. já falei que adimiro muito seus comentarios a respeito dos meus tutoriais, e da mesma forma adimiro os seus.

Ainda bem que você não usa aquelas cores carnavalescas =P

Obrigado por contribuir.

Pain

Parabens Conde

Muit bom Adorei xD

Tinha um MONTE DE ERRO e ninguém corrigiu

Acertei o script lá

:XTibia_smile:

@Conde Sapo

Eu não entendo de scripts, e nem tenho paciencia pra ficar lendo eles (são muito grandes)

Mas, é feito por você? Tá aprovado!

Passar bem

Pain

Eu tinha feito um NPC assim..

Só que quando fui testar na versão mirage 8.0, acho que não suportava tal itens...

Ou eu tinha feito algo errado..

Vou testar esse pra ver.

Valeu conde.

muito bom

valeu conde por mais um topico

APROVADO

Otimo tutorial

Como seus tutorial são sempre bons

eu nem testo (sempre funfa)

e tambem eu num entendo de scripts (se quiser me dar uma aula Msn : dvls_thiago@hotmail.com)

Abraços....

Otimo tutorial

Como seus tutorial são sempre bons

eu nem testo (sempre funfa)

e tambem eu num entendo de scripts (se quiser me dar uma aula Msn : dvls_thiago@hotmail.com)

Abraços....

bem bom, não muito complicado, é mais chato de fazer mesmo , mas muito bom mesmo, bem útil =]

parabéns

Use isInArray(array, element) muito melhor em termos de performace, e diminui o código para mais de 70%

Já tentei usar array

Use isInArray(array, element)

Mas não conseguí achar a posição do elemet dentro do array

só vem a resposta TRUE ou FALSE

eu saberia trabalhar obtendo a posição.

(Evolutions 7.92)

Exemplo :

Arr1 = {'Item1', 'Item2', 'Item3', 'Item4', 'Item5')

Pos = isInArray(Arr1, 'Item3')

Dentro de Pos só vem TRUE

Eu queria 3 (terceiro item da tabela)

Ae eu usaria isso com a segunda tabela

Arr2 = {'100', '200', '300', '400', '500')

"O valor do " .. Item3 .. " é R$" .. Arr2[Pos]

Meu array no Padre Marcelo

mes = os.date("%m")

mesesChr = {"Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro"}
mesBR = mesesChr[mes*1]

Ae foi facil.... eu tinha a posição.

:XTibia_smile:

Parabens condee

APROVADAÇO

soh q eu ainda axo mais pratico exevo con bp ^^

hashusahusahu

mais flanu serio agora o tuto fiko mto rox e mto criativo ^^

flw