'===============================================VisualMonsters.cba.pl==========================================================

Public Class Form1

    Dim listaPudloGracz1 As New List(Of Rectangle)
    Dim listaPudloGracz2 As New List(Of Rectangle)
    Dim listatrafioneGracz1 As New List(Of Rectangle)
    Dim listatrafioneGracz2 As New List(Of Rectangle)
    Dim pozwolnaStrzal As Boolean = False

    Dim PlanszaGlowna As New Bitmap(478, 478)

    Dim StrzelnicaGracz1 As New Bitmap(478, 478)
    Dim StrzelnicaGracz2 As New Bitmap(478, 478)

    Private polaGracza1(,) As Rectangle
    Private polaGracza2(,) As Rectangle

    Dim graRozpoczeta As Boolean = False

    Private PolaulozonychokretowGracz1(,) As Boolean
    Private PolaulozonychokretowGracz2(,) As Boolean

#Region "Generuje plansze"
    Private Sub initRectangles()

        Dim g As Graphics = Graphics.FromImage(PlanszaGlowna)

        'inicjujemy ponownie nasze tabele
        ReDim polaGracza1(9, 9)
        ReDim polaGracza2(9, 9)

        ReDim PolaulozonychokretowGracz1(9, 9)
        ReDim PolaulozonychokretowGracz2(9, 9)

        Dim kolorPola As New SolidBrush(Color.FromArgb(60, 255, 0, 0))
        'tworzy bitmapę tła zarówno gracza1 jak i gracza2
        For j As Integer = 0 To 9
            For i As Integer = 0 To 9
                polaGracza1(i, j) = New Rectangle(10 + (46 * j), 10 + (46 * i), 41, 41)
                PolaulozonychokretowGracz1(i, j) = False
                polaGracza2(i, j) = New Rectangle(10 + (46 * j), 10 + (46 * i), 41, 41)
                PolaulozonychokretowGracz2(i, j) = False
                g.FillRectangle(kolorPola, polaGracza1(i, j))
            Next
        Next

        'ustawiamy grafikę tła
        gracz1.Image = PlanszaGlowna
        gracz2.Image = PlanszaGlowna
        PlanszaZOkretamiGracza1 = PlanszaGlowna.Clone()
        PlanszaZOkretamiGracza2 = PlanszaGlowna.Clone()
        g.Dispose()
        Me.Refresh()
    End Sub
#End Region

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

    Dim pozwolNaUmieszczenieOkretu As Boolean = False 'zmienna uniemożliwiająca ulożenie okrętu w miejscu 
    'niedozwolonym
    Dim wybranyokret As Image 'zmienna wymagana jako buffer

#Region "Strefa gracza1"
    Dim PlanszaZOkretamiGracza1 As Bitmap 'plansza podgladowa dla gracza 1
    Dim rodzajOkretuGracz1 As Integer = 0 'pierwszy układany statek


    Private Sub gracz1_MouseMove(sender As Object, e As MouseEventArgs) Handles gracz1.MouseMove
        If graRozpoczeta = False Then
            'tworzymy chwilową podglądową bitmapę
            Dim BitmapaPodgladowa As New Bitmap(PlanszaZOkretamiGracza1)
            Dim g As Graphics = Graphics.FromImage(BitmapaPodgladowa)
            'pętla wychwytuje kwadrat nad którym znajduje się kursor myszy
            For j As Integer = 0 To 9
                For i As Integer = 0 To 9
                    If (polaGracza1(i, j).Location.X - 2 <= e.X And (polaGracza1(i, j).Location.X +
                             polaGracza1(i, j).Width + 2 >= e.X)) And (polaGracza1(i, j).Location.Y - 2 <= e.Y _
                             And (polaGracza1(i, j).Location.Y + polaGracza1(i, j).Height + 2 >= e.Y)) Then
                        'generuje nasz okręt
                        If rodzajOkretuGracz1 = 0 Then
                            Dim czteromasztowy As New Bitmap(41, 180)
                            wybranyokret = czteromasztowy
                        ElseIf rodzajOkretuGracz1 = 1 Then
                            Dim czteromasztowy As New Bitmap(41, 134)
                            wybranyokret = czteromasztowy
                        ElseIf rodzajOkretuGracz1 = 2 Then
                            Dim czteromasztowy As New Bitmap(41, 88)
                            wybranyokret = czteromasztowy
                        ElseIf rodzajOkretuGracz1 = 3 Then
                            Dim czteromasztowy As New Bitmap(41, 41)
                            wybranyokret = czteromasztowy
                        End If
                        'wyświetla na zielono, jeśli okręt można ułożyć
                        'na czerwono jeśli nie można go ułożyć
                        Dim okret As New Bitmap(wybranyokret)
                        If sprawdezczymozna(i, j, rodzajOkretuGracz1, PolaulozonychokretowGracz1) Then
                            pozwolNaUmieszczenieOkretu = True
                            'zmienia kolor każdego pixela
                            For Xcount = 0 To okret.Width - 1
                                Dim Ycount As Integer
                                For Ycount = 0 To okret.Height - 1
                                    Dim curPixColor As Color = okret.GetPixel(Xcount, Ycount)
                                    If curPixColor = Color.FromArgb(0, 0, 0, 0) Then
                                        okret.SetPixel(Xcount, Ycount, Color.FromArgb(100, 0, 255, 0))
                                    End If
                                Next
                            Next
                        Else
                            pozwolNaUmieszczenieOkretu = False
                            For Xcount = 0 To okret.Width - 1
                                Dim Ycount As Integer
                                For Ycount = 0 To okret.Height - 1
                                    Dim curPixColor As Color = okret.GetPixel(Xcount, Ycount)
                                    If curPixColor = Color.FromArgb(0, 0, 0, 0) Then
                                        okret.SetPixel(Xcount, Ycount, Color.FromArgb(100, 255, 0, 0))
                                    End If
                                Next
                            Next
                        End If
                        Dim podswietlenie As New SolidBrush(Color.FromArgb(255, 255, 0, 0))

                        ' w tym miejscu nastąpiła zmiana podglądu
                        g.DrawImage(okret, polaGracza1(i, j).Location.X, polaGracza1(i, j).Location.Y)

                    End If
                Next
            Next
            'dodaje tło do pictureboxa co sprawia wrażenie ruchu
            gracz1.Image = BitmapaPodgladowa
            g.Dispose()
            Me.Refresh()
        Else
            'wstępnie kursor ustawiamy na strzałkę
            Dim cursorHand As Boolean = False
            For j As Integer = 0 To 9
                For i As Integer = 0 To 9
                    If (polaGracza1(i, j).Location.X - 2 <= e.X And (polaGracza1(i, j).Location.X +
                             polaGracza1(i, j).Width + 2 >= e.X)) And (polaGracza1(i, j).Location.Y - 2 <= e.Y _
                             And (polaGracza1(i, j).Location.Y + polaGracza1(i, j).Height + 2 >= e.Y)) Then
                        'sprawdza czy kwadrat nad którym znajduje się kursor nie zawiera się w listach
                        If Not listaPudloGracz2.Contains(polaGracza1(i, j)) And Not listatrafioneGracz2.Contains(polaGracza1(i, j)) Then
                            cursorHand = True
                        End If

                    End If
                Next
            Next
            'ustawia odpowiedni kursor
            If cursorHand = True Then
                Me.Cursor = Cursors.Hand
                pozwolnaStrzal = True
            Else
                Me.Cursor = Cursors.Arrow
                pozwolnaStrzal = False
            End If
        End If
    End Sub


    'Struktura okrętu
    Private Structure Okret
        Dim ZajmowanyObszar As List(Of Rectangle)
        Dim RodzajOkretu As Integer
        Dim ObrazekOkretu As Image
    End Structure
    'kolekcja naszych okrętów
    Private KolekcjaOkretowGracz1 As New Collection

    Private Sub gracz1_MouseClick(sender As Object, e As MouseEventArgs) Handles gracz1.MouseClick
        If graRozpoczeta = False Then
            If pozwolNaUmieszczenieOkretu = True Then
                'Wypełni naszą bitmapę czarnym kolorem
                Dim naszOkret As New Bitmap(wybranyokret)
                For Xcount = 0 To wybranyokret.Width - 1
                    Dim Ycount As Integer
                    For Ycount = 0 To naszOkret.Height - 1
                        Dim curPixColor As Color = naszOkret.GetPixel(Xcount, Ycount)
                        If curPixColor = Color.FromArgb(0, 0, 0, 0) Then
                            naszOkret.SetPixel(Xcount, Ycount, Color.FromArgb(255, 0, 0, 0))
                        End If
                    Next
                Next
                'Ułoży okręt na bitmapie podglądowej
                Dim g As Graphics = Graphics.FromImage(PlanszaZOkretamiGracza1)
                'pętla wychwytuje kwadrat nad którym znajduje się kursor myszy
                For j As Integer = 0 To 9
                    For i As Integer = 0 To 9
                        'pętla namierza położenie kursora
                        If (polaGracza1(i, j).Location.X - 2 <= e.X And (polaGracza1(i, j).Location.X +
                                 polaGracza1(i, j).Width + 2 >= e.X)) And (polaGracza1(i, j).Location.Y - 2 <= e.Y _
                                 And (polaGracza1(i, j).Location.Y + polaGracza1(i, j).Height + 2 >= e.Y)) Then
                            'generuje struktury i zmienia aktualny okręt
                            If rodzajOkretuGracz1 = 0 Then

                                Dim NowyOkret As Okret
                                NowyOkret.RodzajOkretu = 0

                                Dim ListaZajmowanegoMiejsca As New List(Of Rectangle)
                                ListaZajmowanegoMiejsca.Add(polaGracza1(i, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza1(i + 1, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza1(i + 2, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza1(i + 3, j))
                                'blokuje elementy macierzy uniemożliwiając ułozenie na nich okrętów
                                PolaulozonychokretowGracz1(i, j) = True
                                PolaulozonychokretowGracz1(i + 1, j) = True
                                PolaulozonychokretowGracz1(i + 2, j) = True
                                PolaulozonychokretowGracz1(i + 3, j) = True

                                NowyOkret.ZajmowanyObszar = ListaZajmowanegoMiejsca
                                NowyOkret.ObrazekOkretu = naszOkret
                                KolekcjaOkretowGracz1.Add(NowyOkret)
                                'zmienia aktualny okręt
                                rodzajOkretuGracz1 = 1

                            ElseIf rodzajOkretuGracz1 = 1 Then
                                Dim NowyOkret As Okret
                                NowyOkret.RodzajOkretu = 1

                                Dim ListaZajmowanegoMiejsca As New List(Of Rectangle)
                                ListaZajmowanegoMiejsca.Add(polaGracza1(i, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza1(i + 1, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza1(i + 2, j))
                                PolaulozonychokretowGracz1(i, j) = True
                                PolaulozonychokretowGracz1(i + 1, j) = True
                                PolaulozonychokretowGracz1(i + 2, j) = True

                                NowyOkret.ZajmowanyObszar = ListaZajmowanegoMiejsca
                                NowyOkret.ObrazekOkretu = naszOkret
                                KolekcjaOkretowGracz1.Add(NowyOkret)
                                'zmienia aktualny okręt w zależności od ilości ułożonych
                                rodzajOkretuGracz1 = rodzajOkretu(KolekcjaOkretowGracz1, 1)
                            ElseIf rodzajOkretuGracz1 = 2 Then
                                Dim NowyOkret As Okret
                                NowyOkret.RodzajOkretu = 2

                                Dim ListaZajmowanegoMiejsca As New List(Of Rectangle)
                                ListaZajmowanegoMiejsca.Add(polaGracza1(i, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza1(i + 1, j))
                                PolaulozonychokretowGracz1(i, j) = True
                                PolaulozonychokretowGracz1(i + 1, j) = True

                                NowyOkret.ZajmowanyObszar = ListaZajmowanegoMiejsca
                                NowyOkret.ObrazekOkretu = naszOkret
                                KolekcjaOkretowGracz1.Add(NowyOkret)
                                'zmienia aktualny okręt w zależności od ilości ułożonych
                                rodzajOkretuGracz1 = rodzajOkretu(KolekcjaOkretowGracz1, 2)
                            ElseIf rodzajOkretuGracz1 = 3 Then
                                Dim NowyOkret As Okret
                                NowyOkret.RodzajOkretu = 3

                                Dim ListaZajmowanegoMiejsca As New List(Of Rectangle)
                                ListaZajmowanegoMiejsca.Add(polaGracza1(i, j))
                                PolaulozonychokretowGracz1(i, j) = True

                                NowyOkret.ZajmowanyObszar = ListaZajmowanegoMiejsca
                                NowyOkret.ObrazekOkretu = naszOkret
                                KolekcjaOkretowGracz1.Add(NowyOkret)
                                rodzajOkretuGracz1 = rodzajOkretu(KolekcjaOkretowGracz1, 3)
                            End If

                            g.DrawImage(naszOkret, polaGracza1(i, j).Location.X, polaGracza1(i, j).Location.Y)
                        End If
                    Next
                Next
                'Warunek sprawdza czy wszystkie okręty są ułozone.
                If rodzajOkretuGracz1 = 4 Then
                    ' Wszystkie okręty ułożone
                    gracz1.Image = PlanszaGlowna
                    gracz1.Enabled = False
                    gracz2.Enabled = True
                Else
                    gracz1.Image = PlanszaZOkretamiGracza1
                End If
                'dodaje tło do pictureboxa co sprawia wrażenie ruchu
                g.Dispose()
                Me.Refresh()
            End If
        Else
            'bitmapa z naniesionymi okrętami
            Dim BitmapaPodgladowa As New Bitmap(StrzelnicaGracz2)
            Dim g As Graphics = Graphics.FromImage(BitmapaPodgladowa)
            'zmienne kontroolujące strzał
            Dim trafiony As Boolean = False
            Dim pustyStrzal As Boolean = True
            Dim pudlo As Boolean = True
            'index elementu do usunięcia
            Dim elementDoUsunieciaZkolekcjii As Integer = 0
            Dim wybranyObszar As Rectangle 'aktualny element

            For j As Integer = 0 To 9
                For i As Integer = 0 To 9
                    If (polaGracza1(i, j).Location.X - 2 <= e.X And (polaGracza1(i, j).Location.X +
                             polaGracza1(i, j).Width + 2 >= e.X)) And (polaGracza1(i, j).Location.Y - 2 <= e.Y And (polaGracza1(i, j).Location.Y + polaGracza1(i, j).Height + 2 >= e.Y)) Then

                        wybranyObszar = polaGracza1(i, j)

                        If Not listaPudloGracz2.Contains(polaGracza1(i, j)) And Not listatrafioneGracz2.Contains(polaGracza1(i, j)) Then
                            pustyStrzal = False
                            For f As Integer = 1 To KolekcjaOkretowGracz1.Count
                                For t As Integer = 0 To KolekcjaOkretowGracz1(f).ZajmowanyObszar.count - 1
                                    If KolekcjaOkretowGracz1(f).ZajmowanyObszar(t).location = polaGracza1(i, j).Location Then
                                        trafiony = True
                                        pudlo = False
                                        listatrafioneGracz2.Add(polaGracza1(i, j))
                                        Dim kontynuuj As Boolean = True
                                        For y As Integer = 0 To KolekcjaOkretowGracz1(f).ZajmowanyObszar.count - 1
                                            If Not listatrafioneGracz2.Contains(KolekcjaOkretowGracz1(f).ZajmowanyObszar(y)) Then
                                                kontynuuj = False
                                                Exit For
                                            End If
                                        Next
                                        'namaluj okręt jeśli jest zestrzelony
                                        If kontynuuj = True Then
                                            Dim okret As Image = KolekcjaOkretowGracz1(f).ObrazekOkretu
                                            g.DrawImage(okret, KolekcjaOkretowGracz1(f).ZajmowanyObszar(0).Location.X, KolekcjaOkretowGracz1(f).ZajmowanyObszar(0).Location.Y)
                                            StrzelnicaGracz2 = BitmapaPodgladowa.Clone()
                                            elementDoUsunieciaZkolekcjii = f
                                        End If
                                    End If
                                Next
                            Next
                        End If
                    End If
                Next
            Next
            'dodaj do listy pudło jesli gracz spudłował
            If pudlo = True Then
                listaPudloGracz2.Add(wybranyObszar)
            End If
            'pędzle do malowania obszaru rozgrywki
            Dim kolorPola As New SolidBrush(Color.FromArgb(60, 255, 0, 0))
            Dim kolorTrafiony As New SolidBrush(Color.FromArgb(100, 255, 0, 0))

            For j As Integer = 0 To 9
                For i As Integer = 0 To 9
                    If Not listaPudloGracz2.Contains(polaGracza1(i, j)) And Not listatrafioneGracz2.Contains(polaGracza1(i, j)) Then
                        g.FillRectangle(kolorPola, polaGracza1(i, j))
                    End If
                    If listatrafioneGracz2.Contains(polaGracza1(i, j)) Then
                        g.FillRectangle(kolorTrafiony, polaGracza1(i, j))
                    End If
                Next
            Next
            'podstaw tło
            gracz1.Image = BitmapaPodgladowa

            If pustyStrzal = False Then
                If trafiony = False Then
                    gracz1.Enabled = False
                    gracz2.Enabled = True
                    Me.Cursor = Cursors.Arrow
                Else
                    If elementDoUsunieciaZkolekcjii > 0 Then
                        'usówa element z kolekcji
                        KolekcjaOkretowGracz1.Remove(elementDoUsunieciaZkolekcjii)
                    End If
                    If KolekcjaOkretowGracz1.Count = 0 Then
                        'koniec gry
                        MsgBox("Koniec gry wygrał gracz 2!")
                        gracz1.Enabled = False
                        gracz2.Enabled = False
                    End If
                End If
            End If

            g.Dispose()
            Me.Refresh()
        End If
    End Sub
#End Region

#Region "Strefa gracza2"
    Dim PlanszaZOkretamiGracza2 As Bitmap 'plansza podgladowa dla gracza 2
    Dim rodzajOkretuGracz2 As Integer = 0 'pierwszy układany statek
    'niedozwolonym

    Private Sub gracz2_MouseMove(sender As Object, e As MouseEventArgs) Handles gracz2.MouseMove
        If graRozpoczeta = False Then
            'tworzymy chwilową podglądową bitmapę
            Dim BitmapaPodgladowa As New Bitmap(PlanszaZOkretamiGracza2)
            Dim g As Graphics = Graphics.FromImage(BitmapaPodgladowa)
            'pętla wychwytuje kwadrat nad którym znajduje się kursor myszy
            For j As Integer = 0 To 9
                For i As Integer = 0 To 9
                    If (polaGracza2(i, j).Location.X - 2 <= e.X And (polaGracza2(i, j).Location.X +
                             polaGracza2(i, j).Width + 2 >= e.X)) And (polaGracza2(i, j).Location.Y - 2 <= e.Y _
                             And (polaGracza2(i, j).Location.Y + polaGracza2(i, j).Height + 2 >= e.Y)) Then
                        'generuje nasz okręt
                        If rodzajOkretuGracz2 = 0 Then
                            Dim czteromasztowy As New Bitmap(41, 180)
                            wybranyokret = czteromasztowy
                        ElseIf rodzajOkretuGracz2 = 1 Then
                            Dim czteromasztowy As New Bitmap(41, 134)
                            wybranyokret = czteromasztowy
                        ElseIf rodzajOkretuGracz2 = 2 Then
                            Dim czteromasztowy As New Bitmap(41, 88)
                            wybranyokret = czteromasztowy
                        ElseIf rodzajOkretuGracz2 = 3 Then
                            Dim czteromasztowy As New Bitmap(41, 41)
                            wybranyokret = czteromasztowy
                        End If
                        'wyświetla na zielono, jeśli okręt można ułożyć
                        'na czerwono jeśli nie można go ułożyć
                        Dim okret As New Bitmap(wybranyokret)
                        If sprawdezczymozna(i, j, rodzajOkretuGracz2, PolaulozonychokretowGracz2) Then
                            pozwolNaUmieszczenieOkretu = True
                            'zmienia kolor każdego pixela
                            For Xcount = 0 To okret.Width - 1
                                Dim Ycount As Integer
                                For Ycount = 0 To okret.Height - 1
                                    Dim curPixColor As Color = okret.GetPixel(Xcount, Ycount)
                                    If curPixColor = Color.FromArgb(0, 0, 0, 0) Then
                                        okret.SetPixel(Xcount, Ycount, Color.FromArgb(100, 0, 255, 0))
                                    End If
                                Next
                            Next
                        Else
                            pozwolNaUmieszczenieOkretu = False
                            For Xcount = 0 To okret.Width - 1
                                Dim Ycount As Integer
                                For Ycount = 0 To okret.Height - 1
                                    Dim curPixColor As Color = okret.GetPixel(Xcount, Ycount)
                                    If curPixColor = Color.FromArgb(0, 0, 0, 0) Then
                                        okret.SetPixel(Xcount, Ycount, Color.FromArgb(100, 255, 0, 0))
                                    End If
                                Next
                            Next
                        End If
                        Dim podswietlenie As New SolidBrush(Color.FromArgb(255, 255, 0, 0))

                        ' w tym miejscu nastąpiła zmiana podglądu
                        g.DrawImage(okret, polaGracza2(i, j).Location.X, polaGracza2(i, j).Location.Y)

                    End If
                Next
            Next
            'dodaje tło do pictureboxa co sprawia wrażenie ruchu
            gracz2.Image = BitmapaPodgladowa
            g.Dispose()
            Me.Refresh()
        Else
            Dim cursorHand As Boolean = False
            For j As Integer = 0 To 9
                For i As Integer = 0 To 9
                    If (polaGracza2(i, j).Location.X - 2 <= e.X And (polaGracza2(i, j).Location.X +
                             polaGracza2(i, j).Width + 2 >= e.X)) And (polaGracza2(i, j).Location.Y - 2 <= e.Y _
                             And (polaGracza2(i, j).Location.Y + polaGracza2(i, j).Height + 2 >= e.Y)) Then
                        If Not listaPudloGracz1.Contains(polaGracza2(i, j)) And Not listatrafioneGracz2.Contains(polaGracza2(i, j)) Then
                            cursorHand = True
                        End If
                    End If
                Next
            Next
            If cursorHand = True Then
                Me.Cursor = Cursors.Hand
                pozwolnaStrzal = True
            Else
                Me.Cursor = Cursors.Arrow
                pozwolnaStrzal = False
            End If
        End If
    End Sub

    'kolekcja okrętów gracza 2
    Private KolekcjaOkretowGracz2 As New Collection
    Private Sub gracz2_MouseClick(sender As Object, e As MouseEventArgs) Handles gracz2.MouseClick
        If graRozpoczeta = False Then
            If pozwolNaUmieszczenieOkretu = True Then
                'Wypełni naszą bitmapę czarnym kolorem
                Dim naszOkret As New Bitmap(wybranyokret)
                For Xcount = 0 To wybranyokret.Width - 1
                    Dim Ycount As Integer
                    For Ycount = 0 To naszOkret.Height - 1
                        Dim curPixColor As Color = naszOkret.GetPixel(Xcount, Ycount)
                        If curPixColor = Color.FromArgb(0, 0, 0, 0) Then
                            naszOkret.SetPixel(Xcount, Ycount, Color.FromArgb(255, 0, 0, 0))
                        End If
                    Next
                Next
                'Ułoży okręt na bitmapie podglądowej
                Dim g As Graphics = Graphics.FromImage(PlanszaZOkretamiGracza2)
                'pętla wychwytuje kwadrat nad którym znajduje się kursor myszy
                For j As Integer = 0 To 9
                    For i As Integer = 0 To 9
                        'pętla namierza położenie kursora
                        If (polaGracza2(i, j).Location.X - 2 <= e.X And (polaGracza2(i, j).Location.X +
                                 polaGracza2(i, j).Width + 2 >= e.X)) And (polaGracza2(i, j).Location.Y - 2 <= e.Y _
                                 And (polaGracza2(i, j).Location.Y + polaGracza2(i, j).Height + 2 >= e.Y)) Then
                            'generuje struktury i zmienia aktualny okręt
                            If rodzajOkretuGracz2 = 0 Then

                                Dim NowyOkret As Okret
                                NowyOkret.RodzajOkretu = 0

                                Dim ListaZajmowanegoMiejsca As New List(Of Rectangle)
                                ListaZajmowanegoMiejsca.Add(polaGracza2(i, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza2(i + 1, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza2(i + 2, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza2(i + 3, j))
                                'blokuje elementy macierzy uniemożliwiając ułozenie na nich okrętów
                                PolaulozonychokretowGracz2(i, j) = True
                                PolaulozonychokretowGracz2(i + 1, j) = True
                                PolaulozonychokretowGracz2(i + 2, j) = True
                                PolaulozonychokretowGracz2(i + 3, j) = True

                                NowyOkret.ZajmowanyObszar = ListaZajmowanegoMiejsca
                                NowyOkret.ObrazekOkretu = naszOkret
                                KolekcjaOkretowGracz2.Add(NowyOkret)
                                'zmienia aktualny okręt
                                rodzajOkretuGracz2 = 1

                            ElseIf rodzajOkretuGracz2 = 1 Then
                                Dim NowyOkret As Okret
                                NowyOkret.RodzajOkretu = 1

                                Dim ListaZajmowanegoMiejsca As New List(Of Rectangle)
                                ListaZajmowanegoMiejsca.Add(polaGracza2(i, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza2(i + 1, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza2(i + 2, j))
                                PolaulozonychokretowGracz2(i, j) = True
                                PolaulozonychokretowGracz2(i + 1, j) = True
                                PolaulozonychokretowGracz2(i + 2, j) = True

                                NowyOkret.ZajmowanyObszar = ListaZajmowanegoMiejsca
                                NowyOkret.ObrazekOkretu = naszOkret
                                KolekcjaOkretowGracz2.Add(NowyOkret)
                                'zmienia aktualny okręt w zależności od ilości ułożonych
                                rodzajOkretuGracz2 = rodzajOkretu(KolekcjaOkretowGracz2, 1)
                            ElseIf rodzajOkretuGracz2 = 2 Then
                                Dim NowyOkret As Okret
                                NowyOkret.RodzajOkretu = 2

                                Dim ListaZajmowanegoMiejsca As New List(Of Rectangle)
                                ListaZajmowanegoMiejsca.Add(polaGracza2(i, j))
                                ListaZajmowanegoMiejsca.Add(polaGracza2(i + 1, j))
                                PolaulozonychokretowGracz2(i, j) = True
                                PolaulozonychokretowGracz2(i + 1, j) = True

                                NowyOkret.ZajmowanyObszar = ListaZajmowanegoMiejsca
                                NowyOkret.ObrazekOkretu = naszOkret
                                KolekcjaOkretowGracz2.Add(NowyOkret)
                                'zmienia aktualny okręt w zależności od ilości ułożonych
                                rodzajOkretuGracz2 = rodzajOkretu(KolekcjaOkretowGracz2, 2)
                            ElseIf rodzajOkretuGracz2 = 3 Then
                                Dim NowyOkret As Okret
                                NowyOkret.RodzajOkretu = 3

                                Dim ListaZajmowanegoMiejsca As New List(Of Rectangle)
                                ListaZajmowanegoMiejsca.Add(polaGracza2(i, j))
                                PolaulozonychokretowGracz2(i, j) = True

                                NowyOkret.ZajmowanyObszar = ListaZajmowanegoMiejsca
                                NowyOkret.ObrazekOkretu = naszOkret
                                KolekcjaOkretowGracz2.Add(NowyOkret)
                                rodzajOkretuGracz2 = rodzajOkretu(KolekcjaOkretowGracz2, 3)
                            End If

                            g.DrawImage(naszOkret, polaGracza2(i, j).Location.X, polaGracza2(i, j).Location.Y)
                        End If
                    Next
                Next
                'Warunek sprawdza czy wszystkie okręty są ułozone.
                If rodzajOkretuGracz2 = 4 Then
                    ' Wszystkie okręty ułożone
                    gracz2.Image = PlanszaGlowna
                    gracz2.Enabled = True
                    gracz1.Enabled = False
                    graRozpoczeta = True
                    MsgBox("Gra rozpoczeła się!! Zaczyna gracz 1.")
                Else
                    gracz2.Image = PlanszaZOkretamiGracza2
                End If
                'dodaje tło do pictureboxa co sprawia wrażenie ruchu
                g.Dispose()
                Me.Refresh()
            End If
        Else
            Dim BitmapaPodgladowa As New Bitmap(StrzelnicaGracz1)
            Dim g As Graphics = Graphics.FromImage(BitmapaPodgladowa)

            Dim trafiony As Boolean = False
            Dim pustyStrzal As Boolean = True
            Dim pudlo As Boolean = True
            Dim elementDoUsunieciaZkolekcjii As Integer = 0

            Dim wybranyObszar As Rectangle
            For j As Integer = 0 To 9
                For i As Integer = 0 To 9
                    If (polaGracza2(i, j).Location.X - 2 <= e.X And (polaGracza2(i, j).Location.X +
                             polaGracza2(i, j).Width + 2 >= e.X)) And (polaGracza2(i, j).Location.Y - 2 <= e.Y _
                             And (polaGracza2(i, j).Location.Y + polaGracza2(i, j).Height + 2 >= e.Y)) Then
                        wybranyObszar = polaGracza2(i, j)
                        If Not listaPudloGracz1.Contains(polaGracza2(i, j)) And Not listatrafioneGracz1.Contains(polaGracza2(i, j)) Then
                            pustyStrzal = False
                            For f As Integer = 1 To KolekcjaOkretowGracz2.Count
                                For t As Integer = 0 To KolekcjaOkretowGracz2(f).ZajmowanyObszar.count - 1
                                    If KolekcjaOkretowGracz2(f).ZajmowanyObszar(t).location = polaGracza2(i, j).Location Then
                                        trafiony = True
                                        pudlo = False
                                        listatrafioneGracz1.Add(polaGracza2(i, j))
                                        Dim kontynuuj As Boolean = True
                                        For y As Integer = 0 To KolekcjaOkretowGracz2(f).ZajmowanyObszar.count - 1
                                            If Not listatrafioneGracz1.Contains(KolekcjaOkretowGracz2(f).ZajmowanyObszar(y)) Then
                                                kontynuuj = False
                                                Exit For
                                            End If
                                        Next
                                        If kontynuuj = True Then
                                            Dim okret As Image = KolekcjaOkretowGracz2(f).ObrazekOkretu
                                            g.DrawImage(okret, KolekcjaOkretowGracz2(f).ZajmowanyObszar(0).Location.X, KolekcjaOkretowGracz2(f).ZajmowanyObszar(0).Location.Y)
                                            StrzelnicaGracz1 = BitmapaPodgladowa.Clone()
                                            elementDoUsunieciaZkolekcjii = f
                                        End If
                                    End If
                                Next
                            Next
                        End If
                    End If
                Next
            Next
            If pudlo = True Then
                listaPudloGracz1.Add(wybranyObszar)
            End If
            Dim kolorPola As New SolidBrush(Color.FromArgb(60, 255, 0, 0))
            Dim kolorTrafiony As New SolidBrush(Color.FromArgb(100, 255, 0, 0))

            For j As Integer = 0 To 9
                For i As Integer = 0 To 9
                    If Not listaPudloGracz1.Contains(polaGracza2(i, j)) And Not listatrafioneGracz1.Contains(polaGracza2(i, j)) Then
                        g.FillRectangle(kolorPola, polaGracza2(i, j))
                    End If
                    If listatrafioneGracz1.Contains(polaGracza2(i, j)) Then
                        g.FillRectangle(kolorTrafiony, polaGracza2(i, j))
                    End If
                Next
            Next
            gracz2.Image = BitmapaPodgladowa

            If pustyStrzal = False Then
                If trafiony = False Then
                    gracz1.Enabled = True
                    gracz2.Enabled = False
                    Me.Cursor = Cursors.Arrow
                Else
                    If elementDoUsunieciaZkolekcjii > 0 Then
                        KolekcjaOkretowGracz2.Remove(elementDoUsunieciaZkolekcjii)
                    End If
                    If KolekcjaOkretowGracz2.Count = 0 Then
                        MsgBox("Koniec gry wygrał gracz 1!")
                        gracz1.Enabled = False
                        gracz2.Enabled = False
                    End If
                End If
            End If

            g.Dispose()
            Me.Refresh()
        End If
    End Sub
#End Region

#Region "Strefa wspólna"
    'funkcja zwroci true jeśli można ułożyć okręt
    Private Function sprawdezczymozna(ByVal i As Integer, ByVal j As Integer, ByVal rodzajOkretuGracz As _
                                      Integer, ByVal PolaulozonychokretowGracz(,) As Boolean) As Boolean
        If rodzajOkretuGracz = 3 Then
            If PolaulozonychokretowGracz(i, j) = False Then
                Return True
            Else
                Return False
            End If
        ElseIf rodzajOkretuGracz = 2 Then
            If i + 1 <= 9 Then
                If PolaulozonychokretowGracz(i, j) = False And PolaulozonychokretowGracz(i + 1, j) = False Then
                    Return True
                Else
                    Return False
                End If
            Else
                Return False
            End If
        ElseIf rodzajOkretuGracz = 1 Then
            If i + 2 <= 9 Then
                If PolaulozonychokretowGracz(i, j) = False And PolaulozonychokretowGracz(i + 1, j) = False _
                    And PolaulozonychokretowGracz(i + 2, j) = False Then
                    Return True
                Else
                    Return False
                End If
            Else
                Return False
            End If
        ElseIf rodzajOkretuGracz = 0 Then
            If i + 3 <= 9 Then
                If PolaulozonychokretowGracz(i, j) = False And PolaulozonychokretowGracz(i + 1, j) = False And
                PolaulozonychokretowGracz(i + 2, j) = False And PolaulozonychokretowGracz(i + 3, j) = False Then
                    Return True
                Else
                    Return False
                End If
            Else
                Return False
            End If
        End If
        Return True
    End Function

    'Funkcja sprawdza i zmienia aktualnie wybrany okręt
    Private Function rodzajOkretu(ByRef KolekcjaOkretow As Collection, ByVal aktualnyOkret As Integer) As Integer
        Dim zlicz As Integer = 0
        For g As Integer = 1 To KolekcjaOkretow.Count
            If aktualnyOkret = 1 Then
                If KolekcjaOkretow(g).RodzajOkretu = 1 Then
                    zlicz += 1
                End If
            End If
            If aktualnyOkret = 2 Then
                If KolekcjaOkretow(g).RodzajOkretu = 2 Then
                    zlicz += 1
                End If
            End If
            If aktualnyOkret = 3 Then
                If KolekcjaOkretow(g).RodzajOkretu = 3 Then
                    zlicz += 1
                End If
            End If
        Next
        If zlicz >= aktualnyOkret + 1 Then
            Return zlicz
        Else
            Return aktualnyOkret
        End If
    End Function
#End Region

End Class