Maintenance script: Automated internal link correction

2016-02-25T00:37:41Z

Automated internal link correction

← Older revision		Revision as of 00:37, 25 February 2016
Line 1:		Line 1:
	Like the classic game minesweeper, the goal of Mine Field is to avoid hitting the mines. A new twist has been added, however, and you must maneuver the field around the mines to get to the star (the asterisk) on the other side. The game uses a simple 8x16 matrix to store the field, although you could use a list or string as well. You can play this game indefinitely, since all of the mines are randomly placed.		Like the classic game minesweeper, the goal of Mine Field is to avoid hitting the mines. A new twist has been added, however, and you must maneuver the field around the mines to get to the star (the asterisk) on the other side. The game uses a simple 8x16 matrix to store the field, although you could use a list or string as well. You can play this game indefinitely, since all of the mines are randomly placed.

	~~'''TOC'''~~		__TOC__

	== The Code ==		== The Code ==

Maintenance script: Initial automated import

2016-02-24T18:19:13Z

Initial automated import

New page

Like the classic game minesweeper, the goal of Mine Field is to avoid hitting the mines. A new twist has been added, however, and you must maneuver the field around the mines to get to the star (the asterisk) on the other side. The game uses a simple 8x16 matrix to store the field, although you could use a list or string as well. You can play this game indefinitely, since all of the mines are randomly placed.

'''TOC'''

== The Code ==

:ClrHome
:1→X:1→Y
:DelVar [B]{8,16→dim([B]
:6→[B](randInt(2,7),15
:6→[B](randInt(2,7),14
:For(A,1,8
:6→[B](A,randInt(2,15
:End
:1→[B](4,16
:Output(Y,X,">
:Output(4,16,"*
:Repeat [B](Y,X
:Repeat Ans
:getKey→G
:End
:Output(Y,X," // 1 space
:X-(G=24 and X>1)+(G=26 and X<16→X
:Y-(G=25 and Y>1)+(G=34 and Y<8→Y
:Output(Y,X,">
:End
:ClrHome
:"YOU "+sub("WIN!!LOSE!",[B](Y,X),5

== The Download ==

In case you want to try the program on your calculator, you can download the program in .8xp format.

* [http://tibasicdev.wikidot.com/local--files/mine-field/minefield.zip Mine Field][[Category:TI-BASIC]]
[[Category:TIBD]]

TI-BASIC:Mine Field - Revision history

Maintenance script: Automated internal link correction

Maintenance script: Initial automated import