Minesweeper - GameCreators Forum

Author

Message

AAChaoshand

9

Years of Service

User Offline

Joined: 12th Apr 2015

Location: Texas

Posted: 5th May 2015 03:48

Link

Well, I finished the AGK2 book and rather than re-read the entire book again I figured I would just dive in butt naked and see what I know versus what I don't. I suspect I will be having many sleepless nights trying to get my code working both correctly and efficiently. I'm doing a very basic beginner mode right now with 25 boxes, easy to win and just wanting to get the functionality going. I ran into my first conundrum today as I know there must be a better way to generate the following code:

// Project: Sweeper 
// Created: 2015-05-04

// set window properties
SetWindowTitle( "Shooter" )
SetWindowSize( 640, 480, 0 )

// set display properties
SetOrientationAllowed( 1, 1, 1, 1 )

//Load the images for use using version 2 AKG
celldown = LoadImage("CellDown.png")
easy = LoadImage("Easy.png")
emptycell = LoadImage("EmptyCell.png")
explodedminecell = LoadImage("ExplodedMineCell.png")
flagbutton = LoadImage("FlagButton.png")
mine = LoadImage("Mine.png")
newgame = LoadImage("NewGame.png")
revealedminecell = LoadImage("RevealedMineCell.png")

//Create the cell sprite here for first row
cell = CreateSprite(celldown)
SetSpriteSize(cell,5,-1) // This is 5 across and 7 down or (5,7) insize
SetSpritePosition(cell,5,7)
cell2 = CloneSprite(cell)
SetSpritePosition(cell2,10,7)
cell3 = CloneSprite(cell)
SetSpritePosition(cell3,15,7)
cell4 = CloneSprite(cell)
SetSpritePosition(cell4,20,7)
cell5 = CloneSprite(cell)
SetSpritePosition(cell5,25,7)

//Create cells for row 2
cell6 = CloneSprite(cell)
SetSpritePosition(cell6,5,14)
cell7 = CloneSprite(cell)
SetSpritePosition(cell7,10,14)
cell8 = CloneSprite(cell)
SetSpritePosition(cell8,15,14)
cell9 = CloneSprite(cell)
SetSpritePosition(cell9,20,14)
cell10 = CloneSprite(cell)
SetSpritePosition(cell10,25,14)

//Create cells for row 3
cell11 = CloneSprite(cell)
SetSpritePosition(cell11,5,21)
cell12 = CloneSprite(cell)
SetSpritePosition(cell12,10,21)
cell13 = CloneSprite(cell)
SetSpritePosition(cell13,15,21)
cell14 = CloneSprite(cell)
SetSpritePosition(cell14,20,21)
cell15 = CloneSprite(cell)
SetSpritePosition(cell15,25,21)

//Create cells for row 4
cell16 = CloneSprite(cell)
SetSpritePosition(cell16,5,28)
cell17 = CloneSprite(cell)
SetSpritePosition(cell17,10,28)
cell18 = CloneSprite(cell)
SetSpritePosition(cell18,15,28)
cell19 = CloneSprite(cell)
SetSpritePosition(cell19,20,28)
cell20 = CloneSprite(cell)
SetSpritePosition(cell20,25,28)

//Create cells for row 5
cell21 = CloneSprite(cell)
SetSpritePosition(cell21,5,35)
cell22 = CloneSprite(cell)
SetSpritePosition(cell22,10,35)
cell23 = CloneSprite(cell)
SetSpritePosition(cell23,15,35)
cell24 = CloneSprite(cell)
SetSpritePosition(cell24,20,35)
cell25 = CloneSprite(cell)
SetSpritePosition(cell25,25,35)

// Clear the screen
ClearScreen()

// Make colors here if I need them, delete them when finished to clean up the code
Blue = MakeColor(0,0,255)
Red = MakeColor(255,0,0)
Green = MakeColor(0,255,0)
Yellow = MakeColor(255,255,0)

do
	DrawBox(5,7,30,41,blue,blue,blue,blue,0)
    Sync()
loop

+ Code Snippet


// Project: Sweeper 
// Created: 2015-05-04

// set window properties
SetWindowTitle( "Shooter" )
SetWindowSize( 640, 480, 0 )

// set display properties
SetOrientationAllowed( 1, 1, 1, 1 )

//Load the images for use using version 2 AKG
celldown = LoadImage("CellDown.png")
easy = LoadImage("Easy.png")
emptycell = LoadImage("EmptyCell.png")
explodedminecell = LoadImage("ExplodedMineCell.png")
flagbutton = LoadImage("FlagButton.png")
mine = LoadImage("Mine.png")
newgame = LoadImage("NewGame.png")
revealedminecell = LoadImage("RevealedMineCell.png")

//Create the cell sprite here for first row
cell = CreateSprite(celldown)
SetSpriteSize(cell,5,-1) // This is 5 across and 7 down or (5,7) insize
SetSpritePosition(cell,5,7)
cell2 = CloneSprite(cell)
SetSpritePosition(cell2,10,7)
cell3 = CloneSprite(cell)
SetSpritePosition(cell3,15,7)
cell4 = CloneSprite(cell)
SetSpritePosition(cell4,20,7)
cell5 = CloneSprite(cell)
SetSpritePosition(cell5,25,7)

//Create cells for row 2
cell6 = CloneSprite(cell)
SetSpritePosition(cell6,5,14)
cell7 = CloneSprite(cell)
SetSpritePosition(cell7,10,14)
cell8 = CloneSprite(cell)
SetSpritePosition(cell8,15,14)
cell9 = CloneSprite(cell)
SetSpritePosition(cell9,20,14)
cell10 = CloneSprite(cell)
SetSpritePosition(cell10,25,14)

//Create cells for row 3
cell11 = CloneSprite(cell)
SetSpritePosition(cell11,5,21)
cell12 = CloneSprite(cell)
SetSpritePosition(cell12,10,21)
cell13 = CloneSprite(cell)
SetSpritePosition(cell13,15,21)
cell14 = CloneSprite(cell)
SetSpritePosition(cell14,20,21)
cell15 = CloneSprite(cell)
SetSpritePosition(cell15,25,21)

//Create cells for row 4
cell16 = CloneSprite(cell)
SetSpritePosition(cell16,5,28)
cell17 = CloneSprite(cell)
SetSpritePosition(cell17,10,28)
cell18 = CloneSprite(cell)
SetSpritePosition(cell18,15,28)
cell19 = CloneSprite(cell)
SetSpritePosition(cell19,20,28)
cell20 = CloneSprite(cell)
SetSpritePosition(cell20,25,28)

//Create cells for row 5
cell21 = CloneSprite(cell)
SetSpritePosition(cell21,5,35)
cell22 = CloneSprite(cell)
SetSpritePosition(cell22,10,35)
cell23 = CloneSprite(cell)
SetSpritePosition(cell23,15,35)
cell24 = CloneSprite(cell)
SetSpritePosition(cell24,20,35)
cell25 = CloneSprite(cell)
SetSpritePosition(cell25,25,35)

// Clear the screen
ClearScreen()





// Make colors here if I need them, delete them when finished to clean up the code
Blue = MakeColor(0,0,255)
Red = MakeColor(255,0,0)
Green = MakeColor(0,255,0)
Yellow = MakeColor(255,255,0)




do
	DrawBox(5,7,30,41,blue,blue,blue,blue,0)
    Sync()
loop

As you can see, I had to make 5 separate blocks of code for each row. The AGK2 basic first 8 chapters or so really only goes into theory and how to do things on a basic level. My question, is there a better way to do this? I know in other languages I could write functions to do this so I don't have 500 lines of code in just creating one sprite only to have to do it again for mines and other images.

Back to top

Profile PM

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 5th May 2015 06:25

Link

You could use a double for loop to place the sprites.

Example:

+ Code Snippet

global cells as integer[50]

function createCells()
	index = 1
	for y = 100 to 225 step 25
		for x = 100 to 175 step 15
			cells[index] = CreateSprite(0)
			SetSpriteSize(cells[index],15,25)
			SetSpritePosition(cells[index],x,y)
			SetSpriteColor(cells[index],Random(25,255),Random(25,255),Random(25,255),255)
			inc index
		next x
	next y
endfunction

Back to top

Profile PM

AAChaoshand

9

Years of Service

User Offline

Joined: 12th Apr 2015

Location: Texas

Posted: 5th May 2015 06:44 Edited at: 5th May 2015 06:45

Link

I was thinking a function would do this well but the book doesn't cover that yet since it isn't finished. I'm trying to understand that logic there. I can understand most of it but the positioning is a bit weird. So it starts at 100,100 then becomes 100,115, then 100,130, and ....never mind I'm stupid I see now. Wouldn't I want to start y=7 to 35 step 7 or was that merely an example so I could see how it's done? By the way, thanks for the help, it's helping me learn this stuff.

Back to top

Profile PM

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 5th May 2015 07:01 Edited at: 5th May 2015 20:29

Link

It is only an example. The way I wrote it is sort of confusing. Here's another way of writing the same function with a double for loop:

+ Code Snippet

global cells as integer[5,5]

function createCells()
	index = 1 // <--oops left the index variable in there. It is not used at all in this function.
	x# = 100.0
	Y# = 100.0
	for column = 1 to 5
		for row = 1 to 5
			cells[row,column] = CreateSprite(0)
			SetSpriteSize(cells[row,column],15.0,25.0)
			SetSpritePosition(cells[row,column],x#,y#)
			SetSpriteColor(cells[row,column],Random(25,255),Random(25,255),Random(25,255),255)
			inc x#, 15.0
			if x# >= 175.0
				x# = 100.0
			endif
		next row
		inc y#, 25.0
	next column
endfunction

Back to top

Profile PM

AAChaoshand

9

Years of Service

User Offline

Joined: 12th Apr 2015

Location: Texas

Posted: 5th May 2015 16:54

Link

Thanks again. That last code snippet is much easier for me to read without going back, but then again it's good to get that experience anyways so I may try it both ways to just get my hands dirty to see which I prefer. Trying to be part of that minority that successfully builds a game

Back to top

Profile PM

AAChaoshand

9

Years of Service

User Offline

Joined: 12th Apr 2015

Location: Texas

Posted: 6th May 2015 01:38 Edited at: 6th May 2015 01:54

Link

Man that code was beating me down, but I finally figured it out. Everything makes sense now and here is the finished code without all the lines of garbage I didn't need.

// Project: Shooter 
// Created: 2015-05-04

// set window properties
SetWindowTitle( "Sweeper" )
SetWindowSize( 640, 480, 0 )

// set display properties
SetOrientationAllowed( 1, 1, 1, 1 )

//Global variables for use inside functions
Global cells as integer[25]
	
//Load the images for use using version 2 AKG

easy = LoadImage("Easy.png")
emptycell = LoadImage("EmptyCell.png")
explodedminecell = LoadImage("ExplodedMineCell.png")
flagbutton = LoadImage("FlagButton.png")
mine = LoadImage("Mine.png")
newgame = LoadImage("NewGame.png")
revealedminecell = LoadImage("RevealedMineCell.png")

// Create function to make cell sheet
Function createCells()
	celldown = LoadImage("CellDown.png")
	index = 1
	For y = 7 to 35 step 7
		For x = 5 to 25 step 5
			cells[index] = CreateSprite(celldown)
			SetSpriteSize(cells[index],5,-1)
			SetSpritePosition(cells[index],x,y)
			Inc index
		Next x
	Next y
Endfunction

// Clear the screen
ClearScreen()

// Create the cells here
createCells()

// Make colors here if I need them, delete them when finished to clean up the code
Blue = MakeColor(0,0,255)
Red = MakeColor(255,0,0)
Green = MakeColor(0,255,0)
Yellow = MakeColor(255,255,0)

do
	DrawBox(5,7,30,41,blue,blue,blue,blue,0)
    Sync()
loop

+ Code Snippet


// Project: Shooter 
// Created: 2015-05-04

// set window properties
SetWindowTitle( "Sweeper" )
SetWindowSize( 640, 480, 0 )

// set display properties
SetOrientationAllowed( 1, 1, 1, 1 )

//Global variables for use inside functions
Global cells as integer[25]
	
//Load the images for use using version 2 AKG

easy = LoadImage("Easy.png")
emptycell = LoadImage("EmptyCell.png")
explodedminecell = LoadImage("ExplodedMineCell.png")
flagbutton = LoadImage("FlagButton.png")
mine = LoadImage("Mine.png")
newgame = LoadImage("NewGame.png")
revealedminecell = LoadImage("RevealedMineCell.png")


// Create function to make cell sheet
Function createCells()
	celldown = LoadImage("CellDown.png")
	index = 1
	For y = 7 to 35 step 7
		For x = 5 to 25 step 5
			cells[index] = CreateSprite(celldown)
			SetSpriteSize(cells[index],5,-1)
			SetSpritePosition(cells[index],x,y)
			Inc index
		Next x
	Next y
Endfunction


// Clear the screen
ClearScreen()


// Create the cells here
createCells()



// Make colors here if I need them, delete them when finished to clean up the code
Blue = MakeColor(0,0,255)
Red = MakeColor(255,0,0)
Green = MakeColor(0,255,0)
Yellow = MakeColor(255,255,0)


do
	DrawBox(5,7,30,41,blue,blue,blue,blue,0)
    Sync()
loop

Now that I don't have 80 lines of extra code I can work on setting depth and layer the sprites for bombs and numbers and such. I am trying to understand fully why we gave the global cells an integer value of 50? When I messed with it I would sometimes get out of bounds errors. The way I am reading this is cells as an array with one value of 50 which is then replaced by index. Why would this affect what is going on if it's just getting rewritten or am I missing something vital?

Edit:

Nevermind I'm stupid. I had to go back and re-read the arrays section. 50 indicates 51 values from 0-50. I set it to 25 since I'm only using 25 boxes. Good learning experience, hosing things up and then sitting around getting irritated figuring it out.

Back to top

Profile PM

AAChaoshand

9

Years of Service

User Offline

Joined: 12th Apr 2015

Location: Texas

Posted: 6th May 2015 02:33 Edited at: 6th May 2015 03:03

Link

My next issue is that I am trying to randomly pick numbers in specific increments so that I can place mines at each column and row. These mines will have a depth that is beneath the current sprite so when the user clicks on them they either show the bomb or don't.

I really wish the digital book was done, this is getting kind of frustrating to try to learn something that isn't complete for someone new to programming. Right now I am thinking an If statement might be the way to go or generate a random value and if it is "x number" place sprite?

Edit:

Got it to work:

+ Code Snippet

//Create function to make mines randomly
Function distributeMines()
	mine = LoadImage("Mine.png")
	index = 1
	For y = 7 to 35 step 7
		For x = 5 to 25 step 5
			randomMine = Random(0,26)
			If Mod(randomMine, 2) = 0
				mines_x[index] = CreateSprite(mine)
				SetSpriteSize(mines_x[index],5,-1)
				SetSpritePosition(mines_x[index],x,y)
				SetSpriteDepth(mines_x[index],9)
				Inc index
			EndIf
		Next x
	Next y
Endfunction

Back to top

Profile PM

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 6th May 2015 04:55

Link

Looks like you grasp it pretty well. Although, I have to ask, wouldn't it be simpler just to use Random(0,1) instead of Mod()?

Also, I was thinking about dynamic arrays and wrote this to illustrate resizing them in case you don't understand how.

// Project: dynamic array 
// Created: 2015-05-05

// set window properties
SetWindowTitle( "dynamic array" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

// set print properties
SetPrintColor(255,255,0)
SetPrintSize(16)
SetPrintSpacing(-1)

// Create a type to store the lengths of each array for incrementing.
type _index
	column as integer
	row as integer
endtype

// Create a type containing an array.
type dynamic_array
	row as integer[1]
endtype

// Create an array of a type. In this case a multi-dimensional array.
global column as dynamic_array[1]

// Initialize type _index
global indexes as _index

// Variable that controls the state of the program.
global switch as integer

// Give both arrays an initial length.
indexes.column = 5
indexes.row = 3

// set the size of the main array
column.length = indexes.column

// set the size of all the arrays within the main array
for i = 1 to column.length
	column[i].row.length = indexes.row
next i

// store some random values
for j = 1 to column.length
	for i = 1 to column[j].row.length
		column[j].row[i] = Mod(Random(0,26),2)
	next i
next j

//=================== LOOP
do
	controls()
    Sync()
loop

function controls()
    Print( "FPS: " + str(ScreenFPS(),0) )
    
    // Controls for changing program state.
	if GetRawMouseLeftPressed() = 1 or GetRawKeyPressed(37) = 1
		switch = 0
	elseif GetRawMouseRightPressed() = 1 or GetRawKeyPressed(39) = 1
		switch = 1
	endif
	
	// Get which direction the mousewheel is rotated in.
	temp = GetRawMouseWheelDelta()
	
	select switch
		case 0:
			if temp <> 0 or GetRawKeyPressed(38) = 1 or GetRawKeyPressed(40) = 1
				// Increment/Decrement type _index column variable.
				if temp > 0 or GetRawKeyPressed(38) = 1
					inc indexes.column
				elseif temp < 0 or GetRawKeyPressed(40) = 1
					dec indexes.column
					if indexes.column < 1 then indexes.column = 1
				endif
				
				// Set column array to new length.
				column.length = indexes.column
				
				// Run this code to populate the newly created elements.
				if temp > 0 or GetRawKeyPressed(38) = 1
					column[column.length].row.length = indexes.row
					for i = 1 to column[column.length].row.length
						column[column.length].row[i] = Random(0,1)
					next i
				endif
			endif
			print("Edit Column Length")
		endcase
		case 1:
			if temp <> 0 or GetRawKeyPressed(38) = 1 or GetRawKeyPressed(40) = 1
				// Increment/Decrement type _index row variable.
				if temp > 0 or GetRawKeyPressed(38) = 1
					inc indexes.row
				elseif temp < 0 or GetRawKeyPressed(40) = 1
					dec indexes.row
					if indexes.row < 1 then indexes.row = 1
				endif
				
				// Iterate through column array and set the lengths of the arrays stored in each element of column array.
				for i = 1 to column.length
					column[i].row.length = indexes.row
				next i
				if temp > 0 or GetRawKeyPressed(38) = 1
					// Populate the newly created elements with data.
					for j = 1 to column.length
						column[j].row[column[j].row.length] = Random(0,1)
					next j
				endif
			endif
			print("Edit Row Length")
		endcase
	endselect
	Print("indexes: " + str(indexes.column) + ", " + str(indexes.row))
	Print("")
	// Print the all the data stored.
    for j = 1 to column.length
		for i = 1 to column[j].row.length
			Print("column[" + str(j) + "].row[" + str(i) + "] = " + str(column[j].row[i]))
		next i
		Print("")
	next j
endfunction

+ Code Snippet


// Project: dynamic array 
// Created: 2015-05-05

// set window properties
SetWindowTitle( "dynamic array" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

// set print properties
SetPrintColor(255,255,0)
SetPrintSize(16)
SetPrintSpacing(-1)

// Create a type to store the lengths of each array for incrementing.
type _index
	column as integer
	row as integer
endtype

// Create a type containing an array.
type dynamic_array
	row as integer[1]
endtype

// Create an array of a type. In this case a multi-dimensional array.
global column as dynamic_array[1]

// Initialize type _index
global indexes as _index

// Variable that controls the state of the program.
global switch as integer

// Give both arrays an initial length.
indexes.column = 5
indexes.row = 3

// set the size of the main array
column.length = indexes.column

// set the size of all the arrays within the main array
for i = 1 to column.length
	column[i].row.length = indexes.row
next i

// store some random values
for j = 1 to column.length
	for i = 1 to column[j].row.length
		column[j].row[i] = Mod(Random(0,26),2)
	next i
next j

//=================== LOOP
do
	controls()
    Sync()
loop

function controls()
    Print( "FPS: " + str(ScreenFPS(),0) )
    
    // Controls for changing program state.
	if GetRawMouseLeftPressed() = 1 or GetRawKeyPressed(37) = 1
		switch = 0
	elseif GetRawMouseRightPressed() = 1 or GetRawKeyPressed(39) = 1
		switch = 1
	endif
	
	// Get which direction the mousewheel is rotated in.
	temp = GetRawMouseWheelDelta()
	
	select switch
		case 0:
			if temp <> 0 or GetRawKeyPressed(38) = 1 or GetRawKeyPressed(40) = 1
				// Increment/Decrement type _index column variable.
				if temp > 0 or GetRawKeyPressed(38) = 1
					inc indexes.column
				elseif temp < 0 or GetRawKeyPressed(40) = 1
					dec indexes.column
					if indexes.column < 1 then indexes.column = 1
				endif
				
				// Set column array to new length.
				column.length = indexes.column
				
				// Run this code to populate the newly created elements.
				if temp > 0 or GetRawKeyPressed(38) = 1
					column[column.length].row.length = indexes.row
					for i = 1 to column[column.length].row.length
						column[column.length].row[i] = Random(0,1)
					next i
				endif
			endif
			print("Edit Column Length")
		endcase
		case 1:
			if temp <> 0 or GetRawKeyPressed(38) = 1 or GetRawKeyPressed(40) = 1
				// Increment/Decrement type _index row variable.
				if temp > 0 or GetRawKeyPressed(38) = 1
					inc indexes.row
				elseif temp < 0 or GetRawKeyPressed(40) = 1
					dec indexes.row
					if indexes.row < 1 then indexes.row = 1
				endif
				
				// Iterate through column array and set the lengths of the arrays stored in each element of column array.
				for i = 1 to column.length
					column[i].row.length = indexes.row
				next i
				if temp > 0 or GetRawKeyPressed(38) = 1
					// Populate the newly created elements with data.
					for j = 1 to column.length
						column[j].row[column[j].row.length] = Random(0,1)
					next j
				endif
			endif
			print("Edit Row Length")
		endcase
	endselect
	Print("indexes: " + str(indexes.column) + ", " + str(indexes.row))
	Print("")
	// Print the all the data stored.
    for j = 1 to column.length
		for i = 1 to column[j].row.length
			Print("column[" + str(j) + "].row[" + str(i) + "] = " + str(column[j].row[i]))
		next i
		Print("")
	next j
endfunction

Back to top

Profile PM

AAChaoshand

9

Years of Service

User Offline

Joined: 12th Apr 2015

Location: Texas

Posted: 6th May 2015 05:50 Edited at: 6th May 2015 05:53

Link

I'm stealing that code for reference and study

Yeah, your right Random(0,1) would be easier, never thought of that. I kinda wanted to use Mod anyways since I rarely get to play with it in code. I will probably change it though just to clean it up a bit. I have to put the Sprite delete and get pointer click in at some point but I need to make graphics for numbers to indicate how close bomb is which at the moment seems like it will be difficult but I will figure it out. I try to post thoughts as I go on here as a kind of mental note of what I went through to get to the conclusion and result I have. I'm also thinking I want to limit the amount of mines and may increase the numbers and use Random after all.

Back to top

Profile PM

AAChaoshand

9

Years of Service

User Offline

Joined: 12th Apr 2015

Location: Texas

Posted: 13th May 2015 06:31

Link

Either I've run into a roadblock or am not thinking this through but since the variables within the functions are not usable outside I am having the issue of changing the depth of the mines after the function has been called. My other issue is, I'm trying to use GetPointerClick() = 1 with the x and y coordinates but nothing is happening when I click. My assumption is this falls in line with my first problem of not being able to adjust the sprite depth due to the variables being locked int the function. Am I understanding this correctly and what are some alternatives? Sorry if I keep asking questions but this stuff is just getting harder and harder for me to grasp and is why I have been taking some days off out of frustration.

Back to top

Profile PM

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 13th May 2015 06:36

Link

Show me some code and explain how you want this function to behave.

Back to top

Profile PM

AAChaoshand

9

Years of Service

User Offline

Joined: 12th Apr 2015

Location: Texas

Posted: 14th May 2015 04:34 Edited at: 14th May 2015 04:45

Link

//Load the images for use using version 2 AKG
easy = LoadImage("Easy.png")
emptycell = LoadImage("EmptyCell.png")
explodedminecell = LoadImage("ExplodedMineCell.png")
flagbutton = LoadImage("FlagButton.png")
newgame = LoadImage("NewGame.png")
revealedminecell = LoadImage("RevealedMineCell.png")

// Create function to make cell sheet
Function createCells()
	celldown = LoadImage("CellDown.png")
	index = 1
	For y = 7 to 35 step 7
		For x = 5 to 25 step 5
			cells[index] = CreateSprite(celldown)
			SetSpriteSize(cells[index],5,-1)
			SetSpritePosition(cells[index],x,y)
			SetSpriteDepth(cells[index],10)
			Inc index
		Next x
	Next y
Endfunction

//Create function to make mines randomly
Function distributeMines()
	mine = LoadImage("Mine.png")
	index = 1
	For y = 7 to 35 step 7
		For x = 5 to 25 step 5
			randomMine = Random(0,26)
			If Mod(randomMine, 2) = 0
				mines_x[index] = CreateSprite(mine)
				SetSpriteSize(mines_x[index],5,-1)
				SetSpritePosition(mines_x[index],x,y)
				SetSpriteDepth(mines_x[index],9)
				Inc index
			EndIf
			x# = GetPointerX()
			y# = GetPointerY()
			spr_hit = GetSpriteHit(GetPointerX(), GetPointerY())
			click = GetPointerPressed()
			If click
				If spr_hit <> 0
					SetSpriteDepth(mines_x[index], 11)
				endIf
			EndIf
		Next x
	Next y
Endfunction

// Clear the screen
Clearscreen()

// Create the cells here
createCells()
distributeMines()

+ Code Snippet

//Load the images for use using version 2 AKG
easy = LoadImage("Easy.png")
emptycell = LoadImage("EmptyCell.png")
explodedminecell = LoadImage("ExplodedMineCell.png")
flagbutton = LoadImage("FlagButton.png")
newgame = LoadImage("NewGame.png")
revealedminecell = LoadImage("RevealedMineCell.png")


// Create function to make cell sheet
Function createCells()
	celldown = LoadImage("CellDown.png")
	index = 1
	For y = 7 to 35 step 7
		For x = 5 to 25 step 5
			cells[index] = CreateSprite(celldown)
			SetSpriteSize(cells[index],5,-1)
			SetSpritePosition(cells[index],x,y)
			SetSpriteDepth(cells[index],10)
			Inc index
		Next x
	Next y
Endfunction

//Create function to make mines randomly
Function distributeMines()
	mine = LoadImage("Mine.png")
	index = 1
	For y = 7 to 35 step 7
		For x = 5 to 25 step 5
			randomMine = Random(0,26)
			If Mod(randomMine, 2) = 0
				mines_x[index] = CreateSprite(mine)
				SetSpriteSize(mines_x[index],5,-1)
				SetSpritePosition(mines_x[index],x,y)
				SetSpriteDepth(mines_x[index],9)
				Inc index
			EndIf
			x# = GetPointerX()
			y# = GetPointerY()
			spr_hit = GetSpriteHit(GetPointerX(), GetPointerY())
			click = GetPointerPressed()
			If click
				If spr_hit <> 0
					SetSpriteDepth(mines_x[index], 11)
				endIf
			EndIf
		Next x
	Next y
Endfunction



// Clear the screen
Clearscreen()


// Create the cells here
createCells()
distributeMines()

So basically, with your help from earlier I generated a second function to place mines under the existing sprites. I'm having a hard time figuring out how to manipulate those sprites since they are locked into that function, at least with my minimal knowledge they are. Before when I had 100 lines of code I could manipulate them but that made the code huge and unmanageable. Right now I got the mines on top just so I could see them generate.

How can I interact with those functions outside? I was going to place the manipulations inside the functions but that doesn't seem to work. I'm going to have to think about it a bit more because this has me at a halt.

Edit after some thoughts:
The way I am looking at this, the functions runs and bam it's done. Anything I do after that will be ignored. So this brings me full circle back to how do I modify the sprite after it's been drawn up? The specific part of the code is:

+ Code Snippet

Function distributeMines()
	mine = LoadImage("Mine.png")
	index = 1
	For y = 7 to 35 step 7
		For x = 5 to 25 step 5
			randomMine = Random(0,26)
			If Mod(randomMine, 2) = 0
				mines_x[index] = CreateSprite(mine)
				SetSpriteSize(mines_x[index],5,-1)
				SetSpritePosition(mines_x[index],x,y)
				SetSpriteDepth(mines_x[index],9)
				Inc index
			EndIf
			x# = GetPointerX()
			y# = GetPointerY()
			spr_hit = GetSpriteHit(GetPointerX(), GetPointerY())
			click = GetPointerPressed()
			If click and spr_hit <> 0
					SetSpriteDepth(mines_x[index], 11)
			EndIf
		Next x
	Next y

I am getting rid of the x# to that if statement and moving it back outside the function where it belongs until I can figure this out.

Back to top

Profile PM

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 14th May 2015 04:50

Link

What kind of manipulations? If you are wanting to setup a way to interact with them, pressing a button, you will have to use the do loop.

Back to top

Profile PM

AAChaoshand

9

Years of Service

User Offline

Joined: 12th Apr 2015

Location: Texas

Posted: 14th May 2015 05:00 Edited at: 14th May 2015 05:17

Link

Hmm, so generate the cells and mines with a loop and then from there I can do as I need? Basically, it's minesweeper, I want it to pop when I click either either a mine or an empty cell.

Edit: Modified code:

//Crate the cells
celldown = LoadImage("CellDown.png")
index = 1
For y = 7 to 35 step 7
	For x = 5 to 25 step 5
		cells[index] = CreateSprite(celldown)
		SetSpriteSize(cells[index],5,-1)
		SetSpritePosition(cells[index],x,y)
		SetSpriteDepth(cells[index],10)
		Inc index
	Next x
Next y

//Create the mines
mine = LoadImage("Mine.png")
index = 1
For y = 7 to 35 step 7
	For x = 5 to 25 step 5
		randomMine = Random(0,26)
		If Mod(randomMine, 2) = 0
			mines_x[index] = CreateSprite(mine)
			SetSpriteSize(mines_x[index],5,-1)
			SetSpritePosition(mines_x[index],x,y)
			SetSpriteDepth(mines_x[index],11)
			Inc index
		EndIf
	Next x
Next y

// Make colors here if I need them, delete them when finished to clean up the code
Blue = MakeColor(0,0,255)
Red = MakeColor(255,0,0)
Green = MakeColor(0,255,0)
Yellow = MakeColor(255,255,0)

do
	DrawBox(5,7,30,41,blue,blue,blue,blue,0)
	x# = GetPointerX()
	y# = GetPointerY()
	spr_hit = GetSpriteHit(GetPointerX(), GetPointerY())
	click = GetPointerPressed()
	If click and spr_hit <> 0
		SetSpriteDepth(cells[index], 12)
	EndIf	
    Sync()
loop

+ Code Snippet

//Crate the cells
celldown = LoadImage("CellDown.png")
index = 1
For y = 7 to 35 step 7
	For x = 5 to 25 step 5
		cells[index] = CreateSprite(celldown)
		SetSpriteSize(cells[index],5,-1)
		SetSpritePosition(cells[index],x,y)
		SetSpriteDepth(cells[index],10)
		Inc index
	Next x
Next y


//Create the mines
mine = LoadImage("Mine.png")
index = 1
For y = 7 to 35 step 7
	For x = 5 to 25 step 5
		randomMine = Random(0,26)
		If Mod(randomMine, 2) = 0
			mines_x[index] = CreateSprite(mine)
			SetSpriteSize(mines_x[index],5,-1)
			SetSpritePosition(mines_x[index],x,y)
			SetSpriteDepth(mines_x[index],11)
			Inc index
		EndIf
	Next x
Next y



	
// Make colors here if I need them, delete them when finished to clean up the code
Blue = MakeColor(0,0,255)
Red = MakeColor(255,0,0)
Green = MakeColor(0,255,0)
Yellow = MakeColor(255,255,0)


do
	DrawBox(5,7,30,41,blue,blue,blue,blue,0)
	x# = GetPointerX()
	y# = GetPointerY()
	spr_hit = GetSpriteHit(GetPointerX(), GetPointerY())
	click = GetPointerPressed()
	If click and spr_hit <> 0
		SetSpriteDepth(cells[index], 12)
	EndIf	
    Sync()
loop

So now the next problem is me figuring out why it only lets me execute one mine reveal and not multiple. I also need to tell it to only reveal where I clicked and not some random mine.

Back to top

Profile PM

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 17th May 2015 01:55 Edited at: 17th May 2015 07:38

Link

After re-reading the last few posts I realized that I wasn't helping much. As I have never made a minesweeping type game I didn't really know how to go about it. So I started my own little project.

If you want, I'll post the code or I could make a tutorial or something.

I don't have a finished, polished game really but I think I have a working prototype, so to speak.

Back to top

Profile PM

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 20th May 2015 20:43

Link

Here is my project so far. You can download and do what you want with it. Don't get too excited though, it's really basic.

Attachments

Login to view attachments

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / Minesweeper

Attachments