Ir para conteúdo

BC Clean

Membro
  • Registro em

  • Última visita

  1. BC Clean reagiu a uma resposta no tópico: Sistema: Cassino Slots.
  2. Não cara o item eu descobri o item ta tipo padrão, é sempre a amostra 3 se não me engano o id do item é 2183. aquela wand azul.
  3. Então cara o bug eu descobri o que é o item que sempre é selecionado e o numero 3, então eu pra deixar quieto pra não da mais problemas resolvi, deixar ele lá aonde vai ficar o cassino demonstrando como o item padrão. valeu mesmo assim, estou sem rep agora se não eu lhe dava, amanha eu te dou.
  4. Não as únicas mensagens são. 02:07 Máquina em funcionamento, aguarde. 02:07 Que pena, já perdeu na primeira chance. 02:07 Que pena, perdeu na segunda chance. 02:07 Que pena, perdeu na terceira chance. Aparece todos os items na parte do cassino só não aparece na hora de mostrar o item da sorte. :S
  5. @Matheus é proibido da suporte via PM.
  6. Já configurei tudo, o script pega de boa o problema é que não aparece o item de demonstração. ------- Script by: Adriano Swatt ---- local condition_infight = createConditionObject(CONDITION_INFIGHT) setConditionParam(condition_infight, CONDITION_PARAM_TICKS, 8000) local gstrg = 12129 -- Não Mexa, Storage de Controle Global. local gstrg_control = 12130 -- Não Mexa, Storage de Controle Itens. local istrg = {12131, 12132, 12133} -- Não Mexa, Storage de Segurança. local items = { [0] = {0}, -- NEUTRO [1] = {2182}, -- ID do ITEM 1 [2] = {2183}, -- ID do ITEM 2 [3] = {2184}, -- ID do ITEM 3 [4] = {2185}, -- ID do ITEM 4 [5] = {2186}, -- ID do ITEM 5 [6] = {2187}, -- ID do ITEM 6 [7] = {2188}, -- ID do ITEM 7 [8] = {2189}, -- ID do ITEM 8 [9] = {2190}, -- ID do ITEM 9 [10] = {2191}, --ID do ITEM 10 [11] = {0} -- NEUTRO } local valor = {2160, 10} -- ID da Moeda pra Jogar, Quantidade (preço) local comb1 = {2160, 10} -- ID , Quantidade, para quem acertar 1 item da combinação local comb2 = {2160, 20} -- ID , Quantidade, para quem acertar 2 item da combinação local comb3 = {2160, 50} -- ID , Quantidade, para quem acertar todos itens da combinação + o prêmio configurado acima local premio = {6132, 1} -- ID do Prêmio, Quantidade (que o player ganhará ao acertar os 3 itens) local iluck_pos = {x=125, y=48, z=3} -- Posição onde fica a amostra do item da sorte local pos = {{x=126, y=48, z=3}, {x=127, y=48, z=3}, {x=128, y=48, z=3}} -- Posições onde os itens sorteados aparecerão local effect = 26 -- Efeito na hora de selecionar o item da sorte local eff = 30 -- Efeito ao criar os itens na mesa (hora do sorteio) local reff = 29 -- Efeito ao remover itens da mesa (ao finalizar) -------- FIM DAS CONFIGURAÇÕES -------- function onUse(cid, item, frompos, item2, topos) local dir = getPlayerLookDir(cid) local gget = getGlobalStorageValue(gstrg) local gnumb = items[gget] local gnumba = items[gget + 1] local gnumbs = items[gget - 1] if gnumb then if dir == WEST or dir == EAST then -- Caso não esteja em posição de jogar. doPlayerSendTextMessage(cid, 18, "Para jogar, siga as dicas abaixo: \n Para escolher o item da sorte, vire-se para baixo e clique na alavanca até selecioná-lo. \n Para jogar, após ter selecionado o item da sorte, vire-se para cima e puxe novamente a alavanca.") elseif dir == NORTH then -- Posição de Jogar if gget ~= 0 then if getGlobalStorageValue(gstrg_control) < 1 then if getPlayerItemCount(cid, valor[1]) >= valor[2] then math1 = math.random(1,10) math2 = math.random(1,10) math3 = math.random(1,10) doPlayerRemoveItem(cid, valor[1], valor[2]) mayNotMove(cid, true) doAddCondition(cid, condition_infight) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Máquina em funcionamento, aguarde.") setGlobalStorageValue(gstrg_control, 1) --- Criando itens doSendMagicEffect(pos[1], eff) doCreateItem(items[math1][1], pos[1]) setGlobalStorageValue(istrg[1], items[math1][1]) addEvent(doSendMagicEffect, 1000, pos[2], eff) addEvent(doCreateItem, 1000, items[math2][1], pos[2]) setGlobalStorageValue(istrg[2], items[math2][1]) addEvent(doSendMagicEffect, 2000, pos[3], eff) addEvent(doCreateItem, 2000, items[math3][1], pos[3]) setGlobalStorageValue(istrg[3], items[math3][1]) --- Checando Itens if gnumbs[1] == getGlobalStorageValue(istrg[1]) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, você já acertou o primeiro item da combinação.") setPlayerStorageValue(cid, gstrg, (getPlayerStorageValue(cid, gstrg) + 1)) else doPlayerSendTextMessage(cid, 18, "Que pena, já perdeu na primeira chance.") end if gnumbs[1] == getGlobalStorageValue(istrg[2]) then addEvent(doPlayerSendTextMessage, 1000, cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, você acertou o segundo item da combinação.") setPlayerStorageValue(cid, gstrg, (getPlayerStorageValue(cid, gstrg) + 1)) else addEvent(doPlayerSendTextMessage, 1000, cid, 18, "Que pena, perdeu na segunda chance.") end if gnumbs[1] == getGlobalStorageValue(istrg[3]) then addEvent(doPlayerSendTextMessage, 2000, cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, você acertou o terceiro item da combinação.") setPlayerStorageValue(cid, gstrg, (getPlayerStorageValue(cid, gstrg) + 1)) else addEvent(doPlayerSendTextMessage, 2000, cid, 18, "Que pena, perdeu na terceira chance.") end addEvent(function() for z = 1, 3 do doRemoveItem(getTileItemById(pos[z], getGlobalStorageValue(istrg[z])).uid, 1) doSendMagicEffect(pos[z], reff) end mayNotMove(cid, false) setGlobalStorageValue(gstrg_control, 0) addEvent(CassPremio, 500, cid) end, 5000) --- Fim Checagem else doPlayerSendCancel(cid, "Você precisa de "..valor[2].." "..getItemNameById(valor[1]).." para jogar.") end else doPlayerSendCancel(cid, "Precisa esperar o jogo finalizar para jogar novamente.") end else doPlayerSendCancel(cid, "Primeiro selecione o item de sorte para poder jogar.") end elseif dir == SOUTH then -- Posição de Selecionar Item da Sorte if getGlobalStorageValue(gstrg_control) < 1 then if gget <= 0 then doCreateItem(gnumba[1], 1, iluck_pos) doSendMagicEffect(iluck_pos, effect) doPlayerSendCancel(cid, "Você selecionou o "..getItemNameById(gnumba[1]).." como seu item da sorte.") setGlobalStorageValue(gstrg, 2) elseif gget >= 2 and gget < 11 then doRemoveItem(getTileItemById(iluck_pos, gnumbs[1]).uid, 1) doCreateItem(gnumb[1], 1, iluck_pos) doSendMagicEffect(iluck_pos, effect) doPlayerSendCancel(cid, "Você selecionou o "..getItemNameById(gnumb[1]).." como seu item da sorte.") setGlobalStorageValue(gstrg, (gget + 1)) elseif gget >= 11 then doSendMagicEffect(iluck_pos, effect) doRemoveItem(getTileItemById(iluck_pos, gnumbs[1]).uid, 1) doPlayerSendCancel(cid, "Você resetou os itens.") setGlobalStorageValue(gstrg, 0) end else doPlayerSendCancel(cid, "Precisa esperar o jogo finalizar para selecionar outro item da sorte.") end end else setGlobalStorageValue(gstrg, 0) end return true end function CassPremio(cid) if getPlayerStorageValue(cid, gstrg) == 1 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, você acertou um item da combinação e foi recompensado em "..comb1[2].." "..getItemNameById(comb1[1])..".") doPlayerAddItem(cid, comb1[1], comb1[2]) setPlayerStorageValue(cid, gstrg, 0) elseif getPlayerStorageValue(cid, gstrg) == 2 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, você acertou dois itens da combinação e foi recompensado em "..comb2[2].." "..getItemNameById(comb2[1])..".") doPlayerAddItem(cid, comb2[1], comb2[2]) setPlayerStorageValue(cid, gstrg, 0) elseif getPlayerStorageValue(cid, gstrg) == 3 then doBroadcastMessage("Parabéns, o jogador "..getPlayerName(cid).." acertou as 3 combinações da Cassino Slots.") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, você acertou TODOS itens da combinação e foi recompensado em "..comb3[2].." "..getItemNameById(comb3[1]).." e "..premio[2].." "..getItemNameById(premio[1])..".") doPlayerAddItem(cid, premio[1], premio[2]) doPlayerAddItem(cid, comb3[1], comb3[2]) setPlayerStorageValue(cid, gstrg, 0) end return true end Estou utilizando assim.
  7. BC Clean reagiu a uma resposta no tópico: [ACTIONS] Tm System -
  8. Link. http://www.tibiaking.com/forum/topic/35731-castle-war-24h-conquiste-o-trono/
  9. BC Clean reagiu a uma resposta no tópico: (Resolvido)[SISTEMA] Castle
  10. Nem eu só que eu um dia desses baixei pra ver. Mais valeu achei um sistema aqui vlw.
  11. BC Clean reagiu a uma resposta no tópico: (Resolvido)[SISTEMA] Castle
  12. Não eu quero um castle war que 2 times brigam pelo castelo e tlz. quero um castle war igual tem no baiak absolute entende?
  13. Fala galera do tk gostaria de pedir um sistema de castle de dominar o castelo quem puder ajudar agradeço.
  14. BC Clean postou uma resposta no tópico em Recursos e ferramentas de Design
    Pode deixa, lá pras 20:00 eu faço
  15. BC Clean postou uma resposta no tópico em Recursos e ferramentas de Design
    crlh curte bem zombie em. La pra umas 20:00, se o benny não tiver feito eu faço.

Informação Importante

Confirmação de Termo