ThinSweeper Game (1)

[ChandraMDE]

Thank you Rene for the correction.
So, instead of continuing the next loop, do you think the interpreter is "confused"...? Please explain.
Btw, here is the working but ugly version of ThinSweeper. Control keys are UP, DOWN, LEFT, RIGHT.
Execution keys are SPACE if you are sure that the cell is NOT a BOMB), and ENTER/RETURN if you are sure that the cell is a BOMB.
Scoring is also working.
Please try and please advice...

'Program thinsweeper
Uses "console"
	
Global i, j, x, y As Integer
Global hbuffer As Long
Global Cell(17, 13) As Integer
Global CellStatus(17, 13) As Integer
Global Mines As Integer
Global Score As Integer
Global Found As Integer
Global MinesLeft As Integer

'----------------------- Let's Go!
InitBoard()
InitCell()
PrintStatus()                        
PrintClosedCell()
Playing()
Cls()
PrintL "Thank you for playing. thinBasic rocks!"
Console_WaitKey()
'------------------ End of Program
                              
                              
'*****************************                                  
'  Drawing ThinSweeper Board
'*****************************                                  
Sub InitBoard()
  Dim B(25) As String
  B(1) = "ÚÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
  B(2) = "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³ÕÍÍÍÍÍÍÍÍÍÍÍ͸³"
  B(3) = "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅ´ THINSWEEPERô"
  B(4) = "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³ÔÍÍÍÍÍÍÍÍÍÍÍ;³"
  B(5) = "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´              ³"
  B(6) = "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³ÕÍÍÍÍÍÍÍÍÍÍÍ͸³"
  B(7) = "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅ´     By     ô"
  B(8) = "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³³ ChandraMDE ³³"
  B(9) = "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅ´ Thin Basic ô"
  B(10) = "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³ÔÍÍÍÍÍÍÍÍÍÍÍ;³"
  B(11)= "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´              ³"
  B(12)= "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³ÕÍÍÍÍÍÍÍÍÍÍÍ͸³"
  B(13)= "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅ´   STATUS   ô"
  B(14)= "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³ÆÍÍÍÍÍÍÍÍÍÍÍ͵³"
  B(15)= "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´³ Mines (  ) ³³"
  B(16)= "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³³ Found (  ) ³³"
  B(17)= "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´³ Left  (  ) ³³"
  B(18)= "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³³ Skor(    ) ³³"
  B(19)= "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÅÄÄÄÄÄÄÄÄÄÄÄÄÅ´"
  B(20)= "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³³ ÛÛÛÛÛÛÛÛÛÛ ³³"
  B(21)= "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ³"
  B(22)= "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³  MY WEBSITE  ³"
  B(23)= "ÃÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄÅÄÄÄ´   /telinks   ³"
  B(24)= "³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³   ³  @wordPress  ³"
  B(25)= "ÀÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
                    
  Cls()                  
  hbuffer = Console_CreateScreenBuffer
  Console_SetActiveScreenBuffer(hbuffer)
  Console_SetTitle("THINSWEEPER - Chandra MDE, http://teknikelektrolinks.com")
  Console_HideCursor

  For i=1 To 25
    Console_PrintAt_Buffer(B(i), 1, i, 15, hbuffer)
  Next                                             
   
  Console_ColorAt(68, 3, 11, 14)
  Console_ColorAt(72, 7, 2, 14)
  Console_ColorAt(68, 8, 10, 12)
  Console_ColorAt(68, 9, 10, 15)      
  Console_ColorAt(68, 13, 6, 14)
  Console_ColorAt(68, 15, 10, 12)
  Console_ColorAt(68, 16, 10, 10)
  Console_ColorAt(68, 17, 10, 11)
  Console_ColorAt(68, 18, 10, 13)
  Console_ColorAt(68, 22, 10, 14)
  Console_ColorAt(68, 23, 10, 10)
  Console_ColorAt(68, 24, 10, 11)
End Sub
    
'***********************
'  Cell Initialization
'***********************
Sub InitCell()
  Local nb, xp, xm, yp, ym As Byte
		For x = 1 To 16
			For y = 1 To 12
				Cell(x, y) = 0
				CellStatus(x, y) = 0
			Next
		Next
		           
		Randomize Timer
		Mines = Rnd(5, 45)
		Score = 0
		Found = 0
		MinesLeft = Mines
		
		For i = 1 To Mines
			x = Rnd(1, 16)
			y = Rnd(1, 12)
			Cell(x, y) = -1
		Next 
		
		For x = 1 To 16
			For y = 1 To 12
				If Cell(x, y) = -1 Then
				  'do nothing
				Else
				  nb = 0
				  xp = x + 1
  				xm = x - 1
  				yp = y + 1
  				ym = y - 1
				
  				If xp<=16 Then
  					If Cell(xp, y) = -1 Then Incr nb
  				End If 
  				
  				If xm>=1 Then
  					If Cell(xm, y) = -1 Then Incr nb
  				End If
  				
  				If yp<=12 Then
  					If Cell(x, yp) = -1 Then Incr nb
  				End If
  				
  				If ym>=1 Then
  					If Cell(x, ym) = -1 Then Incr nb
  				End If
  				
  				If (xp<=16) And (yp<=12) Then
  					If Cell(xp, yp) = -1 Then Incr nb
  				End If
  				
  				If (xp<=16) And (ym>=1) Then
  					If Cell(xp, ym) = -1 Then Incr nb
  				End If
  				
  				If (xm>=1) And (yp<=12) Then
  					If Cell(xm, yp) = -1 Then Incr nb
  				End If
  				
  				If (xm>=1) And (ym>=1) Then
  					If Cell(xm, ym) = -1 Then Incr nb
  				End If
  				
  				Cell(x, y) = nb	
  			End If
			Next 
		Next 
End Sub 
                                                 
'************************
'  Printing Game Status
'************************
Sub PrintStatus()
	Console_PrintAt_Buffer(Format$ (Mines, "00"), 75, 15, 15, hbuffer)
	Console_PrintAt_Buffer(Format$ (Found, "00"), 75, 16, 15, hbuffer)
	Console_PrintAt_Buffer(Format$ (MinesLeft, "00"), 75, 17, 15, hbuffer)
	Console_PrintAt_Buffer(Format$ (Score, "0000"), 73, 18, 15, hbuffer)
End Sub 

'*********************************
'  Print Cell (Revealed)
'*********************************
Sub PrintCell()
		For x = 1 To 16
			For y = 1 To 12
				Select Case Cell(x, y)
					Case -1 'bomb
						Console_PrintAt_Buffer(Chr$(1), 3+(x-1)*4, 2+2*(y-1), 12, hbuffer)
					Case 0 'space
						Console_PrintAt_Buffer(Chr$(249), 3+(x-1)*4, 2+2*(y-1), 7, hbuffer)
					Case Else 
						Console_PrintAt_Buffer(Format$(Cell(x, y), "0"), 3+(x-1)*4, 2+2*(y-1), 8+Cell(x, y), hbuffer)
				End Select 
			Next
		Next 
End Sub
                    
'***************************
'  Print Cell (Unrevealed)
'***************************
Sub PrintClosedCell()
		For x = 1 To 16
			For y = 1 To 12
				Console_PrintAt_Buffer(Chr$(254), 3+(x-1)*4, 2+2*(y-1), 4, hbuffer)
			Next
		Next 
End Sub 

'***************
'  Let's Play!
'***************
Sub Playing()
  Dim px, pxe, py, pye, m As Integer
  Dim KEY As String
  
	px = 8: py = 6
		
	Do 
			PrintStatus()
			
			Do
				Console_ColorAt(4*(px-1)+1, 2*(py-1)+1, 5, 4)
				Console_ColorAt(4*(px-1)+1, 2*(py-1)+3, 5, 4)
				Console_ColorAt(4*(px-1)+1, 2*(py-1)+2, 1, 4)
				Console_ColorAt(4*(px-1)+5, 2*(py-1)+2, 1, 4)
				Sleep(50)
				
				Console_ColorAt(4*(px-1)+1, 2*(py-1)+1, 5, 15)
				Console_ColorAt(4*(px-1)+1, 2*(py-1)+3, 5, 15)
				Console_ColorAt(4*(px-1)+1, 2*(py-1)+2, 1, 15)
				Console_ColorAt(4*(px-1)+5, 2*(py-1)+2, 1, 15)
				Sleep(50)
				
				KEY = Console_InKey()
			Loop Until KEY <> ""   
									
			If CellStatus(px, py) = 0 Then 
				Console_PrintAt_Buffer(Chr$(254), 4*(px-1)+3, 2*(py-1)+2, 4, hbuffer) 
			End If 
				
		  If Len(KEY)=2 Then
  			Select Case Asc(KEY, 2)
  				Case %VK_UP	'atas    
  					Decr py
  					If py = 0 Then py = 12
  					
  				Case %VK_DOWN 'bawah
  					Incr py
  					If py = 13 Then py = 1
  					
  				Case %VK_RIGHT 'kanan
  					Incr px
  					If px = 17 Then px = 1
  					
  				Case %VK_LEFT 'kiri
  					Decr px
  					If px = 0 Then px = 16
  					
  			  Case %VK_RETURN
  			    If CellStatus(px, py)=0 Then
    					If Cell(px, py) = -1 Then 
    						Console_PrintAt_Buffer(Chr$(2), 4*(px-1)+3, 2*(py-1)+2, 12, hbuffer)
    						CellStatus(px, py) = 1
    						Score = Score + 25
    					Else                            
    					  For m=1 To 10
    					    Console_ColorAt(67, 20, 11, 12)
    					    Sleep(100)
    					    Console_ColorAt(67, 20, 11, 15)
    					    Sleep(100)
    					  Next
    						PrintCell()
    						Console_WaitKey()
    						InitCell()
    						PrintClosedCell()
    						px = 8: py = 6
    					End If 
    				End If
  			End Select
				
		  ElseIf (Len(KEY)=1) And (Asc(KEY, 1)=%VK_SPACE) Then			
		    If CellStatus(px, py)=0 Then
				  Select Case Cell(px, py)
						Case -1		'bomb
						    For m=1 To 10
  					      Console_ColorAt(67, 20, 11, 12)
  					      Sleep(100)
  					      Console_ColorAt(67, 20, 11, 15)
  					      Sleep(100)
  					    Next
    					  PrintCell()
    					  Console_WaitKey()
    					  InitCell()
    					  PrintClosedCell()
    					  px = 8: py = 6
										
  				  Case 0		'empty cell
      					Console_PrintAt_Buffer(Chr$(249), 4*(px-1)+3, 2*(py-1)+2, 14, hbuffer) 
      					CellStatus(px, py) = 1           
      							
      					pxe = px : pye = py
      					Do
      						Incr pxe
      						If pxe<=16 Then
      							If Cell(pxe, pye) = 0 Then
      							  Console_PrintAt_Buffer(Chr$(249), 4*(pxe-1)+3, 2*(pye-1)+2, 14, hbuffer) 
      								CellStatus(pxe, pye) = 1
      								Sleep(50)
      							Else
      								Exit Do
      							End If 
      						End If 
      					Loop Until pxe > 16
    							
      					pxe = px
      					Do
      						Incr pye
      						If pye<=12 Then
      							If Cell(pxe, pye) = 0 Then
      								Console_PrintAt_Buffer(Chr$(249), 4*(pxe-1)+3, 2*(pye-1)+2, 14, hbuffer) 
      								CellStatus(pxe, pye) = 1
      								Sleep(50)
      							Else
      								Exit Do
      							End If 
      						End If 
      					Loop Until pye > 12
    							
      					pye = py
      					Do
      						Decr pxe
      						If pxe>=1 Then
      							If Cell(pxe, pye) = 0 Then
      								Console_PrintAt_Buffer(Chr$(249), 4*(pxe-1)+3, 2*(pye-1)+2, 14, hbuffer) 
      								CellStatus(pxe, pye) = 1
      								Sleep(50)
      							Else
      								Exit Do
      							End If 
      						End If 
      					Loop Until pxe < 1
      						
      					pxe = px
      					Do
      						Decr pye
      						If pye>=1 Then
      							If Cell(pxe, pye) = 0 Then
      								Console_PrintAt_Buffer(Chr$(249), 4*(pxe-1)+3, 2*(pye-1)+2, 14, hbuffer) 
      								CellStatus(pxe, pye) = 1
      								Sleep(50)
      							Else
      								Exit Do
      							End If  
      						End If 
      					Loop Until pye < 1
							
            Case Else 	'number
    						Console_PrintAt_Buffer(Format$(Cell(px, py), "0"), 4*(px-1)+3, 2*(py-1)+2, 8+Cell(px, py), hbuffer)
    						CellStatus(px, py) = 1
    						Score = Score + 10*Cell(px, py)
  				End Select 
  			End If
			End If
	Loop Until Asc(KEY, 2) = %VK_ESCAPE
End Sub

Next step is tidy up the code before applying mouse control.
Thank you, All.

[ChandraMDE]

thinsweep.tbasicc

Next step is tidy up the code before applying mouse control.
Please try and please advice.

[ReneMiner]

I tried a few games and it does not display the numbers of bombs I've found already nor what's left. The fast flashing pointer assumes it's a time-bomb-sweeper - maybe you could add some timer and hide a few timebombs too

And the Next-thing: I think there should always be only one Next per For. As there only is one End Function per Function. In your old script it was written a way that there are 2 For-statements, but 3 Next's - so in some cases there is one Next too much: there was no third for-next-counter running but sometimes there were 3 Next's in a row at the end of the most inner loop.

[ChandraMDE]

I tried a few games and it does not display the numbers of bombs I've found already nor what's left. The fast flashing pointer assumes it's a time-bomb-sweeper - maybe you could add some timer and hide a few timebombs too

Adding a few timebombs would be great. A challenge for a newbie like me.
Thanks.

[ReneMiner]

I totally forgot to mention another thing - not that important - but for the good looking:
See image on my post above. Around "thinsweeper" and "status" the corners show some wrong char - perhaps it's some localization of fonts the cause - but could also be just a wrong Chr-code.

[ChandraMDE]

I noticed that on the image attached. I'm sure that it is not because the wrong character because it is fine on my XP.
But, all the single-line characters are printed correctly on your screen, so I will use only single-line character.
I also notice that the empty cell's character which is a dot ( chr(249) ) printed differently on your screen. So, I will simply change it with "." character (chr(46)).
Thanks.

[ChandraMDE]

Hi, All.
Please try the game and please advice.
All basic stuff is working including scoring and win/gameover checking.

Control Keys:
Up, Down, Left, Right

Decision Keys:
SPACE = If you are sure the cell IS NOT A BOMB
RETURN = If you are sure the cell IS A BOMB

Character:
Bomb = Solid-Face
Empty = "+"
Number = 1, 2, 3, 4,...

To ReneMiner: Sorry, the timebombs haven't implemented yet.

Thanks & Regards.

Sourcecode:
ThinSweeper.tbasicc

Screenshot:
ThinSweeper3.jpg

[ReneMiner]

Now the graphics look correct here- all borders fine. I blew a few times up- but also solved some. what's somehow disturbing (other than other minesweepers) that it does not uncover until the numbers appear. But I can get used to it. Enhanced would be some sound - maybe you can use one of them I attached here
I mixed and recoreded them myself so they are royalty free to use, it's 8 or 16 Bit Mono-Wav - I don't know any more, but I remember TBASS can handle these

[ChandraMDE]

Hi, Rene.
Thank you very much for sharing lots of .WAV files.
I can assure you that I'm going to use some of them to make ThinSweeper more fun.

Thanks & Regards,
Chandra MDE

[ReneMiner]

Here's some small example how to play the sounds...

Just put both files next to the sounds-folder and run soundtest. Later you will only need the unit-file, put this next to your main-script and write at start

#Include "unit_Sound3d.tBasicU"

and replace soundtest.tBasic completely with your code.