Hunt the Wumpus: Difference between revisions

{{task|Games}}

{{Clarify_task}}

 

The rules are:

 

'''Wumpus package specification'''

procedure Start_Game;

end Wumpus;

'''Wumpus package body'''

with Ada.Text_IO; use Ada.Text_IO;

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

 

end Wumpus;

'''Main procedure'''

with Wumpus; use Wumpus;

 

Start_Game;

end Main;

 

=={{header|BASIC}}==

20 FOR I=0 TO 19: READ R(I,0),R(I,1),R(I,2): NEXT

30 INPUT "Enter a number";X: X=RND(-ABS(X))

520 DATA 4,6,14, 5,7,16, 0,6,8, 7,9,17, 1,8,10

530 DATA 9,11,18, 2,10,12, 11,13,19, 3,12,14, 5,13,15

 

=={{header|APL}}==

 

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

// constant value 2d array to represent the dodecahedron

// room structure

}

 

 

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

 

;;; File: HuntTheWumpus.lisp

 

)

(StartGame)

 

=={{header|FreeBASIC}}==

data 4,9,13,2,10,15,1,5,11,4,6,20,5,7,12,3,6,8,3,7,10,2,4,5,1,3,9,2,8,14

data 1,2,3,1,3,2,2,1,3,2,3,1,3,1,2,3,2,1

print "You have slain the Wumpus!"

print "You have won!"

 

=={{header|Go}}==

 

4. If the Wumpus wakes up and moves to an 'adjacent' room, it means a room adjacent to the Wumpus not necessarily the player.

 

import (

}

}

 

=={{header|Haskell}}==

 

import System.IO

import Data.List

putStrLn "*** HUNT THE WUMPUS ***"

putStrLn ""

 

=={{header|IS-BASIC}}==

110 RANDOMIZE

120 NUMERIC RO(1 TO 20,1 TO 3),LO(1 TO 20),WPOS

810 END DEF

820 DATA 2,6,5,3,8,1,4,10,2,5,2,3,1,14,4,15,1,7,17,6,8,7,2,9,18,8,10,9,3,11

 

=={{header|Java}}==

=={{header|Julia}}==

A translation from the original Basic, using the original Basic code and text at https://github.com/kingsawyer/wumpus/blob/master/wumpus.basic as a guide.

 

ATTENTION ALL WUMPUS LOVERS!!!

end

end

 

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

For Windows only (in Linux you hear nothing, using Wine 3.6): In Sense() you can change Print with Speech so you Hear your sense;

 

Module WumpusGame {

Print "Game: Hunt The Wumpus"

WumpusGame

 

 

=={{header|MiniScript}}==

[4,6,14], [5,7,16], [0,6,8], [7,9,17], [1,8,10],

[9,11,18], [2,10,12], [11,13,19], [3,12,14], [5,13,15],

break

end while

 

=={{header|Nim}}==

{{trans|Go}}

 

type Adjacent = array[3, int]

randomize()

var game = initGame()

 

{{out}}

=={{header|Perl}}==

Besides running in a terminal, it also can run under xinetd.

 

use strict; # see https://rosettacode.org/wiki/Hunt_the_Wumpus

}

else { print "I don't understand :(\n"; }

 

=={{header|Phix}}==

https://github.com/jburse/jekejeke-samples/raw/master/pack/games/wumpus-1.0.0.zip

 

/**

* Simple text based dungeon game in Prolog.

write(' BAT - ''BATS NEARBY'''), nl,

write(' PIT - ''I FEEL A DRAFT'''), nl, nl.

 

=={{header|Python}}==

This implementation of "Hunt the Wumpus" follows is based on the rules of the original game (see discussion page for more information). It uses python 3 syntax and the standard library random.

 

import random

 

WG.gameloop()

 

 

Example run (on a windows system):

 

D:\Workspace\rosettacode>python wumpus.py

HUNT THE WUMPUS

 

Game over!

 

To create an example for a valid edge list, navigate to the folder where you saved wumpus.py, open up a python interactive shell and do:

 

>>> import wumpus

>>> WG = wumpus.WumpusGame()

>>> print edges

[[1,2], [1,3], [1,4], [2,1], [2,5], [2,6], [3,1], ...]

 

=={{header|Racket}}==

 

#lang racket

 

(let ([current-game-state (new-game-state)])

(game-loop current-game-state)))

 

Start the game with

 

 

S 2

 

=={{header|Raku}}==

(formerly Perl 6)

 

=={{header|Red}}==

Red [

Title: "Hunt the Wumpus"

 

start

 

=={{header|Ruby}}==

 

=={{header|SenseTalk}}==

-- HUNT THE WUMPUS

-- BY GREGORY YOB

end if

end move

 

=={{Header|Shale}}==

#!/usr/local/bin/shale

 

init()

toplevel()

 

=={{header|Wren}}==

{{libheader|Wren-ioutil}}

{{libheader|Wren-str}}

 

var cave = {

}

}