Zabawa z canvas i JavaScript - gra Mastermind

Thu, 05 Jan 2023 15:03:34 +0000

To jest wątek ogłoszony w ósmym odcinku kursu JavaScript:

https://www.youtube.com/watch?v=w4Ok_nL5WvY

Można tutaj postować własne wersje gry w Mastermind, wykonane z wykorzystaniem canvas w HTML 5 lub korzystające z bibliotek okołocanvasowych lub WebGLowych.

Pliki do odcinka można pobrać tutaj:

https://miroslawzelent.pl/pliki/kurs_js8.zip

MasterMind - Gra

Thu, 18 Jun 2020 17:14:46 +0000

Czy ktoś z was grał w MasterMinda? Ja mam super wspomnienia z dzieciństwa jeśli chodzi o tą grę, więc postanowiłem ją odwzorować. Póki co to gra nie jest przystosowana na urządzenia mobilne, ale w niedalekiej przyszłości rówież tym się zajmę. Zapraszam do zagrania.

MasterMind

Mastermind - gra w Visual Basic

Thu, 27 Apr 2017 13:20:15 +0000

Witam,

Dostałem ostatnio na zadanie domowe, stworzenie prostej gry w Mastermind w Visual Basic. Myślałem, że zadanie będzie proste i bez problemu sobie z nim poradzę, ale nic bardziej mylnego, siedzę nad kodem od 2 dni i nie mam pomysłu jak ta gra powinna działać. Treść zadanie brzmi tak: "Mastermind. Wygeneruj losową liczbę 4 cyfrową. Gracz musi wpisywać 4 cyfrowe liczby dopóki nie odgadnie losowo wygenerowanej liczby. Po każdej nieudanej próbie, gra powinna wypisać ile numerów było prawidłowych, lecz nie podawać ich pozycji" Tu pojawia się pewna niejasność, gdyż wiem, że w grze Mastermind podaje się ilość liczb 'prawidłowych - na swoich miejscach' i 'prawidłowych - nie na swoich miejscach'. Dlatego zakładam, że ma to wyglądać właśnie w ten sposób. Kontynuując "Na koniec gra powinna pogratulować graczowi i powiedzieć ile prób im zajęło odgadnięcie tego numeru"

To była podstawowa część zadania, do tego są jeszcze 3 rozszerzenia.

1. Pozwolić graczowi wybrać łatwy tryb gry, w którym gra podawałaby dokładnie, która cyfra w 4 cyfrowej liczbie jest poprawna.

2. Pozwolić graczowi wybrać trudny tryb gry, który generowałby 5 cyfrową liczbę zamiast 4 cyfrowej.

3. Po zakończeniu gry zapytać o imię gracza i zapisać ich punkty w tabeli. Po uruchomieniu gry pokazywać tabelę z najlepszymi wynikami, żeby dodać do gry element rywalizacji.

Co do rozszerzeń to raczej nie widzę z nimi żadnego problemu i mam już pomysł jak je zrobić. Problem pojawił się w podstawowej części zadania. Napisałem kod z interfejsem (menu, input, output itd.) i zacząłem zastanawiać się nad mechaniką gry. Dużym ograniczeniem okazała się funkcja InStr(string, szukany_znak), gdyż wyszukuje ona pierwszą literę/liczbę w danym stringu i podaje jej pozycję. A jak wiemy losowo wygenerowana liczba może składać się np. z samych 2 (2222). W przypadku kiedy gracz wpisze "1234", algorytm sprawdzający, uzna, że 1 cyfra jest poprawna, ale nie na swoim miejscu, gdyż pierwsza 2 na jaką natrafi będzie na 1 pozycji, a nie na 2. Myślałem nad ograniczeniem algorytmu tylko do cyfr na pozycji równej lub większej niż ta sprawdzana, tzn. Jeżeli gracz wpisuje "1234", algorytm sprawdza cyfrę 2, to 'kod"/losowa liczba "2222" będzie sprawdzana tylko od drugiej 2 "X222". Tutaj też pojawił się problem gdyż działało by to jedynie w przypadku losowej liczby składającej się z tych samych cyfr.

Pod spodem zamieszczam kod, który już napisałem. Wiem, że jest on niepoprawny, ale już tak długo myślę nad tym rozwiązaniem, że trochę się już pogubiłem w tym co piszę. Dlatego liczę na czyjąś pomoc, może nie w rozwiązaniu, bo nie chcę dostać gotowej odpowiedzi na to zadanie, ale np. naprowadzeniu na pewien tok myślenia nad rozwiązaniem. Część odpowiedzialna za rozgrywkę to Sub PlayGame().

Module Module1
    Dim RandomNumber As String
    Dim RandomDigits(4) As String
    Dim numberinput As String
    Dim PlayerString As String
    Dim PlayerDigits(4) As String
    Dim RemainDigits(4) As String
    Dim Number(4) As Boolean


    Sub Main()
        Dim menuselect As Char

        Console.Clear()

        For i = 1 To 4
            Number(i) = False
        Next

        Heading()

        'Menu
        Console.WriteLine("MAIN MENU")
        Console.WriteLine("1.(N)ew Game")
        Console.WriteLine("2.(S)elect Mode")
        menuselect = Console.ReadLine()

        Do Until menuselect = "N" Or menuselect = "S"
            Console.WriteLine("It's not a correct input")
            menuselect = Console.ReadLine()
        Loop

        If menuselect = "N" Then
            PlayGame()
        Else
            ModeSelect()
        End If

        Console.ReadLine()
    End Sub

    Sub Heading()
        Console.WriteLine("************")
        Console.WriteLine(" MASTERMIND ")
        Console.WriteLine("************")
    End Sub

    Sub Generator()
        Dim rand As New Random

        For i = 1 To 4
            RandomDigits(i) = Str(rand.Next(0, 9))
            RandomNumber = RandomNumber & RandomDigits(i)
        Next

    End Sub

    Sub ModeSelect()
        Dim mode As Char

        Console.Clear()

        Heading()

        Console.WriteLine("Select the game mode:")
        Console.WriteLine("1.(E)asy mode - shows which position you have guessed correctly")
        Console.WriteLine("2.(H)ard mode - generates 5 digit number")
        Console.WriteLine()
        Console.WriteLine("(B)ack to main menu")
        mode = Console.ReadLine()

        Do Until mode = "E" Or mode = "H" Or mode = "B"
            Console.WriteLine("It's not a correct input")
            mode = Console.ReadLine()
        Loop

        If mode = "E" Then
            Play_EasyMode()
        ElseIf mode = "H" Then
            Play_HardMode()
        ElseIf mode = "B" Then
            Main()
        End If
    End Sub

    Sub PlayGame()
        Dim CorrectDigit(4) As Boolean
        Dim MissedDigit(4) As Boolean
        Dim CorrectCount As Integer
        Dim MissedCount As Integer
        Dim NoOfTries As Integer
        Dim DigitPos As Integer

        Generator()


        Do Until CorrectDigit(1) = True And CorrectDigit(2) = True And CorrectDigit(3) = True And CorrectDigit(4) = True
            NumberDigitCheck()

            For i = 1 To 4
                PlayerDigits(i) = Mid(PlayerString, i, 1)
            Next

            For z = 1 To 4
                CorrectDigit(z) = False
                MissedDigit(z) = False
            Next

            CorrectCount = 0
            MissedCount = 0

            For j = 1 To 4
                DigitPos = InStr(RandomNumber, PlayerDigits(j))
                If DigitPos <> 0 Then
                    If Mid(RandomNumber, j, 1) = PlayerDigits(j) Then
                        CorrectDigit(j) = True
                        CorrectCount += 1
                    Else
                        MissedDigit(j) = True
                        MissedCount += 1
                    End If
                End If
            Next

            Console.WriteLine("You've got " & CorrectCount & " digits correct and on their place")
            Console.WriteLine("You've got " & MissedCount & " digits correct but not on their place")

            NoOfTries += 1
        Loop



        Console.WriteLine("CONGRATULATIONS, YOU'VE GUESSED THE NUMBER")
        Console.WriteLine("It took you " & NoOfTries & " tries to guess it")

        Console.ReadLine()

        Main()

    End Sub

    Sub NumberDigitCheck()
        Console.WriteLine("Insert a number:")
        numberinput = Console.ReadLine()

        Do Until numberinput.Length = 4
            Console.WriteLine("It's not a 4 digit number")
            numberinput = Console.ReadLine()
        Loop

        PlayerString = Str(numberinput)
    End Sub

    Sub Play_EasyMode()

    End Sub

    Sub Play_HardMode()

    End Sub

End Module

Problem z tym kodem wygląda tak, że w Sub PlayGame() kod jest zdecydowanie niepoprawny i gra niepoprawnie sprawdza numery, które wpisuje gracz. Przykładem błędu może być: Gra losuje liczbę, wpisuję 1234, dostaję odpowiedź, że 1 cyfra jest poprawna na swoim miejscu i 1 jest poprawna nie na swoim miejscu, z czego wnioskuję, że 2 cyfry z zakresu 1-4 są częścią kodu. Następnie dla sprawdzenia wpisuję 0000 i otrzymuję odpowiedź "1 cyfra poprawna na swoim miejscu, 2 poprawne nie na swoim miejscu" co by oznaczało, że 3 zera są częścią kodu. 3 zera + 2 cyfry z zakresu 1-4 = 5 cyfr, więc wyświetlane komunikaty są błędne i kod nie sprawdza liczby tak jak powinien.

Z góry dziękuję wszystkim za odpowiedzi.

Dołącz do mojego masterminda!

Sat, 03 Dec 2016 19:28:38 +0000

Witam, mam na imię Patryk mam 16 lat, chodzę do I klasy liceum o profilu informatycznym. Od ponad roku programuję i nadal uczę się programować. Dużo się nauczyłem umiem dobrze 5 podstawowych technologii webowych, bootstrapa i c++. Poszukuję ludzi do mojego "masterminda" Jeśli nie wiesz co to jest obejrzyj to wideo: https://www.youtube.com/watch?v=vrlsSdXgnsc&t=0s . Chciałbym stworzyć grupkę 3-4 osobową, które:

-pasjonują się programowaniem, najlepiej programowaniem webowym(frontend lub backend)

-dobra znajomość języka angielskiego

-mają plany na przyszłość

-są ambitne, odpowiedzialne, można na nich liczyć, inteligentne :)

Dlaczego chciałbym stworzyć mastermind?

Głównie dlatego że praktycznie nikt z mojego otoczenia nie interesuje się programowaniem? Po obejrzeniu tego nagrania, stwierdziłem że trzy głowy do myślenia to nie jedna. Chciałbym się czegoś nauczyć od ciebie i nawzajem. Wymieniać się poglądami, rozmawiać o nowych technologiach, planach na przyszłość, wymieniać się poglądami, szukać inspiracji itp.

Jak wyglądały by spotkania?

Na początku chciałbym abyśmy się najpierw poznali lepiej, więc tych spotkań było by więcej. Rozmowy by trwały mniej więcej 1-2 godzin przez skype lub discord. Obowiązkowo żeby to była rozmowa głosowa niekoniecznie z kamerką, czat odpada. Omawialibyśmy kilka punktów które warto poruszyć.

Jak się zgłosić?

Możesz napisać do mnie na maila: pfilipiak00@gmail.com lub w wiadomości prywatnej na forum

Forum Pasja Informatyki - Najnowsze z tagiem mastermind

Zabawa z canvas i JavaScript - gra Mastermind

MasterMind - Gra

Mastermind - gra w Visual Basic

Dołącz do mojego masterminda!