JEU ALLUMETTES

Module Module1
    Dim N, i, Nall As Integer

    Sub Main()
        Dim Dep As String
        N = 21
        i = 0
        Randomize(Timer)
        Console.Write("Voulez Commencer oui ? ")
        Dep = Console.ReadLine
        Do
            Console.WriteLine("Reste " & N)

            If N = 4 Then Exit Do
            i = i + 1
            If N = 3 Then Exit Do

            If i Mod 2 = 0 Then
                If Dep.ToLower = "oui" Then
                    Ordinateur()
                Else
                    Humain()
                End If
            Else
                If Dep.ToLower = "oui" Then
                    Humain()
                Else
                    Ordinateur()
                End If
            End If

            N = N - Nall
        Loop Until N = 0

        If i Mod 2 = 0 Then
            If Dep <> "oui" Then
                Console.WriteLine("Vous avez gagné")
            Else
                Console.WriteLine("Le Pc a gagné")
            End If
        Else
            If Dep <> "oui" Then
                Console.WriteLine("Le Pc a gagné")
            Else
                Console.WriteLine("Vous avez gagné")
            End If
        End If
        Console.ReadLine()

    End Sub

    Private Sub Humain()
        Do
            Console.Write("Vous prenez  ")
            Nall = Console.ReadLine
        Loop Until (Nall = 3) Or (Nall = 2) Or (Nall = 1)
    End Sub

    Private Sub Ordinateur()
        Select Case N
            Case 21
                Nall = Int(Rnd() * 3) + 1
            Case 3, 7
                Nall = 3
            Case 2, 6
                Nall = 2
            Case 1, 5
                Nall = 1
            Case Else
                If (Nall = 0) Then
                    Nall = (N - 1) Mod 4
                End If
        End Select
        
        Console.WriteLine("Le PC prend " & Nall & " allumettes")
    End Sub
End Module