Império 001
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Sistema de Guarda roupa

2 participantes

Ir para baixo

Sistema de Guarda roupa Empty Sistema de Guarda roupa

Mensagem  philipe109 Ter 17 Jan - 21: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!
philipe109
philipe109
Nômade
Nômade

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

Ir para o topo Ir para baixo

Sistema de Guarda roupa Empty Re: Sistema de Guarda roupa

Mensagem  Noeneto Ter 17 Jan - 21: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!
Noeneto
Noeneto
Templário
Templário

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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos