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