'=========================================VisualMonsters.cba.pl===================================================
Public Class Form1
    'wielkość planszy do gry
    Dim wysokosc As Integer = 15
    Dim szerokosc As Integer = 20
    Dim listaLokalizacji As New List(Of List(Of Panel)) 'lista wszystkich paneli na planszy


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i As Integer = -2 To szerokosc + 1
            Dim listapaneli As New List(Of Panel)
            For j As Integer = -2 To wysokosc + 1
                Dim panelPodstawowy As New Panel
                With panelPodstawowy
                    .Location = New Point(i * 40 + 30, j * 40 + 30)
                    .Size = New Size(20, 20)
                    .BackColor = Color.Transparent
                    .Name = "panL_" + i.ToString + "^" + j.ToString + "^"
                    .Cursor = Cursors.Hand
                    AddHandler .Click, AddressOf pan_Click
                    'Obrzeże kartki, wyjaśnie na blogu
                    If i = -2 Or i = -1 Or j = -1 Or j = -2 Or i = szerokosc Or j = wysokosc Or i = szerokosc + 1 Or j = wysokosc + 1 Then
                        .Enabled = False
                    End If
                End With
                Panel_glowny.Controls.Add(panelPodstawowy) ' dodaje element do panelu
                listapaneli.Add(panelPodstawowy)
            Next
            'zmienna przechowuje wszystkie panele kartki
            listaLokalizacji.Add(listapaneli)
        Next
        'Generuje kratkę kartki
        Dim bit As Bitmap = New Bitmap(Panel_glowny.Width, Panel_glowny.Height)
        Dim g As Graphics = Graphics.FromImage(bit)

        Dim myPen As Pen = New Pen(Color.FromArgb(191, 218, 229), 1)
        For i As Integer = 40 To Panel_glowny.Height Step 40
            g.DrawLine(myPen, 0, i, Panel_glowny.Width, i)
        Next
        For i As Integer = 40 To Panel_glowny.Width Step 40
            g.DrawLine(myPen, i, 0, i, Panel_glowny.Height)
        Next
        Panel_glowny.BackgroundImage = bit
    End Sub

    'aktualny gracz
    Dim gracz As Boolean = True
    'listy kropek
    Dim listaKropekGracz1 As New List(Of Panel)
    Dim listaKropekGracz2 As New List(Of Panel)
    Dim bit As Bitmap
    Dim g As Graphics
    'kolory
    Dim zielony As New System.Drawing.SolidBrush(System.Drawing.Color.Green)
    Dim czerwony As New System.Drawing.SolidBrush(Color.Red)

    Public Sub pan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        If gracz Then 'zielony
            bit = New Bitmap(20, 20)
            g = Graphics.FromImage(bit)
            'dodaje zajęty panel do listy
            listaKropekGracz1.Add(DirectCast(sender, Panel))
            g.FillEllipse(zielony, New Rectangle(5, 5, 10, 10))
            DirectCast(sender, Panel).BackgroundImage = bit
            DirectCast(sender, Panel).Enabled = False
            testOkrazenia()
        Else ' czerwony
            bit = New Bitmap(20, 20)
            g = Graphics.FromImage(bit)
            'dodaje zajęty panel do listy
            listaKropekGracz2.Add(DirectCast(sender, Panel))
            g.FillEllipse(czerwony, New Rectangle(5, 5, 10, 10))
            DirectCast(sender, Panel).BackgroundImage = bit
            DirectCast(sender, Panel).Enabled = False
            testOkrazenia()
        End If

    End Sub

    Dim listazlapaneGracz1 As New List(Of Panel)
    Dim listazlapaneGracz2 As New List(Of Panel)

    Private Sub testOkrazenia()
        Dim listabrzegowa As New List(Of Panel)
        'Dodaje elementy sąsiadujące z kropkami do listy
        If Not listaKropekGracz1.Count = 0 Then
            listabrzegowa.AddRange(brzegi(listaKropekGracz1))
        End If
        If Not listaKropekGracz2.Count = 0 Then
            listabrzegowa.AddRange(brzegi(listaKropekGracz2))
        End If


        Dim listaWolnosci As New List(Of List(Of Panel))
        listaWolnosci = freedomPoints(listabrzegowa)

        Dim listagrup As New List(Of List(Of Panel))

        If gracz Then 'zielony
            listagrup = grupuj(listaKropekGracz2)
            listagrup = Edycjagrup(listaKropekGracz1, listagrup, listabrzegowa, listaWolnosci)
            'listuje wszystkie elementy w grupach które pozostały
            For i As Integer = 0 To listagrup.Count - 1
                'rysuje linie i tworzy listę tupli
                rysujLinie(listagrup(i), listaKropekGracz1, listazlapaneGracz1)
                For j As Integer = 0 To listagrup(i).Count - 1
                    'elementy mogą się powtarzać, więc pętla sprawdza czy przypadkiem nie znajduą się już na liście
                    If Not listazlapaneGracz1.Contains(listagrup(i)(j)) Then
                        listazlapaneGracz1.Add(listagrup(i)(j)) 'dodaje element
                        listagrup(i)(j).Enabled = False
                        'warunek usuwa element z listy przeciwnika aby nie mógł go już używać
                        If Not listaKropekGracz2.IndexOf(listagrup(i)(j)) = -1 Then
                            listaKropekGracz2.RemoveAt(listaKropekGracz2.IndexOf(listagrup(i)(j)))
                            listaKropekGracz1.Add(listagrup(i)(j)) 'dodaje do listy aktualnego gracza
                        End If
                    End If
                Next
            Next
            'zmienia gracza jeśli nic nie zostało okrążone
            If Not listagrup.Count > 0 Then
                gracz = False
            End If
        Else 'czerwony
            listagrup = grupuj(listaKropekGracz1)
            listagrup = Edycjagrup(listaKropekGracz2, listagrup, listabrzegowa, listaWolnosci)
            'listuje wszystkie elementy w grupach które pozostały
            For i As Integer = 0 To listagrup.Count - 1
                'rysuje linie i tworzy listę tupli
                rysujLinie(listagrup(i), listaKropekGracz2, listazlapaneGracz2)
                For j As Integer = 0 To listagrup(i).Count - 1
                    'elementy mogą się powtarzać, więc pętla sprawdza czy przypadkiem nie znajduą się już na liście
                    If Not listazlapaneGracz2.Contains(listagrup(i)(j)) Then
                        listazlapaneGracz2.Add(listagrup(i)(j)) 'dodaje element
                        listagrup(i)(j).Enabled = False
                        'warunek usuwa element z listy przeciwnika aby nie mógł go już używać
                        If Not listaKropekGracz1.IndexOf(listagrup(i)(j)) = -1 Then
                            listaKropekGracz1.RemoveAt(listaKropekGracz1.IndexOf(listagrup(i)(j))) 'usuwa
                            listaKropekGracz2.Add(listagrup(i)(j)) 'dodaje do listy aktualnego gracza
                        End If
                    End If
                Next
            Next
            'zmienia gracza jeśli nic nie zostało okrążone
            If Not listagrup.Count > 0 Then
                gracz = True
            End If
        End If
    End Sub


    Dim listaLiniwszystkich As New List(Of Tuple(Of Panel, Panel))
    Private Sub rysujLinie(ByRef pane As List(Of Panel), ByRef listagracza As List(Of Panel), ByRef listazlapanych As List(Of Panel))

        Dim d As Graphics
        d = Panel_glowny.CreateGraphics()

        Dim listaUporzadkowanychpanelow As New List(Of Panel)

        'tworzy listę wszystkich paneli grupy bez powtórzeń
        For i As Integer = 0 To pane.Count - 1
            If Not listaUporzadkowanychpanelow.Contains(pane(i)) Then
                listaUporzadkowanychpanelow.Add(pane(i))
            End If
        Next

        Dim listaliniowych As New List(Of Panel) 'lista sąsiadujących paneli
        For k As Integer = 0 To listaUporzadkowanychpanelow.Count - 1

            Dim pozycjax As Integer = 0
            Dim pozycjay As Integer = 0
            For i As Integer = 0 To listaLokalizacji.Count - 1
                For j As Integer = 0 To listaLokalizacji(i).Count - 1
                    If listaLokalizacji(i)(j).Name = listaUporzadkowanychpanelow(k).Name Then
                        pozycjax = i
                        pozycjay = j
                    End If
                Next
            Next
            If listagracza.Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) Then
                listaliniowych.Add(listaLokalizacji(pozycjax - 1)(pozycjay))
            End If
            If listagracza.Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) Then
                listaliniowych.Add(listaLokalizacji(pozycjax + 1)(pozycjay))
            End If
            If listagracza.Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) Then
                listaliniowych.Add(listaLokalizacji(pozycjax)(pozycjay + 1))
            End If
            If listagracza.Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) Then
                listaliniowych.Add(listaLokalizacji(pozycjax)(pozycjay - 1))
            End If
        Next

        For k As Integer = 0 To listaliniowych.Count - 1
            If Not listazlapanych.Contains(listaliniowych(k)) Then
                Dim pozycjax As Integer = 0
                Dim pozycjay As Integer = 0
                For i As Integer = 0 To listaLokalizacji.Count - 1
                    For j As Integer = 0 To listaLokalizacji(i).Count - 1
                        If listaLokalizacji(i)(j).Name = listaliniowych(k).Name Then
                            pozycjax = i
                            pozycjay = j
                        End If
                    Next
                Next
                If listaliniowych.Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) And Not listazlapanych.Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) Then
                    listaLiniwszystkich.Add(Tuple.Create(listaliniowych(k), listaLokalizacji(pozycjax - 1)(pozycjay)))
                End If
                If listaliniowych.Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) And Not listazlapanych.Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) Then
                    listaLiniwszystkich.Add(Tuple.Create(listaliniowych(k), listaLokalizacji(pozycjax + 1)(pozycjay)))
                End If
                If listaliniowych.Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) And Not listazlapanych.Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) Then
                    listaLiniwszystkich.Add(Tuple.Create(listaliniowych(k), listaLokalizacji(pozycjax)(pozycjay + 1)))
                End If
                If listaliniowych.Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) And Not listazlapanych.Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) Then
                    listaLiniwszystkich.Add(Tuple.Create(listaliniowych(k), listaLokalizacji(pozycjax)(pozycjay - 1)))
                End If
                If listaliniowych.Contains(listaLokalizacji(pozycjax - 1)(pozycjay - 1)) And Not listazlapanych.Contains(listaLokalizacji(pozycjax - 1)(pozycjay - 1)) Then
                    listaLiniwszystkich.Add(Tuple.Create(listaliniowych(k), listaLokalizacji(pozycjax - 1)(pozycjay - 1)))
                End If
                If listaliniowych.Contains(listaLokalizacji(pozycjax + 1)(pozycjay + 1)) And Not listazlapanych.Contains(listaLokalizacji(pozycjax + 1)(pozycjay + 1)) Then
                    listaLiniwszystkich.Add(Tuple.Create(listaliniowych(k), listaLokalizacji(pozycjax + 1)(pozycjay + 1)))
                End If
                If listaliniowych.Contains(listaLokalizacji(pozycjax - 1)(pozycjay + 1)) And Not listazlapanych.Contains(listaLokalizacji(pozycjax - 1)(pozycjay + 1)) Then
                    listaLiniwszystkich.Add(Tuple.Create(listaliniowych(k), listaLokalizacji(pozycjax - 1)(pozycjay + 1)))
                End If
                If listaliniowych.Contains(listaLokalizacji(pozycjax + 1)(pozycjay - 1)) And Not listazlapanych.Contains(listaLokalizacji(pozycjax + 1)(pozycjay - 1)) Then
                    listaLiniwszystkich.Add(Tuple.Create(listaliniowych(k), listaLokalizacji(pozycjax + 1)(pozycjay - 1)))
                End If
            End If
        Next

        'rysujemy kułeczka i linie
        For i As Integer = 0 To listaLiniwszystkich.Count - 1
            listaLiniwszystkich(i).Item1.Visible = False
            listaLiniwszystkich(i).Item2.Visible = False
            Application.DoEvents()
            If gracz Then
                Dim myPen As Pen = New Pen(zielony, 2)
                d.DrawLine(myPen, listaLiniwszystkich(i).Item1.Location.X + 10, listaLiniwszystkich(i).Item1.Location.Y + 10, listaLiniwszystkich(i).Item2.Location.X + 10, listaLiniwszystkich(i).Item2.Location.Y + 10)
                d.FillEllipse(zielony, New Rectangle(listaLiniwszystkich(i).Item1.Location.X + 5, listaLiniwszystkich(i).Item1.Location.Y + 5, 10, 10))
                d.FillEllipse(zielony, New Rectangle(listaLiniwszystkich(i).Item2.Location.X + 5, listaLiniwszystkich(i).Item2.Location.Y + 5, 10, 10))
            Else
                Dim myPen As Pen = New Pen(czerwony, 2)
                d.DrawLine(myPen, listaLiniwszystkich(i).Item1.Location.X + 10, listaLiniwszystkich(i).Item1.Location.Y + 10, listaLiniwszystkich(i).Item2.Location.X + 10, listaLiniwszystkich(i).Item2.Location.Y + 10)
                d.FillEllipse(czerwony, New Rectangle(listaLiniwszystkich(i).Item1.Location.X + 5, listaLiniwszystkich(i).Item1.Location.Y + 5, 10, 10))
                d.FillEllipse(czerwony, New Rectangle(listaLiniwszystkich(i).Item2.Location.X + 5, listaLiniwszystkich(i).Item2.Location.Y + 5, 10, 10))
            End If
        Next

    End Sub

    Private Function Edycjagrup(ByRef listaprzeciwnika As List(Of Panel), ByRef grupy As List(Of List(Of Panel)), ByRef listaBrzegowa As List(Of Panel), ByRef Listastrefowa As List(Of List(Of Panel))) As List(Of List(Of Panel))
        Dim listanabrzezna As New List(Of Panel)
        'pętla sprawdza każdy element na piechotę i dodaje elementy do grup
        Do
            Dim dzialajpetlo As Boolean = False
            For k As Integer = grupy.Count - 1 To 0 Step -1
                For l As Integer = 0 To grupy(k).Count - 1
                    Dim pozycjax As Integer = 0
                    Dim pozycjay As Integer = 0
                    'pobiera aktualną pozycję naszego panelu
                    For i As Integer = 0 To listaLokalizacji.Count - 1
                        For j As Integer = 0 To listaLokalizacji(i).Count - 1
                            If listaLokalizacji(i)(j).Name = grupy(k)(l).Name Then
                                pozycjax = i
                                pozycjay = j
                            End If
                        Next
                    Next
                    Dim kontynuuj As Boolean = True
                    For i As Integer = 0 To Listastrefowa.Count - 1
                        'Element grupy dotkną elementu listy wolności, co świadczy o tym, że nie jest okrążony
                        If Listastrefowa(i).Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) Or Listastrefowa(i).Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) Or Listastrefowa(i).Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) Or Listastrefowa(i).Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) Then
                            kontynuuj = False
                            'usuwa listę z grupy
                            grupy.RemoveAt(k)
                            Exit For
                        End If
                    Next

                    If kontynuuj = True Then
                        'dodaje listy brzegowe 
                        If listaBrzegowa.Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) And Not grupy(k).Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) Then
                            grupy(k).Add(listaLokalizacji(pozycjax - 1)(pozycjay))
                            dzialajpetlo = True
                            'dodaje własne elementy i nie dodaje elementów przeciwnika
                        ElseIf Not listaprzeciwnika.Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) And Not grupy(k).Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) Then
                            grupy(k).Add(listaLokalizacji(pozycjax - 1)(pozycjay))
                            dzialajpetlo = True
                        End If

                        If listaBrzegowa.Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) And Not grupy(k).Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) Then
                            grupy(k).Add(listaLokalizacji(pozycjax + 1)(pozycjay))
                            dzialajpetlo = True
                        ElseIf Not listaprzeciwnika.Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) And Not grupy(k).Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) Then
                            grupy(k).Add(listaLokalizacji(pozycjax + 1)(pozycjay))
                            dzialajpetlo = True
                        End If

                        If listaBrzegowa.Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) And Not grupy(k).Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) Then
                            grupy(k).Add(listaLokalizacji(pozycjax)(pozycjay + 1))
                            dzialajpetlo = True
                        ElseIf Not listaprzeciwnika.Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) And Not grupy(k).Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) Then
                            grupy(k).Add(listaLokalizacji(pozycjax)(pozycjay + 1))
                            dzialajpetlo = True
                        End If

                        If listaBrzegowa.Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) And Not grupy(k).Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) Then
                            grupy(k).Add(listaLokalizacji(pozycjax)(pozycjay - 1))
                            dzialajpetlo = True
                        ElseIf Not listaprzeciwnika.Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) And Not grupy(k).Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) Then
                            grupy(k).Add(listaLokalizacji(pozycjax)(pozycjay - 1))
                            dzialajpetlo = True
                        End If
                    Else
                        Exit For
                    End If
                Next
            Next
            'pętla działa do puki wszystkie elementy nie będą sprawdzone lub nie będzie już elementów w grupie
            If grupy.Count = 0 Then
                Exit Do
            ElseIf dzialajpetlo = False Then
                Exit Do
            End If
        Loop
        Return grupy
    End Function


    'funkcja tworzy wstępne grupy kropek
    Private Function grupuj(ByRef listagracza As List(Of Panel)) As List(Of List(Of Panel))
        Dim grupy As New List(Of List(Of Panel))
        'wylicza wszystkie kropki przeciwnika
        For k As Integer = 0 To listagracza.Count - 1
            Dim kontynuacja As Boolean = True 'blokada, nie dodaje kropek jeśli już się znajdują w jakiejś grupie
            For i As Integer = 0 To grupy.Count - 1
                If grupy(i).Contains(listagracza(k)) Then
                    kontynuacja = False
                    Exit For
                End If
            Next
            If kontynuacja = True Then
                Dim listaPunktowa As New List(Of Panel)
                listaPunktowa.Add(listagracza(k))
                'pobiera pozycję kropki
                Dim pozycjax As Integer = 0
                Dim pozycjay As Integer = 0
                For i As Integer = 0 To listaLokalizacji.Count - 1
                    For j As Integer = 0 To listaLokalizacji(i).Count - 1
                        If listaLokalizacji(i)(j).Name = listagracza(k).Name Then
                            pozycjax = i
                            pozycjay = j
                        End If
                    Next
                Next
                'łączy sąsiedne punkty w grupy
                If Not listaPunktowa.Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) And listagracza.Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) Then
                    listaPunktowa.Add(listaLokalizacji(pozycjax - 1)(pozycjay))
                End If
                If Not listaPunktowa.Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) And listagracza.Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) Then
                    listaPunktowa.Add(listaLokalizacji(pozycjax + 1)(pozycjay))
                End If
                If Not listaPunktowa.Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) And listagracza.Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) Then
                    listaPunktowa.Add(listaLokalizacji(pozycjax)(pozycjay + 1))
                End If
                If Not listaPunktowa.Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) And listagracza.Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) Then
                    listaPunktowa.Add(listaLokalizacji(pozycjax)(pozycjay - 1))
                End If
                'dodaje do listy nasze punkty
                grupy.Add(listaPunktowa)
            End If
        Next

        For i As Integer = 0 To grupy.Count - 1
            For j As Integer = 0 To grupy(i).Count - 1
                Dim panelzgrupa As Panel = grupy(i)(j)
                For r As Integer = 0 To grupy.Count - 1
                    If Not r = i And grupy(r).Contains(panelzgrupa) Then
                        'łączy listy
                        grupy(i).AddRange(grupy(r))
                        grupy(r).Clear()
                    End If
                Next
            Next
        Next
        'usuwa puste listy
        For i As Integer = grupy.Count - 1 To 0 Step -1
            If grupy(i).Count = 0 Then
                grupy.RemoveAt(i)
            End If
        Next
        Return grupy
    End Function


    'Punkty wolności
    Private Function freedomPoints(ByRef Sasiadujace As List(Of Panel)) As List(Of List(Of Panel))
        Dim listapaneli As New List(Of List(Of Panel))

        Dim dlugoscListy As Integer = listaLokalizacji(0).Count
        Dim wielkoscListy As Integer = listaLokalizacji.Count
        'dodawanie elementów z dołu
        For i As Integer = wielkoscListy - 1 To 0 Step -1
            Dim lista As New List(Of Panel)
            For j As Integer = dlugoscListy - 1 To 0 Step -1
                If Not Sasiadujace.Contains(listaLokalizacji(i)(j)) Then
                    lista.Add(listaLokalizacji(i)(j))
                Else
                    Exit For
                End If

            Next
            listapaneli.Add(lista)
        Next
        'dodawanie elementów z góry
        For i As Integer = 0 To wielkoscListy - 1
            Dim lista As New List(Of Panel)
            For j As Integer = 0 To dlugoscListy - 1
                If Not Sasiadujace.Contains(listaLokalizacji(i)(j)) Then
                    lista.Add(listaLokalizacji(i)(j))
                Else
                    Exit For
                End If

            Next
            listapaneli.Add(lista)
        Next
        'dodawanie elementów z prawej strony
        For i As Integer = dlugoscListy - 1 To 0 Step -1
            Dim lista As New List(Of Panel)
            For j As Integer = wielkoscListy - 1 To 0 Step -1
                If Not Sasiadujace.Contains(listaLokalizacji(j)(i)) Then
                    lista.Add(listaLokalizacji(j)(i))
                Else
                    Exit For
                End If
            Next
            listapaneli.Add(lista)
            If i = wielkoscListy Then
                Exit For
            End If
        Next
        'dodawanie elementów z lewej strony
        For i As Integer = 0 To dlugoscListy - 1
            Dim lista As New List(Of Panel)
            For j As Integer = 0 To wielkoscListy - 1
                If Not Sasiadujace.Contains(listaLokalizacji(j)(i)) Then
                    lista.Add(listaLokalizacji(j)(i))
                Else
                    Exit For
                End If
            Next
            listapaneli.Add(lista)
            If i = wielkoscListy Then
                Exit For
            End If
        Next
        Return listapaneli
    End Function


    'Funkcja zwraca elementy sąsiadujące z kropkami
    Private Function brzegi(ByRef listagracza As List(Of Panel)) As List(Of Panel)
        Dim listanabrzezna As New List(Of Panel) 'przechowuje elementy sąsiadujące
        For k As Integer = 0 To listagracza.Count - 1

            Dim pozycjax As Integer = 0
            Dim pozycjay As Integer = 0
            'pobiera aktualną pozycję panelu
            For i As Integer = 0 To listaLokalizacji.Count - 1
                For j As Integer = 0 To listaLokalizacji(i).Count - 1
                    If listaLokalizacji(i)(j).Name = listagracza(k).Name Then
                        pozycjax = i
                        pozycjay = j
                    End If
                Next
            Next
            'sprawdza czy z lewej, prawej, góry i dołu znajdują się jakieś puste elementy
            If Not listanabrzezna.Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) And Not listaKropekGracz1.Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) And Not listaKropekGracz2.Contains(listaLokalizacji(pozycjax - 1)(pozycjay)) Then
                listanabrzezna.Add(listaLokalizacji(pozycjax - 1)(pozycjay))
            End If
            If Not listanabrzezna.Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) And Not listaKropekGracz1.Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) And Not listaKropekGracz2.Contains(listaLokalizacji(pozycjax + 1)(pozycjay)) Then
                listanabrzezna.Add(listaLokalizacji(pozycjax + 1)(pozycjay))
            End If
            If Not listanabrzezna.Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) And Not listaKropekGracz1.Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) And Not listaKropekGracz2.Contains(listaLokalizacji(pozycjax)(pozycjay + 1)) Then
                listanabrzezna.Add(listaLokalizacji(pozycjax)(pozycjay + 1))
            End If
            If Not listanabrzezna.Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) And Not listaKropekGracz1.Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) And Not listaKropekGracz2.Contains(listaLokalizacji(pozycjax)(pozycjay - 1)) Then
                listanabrzezna.Add(listaLokalizacji(pozycjax)(pozycjay - 1))
            End If
        Next
        Return listanabrzezna
    End Function
End Class