spieleprogrammierer.de - Forum und Wiki zur Spieleprogrammierung und Spieleentwicklung

Ich habe begonnen ein Spiel zu Programmieren in Visual Basic (ich weiß das es eigentlich nicht dazu geeignet ist)
und bin da ich leider ein kleiner Noob bin schnell an meine Grenzen gestoßen und such ich Leute die Lust hätten mir dabei zu helfen(mir Tipps bei einzelnen Code Zeilen geben und oder mir helfen die Fehler zu beseitigen) das Spiel ist ein kleines 2D Jump'n'Run
Ich stelle was ich bisher geschafft hab einmal zum Download bereit damit ihr euch selbst ein Bild machen könnt
Download: http://www.mediafire.com/?r66flii110mxbnx
Wer interesse hat kann sich einfach bei mir Melden
Aufgrund von Anfrage hier noch einmal der Code:



Public Class Level1
Dim rl As Integer = 0 'rl = rechts-links wert 0 = rechts
Dim coins As Integer = 5
Dim coinspoints As Integer = 0
Private Sub Level1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Windows.Forms.Keys.Right Then
If rl = 0 Then
Emoman.Image = My.Resources.R1
rl = 1
Else
Emoman.Image = My.Resources.R2
rl = 0
End If
Emoman.Left += 30
End If
If e.KeyCode = Windows.Forms.Keys.Left Then
If rl = 0 Then
Emoman.Image = My.Resources.L1
rl = 1
Else
Emoman.Image = My.Resources.L2
rl = 0
End If
Emoman.Left -= 30
End If


If e.KeyCode = Windows.Forms.Keys.Up Then
If upsperre.Enabled = False Then
Emoman.Top -= 60
timerdown.Enabled = True
upsperre.Enabled = True
End If
End If
Call Bodencheck()
End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles Boden3.Click

End Sub

Private Sub Beenden_Click(sender As System.Object, e As System.EventArgs)
End
End Sub

Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles Emoman.Click

End Sub

Private Sub PictureBox1_Click_1(sender As System.Object, e As System.EventArgs) Handles points.Click

End Sub

Private Sub PictureBox2_Click_1(sender As System.Object, e As System.EventArgs) Handles PictureBox2.Click

End Sub

Private Sub Punkte_Click(sender As System.Object, e As System.EventArgs) Handles Punkte.Click

End Sub

Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
End
End Sub

Private Sub Level1_MouseCaptureChanged(sender As Object, e As System.EventArgs) Handles Me.MouseCaptureChanged

End Sub

Private Sub upsperre_Tick(sender As System.Object, e As System.EventArgs) Handles upsperre.Tick
upsperre.Enabled = False
End Sub

Private Sub timerdown_Tick(sender As System.Object, e As System.EventArgs) Handles timerdown.Tick

If Emoman.Bottom >= Boden2.Top And Emoman.Left >= Boden2.Left And Emoman.Right <= Boden2.Right Then
timerdown.Enabled = False
Else

Emoman.Top += 60
timerdown.Enabled = False
End If
Call Bodencheck()
End Sub
Private Sub Bodencheck()

If Emoman.Bottom = stacheln.Top And Emoman.Left >= stacheln.Left And Emoman.Right <= stacheln.Right Then
Emoman.Left = 0
Emoman.Top = 240
End If
If Not Emoman.Bottom = Boden1.Top Then
timerdown.Enabled = True
End If
If Emoman.Bottom = tor.Bottom And Emoman.Left = tor.Left And Emoman.Right = tor.Right Then
level2.Show()
Emoman.Left = 0
Emoman.Top = 240
Me.Hide()
End If
If Emoman.Top = points.Bottom And Emoman.Left >= points.Left And Emoman.Right <= points.Right Then
If Not coins = 0 Then
coins -= 1
coinspoints += 1
Punkte.Text = coinspoints.ToString
If coins = 0 Then
points.Image = My.Resources.stachel
End If
End If
End If
End Sub
End Class