Microsoft Small Basic

Program Listing: CCW172

List Program

'Dominoes game
SetupWindow()


Sub SetupWindow
GraphicsWindow.Title = "Dominoes"
GraphicsWindow.Width = 800
GraphicsWindow.Height = 600
GraphicsWindow.BackgroundColor = "#710000"
SetupFirstGUI()
SetupSecondGUI()
SetFirstDominoe()
GetFirstHands()
EndSub


Sub SetupFirstGUI
GraphicsWindow.PenColor = "#FFB014"
GraphicsWindow.BrushColor = "#FFB014"
guiColorPlayer1 = Shapes.AddRectangle(GraphicsWindow.Width, 100)
Shapes.Animate(guiColorPlayer1, 0, GraphicsWindow.Height - 100, 0)
selectDominoePlayer1 = Controls.AddButton("Choose selected dominoe", Shapes.GetLeft(guiColorPlayer1) + 10, Shapes.GetTop(guiColorPlayer1) + 10)
selectTargetSpacePlayer1 = Controls.AddButton("Choose selected place", Shapes.GetLeft(guiColorPlayer1) + 10, Shapes.GetTop(guiColorPlayer1) + 40)
playDominoePlayer1 = Controls.AddButton("Play selected dominoe", Shapes.GetLeft(guiColorPlayer1) + 10, Shapes.GetTop(guiColorPlayer1) + 70)
EndSub

Sub SetupSecondGUI
GraphicsWindow.PenColor = "#FFB014"
GraphicsWindow.BrushColor = "#FFB014"
guiColorPlayer2 = Shapes.AddRectangle(GraphicsWindow.Width, 100)
selectDominoePlayer2 = Controls.AddButton("Choose selected dominoe", Shapes.GetLeft(guiColorPlayer2) + 10, Shapes.GetTop(guiColorPlayer2) + 10)
selectTargetSpacePlayer2 = Controls.AddButton("Choose selected place", Shapes.GetLeft(guiColorPlayer2) + 10, Shapes.GetTop(guiColorPlayer2) + 40)
playDominoePlayer2 = Controls.AddButton("Play selected dominoe", Shapes.GetLeft(guiColorPlayer2) + 10, Shapes.GetTop(guiColorPlayer2) + 70)
EndSub

Sub SetFirstDominoe
firstDomNumOfDotsSide1 = Math.GetRandomNumber(6)
firstDomNumOfDotsSide2 = Math.GetRandomNumber(6)
EndSub

Sub GetFirstHands

EndSub