problem with minesweeper - GameCreators Forum

Author

Message

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 30th Aug 2006 14:48 Edited at: 30th Aug 2006 19:37

Link

ok i'm making a game of minesweeper, and i'm having a problem... you know when you play and the spaces around the mines all have numbers to show how many mines are touching it? this works if i only do left, up and left, up, right (if you know what i mean... like adding a number to the square diagonally up and left if there's a mine there) but as soon as i add the others in some of the numbers aren't where they should be they just disappear...

ok i'm not explaining this very well but anyway here's my code for the main game loop (i have a menu screen before it where you can set the grid width and the number of mines)

dim gclicked(gridsize#,gridsize#)
dim glocations(gridsize#,gridsize#)
dim gneed(gridsize#,gridsize#)

for t=1 to gridsize#
	for n=1 to gridsize#
		gclicked(t,n)=1
	next n
next t

for t=1 to mineno#
	do
		x=rnd(gridsize#-1)
		x=x+1
		y=rnd(gridsize#-1)
		y=y+1
		if glocations(x,y)=0
			glocations(x,y)=9
			gneed(x,y)=0
			exit
		endif
	loop
next t

for t=1 to gridsize#
	for n=1 to gridsize#
		if glocations(t,n)=9
			if t>1 then glocations(t-1,n)=glocations(t-1,n)+1
			if n>1 then glocations(t,n-1)=glocations(t,n-1)+1
			if t<gridsize# then glocations(t+1,n)=glocations(t+1,n)+1
			if n<gridsize# then glocations(t,n+1)=glocations(t,n+1)+1
			if t>1 and n<gridsize# then glocations(t-1,n+1)=glocations(t-1,n+1)+1
			if n>1 and t<gridsize# then glocations(t+1,n-1)=glocations(t+1,n-1)+1
			if t>1 and n>1 then glocations(t-1,n-1)=glocations(t-1,n-1)+1
			if t<gridsize# and n<gridsize# then glocations(t+1,n+1)=glocations(t+1,n+1)+1
		endif
	next n
next t

for t=1 to gridsize#
	for n=1 to gridsize#
		if glocations(t,n)>9
			glocations(t,n)=9
		endif
	next n
next t

do

if updated=0

cls

for t=0 to 2
		for n=0 to 1
			paste image 4,t*256,n*256,1
		next n
	next t
		
	for t=19 to 23
		draw#=gridsize#*20+t
		draw2#=38-t
		draw3#=t*10
		draw4#=250-draw3#
		ink rgb(draw4#,draw4#,draw4#),0
		line draw2#,draw2#,draw#,draw2#
		line draw2#,draw2#,draw2#,draw#
		line draw#,draw2#,draw#,draw#
		line draw2#,draw#,draw#,draw#
		ink rgb(255,255,255),0
	next t
	
	
	for t=1 to gridsize#
		for n=1 to gridsize#
			if gclicked(t,n)=0 
				paste image 10,t*20,n*20,1
			endif
			if gclicked(t,n)=2
				paste image 21,t*20,n*20,1
			endif
			if gclicked(t,n)=1
				if glocations(t,n)=0 then paste image 11,t*20,n*20,1
				if glocations(t,n)=9 then paste image 12,t*20,n*20,1
				for q=1 to 8
					if glocations(t,n)=q then paste image q+12,t*20,n*20,1
				next q
			endif
		next n
	next t

updated=1
endif

if mousex()>620 and mousex()<640 and mousey()>0 and mousey()<20
	paste image 6,623,4,1
	paste image 8,622,3,1
	if mouseclick()=1 then goto exitprog
else
	for t=6 to 7
		paste image t,629-t,10-t,1
	next t
endif

sync
loop

+ Code Snippet


dim gclicked(gridsize#,gridsize#)
dim glocations(gridsize#,gridsize#)
dim gneed(gridsize#,gridsize#)

for t=1 to gridsize#
	for n=1 to gridsize#
		gclicked(t,n)=1
	next n
next t

for t=1 to mineno#
	do
		x=rnd(gridsize#-1)
		x=x+1
		y=rnd(gridsize#-1)
		y=y+1
		if glocations(x,y)=0
			glocations(x,y)=9
			gneed(x,y)=0
			exit
		endif
	loop
next t



for t=1 to gridsize#
	for n=1 to gridsize#
		if glocations(t,n)=9
			if t>1 then glocations(t-1,n)=glocations(t-1,n)+1
			if n>1 then glocations(t,n-1)=glocations(t,n-1)+1
			if t<gridsize# then glocations(t+1,n)=glocations(t+1,n)+1
			if n<gridsize# then glocations(t,n+1)=glocations(t,n+1)+1
			if t>1 and n<gridsize# then glocations(t-1,n+1)=glocations(t-1,n+1)+1
			if n>1 and t<gridsize# then glocations(t+1,n-1)=glocations(t+1,n-1)+1
			if t>1 and n>1 then glocations(t-1,n-1)=glocations(t-1,n-1)+1
			if t<gridsize# and n<gridsize# then glocations(t+1,n+1)=glocations(t+1,n+1)+1
		endif
	next n
next t



for t=1 to gridsize#
	for n=1 to gridsize#
		if glocations(t,n)>9
			glocations(t,n)=9
		endif
	next n
next t




do






if updated=0

	cls

	for t=0 to 2
		for n=0 to 1
			paste image 4,t*256,n*256,1
		next n
	next t
		
	for t=19 to 23
		draw#=gridsize#*20+t
		draw2#=38-t
		draw3#=t*10
		draw4#=250-draw3#
		ink rgb(draw4#,draw4#,draw4#),0
		line draw2#,draw2#,draw#,draw2#
		line draw2#,draw2#,draw2#,draw#
		line draw#,draw2#,draw#,draw#
		line draw2#,draw#,draw#,draw#
		ink rgb(255,255,255),0
	next t
	
	
	for t=1 to gridsize#
		for n=1 to gridsize#
			if gclicked(t,n)=0 
				paste image 10,t*20,n*20,1
			endif
			if gclicked(t,n)=2
				paste image 21,t*20,n*20,1
			endif
			if gclicked(t,n)=1
				if glocations(t,n)=0 then paste image 11,t*20,n*20,1
				if glocations(t,n)=9 then paste image 12,t*20,n*20,1
				for q=1 to 8
					if glocations(t,n)=q then paste image q+12,t*20,n*20,1
				next q
			endif
		next n
	next t
	

	updated=1
endif


if mousex()>620 and mousex()<640 and mousey()>0 and mousey()<20
	paste image 6,623,4,1
	paste image 8,622,3,1
	if mouseclick()=1 then goto exitprog
else
	for t=6 to 7
		paste image t,629-t,10-t,1
	next t
endif




sync
loop

the gclicked array values would normally be set to 0 in the game but for the time being they are on 1 so that i can see where the mines and the numbers are being placed

there are quite a lot of pictures used here too, but it isn't a problem with the pictures as they should all show the right numbers because before i started putting in the grids and the arrays i checked that all the pictures i was going to put in were loading into the game properly

EDIT: i really don't know what's going wrong but it's not like it's always messing up in one place or anything... i just looked at a 25x25 grid it generated and there were only half a dozen mines which weren't behaving properly in the whole grid

RIP Dimebag
http://db1games.topcities.com
(used to be demonsbreath)

Back to top

Profile PM Website

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 31st Aug 2006 11:55

Link

never mind... its worked fine... i changed the code so it approached it from the other direction... now it goes to a square and sees if there are any mines touching it instead of going to a mine and affecting the squares touching it if you see what i mean

+ Code Snippet


for t=1 to gridsize#
	for n=1 to gridsize#
			if t>1 
				if glocations(t-1,n)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if n>1 
				if glocations(t,n-1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t<gridsize#
				if glocations(t+1,n)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if n<gridsize#
				if glocations(t,n+1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t>1 and n>1 
				if glocations(t-1,n-1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t<gridsize# and n>1
				if glocations(t+1,n-1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t>1 and n<gridsize#
				if glocations(t-1,n+1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t<gridsize# and n<gridsize#
				if glocations(t+1,n+1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
	next n
next t

it works now

and I am very happy

RIP Dimebag
http://db1games.topcities.com
(used to be demonsbreath)

Back to top

Profile PM Website

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 31st Aug 2006 18:30

Link

hey i'm still making my minesweeper game, but i've run into a couple of other problems.

1. I don't know how to do that thing where when you click on a blank square, loads of squares sometimes open up (unless I do a stupidly long check for each possible place it could be in relation to it but the grid sizes go up to 20x20 so there must be a more efficient way)

2. I don't know how to make it tell when the game is over... it can now tell when you've clicked on a mine, but not when you've marked all the mines correctly and opened up all the other spaces.

3. I don't know how to do that thing which you can do on the windows version where you press the left and right mouse buttons at once and it checks the area around you.

My complete code so far is here, but you can ignore most of it because the first 2 thirds is just the menu...

sync on
sync rate 0

goto options

exitprog:
cls
for t=1 to 21
	delete image t
next t
sync off
end

`options screen
options:

load bitmap "media\button.bmp",1
get image 1,0,0,200,30
delete bitmap 1

load bitmap "media\marker.bmp",1
get image 2,0,0,25,25
mirror bitmap 1
get image 3,0,0,25,25
delete bitmap 1

load bitmap "media\bg1.bmp",1
get image 4,0,0,256,256
delete bitmap 1

load bitmap "media\gobutton.bmp",1
get image 5,0,0,300,50
delete bitmap 1

load bitmap "media\xgr.bmp",1
get image 6,0,0,11,11
delete bitmap 1

load bitmap "media\xrd.bmp",1
get image 7,0,0,11,11
delete bitmap 1

load bitmap "media\xyl.bmp",1
get image 8,0,0,11,11
delete bitmap 1

load bitmap "media\confscreen.bmp",1
get image 9,0,0,395,251
delete bitmap 1

load bitmap "media\tiles.bmp",1
get image 10,0,0,20,20
get image 11,20,0,40,20
get image 12,0,20,20,40
get image 13,20,20,40,40
get image 14,0,40,20,60
get image 15,20,40,40,60
get image 16,0,60,20,80
get image 17,20,60,40,80
get image 18,0,80,20,100
get image 19,20,80,40,100
get image 20,0,100,20,120
get image 21,20,100,40,120
delete bitmap 1

`prepare variables
gridsize#=10
mineno#=10

do

cls

`background
for t=0 to 2
	for n=0 to 1
		paste image 4,t*256,n*256,1
	next n
next t

`titles
set text font "verdana"
set text size 20
center text 320,5,"choose grid size"
center text 320,150,"choose number of mines"

set text size 15
`menus
for t=1 to 3
	paste image 1,220,t*35-5,1
	paste image 1,220,t*35+140,1
	center text 320,t*35+3,str$(t*5+5)+"x"+str$(t*5+5)
next t

`closebutton

if mousex()>620 and mousex()<640 and mousey()>0 and mousey()<20
	paste image 6,623,4,1
	paste image 8,622,3,1
	if mouseclick()=1 then goto exitprog
else
	for t=6 to 7
		paste image t,629-t,10-t,1
	next t
endif

if gridsize#=10
	paste image 2,190,32,1
	paste image 3,425,32,1
endif

if gridsize#=15
	paste image 2,190,67,1
	paste image 3,425,67,1
endif

if gridsize#=20
	paste image 2,190,102,1
	paste image 3,425,102,1
endif

`check
if mousex()>220 and mousex()<420 and mousey()>30 and mousey()<60
	tempgridsize#=10
else
	if mousex()>220 and mousex()<420 and mousey()>65 and mousey()<95
		tempgridsize#=15
	else
		if mousex()>220 and mousex()<420 and mousey()>100 and mousey()<130
			tempgridsize#=20
		else
			tempgridsize#=0
		endif
	endif
endif

if tempgridsize#>0 and mouseclick()=1
	gridsize#=tempgridsize#
	if gridsize#=10 then mineno#=10
	if gridsize#=15 then mineno#=25
	if gridsize#=20 then mineno#=40
endif
if tempmineno#>0 and mouseclick()=1
	mineno#=tempmineno#
endif

rem -------- 10*10 -----------
if gridsize#=10
	for t=1 to 3
		center text 320,t*35+148,str$(t*15-5)
	next t
	if mineno#=10
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=25
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=40
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif

if mousex()>220 and mousex()<420 and mousey()>175 and mousey()<205
		tempmineno#=10
	else
		if mousex()>220 and mousex()<420 and mousey()>210 and mousey()<240
			tempmineno#=25
		else
			if mousex()>220 and mousex()<420 and mousey()>245 and mousey()<275
				tempmineno#=40
			else
				tempmineno#=0
			endif
		endif
	endif

endif

rem -------- 15*15 -----------
if gridsize#=15
	for t=1 to 3
		center text 320,t*35+148,str$(t*25)
	next t
	if mineno#=25
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=50
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=75
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif

if mousex()>220 and mousex()<420 and mousey()>175 and mousey()<205
		tempmineno#=25
	else
		if mousex()>220 and mousex()<420 and mousey()>210 and mousey()<240
			tempmineno#=50
		else
			if mousex()>220 and mousex()<420 and mousey()>245 and mousey()<275
				tempmineno#=75
			else
				tempmineno#=0
			endif
		endif
	endif
endif

rem -------- 20*20 -----------
if gridsize#=20
	for t=1 to 3
		center text 320,t*35+148,str$(t*25+15)
	next t
	if mineno#=40
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=65
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=90
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif

if mousex()>220 and mousex()<420 and mousey()>175 and mousey()<205
		tempmineno#=40
	else
		if mousex()>220 and mousex()<420 and mousey()>210 and mousey()<240
			tempmineno#=65
		else
			if mousex()>220 and mousex()<420 and mousey()>245 and mousey()<275
				tempmineno#=90
			else
				tempmineno#=0
			endif
		endif
	endif
endif

rem ----go button----

paste image 5,170,340,1
set text size 40
center text 320,345,"GO"

if mousex()>170 and mousex()<470 and mousey()>340 and mousey()<390 and mouseclick()=1
	goto optionsconfirm
endif

sync

loop

rem -------------------------------------------------------------------------------------------

optionsconfirm:

do
cls
for t=0 to 2
	for n=0 to 1
		paste image 4,t*256,n*256,1
	next n
next t
set text font "verdana"
set text size 20
center text 320,5,"choose grid size"
center text 320,150,"choose number of mines"
set text size 15
for t=1 to 3
	paste image 1,220,t*35-5,1
	paste image 1,220,t*35+140,1
	center text 320,t*35+3,str$(t*5+5)+"x"+str$(t*5+5)
next t
for t=6 to 7
	paste image t,629-t,10-t,1
next t
if gridsize#=10
	paste image 2,190,32,1
	paste image 3,425,32,1
endif
if gridsize#=15
	paste image 2,190,67,1
	paste image 3,425,67,1
endif
if gridsize#=20
	paste image 2,190,102,1
	paste image 3,425,102,1
endif
if gridsize#=10
	for t=1 to 3
		center text 320,t*35+148,str$(t*15-5)
	next t
	if mineno#=10
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=25
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=40
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif
endif
if gridsize#=15
	for t=1 to 3
		center text 320,t*35+148,str$(t*25)
	next t
	if mineno#=25
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=50
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=75
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif
endif
if gridsize#=20
	for t=1 to 3
		center text 320,t*35+148,str$(t*25+15)
	next t
	if mineno#=40
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=65
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=90
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif
endif
paste image 5,170,340,1
set text size 40
center text 320,345,"GO"

paste image 9,122,95,1
set text size 40
center text 320,90,"are you sure?"

set text size 60
center text 320,140,"yes"
center text 320,210,"no"

set text size 18
center text 320,300,"current settings:  "+str$(mineno#)+" mines in a "+str$(gridsize#)+" by "+str$(gridsize#)+" grid"

if mousex()>270 and mousex()<370 and mousey()>160 and mousey()<205 and mouseclick()=1
	goto mainloop
endif

if mousex()>285 and mousex()<355 and mousey()>230 and mousey()<265 and mouseclick()=1
	cls
	goto options
endif

sync

loop

mainloop:

rem =========================================================================
rem =========================================================================
rem !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!MAIN GAME!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
rem =========================================================================
rem =========================================================================

rem set up array
dim gclicked(gridsize#,gridsize#)
dim glocations(gridsize#,gridsize#)
dim gneed(gridsize#,gridsize#)
dim openme(gridsize#,gridsize#)

remstart
for t=1 to gridsize#
	for n=1 to gridsize#
		gclicked(t,n)=1
	next n
next t
remend

for t=1 to mineno#
	do
		x=rnd(gridsize#-1)
		x=x+1
		y=rnd(gridsize#-1)
		y=y+1
		if glocations(x,y)=0
			glocations(x,y)=9
			gneed(x,y)=0
			exit
		endif
	loop
next t

for t=1 to gridsize#
	for n=1 to gridsize#
			if t>1 
				if glocations(t-1,n)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if n>1 
				if glocations(t,n-1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t<gridsize#
				if glocations(t+1,n)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if n<gridsize#
				if glocations(t,n+1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t>1 and n>1 
				if glocations(t-1,n-1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t<gridsize# and n>1
				if glocations(t+1,n-1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t>1 and n<gridsize#
				if glocations(t-1,n+1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t<gridsize# and n<gridsize#
				if glocations(t+1,n+1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
	next n
next t

for t=1 to gridsize#
	for n=1 to gridsize#
		if glocations(t,n)>9
			glocations(t,n)=9
		endif
	next n
next t

do

if updated#=0

cls

for t=0 to 2
		for n=0 to 1
			paste image 4,t*256,n*256,1
		next n
	next t
		
	for t=19 to 23
		draw#=gridsize#*20+t
		draw2#=38-t
		draw3#=t*10
		draw4#=250-draw3#
		ink rgb(draw4#,draw4#,draw4#),0
		line draw2#,draw2#,draw#,draw2#
		line draw2#,draw2#,draw2#,draw#
		line draw#,draw2#,draw#,draw#
		line draw2#,draw#,draw#,draw#
		ink rgb(255,255,255),0
	next t
	
	
	for t=1 to gridsize#
		for n=1 to gridsize#
			if gclicked(t,n)=0 
				paste image 10,t*20,n*20,1
			endif
			if gclicked(t,n)=2
				paste image 21,t*20,n*20,1
			endif
			if gclicked(t,n)=1
				if glocations(t,n)=0 then paste image 11,t*20,n*20,1
				if glocations(t,n)=9
					paste image 12,t*20,n*20,1
					die#=1
				endif
				for q=1 to 8
					if glocations(t,n)=q then paste image q+12,t*20,n*20,1
				next q
			endif
		next n
	next t

updated#=1
endif

if mousex()>620 and mousex()<640 and mousey()>0 and mousey()<20
	paste image 6,623,4,1
	paste image 8,622,3,1
	if mouseclick()=1 then goto exitprog
else
	for t=6 to 7
		paste image t,629-t,10-t,1
	next t
endif

for t=1 to gridsize#
	for n=1 to gridsize#
		if mousex()>t*20 and mousey()>n*20 and mousex()<t*20+20 and mousey()<n*20+20
			if mouseclick()=1
				if gclicked(t,n)=0
					gclicked(t,n)=1
					if glocations(t,n)=0
						if t>1
							if gclicked(t-1,n)=0 then gclicked(t-1,n)=1
						endif
						if t<gridsize#
							if gclicked(t+1,n)=0 then gclicked(t+1,n)=1
						endif
						if t>1 and n>1 
							if gclicked(t-1,n-1)=0 then gclicked(t-1,n-1)=1
						endif
						if t<gridsize# and n>1
							if gclicked(t+1,n-1)=0 then gclicked(t+1,n-1)=1
						endif
						if t>1 and n<gridsize#
							if gclicked(t-1,n+1)=0 then gclicked(t-1,n+1)=1
						endif
						if t<gridsize# and n<gridsize#
							if gclicked(t+1,n+1)=0 then gclicked(t+1,n+1)=1
						endif
						if n>1
							if gclicked(t,n-1)=0 then gclicked(t,n-1)=1
						endif
						if n<gridsize#
							if gclicked(t,n+1)=0 then gclicked(t,n+1)=1
						endif
					endif
					updated#=0
				endif
			endif
			
			if mouseclick()=2
				if gclicked(t,n)=0
					gclicked(t,n)=2
					wait 500
				else
					if gclicked(t,n)=2
						gclicked(t,n)=0
						wait 500
					endif
				endif
			updated#=0
			endif
		endif
	next n
next t

if die#=1 then goto diecode

sync
loop

diecode:
wait 500
cls
wait 500
center text 320,25,"GAME OVER"
center text 320,65,"press any key to return to the menu"
suspend for key
die#=0
updated#=0
rem remove array
undim gclicked(gridsize#,gridsize#)
undim glocations(gridsize#,gridsize#)
undim gneed(gridsize#,gridsize#)
undim openme(gridsize#,gridsize#)
goto options

+ Code Snippet



sync on
sync rate 0

goto options

exitprog:
cls
for t=1 to 21
	delete image t
next t
sync off
end


`options screen
options:

load bitmap "media\button.bmp",1
get image 1,0,0,200,30
delete bitmap 1

load bitmap "media\marker.bmp",1
get image 2,0,0,25,25
mirror bitmap 1
get image 3,0,0,25,25
delete bitmap 1

load bitmap "media\bg1.bmp",1
get image 4,0,0,256,256
delete bitmap 1

load bitmap "media\gobutton.bmp",1
get image 5,0,0,300,50
delete bitmap 1

load bitmap "media\xgr.bmp",1
get image 6,0,0,11,11
delete bitmap 1

load bitmap "media\xrd.bmp",1
get image 7,0,0,11,11
delete bitmap 1

load bitmap "media\xyl.bmp",1
get image 8,0,0,11,11
delete bitmap 1

load bitmap "media\confscreen.bmp",1
get image 9,0,0,395,251
delete bitmap 1


load bitmap "media\tiles.bmp",1
get image 10,0,0,20,20
get image 11,20,0,40,20
get image 12,0,20,20,40
get image 13,20,20,40,40
get image 14,0,40,20,60
get image 15,20,40,40,60
get image 16,0,60,20,80
get image 17,20,60,40,80
get image 18,0,80,20,100
get image 19,20,80,40,100
get image 20,0,100,20,120
get image 21,20,100,40,120
delete bitmap 1



`prepare variables
gridsize#=10
mineno#=10





do

cls


`background
for t=0 to 2
	for n=0 to 1
		paste image 4,t*256,n*256,1
	next n
next t

`titles
set text font "verdana"
set text size 20
center text 320,5,"choose grid size"
center text 320,150,"choose number of mines"






set text size 15
`menus
for t=1 to 3
	paste image 1,220,t*35-5,1
	paste image 1,220,t*35+140,1
	center text 320,t*35+3,str$(t*5+5)+"x"+str$(t*5+5)
next t








`closebutton

if mousex()>620 and mousex()<640 and mousey()>0 and mousey()<20
	paste image 6,623,4,1
	paste image 8,622,3,1
	if mouseclick()=1 then goto exitprog
else
	for t=6 to 7
		paste image t,629-t,10-t,1
	next t
endif








if gridsize#=10
	paste image 2,190,32,1
	paste image 3,425,32,1
endif

if gridsize#=15
	paste image 2,190,67,1
	paste image 3,425,67,1
endif

if gridsize#=20
	paste image 2,190,102,1
	paste image 3,425,102,1
endif

`check
if mousex()>220 and mousex()<420 and mousey()>30 and mousey()<60
	tempgridsize#=10
else
	if mousex()>220 and mousex()<420 and mousey()>65 and mousey()<95
		tempgridsize#=15
	else
		if mousex()>220 and mousex()<420 and mousey()>100 and mousey()<130
			tempgridsize#=20
		else
			tempgridsize#=0
		endif
	endif
endif


if tempgridsize#>0 and mouseclick()=1
	gridsize#=tempgridsize#
	if gridsize#=10 then mineno#=10
	if gridsize#=15 then mineno#=25
	if gridsize#=20 then mineno#=40
endif
if tempmineno#>0 and mouseclick()=1
	mineno#=tempmineno#
endif









rem -------- 10*10 -----------
if gridsize#=10
	for t=1 to 3
		center text 320,t*35+148,str$(t*15-5)
	next t
	if mineno#=10
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=25
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=40
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif

	if mousex()>220 and mousex()<420 and mousey()>175 and mousey()<205
		tempmineno#=10
	else
		if mousex()>220 and mousex()<420 and mousey()>210 and mousey()<240
			tempmineno#=25
		else
			if mousex()>220 and mousex()<420 and mousey()>245 and mousey()<275
				tempmineno#=40
			else
				tempmineno#=0
			endif
		endif
	endif

endif



rem -------- 15*15 -----------
if gridsize#=15
	for t=1 to 3
		center text 320,t*35+148,str$(t*25)
	next t
	if mineno#=25
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=50
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=75
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif

	if mousex()>220 and mousex()<420 and mousey()>175 and mousey()<205
		tempmineno#=25
	else
		if mousex()>220 and mousex()<420 and mousey()>210 and mousey()<240
			tempmineno#=50
		else
			if mousex()>220 and mousex()<420 and mousey()>245 and mousey()<275
				tempmineno#=75
			else
				tempmineno#=0
			endif
		endif
	endif
endif


rem -------- 20*20 -----------
if gridsize#=20
	for t=1 to 3
		center text 320,t*35+148,str$(t*25+15)
	next t
	if mineno#=40
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=65
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=90
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif

	if mousex()>220 and mousex()<420 and mousey()>175 and mousey()<205
		tempmineno#=40
	else
		if mousex()>220 and mousex()<420 and mousey()>210 and mousey()<240
			tempmineno#=65
		else
			if mousex()>220 and mousex()<420 and mousey()>245 and mousey()<275
				tempmineno#=90
			else
				tempmineno#=0
			endif
		endif
	endif
endif



rem ----go button----

paste image 5,170,340,1
set text size 40
center text 320,345,"GO"

if mousex()>170 and mousex()<470 and mousey()>340 and mousey()<390 and mouseclick()=1
	goto optionsconfirm
endif




sync

loop



rem -------------------------------------------------------------------------------------------

optionsconfirm:

do
cls
for t=0 to 2
	for n=0 to 1
		paste image 4,t*256,n*256,1
	next n
next t
set text font "verdana"
set text size 20
center text 320,5,"choose grid size"
center text 320,150,"choose number of mines"
set text size 15
for t=1 to 3
	paste image 1,220,t*35-5,1
	paste image 1,220,t*35+140,1
	center text 320,t*35+3,str$(t*5+5)+"x"+str$(t*5+5)
next t
for t=6 to 7
	paste image t,629-t,10-t,1
next t
if gridsize#=10
	paste image 2,190,32,1
	paste image 3,425,32,1
endif
if gridsize#=15
	paste image 2,190,67,1
	paste image 3,425,67,1
endif
if gridsize#=20
	paste image 2,190,102,1
	paste image 3,425,102,1
endif
if gridsize#=10
	for t=1 to 3
		center text 320,t*35+148,str$(t*15-5)
	next t
	if mineno#=10
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=25
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=40
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif
endif
if gridsize#=15
	for t=1 to 3
		center text 320,t*35+148,str$(t*25)
	next t
	if mineno#=25
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=50
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=75
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif
endif
if gridsize#=20
	for t=1 to 3
		center text 320,t*35+148,str$(t*25+15)
	next t
	if mineno#=40
		paste image 2,190,177,1
		paste image 3,425,177,1
	endif
	if mineno#=65
		paste image 2,190,212,1
		paste image 3,425,212,1
	endif
	if mineno#=90
		paste image 2,190,247,1
		paste image 3,425,247,1
	endif
endif
paste image 5,170,340,1
set text size 40
center text 320,345,"GO"






paste image 9,122,95,1
set text size 40
center text 320,90,"are you sure?"

set text size 60
center text 320,140,"yes"
center text 320,210,"no"

set text size 18
center text 320,300,"current settings:  "+str$(mineno#)+" mines in a "+str$(gridsize#)+" by "+str$(gridsize#)+" grid"





if mousex()>270 and mousex()<370 and mousey()>160 and mousey()<205 and mouseclick()=1
	goto mainloop
endif

if mousex()>285 and mousex()<355 and mousey()>230 and mousey()<265 and mouseclick()=1
	cls
	goto options
endif



sync

loop














mainloop:

rem =========================================================================
rem =========================================================================
rem !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!MAIN GAME!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
rem =========================================================================
rem =========================================================================





rem set up array
dim gclicked(gridsize#,gridsize#)
dim glocations(gridsize#,gridsize#)
dim gneed(gridsize#,gridsize#)
dim openme(gridsize#,gridsize#)

remstart
for t=1 to gridsize#
	for n=1 to gridsize#
		gclicked(t,n)=1
	next n
next t
remend

for t=1 to mineno#
	do
		x=rnd(gridsize#-1)
		x=x+1
		y=rnd(gridsize#-1)
		y=y+1
		if glocations(x,y)=0
			glocations(x,y)=9
			gneed(x,y)=0
			exit
		endif
	loop
next t


for t=1 to gridsize#
	for n=1 to gridsize#
			if t>1 
				if glocations(t-1,n)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if n>1 
				if glocations(t,n-1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t<gridsize#
				if glocations(t+1,n)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if n<gridsize#
				if glocations(t,n+1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t>1 and n>1 
				if glocations(t-1,n-1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t<gridsize# and n>1
				if glocations(t+1,n-1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t>1 and n<gridsize#
				if glocations(t-1,n+1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
			if t<gridsize# and n<gridsize#
				if glocations(t+1,n+1)>8 then glocations(t,n)=glocations(t,n)+1
			endif
	next n
next t


for t=1 to gridsize#
	for n=1 to gridsize#
		if glocations(t,n)>9
			glocations(t,n)=9
		endif
	next n
next t




do






if updated#=0

	cls

	for t=0 to 2
		for n=0 to 1
			paste image 4,t*256,n*256,1
		next n
	next t
		
	for t=19 to 23
		draw#=gridsize#*20+t
		draw2#=38-t
		draw3#=t*10
		draw4#=250-draw3#
		ink rgb(draw4#,draw4#,draw4#),0
		line draw2#,draw2#,draw#,draw2#
		line draw2#,draw2#,draw2#,draw#
		line draw#,draw2#,draw#,draw#
		line draw2#,draw#,draw#,draw#
		ink rgb(255,255,255),0
	next t
	
	
	for t=1 to gridsize#
		for n=1 to gridsize#
			if gclicked(t,n)=0 
				paste image 10,t*20,n*20,1
			endif
			if gclicked(t,n)=2
				paste image 21,t*20,n*20,1
			endif
			if gclicked(t,n)=1
				if glocations(t,n)=0 then paste image 11,t*20,n*20,1
				if glocations(t,n)=9
					paste image 12,t*20,n*20,1
					die#=1
				endif
				for q=1 to 8
					if glocations(t,n)=q then paste image q+12,t*20,n*20,1
				next q
			endif
		next n
	next t
	

	updated#=1
endif


if mousex()>620 and mousex()<640 and mousey()>0 and mousey()<20
	paste image 6,623,4,1
	paste image 8,622,3,1
	if mouseclick()=1 then goto exitprog
else
	for t=6 to 7
		paste image t,629-t,10-t,1
	next t
endif


for t=1 to gridsize#
	for n=1 to gridsize#
		if mousex()>t*20 and mousey()>n*20 and mousex()<t*20+20 and mousey()<n*20+20
			if mouseclick()=1
				if gclicked(t,n)=0
					gclicked(t,n)=1
					if glocations(t,n)=0
						if t>1
							if gclicked(t-1,n)=0 then gclicked(t-1,n)=1
						endif
						if t<gridsize#
							if gclicked(t+1,n)=0 then gclicked(t+1,n)=1
						endif
						if t>1 and n>1 
							if gclicked(t-1,n-1)=0 then gclicked(t-1,n-1)=1
						endif
						if t<gridsize# and n>1
							if gclicked(t+1,n-1)=0 then gclicked(t+1,n-1)=1
						endif
						if t>1 and n<gridsize#
							if gclicked(t-1,n+1)=0 then gclicked(t-1,n+1)=1
						endif
						if t<gridsize# and n<gridsize#
							if gclicked(t+1,n+1)=0 then gclicked(t+1,n+1)=1
						endif
						if n>1
							if gclicked(t,n-1)=0 then gclicked(t,n-1)=1
						endif
						if n<gridsize#
							if gclicked(t,n+1)=0 then gclicked(t,n+1)=1
						endif
					endif
					updated#=0
				endif
			endif
			
			if mouseclick()=2
				if gclicked(t,n)=0
					gclicked(t,n)=2
					wait 500
				else
					if gclicked(t,n)=2
						gclicked(t,n)=0
						wait 500
					endif
				endif
			updated#=0
			endif
		endif
	next n
next t


if die#=1 then goto diecode

sync
loop

diecode:
wait 500
cls
wait 500
center text 320,25,"GAME OVER"
center text 320,65,"press any key to return to the menu"
suspend for key
die#=0
updated#=0
rem remove array
undim gclicked(gridsize#,gridsize#)
undim glocations(gridsize#,gridsize#)
undim gneed(gridsize#,gridsize#)
undim openme(gridsize#,gridsize#)
goto options

you can also have a look at the screenshot, download the .exe as it is or download a zip with the code and all the media here if that would help: http://jamesmason01.googlepages.com/index.htm

any other comments, suggestions or tips would also be greatly appreciated.

by the way, I'm only using DBC.

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 1st Sep 2006 10:02

Link

I wrote a version of Minesweeper for the amiga about 10 years ago.
For the clearing part:
Check the square that was clicked
Store each of the eight adjacent squares in a 'check' array.
Check the first square in the array.
Store each of its eight adjacent squares in the check array, unless they are already in it.
Continue until the check array is empty.

As for the game over part:
Store each position in an array that can have three possible values:
0 - still covered, don't know what's beneath it.
1 - Uncovered, either empty or a number.
2 - Flagged.

Now run through the array to check that all squares in the array have a value > 0. If they do then everything is either uncovered or flagged. In which case now you need to check that every square that is flagged has a mine beneath it. If it does then the level is complete.

Back to top

Profile PM Email

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 1st Sep 2006 11:07 Edited at: 1st Sep 2006 15:19

Link

Oh! Clever... I was half way there with both of those but I was just getting confused... I think I see what you mean with the clearing part, but I don't exactly know how to implement it... I'll try a few things though.

The game over part, I should have got that myself. I already have the array with the three possible values and I was going to do that value>0 thing but then I realised that you could have flagged everything and that would still work...

EDIT:

+ Code Snippet

rem check for winning
gameover#=1
for t=1 to gridsize#
	for n=1 to gridsize#
		if gclicked(t,n)=0 then gameover#=0
		if gclicked(t,n)=2 and glocations(t,n)<9 then gameover#=0
	next n
next t

if gameover#=1 then goto winsection

EDIT 2:

for t=1 to gridsize#
	for n=1 to gridsize#
		if needsopening(t,n)=1
			if t>1
				if gclicked(t-1,n)=0 then gclicked(t-1,n)=1
				if glocations(t-1,n)=0 and needsopening(t-1,n)=0 then needsopening(t-1,n)=1
			endif
			if t<gridsize#
				if gclicked(t+1,n)=0 then gclicked(t+1,n)=1
				if glocations(t+1,n)=0 and needsopening(t+1,n)=0 then needsopening(t+1,n)=1
			endif
			if t>1 and n>1 
				if gclicked(t-1,n-1)=0 then gclicked(t-1,n-1)=1
				if glocations(t-1,n-1)=0 and needsopening(t-1,n-1)=0 then needsopening(t-1,n-1)=1
			endif
			if t<gridsize# and n>1
				if gclicked(t+1,n-1)=0 then gclicked(t+1,n-1)=1
				if glocations(t+1,n-1)=0 and needsopening(t+1,n-1)=0 then needsopening(t+1,n-1)=1
			endif
			if t>1 and n<gridsize#
				if gclicked(t-1,n+1)=0 then gclicked(t-1,n+1)=1
				if glocations(t-1,n+1)=0 and needsopening(t-1,n+1)=0 then needsopening(t-1,n+1)=1
			endif
			if t<gridsize# and n<gridsize#
				if gclicked(t+1,n+1)=0 then gclicked(t+1,n+1)=1
				if glocations(t+1,n+1)=0 and needsopening(t+1,n+1)=0 then needsopening(t+1,n+1)=1
			endif
			if n>1
				if gclicked(t,n-1)=0 then gclicked(t,n-1)=1
				if glocations(t,n-1)=0 and needsopening(t,n-1)=0 then needsopening(t,n-1)=1
			endif
			if n<gridsize#
				if gclicked(t,n+1)=0 then gclicked(t,n+1)=1
				if glocations(t,n+1)=0 and needsopening(t,n+1)=0 then needsopening(t,n+1)=1
			endif
			needsopening(t,n)=2
			updated#=0
		endif
	next n
next t

+ Code Snippet

for t=1 to gridsize#
	for n=1 to gridsize#
		if needsopening(t,n)=1
			if t>1
				if gclicked(t-1,n)=0 then gclicked(t-1,n)=1
				if glocations(t-1,n)=0 and needsopening(t-1,n)=0 then needsopening(t-1,n)=1
			endif
			if t<gridsize#
				if gclicked(t+1,n)=0 then gclicked(t+1,n)=1
				if glocations(t+1,n)=0 and needsopening(t+1,n)=0 then needsopening(t+1,n)=1
			endif
			if t>1 and n>1 
				if gclicked(t-1,n-1)=0 then gclicked(t-1,n-1)=1
				if glocations(t-1,n-1)=0 and needsopening(t-1,n-1)=0 then needsopening(t-1,n-1)=1
			endif
			if t<gridsize# and n>1
				if gclicked(t+1,n-1)=0 then gclicked(t+1,n-1)=1
				if glocations(t+1,n-1)=0 and needsopening(t+1,n-1)=0 then needsopening(t+1,n-1)=1
			endif
			if t>1 and n<gridsize#
				if gclicked(t-1,n+1)=0 then gclicked(t-1,n+1)=1
				if glocations(t-1,n+1)=0 and needsopening(t-1,n+1)=0 then needsopening(t-1,n+1)=1
			endif
			if t<gridsize# and n<gridsize#
				if gclicked(t+1,n+1)=0 then gclicked(t+1,n+1)=1
				if glocations(t+1,n+1)=0 and needsopening(t+1,n+1)=0 then needsopening(t+1,n+1)=1
			endif
			if n>1
				if gclicked(t,n-1)=0 then gclicked(t,n-1)=1
				if glocations(t,n-1)=0 and needsopening(t,n-1)=0 then needsopening(t,n-1)=1
			endif
			if n<gridsize#
				if gclicked(t,n+1)=0 then gclicked(t,n+1)=1
				if glocations(t,n+1)=0 and needsopening(t,n+1)=0 then needsopening(t,n+1)=1
			endif
			needsopening(t,n)=2
			updated#=0
		endif
	next n
next t

I did what you said and made a new array, but I had a few problems because it wanted to update every loop, making it very slow and glitchy, until I figured out that when it was updated I set the value to 2, and only let it update if the value was 0 (it changed it to 1 then checked the grid around it then changed to 2 so that it was not going to be used again)

Now I just have to figure out how to do that left/right click thingy and I'll probably be able to do that it was those other two which I thought would be the problem. Thanks so much for your help

My thoughts so far are...

1. Check the position of the mouse
2. Check to see if both mouse buttons are being pressed
3. Check that the square you're clicking on has been opened up already
4. Check all the squares next to it to see that their gclicked value is set to 0 (this will exclude already opened squares or flagged squares)
5. Check these squares to see that none of them have mines under. I think I'll need another variable for this which can be set to 1 before the checks and if any of them have mines under then it will be returned to 0 but if not then the squares will be opened up and then the value will be returned to 0. I'm not so sure exactly how this bit will work though...

EDIT 3: OK it's finished... if anyone really cares they can download the game or the code with the media from my website, but it's not really worth it...

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 2nd Sep 2006 09:03 Edited at: 2nd Sep 2006 09:07

Link

I did a minesweeper game almost 2 years ago, about 160 lines of code.

Each square has a 'state'. By default, they all start at 0.

-1 = opened
0 = unopened
1 = check mark
2 = question mark

Now, when you click, any states above -1 haven't been opened so then do your other stuff.

+ Code Snippet

state = state of square mouse is over

if mouseclick() = 1 and state > -1
   state = -1
endif

if mouseclick() = 2 and state > -1
   inc state
   if state > 2 then state = 0
endif


rem drawing square
if state > -1
   rem draw blank unopened square as base
   if state = 1 then draw check mark
   if state = 2 then draw question mark
else
   rem draw opened square with number/bomb
endif

"Using Unix is the computing equivalent of listening only to music by David Cassidy" - Rob Pike

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / problem with minesweeper