Nominate games (or other programs) here to get featured on our Blog! (PART 2)

Question

Not sure if it just ran out of sticky or was deliberately unstickied - will make sticky again.
Ran out. Wasn't sure if it was worthy to keep up. Seems so, but I think we need a new thread. This one is beginning to chug. Thanks, guys!
Ed Price, Power BI & SQL Server Customer Program Manager (Blog,
Small Basic,
Wiki Ninjas,
Wiki)
Answer an interesting question?
Create a wiki article about it!

Answer 1

This game is similar to mastermind
You can guess the computer's code and it can guess yours
Still needs some touching up
turn = 1
attempt = 1
Positions = 3
start:
Positions = Positions + 1
CreateUI()
CompSetUp()
Sub CreateUI
  For z = 1 To 8 
    Shapes.HideShape(colourbutton[z])
    EndFor
  GraphicsWindow.Height = 700
  GraphicsWindow.FontSize = 20
  GraphicsWindow.Width = 702
  GraphicsWindow.BrushColor = "thistle"
  GraphicsWindow.FillRectangle(0, 0, 702, 700)
  ColourCaption[1] = "White"
  ColourCaption[2] = "Yellow"
  ColourCaption[3] = "Orange"
  ColourCaption[4] = "Pink"
  ColourCaption[5] = "Red"
  ColourCaption[6] = "Purple"
  ColourCaption[7] = "Blue"
  ColourCaption[8] = "Green"
  For q = 1 To 8
    GraphicsWindow.BrushColor = ColourCaption[q]
    colourbutton[q] = Controls.AddButton(ColourCaption[q], (q-1) * 88 , 660)
   Controls.SetSize(colourbutton[q], 85, 40)
   EndFor
   For turns = 1 To 10
 For m = 1 To Positions
     GraphicsWindow.BrushColor = "black"
     GraphicsWindow.FillEllipse(m * 10 * (13 - Positions), turns * 60, 10, 10)
   EndFor
   CorrectPos[turns] = Controls.AddTextBox((Positions + 1) * 10 * (13 - Positions), turns * 60)
   CorrectColour[turns] = Controls.AddTextBox((Positions + 2) * 10 * (13 - Positions), turns * 60)
   EndFor
  EndSub
Sub CompGuess
  CreateUI()
  For z = 1 To 8 
    Shapes.HideShape(colourbutton[z])
  EndFor
  For turn = 1 To 10
    GraphicsWindow.BrushColor = "Black"
    Thinking = Shapes.AddText("Thinking...")
    Shapes.Move(Thinking, 300, 10)
    nextturn:
For f = 1 To turn - 1
  CorrectGuess[f] = 0
  CorrectPos[f] = 0
        EndFor
For Choice = 1 To Positions
  back:
  Colour[turn][Choice] = Math.GetRandomNumber(8)
  For i = 1 To Choice - 1
    If Colour[turn][Choice] = Colour[turn][i] Then
      Goto back
    EndIf
  endfor
  For c = 1 To turn - 1
    For a = 1 To Positions
      If Colour[turn][Choice] = Colour[c][a] And Choice <> a Then
        CorrectGuess[c] = CorrectGuess[c] + 1
      ElseIf Colour[turn][Choice] = Colour[c][a] and Choice = a then
        CorrectPos[c] = CorrectPos[c] + 1
      EndIf
        EndFor
    EndFor
    EndFor
    For x = 1 To turn - 1
      If CorrectGuess[x] <> NumCorrect[x] Or CorrectPos[x] <> NumPosCorrect[x] Then
        Goto nextturn
        EndIf
      EndFor
      For thisChoice = 1 To Positions
        If Colour[turn][thisChoice] = 1 Then
          Col = "White"
        ElseIf Colour[turn][thisChoice] = 2 Then
          Col = "Yellow"
          ElseIf Colour[turn][thisChoice] = 3 Then
          Col = "Orange"
          ElseIf Colour[turn][thisChoice] = 4 Then
          Col = "Pink"
          ElseIf Colour[turn][thisChoice] = 5 Then
          Col = "Red"
          ElseIf Colour[turn][thisChoice] = 6 Then
          Col = "Purple"
          ElseIf Colour[turn][thisChoice] = 7 Then
          Col = "Blue"
          ElseIf Colour[turn][thisChoice] = 8 Then
          Col = "Green"
        EndIf
        Shapes.HideShape(Thinking)
        GraphicsWindow.BrushColor = Col
        GraphicsWindow.FillEllipse((thisChoice * 10 * (13 - Positions)) - 10, ((11 - turn) * 60) - 10, 30, 30)
      endfor
      For f = 1 To turn - 1
        CorrectGuess[f] = 0
        CorrectPos[f] = 0
      EndFor
      NumPosCorrect[turn] = -1
       NumCorrect[turn] = -1
       WaitOn:
      Controls.TextTyped = NumbersGiven
      If NumPosCorrect[turn] = Positions Then
          Correct()
        endif
        If NumPosCorrect[turn] = -1 Or  NumCorrect[turn] = -1 Then
          Goto WaitOn
          EndIf
          EndFor
EndSub
Sub NumbersGiven
  LastTextbox = Controls.LastTypedTextBox
  If LastTextbox = CorrectPos[11 - turn] Then
    NumPosCorrect[turn] = Controls.GetTextBoxText(CorrectPos[11 - turn])
  ElseIf LastTextbox = CorrectColour[11 - turn] then
    NumCorrect[turn] = Controls.GetTextBoxText(CorrectColour[11 - turn])
    EndIf
  endsub
Sub Correct
 GraphicsWindow.ShowMessage("I guessed right in only " + turn + " turns!", "Correct!")
 Compscore = Compscore + turn
 PersonScore = PersonScore + attempt
 If Positions = 6 Then
  If Compscore > PersonScore Then
    GraphicsWindow.ShowMessage("You Win!","Result")
  ElseIf Compscore < PersonScore then 
    GraphicsWindow.ShowMessage("You Lose!","Result")
  Elseif Compscore = PersonScore then
    GraphicsWindow.ShowMessage("Draw!","Result")
  EndIf
Else
  Goto start
  EndIf
  Program.End()
EndSub
Sub CompSetUp
  For Peg = 1 To Positions
    bookmark:
    Solution[peg] = Math.GetRandomNumber(8)
    For b = 1 To Peg - 1
      If Solution[peg] = Solution[b] Then
        Goto bookmark
      EndIf
    EndFor
    EndFor
    PersonGuess()
    EndSub
  Sub Personguess
    For attempt = 1 To 10
    RightColour[attempt] = 0
    RightSpot[attempt] = 0
    'GraphicsWindow.ShowMessage(Guess, Guess) 
    For guess = 1 To Positions
      solve[guess] = "nope"
      NoButton:
      Controls.ButtonClicked = ButtonClicked
      If solve[guess] = "White" Then
        Number[guess] = 1
        ElseIf solve[guess] = "Yellow" Then
          number[guess] = 2
          ElseIf solve[guess] = "Orange" Then
          number[guess] = 3
          ElseIf solve[guess] = "Pink" Then
          number[guess] = 4
          ElseIf solve[guess] = "Red" Then
          number[guess] = 5
          ElseIf solve[guess] = "Purple" Then
          number[guess] = 6
          ElseIf solve[guess] = "Blue" Then
          number[guess] = 7
          ElseIf solve[guess] = "Green" Then
            number[guess] = 8
          Else 
            Goto NoButton
          EndIf
        EndFor
        GiveResult()
        EndFor
          EndSub
          Sub ButtonClicked
            'GraphicsWindow.ShowMessage(Guess, Guess)
            Lastbutton = Controls.LastClickedButton
            decision = Controls.GetButtonCaption(Lastbutton)
            GraphicsWindow.BrushColor = decision
            GraphicsWindow.FillEllipse((Guess * 10 * (13 - Positions)) - 10, ((11 - attempt) * 60) - 10, 30, 30) 
            'GraphicsWindow.ShowMessage(Guess, Guess) 
            Solve[guess] = decision
          EndSub
          Sub GiveResult
        For t = 1 To Positions
          For r = 1 To Positions
            If Number[t] = Solution[r] And t <> r Then
              RightColour[attempt] = RightColour[attempt] + 1
            ElseIf Number[t] = Solution[r] And t = r then
              RightSpot[attempt] = RightSpot[attempt] + 1
              EndIf
              EndFor
            EndFor
            Controls.SetTextBoxText(CorrectPos[11 - attempt], RightSpot[attempt])
            Controls.SetTextBoxText(CorrectColour[11 - attempt], RightColour[attempt])
            If RightSpot[attempt] = Positions Then
              GraphicsWindow.ShowMessage("It took you " + attempt + " turns", "Correct!")
              CompGuess()
            EndIf
         ' GraphicsWindow.ShowMessage("k","k")
            EndSub