Logo

[Action] Baú Que Da Items Pela Vocação Do Player (versão Ii Items No Container)

mrsliim2
Por mrsliim2
em Actions e Talkactions

mrsliim2

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 13/04/09Posts: 6Char no Tibia: ADM Scripter Pro
Postado em abril 14, 2009

Olá novamente, venho aqui trazer para vcs uma nova versão do meu Script do Bau que da items de acordo com a Vocaçao. Evitando a Sujeira causada pelos novatos quando entram em seu servidor.

 

Para Ver a Versão 1, Clique Aqui.

 

Em actions/Actions.xml:

 

<!-- Bau que da items por Voc, By Sliim -->

<action actionid="3548" script="bauporvoc.lua"/>

 

em Actions/Scripts:

 

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

 

voc = getPlayerVocation(cid)

queststatus = getPlayerStorageValue(cid,11554)

container = doPlayerAddItem(cid, ID_DA_BAG_ou_BP, 1)

 

 

if voc == 1 then

if queststatus == -1 then

 

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

 

setPlayerStorageValue(cid,11554,1)

else

doPlayerSendTextMessage(cid,22,"It is empty.")

end

elseif voc == 2 then

if queststatus == -1 then

 

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

 

setPlayerStorageValue(cid,11554,1)

else

doPlayerSendTextMessage(cid,22,"It is empty.")

end

elseif voc == 3 then

if queststatus == -1 then

 

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

 

setPlayerStorageValue(cid,11554,1)

else

doPlayerSendTextMessage(cid,22,"It is empty.")

end

elseif voc == 4 then

if queststatus == -1 then

 

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

doAddContainerItem(container, ID_DO_ITEM, 1)

 

setPlayerStorageValue(cid,11554,1) else

doPlayerSendTextMessage(cid,22,"It is empty.")

end

else

return 0

end

 

return 1

end

 

 

Explicando

 

Laranja: ID do container (BP, Bag ou qualquer outro).

Azul: ID dos Items que o player irá ganhar.

 

Para maiores informações visite o Tópico I. Clique Aqui.

 

Script sugerido por: Schiavinato

 

 

Sliim~

Sliim~ Está de volta!!!!

Tive a 1ª conta hackiada, e suspensa (infinitamente) mas estou do volta a ativa!!!
Precisa de ajuda em seu Servidor??
com:
► Scripts
► Sistemas
► Monstros
► NPC
► Mapping (não é minha especialidade)
► QUALQUER OUTRA COISA

Me contate por MSN, antes que a concorrencia faça isso!!!
QUOTE
luan.gugelmin@hotmail.com


Te ajudei??? Use minha Fan Bar!!




Avatares



Schiavinato

Aprendendo Scripting *-*
avatar
Visconde
Visconde

INFOS

Grupo: ViscondeRegistrado: 12/08/07Posts: 345Char no Tibia: Lokeded
Postado em abril 14, 2009

Agora sim :]

 

Ficou melhor do que o 1º

 

Logo colocarei no meu ot

 

Cya ;~

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/

tibiaa4e

Ex amante de Tibia
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 18/12/05Posts: 912Gênero: MasculinoChar no Tibia: Kohzete
Postado em abril 16, 2009

fico legal + tem uns return ai a mais e inutil e poderia tirar uma variavel

 

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

local queststatus = getPlayerStorageValue(cid,11554)
local container = doPlayerAddItem(cid, ID_DA_BAG_ou_BP, 1)


if getPlayerVocation(cid) == 1 then
	if queststatus == -1 then

		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)
		setPlayerStorageValue(cid,11554,1)
	else
		doPlayerSendTextMessage(cid,22,"It is empty.")
	end

elseif getPlayerVocation(cid) == 2 then
	if queststatus == -1 then

		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)
		setPlayerStorageValue(cid,11554,1)
	else
		doPlayerSendTextMessage(cid,22,"It is empty.")
	end

elseif getPlayerVocation(cid) == 3 then
	if queststatus == -1 then

		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)
		setPlayerStorageValue(cid,11554,1)
	else
		doPlayerSendTextMessage(cid,22,"It is empty.")
	end

elseif getPlayerVocation(cid) == 4 then
	if queststatus == -1 then

		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)
		doAddContainerItem(container, ID_DO_ITEM, 1)

		setPlayerStorageValue(cid,11554,1)
	else
		doPlayerSendTextMessage(cid,22,"It is empty.")
	end
			end
end

 

caso queria pode fazer a quest checar se o player tem cap

Aposentado de OTserver e Tibia

Meus melhores tutoriais
Enciclopédia Pasta Data
Tutorial de quest

mrsliim2

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 13/04/09Posts: 6Char no Tibia: ADM Scripter Pro
Postado em abril 16, 2009

Obrigado pela dica, tibiaa4e.

Logo postarei uma Versao 3.0 desse script, com a verificaçao de cap.

 

Sliim~

Sliim~ Está de volta!!!!

Tive a 1ª conta hackiada, e suspensa (infinitamente) mas estou do volta a ativa!!!
Precisa de ajuda em seu Servidor??
com:
► Scripts
► Sistemas
► Monstros
► NPC
► Mapping (não é minha especialidade)
► QUALQUER OUTRA COISA

Me contate por MSN, antes que a concorrencia faça isso!!!
QUOTE
luan.gugelmin@hotmail.com


Te ajudei??? Use minha Fan Bar!!




Avatares



\Mattheus ~*

Ex Moderador
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 11/02/09Posts: 559Char no Tibia: Deep Druid
Postado em abril 24, 2009

Me ajudo bastante

vlw~~

[/ Construçãao .