[Talkaction] Shop System by SkyDangerous

[Skydangerous 374]

Script: Shop System by Skydangerous

Função: Voce pode comprar items na loja

Testado: Versão 8.6

INSTALANDO

vá na pasta talkaction/scripts e cria um arquivo no formato .lua com o nome de shop e cole isto:

local loja = {

["Fire Sword"] = {id = 2160, preco = 21000, cargas = 2 }

}


local config = {

pz = true,

battle = true,

premium = true

}


function onSay(cid, words, param, channel)  

	  if(param == "") then

				doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.")

				return true

		end


if param == 'lista' then

	local str = ""

for name,preco in pairs(loja) do

str = ("Item: " ..name .. ",\n Preço: " .. preco.preco .. "")

end

str = str .. ""

doShowTextDialog(cid, 6579, str)

return TRUE

end



			local sky = loja[param]

			local iten = getItemWeightById(sky.id,1)


		if config.pz == true and getTilePzInfo(getCreaturePosition(cid)) == FALSE then

			   doPlayerSendTextMessage(cid, 21,"Voce so pode comprar um item em protect zone.")

			   return TRUE

		end


	   if config.premium == true and not isPremium(cid) then

		  doPlayerSendTextMessage(cid, 21, "Voce so pode comprar um item se for premium.")

			  return TRUE

		end


		if config.battle == true and getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE then

		  doPlayerSendTextMessage(cid, 21, "Voce so pode comprar um item sem battle.")

			 return TRUE	

		end	



		if getPlayerFreeCap(cid) < iten then

			   doPlayerSendCancel(cid, "Voce nao tem cap para pegar o item")

			   return TRUE

		end



		 if getPlayerMoney(cid) < sky.preco then

			 doPlayerSendCancel(cid, "Voce nao tem dinheiro para comprar o item.")

			 return TRUE



		else			

		 doPlayerAddItem(cid,sky.id,1)

		  doPlayerRemoveMoney(cid, sky.preco)

		   doPlayerSendTextMessage(cid, 21, "Parabens, voce comprou um item na loja!")

			end

		  return TRUE

		  end

agora no talkaction.xml cole esta tag:

<talkaction words="!shop" event="script" value="shop.lua"/>

Modo de Usar: !shop nome do item Adicionando novos items:

["test"] = {id = 2160, preco = 1}

["test"] = Nome do item que o player irá dizer

ID = Id do item

preco = Quanto irá custar (1 = 1 gp)

Lista de Items

Script Exclusivo Tibia King

Editado Janeiro 6, 2012 por skydangerous (veja o histórico de edições)

[3visan 416]

Simples, mas no caso de um servidor bem serio, daria para adaptar para algo bem melhor.

Obrigado por compartilhar.

[Skydangerous 374]

Sim.

Já estou adicionando novas features

Como comprar só em pz.. e uma talkaction pra saber qual item e preco pra poder comprar

[Felyth 96]

Muito bacana a talkaction, bem criativa, mas dá para adicionar algumas funções como o Vittu citou...

[Bruno Carvalho 837]

Heiiita cara ta começano bem com os scripts heim =D

Go enche o fórum de script =D

[Hayashii 100]

POKSAPOekospkASO,Bem legal,para um bom otserver Rpg

Talvez ja coloque no meu ot :x

[Skydangerous 374]

Pronto.

Adiconei 3 features novas.

-PZ

-Battle

-Premium

, fiquem a vontade para editar do seu gosto.

[Fir3element 625]

Bom script

Se quiser botar pra ver as opção :S

if param == '' then

    local a = ""

    for k, v in pairs(loja) do

        a = a .. "\n" .. k

    end

    return doPlayerPopupFYI(cid, "!shop\n\n:" .. a)

end

[Skydangerous 374]

vlw fire

Nova Feature.

Agora lista do shop

Usar:

!shop lista

Até !

[GuuhTorres 304]

Ótimo script.

Obrigado por compartilhar conosco.

REP+ como incentivo.

Obrigado.Att GuuhTorres.

Editado Janeiro 10, 2012 por GuuhTorres (veja o histórico de edições)

[Skydangerous 374]

hehehe.

Irei compartilhar muitos, esse é os primeiros que estou fazendo.

KKKK',

[Fir3element 625]

Da uma olhada nas últimas linhas do script, algo diferente ?

[Skydangerous 374]

uhauhahua.

é que eu estava fazendo do meu jeito, ai vc me ajudou com a tag..

vlw irei remover

[MarcosFraga 64]

Vlw mesmo muito bem pensando o script

Reputado

[Sociopata 505]

praticamente quase igual ao meu q fiz para o gesior bem bacana

Reputado