Sistema de Guarda roupa
2 participantes
Página 1 de 1
Sistema de Guarda roupa
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
philipe109- Nômade
-
Mensagens : 19
Experiência : 4663
Frase : Deus é Fiel, Seja também!
Re: Sistema de Guarda roupa
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! De qualquer maneira, bem vindo ao império 001!
Noeneto- Templário
-
Mensagens : 1138
Experiência : 5422
Frase : Eu amo Jesus amém!
Tópicos semelhantes
» Sistema de Guarda-Roupa
» Guarda-Roupa
» tutoriais sobre hud e sistema de guarda-costas
» Sistema I.A
» Sistema de SMS
» Guarda-Roupa
» tutoriais sobre hud e sistema de guarda-costas
» Sistema I.A
» Sistema de SMS
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|