Action TFS 0.X Slot Cassino [0.36~0.4]

[xWhiteWolf 3009]

Olá pessoas, hoje vim trazer pra vocês um script que inicialmente fiz prum trabalho mas acabei gostando muito dele e decidi postar.
To meio que indo dormir porque daqui a pouquinho tenho aula então vai ser tudo bem rapido e se vcs tiverem alguma dúvida comentem aqui.

 

Primeiramente façam uma sala parecida com essa aqui:


Não precisa ser necessariamente assim, mas ela deve ter as 3 bolas, uma alavanca e um local pra botar o dinheiro pras apostas.

O sistema é baseado naqueles jogos de slot nos cassinos onde você aposta uma quantidade de dinheiro e se tirar 3 peças iguais você recebe o dobro do dinheiro apostado.

em actions/scripts crie um arquivo chamado cassino.lua e adicione o seguinte dentro dele:
 

Spoiler

local config = {
leverid = 9826, -- id da alavanca
transformedid = 9825, -- id da alavanca ao clicar nela
moneyPos = {x = 146, y = 48, z = 7}, -- posicao que vai o dinheiro
delay = 200, -- esse delay e o tempo que demora entre cada shuffle
shuffle = 5, -- quantidade de shuffles por cada peça, lembre que a ultima peça vai rodar 3 * shuffle entao evite valores grandes)
multiplier = 2, -- por quanto multiplica o dinheiro apostado
effect = 27
}

local pieces = { -- POSICOES DE CADA PEÇA.
	[1] = {x = 147, y = 47, z = 7},
	[2] = {x = 147, y = 48, z = 7},
	[3] = {x = 147, y = 49, z = 7}
}

local function shuffle(id, times, final, pos) -- funcao que rotaciona a peca
	local item = getTileItemById(pos, id)
	if item and times > 0 then		
		doRemoveItem(item.uid)
		doCreateItem(id == 2638 and 2639 or 2638, 1, pos)
		addEvent(shuffle, config.delay, id == 2638 and 2639 or 2638, times - 1, final, pos)
	else 
		local nid = id
		if item and id ~= final then
			doRemoveItem(item.uid)
			doCreateItem(final, 1, pos)
			nid = final
		end
		if times == 0 then
			addEvent(shuffle, config.delay * config.shuffle * #pieces + config.delay * 10, nid, -1, 2639, pos)
		end
		doSendMagicEffect(pos, math.abs(final - 2638))		
	end
end

local function premiateWinner(uid, money, eff, result)
	if isPlayer(uid) then
		if result[1] == result[2] and result[2] == result[3] then
			doPlayerAddMoney(uid, money * config.multiplier)
			doSendMagicEffect(getCreaturePosition(uid), eff)
			doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, "[CASSINO] You won ".. money * config.multiplier .." gold coins. Congratulations!")
		else
			doSendMagicEffect(getCreaturePosition(uid), CONST_ME_POFF)
			doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, "[CASSINO] You lost. Better luck next time.")
		end
	end
end	

function onUse(cid, item, fromPosition, itemEx, toPosition)
	if item.itemid == config.leverid then
		local pc = getTileItemById(config.moneyPos, 2152)
		local cc = getTileItemById(config.moneyPos, 2160)
		local money = 0
		if pc and pc.type > 0 then
			money = money + pc.type * 100
			doRemoveItem(pc.uid)
		end
		if cc and cc.type > 0 then
			money = money + cc.type * 10000
			doRemoveItem(cc.uid)
		end
		if money >= 100 then
			doTransformItem(item.uid, config.transformedid)
			local pos = fromPosition
			addEvent(function()
				local lever = getTileItemById(pos, config.transformedid)
				if lever and lever.uid > 0 then
					doTransformItem(lever.uid, config.leverid)
				end
			end, (config.delay * #pieces) * (config.shuffle + 10))
			local result = {}
			for i = 1, #pieces do
				local id = 2639
				result[i] = math.random(0, 1)
				shuffle(id, config.shuffle * i, result[i] + 2638, pieces[i])
			end			
			addEvent(premiateWinner, config.delay * #pieces * config.shuffle, cid, money, config.effect, result)
		else
			doPlayerSendCancel(cid, "You need to place your offer. The minimum offer is 1 platinum coin.")
		end
	else
		doPlayerSendCancel(cid, "You need to wait the turn end to bet again.")
	end	
return true
end

 

Agora em data/actions/actions.xml adicione:

<action actionid="16541" script="cassino.lua"/>

Agora só botar a actionid na lever e configurar tudo de acordo com seu sv (as posições ali em pieces são as posições de cada peça, ou cada bola, se preferir.)
se quiser fazer várias salas é só copiar o código pra um cassino2.lua e registrar outra tag
<action actionid="16542" script="cassino2.lua"/>;

Tá tudo comentado no código então acho que dispensa uma explicação formal de como editar, espero que vocês gostem
Aqui tem um pequeno gif que o membro @eviltox nos forneceu:


Abraços do Lobo!

[Wakon 912]

Parabéns, seu tópico de conteúdo foi aprovado!
Muito obrigado pela sua contribuição, nós do Tibia King agradecemos.
Seu conteúdo com certeza ajudará à muitos outros, você recebeu +1 REP.

Spoiler

Congratulations, your content has been approved!
Thank you for your contribution, we of Tibia King we are grateful.
Your content will help many other users, you received +1 REP.

 

[KotZletY 1100]

A uns 2 ou 3 meses atrás, estava jogando um Poketibia bem famoso, só não cheguei ganhar 1k porque nos 300 hd, minha mãe me mandou lavar prato, kkk, o Cassino tinha um game parecido com esse.

 

Muito bom! xD

[eviltox 13]

^{Wolf e seus scripts .}

Ficou muito bom, inclusive a hora que ele remove as peças 

@Edit 
@xWhiteWolf cara realmente foi um erro bobo meu, não me toquei que coloquei o id 1945 no transformeid ao invés de 1946 '-' 
Enfim, agora ta 100%   e agora eu posso continuar a fazer o povo gastar todas as suas economias na minha salinha de jogos de azar MUAHAHAHA
Obs: Refiz o Gif pra mostrar a bagaça toda:

 

Editado Novembro 6, 2016 por eviltox (veja o histórico de edições)

[xWhiteWolf 3009]

@eviltox voce fez alguma configuração errada pois era pra ele travar a lever ate terminar de rodar e voltar as peças originais verifica que vc botou as posições e ids corretos.

[Pedriinz 162]

Boa, talvez eu use em um projeto meu... mas de qualquer forma, tenho certeza que é um ótimo sistema!

[xWhiteWolf 3009]

@eviltox mas ainda ta estranho ficar essa bola embaixo do x. Acho que vc botou bola a mais pelo map editor, só precisa de 1 em cada posição

[eviltox 13]

Acho que não era isso não kkkkk 

Spoiler

 

Veja se eu fiz alguma caca no script:
 

Spoiler

local config = {
leverid = 1945, -- id da alavanca
transformedid = 1946, -- id da alavanca ao clicar nela
moneyPos = {x = 480, y = 376, z = 8}, -- posicao que vai o dinheiro
delay = 200, -- esse delay e o tempo que demora entre cada shuffle
shuffle = 3, -- quantidade de shuffles por cada peça, lembre que a ultima peça vai rodar 3 * shuffle entao evite valores grandes)
multiplier = 2, -- por quanto multiplica o dinheiro apostado
effect = 27
}

local pieces = { -- POSICOES DE CADA PEÇA.
	[1] = {x = 479, y = 375, z = 8},
	[2] = {x = 479, y = 376, z = 8},
	[3] = {x = 479, y = 377, z = 8}
}

local function shuffle(id, times, final, pos) -- funcao que rotaciona a peca
	local item = getTileItemById(pos, id)
	if item and times > 0 then		
		doRemoveItem(item.uid)
		doCreateItem(id == 2638 and 2639 or 2638, 1, pos)
		addEvent(shuffle, config.delay, id == 2638 and 2639 or 2638, times - 1, final, pos)
	else 
		local nid = id
		if item and id ~= final then
			doRemoveItem(item.uid)
			doCreateItem(final, 1, pos)
			nid = final
		end
		if times == 0 then
			addEvent(shuffle, config.delay * config.shuffle * #pieces + config.delay * 10, nid, -1, 2639, pos)
		end
		doSendMagicEffect(pos, math.abs(final - 2638))		
	end
end

local function premiateWinner(uid, money, eff, result)
	if isPlayer(uid) then
		if result[1] == result[2] and result[2] == result[3] then
			doPlayerAddMoney(uid, money)
			doSendMagicEffect(getCreaturePosition(uid), eff)
			doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, "[CASSINO] You won ".. money .." gold coins. Congratulations!")
		else
			doSendMagicEffect(getCreaturePosition(uid), CONST_ME_POFF)
			doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, "[CASSINO] You lost. Better luck next time.")
		end
	end
end	

function onUse(cid, item, fromPosition, itemEx, toPosition)
	if item.itemid == config.leverid then
		local pc = getTileItemById(config.moneyPos, 2152)
		local cc = getTileItemById(config.moneyPos, 2160)
		local money = 0
		if pc and pc.type > 0 then
			money = money + pc.type * 100
			doRemoveItem(pc.uid)
		end
		if cc and cc.type > 0 then
			money = money + cc.type * 10000
			doRemoveItem(cc.uid)
		end
		if money >= 100 then
			doTransformItem(item.uid, config.transformedid)
			local pos = fromPosition
			addEvent(function()
				local lever = getTileItemById(pos, config.transformedid)
				if lever and lever.uid > 0 then
					doTransformItem(lever.uid, config.leverid)
				end
			end, (config.delay * #pieces) * (config.shuffle + 10))
			local result = {}
			for i = 1, #pieces do
				local id = 2639
				result[i] = math.random(0, 1)
				shuffle(id, config.shuffle * i, result[i] + 2638, pieces[i])
			end			
			addEvent(premiateWinner, config.delay * #pieces * config.shuffle, cid, money * config.multiplier, config.effect, result)
		else
			doPlayerSendCancel(cid, "You need to place your offer. The minimum offer is 1 platinum coin.")
		end
	else
		doPlayerSendCancel(cid, "You need to wait the turn end to bet again.")
	end	
return true
end

 

Era pra ficar assim?\/

Eu só retirei as bolas antes da primeira jogada, ai ele as criou após o término e então eu não retirei mais e ele fica com esse efeito sempre. 

 

[trancx123 18]

não tem como configurar para impedir que pessoas taquem itens nos slots? mt bom, gostei do script

[thelifeofpbion 167]

1 hora atrás, trancx123 disse:

não tem como configurar para impedir que pessoas taquem itens nos slots? mt bom, gostei do script

parede?

[trancx123 18]

@pablobion hã?

[xWhiteWolf 3009]

8 horas atrás, eviltox disse:

Acho que não era isso não kkkkk 

  Mostrar conteúdo oculto

 

Veja se eu fiz alguma caca no script:
 

  Mostrar conteúdo oculto

local config = {
leverid = 1945, -- id da alavanca
transformedid = 1946, -- id da alavanca ao clicar nela
moneyPos = {x = 480, y = 376, z = 8}, -- posicao que vai o dinheiro
delay = 200, -- esse delay e o tempo que demora entre cada shuffle
shuffle = 3, -- quantidade de shuffles por cada peça, lembre que a ultima peça vai rodar 3 * shuffle entao evite valores grandes)
multiplier = 2, -- por quanto multiplica o dinheiro apostado
effect = 27
}

local pieces = { -- POSICOES DE CADA PEÇA.
	[1] = {x = 479, y = 375, z = 8},
	[2] = {x = 479, y = 376, z = 8},
	[3] = {x = 479, y = 377, z = 8}
}

local function shuffle(id, times, final, pos) -- funcao que rotaciona a peca
	local item = getTileItemById(pos, id)
	if item and times > 0 then		
		doRemoveItem(item.uid)
		doCreateItem(id == 2638 and 2639 or 2638, 1, pos)
		addEvent(shuffle, config.delay, id == 2638 and 2639 or 2638, times - 1, final, pos)
	else 
		local nid = id
		if item and id ~= final then
			doRemoveItem(item.uid)
			doCreateItem(final, 1, pos)
			nid = final
		end
		if times == 0 then
			addEvent(shuffle, config.delay * config.shuffle * #pieces + config.delay * 10, nid, -1, 2639, pos)
		end
		doSendMagicEffect(pos, math.abs(final - 2638))		
	end
end

local function premiateWinner(uid, money, eff, result)
	if isPlayer(uid) then
		if result[1] == result[2] and result[2] == result[3] then
			doPlayerAddMoney(uid, money)
			doSendMagicEffect(getCreaturePosition(uid), eff)
			doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, "[CASSINO] You won ".. money .." gold coins. Congratulations!")
		else
			doSendMagicEffect(getCreaturePosition(uid), CONST_ME_POFF)
			doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, "[CASSINO] You lost. Better luck next time.")
		end
	end
end	

function onUse(cid, item, fromPosition, itemEx, toPosition)
	if item.itemid == config.leverid then
		local pc = getTileItemById(config.moneyPos, 2152)
		local cc = getTileItemById(config.moneyPos, 2160)
		local money = 0
		if pc and pc.type > 0 then
			money = money + pc.type * 100
			doRemoveItem(pc.uid)
		end
		if cc and cc.type > 0 then
			money = money + cc.type * 10000
			doRemoveItem(cc.uid)
		end
		if money >= 100 then
			doTransformItem(item.uid, config.transformedid)
			local pos = fromPosition
			addEvent(function()
				local lever = getTileItemById(pos, config.transformedid)
				if lever and lever.uid > 0 then
					doTransformItem(lever.uid, config.leverid)
				end
			end, (config.delay * #pieces) * (config.shuffle + 10))
			local result = {}
			for i = 1, #pieces do
				local id = 2639
				result[i] = math.random(0, 1)
				shuffle(id, config.shuffle * i, result[i] + 2638, pieces[i])
			end			
			addEvent(premiateWinner, config.delay * #pieces * config.shuffle, cid, money * config.multiplier, config.effect, result)
		else
			doPlayerSendCancel(cid, "You need to place your offer. The minimum offer is 1 platinum coin.")
		end
	else
		doPlayerSendCancel(cid, "You need to wait the turn end to bet again.")
	end	
return true
end

 

Era pra ficar assim?\/

Eu só retirei as bolas antes da primeira jogada, ai ele as criou após o término e então eu não retirei mais e ele fica com esse efeito sempre. 

 

exatamente, era pra ficar assim porém era pra ele pegar as peças que estão presentes e transformá-las.. Se deixar sem nada era pra dar um erro no seu console de item not found. Procede?

[thelifeofpbion 167]

2 horas atrás, trancx123 disse:

@pablobion hã?

não, tente usar paredes.

[xWhiteWolf 3009]

9 horas atrás, trancx123 disse:

não tem como configurar para impedir que pessoas taquem itens nos slots? mt bom, gostei do script

A função que eu uso aí ele pega o primeiro item encontrado na pilha com id da Bola e fazer uma série de operações de transformação com ela. O que você pode fazer é colocar algum item que bloqueie caminho e que seja invisível, vou conversar com meu mapper pra saber que item que ele usa (o id). Aí tudo que vc tem que fazer é botar esse item em cima das bolas, o pessoal ainda será capaz de ver a bola/X e não poderá jogar nada em cima pois o item bloqueará. Outra opção é meter algum action/uniqueid nas bolas e criar um movements onAddItem pra remover o item que foi jogado assim q ele é lançado.

[eviltox 13]

16 horas atrás, xWhiteWolf disse:

exatamente, era pra ficar assim porém era pra ele pegar as peças que estão presentes e transformá-las.. Se deixar sem nada era pra dar um erro no seu console de item not found. Procede?

 

Procede e.e 
 

[trancx123 18]

@xWhiteWolf @pablobion o bom seria isso White, eu até fiz na primeira vez com um item, mas estragou a estética hahahaha. Pablo, usar paredes? N sei nem se seria viável, além da questão estética...

[xWhiteWolf 3009]

1 hora atrás, eviltox disse:

 

Procede e.e 
 

a questão agora é entender  pq q qnd vc bota uma bola embaixo ele tá criando ao invés de transformar.. tem ctza absoluta que tu não colocou duas uma em cima da outra?

 

52 minutos atrás, trancx123 disse:

@xWhiteWolf @pablobion o bom seria isso White, eu até fiz na primeira vez com um item, mas estragou a estética hahahaha. Pablo, usar paredes? N sei nem se seria viável, além da questão estética...

o id é 1548

[trancx123 18]

@xWhiteWolf vlw mito, o item é invisível e n da pra tacar nada em cima

[Vodkart 2156]

E ai lobão! Excelente código, estava pensando em você coloca uma tabela que dependendo da quantia que você aposta, poderia receber itens aleatórios!

 

digamos:

 

Apostei de 1000 a 10000 GPS = money *2

 

de 50000 a 100000 = tabela de itens {2173,2494,2394}

 

de 100000 a 500000 = {9991, 2586, 2686, 2684}

 

 

exemplo isso /\

 

pra galera jogar mais 

[xWhiteWolf 3009]

20 minutos atrás, Vodkart disse:

E ai lobão! Excelente código, estava pensando em você coloca uma tabela que dependendo da quantia que você aposta, poderia receber itens aleatórios!

 

digamos:

 

Apostei de 1000 a 10000 GPS = money *2

 

de 50000 a 100000 = tabela de itens {2173,2494,2394}

 

de 100000 a 500000 = {9991, 2586, 2686, 2684}

 

 

exemplo isso /\

 

pra galera jogar mais 

Isso é facil, vc tem a função que dá o premio:

local function premiateWinner(uid, money, eff, result)
    if isPlayer(uid) then
        if result[1] == result[2] and result[2] == result[3] then -- caso ele ganhe entra aqui
            doPlayerAddMoney(uid, money * config.multiplier) -- coloca um if aqui pra verificar quanto é o dinheiro apostado (if money <= 50000 add dinheiro, elseif money <= 50000  add um item aleatorio da tabela 1, else add um item aleatorio da tabela 2.
            doSendMagicEffect(getCreaturePosition(uid), eff)
            doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, "[CASSINO] You won ".. money .." gold coins. Congratulations!")
        else
            doSendMagicEffect(getCreaturePosition(uid), CONST_ME_POFF)
            doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, "[CASSINO] You lost. Better luck next time.")
        end
    end
end