# The scripts in this tutorial implement the famous minesweeper game
# STEP 1



# First of all we create the main game widget
# The minesweeper widget inherits from the widget class
class(minesweepermain,widget)
{
	# The constructor sets the basic widget properties
	# and creates the child widgets
	constructor()
	{
		# Set the widget caption
		$$->$setCaption("KVIrc's Minesweeper (0.1.0)");

		# We will have a variable number of rows , columns and mines
		# For now we hardcorde it , later they might become user definable parameters
		$$->%rows = 10
		$$->%cols = 10
		$$->%mines = 10

		# The child labels will be put in a layout that will manage automatically their geometries
		$$->%layout = $new(layout,$this)

		# Time to create the child labels
		for(%i = 0;%i < $$->%rows;%i++)
		{
			for(%j = 0;%j < $$->%cols;%j++)
			{
				# We use a dictionary to simulate a two dimensional array
				# The label references are stored in the dictionary associated to a key
				# that is build from the row and column index
				$$->%label{%i,%j}=$new(label,$this,"%i_%j")
				# Each label must remember its position
				$$->%label{%i,%j}->%row = %i
				$$->%label{%i,%j}->%col = %j
				# We add the labels to the layout grid
				$$->%layout->$addWidget($$->%label{%i,%j},%i,%j)
			}
		}

		# Time to initialize a new game
		$$->$newGame();
	}

	# We need no destructor for now : the child widgets and the layout will be
	# destroyed when the user will close the main widget


	# Here we start a new game
	newGame()
	{
		# We set the labels
		for(%i = 0;%i < $$->%rows;%i++)
		{
			for(%j = 0;%j < $$->%cols;%j++)
			{
				# KVIrc is parsed on-the-fly so we use the following line as optimisation.
				# parsing %l is really faster than parsing a $$->%label{%i,%j}
				%l = $$->%label{%i,%j}
				%l->$setFrameStyle(Raised,WinPanel); # raised labels are "unpressed" buttons
				%l->%bIsMine = 0 # for now it is NOT a mine
				%l->%numMines = 0 # number of adiacent mines , for now 0
				%l->%bIsDiscovered = 0 # this label has been pressed ?
				%l->$setText("") # set the text to an empty string
			}
		}
	}
}

# Create an instance of the minesweepermain object

%m = $new(minesweepermain)
%m->$show()

# /parse this file