You are viewing our Forum Archives. To view or take place in current topics click here.
Mario Portal VB.net [Open Source] [Download]
Posted:
Mario Portal VB.net [Open Source] [Download]Posted:
Status: Offline
Joined: Jan 21, 201212Year Member
Posts: 17
Reputation Power: 0
Well.. I know I am new to the site but I'm not new to programming.
so I guess a little about me...
I'm 16.
I like video games.
pretty much covers it.
This is all coded in Visual Basics 2010 (which I must say was a difficult task, I am sticking to Allegro from now on...)
I have been working on a project "Mario Portal" which is similar to what [ Register or Signin to view external links. ] is making... only less awesome.
You will notice that I used VB picutebox classes to create this game (I know its unconventional.)
Note about the source code: I did not use the normal Load -> Update -> Draw technique that you may be familiar with. I have been programming for under a year so if the source isn't to your standards of programming style I apologize.
Video:
Source Paste-bin:
Edit: the fact Paste-bin isn't allowed on this site makes me want to leave... I mean really.. But I'll use your custom Code box... even though it isn't syntax highlighted.
Form 1 Designer:
Form 1 VB:
Score Designer:
Score VB:
(the good stuff)
Word 1 Designer:
World 2 VB:
And all the other words have very similar code to the first one so I will not bother posting that.
DOWNLOAD:
In this file is the game + the source code / resources
[ Register or Signin to view external links. ]
if you liked it i guess you could leave a like or something
so I guess a little about me...
I'm 16.
I like video games.
pretty much covers it.
This is all coded in Visual Basics 2010 (which I must say was a difficult task, I am sticking to Allegro from now on...)
I have been working on a project "Mario Portal" which is similar to what [ Register or Signin to view external links. ] is making... only less awesome.
You will notice that I used VB picutebox classes to create this game (I know its unconventional.)
Note about the source code: I did not use the normal Load -> Update -> Draw technique that you may be familiar with. I have been programming for under a year so if the source isn't to your standards of programming style I apologize.
Video:
Source Paste-bin:
Edit: the fact Paste-bin isn't allowed on this site makes me want to leave... I mean really.. But I'll use your custom Code box... even though it isn't syntax highlighted.
Form 1 Designer:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.PctSelect = New System.Windows.Forms.PictureBox()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
CType(Me.PctSelect, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'PctSelect
'
Me.PctSelect.BackColor = System.Drawing.Color.Transparent
Me.PctSelect.BackgroundImage = Global.Portal.My.Resources.Resources._Select
Me.PctSelect.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PctSelect.Location = New System.Drawing.Point(160, 200)
Me.PctSelect.Name = "PctSelect"
Me.PctSelect.Size = New System.Drawing.Size(16, 16)
Me.PctSelect.TabIndex = 0
Me.PctSelect.TabStop = False
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.OpenFileDialog1.Filter = "Wav File(*.wav)|*.wav|All Files|*.*"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackgroundImage = Global.Portal.My.Resources.Resources.Start
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.ClientSize = New System.Drawing.Size(486, 334)
Me.Controls.Add(Me.PctSelect)
Me.DoubleBuffered = True
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Mario Bros! - Apeture Science Edition"
CType(Me.PctSelect, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents PctSelect As System.Windows.Forms.PictureBox
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
End Class Form 1 VB:
Imports System
Imports System.IO
Public Class Form1
Public Drive As String
Dim selects As Integer = 0'0=start game 1=instructions
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
'When selecting Game or Instructions.
If e.Y < 210 Then
PctSelect.Top = 200
selects = 0
Else
PctSelect.Top = 220
selects = 1
End If
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If selects = 0 Then
FrmScore.Show()
Me.Hide()
Else
FrmInstruct.Show()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My.Computer.Audio.Play(My.Resources.The_Super_Mario_Song, AudioPlayMode.BackgroundLoop)
Dim responce As Integer = 0
responce = MessageBox.Show("Do you want to set a sound for when mario Jumps? " & vbCrLf & "You will have to select the audio file.", "Open Sound File", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If responce = vbYes Then
OpenFileDialog1.ShowDialog()
End If
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
Drive = OpenFileDialog1.FileName
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Application.Exit()
End Sub
End Class Score Designer:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmScore
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.TmrPause = New System.Windows.Forms.Timer(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.LblScore = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.LblWorld = New System.Windows.Forms.Label()
Me.LblTime = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.LblLives = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TmrPause
'
Me.TmrPause.Enabled = True
Me.TmrPause.Interval = 3000
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Calibri", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(26, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(63, 26)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Mario"
'
'LblScore
'
Me.LblScore.AutoSize = True
Me.LblScore.BackColor = System.Drawing.Color.Transparent
Me.LblScore.Font = New System.Drawing.Font("Calibri", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblScore.ForeColor = System.Drawing.Color.White
Me.LblScore.Location = New System.Drawing.Point(26, 28)
Me.LblScore.Name = "LblScore"
Me.LblScore.Size = New System.Drawing.Size(67, 26)
Me.LblScore.TabIndex = 1
Me.LblScore.Text = "00000"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("Calibri", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(166, 9)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(64, 26)
Me.Label2.TabIndex = 2
Me.Label2.Text = "World"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Font = New System.Drawing.Font("Calibri", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(320, 9)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(55, 26)
Me.Label3.TabIndex = 3
Me.Label3.Text = "Time"
'
'LblWorld
'
Me.LblWorld.AutoSize = True
Me.LblWorld.BackColor = System.Drawing.Color.Transparent
Me.LblWorld.Font = New System.Drawing.Font("Calibri", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblWorld.ForeColor = System.Drawing.Color.White
Me.LblWorld.Location = New System.Drawing.Point(176, 28)
Me.LblWorld.Name = "LblWorld"
Me.LblWorld.Size = New System.Drawing.Size(40, 26)
Me.LblWorld.TabIndex = 4
Me.LblWorld.Text = "1-1"
'
'LblTime
'
Me.LblTime.AutoSize = True
Me.LblTime.BackColor = System.Drawing.Color.Transparent
Me.LblTime.Font = New System.Drawing.Font("Calibri", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblTime.ForeColor = System.Drawing.Color.White
Me.LblTime.Location = New System.Drawing.Point(321, 28)
Me.LblTime.Name = "LblTime"
Me.LblTime.Size = New System.Drawing.Size(56, 26)
Me.LblTime.TabIndex = 5
Me.LblTime.Text = "0000"
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.Portal.My.Resources.Resources.Mario0
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox1.Location = New System.Drawing.Point(166, 165)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(39, 52)
Me.PictureBox1.TabIndex = 6
Me.PictureBox1.TabStop = False
'
'LblLives
'
Me.LblLives.AutoSize = True
Me.LblLives.BackColor = System.Drawing.Color.Transparent
Me.LblLives.Font = New System.Drawing.Font("Calibri", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblLives.ForeColor = System.Drawing.Color.White
Me.LblLives.Location = New System.Drawing.Point(211, 191)
Me.LblLives.Name = "LblLives"
Me.LblLives.Size = New System.Drawing.Size(38, 26)
Me.LblLives.TabIndex = 7
Me.LblLives.Text = "x 3"
'
'FrmScore
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.Black
Me.ClientSize = New System.Drawing.Size(415, 367)
Me.Controls.Add(Me.LblLives)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.LblTime)
Me.Controls.Add(Me.LblWorld)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.LblScore)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "FrmScore"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "FrmScore"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TmrPause As System.Windows.Forms.Timer
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents LblScore As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents LblWorld As System.Windows.Forms.Label
Friend WithEvents LblTime As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents LblLives As System.Windows.Forms.Label
End Class Score VB:
Public Class FrmScore
Public intLives As Integer = 3 'counts down to zero.
Public intScore As Integer
Public intTime As Integer 'in seconds
Public intLevel As Integer = 0
Private Sub FrmScore_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'load new information about lives/score/time/level into labels
Me.LblLives.Text = "x " & intLives
Me.LblScore.Text = intScore
End Sub
Private Sub TmrPause_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrPause.Tick
TmrPause.Stop()
If intLives < 0 Then
Application.Exit()
End If
If intLevel = 0 Then
FrmLevel1.Show()
Me.Hide()
ElseIf intLevel = 1 Then
FrmLevel2.Show()
LblWorld.Text = "1-2"
Me.Hide()
ElseIf intLevel = 2 Then
FrmLevel3.Show()
LblWorld.Text = "1-3"
Me.Hide()
End If
End Sub
End Class (the good stuff)
Word 1 Designer:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmLevel1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmLevel1))
Me.TmrJump = New System.Windows.Forms.Timer(Me.components)
Me.TmrUpdate = New System.Windows.Forms.Timer(Me.components)
Me.TmrFall = New System.Windows.Forms.Timer(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.TmrWait = New System.Windows.Forms.Timer(Me.components)
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RestartToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ExitApplicationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ChangeNextJumpHeightToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MaxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MediumToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NormalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SmallToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NoneToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.LblTime = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.LblScore = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.LblLives = New System.Windows.Forms.Label()
Me.PctCastle = New System.Windows.Forms.PictureBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PctBlue = New System.Windows.Forms.PictureBox()
Me.PctOrange = New System.Windows.Forms.PictureBox()
Me.PctGround4 = New System.Windows.Forms.PictureBox()
Me.PctGround3 = New System.Windows.Forms.PictureBox()
Me.PctQst5 = New System.Windows.Forms.PictureBox()
Me.PctBricks2 = New System.Windows.Forms.PictureBox()
Me.PctGround2 = New System.Windows.Forms.PictureBox()
Me.PctTop4 = New System.Windows.Forms.PictureBox()
Me.PctTube4 = New System.Windows.Forms.PictureBox()
Me.PctTop3 = New System.Windows.Forms.PictureBox()
Me.PctTube3 = New System.Windows.Forms.PictureBox()
Me.PctTop2 = New System.Windows.Forms.PictureBox()
Me.PctTube2 = New System.Windows.Forms.PictureBox()
Me.PctTop1 = New System.Windows.Forms.PictureBox()
Me.PctTube1 = New System.Windows.Forms.PictureBox()
Me.PctQst4 = New System.Windows.Forms.PictureBox()
Me.PctQst2 = New System.Windows.Forms.PictureBox()
Me.PctQst1 = New System.Windows.Forms.PictureBox()
Me.PctGround = New System.Windows.Forms.PictureBox()
Me.PctBricks1 = New System.Windows.Forms.PictureBox()
Me.PctMario = New System.Windows.Forms.PictureBox()
Me.PctGap1 = New System.Windows.Forms.PictureBox()
Me.PctGap2 = New System.Windows.Forms.PictureBox()
Me.MenuStrip1.SuspendLayout()
CType(Me.PctCastle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctBlue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctOrange, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctGround4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctGround3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctQst5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctBricks2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctGround2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctTop4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctTube4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctTop3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctTube3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctTop2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctTube2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctTop1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctTube1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctQst4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctQst2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctQst1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctGround, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctBricks1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctMario, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctGap1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PctGap2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TmrJump
'
Me.TmrJump.Interval = 60
'
'TmrUpdate
'
Me.TmrUpdate.Enabled = True
Me.TmrUpdate.Interval = 1
'
'TmrFall
'
Me.TmrFall.Enabled = True
Me.TmrFall.Interval = 60
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(98, 36)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.TabIndex = 32
Me.Label1.Text = "Label1"
Me.Label1.Visible = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(98, 23)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(39, 13)
Me.Label2.TabIndex = 33
Me.Label2.Text = "Label2"
Me.Label2.Visible = False
'
'TmrWait
'
Me.TmrWait.Interval = 1000
'
'MenuStrip1
'
Me.MenuStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Visible
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionsToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Me.MenuStrip1.Size = New System.Drawing.Size(484, 24)
Me.MenuStrip1.TabIndex = 34
Me.MenuStrip1.Text = "MenuStrip1"
Me.MenuStrip1.Visible = False
'
'OptionsToolStripMenuItem
'
Me.OptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RestartToolStripMenuItem, Me.ExitApplicationToolStripMenuItem, Me.ChangeNextJumpHeightToolStripMenuItem})
Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem"
Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(129, 20)
Me.OptionsToolStripMenuItem.Text = "The Magic Cheat Bar"
'
'RestartToolStripMenuItem
'
Me.RestartToolStripMenuItem.Name = "RestartToolStripMenuItem"
Me.RestartToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.RestartToolStripMenuItem.Text = "Restart"
'
'ExitApplicationToolStripMenuItem
'
Me.ExitApplicationToolStripMenuItem.Name = "ExitApplicationToolStripMenuItem"
Me.ExitApplicationToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.ExitApplicationToolStripMenuItem.Text = "Exit Application"
'
'ChangeNextJumpHeightToolStripMenuItem
'
Me.ChangeNextJumpHeightToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MaxToolStripMenuItem, Me.MediumToolStripMenuItem, Me.NormalToolStripMenuItem, Me.SmallToolStripMenuItem, Me.NoneToolStripMenuItem})
Me.ChangeNextJumpHeightToolStripMenuItem.Name = "ChangeNextJumpHeightToolStripMenuItem"
Me.ChangeNextJumpHeightToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
Me.ChangeNextJumpHeightToolStripMenuItem.Text = "Jump Height "
'
'MaxToolStripMenuItem
'
Me.MaxToolStripMenuItem.Name = "MaxToolStripMenuItem"
Me.MaxToolStripMenuItem.Size = New System.Drawing.Size(119, 22)
Me.MaxToolStripMenuItem.Text = "Max"
'
'MediumToolStripMenuItem
'
Me.MediumToolStripMenuItem.Name = "MediumToolStripMenuItem"
Me.MediumToolStripMenuItem.Size = New System.Drawing.Size(119, 22)
Me.MediumToolStripMenuItem.Text = "Medium"
'
'NormalToolStripMenuItem
'
Me.NormalToolStripMenuItem.Name = "NormalToolStripMenuItem"
Me.NormalToolStripMenuItem.Size = New System.Drawing.Size(119, 22)
Me.NormalToolStripMenuItem.Text = "Normal"
'
'SmallToolStripMenuItem
'
Me.SmallToolStripMenuItem.Name = "SmallToolStripMenuItem"
Me.SmallToolStripMenuItem.Size = New System.Drawing.Size(119, 22)
Me.SmallToolStripMenuItem.Text = "Small"
'
'NoneToolStripMenuItem
'
Me.NoneToolStripMenuItem.Name = "NoneToolStripMenuItem"
Me.NoneToolStripMenuItem.Size = New System.Drawing.Size(119, 22)
Me.NoneToolStripMenuItem.Text = "None"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(98, 9)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 35
Me.Label3.Text = "Label3"
Me.Label3.Visible = False
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(98, 49)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(39, 13)
Me.Label4.TabIndex = 37
Me.Label4.Text = "Label4"
Me.Label4.Visible = False
'
'LblTime
'
Me.LblTime.AutoSize = True
Me.LblTime.BackColor = System.Drawing.Color.Transparent
Me.LblTime.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblTime.ForeColor = System.Drawing.Color.White
Me.LblTime.Location = New System.Drawing.Point(406, 22)
Me.LblTime.Name = "LblTime"
Me.LblTime.Size = New System.Drawing.Size(31, 14)
Me.LblTime.TabIndex = 39
Me.LblTime.Text = "0000"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.BackColor = System.Drawing.Color.Transparent
Me.Label5.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(405, 8)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(32, 14)
Me.Label5.TabIndex = 38
Me.Label5.Text = "Time"
'
'LblScore
'
Me.LblScore.AutoSize = True
Me.LblScore.BackColor = System.Drawing.Color.Transparent
Me.LblScore.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblScore.ForeColor = System.Drawing.Color.White
Me.LblScore.Location = New System.Drawing.Point(28, 22)
Me.LblScore.Name = "LblScore"
Me.LblScore.Size = New System.Drawing.Size(31, 14)
Me.LblScore.TabIndex = 41
Me.LblScore.Text = "0000"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.BackColor = System.Drawing.Color.Transparent
Me.Label7.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor = System.Drawing.Color.White
Me.Label7.Location = New System.Drawing.Point(27, 8)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(34, 14)
Me.Label7.TabIndex = 40
Me.Label7.Text = "Score"
'
'LblLives
'
Me.LblLives.AutoSize = True
Me.LblLives.BackColor = System.Drawing.Color.Transparent
Me.LblLives.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblLives.ForeColor = System.Drawing.Color.White
Me.LblLives.Location = New System.Drawing.Point(221, 18)
Me.LblLives.Name = "LblLives"
Me.LblLives.Size = New System.Drawing.Size(22, 14)
Me.LblLives.TabIndex = 43
Me.LblLives.Text = "x 3"
'
'PctCastle
'
Me.PctCastle.Image = Global.Portal.My.Resources.Resources.Castle
Me.PctCastle.Location = New System.Drawing.Point(1016, 154)
Me.PctCastle.Name = "PctCastle"
Me.PctCastle.Size = New System.Drawing.Size(82, 79)
Me.PctCastle.TabIndex = 50
Me.PctCastle.TabStop = False
'
'PictureBox4
'
Me.PictureBox4.Image = Global.Portal.My.Resources.Resources.clouds
Me.PictureBox4.Location = New System.Drawing.Point(334, 18)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(66, 26)
Me.PictureBox4.TabIndex = 48
Me.PictureBox4.TabStop = False
'
'PictureBox3
'
Me.PictureBox3.Image = Global.Portal.My.Resources.Resources.clouds
Me.PictureBox3.Location = New System.Drawing.Point(116, 65)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(66, 26)
Me.PictureBox3.TabIndex = 47
Me.PictureBox3.TabStop = False
'
'PictureBox2
'
Me.PictureBox2.Image = Global.Portal.My.Resources.Resources.clouds
Me.PictureBox2.Location = New System.Drawing.Point(31, 39)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(66, 26)
Me.PictureBox2.TabIndex = 46
Me.PictureBox2.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.Image = Global.Portal.My.Resources.Resources.Mario0
Me.PictureBox1.Location = New System.Drawing.Point(205, 12)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(22, 20)
Me.PictureBox1.TabIndex = 42
Me.PictureBox1.TabStop = False
'
'PctBlue
'
Me.PctBlue.BackColor = System.Drawing.Color.Transparent
Me.PctBlue.Image = Global.Portal.My.Resources.Resources.BluePort
Me.PctBlue.Location = New System.Drawing.Point(-44, 43)
Me.PctBlue.Name = "PctBlue"
Me.PctBlue.Size = New System.Drawing.Size(38, 3)
Me.PctBlue.TabIndex = 31
Me.PctBlue.TabStop = False
'
'PctOrange
'
Me.PctOrange.BackColor = System.Drawing.Color.Transparent
Me.PctOrange.Image = Global.Portal.My.Resources.Resources.OrangePort
Me.PctOrange.Location = New System.Drawing.Point(-44, 34)
Me.PctOrange.Name = "PctOrange"
Me.PctOrange.Size = New System.Drawing.Size(38, 3)
Me.PctOrange.TabIndex = 30
Me.PctOrange.TabStop = False
'
'PctGround4
'
Me.PctGround4.BackgroundImage = Global.Portal.My.Resources.Resources.Dirt
Me.PctGround4.Location = New System.Drawing.Point(1054, 232)
Me.PctGround4.Name = "PctGround4"
Me.PctGround4.Size = New System.Drawing.Size(350, 62)
Me.PctGround4.TabIndex = 23
Me.PctGround4.TabStop = False
'
'PctGround3
'
Me.PctGround3.BackgroundImage = Global.Portal.My.Resources.Resources.Dirt
Me.PctGround3.Location = New System.Drawing.Point(896, 232)
Me.PctGround3.Name = "PctGround3"
Me.PctGround3.Size = New System.Drawing.Size(160, 49)
Me.PctGround3.TabIndex = 17
Me.PctGround3.TabStop = False
'
'PctQst5
'
Me.PctQst5.BackColor = System.Drawing.Color.Transparent
Me.PctQst5.Image = Global.Portal.My.Resources.Resources.Question
Me.PctQst5.Location = New System.Drawing.Point(760, 181)
Me.PctQst5.Name = "PctQst5"
Me.PctQst5.Size = New System.Drawing.Size(16, 16)
Me.PctQst5.TabIndex = 16
Me.PctQst5.TabStop = False
'
'PctBricks2
'
Me.PctBricks2.BackColor = System.Drawing.Color.Transparent
Me.PctBricks2.BackgroundImage = Global.Portal.My.Resources.Resources.Brick
Me.PctBricks2.Location = New System.Drawing.Point(744, 181)
Me.PctBricks2.Name = "PctBricks2"
Me.PctBricks2.Size = New System.Drawing.Size(48, 16)
Me.PctBricks2.TabIndex = 15
Me.PctBricks2.TabStop = False
'
'PctGround2
'
Me.PctGround2.BackgroundImage = Global.Portal.My.Resources.Resources.Dirt
Me.PctGround2.Location = New System.Drawing.Point(688, 232)
Me.PctGround2.Name = "PctGround2"
Me.PctGround2.Size = New System.Drawing.Size(160, 49)
Me.PctGround2.TabIndex = 14
Me.PctGround2.TabStop = False
'
'PctTop4
'
Me.PctTop4.BackgroundImage = Global.Portal.My.Resources.Resources.GrnTubeEnd
Me.PctTop4.Location = New System.Drawing.Point(556, 154)
Me.PctTop4.Name = "PctTop4"
Me.PctTop4.Size = New System.Drawing.Size(32, 16)
Me.PctTop4.TabIndex = 13
Me.PctTop4.TabStop = False
'
'PctTube4
'
Me.PctTube4.BackgroundImage = Global.Portal.My.Resources.Resources.GrnTubeBase
Me.PctTube4.Location = New System.Drawing.Point(556, 169)
Me.PctTube4.Name = "PctTube4"
Me.PctTube4.Size = New System.Drawing.Size(32, 64)
Me.PctTube4.TabIndex = 12
Me.PctTube4.TabStop = False
'
'PctTop3
'
Me.PctTop3.BackgroundImage = Global.Portal.My.Resources.Resources.GrnTubeEnd
Me.PctTop3.Location = New System.Drawing.Point(463, 154)
Me.PctTop3.Name = "PctTop3"
Me.PctTop3.Size = New System.Drawing.Size(32, 16)
Me.PctTop3.TabIndex = 11
Me.PctTop3.TabStop = False
'
'PctTube3
'
Me.PctTube3.BackgroundImage = Global.Portal.My.Resources.Resources.GrnTubeBase
Me.PctTube3.Location = New System.Drawing.Point(463, 169)
Me.PctTube3.Name = "PctTube3"
Me.PctTube3.Size = New System.Drawing.Size(32, 64)
Me.PctTube3.TabIndex = 10
Me.PctTube3.TabStop = False
'
'PctTop2
'
Me.PctTop2.BackgroundImage = Global.Portal.My.Resources.Resources.GrnTubeEnd
Me.PctTop2.Location = New System.Drawing.Point(367, 186)
Me.PctTop2.Name = "PctTop2"
Me.PctTop2.Size = New System.Drawing.Size(32, 16)
Me.PctTop2.TabIndex = 9
Me.PctTop2.TabStop = False
'
'PctTube2
'
Me.PctTube2.BackgroundImage = Global.Portal.My.Resources.Resources.GrnTubeBase
Me.PctTube2.Location = New System.Drawing.Point(367, 201)
Me.PctTube2.Name = "PctTube2"
Me.PctTube2.Size = New System.Drawing.Size(32, 32)
Me.PctTube2.TabIndex = 8
Me.PctTube2.TabStop = False
'
'PctTop1
'
Me.PctTop1.BackgroundImage = Global.Portal.My.Resources.Resources.GrnTubeEnd
Me.PctTop1.Location = New System.Drawing.Point(272, 202)
Me.PctTop1.Name = "PctTop1"
Me.PctTop1.Size = New System.Drawing.Size(32, 16)
Me.PctTop1.TabIndex = 7
Me.PctTop1.TabStop = False
'
'PctTube1
'
Me.PctTube1.BackgroundImage = Global.Portal.My.Resources.Resources.GrnTubeBase
Me.PctTube1.Location = New System.Drawing.Point(272, 217)
Me.PctTube1.Name = "PctTube1"
Me.PctTube1.Size = New System.Drawing.Size(32, 16)
Me.PctTube1.TabIndex = 6
Me.PctTube1.TabStop = False
'
'PctQst4
'
Me.PctQst4.BackColor = System.Drawing.Color.Transparent
Me.PctQst4.Image = Global.Portal.My.Resources.Resources.Question
Me.PctQst4.Location = New System.Drawing.Point(166, 181)
Me.PctQst4.Name = "PctQst4"
Me.PctQst4.Size = New System.Drawing.Size(16, 16)
Me.PctQst4.TabIndex = 4
Me.PctQst4.TabStop = False
'
'PctQst2
'
Me.PctQst2.BackColor = System.Drawing.Color.Transparent
Me.PctQst2.Image = Global.Portal.My.Resources.Resources.Question
Me.PctQst2.Location = New System.Drawing.Point(134, 181)
Me.PctQst2.Name = "PctQst2"
Me.PctQst2.Size = New System.Drawing.Size(16, 16)
Me.PctQst2.TabIndex = 2
Me.PctQst2.TabStop = False
'
'PctQst1
'
Me.PctQst1.BackColor = System.Drawing.Color.Transparent
Me.PctQst1.Image = Global.Portal.My.Resources.Resources.Question
Me.PctQst1.Location = New System.Drawing.Point(71, 181)
Me.PctQst1.Name = "PctQst1"
Me.PctQst1.Size = New System.Drawing.Size(16, 16)
Me.PctQst1.TabIndex = 1
Me.PctQst1.TabStop = False
'
'PctGround
'
Me.PctGround.BackgroundImage = Global.Portal.My.Resources.Resources.Dirt
Me.PctGround.Location = New System.Drawing.Point(0, 232)
Me.PctGround.Name = "PctGround"
Me.PctGround.Size = New System.Drawing.Size(656, 49)
Me.PctGround.TabIndex = 0
Me.PctGround.TabStop = False
'
'PctBricks1
'
Me.PctBricks1.BackColor = System.Drawing.Color.Transparent
Me.PctBricks1.BackgroundImage = Global.Portal.My.Resources.Resources.Brick
Me.PctBricks1.Location = New System.Drawing.Point(118, 181)
Me.PctBricks1.Name = "PctBricks1"
Me.PctBricks1.Size = New System.Drawing.Size(80, 16)
Me.PctBricks1.TabIndex = 5
Me.PctBricks1.TabStop = False
'
'PctMario
'
Me.PctMario.BackColor = System.Drawing.Color.Transparent
Me.PctMario.Image = Global.Portal.My.Resources.Resources.Mario3
Me.PctMario.Location = New System.Drawing.Point(12, 217)
Me.PctMario.Name = "PctMario"
Me.PctMario.Size = New System.Drawing.Size(15, 16)
Me.PctMario.TabIndex = 29
Me.PctMario.TabStop = False
'
'PctGap1
'
Me.PctGap1.Location = New System.Drawing.Point(657, 232)
Me.PctGap1.Name = "PctGap1"
Me.PctGap1.Size = New System.Drawing.Size(30, 62)
Me.PctGap1.TabIndex = 44
Me.PctGap1.TabStop = False
'
'PctGap2
'
Me.PctGap2.Location = New System.Drawing.Point(852, 233)
Me.PctGap2.Name = "PctGap2"
Me.PctGap2.Size = New System.Drawing.Size(40, 62)
Me.PctGap2.TabIndex = 45
Me.PctGap2.TabStop = False
'
'FrmLevel1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(107, Byte), Integer), CType(CType(140, Byte), Integer), CType(CType(255, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(484, 280)
Me.Controls.Add(Me.PctCastle)
Me.Controls.Add(Me.PictureBox4)
Me.Controls.Add(Me.PictureBox3)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.LblLives)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.LblScore)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.LblTime)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.MenuStrip1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.PctBlue)
Me.Controls.Add(Me.PctOrange)
Me.Controls.Add(Me.PctGround4)
Me.Controls.Add(Me.PctGround3)
Me.Controls.Add(Me.PctQst5)
Me.Controls.Add(Me.PctBricks2)
Me.Controls.Add(Me.PctGround2)
Me.Controls.Add(Me.PctTop4)
Me.Controls.Add(Me.PctTube4)
Me.Controls.Add(Me.PctTop3)
Me.Controls.Add(Me.PctTube3)
Me.Controls.Add(Me.PctTop2)
Me.Controls.Add(Me.PctTube2)
Me.Controls.Add(Me.PctTop1)
Me.Controls.Add(Me.PctTube1)
Me.Controls.Add(Me.PctQst4)
Me.Controls.Add(Me.PctQst2)
Me.Controls.Add(Me.PctQst1)
Me.Controls.Add(Me.PctGround)
Me.Controls.Add(Me.PctBricks1)
Me.Controls.Add(Me.PctMario)
Me.Controls.Add(Me.PctGap1)
Me.Controls.Add(Me.PctGap2)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "FrmLevel1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "World 1-1"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.PctCastle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctBlue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctOrange, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctGround4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctGround3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctQst5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctBricks2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctGround2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctTop4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctTube4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctTop3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctTube3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctTop2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctTube2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctTop1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctTube1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctQst4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctQst2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctQst1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctGround, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctBricks1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctMario, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctGap1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PctGap2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents PctGround As System.Windows.Forms.PictureBox
Friend WithEvents PctQst1 As System.Windows.Forms.PictureBox
Friend WithEvents PctQst2 As System.Windows.Forms.PictureBox
Friend WithEvents PctQst4 As System.Windows.Forms.PictureBox
Friend WithEvents PctBricks1 As System.Windows.Forms.PictureBox
Friend WithEvents PctTube1 As System.Windows.Forms.PictureBox
Friend WithEvents PctTop1 As System.Windows.Forms.PictureBox
Friend WithEvents PctTop2 As System.Windows.Forms.PictureBox
Friend WithEvents PctTube2 As System.Windows.Forms.PictureBox
Friend WithEvents PctTop3 As System.Windows.Forms.PictureBox
Friend WithEvents PctTube3 As System.Windows.Forms.PictureBox
Friend WithEvents PctTop4 As System.Windows.Forms.PictureBox
Friend WithEvents PctTube4 As System.Windows.Forms.PictureBox
Friend WithEvents PctGround2 As System.Windows.Forms.PictureBox
Friend WithEvents PctBricks2 As System.Windows.Forms.PictureBox
Friend WithEvents PctQst5 As System.Windows.Forms.PictureBox
Friend WithEvents PctGround3 As System.Windows.Forms.PictureBox
Friend WithEvents PctGround4 As System.Windows.Forms.PictureBox
Friend WithEvents PctMario As System.Windows.Forms.PictureBox
Friend WithEvents TmrJump As System.Windows.Forms.Timer
Friend WithEvents TmrUpdate As System.Windows.Forms.Timer
Friend WithEvents TmrFall As System.Windows.Forms.Timer
Friend WithEvents PctOrange As System.Windows.Forms.PictureBox
Friend WithEvents PctBlue As System.Windows.Forms.PictureBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TmrWait As System.Windows.Forms.Timer
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents OptionsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents RestartToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ExitApplicationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ChangeNextJumpHeightToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents MaxToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents MediumToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents NormalToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SmallToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents NoneToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents LblTime As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents LblScore As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents LblLives As System.Windows.Forms.Label
Friend WithEvents PctGap1 As System.Windows.Forms.PictureBox
Friend WithEvents PctGap2 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents PctCastle As System.Windows.Forms.PictureBox
End Class World 2 VB:
'*Note: The code for FrmLevel1 - FrmLevel3 is the same.
Public Class FrmLevel1
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Public Loader As String = "Fake"
Dim Ani(4) As Image 'For animation Mario's movements
Dim Ground As Integer
Dim AnimationCounter, DelayCounter As Integer
Dim Velocity_y, Velocity_x As Integer
Dim DistanceOrange, DistanceBlue, PortalDistance As Integer
Dim Orange, Blue As Integer 'The portals
Dim Gravity As Integer = 3
Dim Right, closes As Boolean 'Direction Mario is traveling
Dim collision1 As Boolean = False
Dim collision2 As Boolean = False
Dim Safety As Boolean = False 'Used to stop errors when jumping
Dim Wait As Boolean = False
Dim Jumping As Boolean = False
Dim SideScroll As Boolean = False
Dim Portaling As Boolean = False
Private Sub FrmLevel1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Ground = PctGround.Top - 16
closes = True
AnimationCounter = 1
Ani(0) = My.Resources.Mario0
Ani(1) = My.Resources.Mario1
Ani(2) = My.Resources.Mario2
Ani(3) = My.Resources.Mario3
End Sub
Private Sub TmrUpdate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrUpdate.Tick
Call Collisions() 'Checks if mario is near an wall or is ontop of a wall. Sets new ground and controls falling
Call Portals() 'For when mario is traveling through portals. He goes in one way and comes out the other... Basically fast things go in, fast things go out.
Call UpdateLabels() 'Updates the labels at the top of the screen score,time,lives,ect.
End Sub
Private Sub UpdateLabels()
FrmScore.intTime += 1
LblTime.Text = FrmScore.intTime
LblScore.Text = FrmScore.intScore
LblLives.Text = "x " & FrmScore.intLives
End Sub
Private Sub Collisions() 'Checks if characters location comes close to an objects location
Dim Cord(1) As Integer 'Cord(0) = X Cord(1) = Y
Cord(0) = PctMario.Left
Cord(1) = PctMario.Top
'Algorithm for running into walls moving right: If Mario's Left is greater than the walls left AND marios left is less than the walls width/2 AND his height is less than the top of the wall: Collision1 = true
'The Algorithm for running into wall moving left is similar.
If Cord(0) > PctCastle.Left + 5 Then
Call Win()
End If
'Running into wall (moving right):
If (Cord(0) + PctMario.Width) > PctTop1.Left And (Cord(0) + PctMario.Width) < (PctTop1.Left + (PctTop1.Width / 2)) And Cord(1) > PctTop1.Top Then
collision1 = True
ElseIf (Cord(0) + PctMario.Width) > PctTop2.Left And (Cord(0) + PctMario.Width) < (PctTop2.Left + (PctTop2.Width / 2)) And Cord(1) > PctTop2.Top Then
collision1 = True
ElseIf (Cord(0) + PctMario.Width) > PctTop3.Left And (Cord(0) + PctMario.Width) < (PctTop3.Left + (PctTop3.Width / 2)) And Cord(1) > PctTop3.Top Then
collision1 = True
ElseIf (Cord(0) + PctMario.Width) > PctTop4.Left And (Cord(0) + PctMario.Width) < (PctTop4.Left + (PctTop4.Width / 2)) And Cord(1) > PctTop4.Top Then
collision1 = True
ElseIf (Cord(0) + PctMario.Width) > PctQst1.Left And (Cord(0) + PctMario.Width) < (PctQst1.Left + (PctQst1.Width / 2)) And Cord(1) > PctQst1.Top And Cord(1) < PctQst1.Top - 16 Then
collision1 = True
ElseIf (Cord(0) + PctMario.Width) > PctBricks1.Left And (Cord(0) + PctMario.Width) < (PctBricks1.Left + (PctBricks1.Width / 2)) And Cord(1) > PctBricks1.Top And Cord(1) < PctBricks1.Top - 16 Then
collision1 = True
ElseIf (Cord(0) + PctMario.Width) > PctBricks2.Left And (Cord(0) + PctMario.Width) < (PctBricks2.Left + (PctBricks1.Width / 2)) And Cord(1) > PctBricks2.Top And Cord(1) < PctBricks2.Top - 16 Then
collision1 = True
Else
collision1 = False
End If
'Running into wall (moving left):
If Cord(0) < (PctTop1.Left + PctTop1.Width) And Cord(0) > (PctTop1.Left + (PctTop1.Width / 2)) And Cord(1) > PctTop1.Top Then 'WALL ONE
collision2 = True
ElseIf Cord(0) < (PctTop2.Left + PctTop2.Width) And Cord(0) > (PctTop2.Left + (PctTop2.Width / 2)) And Cord(1) > PctTop2.Top Then 'WALL ONE
collision2 = True
ElseIf Cord(0) < (PctTop3.Left + PctTop3.Width) And Cord(0) > (PctTop3.Left + (PctTop3.Width / 2)) And Cord(1) > PctTop3.Top Then 'WALL ONE
collision2 = True
ElseIf Cord(0) < (PctTop4.Left + PctTop4.Width) And Cord(0) > (PctTop4.Left + (PctTop4.Width / 2)) And Cord(1) > PctTop4.Top Then 'WALL ONE
collision2 = True
ElseIf Cord(0) < (PctQst1.Left + PctQst1.Width) And Cord(0) > (PctQst1.Left + (PctQst1.Width / 2)) And Cord(1) > PctQst1.Top And Cord(1) < PctQst1.Top - 16 Then 'WALL ONE
collision2 = True
ElseIf Cord(0) < (PctBricks1.Left + PctBricks1.Width) And Cord(0) > (PctBricks1.Left + (PctBricks1.Width / 2)) And Cord(1) > PctBricks1.Top And Cord(1) < PctBricks1.Top - 16 Then 'WALL ONE
collision2 = True
ElseIf Cord(0) < (PctBricks2.Left + PctBricks2.Width) And Cord(0) > (PctBricks2.Left + (PctBricks2.Width / 2)) And Cord(1) > PctBricks2.Top And Cord(1) < PctBricks2.Top - 16 Then 'WALL ONE
collision2 = True
Else
collision2 = False
End If
'Setting New ground:
If Cord(0) + 10 > PctTop1.Left And Cord(0) < PctTop1.Left + PctTop1.Width And Cord(1) < PctTop1.Top + 10 Then
If PctTop1.Top - 16 <> Ground And Safety = True Then
'If the new ground has not already been set and the player is still jumping
'First set the ground
Ground = PctTop1.Top - 16
'PctMario.Top = Ground
Safety = False
Else
'Do nothing
End If
ElseIf Cord(0) + 10 > PctGap1.Left And Cord(0) < PctGap1.Left + PctGap1.Width And Cord(1) < PctGap1.Top + 16 Then
If 1 + 1 = 2 Then
Ground = Me.Height + 16
Safety = False
If PctMario.Top > PctGround.Top Then
Call death()
End If
Else
End If
ElseIf Cord(0) + 10 > PctGap2.Left And Cord(0) < PctGap2.Left + PctGap2.Width And Cord(1) < PctGap1.Top + 16 Then
If 1 + 1 = 2 Then 'One would hope that 1+1=2
Ground = Me.Height + 16
Safety = False
If PctMario.Top > PctGround.Top Then
Call death()
End If
Else
End If
ElseIf Cord(0) + 10 > PctTop2.Left And Cord(0) < PctTop2.Left + PctTop2.Width - 4 And Cord(1) < PctTop2.Top + 10 Then
If PctTop2.Top - 16 <> Ground And Safety = True Then
Ground = PctTop2.Top - 16
Safety = False
Else
End If
ElseIf Cord(0) + 10 > PctTop3.Left And Cord(0) < PctTop3.Left + PctTop3.Width - 4 And Cord(1) < PctTop3.Top + 10 Then
If PctTop3.Top - 16 <> Ground And Safety = True Then
Ground = PctTop3.Top - 16
Safety = False
Else
End If
ElseIf Cord(0) + 10 > PctTop4.Left And Cord(0) < PctTop4.Left + PctTop4.Width - 4 And Cord(1) < PctTop4.Top + 10 Then
If PctTop4.Top - 16 <> Ground And Safety = True Then
Ground = PctTop4.Top - 16
Safety = False
Else
End If
ElseIf Cord(0) + 10 > PctQst1.Left And Cord(0) < PctQst1.Left + PctQst1.Width And Cord(1) < PctQst1.Top + 10 Then
If PctQst1.Top - 16 <> Ground And Safety = True Then
Ground = PctQst1.Top - 16
Safety = False
Else
End If
ElseIf Cord(0) + 10 > PctBricks1.Left And Cord(0) < PctBricks1.Left + PctBricks1.Width And Cord(1) < PctBricks1.Top + 10 Then
If PctBricks1.Top - 16 <> Ground And Safety = True Then
Ground = PctBricks1.Top - 16
Safety = False
Else
End If
ElseIf Cord(0) + 10 > PctBricks2.Left And Cord(0) < PctBricks2.Left + PctBricks2.Width And Cord(1) < PctBricks2.Top + 10 Then
If PctBricks1.Top - 16 <> Ground And Safety = True Then
Ground = PctBricks2.Top - 16
Safety = False
Else
End If
Else
Ground = PctGround.Top - 16
End If
'Falling is Seperate from collision, but saves processing to not have two timers:
If PctMario.Top < Ground And Jumping = False Then
TmrFall.Start()
End If
End Sub
Private Sub Portals()
DistanceOrange = Math.Abs(PctMario.Top - PctOrange.Top)
DistanceBlue = Math.Abs(PctMario.Top - PctBlue.Top)
Label4.Text = "BLUE: " & vbCrLf & PctBlue.Location.X.ToString & vbCrLf & PctBlue.Location.Y.ToString & vbCrLf & vbCrLf & "ORANGE: " & vbCrLf & PctOrange.Location.X & vbCrLf & PctOrange.Location.Y.ToString
PortalDistance = -(Math.Sqrt((PctOrange.Location.X - PctBlue.Location.X) ^ 2 + ((-PctBlue.Location.Y) - (-PctOrange.Location.Y)) ^ 2))
Label2.Text = PortalDistance
If PctBlue.Left < PctOrange.Left Then
Right = False
Else
Right = True
End If
Label3.Text = Right.ToString
'Portaling
If Wait = False AndAlso PctMario.Left > PctOrange.Left And PctMario.Left < PctOrange.Left + 40 And DistanceOrange < 14 Then
Velocity_y = -Velocity_y
If Right = True Then
Velocity_x = -PortalDistance
Call Movement()
Else
Velocity_x = PortalDistance
Call Movement()
End If
PctMario.Left = PctBlue.Left + 16
PctMario.Top = PctBlue.Top - 16
Portaling = True 'Check
Call JumpCollision()
Jumping = True
TmrJump.Start()
Safety = True
Wait = True
TmrWait.Start()
End If
If Wait = False AndAlso PctMario.Left > PctBlue.Left And PctMario.Left < PctBlue.Left + 40 And DistanceBlue < 14 Then
Velocity_y = -Velocity_y
If Right = True Then
Velocity_x = PortalDistance
Call Movement()
Else
Velocity_x = -PortalDistance
Call Movement()
End If
PctMario.Left = PctOrange.Left + 16
PctMario.Top = PctOrange.Top - 16
Portaling = True 'Check
Call JumpCollision()
Jumping = True
TmrJump.Start()
Safety = True
Wait = True
TmrWait.Start()
End If
End Sub
Private Sub JumpCollision()
'--------------------------------------------'
Dim Cord(1) As Integer 'Cord(0) = Cord(0) Cord(1) = Y
Cord(0) = PctMario.Left
Cord(1) = PctMario.Top
Try
mciSendString("close " & Loader, CStr(0), 0, 0)
Catch ex As Exception
'Do Nothing
End Try
Try
Dim musicAlias As String = "myAudio"
Dim musicPath As String = Form1.Drive
mciSendString("Open " & Chr(34) & musicPath & Chr(34) & " alias " & musicAlias, CStr(0), 0, 0)
mciSendString("play " & musicAlias, CStr(0), 0, 0)
Loader = musicAlias 'So I can close the sound after each just so it can be used for the next
Catch ex As Exception
'Do Nothing
End Try
'---------------------------------------------'
If Cord(0) > (PctQst1.Left - 5) And Cord(0) < (PctQst1.Left + 16) And Cord(1) > PctQst1.Top Then
Velocity_y = -9
ElseIf Cord(0) > (PctBricks1.Left - 5) And Cord(0) < (PctBricks1.Left + (16 * 4) + 16) And Cord(1) > PctBricks1.Top Then
Velocity_y = -9
ElseIf Cord(0) > (PctBricks2.Left - 5) And Cord(0) < (PctBricks2.Left + (48)) And Cord(1) > PctBricks2.Top Then
Velocity_y = -9
ElseIf Portaling = False Then
Velocity_y = -22
ElseIf Portaling = True Then
Velocity_y = Velocity_y
End If
Portaling = False
End Sub
Private Sub FrmLevel1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If PctMario.Left > Math.Round(Me.Width / 2) Then
SideScroll = True
ElseIf PctGround.Left + 10 > 0 Then
SideScroll = False
End If
If PctMario.Left < 5 Then
collision2 = True
End If
If SideScroll = False Then
If e.KeyCode = Keys.Space And Jumping = False Then
Call JumpCollision()
Jumping = True
TmrJump.Start()
Safety = True
End If
If e.KeyCode = Keys.D And collision1 = False Then
Velocity_x = 4
Call Animation()
PctMario.Left += 4
End If
If e.KeyCode = Keys.A And collision2 = False Then
Velocity_x = -4
Call Animation()
PctMario.Left -= 4
End If
Else
PctMario.Left = Math.Round(Me.Width / 2)
If e.KeyCode = Keys.Space And Jumping = False Then
Call JumpCollision()
Jumping = True
TmrJump.Start()
Safety = True
End If
If e.KeyCode = Keys.D And collision1 = False Then
Velocity_x = 4
Call Animation()
Call Movement()
End If
If e.KeyCode = Keys.A And collision2 = False Then
Velocity_x = -4
Call Animation()
Call Movement()
End If
End If
End Sub
Private Sub TmrJump_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrJump.Tick
If PctMario.Top + Velocity_y < (Ground - 2) And Jumping = True Then
PctMario.Top += Velocity_y
Velocity_y += Gravity
Else
Jumping = False
End If
If Jumping = False Then
TmrJump.Stop()
PctMario.Top = Ground
End If
End Sub
Private Sub Animation()
If DelayCounter = 1 Then
PctMario.Image = Ani(AnimationCounter)
AnimationCounter += 1
If AnimationCounter = 4 Then
AnimationCounter = 1
End If
DelayCounter = 0
Else
DelayCounter += 1
End If
End Sub
Private Sub Movement()
PctBricks1.Left -= Velocity_x
PctBricks2.Left -= Velocity_x
PctGround.Left -= Velocity_x
PctGround2.Left -= Velocity_x
PctGround3.Left -= Velocity_x
PctGround4.Left -= Velocity_x
PctQst1.Left -= Velocity_x
PctQst2.Left -= Velocity_x
PctQst4.Left -= Velocity_x
PctQst5.Left -= Velocity_x
PctTop1.Left -= Velocity_x
PctTop2.Left -= Velocity_x
PctTop3.Left -= Velocity_x
PctTop4.Left -= Velocity_x
PctTube1.Left -= Velocity_x
PctTube2.Left -= Velocity_x
PctTube3.Left -= Velocity_x
PctTube4.Left -= Velocity_x
PctOrange.Left -= Velocity_x
PctBlue.Left -= Velocity_x
PctGap1.Left -= Velocity_x
PctGap2.Left -= Velocity_x
PctCastle.Left -= Velocity_x
End Sub
Private Sub Complete() 'Once level completed Call this Sub to update the level
'FrmScore.intLevel = 1
'FrmScore.Show()
'Me.Close()
End Sub
Private Sub TmrFall_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrFall.Tick
If PctMario.Top + Velocity_y < (Ground - 2) Then
PctMario.Top += Velocity_y
Velocity_y += Gravity
Else
TmrFall.Stop()
PctMario.Top = Ground
End If
End Sub
'The following code segments place the portals where they are click in the game
Private Sub PctGround_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PctGround.MouseClick
If e.Button = Windows.Forms.MouseButtons.Left Then
PctOrange.Left = (PctGround.Left + (e.X - 16))
PctOrange.Top = (PctGround.Top - 3)
Orange = 0
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
PctBlue.Left = (PctGround.Left + (e.X - 16))
PctBlue.Top = (PctGround.Top - 3)
Blue = 0
End If
End Sub
Private Sub PctBricks1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PctBricks1.MouseClick
Label1.Text = e.Y.ToString & vbCrLf & e.X.ToString
If e.Y < 8 AndAlso e.Button = Windows.Forms.MouseButtons.Left Then
PctOrange.Left = (PctBricks1.Left + (e.X - 16))
PctOrange.Top = PctBricks1.Top - 3
Orange = 0
ElseIf e.Y > 8 And e.Button = Windows.Forms.MouseButtons.Left Then
PctOrange.Left = (PctBricks1.Left + (e.X - 16))
PctOrange.Top = PctBricks1.Top + 16
Orange = 1
ElseIf e.Y < 8 And e.Button = Windows.Forms.MouseButtons.Right Then
PctBlue.Left = (PctBricks1.Left + (e.X - 16))
PctBlue.Top = PctBricks1.Top - 3
Blue = 0
ElseIf e.Y > 8 And e.Button = Windows.Forms.MouseButtons.Right Then
PctBlue.Left = (PctBricks1.Left + (e.X - 16))
PctBlue.Top = PctBricks1.Top + 16
Blue = 1
End If
End Sub
Private Sub PctGround2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PctGround2.MouseClick
If e.Button = Windows.Forms.MouseButtons.Left Then
PctOrange.Left = (PctGround2.Left + (e.X - 16))
PctOrange.Top = (PctGround2.Top - 3)
Orange = 0
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
PctBlue.Left = (PctGround2.Left + (e.X - 16))
PctBlue.Top = (PctGround2.Top - 3)
Blue = 0
End If
End Sub
Private Sub PctGround3_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PctGround3.MouseClick
If e.Button = Windows.Forms.MouseButtons.Left Then
PctOrange.Left = (PctGround3.Left + (e.X - 16))
PctOrange.Top = (PctGround3.Top - 3)
Orange = 0
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
PctBlue.Left = (PctGround3.Left + (e.X - 16))
PctBlue.Top = (PctGround3.Top - 3)
Blue = 0
End If
End Sub
Private Sub PctGround4_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PctGround4.MouseClick
If e.Button = Windows.Forms.MouseButtons.Left Then
PctOrange.Left = (PctGround4.Left + (e.X - 16))
PctOrange.Top = (PctGround4.Top - 3)
Orange = 0
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
PctBlue.Left = (PctGround4.Left + (e.X - 16))
PctBlue.Top = (PctGround4.Top - 3)
Blue = 0
End If
End Sub
Private Sub TmrWait_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrWait.Tick
Wait = False
TmrWait.Stop()
End Sub
Private Sub RestartToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RestartToolStripMenuItem.Click
Application.Restart()
End Sub
Private Sub ExitApplicationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitApplicationToolStripMenuItem.Click
Application.Exit()
End Sub
Private Sub death()
FrmScore.intLives -= 1
FrmScore.Show()
FrmScore.TmrPause.Start()
FrmScore.LblLives.Text = "x " & FrmScore.intLives
FrmScore.LblScore.Text = FrmScore.intScore
FrmScore.LblTime.Text = FrmScore.intTime
closes = False
Me.Close()
End Sub
Private Sub Win()
FrmScore.intLives += 1
FrmScore.Show()
FrmScore.intScore += 500
FrmScore.intLevel = 1
FrmScore.TmrPause.Start()
FrmScore.LblLives.Text = "x " & FrmScore.intLives
FrmScore.LblScore.Text = FrmScore.intScore
FrmScore.LblTime.Text = FrmScore.intTime
closes = False
Me.Close()
End Sub
Private Sub FrmLevel1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If closes = True Then
Application.Exit()
End If
End Sub
End Class And all the other words have very similar code to the first one so I will not bother posting that.
DOWNLOAD:
In this file is the game + the source code / resources
[ Register or Signin to view external links. ]
if you liked it i guess you could leave a like or something
#2. Posted:
Status: Offline
Joined: Aug 14, 200915Year Member
Posts: 1,291
Reputation Power: 65
Status: Offline
Joined: Aug 14, 200915Year Member
Posts: 1,291
Reputation Power: 65
I tried to play it but I couldn't get passed the pipe because the jump is really screwed up. Like if you're moving forward, and you jump, you just go straight up, not sideways. Also, you can't maneuver Mario while he's in the air, which makes it REALLY hard to jump over things, I couldn't even figure out how to. The game just feels laggy over all, not sure why. I wish I could give you some tips on how to improve your game, but I have no experience in game development.
- 0useful
- 0not useful
#3. Posted:
Status: Offline
Joined: Jan 21, 201212Year Member
Posts: 17
Reputation Power: 0
Experiment5X wrote I tried to play it but I couldn't get passed the pipe because the jump is really screwed up. Like if you're moving forward, and you jump, you just go straight up, not sideways. Also, you can't maneuver Mario while he's in the air, which makes it REALLY hard to jump over things, I couldn't even figure out how to. The game just feels laggy over all, not sure why. I wish I could give you some tips on how to improve your game, but I have no experience in game development.
The key is to Jump -> then move forward
not hold down on the 'd' key.
The reason it does that is because VB can't accept two key strokes into a Boolean expression. I need to switch to Allegro.
- 0useful
- 0not useful
#4. Posted:
Status: Offline
Joined: Aug 17, 201113Year Member
Posts: 1,444
Reputation Power: 75
Status: Offline
Joined: Aug 17, 201113Year Member
Posts: 1,444
Reputation Power: 75
Nice man can you make it just so i get the application? like not making it myself
- 1useful
- 0not useful
You are viewing our Forum Archives. To view or take place in current topics click here.