Hallo liebe Community!
Ich entwickle momentan ein Jump 'n' Run Game, soll so ähnlich werden wie The Impossible Game.
Ich bin auch schon zu 90% fertig aber ein wichtiges Problem besteht noch undzwar, ich habe mir auch für mein Spiel einen Editor gebaut das halt andere Leute für das Spiel Levels erstellen können.
In dem Editor kann man halt Blöcke platzieren und der Spieler kann durch die Blöcke nicht hindurchfallen.
In meinem Spiel werden Block zu Block die "Blöcke" erstellt und in ein "map" Panel hineingeladen.
Jenach Block-Typ werden die PictureBoxen anders bennant. Beispiel: Jeder Block bekommt den Namen: block, jedes Hinderniss bekommt den Namen: spike
Jeden erstellten Block kommt in einer
Dies ist mein bisheriger Collisions-Code:
Falls Ihr mehr Code benötigt bitte schreiben.
Hoffentlich könnt Ihr mir helfen!!
Ich entwickle momentan ein Jump 'n' Run Game, soll so ähnlich werden wie The Impossible Game.
Ich bin auch schon zu 90% fertig aber ein wichtiges Problem besteht noch undzwar, ich habe mir auch für mein Spiel einen Editor gebaut das halt andere Leute für das Spiel Levels erstellen können.
In dem Editor kann man halt Blöcke platzieren und der Spieler kann durch die Blöcke nicht hindurchfallen.
In meinem Spiel werden Block zu Block die "Blöcke" erstellt und in ein "map" Panel hineingeladen.
Jenach Block-Typ werden die PictureBoxen anders bennant. Beispiel: Jeder Block bekommt den Namen: block, jedes Hinderniss bekommt den Namen: spike
Jeden erstellten Block kommt in einer
List(of PictureBox)
Dies ist mein bisheriger Collisions-Code:
VB.NET-Quellcode
- Private IsJumping as Boolean = False
- Private grounds As New List(Of PictureBox) ' Grounds
- Private Sub checker_tmr_Tick(sender As Object, e As EventArgs) Handles checker_tmr.Tick ' Interval = 1
- Try
- For x = 0 To grounds.Count
- If not player_pb.Bounds.IntersectsWith(grounds(x).Bounds) Then
- down_tmr.start() ' Lässt den Spieler sinken
- IsJumping = True ' Setzt die Variable "IsJumping" auf True damit man weiß das er sich gerade in der Luft befindet
- Next
- Catch ex As Exception
- 'Fehler
- End Try
- End Sub
- ' Dies ist der down Timer (wird auch für den springen Timer benutzt)
- Private Sub down_tmr_Tick(sender As Object, e As EventArgs) Handles down_tmr.Tick ' Interval = 1
- Try
- player_pb.Top += 5
- For x = 0 To grounds.Count
- If player_pb.Bounds.IntersectsWith(grounds(x).Bounds) Then
- 'Rotate_tmr.Stop()
- 'player_pb.BackgroundImage = RotateImage(0, Color.Transparent, My.Resources.player_1)
- down_tmr.Stop()
- isJumping = False
- End If
- Next
- Catch ex As Exception
- 'Fehler
- End Try
- End Sub
Falls Ihr mehr Code benötigt bitte schreiben.
Hoffentlich könnt Ihr mir helfen!!
Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button
Für VB.NET Entwickler: Option Strict On nicht vergessen!
Für VB.NET Entwickler: Option Strict On nicht vergessen!