[Pedido]Sistema de Loteria

[zipter98 460]

Corrigido.

[brendoonh 48]

Muito bom, agora tem os pontos seprando os numeros,   
Muito bom, está aparecendo o total acumulado na mensagem inicial.   

Por outro lado temos uns erros, quando falamos !apostar sem dinheiro, não aparece mensagem nenhuma dizendo que precisa de dinheiro para apostar, simplesmente aparece no default como se não existisse nenhum comando!   

O dinheiro não está indo pro banco, mt menos pro personagem.   
O erro de aparecer so um vencedor permanece.   
 

 

Prêmio (individual): 35.500.000 gold. Vencedores: [ ADMIN ] e 268446765.

 

[zipter98 460]

Não conheço as funções do banco. Se esta não funcionou, então não sei.

Sobre o nome não aparecer, alterei o da primeira página e esqueci desta. Corrigido.

Já quando o comando é usado sem dinheiro, erros no console?

Editado Maio 13, 2015 por zipter98 (veja o histórico de edições)

[CarlosHenrique7457 98]

Teria como da uma facilitada?
Tipo queria que o player escolhesse 10 números de 1 a 100

e se ele acerta 5 desses 10 ele seria o ganhador.
Teria como? obrigado!

[brendoonh 48]

Não conheço as funções do banco. Se esta não funcionou, então não sei.

Sobre o nome não aparecer, alterei o da primeira página e esqueci desta. Corrigido.

Já quando o comando é usado sem dinheiro, erros no console?

Nenhum erro, so aparece no default normal, antes nao dava isso...

@edit 

A pessoa ta podendo jogar só 1x, queria deixa para a pessoa jogar quantas vezes quisesse!

Tem erro sim, perdão. Segue na imagem:

Será que mudei algo errado? O meu está assim:

Talkactions

 

 

local config = {

    limit = {1, 2},                              --Número mínimo e máximo da loteria.

    numbers = 1,                                   --Quantos números o player deve escolher.

    price = 1000000,                                   --Preço para participar da loteria.

    storages = {9571, 9572, 9573},

}    

function onSay(cid, words, param)

    if getGlobalStorageValue(config.storages[1]) < 1 then

        doPlayerSendCancel(cid, "A loteria está fechada.")

    elseif getPlayerStorageValue(cid, config.storages[3]) ~= -1 then

        doPlayerSendCancel(cid, "{MEGA-SENA} Você já fez sua aposta.")

    elseif param == "" then

        doPlayerSendCancel(cid, "{MEGA-SENA} !apostar number1")

    elseif getPlayerMoney(cid) < config.price then

        doPlayerSendCancel(cid, "{MEGA-SENA} Você precisa de, no mínimo, "..config.minCash.." gold para apostar.")

    else

        local numbers = param:explode(" ")

        if #numbers ~= config.numbers then

            doPlayerSendCancel(cid, "{MEGA-SENA} Escolha "..config.numbers.." números, entre "..config.limit[1].." - "..config.limit[2]..".")

        else           

            local str = ""

            for i = 1, #numbers do

                numbers = tonumber(numbers)

                if not numbers or numbers < config.limit[1] or numbers > config.limit[2] then

                    return doPlayerSendCancel(cid, "{MEGA-SENA} Escolha números válidos ["..config.limit[1].." - "..config.limit[2].."].")

                end

                if str == "" then

                    str = numbers

                else

                    str = str..(i == #numbers and " e " or ", ")..numbers

                end

            end

            doPlayerRemoveMoney(cid, config.price)

            doPlayerSendTextMessage(cid, 27, "{MEGA-SENA} Você escolheu os números: "..str..".")

            for i = 0, config.numbers - 1 do

                setPlayerStorageValue(cid, config.storages[3] + i, numbers[i + 1])

            end

            addGlobalStorageValue(config.storages[2], config.price)

        end

    end

    return true

end

Globalevents

 

 

local config = {

    cash = 10000000,                                    --Valor inicial da loteria.

    limit = {1, 2},                              --Número mínimo e máximo da loteria.

    numbers = 1,                                   --Quantos números o player deve escolher.

    startTime = 1,                                 --Tempo para as apostas serem fechadas/anunciar vencedor, em minutos.

    messages = {                                   --Mensagens.

        "{MEGA-SENA} Está aberta para apostas! As apostas serão encerrada em: %d minuto(s).\nDinheiro acumulado até agora: %s.",

        "{MEGA-SENA} Está fechada para apostas!\nPrêmio (individual): %s gold. Vencedor%s: %s.",

        "{MEGA-SENA} Sem vencedores!\nDinheiro acumulado: %s gold.",

    },

    storages = {9571, 9572, 9573},

}

function onThink()

    setGlobalStorageValue(config.storages[1], 1)

    if getGlobalStorageValue(config.storages[2]) < 0 then

        setGlobalStorageValue(config.storages[2], config.cash)

    end

    broadcastMessage(config.messages[1]:format(config.startTime, pointNumber(getGlobalStorageValue(config.storages[2]))), MESSAGE_INFO_DESCR)

    for i = 1, config.startTime do

        addEvent(function()

            if i ~= config.startTime then

                broadcastMessage(config.messages[1]:format(config.startTime - i), MESSAGE_INFO_DESCR)

            else

                local sortedNumbers = {}

                for i = 1, config.numbers do

                    local value = math.random(config.limit[1], config.limit[2])

                    if isInArray(sortedNumbers, value) then

                        while isInArray(sortedNumbers, value) do

                            value = math.random(config.limit[1], config.limit[2])

                        end

                    end

                    table.insert(sortedNumbers, value)

                end

                setGlobalStorageValue(config.storages[1], -1)

                local winners, str = getLotteryWinners(sortedNumbers, config.numbers), ""

                local prize = math.floor(getGlobalStorageValue(config.storages[2]) / #winners)

                if #winners > 0 then

                    for i = 1, #winners do

                        if str == "" then

                            str = getCreatureName(winners)

                        else

                            str = str..(i == #winners and " e " or ", ")..getCreatureName(winners)

                        end

                    end

                end

                if str == "" then

                    broadcastMessage(config.messages[3]:format(pointNumber(getGlobalStorageValue(config.storages[2]))), MESSAGE_INFO_DESCR)

                else

                    broadcastMessage(config.messages[2]:format(pointNumber(prize), #winners > 1 and "es" or "", str), MESSAGE_INFO_DESCR)

                    setGlobalStorageValue(config.storages[2], -1)

                    for i = 1, #winners do

                        if isPlayer(winners) then

                            doPlayerDepositMoney(winners, prize)

                            doPlayerSendTextMessage(winners, MESSAGE_STATUS_CONSOLE_ORANGE, "Por vencer a loteria, você recebeu: "..prize.." gold.")

                        end

                    end

                end

                resetStorage(config.storages[3], config.numbers)

            end

        end, i * 60 * 1000)

    end

    return true

end

Veja:::

 

14:36 {MEGA-SENA} Está aberta para apostas! As apostas serão encerrada em: 1 minuto(s).

Dinheiro acumulado até agora: 11.000.000.

14:37 {MEGA-SENA} Está fechada para apostas!

Prêmio (individual): 12.000.000 gold. Vencedor: [ ADMIN ].

E não foi nenhum dinheiro pro Banco: 

14:38 [ ADMIN ] [600]: balance

14:38 Banco: Your account balance is 1.000.000 gold.

Obs: esse 1.000.000 eu ja tinha no banco (Esse é até aquele banco que vc me deu suporte, lembra? rsrs)

E nada foi pra backpack, o premio SUMIIIIU??     

Editado Maio 13, 2015 por brendoonh (veja o histórico de edições)

[zipter98 460]

Ah sim, não tinha visto isso. Erro corrigido.

Já as outras modificações em ambas as versões do código, só terei meios de fazer quando tiver acesso a um notebook ou computador (que não é o caso).

E poderia postar o código do NPC Banco? Ajudaria muito, visto que eu poderia sazer qual a função utilizada para depósitos.

[brendoonh 48]

Em 14/05/2015 13:58:02, zipter98 disse:

Ah sim, não tinha visto isso. Erro corrigido.

Já as outras modificações em ambas as versões do código, só terei meios de fazer quando tiver acesso a um notebook ou computador (que não é o caso).

E poderia postar o código do NPC Banco? Ajudaria muito, visto que eu poderia sazer qual a função utilizada para depósitos.

Sim, esse npc foi até você que me ajudou a deixar os numeros separados com 1 PONTO a cada 3 numeros: LINK

 

@zipter98 consegue resolver? To preste a abrir o server e queria contar com esse sistema, gostei mt... 

SCRIPT:

 

 

Citar

 

<?xml version="1.0" encoding="UTF-8"?>

<npc name="Banco" script="data/npc/scripts/bank.lua" walkinterval="2000" floorchange="0" access="5" 

 

level="1" maglevel="1">

    <health now="150" max="150"/>

    <look type="132" head="115" body="0" legs="114" feet="0" addons="3" corpse="2212"/>

    

    <parameters>

        <parameter key="message_greet" value="Ola |PLAYERNAME|! aqui, voce {deposit}, {withdraw} ou 

 

{transfer} seu dinheiro de sua conta bancaria. Eu posso mudar suas moedas tambem."/>

        <parameter key="message_alreadyfocused" value="You are drunked ? I talk with you."/>

        <parameter key="message_farewell" value="Adeus! Seu dinheiro esta seguro! Cuidado com o 

 

juros..MUAHAAHAH, brincadeira."/>

    </parameters>

</npc>

Citar

 

local keywordHandler = KeywordHandler:new()

local npcHandler = NpcHandler:new(keywordHandler)

NpcSystem.parseParameters(npcHandler)

local talkState = {}

local moneyTo = {}

local playerTo = {}

 

function onCreatureAppear(cid)            npcHandler:onCreatureAppear(cid)        end

function onCreatureDisappear(cid)        npcHandler:onCreatureDisappear(cid)        end

function onCreatureSay(cid, type, msg)        npcHandler:onCreatureSay(cid, type, msg)    end

function onThink()                npcHandler:onThink()                end

function pointNumber(number)

    if not tonumber(number) then

        return false

    end

    local str = ""

    number = tostring(number):reverse()

    local count = 0

    for i = 1, number:len() do

        count = count + 1

        if count <= 3 then

            if str == "" then

                str = number:sub(i, i)

            else

                str = str..number:sub(i, i)

            end

        else

            count = 1

            str = str.."."..number:sub(i, i)

        end

    end

    return str:reverse()

end   

local function isValidMoney(money)

    if isNumber(money) == TRUE and money > 0 and money < 999999999 then

        return TRUE

    end

    return FALSE

end

 

function creatureSayCallback(cid, type, msg)

 

    if(not npcHandler:isFocused(cid)) then

        return false

    end

 

    if msgcontains(msg, 'help') or msgcontains(msg, 'offer') then

        selfSay("You can check the {balance} of your bank account, {deposit} money or {withdraw} it. You can also {transfer} money to other characters, provided that they have a vocation.", cid)

        talkState[cid] = 0

-----------------------------------------------------------------

---------------------------- Balance ----------------------------

-----------------------------------------------------------------

     elseif msgcontains(msg, 'balance') or msgcontains(msg, 'Balance') then

        selfSay('Your account balance is '..pointNumber(getPlayerBalance(cid))..' gold.', cid)

        talkState[cid] = 0

-----------------------------------------------------------------

---------------------------- Help -------------------------------

-----------------------------------------------------------------

    elseif msgcontains(msg, 'basic functions') then

        selfSay('You can check the {balance{ of your bank account, Pdeposit{ money or Pwithdraw{ it. You can also {transfer} money to othercharacters, provided that they have a vocation.', cid)

        talkState[cid] = 0

    elseif msgcontains(msg, 'advanced functions') then

        selfSay('Renting a house has never been this easy. Simply make a bid for an auction. We will check immediately if you haveenough money.', cid)

        talkState[cid] = 0

-----------------------------------------------------------------

---------------------------- Deposit ----------------------------

-----------------------------------------------------------------

    elseif msgcontains(msg, 'deposit all') then

        moneyTo[cid] = getPlayerMoney(cid)

        if moneyTo[cid] < 1 then

            selfSay('You don\'t have any money to deposit in you inventory..', cid)

            talkState[cid] = 0

        else

            selfSay('Would you really like to deposit '..pointNumber(moneyTo[cid])..' gold?', cid)

            talkState[cid] = 2

        end

    elseif msgcontains(msg, 'deposit') then

        selfSay("Please tell me how much gold it is you would like to deposit.", cid)

        talkState[cid] = 1

    elseif talkState[cid] == 1 then

        moneyTo[cid] = tonumber(msg)

        if isValidMoney(moneyTo[cid]) == TRUE then

            selfSay('Would you really like to deposit '..pointNumber(moneyTo[cid])..' gold?', cid)

            talkState[cid] = 2

        else

            selfSay('Is isnt valid amount of gold to deposit.', cid)

            talkState[cid] = 0

        end

    elseif talkState[cid] == 2 then

        if msgcontains(msg, 'yes') then

            if doPlayerDepositMoney(cid, moneyTo[cid], 1) ~= TRUE then

                selfSay('You do not have enough gold.', cid)

            else

selfSay('Alright, we have added the amount of '..pointNumber(moneyTo[cid])..' gold to your balance. You can withdraw your money anytime you want to. Your account balance is ' .. pointNumber(getPlayerBalance(cid)) .. '.', cid)

            end

        elseif msgcontains(msg, 'no') then

            selfSay('As you wish. Is there something else I can do for you?', cid)

        end

        talkState[cid] = 0

-----------------------------------------------------------------

---------------------------- Withdraw ---------------------------

-----------------------------------------------------------------

    elseif msgcontains(msg, 'withdraw') then

        selfSay("Please tell me how much gold you would like to withdraw.", cid)

        talkState[cid] = 6

    elseif talkState[cid] == 6 then

        moneyTo[cid] = tonumber(msg)

        if isValidMoney(moneyTo[cid]) == TRUE then

            selfSay('Are you sure you wish to withdraw '..pointNumber(moneyTo[cid])..' gold from your bank account?', cid)

            talkState[cid] = 7

        else

            selfSay('Is isnt valid amount of gold to withdraw.', cid)

            talkState[cid] = 0

        end

    elseif talkState[cid] == 7 then

        if msgcontains(msg, 'yes') then

            if doPlayerWithdrawMoney(cid, moneyTo[cid]) ~= TRUE then

                selfSay('There is not enough gold on your account. Your account balance is '..getPlayerBalance(cid)..'. Please tell me the amount of gold coins you would like to withdraw.', cid)

            else

                selfSay('Here you are, ' .. pointNumber(moneyTo[cid]) .. ' gold. Please let me know if there is something else I can do for you.', cid)

                talkState[cid] = 0

            end

        elseif msgcontains(msg, 'no') then

            selfSay('As you wish. Is there something else I can do for you?', cid)

            talkState[cid] = 0

        end

-----------------------------------------------------------------

---------------------------- Transfer ---------------------------

-----------------------------------------------------------------

    elseif msgcontains(msg, 'transfer') then

        selfSay("Please tell me the amount of gold you would like to transfer.", cid)

        talkState[cid] = 11

    elseif talkState[cid] == 11 then

        moneyTo[cid] = tonumber(msg)

        if isValidMoney(moneyTo[cid]) == TRUE then

            selfSay('Who would you like transfer '..moneyTo[cid]..' gold to?', cid)

            talkState[cid] = 12

        else

            selfSay('Is isnt valid amount of gold to transfer.', cid)

            talkState[cid] = 0

        end

    elseif talkState[cid] == 12 then

        playerTo[cid] = msg

 

        if getCreatureName(cid) == playerTo[cid] then

            selfSay('Ehm, You want transfer money to yourself? Its impossible!', cid)

            talkState[cid] = 0

            return TRUE

        end

 

        if playerExists(playerTo[cid]) then

            selfSay('So you would like to transfer ' .. pointNumber(moneyTo[cid]) .. ' gold to "' .. playerTo[cid] .. '" ?', cid)

            talkState[cid] = 13

        else

            selfSay('Player with name "' .. playerTo[cid] .. '" doesnt exist.', cid)

            talkState[cid] = 0

        end

    elseif talkState[cid] == 13 then

        if msgcontains(msg, 'yes') then

            if getPlayerBalance(cid) < moneyTo[cid] then

                selfSay('You dont have enought money on your bank account.', cid)

                return TRUE

            end

 

            if doPlayerTransferMoneyTo(cid, playerTo[cid], moneyTo[cid]) ~= TRUE then

                selfSay('This player does not exist on this world or have no vocation.', cid)

            else

           selfSay('You have transferred ' .. pointNumber(moneyTo[cid]) .. ' gold to "' .. playerTo[cid] ..' ".', cid)

                playerTo[cid] = nil

            end

        elseif msgcontains(msg, 'no') then

            selfSay('As you wish. Is there something else I can do for you?', cid)

        end

        talkState[cid] = 0

    end

    return TRUE

end

 

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)

npcHandler:addModule(FocusModule:new())  

Editado Janeiro 29, 2016 por brendoonh
Ver se ele consegue corrigir... (veja o histórico de edições)

[CarlosHenrique7457 98]

Ah sim, não tinha visto isso. Erro corrigido.

Já as outras modificações em ambas as versões do código, só terei meios de fazer quando tiver acesso a um notebook ou computador (que não é o caso).

E poderia postar o código do NPC Banco? Ajudaria muito, visto que eu poderia sazer qual a função utilizada para depósitos.

em relação ao que eu pedi poderia fazer algo?

Teria como da uma facilitada?

Tipo queria que o player escolhesse 10 números de 1 a 100

e se ele acerta 5 desses 10 ele seria o ganhador.

Teria como? obrigado!

[brendoonh 48]

@zipter98, a script ta perfeita, só falta o dinheiro ir pro Banco, pois após alguém vencer, o dinheiro some, não vai pra bp nem pro banco. Ele simplesmente desaparece :@

Editado Maio 20, 2015 por brendoonh (veja o histórico de edições)

[brendoonh 48]

up

[brendoonh 48]

UP 

O dinheiro não vai pra bp nem pro banco, ele simplismente desaparece... HELP !!!!

[brendoonh 48]

UP

[CarlosHenrique7457 98]

Up

[CarlosHenrique7457 98]

@UP

[CarlosHenrique7457 98]

UP

[CarlosHenrique7457 98]

Up

[brendoonh 48]

up

[luanluciano93 1994]

@CarlosHenrique7457, entre em editor completo e edite o título, coloque algo coerente com o conteúdo do seu tópico.

2.3 - Use títulos e ícones adequados:
Ao criar um novo tópico no fórum, dê a ele um título que esteja relacionado ao conteúdo do tópico. Títulos como "Ajudaaa!" ou "Entrem aqui!" só pioram as coisas: ninguém vai saber do que se trata, e menos pessoas irão entrar para olhar o que você postou e também evite de usar o CAPSLOCK ao criar seu título.

http://www.tibiaking...-gerais/?p=7680

[CarlosHenrique7457 98]

@CarlosHenrique7457, entre em editor completo e edite o título, coloque algo coerente com o conteúdo do seu tópico.

2.3 - Use títulos e ícones adequados:

Ao criar um novo tópico no fórum, dê a ele um título que esteja relacionado ao conteúdo do tópico. Títulos como "Ajudaaa!" ou "Entrem aqui!" só pioram as coisas: ninguém vai saber do que se trata, e menos pessoas irão entrar para olhar o que você postou e também evite de usar o CAPSLOCK ao criar seu título.

http://www.tibiaking...-gerais/?p=7680

Resolvido.

[brendoonh 48]

up