forked from paxed/Rodney
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathnhconst.pm
More file actions
63 lines (55 loc) · 1.71 KB
/
nhconst.pm
File metadata and controls
63 lines (55 loc) · 1.71 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
package nhconst;
our @roles = ('Arc', 'Bar', 'Cav', 'Hea', 'Kni', 'Mon', 'Pri', 'Rog', 'Ran', 'Sam', 'Tou', 'Val', 'Wiz');
our @races = ('Hum', 'Elf', 'Dwa', 'Orc', 'Gno');
our @aligns = ('Law', 'Neu', 'Cha');
our @genders = ('Mal', 'Fem');
our @BUC = ('blessed', 'uncursed', 'cursed');
our @roles_long = ('archeologist', 'barbarian', 'caveman', 'healer', 'knight', 'monk', 'priest', 'rogue', 'ranger', 'samurai', 'tourist', 'valkyrie', 'wizard');
our @races_long = ('human', 'elf', 'dwarf', 'orc', 'gnome');
our @aligns_long = ('lawful', 'neutral', 'chaotic');
our @genders_long = ('male', 'female');
our %dnums = (
0 => "Dungeons",
1 => "Gehennom",
2 => "Mines",
3 => "Quest",
4 => "Soko",
5 => "Ludios",
6 => "Vlad",
7 => "Planes",
-5 => "Astral",
-4 => "Water",
-3 => "Fire",
-2 => "Air",
-1 => "Earth");
our %dnums_short = (
0 => "Dng",
1 => "Geh",
2 => "Min",
3 => "Que",
4 => "Sok",
5 => "Lud",
6 => "Vld",
7 => "Planes",
-5 => "Astral",
-4 => "Water",
-3 => "Fire",
-2 => "Air",
-1 => "Earth");
our %gods = (
'arc' => ["Quetzalcoatl", "Camaxtli", "Huhetotl"],
'bar' => ["Mitra", "Crom", "Set"],
'cav' => ["Anu", "_Ishtar", "Anshar"],
'hea' => ["_Athena", "Hermes", "Poseidon"],
'kni' => ["Lugh", "_Brigit", "Manannan Mac Lir"],
'mon' => ["Shan Lai Ching", "Chih Sung-tzu", "Huan Ti"],
'pri' => [undef, undef, undef],
'rog' => ["Issek", "Mog", "Kos"],
'ran' => ["Mercury", "_Venus", "Mars"],
'sam' => ["_Amaterasu Omikami", "Raijin", "Susanowo"],
'tou' => ["Blind Io", "_The Lady", "Offler"],
'val' => ["Tyr", "Odin", "Loki"],
'wiz' => ["Ptah", "Thoth", "Anhur"]
);
1;
__END__