Hallo Community
ich Programmiere ein 2D 'StarGate' Adventure Spiel und habe Folgendes Problem.
Ich möchte eine Art 'Waffe' (Laser Schüsse) vom Raumschiff zu einer Bestimmten Position senden.
Also ich habe es versucht und habe bis jetzt das :
Code aus dem Draw Event für jedes Bullet
Bild von der Umgebung(Die Gelb / Orangen Linien sind meine versuche.
Dabei soll nur immer ein Laser als Bullet abgeschossen werden.
Also um Hilfe wäre ich euch sehr Dankbar wenn ihr Verbesserung Vorschläge habt immer her damit möchte das so gut wie Möglich machen.
MFG
CypherTrix
ich Programmiere ein 2D 'StarGate' Adventure Spiel und habe Folgendes Problem.
Ich möchte eine Art 'Waffe' (Laser Schüsse) vom Raumschiff zu einer Bestimmten Position senden.
Also ich habe es versucht und habe bis jetzt das :
VB.NET-Quellcode
- Public Class Bullet
- 'Public Variables
- Public Typ As String
- Public FirstLocation As Point
- Public LastLocation As Point
- 'List of all Bullets
- Public Shared Bullets As New List(Of Bullet)
- Public Shared Function CreateBullet(ByRef Bullet As Bullet, ByRef FirstLocation As Point, ByRef LastLocation As Point, Optional ByRef Typ As String = "Laser")
- 'create new bullets for the list
- Try
- Bullet = New Bullet
- With Bullet
- .FirstLocation = FirstLocation
- .LastLocation = LastLocation
- .Typ = Typ
- End With
- Bullets.Add(Bullet)
- Return True
- Catch ex As Exception
- Return False
- End Try
- End Function
- Public Shared Sub UpdateBullet()
- 'Update every bullet every tick
- For Each Bullet As Bullet In Bullet.Bullets
- If New Rectangle(Bullet.FirstLocation, Bullet.LastLocation).IntersectsWith(New Rectangle(GameScreen.Location, GameScreen.Size)) = False Then
- Bullets.RemoveAt(Bullets.IndexOf(Bullet))
- Else
- Bullet.FirstLocation.X += 10
- Bullet.FirstLocation.Y += 10
- Bullet.LastLocation.X += 10
- Bullet.LastLocation.Y += 10
- End If
- Next
- End Sub
- End Class
Code aus dem Draw Event für jedes Bullet
Bild von der Umgebung(Die Gelb / Orangen Linien sind meine versuche.
Dabei soll nur immer ein Laser als Bullet abgeschossen werden.
Also um Hilfe wäre ich euch sehr Dankbar wenn ihr Verbesserung Vorschläge habt immer her damit möchte das so gut wie Möglich machen.
MFG
CypherTrix