Lingua::Alphabet::Phonetic::NetHack - map ASCII characters to names of NetHack items
Index
Code Index:
NAME
Lingua::Alphabet::Phonetic::NetHack - map ASCII characters to names of NetHack items
SYNOPSIS
This is a specialization of Lingua::Alphabet::Phonetic.
You should not use this module directly;
all interaction should be done with an object of type Lingua::Alphabet::Phonetic.
my $oSpeaker = new Lingua::Alphabet::Phonetic('NetHack');
NOTES
The only ASCII characters which do not have NetHack names are comma and digits 1 through 9!
SEE ALSO
BUGS
Please tell the author if you find any!
AUTHOR
Martin Thurn (mthurn@cpan.org).
LICENSE
This software is released under the same license as Perl itself.
# $Id: NetHack.pm,v 1.8 2008/09/21 13:37:22 Martin Exp $
#####################################################################
package Lingua::Alphabet::Phonetic::NetHack;
use strict;
use warnings;
use base 'Lingua::Alphabet::Phonetic';
our
$VERSION = sprintf("%d.%02d", q$Revision: 1.8 $ =~ /(\d+)\.(\d+)/o);
# First, the punctuation:
my %hash = (
' ' => 'ghost',
'!' => 'potion',
'"' => 'amulet',
'#' => 'corridor',
'$' => 'gold',
'%' => 'food',
'&' => 'demon',
"'" => 'golem',
'(' => 'tool',
')' => 'weapon',
'*' => 'gem',
'+' => 'door',
# ',' => 'unused',
'-' => 'wall',
'.' => 'floor',
'/' => 'wand',
'0' => 'iron ball',
# 1-9 here
':' => 'lizard',
';' => 'eel',
'<' => 'staircase up',
'=' => 'ring',
'>' => 'staircase down',
'?' => 'scroll',
'@' => 'human',
# A-Z here
'[' => 'armor',
'\\' => 'throne',
']' => 'mimic',
'^' => 'trap',
'_' => 'altar',
'`' => 'boulder',
# a-z here
'{' => 'fountain',
'|' => 'grave',
'}' => 'pool',
'~' => 'tail',
);
my @asLowercase = (
"ant",
"blob",
"cockatrice",
"dog",
"eye",
"cat",
"gremlin",
"humanoid",
"imp",
"jelly",
"kobold",
"leprechaun",
"mimic",
"nymph",
"orc",
"piercer",
"quadruped",
"rodent",
"spider",
"trapper",
"unicorn",
"vortex",
"worm",
"xan",
"light",
"zruty",
);
my @asUppercase = (
"angel",
"bat",
"centaur",
"dragon",
"elemental",
"fungus",
"gnome",
"giant",
"invisible monster",
"jabberwock",
"Kop",
"lich",
"mummy",
"naga",
"ogre",
"pudding",
"quantum mechanic",
"rust monster",
"snake",
"troll",
"umber hulk",
"vampire",
"wraith",
"xorn",
"ape",
"zombie",
);
map { $hash{$_} = shift @asLowercase } ('a'..'z');
map { $hash{$_} = shift @asUppercase } ('A'..'Z');
# Special cases / recover lost entries:
sub _name_of_letter
{
my $self = shift;
my $s = shift;
# print STDERR " + L::A::P::NetHack::_name_of_letter($s)\n";
# If we get more than one character, ignore the rest:
my $c = substr($s, 0, 1);
if (exists($hash{$c}))
{
return $hash{$c};
} # if
return $self->SUPER::_name_of_letter($s);
} # _name_of_letter
1;
__END__