X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=gh.pl;fp=gh.pl;h=0000000000000000000000000000000000000000;hb=3861ae43ef5e739e26b5803297f8cf5a960e21dc;hp=6415800ae71c67b065e8afb271fed12de8803134;hpb=724ecd13809373c2e0f93c96d55b78987a4780eb;p=grue-hunter.git

diff --git a/gh.pl b/gh.pl
deleted file mode 100755
index 6415800..0000000
--- a/gh.pl
+++ /dev/null
@@ -1,704 +0,0 @@
-#!/usr/bin/perl
-#
-# This file is part of Grue Hunter.
-#
-# Copyright (C) 2013 Jason Self <j@jxself.org>
-#
-# Grue Hunter gives you software freedom; you can copy, modify, convey,
-# and/or redistribute it under the terms of the GNU Affero General Public
-# License as published by the Free Software Foundation; either version 3 of 
-# the License, or (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 
-# FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License 
-# for more details.
-#
-# You should have received a copy of the GNU Affero General Public License 
-# along with this program in a file called 'AGPLv3.txt'. If not, see
-# http://www.gnu.org/licenses/agpl-3.0-standalone.html or write to the: Free
-# Software Foundation, Inc., 51 Franklin St, Fifth Floor Boston, MA 
-# 02110-1301, USA.
-
-use strict;
-use warnings;
-
-my $instructions =  <<INSTRUCTIONS;
-\033[2J
-\033[0;0H
-Grue Hunter version 1.0
-Homepage: http://jxself.org/grue-hunter.shtml
-Copyright (C) 2013 Jason Self <j\@jxself.org>
-
-Grue Hunter gives you software freedom; you can copy, modify, convey,
-and/or redistribute it under the terms of the GNU Affero General Public
-License as published by the Free Software Foundation; either version 3 of
-the License, or (at your option) any later version.
-
-You should have received a copy of the GNU Affero General Public License
-along with this program in a file called 'AGPLv3.txt'. If not, see
-http://www.gnu.org/licenses/
-%
-\033[2J
-\033[0;0H
-In this game you are a brave hunter. You are going to enter an underground 
-cave system in search of the Grue. If you can capture the Grue and get out 
-alive you will win the game.
-%
-Once in the cave system you can move around or shoot an arrow using the 
-commands 'move' and 'shoot' and any of the four compass directions. You can 
-also shorten the commands to 'm' and 's' and the directions to 'n', 's', 'e', 
-and 'w' for brevity. You may enter 'quit' or 'q' to end the game at any time.
-%
-But... There are other things in this cave system. Giant bats can pick you up 
-and drop you elsewhere. There are also bottomless pits. If you fall into one 
-of these you will never get out. There is also the Grue itself. Though not an 
-aggressive creature, it will eat you if you come too close. There are also 
-earthquakes that move things around (the bats, the bottomless pits, the Grue, 
-and the exit.)
-INSTRUCTIONS
-
-my $space = <<SPACE;
-The room here slopes downward. Old candles are scattered across the floor.
-An old fountain sits in the middle of the room. It is covered in rubble and dirt. A toppled statue lies to the right.
-The walls here are smooth. There is an old anvil here.
-The walls contain claw marks and some sort of graffiti in a language you cannot read. A crack in the ceiling above the middle of the north wall allows a trickle of water to flow down to the floor. The water pools near the base of the wall, and a rivulet runs along the wall and out into the hall. The water smells fresh.
-You push a heavy stone door open, revealing a room with pillars lining the wall. Several square holes have been cut into the walls.
-Stalactites drip down from the ceiling in sharp points while flowstone makes strange shapes on the floor. Rusting spikes line the walls.
-This room smells of rotting vegetation. Burning torches in iron sconces line the walls.
-The scent of smoke fills the room. A small hole to your left attracts your attention; but it is too small to be of any concern.
-A stream of oil flows from one side of the room to the other, in a small rut in the floor. There is a mysterious stain on the wall.
-This is the center of a narrow passage that connects other rooms. This room is about average size; but is filled with a pungent aroma that is very nauseating.
-There are cracks in the floor here. It is foggy, making it difficult to see.
-Thick cobwebs fill the corners of this room and wisps of webbing hang from the ceiling, wavering in a wind you can't feel. You notice a light humming sound.
-The floor is damp and looks quite slippery. You will need to be very careful here. A haze of smoke hangs in the air.
-This is a very large room with a large boulder in the center of it. Part of the wall has collapsed into this room.
-Several pieces of rotten fruit are scatted throughout the area. A hole has been dug into the wall. After looking inside you see that it doesn’t go anywhere.
-This room is very dusty, and you see footprints set in the dust. There are spiders on the walls.
-The passageway is very low; but if we crawl we can make it. After coming through the other side you see a stone stairway that goes up to the wall, where it abruptly ends.
-As you enter the room part of the ceiling collapses but you jump out of the way in time to avoid getting hurt. Duck your head in here; as large rock stalactites hang from the ceiling.
-This area is covered in rubble and dirt. There is a puddle and scraps of wood here.
-The floor is covered with sand and pottery shards.
-The walls have been engraved with geometric patterns. Fog gathers and swirls on the floor, concealing it.
-There is a salty, wet smell to this area. A small hole in the ceiling lets light from outside through ... But you would never fit through it.
-There are bones and several piece of rotting wood scattered here.
-It is misty here. Several empty flasks are scattered throughout the area.
-Rats run past you, in the direction you just came from. The floor here is covered in perfect hexagonal tiles.
-There are strange looking yellow stones here. Water drips through the ceiling.
-Your nostrils are overwhelmed by a sulphurous smell. The ceiling here is damp.
-Grime and filth smear this room. This area is filled with stalactites and stalagmites.
-This is a very dirty room; it was partially filled in by the last earthquake that hit. A slight breeze blows through this area.
-A shallow pit sits in the center of the room. The walls here have been engraved with spiral patterns.
-This cavern has a high, domed ceiling. There is a mold growing here.
-A slight, damp breeze blows through this area. This rooms smells of mildew.
-This area is very dusty. A dry well sits in the center of the room.
-As you enter this room some small rocks fall from the ceiling. Several broken arrows are scatted about.
-You are in a small passageway. The walls, ceiling and floor are composed of a smooth black stone. Illuminating your way is a silvery white glow coming from two long grooves midway up each wall that run the length of the passageway.
-You hear an eerie sound. Jagged steel blades project from cracks in the walls.
-Someone has scrawled the drawing of a door on the wall. A haze of dust hangs in the air.
-The walls are covered in slime. There is broken glass on the ground.
-There is a green slime on the floor. This room is very small; but I think we can make it through ok. 
-There is a stale smell here. Your steps echo here.
-This large room is illuminated by a low-burning fire pit. There is an iron sconce on the wall, but the torch has been removed.
-A rivulet of water slowly trickles from a hole in the wall. A narrow pit covered by iron bars lies in the center of the room.
-Several empty bottles lie on the floor. Water drips from the ceiling, landing on your head.
-You are in a low depression in the center of a medium-sized room. A flurry of bats suddenly fly past you as you enter. Their screeching fills your ears.
-Someone has left a lighted torch on the wall and it illuminates your passage. A liquid-filled pit sits in the center of the room and is so murky that you can't see its bottom. The room smells sour.
-This area is only a few feet high, but crawling on your stomach you make it through. You notice centipedes crawling along the wall.
-A rattling noise abruptly stops when you enter. Black mold grows on the walls and parts of the floor.
-You are in a small room with rocks and debris scattered everywhere. Part of the here ceiling has collapsed.
-A huge iron cage lies on its side in this room, and its gate rests open on the floor. A broken chain lies on the floor. This room has sour odor, like something rotten or fermented.
-An iron chandelier hangs from the ceiling. A old wooden barrel lies on its side, mostly collapsed.
-SPACE
-
-# Constants
-my $NORTH = 1;
-my $SOUTH = 2;
-my $EAST = 3;
-my $WEST = 4;
-
-# Update this constant to increase the number of rooms in the game.
-my $MAX_ROOMS = 50;
-
-# Update this constant if more room descriptions are added.
-my $MAX_ROOM_DESCRIPTIONS = 50;
-
-my $MAX_LINK_COUNT = 4;
-my $EARTHQUAKE = 3;
-my $EARTHQUAKE_CHANCE = 14;
-my $EVEN_CHANCE = 2;
-my $PIT_CHANCE = 32;
-
-my $SET = 1;
-my $RESET = 0;
-
-my $CLOSED = -1;
-my $GRUE = -2;
-my $EXIT = -3;
-my $BAT1 = -4;
-my $BAT2 = -5;
-my $PIT1 = -6;
-my $PIT2 = -7;
-
-# Game State
-my $grue_location = $CLOSED;
-my $exit_location = $CLOSED;
-my $bat1_location = $CLOSED;
-my $bat2_location = $CLOSED;
-my $pit1_location = $CLOSED;
-my $pit2_location = $CLOSED;
-my $player_location = $CLOSED;
-my $grue_bagged = 0;
-
-# Game Space
-my @rooms = ();
-
-sub randomize_rooms {
-	my @room_descriptions = split(/\n/, $space);
-	my %random_hash = ();
-	my $random_room = 0;
-	my $random_room_description = 0;
-	
-	for (my $i = 0; $i < $MAX_ROOMS;) {
-		$random_room = int(rand($MAX_ROOMS));
-		$random_room_description = int(rand($MAX_ROOM_DESCRIPTIONS));
-		
-		if (!$random_hash{$random_room}) {
-			$random_hash{$random_room} = 1;
-			my %room = ();
-			$room{'description'} = $room_descriptions[$random_room_description];
-			$room{$NORTH} = $CLOSED;
-			$room{$SOUTH} = $CLOSED;
-			$room{$EAST} = $CLOSED;
-			$room{$WEST} = $CLOSED;
-			$room{'link_count'} = 0;
-			$rooms[$i] = \%room;
-			$i++;
-		}
-	}
-}
-
-sub connect_rooms {
-	my $current_link_count = 0;
-	my $random_link_count = 0;
-	my $rooms_left_to_link = 0;
-	my $room_direction_state = 0;
-	my $next_room = 0;
-	
-	for (my $i = 0; $i < $MAX_ROOMS;) {
-	
-		# Take into consideration current link count and get random link count.
-		$current_link_count = $rooms[$i] -> {'link_count'};
-		if ($current_link_count < $MAX_LINK_COUNT) {
-			$random_link_count = int(rand($MAX_LINK_COUNT - $current_link_count)) + 1;
-			
-			# Check that there are enough rooms left to link. If there are not
-			# then substitute the random link count with the rooms left to link.
-			$rooms_left_to_link = $MAX_ROOMS - $i;
-			if ($random_link_count >= $rooms_left_to_link) {
-				$random_link_count = $rooms_left_to_link;
-			}
-		}
-		
-		# If the room is fully linked then set the random link count to 0.
-		else {
-			$random_link_count = 0;
-		}
-		
-		# For each room create links upto a random link count by going through
-		# the vacant compass directions.
-		for (my $j = 0; $j < $random_link_count; $j++) {
-			for (my $k = 1; $k < 5; $k++) {
-				if ($i < $MAX_ROOMS) {
-					$room_direction_state = $rooms[$i] -> {$k};
-					if ($room_direction_state == $CLOSED) {
-						$next_room = $i + 1;
-						if ($next_room < $MAX_ROOMS) {
-							$rooms[$i] -> {$k} = $next_room;
-							$rooms[$next_room] -> {opposite($k)} = $i;
-						}
-						$i = $next_room;
-					}
-				}
-			}
-		}
-	}
-}
-
-sub place_directional_object {
-	my $room_number = shift;
-	my $object = shift;
-	my $direction;
-	
-	# Get a random direction and set the object in a random room direction.
-	$direction = int(rand(3)) + 1;
-	$rooms[$room_number] -> {$direction} = $object;
-	
-	# Update the room's link count
-	($rooms[$room_number] -> {'link_count'})++;
-
-	if ($object == $GRUE) {
-		$grue_location = $room_number;
-	}
-	elsif ($object == $EXIT) {
-		$exit_location = $room_number;
-	}
-	elsif ($object == $PIT1) {
-		$pit1_location = $room_number;
-	}
-	elsif ($object == $PIT2) {
-		$pit2_location = $room_number;
-	}
-}
-
-sub get_random_rooms {
-	my $number_of_rooms = shift;
-	my $random_num = 0;
-	my %random_hash = ();
-	my @room_numbers = ();
-
-	for (my $i = 0; $i < $number_of_rooms;) {
-		$random_num = int(rand($MAX_ROOMS));
-		
-		if (!$random_hash{$random_num}) {
-			$random_hash{$random_num} = 1;
-			$room_numbers[$i] = $random_num;
-			$i++;
-		}
-	}
-	return \@room_numbers;
-}
-
-sub set_state {
-	my $set = shift;
-	my $number_of_rooms;
-	my $room_numbers;
-	
-	if ($grue_bagged) {
-		$number_of_rooms = 5;
-	}
-	else {
-		$number_of_rooms = 6;
-	}
-	
-	$room_numbers = get_random_rooms($number_of_rooms);
-	
-	# Bats are non-directional objects and are placed in rooms. Since they are
-	# non-directional they do not occupy a compass direction and do not add to the
-	# room's link count. They are simply assigned to the Game State variables.
-	$bat1_location = @$room_numbers[0];
-	$bat2_location = @$room_numbers[1];
-	
-	# The Grue, Pits and Exit are directional objects, placed in rooms. They
-	# are directional they occupy compass dirctions and are added to the room's
-	# link count. In addition they are assigned to the Game State variables. The
-	# Grue is only placed in a room again if it has not been bagged.
-	place_directional_object(@$room_numbers[2], $PIT1);
-	place_directional_object(@$room_numbers[3], $PIT2);
-	place_directional_object(@$room_numbers[4], $EXIT);
-	if (!$grue_bagged) {
-		place_directional_object(@$room_numbers[5], $GRUE);
-	}
-	# If the game state is being set for the first time, then the player's
-	# location is set to the same location as the Exit.
-	if ($set) {
-		$player_location = @$room_numbers[4];
-	}
-}
-
-sub opposite {
-	my $direction = shift;
-	
-	if ($direction == $NORTH) {
-		return $SOUTH;
-	}
-	elsif ($direction == $SOUTH) {
-		return $NORTH;
-	}
-	elsif ($direction == $EAST) {
-		return $WEST;
-	}
-	elsif ($direction == $WEST) {
-		return $EAST;
-	}
-	else {
-		return 0;
-	}
-}
-
-sub action_handler {
-	my ($action, $sub_action) = @_;
-	my $action_success = 0;
-	
-	if (defined $action) {
-		$action = lc($action);
-	
-		# If the sub action (direction) is defined.
-		if (defined $sub_action) {
-			$sub_action = lc($sub_action);
-			
-			# If sub action (direction) is a valid direction.
-			if (is_direction($sub_action)) {
-				if ($sub_action eq 'q' || $action eq 'quit') {
-					quit();
-				}
-				elsif ($action eq 'm' || $action eq 'move') {
-					move_player($sub_action);
-					$action_success = 1;
-				}
-				elsif ($action eq 's' || $action eq 'shoot') {
-					shoot($sub_action);
-					$action_success = 1; 
-				}
-			}
-			
-			# If the sub action (direction) is not a valid direction.
-			else {
-				print "Enter 'N', 'S', 'E' OR 'W'.\n";
-				if ($action eq 'm' || $action eq 'move') {
-					move_player();
-				}
-				elsif ($action eq 's' || $action eq 'shoot') {
-					shoot();
-				}
-			}
-			
-			if ($action_success) {
-				my $random_num = 0;
-				$random_num = int(rand($EARTHQUAKE_CHANCE));
-				
-				if ($random_num == $EARTHQUAKE) {
-					print "\n<<<EARTHQUAKE>>>\n\n";
-					randomize_rooms();
-					set_state($RESET);
-					connect_rooms();
-				}
-				
-				describe_location();
-			}
-		}
-		# If the sub action (direction) is not defined.
-		else {
-			if ($action eq 'm' || $action eq 'move') {
-				move_player();
-			}
-			elsif ($action eq 's' || $action eq 'shoot') {
-				shoot();
-			}
-			elsif ($action eq 'q' || $action eq 'quit') {
-				quit();
-			}
-		}
-	}
-}
-
-sub display_text {
-	$| = 1;
-	my $text = shift;
-	for my $word (split/%/, $text) {
-		print $word."\n";
-		print 'Press enter when ready to continue: ';
-		<STDIN>;
-	}
-	print "\033[2J";
-	print "\033[0;0H";
-	print "\t\t\t\t".'***********************'."\n";
-	print "\t\t\t\t".'***                 ***'."\n";
-        print "\t\t\t\t".'***   GRUE HUNTER   ***'."\n";
-	print "\t\t\t\t".'***                 ***'."\n";
-	print "\t\t\t\t".'***********************'."\n\n";
-}
-
-sub read_input {
-	my $action;
-	my @actions;
-	$action = <>;
-	@actions = split(/\s+/, $action);
-	return @actions;
-}
-
-sub is_direction {
-	my $direction = shift;
-	if (defined $direction) {
-		return (
-			$direction eq 'n' or
-			$direction eq 'north' or
-			$direction eq 's' or
-			$direction eq 'south' or
-			$direction eq 'e' or
-			$direction eq 'east' or
-			$direction eq 'w' or
-			$direction eq 'west' or
-			$direction eq 'q' or
-			$direction eq 'quit'
-		);
-	}
-	return '';
-}
-
-sub direction {
-	my $direction = shift;
-	
-	if ($direction == $NORTH) {
-		return 'north';
-	}
-	elsif ($direction == $SOUTH) {
-		return 'south';
-	}
-	elsif ($direction == $EAST) {
-		return 'east';
-	}
-	elsif ($direction == $WEST) {
-		return 'west';
-	}
-	else {
-		return '';
-	}
-}
-
-sub move_player {
-	my $sub_action = shift;
-	my $direction;
-	my $room_direction;
-	
-	if (defined $sub_action) {
-		if ($sub_action eq 'n' || $sub_action eq 'north') {
-			$direction = $NORTH;
-		}
-		elsif ($sub_action eq 's' || $sub_action eq 'south') {
-			$direction = $SOUTH;
-		}
-		elsif ($sub_action eq 'e' || $sub_action eq 'east') {
-			$direction = $EAST;
-		}
-		elsif ($sub_action eq 'w' || $sub_action eq 'west') {
-			$direction = $WEST;
-		}
-		
-		$room_direction = $rooms[$player_location] -> {$direction};
-		
-		# If the room that the player wants to move to is a room.
-		if ($room_direction > $CLOSED) {
-		
-			# Check if the room has a bat.
-			if ($room_direction == $bat1_location || $room_direction == $bat2_location) {
-				print "Bats have you now.\n";
-				print "They're lifting you up.\n";
-				print "Ohhhh, where are we now?\n";
-				
-				my $number_of_rooms = 2;
-				my $room_numbers = get_random_rooms($number_of_rooms);
-				
-				# Change player location (to where the bat dropped the player).
-				$player_location = @$room_numbers[0];
-				
-				# Change location of offending bat.
-				if ($room_direction == $bat1_location) {
-					$bat1_location = @$room_numbers[1];
-				}
-				else {
-					$bat2_location = @$room_numbers[1];
-				}
-			}
-			
-			# If free of bats, go ahead and move into the room.
-			else {
-				print "OK...\n";
-				$player_location = $room_direction;
-			}
-		}
-		elsif ($room_direction == $CLOSED) {
-			print "You cannot go that way.\n";
-		}
-		elsif ($room_direction == $GRUE) {
-			print "You bumped into the Grue.\n";
-			print "He ate you before you could move.\n";
-			quit();
-		}
-		elsif ($room_direction == $EXIT) {
-			if ($grue_bagged) {
-				print "You have reached the exit with your Grue.\n";
-				print "Your supper will be filling tonight for sure!\n";
-			}
-			else {
-				print "You have reached the exit without any Grue.\n";
-				print "You are sure to starve.\n";
-			}
-			quit();
-		}
-		elsif ($room_direction < $PIT1) {
-			my $pit_chance = int(rand($PIT_CHANCE));
-			if ($pit_chance) {
-				print "This room contains a bottomless pit. Part of the ground around it gave way when you entered and you almost fell in.\n";
-				print "Be more careful next time!\n";
-				$player_location = $room_direction;
-			}
-			else {
-				print "You fell into a bottomless pit.\n";
-				print "You fell a loooooong way...\n";
-				quit();
-			}
-		}
-	}
-	else {
-		my @actions;
-		print "Move which way?\n";
-		@actions = read_input();
-		action_handler('m', $actions[0]);
-	}
-}
-
-sub shoot {
-	my $sub_action = shift;
-	my $direction;
-	my $room_direction;
-	
-	if (defined $sub_action) {
-		if ($sub_action eq 'n' || $sub_action eq 'north') {
-			$direction = $NORTH;
-		}
-		elsif ($sub_action eq 's' || $sub_action eq 'south') {
-			$direction = $SOUTH;
-		}
-		elsif ($sub_action eq 'e' || $sub_action eq 'east') {
-			$direction = $EAST;
-		}
-		elsif ($sub_action eq 'w' || $sub_action eq 'west') {
-			$direction = $WEST;
-		}
-		
-		$room_direction = $rooms[$player_location] -> {$direction};
-		
-		# If the arrow was shot in a direction without the Grue.
-		if ($room_direction == $CLOSED) {
-			print "Clunk!\n";
-			print "The arrow bounced off the wall.\n";
-		}
-		# If the arrow was shot in a direction of the Grue.
-		elsif ($room_direction == $GRUE) {
-			my $shot = int(rand($EVEN_CHANCE));
-			if ($shot) {
-				print "You caught the Grue!\n";
-				print "Now to find a way out...\n";
-				$grue_bagged++;
-				
-				# Remove the Grue from the Room once bagged. Set the Grue
-				# location to an undefined state (the Grue object -2).
-				$rooms[$player_location] -> {$direction} = $CLOSED;
-				($rooms[$player_location] -> {'link_count'})--;
-				$grue_location = $GRUE;
-			}
-			else {
-				print "The arrow missed the Grue.\n";
-			}
-		}
-		else {
-			print "The arrow missed the Grue.\n";
-		}
-	}
-	else {
-		my @actions;
-		print "Shoot which way?\n";
-		@actions = read_input();
-		action_handler('s', $actions[0]);
-	}
-}
-
-sub describe_location {
-	my $room_direction;
-	
-	print $rooms[$player_location] -> {'description'} . "\n";
-# print "Player Location: $player_location\n";
-# print "Grue Location: $grue_location\n";
-# print "Bat 1 Location: $bat1_location\n";
-# print "Bat 2 Location: $bat2_location\n";
-# print "Pit 1 Location: $pit1_location\n";
-# print "Pit 2 Location: $pit2_location\n";
-# print "Exit Location: $exit_location\n";
-	
-	print 'I see passages to the ';
-	my @passages;
-	for (my $i = 1; $i < 5; $i++) {
-		$room_direction = $rooms[$player_location] -> {$i};
-		if ($room_direction != $CLOSED) {
-			push(@passages, direction($i));
-		}
-	}
-	
-	for (my $i = 0; $i < $#passages + 1; $i++) {
-		if ($i == 0) {
-			print $passages[$i];
-		}
-		elsif ($i < $#passages) {
-			print ', ' . $passages[$i];
-		}
-		elsif ($i == $#passages) {
-			print ' and ' . $passages[$i];
-		}
-	}
-	print ". Choose wisely.\n";
-	
-	# If the Grue is in the player's current location.
-	if ($player_location == $grue_location) {
-		print "I smell the Grue!\n";
-	}
-	# If either pit is in the player's current location.
-	elsif ($player_location == $pit1_location || $player_location == $pit2_location) {
-		print "I feel a draft. A bottomless pit must be nearby. Be careful not to fall in.\n";
-	}
-	# If the Exit is in the player's current location, tell the player which
-	# direction the Exit is located.
-	elsif ($player_location == $exit_location) {
-		for (my $i = 1; $i < 5; $i++) {
-			$room_direction = $rooms[$player_location] -> {$i};
-			if ($room_direction == $EXIT) {
-				print 'The exit is to the ' . direction($i) . ".\n";
-			}
-		}
-	}
-	# Check the adjacent rooms for the Exit, Grue, Bats and Pits. Here
-	# check whether the adjacent rooms are equivalent to the game state
-	# variables for the Exit, Grue, Bats and Pits.
-	else {
-		for (my $i = 1; $i < 5; $i++) {
-			$room_direction = $rooms[$player_location] -> {$i};
-			if ($room_direction > $CLOSED) {
-				if ($room_direction == $exit_location) {
-					print "Exit nearby...\n";
-				}
-				elsif ($room_direction == $grue_location) {
-					print "I smell the Grue!\n";
-				}
-				# If the room adjacent contains one of the two bats then warn the player.
-				elsif ($room_direction == $bat1_location || $room_direction == $bat2_location) {
-					print "I hear bats flying around in the distance. Be careful or they may grab you and carry you away.\n";
-				}
-				# If the room adjacent contains one of the two pits then warn the player.
-				elsif ($room_direction == $pit1_location || $room_direction == $pit2_location) {
-					print "I feel a draft. A bottomless pit must be nearby. Be careful not to fall in.\n";
-				}
-			}
-		}
-	}
-}
-
-sub quit {
-	exit;
-}
-
-sub main {
-	my @actions;
-	
-	display_text($instructions);
-	randomize_rooms();
-	set_state($SET);
-	connect_rooms();
-	describe_location();
-	while (1) {
-		print "Move or shoot?\n";
-		@actions = read_input();
-		action_handler(@actions);
-	}
-}
-
-main();