Imports System.IO
Imports System.Random
Module Module1
    Dim nieznana_powrot As Boolean = False
    Dim ekwipunek_powrot As Boolean = False
    Dim dmg_wep As String
    Dim obrazenia As String
    Dim sztylet_dmg As Boolean
    Dim dmg1 As Integer
    Dim dmg2 As Integer
    Dim bestia_hp As Integer
    Dim dmg1_bestia As Integer
    Sub Main()
        My.Computer.Audio.Play("Sounds\ambient_menu.wav",
        AudioPlayMode.BackgroundLoop)
        Console.SetWindowSize(100, 20)
        Console.Title = "►The Sound Of Darkness◄"
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.DarkGray
        Dim random As New Random
        Dim rng As New Random
menu:
        Console.Clear()
        Console.WriteLine("")
        Console.WriteLine("
       ,--,--'.         .---.               .       ,_   .-,--.
       `- |   |-. ,-.   \___  ,-. . . ,-. ,-|   ,-. |_   ' |   \ ,-. ,-. . , ,-. ,-. ,-. ,-.
        , |   | | |-'       \ | | | | | | | |   | | |    , |   / ,-| |   |/  | | |-' `-. `-.
        `-'   ' ' `-'   `---' `-' `-' ' ' `-'   `-' |    `-^--'  `-^ '   |\  ' ' `-' `-' `-'
                                                    '                    ' `              ")
        Console.WriteLine("                       ╔═══════════════════════════════════════════════════╗")
        Console.WriteLine("                       ║                                                   ║")
        Console.WriteLine("                       ║  [ 'wczytaj'  ] Wczytaj grę                       ║")
        Console.WriteLine("                       ║  [ 'nowa gra' ] Nowa gra                          ║")
        Console.WriteLine("                       ║  [ 'about'    ] About                             ║")
        Console.WriteLine("                       ║                                                   ║")
        Console.WriteLine("                       ╚═══════════════════════════════════════════════════╝")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.Write(" > ")
        Dim inputmenu = Console.ReadLine()
        If inputmenu = "wczytaj" Then
            GoTo powrot
        Else

        End If

        If inputmenu = "nowa gra" Then
            GoTo nowagra
        Else

        End If

        If inputmenu = "about" Then
            GoTo autor
        Else

        End If

        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("
 ┌────────────────────────────┐
 │      Nieznana komenda      │
 └────────────────────────────┘
")
        Console.ForegroundColor = ConsoleColor.White
        Threading.Thread.Sleep(1500)
        nieznana_powrot = True
        GoTo menu

nowagra:
        My.Settings.cave = True
        My.Settings.Save()
        My.Computer.Audio.Stop()
        My.Computer.Audio.Play("Sounds\ambient_cave.wav",
        AudioPlayMode.BackgroundLoop)
        Console.SetWindowSize(120, 30)
        Console.Clear()
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkCyan
        Console.WriteLine("   Wersja gry (0.1) jest w fazie testów. Może zawierać błędy. Wszelkie problemy proszę zgłaszać e-mailem na adres:")
        Console.WriteLine("                  piotr.filip.szewczyk@gmail.com. Dziękuję za pobranie gry. Życzę miłego grania.")
        Console.WriteLine("                              INFORMACJA O ZAPISIE: GRA OBSŁUGUJE FUNKCJĘ AUTOZAPISU.")
        Console.WriteLine("                                    (C)2018 Piotr Szewczyk. All rights reserved")

        Threading.Thread.Sleep(7000)
        Console.Clear()
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkGray
        Console.WriteLine("   Ciemność... kiedy wszystko co znałeś i kochałeś zostaje ci zabrane... Myślisz jedynie o swym gniewie, nienawiści,
                                         nawet zemście... i wtedy nikt cię nie uratuje.")
        Console.WriteLine("")
        Console.WriteLine("   `Masashi Kishimoto")
        Threading.Thread.Sleep(7000)
        My.Settings.skrzynka1 = False
        My.Settings.wep = ""
        My.Settings.money = 0
        My.Settings.szafa1 = False
        My.Settings.rana = True
        My.Settings.hp = 100
        My.Settings.strenght = 5
        My.Settings.defense = 4
        My.Settings.skrytka1 = False
        My.Settings.wytrzymalosc = 2
        My.Settings.exp = 0
        My.Settings.lvl = 1
        My.Settings.inv1 = ""
        My.Settings.inv2 = ""
        My.Settings.inv3 = ""
        My.Settings.inv4 = ""
        My.Settings.inv5 = ""
        My.Settings.inv6 = ""
        My.Settings.inv7 = ""
        My.Settings.inv8 = ""
        My.Settings.inv9 = ""
        My.Settings.inv10 = ""
        My.Settings.Save()
x0y0:
        Console.SetWindowSize(120, 30)
        Console.Clear()
        'wprowadzenie x=0 y=0
        My.Settings.x = 0
        My.Settings.y = 0
        My.Settings.Save()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine(" ┌────────────────────────┐")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("   HP " & My.Settings.hp & " ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.Write("  " & My.Settings.lvl & " LVL ")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("  " & My.Settings.money & "$  ")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("")
        Console.WriteLine(" └────────────────────────┘")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(" Powoli otwierasz oczy. Okazuje się, że leżysz na jakiejś kamiennej posadzce.
 W powietrzu uonosi się zapach stęchlizny. Po chwili usiłujesz wstać, co przychodzi ci z trudem.
 Gdy podniosłeś się z wilgotnej ziemi, rozglądasz się po pomieszczeniu. Kamienne ściany ociekają wodą, a po posadzce
 tu i ówdzie chodzą karaluchy. Pokój oświetlany jest pochodnią. Usiłujesz sobię przypomnieć, kim jesteś i co tu robisz.
 Skupiasz się. Nic nie przychodzi ci do głowy. Nagle czujesz ostry ból w nodze.
 Podwijasz prawą nogawkę szarych spodni. Rana, niezbyt głęboka. Powinieneś ją jak najszybciej opatrzyć.
 Jeszcze raz rozglądasz się po pomieszczeniu. Przed tobą znajdują się wielkie żelazne drzwi.
 Po lewej stronie pod ścianą stoi jakaś skrzynia.")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkBlue
        Console.WriteLine(" Co chcesz zrobić?")
        Console.ForegroundColor = ConsoleColor.DarkMagenta
        Console.WriteLine("
 ┌───────────────────────────────┬─────────────────────────┐
 │ Opuść pomieszczenie           │ idz polnoc              │
 │ Zajrzyj do skrzyni            │ przeszukaj skrzynia     │
 └───────────────────────────────┴─────────────────────────┘
")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("> ")
        Console.ForegroundColor = ConsoleColor.White
        Dim input1 As String = Console.ReadLine

        If input1 = "ekwipunek" Then


            GoTo ekwipunek

        Else

        End If

        If input1 = "idz polnoc" Then
            My.Settings.x = 0
            My.Settings.y = 1
            My.Settings.Save()
            If My.Settings.rana = True Then
                My.Settings.hp = My.Settings.hp - 5
                My.Settings.Save()
            Else

            End If

            GoTo x0y1
        Else

        End If

        If input1 = "przeszukaj skrzynia" And My.Settings.skrzynka1 = False Then

            GoTo skrzynia
        ElseIf My.Settings.skrzynka1 = True And input1 = "przeszukaj skrzynia" Then
            Console.Clear()
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine("
 ┌──────────────────────────────────────────┐
 │      Przeszukiwałeś już to miejsce!      │
 └──────────────────────────────────────────┘
")
            Console.ForegroundColor = ConsoleColor.White
            Threading.Thread.Sleep(1500)
            nieznana_powrot = True
            GoTo powrot
        Else

        End If

        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("
 ┌────────────────────────────┐
 │      Nieznana komenda      │
 └────────────────────────────┘
")
        Console.ForegroundColor = ConsoleColor.White
        Threading.Thread.Sleep(1500)
        nieznana_powrot = True
        GoTo powrot
x0y1:
        My.Settings.x = 0
        My.Settings.Save()
        My.Settings.y = 1
        My.Settings.Save()
        Console.SetWindowSize(120, 30)
        'wyjscie przez drzwi
        Console.Clear()
        My.Settings.Upgrade()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine(" ┌────────────────────────┐")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("   HP " & My.Settings.hp & " ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.Write("  " & My.Settings.lvl & " LVL ")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("  " & My.Settings.money & "$  ")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("")
        Console.WriteLine(" └────────────────────────┘")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(" Napierasz na ciężkie żelazne drzwi. Te otwierają się głośno skrzypiąc.
 Przechodzisz przez kamienny próg. Twoim oczom ukazuje się pokój nie większy od poprzedniego. Na ścianach widnieją
 stare zakurzone obrazy. W kącie mieści się równie zakurzona co obrazy szafka z trzema
 szufladami. Stary wytarty dywan cuchnie pleśnią. Po lewej znajdują się drzwi, tym razem drewniane.
 W tym momencie poczułeś jeszcze mocniejsze ukłucie niż poprzednie.
 Spoglądasz z nadzieją na szafkę - ,,Może tu znajdę coś przydatnego''. W tym momencie usłyszałeś trzask
 zamykanych drzwi. Gwałtownie obracasz się za siebie. Drzwi, które otworzyłeś, są zamknięte.
 Wygląda na to, że nie możesz wrócić.")
        If My.Settings.rana = True Then
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine(" Nieopatrzona rana. [-5HP]")
        Else

        End If
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkBlue
        Console.WriteLine(" Co chcesz zrobić?")
        Console.ForegroundColor = ConsoleColor.DarkMagenta
        Console.WriteLine("
 ┌───────────────────────────────┬─────────────────────────┐
 │ Przyjrzyj się obrazom         │ zbadaj obrazy           │
 │ Zajrzyj do szafki             │ przeszukaj szafka       │
 │ Opuść pomieszczenie           │ idz zachod              │
 └───────────────────────────────┴─────────────────────────┘
")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("> ")
        My.Settings.Save()
        Console.ForegroundColor = ConsoleColor.White
        Dim input2 As String = Console.ReadLine()

        If input2 = "idz zachod" Then
            My.Settings.x = 1
            My.Settings.y = 1
            My.Settings.Save()

            If My.Settings.rana = True Then
                My.Settings.hp = My.Settings.hp - 5
                My.Settings.Save()
            Else

            End If
            GoTo x1y1
        Else

        End If
        If input2 = "zbadaj obrazy" And My.Settings.skrytka1 = False Then
            If My.Settings.rana = True Then
                My.Settings.hp = My.Settings.hp - 5
                My.Settings.Save()
            Else

            End If
            GoTo obrazy

        ElseIf My.Settings.skrytka1 = True And input2 = "zbadaj obrazy" Then
            Console.Clear()
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine("
 ┌──────────────────────────────────────────┐
 │      Przeszukiwałeś już to miejsce!      │
 └──────────────────────────────────────────┘
")
            Console.ForegroundColor = ConsoleColor.White
            Threading.Thread.Sleep(1500)
            nieznana_powrot = True
            GoTo powrot
        Else

        End If



        If input2 = "przeszukaj szafka" And My.Settings.szafa1 = False Then
            GoTo szafka
        ElseIf My.Settings.szafa1 = True And input2 = "przeszukaj szafka" Then
            Console.Clear()
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine("
 ┌──────────────────────────────────────────┐
 │      Przeszukiwałeś już to miejsce!      │
 └──────────────────────────────────────────┘
")
            Console.ForegroundColor = ConsoleColor.White
            Threading.Thread.Sleep(1500)
            nieznana_powrot = True
            GoTo powrot
        Else

        End If

        If input2 = "ekwipunek" Then
            GoTo ekwipunek

        Else

        End If

        If input2 = "idz zachod" Then
            My.Settings.x = 1
            My.Settings.y = 1
            My.Settings.Save()
            GoTo x1y1
        Else

        End If
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("
 ┌────────────────────────────┐
 │      Nieznana komenda      │
 └────────────────────────────┘
")
        Console.ForegroundColor = ConsoleColor.White
        Threading.Thread.Sleep(1500)
        nieznana_powrot = True
        GoTo powrot
x1y1:
        Console.SetWindowSize(120, 30)
        'Duży korytarz
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine(" ┌────────────────────────┐")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("   HP " & My.Settings.hp & " ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.Write("  " & My.Settings.lvl & " LVL ")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("  " & My.Settings.money & "$  ")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("")
        Console.WriteLine(" └────────────────────────┘")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(" Drewniane drzwi otwierają się z łatwością, wcale przy tym nie skrzypiąc.
 Tak jak poprzednio drzwi zamykają się za tobą.
 Twoim oczom ukazuje się ogromny pokój, przypominający mały korytarz.
 W oddali na końcu pomieszczenia dostrzegasz drzwi. Mogą być zablokowane. Nagle znieruchomiałeś.
 Wielka owłosiona bestia, na dwóch kończynach przypominających łapy, stoi nieopodal ciebie, wrogo się przyglądając.
 Jej pysk ocieka śliną, a nozdrza gwałtownie się rozchyliły. Strach tak cię sparaliżował, że nie możesz się ruszyć.
 Twoje gardło się zaciska, z trudem przełykasz ślinę.
 Próbujesz opanować strach, lecz daremnie. Będziesz musiał walczyć.
 To nieuniknione...")
        If My.Settings.rana = True Then
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine(" Nieopatrzona rana. [-5HP]")
        Else

        End If
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkBlue
        Console.WriteLine(" Co chcesz zrobić?")
        Console.ForegroundColor = ConsoleColor.DarkMagenta
        Console.WriteLine("
 ┌───────────────────────────────┬─────────────────────────┐
 │ Walcz z bestią                │ walcz bestia            │
 └───────────────────────────────┴─────────────────────────┘
")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("> ")
        Console.ForegroundColor = ConsoleColor.White
        Dim input4 As String = Console.ReadLine()
        If input4 = "ekwipunek" Then
            GoTo ekwipunek

        Else

        End If

        If input4 = "walcz bestia" Then
            GoTo walka_bestia
        Else

        End If

        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("
 ┌────────────────────────────┐
 │      Nieznana komenda      │
 └────────────────────────────┘
")
        Console.ForegroundColor = ConsoleColor.White
        Threading.Thread.Sleep(1500)
        nieznana_powrot = True
        GoTo powrot


x1y2:
        My.Settings.x = 1
        My.Settings.y = 2
        Console.SetWindowSize(120, 30)
        'Duży korytarz cd po walce
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine(" ┌────────────────────────┐")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("   HP " & My.Settings.hp & " ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.Write("  " & My.Settings.lvl & " LVL ")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("  " & My.Settings.money & "$  ")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("")
        Console.WriteLine(" └────────────────────────┘")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(" Udało ci się. Pokonałeś to monstrum. Odczuwasz satysfakcję zmieszaną ze strachem.
 Twoje nogi drżą, jakby miały zaraz ugiąć się pod twoim ciężarem. Spoglądasz na zakrwawione ręce.
 Oczy napełniają ci się łzami. Klękasz na ziemi, cicho łkając. Próbujesz powstrzymać łzy i się
 uspokoić. Udaje ci się to po kilku minutach. Podnosisz się z brudnej, wilgotnej ziemi.
 Odruchowo otrzepujesz swoje ubranie pociągając nosem. Rozglądasz się. Dostępne jest tylko jedno wyjście.
 ")
        If My.Settings.rana = True Then
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine(" Nieopatrzona rana. [-5HP]")
        Else

        End If
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkBlue
        Console.WriteLine(" Co chcesz zrobić?")
        Console.ForegroundColor = ConsoleColor.DarkMagenta
        Console.WriteLine("
 ┌───────────────────────────────┬─────────────────────────┐
 │ Opuść korytarz                │ idz zachod              │
 └───────────────────────────────┴─────────────────────────┘
")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("> ")
        Console.ForegroundColor = ConsoleColor.White
        Dim input5 As String = Console.ReadLine()
        If input5 = "idz zachod" Then
            My.Settings.x = 2
            My.Settings.y = 2
            My.Settings.Save()
            GoTo x2y2
        Else

        End If
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("
 ┌────────────────────────────┐
 │      Nieznana komenda      │
 └────────────────────────────┘
")
        Console.ForegroundColor = ConsoleColor.White
        Threading.Thread.Sleep(1500)
        nieznana_powrot = True
        GoTo powrot

x2y2:

        My.Settings.x = 2
        My.Settings.Save()
        My.Settings.y = 2
        My.Settings.Save()
        Console.SetWindowSize(120, 30)
        'niewielki pokoik ze stacją leczenia
        Console.Clear()
        My.Settings.Upgrade()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine(" ┌────────────────────────┐")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("   HP " & My.Settings.hp & " ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.Write("  " & My.Settings.lvl & " LVL ")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("  " & My.Settings.money & "$  ")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("")
        Console.WriteLine(" └────────────────────────┘")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(" Przechodzisz przez drzwi. Znajdujesz się w bardzo małym pokoju. Wkoło na podłodze, leżą
 porozrzucane jakieś kartki. Twoją uwagę przykuwa maszyna po lewej stronie. Namalowany na jej boku zielony krzyżyk,
 świadczy o tym, że jest to jakaś stacja lecznicza. Na końcu pomieszczenia znajdują się kolejne drzwi.")
        If My.Settings.rana = True Then
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine(" Nieopatrzona rana. [-5HP]")
        Else

        End If
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkBlue
        Console.WriteLine(" Co chcesz zrobić?")
        Console.ForegroundColor = ConsoleColor.DarkMagenta
        Console.WriteLine("
 ┌───────────────────────────────┬─────────────────────────┐
 │ Skorzystaj ze stacji          │ skorzystaj stacja       │
 │ Opuść pomieszczenie           │ idz polnoc              │
 └───────────────────────────────┴─────────────────────────┘
")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("> ")
        My.Settings.Save()
        Console.ForegroundColor = ConsoleColor.White
        Dim input6 As String = Console.ReadLine()

        If input6 = "skorzystaj stacja" Then
            GoTo stacja_lecznicza
        Else

        End If

        If input6 = "idz polnoc" Then
            GoTo x2y3
        Else

        End If


        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("
 ┌────────────────────────────┐
 │      Nieznana komenda      │
 └────────────────────────────┘
")
        Console.ForegroundColor = ConsoleColor.White
        Threading.Thread.Sleep(1500)
        nieznana_powrot = True
        GoTo powrot


x2y3:
        My.Settings.x = 2
        My.Settings.Save()
        My.Settings.y = 3
        My.Settings.Save()
        Console.SetWindowSize(120, 30)
        'duża arena
        Console.Clear()
        My.Settings.Upgrade()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine(" ┌────────────────────────┐")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("   HP " & My.Settings.hp & " ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.Write("  " & My.Settings.lvl & " LVL ")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("  " & My.Settings.money & "$  ")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("")
        Console.WriteLine(" └────────────────────────┘")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(" Wahając się otwierasz drzwi. Twoim oczom ukazuje się wielka arena. Ku twoim zdziwieniu
 arenę oświetla słońce, które wpada przez szybę w suficie. Nie pamiętasz kiedy je ostatnio widziałeś. ,,Czyli cały czas byłem na powierzchni'' - myślisz.
 Rozglądasz się po arenie. Dostregasz kilka bestii podobnych do tej, z którą ostatnio walczyłeś. Nieopodal ciebie stoi jakaś szkaradna postać, wyglądem
 przypominająca wielkiego pająka. Będziesz musiał stoczyć kilka bitew. Na szczęście za po prawej znajduje się stacja lecznicza.")
        If My.Settings.rana = True Then
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine(" Nieopatrzona rana. [-5HP]")
        Else

        End If
        Console.ForegroundColor = ConsoleColor.Red
        If My.Settings.arena1_bestia_1 = True Then
            Console.WriteLine(" Bestia stoi na północ od ciebie.")
        Else

        End If

        If My.Settings.arena1_pajak_1 = True Then
            Console.WriteLine(" Wielki pająk znajduje się na zachód od ciebie.")
        Else

        End If
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkBlue
        Console.WriteLine(" Co chcesz zrobić?")
        Console.ForegroundColor = ConsoleColor.DarkMagenta
        Console.WriteLine("
 ┌───────────────────────────────┬─────────────────────────┐
 │ Idź na północ                 │ idz polnoc              │
 │ Idź na zachód                 │ idz zachod              │
 └───────────────────────────────┴─────────────────────────┘
")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("> ")
        My.Settings.Save()
        Console.ForegroundColor = ConsoleColor.White
        Dim input7 As String = Console.ReadLine()



walka_bestia:
        My.Computer.Audio.Play("Sounds\ambient_fight.wav",
        AudioPlayMode.BackgroundLoop)
        If My.Settings.wep = " Sztylet [8-10 DMG]" Then
            sztylet_dmg = True
        Else
            sztylet_dmg = False
        End If
        Dim bestia_hp As Integer = 50
        Console.Clear()
        If sztylet_dmg = True Then
            dmg1 = 8
            dmg2 = 10
        Else
            dmg1 = 1
            dmg2 = 1
        End If
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                      Walka                       │
 └──────────────────────────────────────────────────┘
")
        Console.Write("<Bestia " & bestia_hp & "HP" & ">")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write(" podbiega do ciebie!")
        Console.WriteLine("")
        Threading.Thread.Sleep(3000)
        If My.Settings.wep = " Sztylet [8-10 DMG]" Then
            'wstawić skrypt dodający obrażenia dzięki poziomie umiejetnosci sily
            Console.ForegroundColor = ConsoleColor.DarkMagenta
            Console.Write("<Ty " & My.Settings.hp & "HP" & "   >")
            Console.ForegroundColor = ConsoleColor.DarkYellow
            Console.Write(" Wyciągasz swój sztylet.")
            dmg1 = 8
            dmg2 = 10
            Console.WriteLine("")
            Threading.Thread.Sleep(3000)
            Dim sztylet_dmg = True
            My.Settings.Save()
        Else
            sztylet_dmg = False
            My.Settings.Save()
            dmg1 = 1
            dmg2 = 1 + Math.Round(My.Settings.strenght / 2)
            Console.ForegroundColor = ConsoleColor.DarkMagenta
            Console.Write("<Ty " & My.Settings.hp & "HP" & "   >")
            Console.ForegroundColor = ConsoleColor.DarkYellow
            Console.Write(" Przygotowujesz swoje pięści.")
            Console.WriteLine("")
            Threading.Thread.Sleep(3000)
        End If
bestia_loop:
        Randomize()
        Dim dmg_bestia As Integer
        dmg_bestia = rng.Next(9, 12)
        If dmg_bestia = 11 Then
            GoTo unik
        Else

        End If
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("<Bestia " & bestia_hp & "HP" & ">")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write(" Zaatakowała i zadała ")
bez_uniku:
        My.Settings.hp = My.Settings.hp - dmg_bestia
        My.Settings.Save()
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write(dmg_bestia & " obrażeń.")
        Console.WriteLine("")
        Threading.Thread.Sleep(3000)
        If My.Settings.hp = 0 Or My.Settings.hp <= 0 Then
            GoTo dead
        Else

        End If
        GoTo bez_uniku2
unik:
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("<Bestia " & bestia_hp & "HP" & ">")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write(" Chybiła!")
        Console.WriteLine("")
        Threading.Thread.Sleep(3000)
        Randomize()
bez_uniku2:
        Dim dmg_1 As Integer
        dmg_1 = rng.Next(dmg1, dmg2)
        bestia_hp = bestia_hp - dmg_1
        My.Settings.Save()
        Console.ForegroundColor = ConsoleColor.DarkMagenta
        Console.Write("<Ty " & My.Settings.hp & "HP" & "    >")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write(" Atakujesz bestię! Zadajesz ")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write(dmg_1)
        Console.Write(" obrażeń.")
        Console.WriteLine("")
        Threading.Thread.Sleep(3000)
        If My.Settings.hp = 0 Or My.Settings.hp <= 0 Then
            GoTo dead
        ElseIf bestia_hp = 0 Or bestia_hp <= 0 Then
            GoTo victory_bestia_1
        Else
            GoTo bestia_loop
        End If
        Console.ReadKey()

        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("
 ┌────────────────────────────┐
 │      Nieznana komenda      │
 └────────────────────────────┘
")
        Console.ForegroundColor = ConsoleColor.White
        Threading.Thread.Sleep(1500)
        nieznana_powrot = True
        GoTo powrot
obrazy:
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine(" ┌───────────────────────┐")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("   HP " & My.Settings.hp & " ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.Write("  " & My.Settings.lvl & " LVL ")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("  " & My.Settings.money & "$  ")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("")
        Console.WriteLine(" └───────────────────────┘")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(" Podchodzisz do kolorowych obrazów na ścianie. Jeden przedstawia kobietę zbierającą
 marchewki na polu, a drugi mężczyznę w czarnym kapeluszu. Wtem dostrzegasz, że pod pierwszym
 obrazem coś jest. Odchylasz go i twoim oczom ukazuje się mała metalowa skrzynka z
 namalowanym czerwonym krzyżykiem. ,,Nareszcie!'' - mówisz w myślach, uśmiechając się ze
 szczęścia, przy tym zastanawiając się, kto mógł ją tutaj położyć.
 Jakby umieszczono ją tu specjalnie dla ciebie... ")
        If My.Settings.rana = True Then
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine(" Nieopatrzona rana. [-5HP]")
        Else

        End If
        Console.WriteLine("")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.WriteLine(" Naciśnij dowolny przycisk, aby wziąć apteczkę i jej użyć.")
        Console.ReadKey()
        My.Settings.rana = False
        My.Settings.skrytka1 = True
        My.Settings.hp = 100
        My.Settings.Save()
        GoTo apteczka

szafka:
        Console.SetWindowSize(120, 30)
        Console.Clear()
        If My.Settings.x = 0 And My.Settings.y = 1 And My.Settings.szafa1 = False Then
            Console.ForegroundColor = ConsoleColor.Blue
            Console.WriteLine(" ┌────────────────────────┐")
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("   HP " & My.Settings.hp & " ")
            Console.ForegroundColor = ConsoleColor.Cyan
            Console.Write("  " & My.Settings.lvl & " LVL ")
            Console.ForegroundColor = ConsoleColor.DarkYellow
            Console.Write("  " & My.Settings.money & "$  ")
            Console.ForegroundColor = ConsoleColor.Blue
            Console.WriteLine("")
            Console.WriteLine(" └────────────────────────┘")
            Console.WriteLine("")
            Console.ForegroundColor = ConsoleColor.Gray
            Console.Write(" Szafkę pokrywa gruba warstwa kurzu. W środkowej szufladzie brakuje klamki. Powoli otwierasz pierwszą.
 Znajdujesz ")
            Console.ForegroundColor = ConsoleColor.DarkBlue
            Console.Write("artefakt cienia. ")
            Console.ForegroundColor = ConsoleColor.Gray
            Console.Write(" W drugiej szufladzie nic nie ma, nie licząc mysich odchodów.
 W ostatniej szufladzie zaś znalazłeś ")
            Console.ForegroundColor = ConsoleColor.DarkYellow
            Console.Write("45$.")
            Console.WriteLine("")
            Console.ForegroundColor = ConsoleColor.Gray
            Console.WriteLine(" ,,Artefakt...'' - myślisz. Zastanawia cię również, po co ci te pieniądze.")
            Console.WriteLine("")
            Console.ForegroundColor = ConsoleColor.Cyan
            Console.WriteLine(" Naciśnij dowolny przycisk, aby wziąć przedmioty ze skrzyni.")
            Console.ReadKey()

            If My.Settings.inv1 = "" Then
                My.Settings.inv1 = " Artefakt cienia   [+5 do siły]"
                My.Settings.strenght = My.Settings.strenght + 5
                My.Settings.money = My.Settings.money + 45
                My.Settings.szafa1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv2 = "" Then
                My.Settings.inv2 = " Artefakt cienia   [+5 do siły]"
                My.Settings.strenght = My.Settings.strenght + 5
                My.Settings.money = My.Settings.money + 45
                My.Settings.szafa1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv3 = "" Then
                My.Settings.inv3 = " Artefakt cienia   [+5 do siły]"
                My.Settings.strenght = My.Settings.strenght + 5
                My.Settings.money = My.Settings.money + 45
                My.Settings.szafa1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv4 = "" Then
                My.Settings.inv4 = " Artefakt cienia   [+5 do siły]"
                My.Settings.strenght = My.Settings.strenght + 5
                My.Settings.money = My.Settings.money + 45
                My.Settings.szafa1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv5 = "" Then
                My.Settings.inv5 = " Artefakt cienia   [+5 do siły]"
                My.Settings.strenght = My.Settings.strenght + 5
                My.Settings.money = My.Settings.money + 45
                My.Settings.szafa1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv6 = "" Then
                My.Settings.inv6 = " Artefakt cienia   [+5 do siły]"
                My.Settings.strenght = My.Settings.strenght + 5
                My.Settings.money = My.Settings.money + 45
                My.Settings.szafa1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv7 = "" Then
                My.Settings.inv7 = " Artefakt cienia   [+5 do siły]"
                My.Settings.strenght = My.Settings.strenght + 5
                My.Settings.money = My.Settings.money + 45
                My.Settings.szafa1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv8 = "" Then
                My.Settings.inv8 = " Artefakt cienia   [+5 do siły]"
                My.Settings.strenght = My.Settings.strenght + 5
                My.Settings.money = My.Settings.money + 45
                My.Settings.szafa1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv9 Then
                My.Settings.inv9 = " Artefakt cienia   [+5 do siły]"
                My.Settings.strenght = My.Settings.strenght + 5
                My.Settings.money = My.Settings.money + 45
                My.Settings.szafa1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv10 = "" Then
                My.Settings.inv10 = " Artefakt cienia   [+5 do siły]"
                My.Settings.strenght = My.Settings.strenght + 5
                My.Settings.money = My.Settings.money + 45
                My.Settings.szafa1 = True
                My.Settings.Save()
            Else
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Red
                Console.WriteLine("
 ┌────────────────────────────────────┐
 │    Nie masz miejsca w ekwipunku!   │
 └────────────────────────────────────┘
")
                Threading.Thread.Sleep(1500)
                nieznana_powrot = True
                GoTo powrot
            End If
        End If
skrzynia:
        Console.SetWindowSize(120, 30)
        Console.Clear()
        If My.Settings.x = 0 And My.Settings.y = 0 Then
            Console.ForegroundColor = ConsoleColor.Blue
            Console.WriteLine(" ┌────────────────────────┐")
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("   HP " & My.Settings.hp & " ")
            Console.ForegroundColor = ConsoleColor.Cyan
            Console.Write("  " & My.Settings.lvl & " LVL ")
            Console.ForegroundColor = ConsoleColor.DarkYellow
            Console.Write("  " & My.Settings.money & "$  ")
            Console.ForegroundColor = ConsoleColor.Blue
            Console.WriteLine("")
            Console.WriteLine(" └────────────────────────┘")
            Console.WriteLine("")
            Console.ForegroundColor = ConsoleColor.Gray
            Console.Write(" Wielka drewniana skrzynia, aż prosi się o otwarcie.
 Unosisz wieko. W środku znajduje się ")
            Console.ForegroundColor = ConsoleColor.DarkBlue
            Console.Write("sztylet.")
            Console.WriteLine("")
            Console.ForegroundColor = ConsoleColor.Gray
            Console.WriteLine(" ,,Byłoby lepiej gdybym znalazł jakiś bandaż... Ale dobre i to'' - myślisz. ")
            Console.WriteLine("")
            Console.ForegroundColor = ConsoleColor.Cyan
            Console.WriteLine(" Naciśnij dowolny przycisk, aby wziąć przedmioty ze skrzyni.")
            Console.ReadKey()

            If My.Settings.inv1 = "" Then
                My.Settings.inv1 = " Sztylet                                    [8-10 DMG]"
                My.Settings.skrzynka1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv2 = "" Then
                My.Settings.inv2 = " Sztylet                                    [8-10 DMG]"
                My.Settings.skrzynka1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv3 = "" Then
                My.Settings.inv3 = " Sztylet                                    [8-10 DMG]"
                My.Settings.skrzynka1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv4 = "" Then
                My.Settings.inv4 = " Sztylet                                    [8-10 DMG]"
                My.Settings.skrzynka1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv5 = "" Then
                My.Settings.inv5 = " Sztylet                                    [8-10 DMG]"
                My.Settings.skrzynka1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv6 = "" Then
                My.Settings.inv6 = " Sztylet                                    [8-10 DMG]"
                My.Settings.skrzynka1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv7 = "" Then
                My.Settings.inv7 = " Sztylet                                    [8-10 DMG]"
                My.Settings.skrzynka1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv8 = "" Then
                My.Settings.inv8 = " Sztylet                                    [8-10 DMG]"
                My.Settings.skrzynka1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv9 Then
                My.Settings.inv9 = " Sztylet                                    [8-10 DMG]"
                My.Settings.skrzynka1 = True
                My.Settings.Save()
            ElseIf My.Settings.inv10 = "" Then
                My.Settings.inv10 = " Sztylet                                    [8-10 DMG]"
                My.Settings.skrzynka1 = True
                My.Settings.Save()
            Else
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Red
                Console.WriteLine("
 ┌────────────────────────────────────┐
 │   Nie masz miejsca w ekwipunku!    │
 └────────────────────────────────────┘
")
                Threading.Thread.Sleep(1500)
                nieznana_powrot = True
                GoTo powrot
            End If
            Console.ReadKey()

        Else

        End If

ekwipunek:
        Console.SetWindowSize(55, 30)
        If My.Settings.wep = " Sztylet [8-10 DMG]" Then
            obrazenia = "8-10"
        Else
            obrazenia = "1"
        End If
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.WriteLine("
 ┌─────────────────────Ekwipunek─────────────────────┐
 │                     10 slotów                     │
 ├───────────────────────────────────────────────────┤
 │ 'wyrzuc <nazwa>'           //Wyrzuć przedmiot     │
 │ 'dobadz <np.sztylet, noz>' //Dobądź broń          │
 │ 'powrot'                   //Wyjście z ekwipunku  │
 │ 'uzyj <np. apteczka>'      //Użyj przedmiotu      │
 └───────────────────────────────────────────────────┘")
        Console.ForegroundColor = ConsoleColor.DarkGreen
        Console.WriteLine(" ┌─────────────────────Staystyki─────────────────────┐")
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("   OBRAŻENIA      " & obrazenia)
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("   OBRONA         " & My.Settings.defense)
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.WriteLine("   SIŁA           " & My.Settings.strenght)
        Console.ForegroundColor = ConsoleColor.DarkGreen
        Console.WriteLine(" └───────────────────────────────────────────────────┘")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkMagenta
        Console.WriteLine(My.Settings.inv1)
        Console.WriteLine(My.Settings.inv2)
        Console.WriteLine(My.Settings.inv3)
        Console.WriteLine(My.Settings.inv4)
        Console.WriteLine(My.Settings.inv5)
        Console.WriteLine(My.Settings.inv6)
        Console.WriteLine(My.Settings.inv7)
        Console.WriteLine(My.Settings.inv8)
        Console.WriteLine(My.Settings.inv9)
        Console.WriteLine(My.Settings.inv10)
        Console.ForegroundColor = ConsoleColor.DarkCyan
        Console.WriteLine(" ─────────────────────────────────────────────────────")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.Write("  Wybrana broń:")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.Write(My.Settings.wep)
        Console.ForegroundColor = ConsoleColor.DarkCyan
        Console.WriteLine("")
        Console.WriteLine(" ─────────────────────────────────────────────────────")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("> ")
        Console.ForegroundColor = ConsoleColor.White
        Dim ekwipunekinput = Console.ReadLine()
        If ekwipunekinput = "powrot" Then
            ekwipunek_powrot = True
            GoTo powrot

        End If


        If ekwipunekinput = "dobadz sztylet" Then
            If My.Settings.inv1 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.wep = " Sztylet [8-10 DMG]"
                My.Settings.Save()
                GoTo ekwipunek
            ElseIf My.Settings.inv2 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.wep = " Sztylet [8-10 DMG]"
                My.Settings.Save()
                GoTo ekwipunek
            ElseIf My.Settings.inv3 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.wep = " Sztylet [8-10 DMG]"
                My.Settings.Save()
                GoTo ekwipunek
            ElseIf My.Settings.inv4 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.wep = " Sztylet [8-10 DMG]"
                My.Settings.Save()
                GoTo ekwipunek
            ElseIf My.Settings.inv5 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.wep = " Sztylet [8-10 DMG]"
                My.Settings.Save()
                GoTo ekwipunek
            ElseIf My.Settings.inv6 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.wep = " Sztylet [8-10 DMG]"
                My.Settings.Save()
                GoTo ekwipunek
            ElseIf My.Settings.inv7 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.wep = " Sztylet [8-10 DMG]"
                My.Settings.Save()
                GoTo ekwipunek
            ElseIf My.Settings.inv8 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.wep = " Sztylet [8-10 DMG]"
                My.Settings.Save()
                GoTo ekwipunek
            ElseIf My.Settings.inv9 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.wep = " Sztylet [8-10 DMG]"
                My.Settings.Save()
                GoTo ekwipunek
            ElseIf My.Settings.inv10 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.wep = " Sztylet [8-10 DMG]"
                My.Settings.Save()
                Console.Clear()
                GoTo ekwipunek
            Else
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Red
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │        Nie posiadasz sztyletu w ekwipunku!       │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            End If
        End If


        If ekwipunekinput = "wyrzuc sztylet" Then
            If My.Settings.inv1 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.inv1 = ""
                My.Settings.Save()
                If My.Settings.wep = " Sztylet [8-10 DMG]" Then
                    My.Settings.wep = ""
                    My.Settings.Save()
                Else

                End If
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                Wyrzuciłeś sztylet!               │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv2 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.inv2 = ""
                My.Settings.Save()
                If My.Settings.wep = " Sztylet [8-10 DMG]" Then
                    My.Settings.wep = ""
                    My.Settings.Save()
                Else

                End If
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                Wyrzuciłeś sztylet!               │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv3 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.inv3 = ""
                My.Settings.Save()
                If My.Settings.wep = " Sztylet [8-10 DMG]" Then
                    My.Settings.wep = ""
                    My.Settings.Save()
                Else

                End If
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                Wyrzuciłeś sztylet!               │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv4 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.inv4 = ""
                My.Settings.Save()
                If My.Settings.wep = " Sztylet [8-10 DMG]" Then
                    My.Settings.wep = ""
                    My.Settings.Save()
                Else

                End If
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                Wyrzuciłeś sztylet!               │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv5 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.inv5 = ""
                My.Settings.Save()
                If My.Settings.wep = " Sztylet [8-10 DMG]" Then
                    My.Settings.wep = ""
                    My.Settings.Save()
                Else

                End If
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                Wyrzuciłeś sztylet!               │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv6 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.inv6 = ""
                My.Settings.Save()
                If My.Settings.wep = " Sztylet [8-10 DMG]" Then
                    My.Settings.wep = ""
                    My.Settings.Save()
                Else

                End If
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                Wyrzuciłeś sztylet!               │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv7 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.inv7 = ""
                My.Settings.Save()
                If My.Settings.wep = " Sztylet [8-10 DMG]" Then
                    My.Settings.wep = ""
                    My.Settings.Save()
                Else

                End If
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                Wyrzuciłeś sztylet!               │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv8 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.inv8 = ""
                My.Settings.Save()
                If My.Settings.wep = " Sztylet [8-10 DMG]" Then
                    My.Settings.wep = ""
                    My.Settings.Save()
                Else

                End If
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                Wyrzuciłeś sztylet!               │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv9 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.inv9 = ""
                My.Settings.Save()
                If My.Settings.wep = " Sztylet [8-10 DMG]" Then
                    My.Settings.wep = ""
                    My.Settings.Save()
                Else

                End If
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                Wyrzuciłeś sztylet!               │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv10 = " Sztylet                                    [8-10 DMG]" Then
                My.Settings.inv10 = ""
                My.Settings.Save()
                If My.Settings.wep = " Sztylet [8-10 DMG]" Then
                    My.Settings.wep = ""
                    My.Settings.Save()
                Else

                End If

                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                Wyrzuciłeś sztylet!               │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.wep = "Sztylet                                    [8-10 DMG]" Then
                My.Settings.wep = ""
                My.Settings.Save()
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │                Wyrzuciłeś sztylet!               │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            Else
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Red
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │        Nie posiadasz sztyletu w ekwipunku!       │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            End If
        End If

        If ekwipunekinput = "wyrzuc artefakt cienia" Then
            If My.Settings.inv1 = " Artefakt cienia   [+5 do siły]" Then
                My.Settings.inv1 = ""
                My.Settings.Save()
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │            Wyrzuciłeś artefakt cienia!           │
 └──────────────────────────────────────────────────┘
")
                My.Settings.strenght = My.Settings.strenght - 5
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv2 = " Artefakt cienia   [+5 do siły]" Then
                My.Settings.inv2 = ""
                My.Settings.Save()
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │            Wyrzuciłeś artefakt cienia!           │
 └──────────────────────────────────────────────────┘
")
                My.Settings.strenght = My.Settings.strenght - 5
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv3 = " Artefakt cienia   [+5 do siły]" Then
                My.Settings.inv3 = ""
                My.Settings.Save()
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │            Wyrzuciłeś artefakt cienia!           │
 └──────────────────────────────────────────────────┘
")
                My.Settings.strenght = My.Settings.strenght - 5
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv4 = " Artefakt cienia   [+5 do siły]" Then
                My.Settings.inv4 = ""
                My.Settings.Save()
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │            Wyrzuciłeś artefakt cienia!           │
 └──────────────────────────────────────────────────┘
")
                My.Settings.strenght = My.Settings.strenght - 5
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv5 = " Artefakt cienia   [+5 do siły]" Then
                My.Settings.inv5 = ""
                My.Settings.Save()
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │            Wyrzuciłeś artefakt cienia!           │
 └──────────────────────────────────────────────────┘
")
                My.Settings.strenght = My.Settings.strenght - 5
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv6 = " Artefakt cienia   [+5 do siły]" Then
                My.Settings.inv6 = ""
                My.Settings.Save()
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │            Wyrzuciłeś artefakt cienia!           │
 └──────────────────────────────────────────────────┘
")
                My.Settings.strenght = My.Settings.strenght - 5
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv7 = " Artefakt cienia   [+5 do siły]" Then
                My.Settings.inv7 = ""
                My.Settings.Save()
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │            Wyrzuciłeś artefakt cienia!           │
 └──────────────────────────────────────────────────┘
")
                My.Settings.strenght = My.Settings.strenght - 5
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv8 = " Artefakt cienia   [+5 do siły]" Then
                My.Settings.inv8 = ""
                My.Settings.Save()
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │            Wyrzuciłeś artefakt cienia!           │
 └──────────────────────────────────────────────────┘
")
                My.Settings.strenght = My.Settings.strenght - 5
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv9 = " Artefakt cienia   [+5 do siły]" Then
                My.Settings.inv9 = ""
                My.Settings.Save()
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │            Wyrzuciłeś artefakt cienia!           │
 └──────────────────────────────────────────────────┘
")
                My.Settings.strenght = My.Settings.strenght - 5
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            ElseIf My.Settings.inv10 = " Artefakt cienia   [+5 do siły]" Then
                My.Settings.inv10 = ""
                My.Settings.Save()
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │            Wyrzuciłeś artefakt cienia!           │
 └──────────────────────────────────────────────────┘
")
                My.Settings.strenght = My.Settings.strenght - 5
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            Else
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Red
                Console.WriteLine("
 ┌──────────────────────────────────────────────────┐
 │    Nie posiadasz artefaktu cienia w ekwipunku!   │
 └──────────────────────────────────────────────────┘
")
                Console.ForegroundColor = ConsoleColor.White
                Threading.Thread.Sleep(2000)
                nieznana_powrot = True
                GoTo ekwipunek
            End If
        End If


        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("
 ┌────────────────────────────┐
 │      Nieznana komenda      │
 └────────────────────────────┘
")
        Console.ForegroundColor = ConsoleColor.White
        Threading.Thread.Sleep(1500)
        GoTo ekwipunek

apteczka:
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("
 ┌────────────────────────────────────────────┐
 │ Opatrzyłeś swoje rany. Twoje HP wynosi 100 │
 └────────────────────────────────────────────┘
")
        nieznana_powrot = True
        Console.ForegroundColor = ConsoleColor.White
        Threading.Thread.Sleep(2000)
        GoTo powrot
powrot:
        If My.Settings.cave = True And ekwipunek_powrot = False And nieznana_powrot = False Then
            My.Computer.Audio.Play("Sounds\ambient_cave.wav",
        AudioPlayMode.BackgroundLoop)
        Else
            ekwipunek_powrot = False
            nieznana_powrot = False
        End If
        If My.Settings.x = 0 And My.Settings.y = 0 Then

            GoTo x0y0
        Else

        End If

        If My.Settings.x = 0 And My.Settings.y = 1 Then

            GoTo x0y1
        Else

        End If

        If My.Settings.x = 1 And My.Settings.y = 1 Then

            GoTo x1y1
        Else

        End If

        If My.Settings.x = 1 And My.Settings.y = 2 Then
            If My.Settings.rana = True Then
                My.Settings.hp = My.Settings.hp - 5
                My.Settings.Save()
            Else

            End If
            GoTo x1y2
        Else

        End If

        If My.Settings.x = 2 And My.Settings.y = 2 Then
            GoTo x2y2
        Else

        End If

autor:
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.DarkGray
        Console.WriteLine("")
        Console.WriteLine(" ╔══════════════════════ About ══════════════════════╗")
        Console.WriteLine(" ║ Kod: Piotr Szewczyk                               ║")
        Console.WriteLine(" ║ Scenariusz: Piotr Szewczyk                        ║")
        Console.WriteLine(" ║ Cała masa innych rzeczy: Piotr Szewczyk           ║")
        Console.WriteLine(" ║ Opisy lokacji: Piotr Szewczyk                     ║")
        Console.WriteLine(" ║                                                   ║")
        Console.WriteLine(" ║ (C)2018 Piotr Szewczyk                            ║")
        Console.WriteLine(" ╚═══════════════════════════════════════════════════╝")
        Console.ReadKey()
        GoTo menu

dead:
        Console.ForegroundColor = ConsoleColor.DarkGray
        Console.Clear()
        My.Computer.Audio.Play("Sounds\ambient_menu.wav",
        AudioPlayMode.BackgroundLoop)
        Console.WriteLine("")
        Console.WriteLine(" ╔════════════════ Zostałeś pokonany ════════════════╗")
        Console.WriteLine(" ║                                                   ║")
        Console.WriteLine(" ║            Padłeś nieprzytomny na ziemię          ║")
        Console.WriteLine(" ║                    To koniec.                     ║")
        Console.WriteLine(" ║                                                   ║")
        Console.WriteLine(" ║                                                   ║")
        Console.WriteLine(" ║      Naciśnij dowolny przycisk, aby wczytać       ║")
        Console.WriteLine(" ║              ostatni zapisany punkt               ║")
        Console.WriteLine(" ╚═══════════════════════════════════════════════════╝")
        My.Settings.hp = 100
        My.Settings.Save()
        Console.ReadKey()
        GoTo powrot
victory_bestia_1:
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine(" ╔════════════════════ Zwycięstwo ═══════════════════╗")
        Console.WriteLine(" ║                                                   ║")
        Console.WriteLine(" ║                   Nagroda: 150 XP                 ║")
        Console.WriteLine(" ╚═══════════════════════════════════════════════════╝")
        Threading.Thread.Sleep(3000)
        nieznana_powrot = True
        GoTo x1y2

victory_bestia:
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine(" ╔════════════════════ Zwycięstwo ═══════════════════╗")
        Console.WriteLine(" ║                                                   ║")
        Console.WriteLine(" ║                   Nagroda: 150 XP                 ║")
        Console.WriteLine(" ╚═══════════════════════════════════════════════════╝")
        Threading.Thread.Sleep(3000)
        nieznana_powrot = True
        GoTo powrot

stacja_lecznicza:
        Console.SetWindowSize(120, 30)
        'stacja lecznicza
        Console.Clear()
        My.Settings.Upgrade()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine(" ┌────────────────────────┐")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("   HP " & My.Settings.hp & " ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.Write("  " & My.Settings.lvl & " LVL ")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("  " & My.Settings.money & "$  ")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("")
        Console.WriteLine(" └────────────────────────┘")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(" Podchodzisz do stacji leczniczej. Kształtem przypomina szafkę. Gdy do niej podchodzisz, ekran nagle rozbłyska.")
        Console.WriteLine("")
        Console.WriteLine(" ╔════════════════ Stacja lecznicza ═════════════════╗")
        Console.WriteLine(" ║                                                   ║")
        Console.WriteLine(" ║         Aby skorzystać z leczenia zapłać          ║")
        Console.WriteLine(" ║                       20$                         ║")
        Console.WriteLine(" ║                                                   ║")
        Console.WriteLine(" ╚═══════════════════════════════════════════════════╝")
        Console.WriteLine("")
        Console.WriteLine(" Wygląda na to, że jeśli chcsz skorzystać z leczenia, musisz zapłacić.")
        If My.Settings.rana = True Then
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine(" Nieopatrzona rana. [-5HP]")
        Else

        End If
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkBlue
        Console.WriteLine(" Co chcesz zrobić?")
        Console.ForegroundColor = ConsoleColor.DarkMagenta
        Console.WriteLine("
 ┌───────────────────────────────┬─────────────────────────┐
 │ Ulecz się                     │ skorzystaj stacja       │
 │ Powrót                        │ powrot                  │
 └───────────────────────────────┴─────────────────────────┘
")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("> ")
        Console.ForegroundColor = ConsoleColor.White
        Dim stacjainput = Console.ReadLine

        If stacjainput = "skorzystaj stacja" Then
            GoTo stacja_uleczanie
        Else

        End If

        If stacjainput = "powrot" Then
            GoTo powrot
        Else

        End If


        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("
 ┌────────────────────────────┐
 │      Nieznana komenda      │
 └────────────────────────────┘
")
        Console.ForegroundColor = ConsoleColor.White
        Threading.Thread.Sleep(1500)
        nieznana_powrot = True
        GoTo powrot

stacja_uleczanie:

        Console.SetWindowSize(120, 30)
        'stacja lecznicza uleczanie się
        Console.Clear()
        My.Settings.Upgrade()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine(" ┌────────────────────────┐")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("   HP " & My.Settings.hp & " ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.Write("  " & My.Settings.lvl & " LVL ")
        Console.ForegroundColor = ConsoleColor.DarkYellow
        Console.Write("  " & My.Settings.money & "$  ")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("")
        Console.WriteLine(" └────────────────────────┘")
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine(" Koło niewielkiego owtworu mruga zielona lampka. Wahając się wkładasz rękę do otworu. Poczułeś ukłucie. Twoje
 rany się zagoiły, a ty od razu czujesz się lepiej.")
        Console.WriteLine("")
        My.Settings.rana = False
        Console.WriteLine("")
        My.Settings.hp = 100
        My.Settings.Save()
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.WriteLine(" Naciśnij dowolny przycisk, aby kontynuować.")
        Console.ReadKey()
        GoTo powrot
brak_kasy:
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("
 ┌───────────────────────────────────┐
 │      Nie masz tyle pieniędzy      │
 └───────────────────────────────────┘
")
        Console.ForegroundColor = ConsoleColor.White
        Threading.Thread.Sleep(1500)
        nieznana_powrot = True
        GoTo stacja_lecznicza

    End Sub


End Module