Minesweeper

You have not uploaded your program! Please edit the page to upload your program.

Author: Robert Black
Download: README.txtNo Download Available
Version: 1.0
Compatibility: TI-83/84/+/SE
File Size: 0 Bytes
Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc
Rating:
TI|BD

Hello, I'm back.
This is a game exactly like Minesweeper.
Press the arrow keys to move your selector thingy.
Press Clear when you think you have won.
Press Enter to chose a space.

:[[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]]→[A] //sorry for the long matrix :)
:For(W,1,20
:1→[A](randInt(1,8),randInt(1,16
:End
:ClrHome
:8→X
:4→Y
:While 1
:getKey→K
:If not([A](Y,X)=2)
:Output(Y,X," "
:X-(K=24 and X>1)+(K=26 and X<16)→X
:Y-(K=25 and Y>1)+(K=34 and Y<8)→Y
:Output(Y,X,"O
:If K=105 or [A](Y,X)=2
:Then
:0→G
:If X>1
:Then
:If [A](Y,X-1)=1
:G+1→G
:End
:If X<16
:Then
:If [A](Y,X+1)=1
:G+1→G
:End
:If Y>1
:Then
:If [A](Y-1,X-1)=1 //You might have to change Y-1 to Y+1, I can't remember
:G+1→G
:End
:If Y<8
:Then
:If [A](Y+1,X-1)=1 //You might have to change Y+1 to Y-1, I can't remember
:G+1→G
:End
:If [A](Y,X)=1
:Then
:Pause "YOU LOSE
:Output(9,9,9
:End
:Output(Y,X,G
:2→[A](Y,X
:1→X
:1→Y
:0→G
:End
:If K=45
:Then
0→G
:For(H,1,16
:For(I,1,8
:If [A](I,H)=0
:1→G
:End
:End
:If G=0
:Pause "YOU WIN!
:Output(9,9,9
:End
:End
:End

What the community thinks:

Add a New Comment
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-NonCommercial-ShareAlike 3.0 License