View Full Version : ThinSweeper Game (1)
ChandraMDE
30-04-2013, 18:01
Hi, I'm trying to get to know and have some fun with thinBasic.
I downloaded thinBasic couple days ago and join the forum yesterday.
This is a test code displaying the Mine Cells of the ThinSweeper Game.
Uses "console"
Dim i As Integer
Dim hbuffer As Long
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)= "ÀÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
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, 8, hbuffer)
Next
Console_PrintAt_Buffer("THINSWEEPER", 68, 3, 14, hbuffer)
Console_PrintAt_Buffer("By", 72, 7, 14, hbuffer)
Console_PrintAt_Buffer("ChandraMDE", 68, 8, 12, hbuffer)
Console_PrintAt_Buffer("Thin Basic", 68, 9, 15, hbuffer)
Console_PrintAt_Buffer("STATUS", 70, 13, 14, hbuffer)
Console_PrintAt_Buffer("Mines ( )", 68, 15, 12, hbuffer)
Console_PrintAt_Buffer("Found ( )", 68, 16, 10, hbuffer)
Console_PrintAt_Buffer("Left ( )", 68, 17, 11, hbuffer)
Console_PrintAt_Buffer("Skor( )", 68, 18, 13, hbuffer)
Console_PrintAt_Buffer("MY WEBSITE", 68, 22, 14, hbuffer)
Console_PrintAt_Buffer(" /telinks ", 68, 23, 10, hbuffer)
Console_PrintAt_Buffer("@wordpress", 68, 24, 11, hbuffer)
Console_WaitKey()
Complete code is coming soon. Hopefully got more spare time for learning thinBasic. :)
8230
ErosOlmi
01-05-2013, 09:58
Dear ChandraMDE welcome to thinBasic community forum.
Hope you will have nice time with us and thinBasic Programming Language.
Sorry about your posts where initially put into "moderation" status and were not visible into the forum.
This is done by forum protection system for all new users until each user has a minimum of 4 posts approved.
So if you will make other posts (I hope) please be patience till I will approve.
Ciao
Eros
ChandraMDE
01-05-2013, 10:34
Thank you for your reply, Eros.
I wasn't reading thoroughly the post-submit notification, that's why I submitted this post twice.
Btw, I do a little kinda campaign about using an interpreter over a compiler in the learning process of programming.
And thinBasic is one of the interpreter I recommend to my readers. The others are Python, Ch, and Lua.
I am no expert, but doing a lots of programming about simple tasks.
And yes I will be patience to get my 4th post get through. :D
Best regards.
ReneMiner
01-05-2013, 11:17
Great idea, use Console to it's full powers - Eros- is there a way to detect Mouseinput to console-window? I might squeeze some Gadgets in :D
ErosOlmi
01-05-2013, 11:23
Console_InKey
ChandraMDE
01-05-2013, 11:40
ReneMiner << I just think that Console is a great place to start and get closer to thinBasic. :)
ErosOlmi << What a quick response. I believe Console_Inkey is using this function:
BOOL ReadConsoleInput(
HANDLE hConsoleInput, // handle of a console input buffer
PINPUT_RECORD lpBuffer, // address of the buffer for read data
DWORD nLength, // number of records to read
LPDWORD lpNumberOfEventsRead // address of number of records read
);
from Kernel32.Dll... Am I right?
ErosOlmi
01-05-2013, 12:04
ErosOlmi << What a quick response. I believe Console_Inkey is using this function:
BOOL ReadConsoleInput(
HANDLE hConsoleInput, // handle of a console input buffer
PINPUT_RECORD lpBuffer, // address of the buffer for read data
DWORD nLength, // number of records to read
LPDWORD lpNumberOfEventsRead // address of number of records read
);
from Kernel32.Dll... Am I right?
More or less yes: http://msdn.microsoft.com/en-us/library/windows/desktop/ms684961(v=vs.85).aspx
ChandraMDE
02-05-2013, 02:28
Good day, Eros.
I was a bit curious for getting "More or less yes" instead of straight "Yes" about the ReadConsoleInput() function,
but then, I found out that thinBasic was created using PowerBasic. :)
ChandraMDE
03-05-2013, 15:01
Good day,
Add some functions to the first posted code.
Here is the code for ThinSweeper with following functions:
1. InitBoard() - drawing ThinSweeper Board
2. InitCell() - Cells initialization (Mines number, neighbours, and random positioning)
3. PrintStatus() - Print Mines Number, Mines Found, Mines Left, and Score
4. PrintCell() - Reveal all Cells
5. PrintClosedCell() - Unreveal all cells
Sometimes the program is crashed unexpectedly... I wonder why...?
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
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, 8, hbuffer)
Next
Console_PrintAt_Buffer("THINSWEEPER", 68, 3, 14, hbuffer)
Console_PrintAt_Buffer("By", 72, 7, 14, hbuffer)
Console_PrintAt_Buffer("ChandraMDE", 68, 8, 12, hbuffer)
Console_PrintAt_Buffer("Thin Basic", 68, 9, 15, hbuffer)
Console_PrintAt_Buffer("STATUS", 70, 13, 14, hbuffer)
Console_PrintAt_Buffer("Mines ( )", 68, 15, 12, hbuffer)
Console_PrintAt_Buffer("Found ( )", 68, 16, 10, hbuffer)
Console_PrintAt_Buffer("Left ( )", 68, 17, 11, hbuffer)
Console_PrintAt_Buffer("Skor( )", 68, 18, 13, hbuffer)
Console_PrintAt_Buffer("MY WEBSITE", 68, 22, 14, hbuffer)
Console_PrintAt_Buffer(" /telinks ", 68, 23, 10, hbuffer)
Console_PrintAt_Buffer("@wordpress", 68, 24, 11, hbuffer)
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)
For i = 1 To Mines
x = Rnd(1, 16)
y = Rnd(1, 12)
Cell(x, y) = -1
Next
Score = 0
Found = 0
MinesLeft = Mines
For x = 1 To 16
For y = 1 To 12
If Cell(x, y) = -1 Then Next
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
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 Go!
'Display ThinSweeper Cells 5 times
Dim count As Integer
InitBoard()
For count=1 To 5
InitCell()
PrintStatus()
PrintCell()
Console_WaitKey(2)
Next
PrintClosedCell()
Console_WaitKey()
'------------------ End of Program
Some screenshots:
8233
8234
8235
ReneMiner
04-05-2013, 09:25
I can confirm it crashes after a few keyboard-pushes whithout any Error-Message.
I did a few changes to eliminate it - the reason was "If Cell(X,Y) = -1 Then Next"- Line 94
'Program thinsweeper
Uses "console"
Dim i, j, x, y As Long
Dim hbuffer As Long
Dim Cell(17, 13) As Long
Dim CellStatus(17, 13) As Long
Dim Mines As Long
Dim Score As Long
Dim Found As Long
Dim MinesLeft As Long
Sub InitBoard()
Local 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
PrintAt_Buffer(B(i), 1, i, 8, hbuffer)
Next
PrintAt_Buffer("THINSWEEPER", 68, 3, 14, hbuffer)
PrintAt_Buffer("By", 72, 7, 14, hbuffer)
PrintAt_Buffer("ChandraMDE", 68, 8, 12, hbuffer)
PrintAt_Buffer("Thin Basic", 68, 9, 15, hbuffer)
PrintAt_Buffer("STATUS", 70, 13, 14, hbuffer)
PrintAt_Buffer("Mines ( )", 68, 15, 12, hbuffer)
PrintAt_Buffer("Found ( )", 68, 16, 10, hbuffer)
PrintAt_Buffer("Left ( )", 68, 17, 11, hbuffer)
PrintAt_Buffer("Skor( )", 68, 18, 13, hbuffer)
PrintAt_Buffer("MY WEBSITE", 68, 22, 14, hbuffer)
PrintAt_Buffer(" /telinks ", 68, 23, 10, hbuffer)
PrintAt_Buffer("@wordpress", 68, 24, 11, hbuffer)
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)
For i = 1 To Mines
x = Rnd(1, 16)
y = Rnd(1, 12)
Cell(x, y) = -1
Next
Score = 0
Found = 0
MinesLeft = Mines
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
EndIf
Next
Next
End Sub
'************************
' Printing Game Status
'************************
Sub PrintStatus()
PrintAt_Buffer(Format$ (Mines, "00"), 75, 15, 15, hbuffer)
PrintAt_Buffer(Format$ (Found, "00"), 75, 16, 15, hbuffer)
PrintAt_Buffer(Format$ (MinesLeft, "00"), 75, 17, 15, hbuffer)
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
PrintAt_Buffer(Chr$(1), 3+(x-1)*4, 2+2*(y-1), 12, hbuffer)
Case 0 'space
PrintAt_Buffer(Chr$(249), 3+(x-1)*4, 2+2*(y-1), 7, hbuffer)
Case Else
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
PrintAt_Buffer(Chr$(254), 3+(x-1)*4, 2+2*(y-1), 4, hbuffer)
Next
Next
End Sub
'--------------------------------- Let's Go!
'Display ThinSweeper Cells 5 times
Local count As Long
InitBoard()
For count=1 To 5
InitCell()
PrintStatus()
PrintCell()
WaitKey(2)
Next
PrintClosedCell()
WaitKey
'------------------ End of Program
Edit: Suggest: Eliminate stuff as ...= -1 and replace this number by some Const as
%Bomb = -1
so your code becomes clearly readable
ChandraMDE
04-05-2013, 10:52
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
04-05-2013, 11:08
8236
Next step is tidy up the code before applying mouse control.
Please try and please advice.
ReneMiner
04-05-2013, 11:59
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 :D
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
05-05-2013, 04:01
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 :D
Adding a few timebombs would be great. A challenge for a newbie like me.
Thanks. :)
ReneMiner
05-05-2013, 16:02
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
06-05-2013, 02:20
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
08-05-2013, 15:31
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:
8261
Screenshot:
8260
ReneMiner
08-05-2013, 20:42
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
09-05-2013, 12:23
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
09-05-2013, 18:34
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.