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:

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. :{16,16→dim([A] //sorry for the long matrix :) Fixed :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(8,1,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(8,1,9 :End :End :End

What the community thinks:

page 1 of 212next »

Leo (guest) 13 Oct 2014 17:08

For the first command, instead of that incredibly long matrix enter can you try this: ?
:

Leo (guest) 13 Oct 2014 17:08

:{16, 16 -> dim([A]

...

Robert Black 14 Oct 2014 13:35

…that makes it so much easier…

MasterChief2552 14 Oct 2014 18:49

:0identity(16->[A]

This will do it as well, but is more reliable, because yours will not reset the Matrix to 0s if [A] had some values in before.

---

Wake me, when you need me.

Last edited on 14 Oct 2014 18:50 by MasterChief2552 Show more

help (guest) 03 Dec 2014 15:44

it keeps coming up with a sythax on the first command. any help?(ti-84+)

Michael2_3B 03 Dec 2014 16:01

Make sure you are selecting [2ND][MATRX][A], not actually typing out [A].

Keegan (guest) 17 Dec 2014 01:27

Did I miss something? I'm unable to use the down arrow

Tom (guest) 11 Feb 2015 19:16

(begginer here) where do I find the If not function

Re: If not function

Michael2_3B 11 Feb 2015 20:29

in the program editor, hit PRGM, then press enter to insert the If function. After that, hit [2ND] [MATH], scroll over to LOGIC, and select not(. hope this helps :)

Last edited on 11 Feb 2015 22:31 by Michael2_3B Show more

Confused (guest) 01 May 2017 01:17

Invalid dim?

Battlesquid 01 May 2017 03:26

Where are you getting the error?

---

Christopher Boom 11 Sep 2017 07:00

Beginner here, invalid dim on the line "if not ([A](Y,X=2)"

Last edited on 11 Sep 2017 07:00 by Christopher Boom Show more

Battlesquid 11 Sep 2017 13:02

That's supposed to be "If not([A](Y,X)=2)". Also make sure you are using the Matrix [A], not actually typing it in.

---

Christopher Boom 11 Sep 2017 15:39

thanks! also, is it supposed to leave a trail of O's? Or are they supposed to stay on the cursor only? it makes it a bit confusing to see where you are.

it says err domain

Zack_Attack0411 06 Oct 2017 02:04

it goes to last output i have
:Output(9,9,9
is this right?

Re: it says err domain

Battlesquid 06 Oct 2017 02:11

Yep, this will throw a domain error. Try swapping out that line with:

Output(8,1,9

I don't see the use for this line of code, so I think it would be safe to remove it entirely. I'll make some modifications to the code so that it's easier to read/is correct in some places.

---

Re: it says err domain

Zack_Attack0411 06 Oct 2017 02:19

it also doesnt let me move

Re: it says err domain

Battlesquid 06 Oct 2017 02:23

This program seems to be buggy in general, but you can check out some minesweeper programs at ticalc.org while this is cleaned up.

:)

---

Invalid dim.

Xavier Bresciano 06 Feb 2018 18:21

It says invalid dim the brings me to the last parentheses in “If [A](y-1,x-1)=1” after y<8

Re: Invalid dim.

Myles_Zadok 06 Feb 2018 18:52

The code you're referring to is:

:If Y<8
:Then
:If [A](Y+1,X-1)=1

Make sure you have that typed out correctly. If you do, keep in mind that this program is buggy, and I don't think anyone has cleaned it up (see Battlesquid's post above).

err: syntax

Paul Vancoughnett 07 Aug 2018 22:52

i get err: syntax for the line
:Output(Y,X," "

page 1 of 212next »