Minesweeper game: Difference between revisions

=={{header|Ada}}==

 

with Ada.Text_IO;

 

Put (The_Grid);

end;

 

=={{header|AutoHotkey}}==

Gui clone w/o graphic files but with cheats.

; (c) Dec 28, 2008 by derRaphael

; Licensed under the Terms of EUPL 1.0

- Add middle-button shortcut

- Re-license as GPL 1.3

 

[[File:Minesweeper game BASIC-256 won.png|thumb|right|Game won]]

[[File:Minesweeper game BASIC-256 lost.png|thumb|right|Game lost (green mines are those that were flagged before explosion)]]

 

fastgraphics

end if

if f[ai,aj]&2 then over = -1

 

=={{header|C}}==

 

{{libheader|curses}}

 

Unix build:

# endif

return 0;

 

===Mouse version===

Using ncurses and mouse input. Compiled with <code>gcc -lncurses -Wall -std=c99</code>. Run as <code>a.out [height] [width]</code>; your terminal needs to support mouse input, and at least 2*width + 2 columns wide. Left button clears a cell, right button toggles mine mark, middle button on a cleared cell clears all neighboring cells (or blow up if there are unmarked mines). When mine count drops to zero, click "claim victory" to win the game or blow up.

#include <locale.h>

#include <stdlib.h>

endwin();

return 0;

 

=={{header|C sharp|C#}}==

The following solution implements the required task providing GUI (Windows Forms).

 

using System.Drawing;

using System.Windows.Forms;

Application.Run(new MineSweepForm());

}

 

=={{header|C++}}==

This solution implements the required task and one more command: unknown. It is represented by a '?' that's why the flag in this solution is represented as a '!'

#include <iostream>

#include <string>

return system( "pause" );

}

{{out}}

<pre>

=={{header|Ceylon}}==

Be sure to import ceylon.random in your module.ceylon file.

 

DefaultRandom

}

}

 

=={{header|Clojure}}==

(->> (repeatedly #(rand-nth coll))

distinct

(let [[cmd & xy] (.split #" " (read-line))

[x y] (map #(Integer. %) xy)]

 

=={{header|Common Lisp}}==

((mines :initform (make-hash-table :test #'equal))

(width :initarg :width)

(return-from play-game T))))))

 

 

=={{header|D}}==

 

=={{header|EasyLang}}==

len cnt[] 56

len flag[] 56

subr initvars

.

.

.

.

color 686

.

.

.

.

state = 1

.

.

.

on mouse_down

.

on mouse_up

.

on timer

.

.

.

 

=={{header|Go}}==

{{trans|PureBasic}}

... though altered somewhat.

 

import (

}

}

 

{{out}}

=={{header|Icon}} and {{header|Unicon}}==

The following solution implements the required task and additionally error checking, and several additional commands.

 

record minefield(mask,grid,rows,cols,mines,density,marked)

MF.mask := m

write(tag) & showgrid()

 

Sample output:

6 : ....

0 marked mines and 9 mines left to be marked.</pre>

 

=={{header|J}}==

'''Solution'''

NB. =========================================================

NB. Game engine

- start a new game using the command:

fld=: MineSweeper <num columns> <num rows>

 

'''Example Usage'''

fld=: Minesweeper 6 4

=== MineSweeper ===

│***1 1*12*312*1 1*1│

└────────────────────┘

 

=={{header|Java}}==

 

 

--------------------------------- START of Main.java ---------------------------------

int input;

boolean loopEnd;

do {

{

loopEnd = false;

System.out.println("Input is invalid.");

return 0;

 

 

public class Cell{ //This entire class is quite self-explanatory. All we're really doing is setting booleans.

mine.select(x, y);

}

//Right click - marks mine

if (e.getButton() == 3)

 

 

 

=={{header|Julia}}==

Save the following code to a file (for example "minesweeper.jl") and include it in the Julia REPL to play the game.

# Minesweeper:

 

 

play()

typical game:

julia> include("minesweeper.jl")

 

ERROR: You closed the game.

 

 

=={{header|Locomotive Basic}}==

 

20 defint a-z

30 boardx=6:boardy=4

1120 next

1130 if mm=nmines then locate 5,22:print "Congratulations, you've won!":end

 

=={{header|M2000 Interpreter}}==

 

 

Module Minesweeper {

Font "Arial Black"

}

Minesweeper

 

===Mouse version===

checkwin},

reset[] :=

minecount--, "?", grid[[i, j, 2]] = "."; minecount++];

checkwin[]]}]], {i, 1, m}, {j, 1, n}], Spacings -> {0, 0}],

 

=={{header|MATLAB}}==

===Built-In Graphical Version===

 

 

===Original Graphical Version===

*Code uses <code>gca</code> and <code>gcf</code> frequently, which could possibly cause problems if user is working with multiple figure windows at once.

 

 

% Game parameters (should be modified by user)

delete(stopwatch)

delete(obj)

 

=={{header|OCaml}}==

 

exception Won

 

in

minesweeper n m percent;

 

Sample output:

 

=={{header|Perl}}==

use warnings;

use strict;

}

print "You won!\n";

 

=={{header|Phix}}==

Simple text-based console version

 

Minesweeper

disclose()

puts(1,board&"game over\n\n")

{{out}}

<pre>

=={{header|PHP}}==

This example generates webpage. It also uses JavaScript to have right-click events. Use it as CGI script.

define('MINEGRID_WIDTH', 6);

define('MINEGRID_HEIGHT', 4);

unset($_SESSION['minesweeper']);

echo '<p>Congratulations. You won :).';

 

=={{header|PicoLisp}}==

# T Hidden: Mine

# 0-8 Marked: Empty field

(showMines)

(unless (fish =T *Field)

Output:

<pre>: (minesweeper 6 4)

Works with SWI-Prolog

 

 

% Play - run the minesweeper game with a specified width and height

grid_set_xy(G, H, cell(0,0), Ng1),

expose_grid(H, Ng1, Ng2),

 

<pre>

 

=={{header|PureBasic}}==

isMine.i

display.c ;character to displays for cell, one of these {'.', '?', ' ', #)

Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()

CloseConsole()

Sample output:

<pre>h or ? - this help,

 

=={{header|Python}}==

'''

Minesweeper game.

% (len(mines.intersection(markedmines)),

len(markedmines.difference(mines)),

 

'''Sample output'''

 

=={{header|Racket}}==

#lang racket

(require math/array)

;parse failed

(run))))))

 

=={{header|Raku}}==

(formerly Perl 6)

{{works with|rakudo|2015-09-23}}

class Tile {

}

 

=={{header|Ruby}}==

Minesweeper game.

 

show_grid

end

 

=={{header|Rust}}==

 

use std::io;

}

}

 

'''Sample output'''

 

=={{header|Tcl}}==

fconfigure stdout -buffering none

 

}

 

Sample output:

<pre>

- 1 Class Module (Name it cMinesweeper)</pre>

===Code Module : ===

Option Explicit

 

Userf.Show 0, True

End Sub

 

===Code Class Module===

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!</pre>

 

Option Explicit

End If

End Sub