Sistema de Guarda roupa

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Sistema de Guarda roupa

Mensagem  philipe109 em Ter 17 Jan - 20:01:16

Primeiro, crie uma zone perto de seu guarda roupa e depois coloque esse código (se quiser pode mudar algumas roupas, estou usando na arte antiga)
Código:
MsgBox.Show("guarda-roupa" & "\Q" & "Abrir" & "\Q" & "Sair")
MsgBox.Hide
IF MsgBox.SelectedNumber = 0
    MsgBox.Show("Roupas" & "\Q" & "Calsas" & "\Q" & "Blusas" & "\Q" & "Sapatos")
    MsgBox.Hide
    IF MsgBox.SelectedNumber = 0
        MsgBox.Show("Calsas" & "\Q" & "Bermuda" & "\Q" & "Cumprida")
        MsgBox.Hide
        IF MsgBox.SelectedNumber = 0
            SET Actor("Character P0").Texture("Pants") = "Shorts (M)"
            :g5
            MsgBox.Show("Que cor?" & "\Q" & "Azul" & "\Q" & "Preto" & "\Q" & "Verde" & "\Q" & "Amarelo" & "\Q" & "Vermelho")
            MsgBox.Hide
            IF MsgBox.SelectedNumber = 0
                SET Actor("Character P0").Color("Pants") = -16777056
            ELSEIF MsgBox.SelectedNumber = 1
                SET Actor("Character P0").Color("Pants") = -16777216
            ELSEIF MsgBox.SelectedNumber = 2
                SET Actor("Character P0").Color("Pants") = -16744448
            ELSEIF MsgBox.SelectedNumber = 3
                SET Actor("Character P0").Color("Pants") = -256
            ELSEIF MsgBox.SelectedNumber = 4
                SET Actor("Character P0").Color("Pants") = -65536
            ENDIF
        ELSEIF MsgBox.SelectedNumber = 1
            SET Actor("Character P0").Texture("Pants") = "Pants (M)"
            GOTO g5
        ENDIF
    ELSEIF MsgBox.SelectedNumber = 1
        MsgBox.Show("Blusas" & "\Q" & "Sem Manga" & "\Q" & "Com Manga" & "\Q" & "Manga Cumprida")
        MsgBox.Hide
        IF MsgBox.SelectedNumber = 0
            SET Actor("Character P0").Texture("Shirt") = "Muscle Shirt (M)"
            :g14
            MsgBox.Show("Que cor?" & "\Q" & "Azul" & "\Q" & "Preto" & "\Q" & "Verde" & "\Q" & "Amarelo" & "\Q" & "Vermelho")
            MsgBox.Hide
            IF MsgBox.SelectedNumber = 0
                SET Actor("Character P0").Color("Shirt") = -16777056
            ELSEIF MsgBox.SelectedNumber = 1
                SET Actor("Character P0").Color("Shirt") = -16777216
            ELSEIF MsgBox.SelectedNumber = 2
                SET Actor("Character P0").Color("Shirt") = -16744448
            ELSEIF MsgBox.SelectedNumber = 3
                SET Actor("Character P0").Color("Shirt") = -256
            ELSEIF MsgBox.SelectedNumber = 4
                SET Actor("Character P0").Color("Shirt") = -65536
            ENDIF
        ELSEIF MsgBox.SelectedNumber = 1
            SET Actor("Character P0").Texture("Shirt") = "Tight T-Shirt (M)"
            GOTO g14
        ELSEIF MsgBox.SelectedNumber = 2
            SET Actor("Character P0").Texture("Shirt") = "Sweat Shirt (M)"
            GOTO g14
        ENDIF
    ELSEIF MsgBox.SelectedNumber = 2
        MsgBox.Show("Que cor?" & "\Q" & "Azul" & "\Q" & "Preto" & "\Q" & "Verde" & "\Q" & "Amarelo" & "\Q" & "Vermelho")
        MsgBox.Hide
        IF MsgBox.SelectedNumber = 0
            SET Actor("Character P0").Color("Shoes") = -16777056
        ELSEIF MsgBox.SelectedNumber = 1
            SET Actor("Character P0").Color("Shoes") = -16777216
        ELSEIF MsgBox.SelectedNumber = 2
            SET Actor("Character P0").Color("Shoes") = -16744448
        ELSEIF MsgBox.SelectedNumber = 3
            SET Actor("Character P0").Color("Shoes") = -256
        ELSEIF MsgBox.SelectedNumber = 4
            SET Actor("Character P0").Color("Shoes") = -65536
        ENDIF
    ENDIF
ENDIF
Pronto!
avatar
philipe109
Nômade
Nômade

Masculino
Mensagens : 19
Experiência : 2314
Frase : Deus é Fiel, Seja também!

Voltar ao Topo Ir em baixo

Re: Sistema de Guarda roupa

Mensagem  Noeneto em Ter 17 Jan - 20:32:56

Interessante o tutorial! Seria mais 'vago' se você colocasse o tutorial em várias etapas ensinando como se faz cada coisa e em script gráfico! Não parei pra ler o código, quando parar dou uma melhor analizada e EDITO ESTA MENSAGEM! Feliz De qualquer maneira, bem vindo ao império 001!


Processador: i7 4790 3.6GHz
Memória RAM: 8GB DDR3 1333MHz
Disco rígido: HD 1TB Sata II
Placa de Video: AMD R9 280x 3GB 384-bit
Placa Mãe: GIGABYTE M68MT-S2P
Sistema Operacional: Windows 7 Ultimate 64-bit
Monitor:  Samsung Monitor 1400x900
Headset: Multilaser 5.1 Real
avatar
Noeneto
Templário
Templário

Masculino
Mensagens : 1138
Experiência : 3073
Frase : Eu amo Jesus amém!

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum