@@MatheusPrimagi olá colega eu tenho um jogo aqui de nitendo 64 de aventura que eu gosto de jogar esse jogo só que o jogo têm umas saidas muito dificil eu olhando no youtube não consigo fazer decorado ai tenho difiuldades tem como programar umas setinhas vermelhas pra indicar o caminho da saida do jogo ?
É muito interessante...conheci o seu canal procurando um tutorial para fazer um jogo no Power point que eu pudesse adaptar pedagogicamente e fiquei encantada com a sua evolução dentro do canal... primeiro alguns com a sua voz infantil e apressada, esse já um pouco mais calmo e outros ja com a sua voz adulta, muito legal😊
meu personagem depois que fiz o sistema de sprite não carrega os sprites e tenho que ficar apertando o botão de iniciar toda hora por que quando paro de andar fica parado mesmo apertando botão de ir pro lado
Oi cara, desculpa, fico usando a conta game world toda vez e eu queria falar como faz para nao ficar falhando o fill userpicture nos jogos em powerpoint Porque quando for para movimentar o personagem eu movimento ele na boa, e quando salvo ele, ele fica meio assim, falhando todo tempo.
Cara finalmente eu achei o seu canal Eu era na epoca q tu fazia video vendo os games de power point dos inscritos Um dia vc fez vídeo de um bonnie simulator no power point Esse era o meu fangame Mas com o tempo eu esqueci o seu canal Fiquei procurando por muito tempo E finalmente eu te achei :))) ce n deve tar entendendo nada né?
VÍDEO MASSA, PARABÉNS!!! Tem vários jogos simples que fazem muito sucesso(ex Tomb of the Mask) QUEM SABE OS MINIGAMES DO MEU APLICATIVO PODEM SER POPULARES UM DIA??? ABRAÇO KKK 🕹️🎮🛸👾💎
Eu não sabia que isso era possível no Powerpoint, muito bacana. É possível a continuidade de outras etapas? tais como saltar obstáculos, explodir coisas, finalizar uma tarefa?
@@MatheusPrimagi Vamos lá, eu consegui fazer o mario ir para direita e esquerda conforme 16:22, logo após entra os códigos de alteração de sprites, esse em específico não acontece, o personagem trava e não muda de sprites
não to conseguindo usar a aba desenvolvedor, tipo, ela aparece lá e tals, mas não da pra usar as labels e etc, eu fiz tudo o que vc disse no inicio do vídeo, mas não ta dando certo
Eu vejo o power point como um programa para criar jogos porque eu crio vários jogos nele imagina se tivesse um console para rodar jogos feitos em power point com certeza eu ficaria rico
16:18 no meu não funcionou fiz tudo do jeito que vc disse vou colocar meu código aqui para vc conferir Sub qualquercoisa() Dim sprites As inger Dim nayro As String Dim direcao As String Dim salto As Boolean Dim queda As Duble salto = False nayro = "parado" sprites = "1" Do While ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 If GetAsyncKeyState(vbKayA) Then direcao = "esquerda" mayro = "andando" Shapes("per").Left = Shapes("per").Left - 5 ElseIf GetAsyncKeyState(vbKayD) Then direcao = "direita" mayro = "andando" Shapes("per").Left = Shapes("per").Left + 5 Else nyro = "parado" sprites = "1" End If Shapes("sla").TextFrame.TextRange.Text = Time DoEvents Loop
manooooooooooooo,eu fui salvar, travei o computador e perdi os cod tudo vééééiiiiiiiiiiiiiiiiiiiiii AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHHHHHHHHHHHHHHHHHHHHHHH
Mano nao sabia desses codigos ai meu é PowerPoint 2007 ctz que nao tem essa opção de desenvolvedor dai faço na Raça mesmo e no final da 700 e poucos slides mais ficar top tbm o jogo
@@MatheusPrimagi o pocket code permite que vc crie seus jogos pelo celular , e ainda que ele igual a o scratch usa Programação em blocos , por isso que acho mais facil
@@mistermonsoon1232 naquele negocio de ficar copiando e colando ate chegar no 16, na ultima linha voce tinha colocado 17, e como so tem 16 sprites, nao existia sprite 17, aí o mario ficava parado mesmo. eu so troquei o 17 por 1 :)
Wow, realmente fiquei surpreso com sua evolução, principalmente nas variáveis, bacana!
:)))
@@MatheusPrimagi
olá colega eu tenho um jogo aqui
de nitendo 64 de aventura que eu
gosto de jogar esse jogo só que
o jogo têm umas saidas muito dificil
eu olhando no youtube não consigo
fazer decorado ai tenho difiuldades
tem como programar umas setinhas
vermelhas pra indicar o caminho
da saida do jogo ?
É muito interessante...conheci o seu canal procurando um tutorial para fazer um jogo no Power point que eu pudesse adaptar pedagogicamente e fiquei encantada com a sua evolução dentro do canal... primeiro alguns com a sua voz infantil e apressada, esse já um pouco mais calmo e outros ja com a sua voz adulta, muito legal😊
Ficou bem feito demais, quem vê de longe nem pensa que é no PowerPoint
Thank yu
Gostei bastante, mais eu não consigo aprender programar XD mais pelo jeito vc sabe bem oq tá fazendo
cara, sério amo seu canal
Best tutorial I ever I watch good video
❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤
Obrigado cara é serio me tirou do tédio o pocket code nao inicia no meu e obrigado cara de
meu personagem depois que fiz o sistema de sprite não carrega os sprites e tenho que ficar apertando o botão de iniciar toda hora por que quando paro de andar fica parado mesmo apertando botão de ir pro lado
O Meu PowerPoint é 2007
Oi cara, desculpa, fico usando a conta game world toda vez e eu queria falar como faz para nao ficar falhando o fill userpicture nos jogos em powerpoint
Porque quando for para movimentar o personagem eu movimento ele na boa, e quando salvo ele, ele fica meio assim, falhando todo tempo.
Muito bom :)
Alguém poderia me responder com o código que ele usou tentei fazer no meu e deu um bug que o Mario fica voando e n salta
Como que habilita essa guia no PowerPoint 2007?
Cara finalmente eu achei o seu canal
Eu era na epoca q tu fazia video vendo os games de power point dos inscritos
Um dia vc fez vídeo de um bonnie simulator no power point
Esse era o meu fangame
Mas com o tempo eu esqueci o seu canal
Fiquei procurando por muito tempo
E finalmente eu te achei :)))
ce n deve tar entendendo nada né?
UHU FINALMENTE VIDIU
ARRASOU!!!!!
VÍDEO MASSA, PARABÉNS!!! Tem vários jogos simples que fazem muito sucesso(ex Tomb of the Mask)
QUEM SABE OS MINIGAMES DO MEU APLICATIVO PODEM SER POPULARES UM DIA??? ABRAÇO KKK 🕹️🎮🛸👾💎
tava fazendo aqui, e quando eu fui ver se o mario andava lá, ele não anda, e agora, não quero assistir o video do começo
manme ajuda as macros esta ativada mais nada da certo?
uma pergunta, da para dar mais espaço?
Eu não sabia que isso era possível no Powerpoint, muito bacana. É possível a continuidade de outras etapas? tais como saltar obstáculos, explodir coisas, finalizar uma tarefa?
Matheus é possível salvar de forma que fosse possível enviar e acessar em outros computadores sem levar todos os arquivos de sprites juntos?
Eae Man, quando eu tiver um computador novo eu vou começar a aprender macros, já tô planejando em fazer um super projeto 🗿🤙
fiz hj de manhã as configuração no mecheu não o mario
Muito bom! Será que tem como fazer ele pulando, clicando em alguma resposta e aparecer se tá certo ou errado, como se fosse um quiz?
Que programação é essa???
Boa noite, socorro! rs
revi todas as vezes os códigos de direita e esquerda mas ele só avança se der click no "Iniciar" pressionando o direcional
o meu nem rodando esta e fiz tudo certo..
muito bom
Is it possible for you to translate the video or the link to the project
eu so entrei pa da view
E like 👺
mano acho q eu te conheço 🤔 tu tem discord n tem ?
@@AlvaroDesenhoseJogos aham, tenho
amigo o meu nao tem apçao
onde eu baixo essa versão do powerpoint?pode mandar link?
mds voce é mto bom
:)))))))
não deu serto? ele não anda
Eu parei na parte de mudança de sprites para direita e esquerda, não consigo fazer a mudança. Por Favor Primagi, me ajude
@@MatheusPrimagi desde já muito obrigado!
Sub qualquercoisa()
Dim sprites As Integer
Dim mayro As String
Dim direcao As String
Dim salto As Boolean
Dim queda As Double
salto = False
mayro = "parado"
sprites = "1"
Do While ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 5
If mayro = "andando" And direcao = "direita" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando1.png"
sprites = "2"
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando2.png"
sprites = "3"
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando3.png"
sprites = "4"
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando4.png"
sprites = "5"
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando5.png"
sprites = "6"
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando6.png"
sprites = "7"
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando7.png"
sprites = "8"
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando8.png"
sprites = "9"
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando9.png"
sprites = "10"
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando10.png"
sprites = "11"
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando11.png"
sprites = "12"
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando12.png"
sprites = "13"
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando13.png"
sprites = "14"
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando14.png"
sprites = "15"
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando15.png"
sprites = "16"
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando16.png"
sprites = "1"
End If
End If
If mayro = "andando" And direcao = "esquerda" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando1esq.png"
sprites = "2"
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando2esq.png"
sprites = "3"
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando3esq.png"
sprites = "4"
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando4esq.png"
sprites = "5"
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando5esq.png"
sprites = "6"
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando6esq.png"
sprites = "7"
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando7esq.png"
sprites = "8"
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando8esq.png"
sprites = "9"
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando9esq.png"
sprites = "10"
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando10esq.png"
sprites = "11"
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando11esq.png"
sprites = "12"
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando12esq.png"
sprites = "13"
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando13esq.png"
sprites = "14"
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando14esq.png"
sprites = "15"
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando15esq.png"
sprites = "16"
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando16esq.png"
sprites = "1"
End If
End If
If GetAsyncKeyState(vbKeyA) Then
direção = "esquerda"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left - 8
ElseIf GetAsyncKeyState(vbKeyD) Then
direção = "direita"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left + 8
Else
mayro = "parado"
sprites = "1"
End If
DoEvents
Shapes("sla").TextFrame.TextRange.Text = Time
Loop
End Sub
@@MatheusPrimagi Infelizmente nada
@@MatheusPrimagi agora o personagem nem se mexe mais
@@MatheusPrimagi Vamos lá, eu consegui fazer o mario ir para direita e esquerda conforme 16:22, logo após entra os códigos de alteração de sprites, esse em específico não acontece, o personagem trava e não muda de sprites
@@MatheusPrimagi revi os sprites e não sei como inseri um m a mais em marioandando6. Agora vou tentar fazer o código do pulo. Muito obrigado mano!!!
não to conseguindo usar a aba desenvolvedor, tipo, ela aparece lá e tals, mas não da pra usar as labels e etc, eu fiz tudo o que vc disse no inicio do vídeo, mas não ta dando certo
Quando voce clica na aba desenvolvedor oq acontece?
@@MatheusPrimagi abre a aba normal, só que eu não consigo clicar nos botões de label, command button e etc, eles meio que não estão disponíveis
@@andremeurer578 eles ficam meio transparentes?
@@MatheusPrimagi sim
@@andremeurer578 vc ativou os activeX e as macros do jeito cert? Ve o video dnv pra ter ctz
Awesome
Ensina a fazer blocos, ou power ups e um goomba pq essa script não funciona com os videos antigos
Eu vejo o power point como um programa para criar jogos porque eu crio vários jogos nele imagina se tivesse um console para rodar jogos feitos em power point com certeza eu ficaria rico
16:18 no meu não funcionou fiz tudo do jeito que vc disse vou colocar meu código aqui para vc conferir
Sub qualquercoisa()
Dim sprites As inger
Dim nayro As String
Dim direcao As String
Dim salto As Boolean
Dim queda As Duble
salto = False
nayro = "parado"
sprites = "1"
Do While ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1
If GetAsyncKeyState(vbKayA) Then
direcao = "esquerda"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left - 5
ElseIf GetAsyncKeyState(vbKayD) Then
direcao = "direita"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left + 5
Else
nyro = "parado"
sprites = "1"
End If
Shapes("sla").TextFrame.TextRange.Text = Time
DoEvents
Loop
muito top
faz um desafio de tentar fazer um jogo com construct 2
se fizer fixa ;-;
Seria bem legal tbm
escrevi tudo certo escrevi "\sprites\marioandando1" e eu salvei na area de trabalho mas mesmo assim da erro o mario fica duro
e falando eu até u 16 e no outro coloquei esq
Mano faz mais video de among achei bem massa
Legau
uageL
10:51
faz como fzer tetris no powerpoint
Matheus, eu não to conseguindo fazer a animação do personagem andar(eu botei na mesma pasta dos arquivos de sprites, tá aqui o código
Sub qualquercoisa()
Dim sprites As Integer
Dim mayro As String
Dim direcao As String
Dim salto As Boolean
Dim queda As Double
salto = False
mayro = "parado"
sprites = "1"
Do While ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 5
If mayro = "andando" And direcao = "direita" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando1.png"
sprites = "2"
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando2.png"
sprites = "3"
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando3.png"
sprites = "4"
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando4.png"
sprites = "5"
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando5.png"
sprites = "6"
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando6.png"
sprites = "7"
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando7.png"
sprites = "8"
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando8.png"
sprites = "9"
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando9.png"
sprites = "10"
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando10.png"
sprites = "11"
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando11.png"
sprites = "12"
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando12.png"
sprites = "13"
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando13.png"
sprites = "14"
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando14.png"
sprites = "15"
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando15.png"
sprites = "16"
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando16.png"
sprites = "1"
End If
End If
If mayro = "andando" And direcao = "esquerda" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando1esq.png"
sprites = "2"
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando2esq.png"
sprites = "3"
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando3esq.png"
sprites = "4"
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando4esq.png"
sprites = "5"
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando5esq.png"
sprites = "6"
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando6esq.png"
sprites = "7"
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando7esq.png"
sprites = "8"
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando8esq.png"
sprites = "9"
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando9esq.png"
sprites = "10"
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando10esq.png"
sprites = "11"
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando11esq.png"
sprites = "12"
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando12esq.png"
sprites = "13"
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando13esq.png"
sprites = "14"
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando14esq.png"
sprites = "15"
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando15esq.png"
sprites = "16"
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "sprites\marioandando16esq.png"
sprites = "1"
End If
End If
If GetAsyncKeyState(vbKeyA) Then
direção = "esquerda"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left - 8
ElseIf GetAsyncKeyState(vbKeyD) Then
direção = "direita"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left + 8
Else
mayro = "parado"
sprites = "1"
End If
DoEvents
Shapes("sla").TextFrame.TextRange.Text = Time
Loop
End Sub
manooooooooooooo,eu fui salvar, travei o computador e perdi os cod tudo vééééiiiiiiiiiiiiiiiiiiiiii AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHHHHHHHHHHHHHHHHHHHHHHH
Não funcionou
nem parece que é feito no ppt 👌
👌
ate o youtube pensou q era o mario galaxy de verdade mds
muito realista
vou tentar fazer
que lagal cara kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
lagal
@RAFAEL ESPINHEIRO PRODUCTIONS ui?
@RAFAEL ESPINHEIRO PRODUCTIONS e uma piada ou e de vdd?
@RAFAEL ESPINHEIRO PRODUCTIONS eu vou ali comer um hamburguer
@RAFAEL ESPINHEIRO PRODUCTIONS já comi, tomei um banho quente, e agora vou passar minhas últimas horas no Pc esse dia, e depois vou dormir 😌. 👁️👄👁️
Mano nao sabia desses codigos ai meu é PowerPoint 2007 ctz que nao tem essa opção de desenvolvedor dai faço na Raça mesmo e no final da 700 e poucos slides mais ficar top tbm o jogo
com codigos eh mt mais simples, e tem sim no ppt 2007. so tem que ativar.
@@MatheusPrimagi hum blz vlw vou tentar da um olhada la
Vídeo Full HD 👍
4K 200 fps
o meu n anda ;-;
pode mandar seu codigo?
é o Mairon664
wow sua vo mudou
Isso Não funciona
Baixa o Game Maker e cria um jogo nele
Primagi, você andou tomando anabolizantes?
kkkkkkk nn pq?
"Video todos os dias as 15:00" vc nem faz isso
exato
Cara esquanto no PowerPoint precisa de 1 milhão de códigos, no scratch/pocket code é facinho
Na verdade no powerpoint tem vzs q eh bem mais simples e quase todo mundo tem o ppt
@@MatheusPrimagi k
@@MatheusPrimagi o pocket code permite que vc crie seus jogos pelo celular , e ainda que ele igual a o scratch usa Programação em blocos , por isso que acho mais facil
@@purans7195 okei
Apps que tem esse tipo de "programar" por blocos tem mts limitaçoes, n eh pq vc pode fazer uma copia ruim de um jogo famoso q o programa eh bom
CARA ISSO É PERIGOSO MEU PC TÁ AVISANDO QUE NÃO É SEGURO
n tenho powerpoint no pc :(
._.
A vós dele mudou muito cara '_'
Kkk
meu mario só faz a animação no começo, depois fica andando normal, sem animação.
Sub marionice()
Dim sprites As Integer
Dim mayro As String
Dim direcao As String
Dim salto As Boolean
Dim queda As Double
salto = False
mayro = "parado"
sprites = "1"
Do While ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1
If mayro = "andando" And direcao = "direita" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando1.png"
sprites = 2
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando2.png"
sprites = 3
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando3.png"
sprites = 4
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando4.png"
sprites = 5
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando5.png"
sprites = 6
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando6.png"
sprites = 7
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando7.png"
sprites = 8
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando8.png"
sprites = 9
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando9.png"
sprites = 10
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando10.png"
sprites = 11
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando11.png"
sprites = 12
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando12.png"
sprites = 13
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando13.png"
sprites = 14
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando14.png"
sprites = 15
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando15.png"
sprites = 16
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando16.png"
sprites = 17
End If
End If
If mayro = "parado" And direcao = "direita" And salto = False Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\mariodireita.png"
End If
If mayro = "parado" And direcao = "esquerda" And salto = False Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioesquerda.png"
End If
If mayro = "andando" And direcao = "esquerda" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando1esq.png"
sprites = 2
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando2esq.png"
sprites = 3
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando3esq.png"
sprites = 4
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando4esq.png"
sprites = 5
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando5esq.png"
sprites = 6
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando6esq.png"
sprites = 7
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando7esq.png"
sprites = 8
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando8esq.png"
sprites = 9
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando9esq.png"
sprites = 10
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando10esq.png"
sprites = 11
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando11esq.png"
sprites = 12
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando12esq.png"
sprites = 13
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando13esq.png"
sprites = 14
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando14esq.png"
sprites = 15
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando15esq.png"
sprites = 16
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando16esq.png"
sprites = 17
End If
End If
If GetAsyncKeyState(vbKeyA) Then
direcao = "esquerda"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left - 1
ElseIf GetAsyncKeyState(vbKeyD) Then
direcao = "direita"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left + 1
Else
mayro = "parado"
sprites = "1"
End If
Shapes("sla").TextFrame.TextRange.Text = Time
DoEvents
Loop
End Sub
troca o seu codigo por esse, acho que vai te ajudar
Sub marionice()
Dim sprites As Integer
Dim mayro As String
Dim direcao As String
Dim salto As Boolean
Dim queda As Double
salto = False
mayro = "parado"
sprites = "1"
Do While ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1
If mayro = "andando" And direcao = "direita" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando1.png"
sprites = 2
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando2.png"
sprites = 3
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando3.png"
sprites = 4
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando4.png"
sprites = 5
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando5.png"
sprites = 6
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando6.png"
sprites = 7
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando7.png"
sprites = 8
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando8.png"
sprites = 9
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando9.png"
sprites = 10
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando10.png"
sprites = 11
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando11.png"
sprites = 12
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando12.png"
sprites = 13
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando13.png"
sprites = 14
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando14.png"
sprites = 15
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando15.png"
sprites = 16
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando16.png"
sprites = 1
End If
End If
If mayro = "parado" And direcao = "direita" And salto = False Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\mariodireita.png"
End If
If mayro = "parado" And direcao = "esquerda" And salto = False Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioesquerda.png"
End If
If mayro = "andando" And direcao = "esquerda" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando1esq.png"
sprites = 2
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando2esq.png"
sprites = 3
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando3esq.png"
sprites = 4
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando4esq.png"
sprites = 5
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando5esq.png"
sprites = 6
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando6esq.png"
sprites = 7
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando7esq.png"
sprites = 8
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando8esq.png"
sprites = 9
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando9esq.png"
sprites = 10
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando10esq.png"
sprites = 11
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando11esq.png"
sprites = 12
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando12esq.png"
sprites = 13
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando13esq.png"
sprites = 14
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando14esq.png"
sprites = 15
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando15esq.png"
sprites = 16
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando16esq.png"
sprites = 1
End If
End If
If GetAsyncKeyState(vbKeyA) Then
direcao = "esquerda"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left - 1
ElseIf GetAsyncKeyState(vbKeyD) Then
direcao = "direita"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left + 1
Else
mayro = "parado"
sprites = "1"
End If
Shapes("sla").TextFrame.TextRange.Text = Time
DoEvents
Loop
End Sub
@@MatheusPrimagi funcionou 100% kkkkk. oque tava errado no meu código?
@@mistermonsoon1232 naquele negocio de ficar copiando e colando ate chegar no 16, na ultima linha voce tinha colocado 17, e como so tem 16 sprites, nao existia sprite 17, aí o mario ficava parado mesmo. eu so troquei o 17 por 1 :)
@@MatheusPrimagi entendi valeu irmão. só tem um problema, fui fazer o código de pular e o mario tá nem andando agora. Aparece sub ou function não definida.
Sub marionice()
Dim sprites As Integer
Dim mayro As String
Dim direcao As String
Dim salto As Boolean
Dim queda As Double
salto = False
mayro = "parado"
sprites = "1"
Do While ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1
If salto = True And direcao = "direita" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\mariopulandodireita.png"
End If
If salto = True And direcao = "esquerda" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\mariopulandoesquerda.png"
End If
If mayro = "andando" And direcao = "direita" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando1.png"
sprites = 2
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando2.png"
sprites = 3
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando3.png"
sprites = 4
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando4.png"
sprites = 5
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando5.png"
sprites = 6
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando6.png"
sprites = 7
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando7.png"
sprites = 8
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando8.png"
sprites = 9
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando9.png"
sprites = 10
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando10.png"
sprites = 11
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando11.png"
sprites = 12
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando12.png"
sprites = 13
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando13.png"
sprites = 14
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando14.png"
sprites = 15
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando15.png"
sprites = 16
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando16.png"
sprites = 1
End If
End If
If mayro = "parado" And direcao = "direita" And salto = False Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\mariodireita.png"
End If
If mayro = "parado" And direcao = "esquerda" And salto = False Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioesquerda.png"
End If
If mayro = "andando" And direcao = "esquerda" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando1esq.png"
sprites = 2
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando2esq.png"
sprites = 3
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando3esq.png"
sprites = 4
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando4esq.png"
sprites = 5
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando5esq.png"
sprites = 6
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando6esq.png"
sprites = 7
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando7esq.png"
sprites = 8
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando8esq.png"
sprites = 9
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando9esq.png"
sprites = 10
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando10esq.png"
sprites = 11
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando11esq.png"
sprites = 12
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando12esq.png"
sprites = 13
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando13esq.png"
sprites = 14
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando14esq.png"
sprites = 15
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando15esq.png"
sprites = 16
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando16esq.png"
sprites = 1
End If
End If
If GetAsyncKeyState(vbKeyA) Then
direcao = "esquerda"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left - 3
ElseIf GetAsyncKeyState(vbKeyD) Then
direcao = "direita"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left + 3
Else
mayro = "parado"
sprites = "1"
End If
If GetAsyncKeyState(vbakeySpace) And salto = False Then
Dim aleatorio As Integer
aleatorio = Int(Rnd * 6) + 1
If aleatorio = "1" Then
playSound ActivePresentation.Path & "\sprites\mariosalto1.wav"
ElseIf aleatorio = "2" Then
playSound ActivePresentation.Path & "\sprites\mariosalto2.wav"
ElseIf aleatorio = "3" Then
playSound ActivePresentation.Path & "\sprites\mariosalto3.wav"
ElseIf aleatorio = "4" Then
playSound ActivePresentation.Path & "\sprites\mariosalto4.wav"
ElseIf aleatorio = "5" Then
playSound ActivePresentation.Path & "\sprites\mariosalto5.wav"
ElseIf aleatorio = "6" Then
playSound ActivePresentation.Path & "\sprites\mariosalto6.wav"
End If
queda = -24
salto = True
End If
If salto = True And queda "24" Then
queda = queda + 2
End If
If Shapes("per").Top + Shapes("per").Height > Shapes("chao").Top Then
queda = 0
salto = False
Shapes("per").Top = Shape("chao").Top - Shapes("per").Height
ElseIf queda = "24" Then
queda = 0
salto = False
End If
Shapes("per").IncrementTop queda
Shapes("sla").TextFrame.TextRange.Text = Time
DoEvents
Loop
End Sub
@@mistermonsoon1232 tenta trocar esse codigo por esse, acho que eh isso. se nao der, me chama.
Sub marionice()
Dim sprites As Integer
Dim mayro As String
Dim direcao As String
Dim salto As Boolean
Dim queda As Double
salto = False
mayro = "parado"
sprites = "1"
Do While ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1
If salto = True And direcao = "direita" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\mariopulandodireita.png"
End If
If salto = True And direcao = "esquerda" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\mariopulandoesquerda.png"
End If
If mayro = "andando" And direcao = "direita" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando1.png"
sprites = 2
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando2.png"
sprites = 3
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando3.png"
sprites = 4
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando4.png"
sprites = 5
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando5.png"
sprites = 6
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando6.png"
sprites = 7
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando7.png"
sprites = 8
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando8.png"
sprites = 9
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando9.png"
sprites = 10
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando10.png"
sprites = 11
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando11.png"
sprites = 12
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando12.png"
sprites = 13
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando13.png"
sprites = 14
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando14.png"
sprites = 15
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando15.png"
sprites = 16
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando16.png"
sprites = 1
End If
End If
If mayro = "parado" And direcao = "direita" And salto = False Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\mariodireita.png"
End If
If mayro = "parado" And direcao = "esquerda" And salto = False Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioesquerda.png"
End If
If mayro = "andando" And direcao = "esquerda" And salto = False Then
If sprites = "1" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando1esq.png"
sprites = 2
ElseIf sprites = "2" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando2esq.png"
sprites = 3
ElseIf sprites = "3" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando3esq.png"
sprites = 4
ElseIf sprites = "4" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando4esq.png"
sprites = 5
ElseIf sprites = "5" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando5esq.png"
sprites = 6
ElseIf sprites = "6" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando6esq.png"
sprites = 7
ElseIf sprites = "7" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando7esq.png"
sprites = 8
ElseIf sprites = "8" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando8esq.png"
sprites = 9
ElseIf sprites = "9" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando9esq.png"
sprites = 10
ElseIf sprites = "10" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando10esq.png"
sprites = 11
ElseIf sprites = "11" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando11esq.png"
sprites = 12
ElseIf sprites = "12" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando12esq.png"
sprites = 13
ElseIf sprites = "13" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando13esq.png"
sprites = 14
ElseIf sprites = "14" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando14esq.png"
sprites = 15
ElseIf sprites = "15" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando15esq.png"
sprites = 16
ElseIf sprites = "16" Then
Shapes("per").Fill.UserPicture ActivePresentation.Path & "\sprites\marioandando16esq.png"
sprites = 1
End If
End If
If GetAsyncKeyState(vbKeyA) Then
direcao = "esquerda"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left - 3
ElseIf GetAsyncKeyState(vbKeyD) Then
direcao = "direita"
mayro = "andando"
Shapes("per").Left = Shapes("per").Left + 3
Else
mayro = "parado"
sprites = "1"
End If
If GetAsyncKeyState(vbkeySpace) And salto = False Then
Dim aleatorio As Integer
aleatorio = Int(Rnd * 6) + 1
If aleatorio = "1" Then
playSound ActivePresentation.Path & "\sprites\mariosalto1.wav"
ElseIf aleatorio = "2" Then
playSound ActivePresentation.Path & "\sprites\mariosalto2.wav"
ElseIf aleatorio = "3" Then
playSound ActivePresentation.Path & "\sprites\mariosalto3.wav"
ElseIf aleatorio = "4" Then
playSound ActivePresentation.Path & "\sprites\mariosalto4.wav"
ElseIf aleatorio = "5" Then
playSound ActivePresentation.Path & "\sprites\mariosalto5.wav"
ElseIf aleatorio = "6" Then
playSound ActivePresentation.Path & "\sprites\mariosalto6.wav"
End If
queda = -24
salto = True
End If
If salto = True And queda "24" Then
queda = queda + 2
End If
If Shapes("per").Top + Shapes("per").Height > Shapes("chao").Top Then
queda = 0
salto = False
Shapes("per").Top = Shape("chao").Top - Shapes("per").Height
ElseIf queda = "24" Then
queda = 0
salto = False
End If
Shapes("per").IncrementTop queda
Shapes("sla").TextFrame.TextRange.Text = Time
DoEvents
Loop
End Sub
MATHEUS APARECEU ALGO NA MINHA CONTA É VIRUS
Notebook novo né? kkkkkkk
N to entandendo as pessoas tao falando q sua voz mudo mas ta a mesma merda so se as pessoas so viraram um video de 2 anos atras dai ta diferente
tbm achei que minha voz ta a msm coisa kk
ata achei dscp
Lescal
Russia
gay
gay
ore! NotADudeUSANotADudeIndiaNotADudeRussia
Wow perda de tempo pra mais um fake
tem instagram ou whatsapp