Como Fazer um Mario 2D no PowerPoint

Olá pessoal. Hoje eu estou trazendo mais um vídeo de tutorial e dessa vez é sobre como criar um jogo 2D do Mario no PowerPoint. Controlando com o teclado com as teclas WASD, irei ensinar a controlar o Mario para ele andar e pular.
Links mencionados no vídeo:
PRIMEIRO: www.mediafire....
SEGUNDO: matheusprimagi...
TERCEIRO (copie):
Option Explicit
#If VBA7 Then
Public Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#Else
Public Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#End If
Public Const SND_ASYNC = &H1
Sub playSound(SoundFile As String)
sndPlaySound32 SoundFile, SND_ASYNC
End Sub
--------------------------------------------------------------------
Todos os sprites do Mario pertencem ao Super Mario Galaxy da Nintendo.
Todos os áudios do Mario pertencem ao Super Mario Galaxy da Nintendo e foram pegos no The Spriters Resource.

[@UesleiDev]

Wow, realmente fiquei surpreso com sua evolução, principalmente nas variáveis, bacana!

[@MatheusPrimagi]

:)))

[@oscavalheirosdozodiacodubl9318]

@@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 ?

[@dorito9917]

Ficou bem feito demais, quem vê de longe nem pensa que é no PowerPoint

[@MatheusPrimagi]

Thank yu

[@GESSICALUANASILVACAMPOS]

É 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😊

[@oreocheirosinho]

Gostei bastante, mais eu não consigo aprender programar XD mais pelo jeito vc sabe bem oq tá fazendo

[@maheshsutar2438]

Best tutorial I ever I watch good video ❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤❤

[@Arthuurr_]

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

[@GAMEWORLD_PPT]

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.

[@LDsong343]

Como que habilita essa guia no PowerPoint 2007?

[@lobinhodrawn]

Obrigado cara é serio me tirou do tédio o pocket code nao inicia no meu e obrigado cara de

[@Ninguém-t9j]

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

[@choraproducksz]

cara, sério amo seu canal

[@louvareiBR]

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?

[@Gabyri886]

O Meu PowerPoint é 2007

[@Camila110590]

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?

[@dreamland7661]

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 🕹️🎮🛸👾💎

[@c00lcheeky-OFC]

manme ajuda as macros esta ativada mais nada da certo?

[@posteff704]

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

[@gen6095]

Is it possible for you to translate the video or the link to the project

[@gamesaleatorios5365]

uma pergunta, da para dar mais espaço?

[@Ve3h_]

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é?

[@rodrigobastosdasilva5216]

Matheus é possível salvar de forma que fosse possível enviar e acessar em outros computadores sem levar todos os arquivos de sprites juntos?

[@rodrigobastosdasilva5216]

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

[@piradianos2027]

o meu nem rodando esta e fiz tudo certo..

[@remixsomm]

fiz hj de manhã as configuração no mecheu não o mario

[@sansman9510]

onde eu baixo essa versão do powerpoint?pode mandar link?

[@marceloferreira6160]

Que programação é essa???

[@linkemofc4704]

eu so entrei pa da view

[@MatheusPrimagi]

E like 👺

[@AlvaroDesenhoseJogos]

mano acho q eu te conheço 🤔 tu tem discord n tem ?

[@linkemofc4704]

@@AlvaroDesenhoseJogos aham, tenho

[@rodrigobastosdasilva5216]

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

[@rodrigobastosdasilva5216]

​@@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

[@rodrigobastosdasilva5216]

@@MatheusPrimagi Infelizmente nada

[@rodrigobastosdasilva5216]

@@MatheusPrimagi agora o personagem nem se mexe mais

[@rodrigobastosdasilva5216]

@@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

[@rodrigobastosdasilva5216]

@@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!!!

[@trueluscao]

Eae Man, quando eu tiver um computador novo eu vou começar a aprender macros, já tô planejando em fazer um super projeto 🗿🤙

[@niltonluizreis1761]

amigo o meu nao tem apçao

[@andremeurer578]

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

[@MatheusPrimagi]

Quando voce clica na aba desenvolvedor oq acontece?

[@andremeurer578]

@@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

[@MatheusPrimagi]

@@andremeurer578 eles ficam meio transparentes?

[@andremeurer578]

@@MatheusPrimagi sim

[@MatheusPrimagi]

@@andremeurer578 vc ativou os activeX e as macros do jeito cert? Ve o video dnv pra ter ctz

[@peashooteranimations8082]

Ensina a fazer blocos, ou power ups e um goomba pq essa script não funciona com os videos antigos

[@lucasmarcelino1504]

não deu serto? ele não anda

[@mateuspinheiro7811]

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

[@rafarlgamer9380]

escrevi tudo certo escrevi "\sprites\marioandando1" e eu salvei na area de trabalho mas mesmo assim da erro o mario fica duro

[@rafarlgamer9380]

e falando eu até u 16 e no outro coloquei esq

[@Dodo13kk]

faz como fzer tetris no powerpoint

[@GAMEWORLD_PPT]

Muito bom :)

[@souorafa13]

muito top faz um desafio de tentar fazer um jogo com construct 2 se fizer fixa ;-;

[@bielzz7642]

Seria bem legal tbm

[@figamesppt8134]

ate o youtube pensou q era o mario galaxy de verdade mds

[@MatheusPrimagi]

muito realista

[@AnesioSciolla]

muito bom

[@mack_mateuseditor_g4mer718]

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]

com codigos eh mt mais simples, e tem sim no ppt 2007. so tem que ativar.

[@mack_mateuseditor_g4mer718]

@@MatheusPrimagi hum blz vlw vou tentar da um olhada la

[@Isa.Cris14]

manooooooooooooo,eu fui salvar, travei o computador e perdi os cod tudo vééééiiiiiiiiiiiiiiiiiiiiii AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHHHHHHHHHHHHHHHHHHHHHHH

[@arthurmedeiros8431]

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

[@kirazzedits]

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

[@DaviMac]

nem parece que é feito no ppt 👌

[@MatheusPrimagi]

👌

[@da_vv]

mds voce é mto bom

[@MatheusPrimagi]

:)))))))

[@bielzz7642]

Mano faz mais video de among achei bem massa

[@Jfk4633]

Legau

[@MatheusPrimagi]

uageL

[@MAlex-mg6sx]

o meu n anda ;-;

[@MatheusPrimagi]

pode mandar seu codigo?

[@purans7195]

Cara esquanto no PowerPoint precisa de 1 milhão de códigos, no scratch/pocket code é facinho

[@MatheusPrimagi]

Na verdade no powerpoint tem vzs q eh bem mais simples e quase todo mundo tem o ppt

[@purans7195]

@@MatheusPrimagi k

[@purans7195]

@@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

[@MatheusPrimagi]

@@purans7195 okei

[@fabiorodrigues3371]

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

[@remixsomm]

vou tentar fazer

[@nails411]

Baixa o Game Maker e cria um jogo nele

[@powerpointgames8826]

que lagal cara kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

[@milkshapey]

lagal

[@powerpointgames8826]

@RAFAEL ESPINHEIRO PRODUCTIONS ui?

[@powerpointgames8826]

@RAFAEL ESPINHEIRO PRODUCTIONS e uma piada ou e de vdd?

[@powerpointgames8826]

@RAFAEL ESPINHEIRO PRODUCTIONS eu vou ali comer um hamburguer

[@powerpointgames8826]

@RAFAEL ESPINHEIRO PRODUCTIONS já comi, tomei um banho quente, e agora vou passar minhas últimas horas no Pc esse dia, e depois vou dormir 😌. 👁️👄👁️

[@bielzz7642]

UHU FINALMENTE VIDIU

[@sr_kaio]

wow sua vo mudou

[@peashooteranimations8082]

Awesome

[@Enzo-nu2jw]

Primagi, você andou tomando anabolizantes?

[@MatheusPrimagi]

kkkkkkk nn pq?

[@cristianoronyaldo7498]

"Video todos os dias as 15:00" vc nem faz isso

[@MatheusPrimagi]

exato

[@horadosgames6078]

é o Mairon664

[@arthurhenriqueteixeiramaia6538]

Não funcionou

[@Josu_EXE]

10:51

[@sansman9510]

n tenho powerpoint no pc :(

[@MatheusPrimagi]

._.

[@ericoco.]

Vídeo Full HD 👍

[@MatheusPrimagi]

4K 200 fps

[@andreadesouzavieira3008]

ARRASOU!!!!!

[@adrielecampos2834]

A vós dele mudou muito cara '_'

[@joelmasouzapradosilva5189]

CARA ISSO É PERIGOSO MEU PC TÁ AVISANDO QUE NÃO É SEGURO

[@yoshimusicas5947]

Kkk

[@migwiigames2168]

Isso Não funciona

[@mistermonsoon1232]

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

[@MatheusPrimagi]

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

[@mistermonsoon1232]

@@MatheusPrimagi funcionou 100% kkkkk. oque tava errado no meu código?

[@MatheusPrimagi]

@@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 :)

[@mistermonsoon1232]

@@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

[@MatheusPrimagi]

@@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

[@fabiorodrigues3371]

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

[@MatheusPrimagi]

tbm achei que minha voz ta a msm coisa kk

[@Juniormeloism]

MATHEUS APARECEU ALGO NA MINHA CONTA É VIRUS

[@niltonluizreis1761]

ata achei dscp

[@MeeGMR]

Notebook novo né? kkkkkkk

[@lcziin-ldzz]

Lescal

[@progamer-205]

Russia

[@figamesppt8134]

gay

[@MatheusPrimagi]

gay

[@progamer-205]

ore! NotADudeUSANotADudeIndiaNotADudeRussia

[@AAAAAAAA10101-w]

Wow perda de tempo pra mais um fake

[@remixsomm]

tem instagram ou whatsapp