' MasterMind Game
' Original by _paul_ (Visual Basic Version)
' Modified by Nonki Takahashi (Small Basic Version)
' Last update 2019-10-06
' Program ID GMV958-0
Form_Load()
While "True"
If Controls_triggered Then
Controls_Proc()
If selectedIndexChanged Then
Form_SelectedIndexChanged()
EndIf
ElseIf btnCheck_Clicked Then
Form_btnCheck_Click()
btnCheck_Clicked = "False"
ElseIf btnNew_Clicked Then
Form_btnNew_Click()
btnNew_Clicked = "False"
ElseIf Controls_mouseDown Then
Peg_Click_Check()
Controls_mouseDown = "False"
Else
Program.Delay(200)
EndIf
EndWhile
Sub Dummy
cms = "Not Used"
EndSub
Sub Controls_AddComboBox
' param item - array of items
' param left - the x co-ordinate of the combo box
' param top - the y co-ordinate of the combo box
' return cbox - the combo box
Stack.PushValue("local", i)
nCBox = nCBox + 1
fs = GraphicsWindow.FontSize
cbProp[nCBox]["height"] = fs * 1.8
nItem = Array.GetItemCount(item)
cbProp[nCBox]["nItem"] = nItem
cbProp[nCBox]["item"] = item
widthMax = 0
For i = 1 To nItem
len = Text.GetLength(item[i])
width = 0
For j = 1 To len
width = width + Math.Floor(luw[Text.GetSubText(item[i], j, 1)] * fs / 100)
EndFor
If widthMax < width Then
widthMax = width
EndIf
EndFor
tboxWidth = widthMax ' + fs
cbProp[nCBox]["width"] = tboxWidth
cbProp[nCBox]["x"] = left
cbProp[nCBox]["y"] = top
cbProp[nCBox]["tbox"] = Controls.AddTextBox(left, top)
Controls.SetSize(cbProp[nCBox]["tbox"], tboxWidth, cbProp[nCBox]["height"])
selectedIndex = 1
Controls.SetTextBoxText(cbProp[nCBox]["tbox"], cbProp[nCBox]["item"][selectedIndex])
cbProp[nCBox]["btn"] = Controls.AddButton("▾", left + tboxWidth - 1, top)
Controls.SetSize(cbProp[nCBox]["btn"], fs * 1.8, cbProp[nCBox]["height"])
cbox = "ComboBox" + nCBox
Controls.ButtonClicked = Controls_OnButtonClicked
GraphicsWindow.MouseMove = Controls_OnMouseMove
GraphicsWindow.MouseDown = Controls_OnMouseDown
i = Stack.PopValue("local")
EndSub
Sub Controls_Proc
'
selectedIndexChanged = "False"
For i = 1 To nCBox
If Controls.LastClickedButton = cbProp[i]["btn"] Then
GraphicsWindow.PenColor = "Gray"
GraphicsWindow.PenWidth = 1
GraphicsWindow.BrushColor = "White"
rect = Shapes.AddRectangle(cbProp[i]["width"], cbProp[i]["height"] * cbProp[i]["nItem"])
Shapes.Move(rect, cbProp[i]["x"], cbProp[i]["y"] + cbProp[i]["height"] - 1)
GraphicsWindow.BrushColor = "Black"
For j = 1 To cbProp[i]["nItem"]
it[j] = Shapes.AddText(cbProp[i]["item"][j])
Shapes.Move(it[j], cbProp[i]["x"] + cbProp[i]["height"] * 0.3, cbProp[i]["y"] + (j + 0.2) * cbProp[i]["height"])
EndFor
Controls_mouseDown = "False"
While Not[Controls_mouseDown]
If Controls_mouseMove Then
Controls_Select()
Controls_mouseMove = "False"
Else
Program.Delay(200)
EndIf
EndWhile
Controls_Select()
Shapes.Remove(cbSelect)
cbSelect = ""
For j = 1 To cbProp[i]["nItem"]
Shapes.Remove(it[j])
EndFor
Shapes.Remove(rect)
If selected <> 0 Then
lastItem = Controls.GetTextBoxText(cbProp[i]["tbox"])
If lastItem <> cbProp[i]["item"][selected] Then
Controls.SetTextBoxText(cbProp[i]["tbox"],cbProp[i]["item"][selected])
selectedIndexChanged = "True"
selectedIndex = selected
EndIf
EndIf
EndIf
EndFor
Controls_triggered = "False"
EndSub
Sub Controls_OnButtonClicked
' button handler for [Check] and [New Game] buttons and combo box
btn = Controls.LastClickedButton
If btn = btnCheck Then
btnCheck_Clicked = "True"
ElseIf btn = btnNew Then
btnNew_Clicked = "True"
Else
Controls_triggered = "True"
EndIf
EndSub
Sub Controls_OnMouseMove
' mouse move handler for combo box
Controls_mx = GraphicsWindow.MouseX
Controls_my = GraphicsWindow.MouseY
Controls_mouseMove = "True"
EndSub
Sub Controls_OnMouseDown
' mouse down handler for combo box and peg
Controls_mx = GraphicsWindow.MouseX
Controls_my = GraphicsWindow.MouseY
Controls_mouseDown = "True"
EndSub
Sub Controls_Select
' select an item from combo box menu
' return selected - item
selected = 0
If cbProp[i]["x"] <= Controls_mx And Controls_mx <= cbProp[i]["x"] + cbProp[i]["width"] Then
For j = 1 To cbProp[i]["nItem"]
y1 = cbProp[i]["y"] + j * cbProp[i]["height"]
y2 = y1 + cbProp[i]["height"]
If y1 <= Controls_my And Controls_my <= y2 Then
GraphicsWindow.BrushColor = "#663399FF"
GraphicsWindow.PenWidth = 0
If cbSelect = "" Then
cbSelect = Shapes.AddRectangle(cbProp[i]["width"], cbProp[i]["height"])
EndIf
Shapes.Move(cbSelect, cbProp[i]["x"], y1 - 1)
selected = j
EndIf
EndFor
EndIf
EndSub
' ----------------------------------------------------------------
' Code (The pegPlace custom control):
' ----------------------------------------------------------------
' The rows of ellipses are actually controls derived from the Control Class with a
' pegColor Property (which is initially set to Empty), and a Boolean property:
' CMSEnabled:
Sub Peg_Init
pegColor = ""
CMSEnabled = ""
EndSub
' ...an overridden OnPaint event. (I eventually decided regular Green and Blue were
' too dark, so I chose Lime and RoyalBlue instead):
Sub Peg_OnPaint
If visible[peg] Then
GraphicsWindow.BrushColor = bg
GraphicsWindow.FillRectangle(pegX[peg] - 1, pegY[peg] - 1, 17, 17)
If pegColor[peg] = "Green" Then
GraphicsWindow.BrushColor = "Lime"
ElseIf pegColor[peg] = "Blue" Then
GraphicsWindow.BrushColor = "RoyalBlue"
Else
GraphicsWindow.BrushColor = pegColor[peg]
EndIf
GraphicsWindow.FillEllipse(pegX[peg], pegY[peg], 15, 15)
GraphicsWindow.PenWidth = 1
GraphicsWindow.PenColor = black
GraphicsWindow.DrawEllipse(pegX[peg], pegY[peg], 15, 15)
EndIf
EndSub
' ...a reset method:
Sub Peg_Reset
pegColor[peg] = bg
Peg_Invalidate()
EndSub
' ...a ContextMenuStrip and some handlers and a public event:
'Public Event colorSelected(sender As Object)
'Private WithEvents cms As New ContextMenuStrip
Sub Peg_ItemClicked
' param sender As Object
' param e As EventArgs
peg = sender
c = toolStripMenuItem[peg][1]
pegColor[peg] = c
Peg_Invalidate()
Form_ColorSelected()
EndSub
Sub Peg_CMS_Opening
' param sender As Object
' param e As System_ComponentModel_CancelEventArgs
' Handles cms_Opening
e_Cancel = Not[CMSEnabled]
EndSub
' Notice how the ContextMenuStrip only opens for controls in the current line?
' In the itemClicked event, I raised an event to inform the parent control (Form1)
' that color had been set for the pegPlace. On receiving that event notification,
' the code in the form checks whether to enable btnCheck or not.
' This code is duplicated in the control’s MouseDown event, where you can click to
' cycle through the colors:
Sub Peg_OnMouseDown
' param e As MouseEventArgs
If CMSEnabled[peg] Then 'And Mouse.IsLeftButtonDown Then
colors = "1=Red;2=Green;3=Blue;4=Yellow;"
Color_FromName = "Red=1;Green=2;Blue=3;Yellow=4;"
index = 0
For i = 1 To 4
If pegColor[peg] = colors[i] Then
index = i
i = 4 ' exit For
EndIf
EndFor
index = Math.Remainder(index, 4) + 1
pegColor[peg] = colors[index]
Peg_Invalidate()
Form_ColorSelected()
EndIf
EndSub
Sub Peg_Click_Check
y = lineIndex
For x = 1 To 6
peg = lines[y][x]
If visible[peg] Then
x1 = pegX[peg]
x2 = x1 + size[peg]["x"]
y1 = pegY[peg]
y2 = y1 + size[peg]["y"]
mx = Controls_mx
my = Controls_my
If (x1 <= mx) And (mx <= x2) And (y1 <= my) And (my <= y2) Then
sender = peg
Peg_OnMouseDown()
EndIf
EndIf
EndFor
EndSub
' In the control’s constructor, I set the size, and setup the ContextMenuStrip:
'
' A ContextMenuStrip_Items property contains objects of type: ToolStripMenuItem.
' In the code I added an array of ToolStripMenuItem, created from an array of
' Strings, using the Array_ConvertAll Generic Method with a Lambda Function to
' convert each string to a ToolStripMenuItem, using the ToolStripMenuItem
' OverLoad that takes a String (the text), an Image (unused in my implementation),
' and an EventHandler (the common itemClicked Sub-Procedure):
' ----------------------------------------------------------------
' Code (The Form):
' ----------------------------------------------------------------
' In the Load event, I load some arrays (which are reference types ) and add the
' pegPlace colorSelected event handler, which enables or disables btnCheck. Setting
' the ToolStripComboBox_SelectedIndex sets up the UI and the call to newGame()
' initializes the variables for gameplay:
'
' The winning line array is a string array, which contains the current random
' winning sequence of colors. Colors are assigned with a Form level Random object,
' ensuring maximum randomness (see: Random Class and: Random Constructor (Int32) ):
Sub Form_ColorSelected
' param sender As Object
For y = 1 To 12
For x = 1 To 6
If sender = lines[y][x] Then
containsAll = "True"
For i = 1 To level
_peg = lines[y][i]
If pegColor[_peg] = bg Then
containsAll = "False"
EndIf
EndFor
If containsAll Then
Shapes.HideShape(btnCheckDisabled)
EndIf
EndIf
EndFor
EndFor
EndSub
For x = 1 To 6
peg = scoreLine[x]
If x <= level Then
visible[peg] = "True"
Else
visible[peg] = "False"
EndIf
EndFor
For y = 1 To 12
For x = 1 To 6
peg = lines[y][x]
If (y <= level * 2) And (x <= level) Then
visible[peg] = "True"
Else
visible[peg] = "False"
EndIf
EndFor
If y <= level * 2 Then
gy = pegY[peg] + size[peg]["y"] * 1.5
EndIf
EndFor
Controls.Move(btnCheck, left, gy)
Shapes.Move(btnCheckDisabled, left, gy)
gy = gy + 30
Controls.Move(btnNew, left, gy)
Shapes.Move(btnNewDisabled, left, gy)
Form_NewGame()
EndSub
Sub Form_NewGame
colors = "1=Red;2=Green;3=Blue;4=Yellow;"
winningLine = ""
For x = 1 To level
winningLine[x] = colors[Math.GetRandomNumber(4)]
EndFor
lineIndex = level * 2
Form_broadcastCMSEnabled()
clues = ""
For x = 1 To 6
peg = scoreLine[x]
Peg_Reset()
EndFor
For y = 1 To 12
For x = 1 To 6
peg = lines[y][x]
Peg_Reset()
EndFor
EndFor
Shapes.ShowShape(btnCheckDisabled)
Shapes.ShowShape(btnNewDisabled)
Form_Invalidate()
EndSub
'...The feedback scores are stored in an array of structure (again a Reference Type
' array, although each element is a Value Type), with one element for each row of
' pegPlaces. This array is used in the Form’s Paint event, where the feedback
' ellipses are drawn directly on the form:
Sub Form_Paint
' param sender As Object
' param e As PaintEventArgs
' Handles Me_Paint
GraphicsWindow.PenWidth = 3
GraphicsWindow.PenColor = black
GraphicsWindow.DrawLine(12, 65, gw - 12, 65)
If level = 6 Then
positions[1] = "x=8;y=2;"
positions[2] = "x=13;y=2;"
positions[3] = "x=18;y=2;"
positions[4] = "x=8;y=7;"
positions[5] = "x=13;y=7;"
positions[6] = "x=18;y=7;"
ElseIf level = 5 Then
positions[1] = "x=8;y=2;"
positions[2] = "x=13;y=2;"
positions[3] = "x=18;y=5;"
positions[4] = "x=8;y=7;"
positions[5] = "x=13;y=7;"
Else
positions[1] = "x=8;y=2;"
positions[2] = "x=13;y=2;"
positions[3] = "x=8;y=7;"
positions[4] = "x=13;y=7;"
EndIf
For y = 12 To 1 Step -1
peg = lines[y][1]
If visible[peg] Then
For x = 1 To level
fillColor = ""
If x <= clues[y]["black"] Then
fillColor = "Black"
Else
If x <= clues[y]["black"] + clues[y]["red"] Then
fillColor = "Red"
EndIf
EndIf
peg = lines[y][level]
right = pegX[peg] + size[peg]["x"]
top = pegY[peg]
If x = 1 Then
GraphicsWindow.BrushColor = bg
GraphicsWindow.FillRectangle(right, top + 2, 22, 11)
EndIf
If fillColor <> "" Then
GraphicsWindow.BrushColor = fillColor
GraphicsWindow.FillEllipse(right + positions[x]["x"], top + positions[x]["y"] + 2, 3, 3)
EndIf
GraphicsWindow.PenColor = black
GraphicsWindow.PenWidth = 1
GraphicsWindow.DrawEllipse(right + positions[x]["x"], top + positions[x]["y"] + 2, 3, 3)
EndFor
EndIf
EndFor
EndSub
' ...The btnCheck Click event checks the guessed sequence of colors against the
' winning sequence of colors. During this checking, the feedback for the row being
' checked is calculated, then the Paint event is invoked (Control_Invalidate Method)
' to draw the feedback on the form.
' Also in this event, the app. checks if the game is over, either as a result of a
' correct guess, or because the eight, ten, or twelve guesses have been unsuccessful.
' The two Buttons, btnCheck, and btnNew are enabled or disabled in this event,
' depending on the state of play:
Sub Form_btnCheck_Click
' param sender As Object
' param e As EventArgs
' Handles btnCheck_Click
line = ""
clues[lineIndex] = "black=0;red=0;"
countB = 0
countR = 0
For x = 1 To level
peg = lines[lineIndex][x]
lineColors[x] = pegColor[peg]
If winningLine[x] = lineColors[x] Then
countB = countB + 1
EndIf
EndFor
For x = 1 To level
If winningLine[x] <> lineColors[x] Then
For x2 = 1 To level
If (winningLine[x2] <> lineColors[x2]) And (winningLine[x] = lineColors[x2]) Then
temp = lineColors[x]
lineColors[x] = lineColors[x2]
countR = countR + 1
lineColors[x2] = temp
If winningLine[x2] = lineColors[x2] Then
countR = countR + 1
EndIf
EndIf
EndFor
EndIf
EndFor
clues[lineIndex]["black"] = countB
clues[lineIndex]["red"] = countR
Form_Invalidate()
If clues[lineIndex]["black"] = level Then
GraphicsWindow.ShowMessage("You've won!", title)
lineIndex = 0
Form_broadcastCMSEnabled()
Shapes.HideShape(btnNewDisabled)
Shapes.ShowShape(btnCheckDisabled)
Else
Shapes.ShowShape(btnCheckDisabled)
lineIndex = lineIndex - 1
Form_broadcastCMSEnabled()
If lineIndex = 0 Then
GraphicsWindow.ShowMessage("You've lost!", title)
Shapes.HideShape(btnNewDisabled)
Else
Goto FbCC_Return
EndIf
EndIf
For x = 1 To level
peg = scoreLine[x]
pegColor[peg] = winningLine[x]
Peg_Invalidate()
EndFor
FbCC_Return:
EndSub
Sub Form_Invalidate
Form_Paint()
EndSub
' ...This method is used after each line is checked to change all of the pegPlaces’
' CMSEnabled property:
Sub Form_broadcastCMSEnabled
' param lineIndex
For y = 1 To 12
For x = 1 To 6
peg = lines[y][x]
If y = lineIndex Then
CMSEnabled[peg] = "True"
Else
CMSEnabled[peg] = "False"
EndIf
EndFor
EndFor
EndSub
' ...The btnNew Click event calls newGame() which puts a new random sequence
' of colors in the winningLine array, then resets all of the Class level variables
' back to their original state, for a fresh start:
Sub Form_btnNew_Click
' param sender As Object
' param e As EventArgs
' Handles btnNew_Click
Form_NewGame()
EndSub
Program Listing: GMV958-0