101 lines
4.3 KiB
Perl
101 lines
4.3 KiB
Perl
#!/usr/bin/perl
|
|
#// Based on CoolNerds' Random Profound Insight Generator
|
|
#// @ http://www.coolnerds.com/webauth/jscript/profound.htm
|
|
#// Unholy lexicon and all invoked titles (c) Rob Waldie, June 98
|
|
#// --
|
|
|
|
use Irssi;
|
|
use Irssi::Irc;
|
|
|
|
@first = (
|
|
"And", "Of", "Under", "In",
|
|
"Through", "Between", "Beneath", "Beyond",
|
|
"Towards", "Into", "From", "Conquering",
|
|
"Praise", "Praising", "Storming", "Hailing",
|
|
"Beholding", "Worshipping", "Bleeding For", "Dwelling In",
|
|
"Rising From", "Descending Into", "War For", "Battling For",
|
|
"Gazing Over", "Hearing", "Blaspheming", "Crossing",
|
|
"Invoking", "Traversing", "Forever Reigns", "Conquer",
|
|
"Storm", "Hail", "Behold", "Invoke",
|
|
"Over"
|
|
);
|
|
|
|
@article = ( "a", "The" );
|
|
|
|
@adjective = (
|
|
"Black", "Hateful", "Evil", "Melancholic",
|
|
"Satanic", "Eternal", "Frostbitten", "Freezing",
|
|
"Funeral", "Blood Red", "Nocturnal", "Winter",
|
|
"Satanic", "Unholy", "Grim", "Frozen",
|
|
"Spectral", "Dead", "Grey", "Bleakest",
|
|
"Burning", "Silent", "Still", "Dark",
|
|
"Pagan", "Vast", "Mighty", "Infernal",
|
|
"Majestic", "Blasphemic", "Heathen", "Everlasting",
|
|
"Ancient", "Northern", "Antichristian", "Blazing",
|
|
"Crucified"
|
|
);
|
|
|
|
@noun1 = (
|
|
"Wood", "Forest", "Mountain", "Night",
|
|
"Realm", "Kingdom", "Dominion", "Northland",
|
|
"North", "Hell", "Underworld", "Infinity",
|
|
"Eternity", "Chasm", "Sky", "Blood",
|
|
"Wrath", "Power", "Might", "Glory",
|
|
"Forevermore", "Despair", "Shadows", "Throne",
|
|
"Fullmoon", "Cosmos", "Death", "Darkness",
|
|
"Frost", "Horizon", "Fog", "Mist",
|
|
"Hordes", "Legion", "Passage", "Blasphemy",
|
|
"Fall Of Heaven", "Death Of Christ", "Twilight", "Furnace",
|
|
"Chalice", "Sword", "Dagger", "Coffin",
|
|
"Pentagram", "Cloak", "Chant", "Scream",
|
|
"Cry", "Wolf", "Raven", "Winter",
|
|
"Demon", "Storm", "Whore", "Goat",
|
|
"Dawn", "Crucifixion", "Oath", "Pact"
|
|
);
|
|
|
|
@preposition = (
|
|
"Beyond", "Towards", "Into", "From",
|
|
"And", "Of", "Under", "In",
|
|
"Through", "Between", "Beneath", "With",
|
|
"Surrounded By", "Bewitched By", "For The Glory Of", "Over",
|
|
"In The Name Of"
|
|
);
|
|
|
|
@noun2 = (
|
|
"Woods", "Forests", "Mountains", "Night",
|
|
"Realms", "Kingdoms", "Dominions", "Northlands",
|
|
"North", "Hell", "Underworlds", "Infinity",
|
|
"Eternity", "Chasms", "Skies", "Wolves",
|
|
"Wrath", "Power", "Might", "Glory",
|
|
"Forevermore", "Despair", "Shadows", "Thrones",
|
|
"Necromancy", "Cosmos", "Death", "Darkness",
|
|
"Frosts", "Horizons", "Fog", "Mist",
|
|
"Hordes", "Legions", "Passages", "Blasphemy",
|
|
"Lust", "Sin", "Twilight", "Sodomy",
|
|
"Chalices", "Swords", "Daggers", "Coffins",
|
|
"Pentagrams", "Flagellation", "Chants", "Screams",
|
|
"Cries", "Winter", "Demons", "Witchery",
|
|
"Spellcraft", "Hellfire", "Supremecy", "Desolation",
|
|
"Light", "Storms", "Winds", "Horns",
|
|
"Damnation", "Evil", "Immortality", "Inferno",
|
|
"Spears"
|
|
);
|
|
|
|
use vars qw (@first, @article, @adjective, @noun1, @preposition, @noun2);
|
|
|
|
#//function to generate the random profundity.
|
|
sub unholybmizer {
|
|
|
|
$msg = $first[ int( rand(@first) ) ] . " ";
|
|
$msg .= $article[ int( rand(@article) ) ] . " ";
|
|
$msg .= $adjective[ int( rand(@adjective) ) ] . " ";
|
|
$msg .= $noun1[ int( rand(@noun1) ) ] . " ";
|
|
$msg .= $preposition[ int( rand(@preposition) ) ] . " ";
|
|
$msg .= $adjective[ int( rand(@adjective) ) ] . " ";
|
|
$msg .= $noun2[ int( rand(@noun2) ) ];
|
|
|
|
Irssi::active_win()->command( '/say ' . $msg );
|
|
}
|
|
|
|
Irssi::command_bind( 'unholybmizer', 'unholybmizer' );
|