spaceInvaders_notdone

Public Class Form1

    Public enemyList As New List(Of PictureBox)
    Public fortressList As New List(Of PictureBox)
    Public moveAmt As Integer
    Public score As Integer

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

    End Sub

    Public Sub initGame()
        moveAmt = 5
        score = 0
        lblScore.Text = score
        picBullet.Visible = False

        enemyList.Add(picEnemy1)
        enemyList.Add(picEnemy2)
        enemyList.Add(picEnemy3)
        enemyList.Add(picEnemy4)
        enemyList.Add(picEnemy5)
        enemyList.Add(picEnemy6)
        enemyList.Add(picEnemy7)
        enemyList.Add(picEnemy8)
        enemyList.Add(picEnemy9)
        enemyList.Add(picEnemy10)
        enemyList.Add(picEnemy11)
        enemyList.Add(picEnemy12)
        enemyList.Add(picEnemy13)
        enemyList.Add(picEnemy14)
        enemyList.Add(picEnemy15)
        enemyList.Add(picEnemy16)

        fortressList.Add(picFort1)
        fortressList.Add(picFort2)
        fortressList.Add(picFort3)
        fortressList.Add(picFort4)


    End Sub

    Private Sub picBullet_Click(sender As Object, e As EventArgs) Handles picBullet.Click

    End Sub

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

        'move ship
        If e.KeyCode = Keys.Left Then
            picShip.Left = picShip.Left - 3
        ElseIf e.KeyCode = Keys.Right Then
            picShip.Left = picShip.Left + 3
        End If

        'dont refire the same bullet
        If picBullet.Visible = True Then
            Exit Sub
        End If

        'fire bubble
        If e.KeyCode = Keys.Space Then
            picBullet.Visible = True
            picBullet.Top = picShip.Top
            picBullet.Left = picShip.Left + picShip.Width / 2 - picBullet.Width / 2
        End If

    End Sub

    Private Sub tmrMoveBullet_Tick(sender As Object, e As EventArgs) Handles tmrMoveBullet.Tick

        'move bullet
        If picBullet.Visible = True Then
            picBullet.Top = picBullet.Top - 5
        End If

        'hide bullet is missed
        If picBullet.Top <= 0 Then
            picBullet.Visible = False
        End If

    End Sub

    Public Function detectHits(p1 As PictureBox, p2 As PictureBox) As Boolean
        If ((p1.Left + p1.Width > p2.Left) And
                (p1.Left < p2.Left + p2.Width) And
                (p1.Top + p1.Height > p2.Top) And
                (p1.Top < p2.Top + p2.Height)) Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Sub tmrCollision_Tick(sender As Object, e As EventArgs) Handles tmrCollision.Tick
        Dim p As PictureBox

        If picBullet.Visible = False Then
            Exit Sub
        End If

        For Each p In enemyList
            If p.Visible = True Then
                If detectHits(picBullet, p) Then
                    picBullet.Visible = False
                    p.Visible = False
                    score = score + 1
                    lblscore.text = score
                    'CHECK IF ROUND OVER
                End If
            End If
        Next

    End Sub
End Class