Page 1 of 4 123 ... LastLast
Results 1 to 10 of 31
  1. #1
    Banned

    Badge

    Join Date
    Oct 2013
    Location
    Being Grumpy
    Posts
    1,301
    Points
    285
         User Info     Contact     Gamer ID
    Join Date
    Oct 2013
    Location
    Being Grumpy
    Posts
    1,301
    Points
    285
    Gamer IDs

    Gamertag: CandyCrusher PSN ID: CandyCrusher

    Contact info:

    Youtube Channel: http://www.youtube.com/

    Default Super Mario Bros. Animation Game

    What's up you guys, I just thought I'd share a little game that I made earlier. It was actually very simple to make and I did not follow any tutorials, I made this with my own coding experiences. I added a custom animation using a small variety on .png images and created my own fighting (punching) animation.

    Controls:
    Up Arrow - Jump
    Left Arrow - Move Left
    Right Arrow - Move Right
    Space - Fight (Punch)
    "F" Key - Make Mario Hold Up His Middle Finger

    Download Link - https://www.mediafire.com/?l5huh1bo60n3khj

    Video



    Code

    Code:
    Public Class Form1
        Dim up, down, leftm, rightm As Boolean
    
        Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mario2.Click
    
        End Sub
    
        Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
            Map_bounds()
            Select Case e.KeyCode
                Case Keys.Space
                    Mario1.Visible = False
                    Mario2.Visible = True
            End Select
    
            Select Case e.KeyCode
                Case Keys.Up
                    Gravity.Enabled = True
                    If up = True Then : Mario1.Top -= 150
                        Mario2.Top -= 150
                        Mario3.Top -= 150
                        MarioFU.Top -= 150
                    Else
                    End If
                    If Mario1.Top < 150 Then
                        Mario1.Top += 150
                        Mario2.Top += 150
                        Mario3.Top += 150
                        MarioFU.Top += 150
                    End If
    
            End Select
    
            Select Case e.KeyCode
                Case Keys.Down
                    If down = True Then : Mario1.Top += 10
                        Mario1.Top += 10
                        Mario2.Top += 10
                    Else
                    End If
            End Select
    
            Select Case e.KeyCode
                Case Keys.Left
                    If leftm = True Then
                        Mario3.Visible = True
                        Mario1.Left -= 10
                        Mario2.Left -= 10
                        Mario3.Left -= 10
                        MarioFU.Left -= 10
                    Else
                    End If
            End Select
    
            Select Case e.KeyCode
                Case Keys.Right
                    If rightm = True Then
                        Mario3.Visible = True
                        Mario1.Left += 10
                        Mario2.Left += 10
                        Mario3.Left += 10
                        MarioFU.Left += 10
                    Else
                    End If
            End Select
            Select Case e.KeyCode
                Case Keys.F
                    MarioFU.Visible = True
            End Select
        End Sub
    
        Private Sub Form1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
            Select Case e.KeyCode
                Case Keys.Space
                    Mario1.Visible = True
                    Mario2.Visible = False
            End Select
            Select Case e.KeyCode
                Case Keys.Right
                    Mario1.Visible = True
                    Mario3.Visible = False
            End Select
            Select Case e.KeyCode
                Case Keys.Left
                    Mario1.Visible = True
                    Mario3.Visible = False
            End Select
            Select Case e.KeyCode
                Case Keys.F
                    MarioFU.Visible = False
                    Mario1.Visible = True
            End Select
        End Sub
    
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gravity.Tick
            Gravity.Enabled = False
            Mario1.Top += 150
            Mario2.Top += 150
            Mario3.Top += 150
            MarioFU.Top += 150
        End Sub
    
        Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
        End Sub
    
        Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            up = True
            down = True
            leftm = True
            rightm = True
            If Mario1.Top = WarpPipe.Left Then
    
            End If
        End Sub
    
        Private Sub PictureBox2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
        End Sub
    
        Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WarpPipe.Click
    
        End Sub
    
        Private Sub Map_bounds()
            Dim x As Integer = Mario1.Location.X
            Dim y As Integer = Mario1.Location.Y
    
            If x <= 0 Then : leftm = False
            Else : leftm = True
            End If
    
            If y <= 0 Then : up = False
            Else : up = True
            End If
    
            If x <= Me.ClientRectangle.Width Then : down = False
            Else : down = True
            End If
    
            If y <= 0 Then : rightm = False
            Else : rightm = True
            End If
        End Sub
    End Class

    -3 Not allowed! Not allowed!
    Last edited by zTwist-MoDz; 01-11-2014 at 05:13 PM.

  2. #2
    ABlackGuy's Avatar

    Badge

    Join Date
    Jul 2011
    Location
    Yes
    Posts
    4,403
    Points
    5,430
         User Info     Contact     Gamer ID
    Join Date
    Jul 2011
    Location
    Yes
    Posts
    4,403
    Points
    5,430
    Gamer IDs

    PSN ID: X_-ABlackGuy-_X

    Default

    Nice try. Obvious virus.

    1 Not allowed! Not allowed!


  3. #3
    Elite Slowduck's Avatar
    Join Date
    Jun 2011
    Location
    All the places
    Posts
    10,204
    Points
    9,472
         User Info     Contact     Gamer ID
    Join Date
    Jun 2011
    Location
    All the places
    Posts
    10,204
    Points
    9,472

    Default

    http://www.virustotal.com/en/file/dd...is/1389497859/
    Clean.

    Next time you post a download link to something please post a virus scan from http://www.virustotal.com

    1 Not allowed! Not allowed!


  4. #4
    115 expert
    CoD Annihilator
    Element 115's Avatar

    Badge

    Join Date
    May 2012
    Location
    Excavation Site 64
    Posts
    2,270
    Points
    3,092
         User Info     Contact     Gamer ID
    Join Date
    May 2012
    Location
    Excavation Site 64
    Posts
    2,270
    Points
    3,092
    Gamer IDs

    Gamertag: stevenator64 PSN ID: stevenator64 Wii Code: Cpt.Glitch

    Contact info:

    Youtube Channel: http://www.youtube.com/user/CaptianGlitch?feature=watch

    Default

    What did you use to animate it?

    0 Not allowed! Not allowed!
    Quote Originally Posted by Kori
    torrents are gay. Free is where it's at.
    LMPT Creations

  5. #5
    Banned

    Badge

    Join Date
    Oct 2013
    Location
    Being Grumpy
    Posts
    1,301
    Points
    285
         User Info     Contact     Gamer ID
    Join Date
    Oct 2013
    Location
    Being Grumpy
    Posts
    1,301
    Points
    285
    Gamer IDs

    Gamertag: CandyCrusher PSN ID: CandyCrusher

    Contact info:

    Youtube Channel: http://www.youtube.com/

    Default

    Quote Originally Posted by Cpt.Hacks View Post
    What did you use to animate it?
    3 different pictures. I made it so when you press the functionalized key, it swaps the pictures until you release the key.

    -3 Not allowed! Not allowed!

  6. #6
    115 expert
    CoD Annihilator
    Element 115's Avatar

    Badge

    Join Date
    May 2012
    Location
    Excavation Site 64
    Posts
    2,270
    Points
    3,092
         User Info     Contact     Gamer ID
    Join Date
    May 2012
    Location
    Excavation Site 64
    Posts
    2,270
    Points
    3,092
    Gamer IDs

    Gamertag: stevenator64 PSN ID: stevenator64 Wii Code: Cpt.Glitch

    Contact info:

    Youtube Channel: http://www.youtube.com/user/CaptianGlitch?feature=watch

    Default

    Ah I see. Good work.

    1 Not allowed! Not allowed!
    Quote Originally Posted by Kori
    torrents are gay. Free is where it's at.
    LMPT Creations

  7. #7
    ~ Hyrule's Savior ~
    link's Avatar
    Join Date
    Jun 2011
    Posts
    3,825
    Points
    2,802
         User Info     Contact     Gamer ID
    Join Date
    Jun 2011
    Posts
    3,825
    Points
    2,802

    Contact info:

    Youtube Channel: http://www.YouTube.Com/ReTrOSlink

    Default

    Animation is total crap.

    You probably used SSF2 sprite.

    0 Not allowed! Not allowed!
    Last edited by link; 01-11-2014 at 05:55 PM.
    #gamedevelopment


  8. #8

    Retired Prophet
    ToxicJew.'s Avatar
    Join Date
    Mar 2011
    Location
    S̢͎̳̞̲͈̪̳̻ͮͩt̟̳̏ͬ̔&#
    Posts
    7,781
    Points
    7,586
         User Info     Contact     Gamer ID
    Join Date
    Mar 2011
    Location
    S̢͎̳̞̲͈̪̳̻ͮͩt̟̳̏ͬ̔&#
    Posts
    7,781
    Points
    7,586

    Contact info:

    Youtube Channel: http://www.youtube.com/kennethbgoodin

    Default

    This would be slightly interesting if it wasn't simple, and visual basic.

    Good work for a beginner though, keep it up.

    -1 Not allowed! Not allowed!
    ส็็็็็็็็็็็็็็็็็็็็็็็็็༼ ຈل͜ຈ༽ส้้้้้้้้้้้้้้้้้้้้้้้ส็็็็็็็็็็็็็็็็็็็็ ็็็็็༼ ຈل͜ຈ༽ส้้้้้้้้้้้้้้้้้้้้้้้

  9. #9
    Banned

    Badge

    Join Date
    Oct 2013
    Location
    Being Grumpy
    Posts
    1,301
    Points
    285
         User Info     Contact     Gamer ID
    Join Date
    Oct 2013
    Location
    Being Grumpy
    Posts
    1,301
    Points
    285
    Gamer IDs

    Gamertag: CandyCrusher PSN ID: CandyCrusher

    Contact info:

    Youtube Channel: http://www.youtube.com/

    Default

    Quote Originally Posted by link View Post
    Animation is total crap.
    It's supposed to be. It's my own game animation of "Super Mario World" for the SNES.
    Let's see you try. I used visual basic.

    -3 Not allowed! Not allowed!

  10. #10
    I agree. MatthewH's Avatar
    Join Date
    Jul 2011
    Location
    North Carolina
    Posts
    3,481
    Points
    15,810
         User Info     Contact     Gamer ID
    Join Date
    Jul 2011
    Location
    North Carolina
    Posts
    3,481
    Points
    15,810

    Default

    Code = Clean. I can say that this is not a virus. I scanned it myself.
    Good job BMO. Only comments are these.
    1) There's no right boundary.
    2) He looks like he's floating when you hold a key down. Use cases. Since this is VB, I'll show you an example of a piece of code I wrote for class (used to do this same kinda action).

    3) The images are different sizes (I mean the middle finger image and the rest)
    4) The jumping is awful, animate that more.
    5) Make the images transparent. It's obvious they have a white when you walk in front of the pipe.

    There are my comments. I would suggest updating the program and update the thread. I wanna see what you do with it.

    0 Not allowed! Not allowed!


Bookmarks

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
All times are GMT -10. The time now is 03:28 AM.
Powered by vBulletin®
Copyright © 2016 vBulletin Solutions, Inc. All rights reserved.