Hunt the Wumpus: Difference between revisions

'''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|FORTRAN}}==

This code names rooms by alphabetic character, thereby making use of index function and simplifying the input to single characters. Compiled with gfortran, source compatible with FORTRAN 2008. You're welcome to move this content to a separate webpage.

Makefile

# gnu make

%.o: %.f08

gfortran -std=f2008 -c $(FFLAGS) $< -o $@

The paint subroutine is a place-holder where is envisioned to place additional symbols representing possible hazards and determined hazards. With ANSI graphics or actual pictures. Source:

! compilation, linux. Filename htw.f90

! a=./htw && make $a && $a

end program htw

short sample run

<pre>

=={{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}}==

=={{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|Swift}}==

{{trans|Go}}

import Foundation

game()

=={{header|Wren}}==

{{libheader|Wren-ioutil}}

{{libheader|Wren-str}}

import "/fmt" for Fmt

import "/ioutil" for Input

}

}