Sistema de Blackjack(21)

povo, pesquisei, e achei o tuto do mcroos sobre sistema de jogatina que é bem simples, consiste em 50 por cento de chance de ganhar ou perder e como eu gosto de complicar as coisas fiz um tutorial sobre o jogo de blackjack em que você pode escolher se quer mais ou menos cartas ou seja, você realmente joga!

Bom. este tutorial consiste em algumas partes vamos para a primeira.

PRIMEIRA PARTE

Vá em variables/switches e crie 3 novas variables

a
b
c

PS: os nomes das variaveis são estes mesmo a,b,c. Não FASSA DIFERENTE SE NAO DA ERRO

depois crie 1 novo switch

vez

o NOME DO SWITCH TEM QUE SER vez OBRIGATORIAMENTE!!!

SEGUNDA PARTE
bom, para este tutorial teremos que criar um sistema chamado RNG(sigla de random number generator ou gerador de numero aleatorio)

Você pode baixar o RNG por este link(RNG criado por Greg102)
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Lembrando o RNG é um custom event do 001 então, depois de baixa-lo importe o normalmente no manage and import, assim como vc faz com todos os itens normais. XD

TERCEIRA PARTE

crie um mapa parecido com um cassino e crie o Banqueiro(o NPC que te oferecerá se vc quer jogar ou não)


tipo isso.

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]


Depois que seu cassino e seu banqueiro estiverem criados...

entre no banqueiro e selecione o trigger talked to. depois aperte o botãozinho text e cole o seguinte código.

Código:

MsgBox.Show("Quer jogar black jack?" & "\Q" & "Sim" & "\Q" & "Como jogar?" & "\Q" & "Não obrigado.")
MsgBox.Hide
IF MsgBox.SelectedNumber = 0
    MsgBox.Show("Quanto quer apostar?\T")
    MsgBox.Hide
    SET c = MsgBox.Input
    IF c <= Main.Money
        :g4
        Custom.Random_number_generator(1)
        Custom.Random_number_generator(0)
        IF a > 21
            IF b > 21
                MsgBox.Show("Você e a banca extrapolaram o limite de 21 pontos. Portanto ninguem ganha¶¶Você tinha " & a & " pontos e a banca tinha " & b & "")
                MsgBox.Hide
                SET a = 0
                SET b = 0
                SET c = 0
            ELSE
                MsgBox.Show("Você extrapolou o limite de 21 pontos. Agora você perde o que apostou.¶¶Você tinha " & a & " pontos e a banca tinha " & b & "")
                MsgBox.Hide
                SET Main.Money = Main.Money - (c)
                SET a = 0
                SET b = 0
                SET c = 0
            ENDIF
        ELSE
            IF b > 21
                MsgBox.Show("A banca extrapolou o limite de 21 pontos. Agora você leva o dobro que apostou.¶¶Você tinha " & a & " pontos e a banca tinha " & b & "")
                MsgBox.Hide
                SET Main.Money = Main.Money + (c)
                SET Main.Money = Main.Money + (c)
                SET a = 0
                SET b = 0
                SET c = 0
            ELSE
                MsgBox.Show("Você tem " & a & " pontos. " & "\Q" & "Outra carta" & "\Q" & "Basta")
                MsgBox.Hide
                IF MsgBox.SelectedNumber = 0
                    GOTO g4
                ELSEIF MsgBox.SelectedNumber = 1
                    IF a > b
                        MsgBox.Show("Você ganhou. e agora leva o dobro do que apostou.¶¶Você tinha " & a & " pontos e a banca tinha " & b & "")
                        MsgBox.Hide
                        SET Main.Money = Main.Money + (c)
                        SET Main.Money = Main.Money + (c)
                        SET a = 0
                        SET b = 0
                        SET c = 0
                    ELSE
                        IF a = b
                            MsgBox.Show("Vocês empataram. e agora você continua com o mesmo valor que apostou¶¶Você tinha " & a & " pontos e a banca tinha " & b & "")
                            MsgBox.Hide
                            SET a = 0
                            SET b = 0
                            SET c = 0
                        ELSE
                            MsgBox.Show("Você perdeu. e agora perde o que apostou.¶¶Você tinha " & a & " pontos e a banca tinha " & b & "")
                            MsgBox.Hide
                            SET Main.Money = Main.Money - (c)
                            SET a = 0
                            SET b = 0
                            SET c = 0
                        ENDIF
                    ENDIF
                ENDIF
            ENDIF
        ENDIF
    ELSE
        MsgBox.Show("Você não tem esse dinheiro todo.")
        MsgBox.Hide
    ENDIF
ELSEIF MsgBox.SelectedNumber = 1
    MsgBox.Show("é simples. Você tem que conseguir o maior número de pontos que conseguir, sem extrapolar o limite de 21 pontos. Se a banca tiver mais pontos que voce, voce perde e vice versa. Se os dois extrapolarem o limite de 21 pontos ninguem ganha, e se empatarem os pontos, ninguem ganha.")
    MsgBox.Hide
ENDIF

fácil né? XD ai vai um video do sistema em ação: