Action Para A Inquistion Quest

Schiavinato
em Actions e Talkactions

Schiavinato

Aprendendo Scripting *-*
avatar
Visconde
Visconde

INFOS

Grupo: ViscondeRegistrado: 12/08/07Posts: 345Char no Tibia: Lokeded

Antes de tudo..

Creditos ao AlissonLinnker

 

Ele que me ajudo fazer a quest

 

Vamos ao script, dps explicação...

 

Va em data/actions/scripts/copie um arkivo e renomei-e para inquichest(sempre na extenção .lua)

 

e adicionde o seguinte:

 

-- Inquisition chests

function onUse(cid, item, frompos, item2, topos)

  	if item.uid == 8560 then
  		queststatus = getPlayerStorageValue(cid,8560)
  		if queststatus == -1 then
  			doPlayerSendTextMessage(cid,22,"You have found a Emerald Sword.")
  			doPlayerAddItem(cid,8930,1)
  			setPlayerStorageValue(cid,8560,1)
  		else
  			doPlayerSendTextMessage(cid,22,"It is empty.")
  		end
  	elseif item.uid == 8561 then
  		queststatus = getPlayerStorageValue(cid,8560)
  		if queststatus == -1 then
  			doPlayerSendTextMessage(cid,22,"You have found a Spellbook of dark Mysteries.")
  			doPlayerAddItem(cid,8918,1)
  			setPlayerStorageValue(cid,8560,1)
  		else
  			doPlayerSendTextMessage(cid,22,"It is empty.")
  		end
  	elseif item.uid == 8562 then
  		queststatus = getPlayerStorageValue(cid,8560)
  		if queststatus == -1 then
  			doPlayerSendTextMessage(cid,22,"You have found a Master Archer's Armor.")
  			doPlayerAddItem(cid,8888,1)
  			setPlayerStorageValue(cid,8560,1)
  		else
  			doPlayerSendTextMessage(cid,22,"It is empty.")
  		end
  	elseif item.uid == 8563 then
  		queststatus = getPlayerStorageValue(cid,8560)
  		if queststatus == -1 then
  			doPlayerSendTextMessage(cid,22,"You have found a Robe of the Underworld")
  			doPlayerAddItem(cid,8890,1)
  			setPlayerStorageValue(cid,8560,1)
  		else
  			doPlayerSendTextMessage(cid,22,"It is empty.")
  		end
  	elseif item.uid == 8564 then
  		queststatus = getPlayerStorageValue(cid,8560)
  		if queststatus == -1 then
  			doPlayerSendTextMessage(cid,22,"You have found a Fireborn Giant Armor.")
  			doPlayerAddItem(cid,8881,1)
  			setPlayerStorageValue(cid,8560,1)
  		else
  			doPlayerSendTextMessage(cid,22,"It is empty.")
  		end
  	elseif item.uid == 8565 then
  		queststatus = getPlayerStorageValue(cid,8560)
  		if queststatus == -1 then
  			doPlayerSendTextMessage(cid,22,"You have found a Obsidian Truncheon.")
  			doPlayerAddItem(cid,8928,1)
  			setPlayerStorageValue(cid,8560,1)
  		else
  			doPlayerSendTextMessage(cid,22,"It is empty.")
  		end
  	elseif item.uid == 8566 then
  		queststatus = getPlayerStorageValue(cid,8560)
  		if queststatus == -1 then
  			doPlayerSendTextMessage(cid,22,"You have found a Royal Crossbow.")
  			doPlayerAddItem(cid,8851,1)
  			setPlayerStorageValue(cid,8560,1)
  		else
  			doPlayerSendTextMessage(cid,22,"It is empty.")
  		end
  	elseif item.uid == 8567 then
  		queststatus = getPlayerStorageValue(cid,8560)
  		if queststatus == -1 then
  			doPlayerSendTextMessage(cid,22,"You have found a Warsinger Bow.")
  			doPlayerAddItem(cid,8854,1)
  			setPlayerStorageValue(cid,8560,1)
  		else
  			doPlayerSendTextMessage(cid,22,"It is empty.")
  		end
  	elseif item.uid == 8568 then
  		queststatus = getPlayerStorageValue(cid,856)
  		if queststatus == -1 then
  			doPlayerSendTextMessage(cid,22,"You have found a Hellforged axe")
  			doPlayerAddItem(cid,8924,1)
  			setPlayerStorageValue(cid,8560,1)
  		else
  			doPlayerSendTextMessage(cid,22,"It is empty.")
  		end

else
	return 0
  	end

  	return 1
end

 

Explicação rapida:

Faça um esqueminha de báu igual da anihilator(Com os bau e os itens atras pra mostra o que pega em cada bau)

 

Agora siga a ordem:

ITEM:.......................UniqueId do BAU:

Emerald Sword--8560

Spellbook of Dark Mysteries--8561

Master Archer's Armor--8562

Robe of the Underworld--8563

Fireborn Giant Armor--8564

Obsidian Truncheon--8565

Royal Crossbow--8566

Warsinger Bow--8567

Hellforged Axe--8568

 

 

Esses numeros na frente dos itens, eh oq eh pra por na frente do bauzinho de cada..aconselho n mudar :)

 

 

Agora va em action.xml e adicione:

 

<action uniqueid="8560" script="inquichest.lua" />
<action uniqueid="8561" script="inquichest.lua" />
<action uniqueid="8562" script="inquichest.lua" />
<action uniqueid="8563" script="inquichest.lua" />
<action uniqueid="8564" script="inquichest.lua" />
<action uniqueid="8565" script="inquichest.lua" />
<action uniqueid="8566" script="inquichest.lua" />
<action uniqueid="8567" script="inquichest.lua" />
<action uniqueid="8568" script="inquichest.lua" />

 

Pronto...agora soh faze alguma coisa legal ate chegar na sala do premio!

 

OB:eu ate postaria a minha, mas meu pc deleto meu mapa ¬¬

 

Flws

Comentem..e qualker erro/bug/duvida posta ai q eu respondo!

The Crystal Server(Sorcerer´s Stone) - Project



 

Venha participar deste projeto - Desenvolvido por Shynzo

 

Link para download do distro:

http://www.xtibia.com/forum/topic/143282-862-the-crystal-server-v018/

Link da formação do projeto:

http://www.xtibia.com/forum/topic/143247-the-crystal-server-recruta/

Amiginhu

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 22/11/08Posts: 46Char no Tibia: Luiz em Phytera.Uso otro

Otimo action , nota 10 ; ) prabens


Amiginhuuu :)
Do S2

lucas-_abc

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 25/05/06Posts: 6

mt bom , valeu ai

alissonlinneker

ñ frite bacon sem kmiza xP
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 15/12/07Posts: 239

O melhor!

uahsuahsha

 

bjO!



Devo esquecer aqueles que me impuseram obstáculos infundados e agradecer àqueles que me impulsionaram adiante. É hora, mais do que nunca, de valorizar as amizades e os conhecimentos adquiridos aqui. Agradeço a todos que me apoiaram. Vlw xTibia!
Amais!
[Retired]



~~>Meus Trabalhos:

---Sistema De Domínio De Castelos. (Action)
---Sistema De Mineraçao (Action)
---Scroll Que Da X Exp Quando é Usada (Action)
---Portas Não Abrem? Venha Aqui Ver Como Arruma! (Action)
---Crie Suas Quest´s De Uma Maneira Rapida E Facil. (Action)
---The Demon OaK Quest (Action)

---Addon Por Item, Com Todos Os Outfits. (Npc)

---Aprenda a colocar suas quests no Quest Log (Tutorial+scripts _ data/xml/quests.xml)
---Conhecendo Melhor A Pasta Globalevents (Tutorial+scripts)
---Gerencie O Seu Mysql Como Se Fosse Sqlite (Tutorial)
---Multi World Sistem - Como Funciona. (Tutorial)

---Projeto de tradução do TFS 8.31 SQL - Inglês para o Portugês (Server 8.31)

---2 Templantes para Web Site de OT (Websites de OTserv)
---Atualização de sites do Gesior para sistema de mult-world (Websites de OTserv)

---Thyrania editado (Map)
---Yalahar Global Completo (Map)

---Pic Editor para Tibia 8.2+ (Programa)
---Ztracker - Clone mapas 8.4 (Programa)