diablo2_unique_monster_name_generator.pl

#!/usr/bin/env perl

use strict;
use warnings;

my @pre = qw(
    Gloom
    Gray
    Dire
    Black
    Shadow
    Haze
    Wind
    Storm
    Warp
    Night
    Moon
    Star
    Pit
    Fire
    Cold
    Seethe
    Sharp
    Ash
    Blade
    Steel
    Stone
    Rust
    Mold
    Blight
    Plague
    Rot
    Ooze
    Puke
    Snot
    Bile
    Blood
    Pulse
    Gut
    Gore
    Flesh
    Bone
    Spine
    Mind
    Spirit
    Soul
    Wrath
    Grief
    Foul
    Vile
    Sin
    Chaos
    Dread
    Doom
    Bane
    Death
    Viper
    Dragon
    Devil
    Pox
    Fester
    Blister
    Pus
    Slime
    Drool
    Froth
    Sludge
    Venom
    Poison
    Break
    Shard
    Flame
    Maul
    Thirst
    Lust
);

my @suf = qw(
    Touch
    Spell
    Feast
    Wound
    Grin
    Maim
    Hack
    Bite
    Rend
    Burn
    Rip
    Kill
    Call
    Vex
    Jade
    Web
    Shield
    Killer
    Razor
    Drinker
    Shifter
    Crawler
    Dancer
    Bender
    Weaver
    Eater
    Widow
    Maggot
    Spawn
    Wight
    Grumble
    Growler
    Snarl
    Wolf
    Crow
    Hawk
    Cloud
    Bang
    Head
    Skull
    Brow
    Eye
    Maw
    Tongue
    Fang
    Horn
    Thorn
    Claw
    Fist
    Heart
    Shank
    Skin
    Wing
);

my @app = qw(
    Hammer
    Axe
    Sharp
    Jagged
    Flayer
    Slasher
    Impaler
    Hunter
    Slayer
    Mauler
    Destroyer
    Quick
    Witch
    Mad
    Wraith
    Shade
    Dead
    Unholy
    Howler
    Grim
    Dark
    Tainted
    Unclean
    Hungry
    Cold
);

printf "%s %s the %s\n", $pre[rand @pre], $suf[rand @suf], $app[rand @app];