1#!/usr/local/bin/perl -w
2# ----------------------------------------------------------------------------
3# "THE BEER-WARE LICENSE" (Revision 42)
4# <tobez@tobez.org> wrote this file.  As long as you retain this notice you
5# can do whatever you want with this stuff. If we meet some day, and you think
6# this stuff is worth it, you can buy me a beer in return.   Anton Berezin
7# ----------------------------------------------------------------------------
8#
9# $Id$
10#
11# A command line version of biblical curse generator
12# (http://www.shipoffools.com/curses/index.html)
13#
14# The curses are theirs, the code is theirs,
15# I just translated it from JavaScript to Perl.
16#
17# If you are offended by this script, get a life!
18#
19use strict;
20use vars qw($VERSION);
21
22$VERSION = 0.02;
23
24my @mayYou = (
25	"I pray thou shalt",
26	"I hope you will",
27	"Behold, thou shalt",
28	"May you",
29	"Thou shalt",
30	"O that thou wouldest",
31);
32
33my @haveBadThingsHappen = (
34	"have more mother-in-laws than King Solomon",
35	"be pursued into the mountains by sex-mad baboons",
36	"be whipped with a thousand scorpions",
37	"be thrown into a den of hyperactive lions",
38	"be swallowed by a whale with excessively bad breath",
39	"be smitten with all-over boils",
40	"be mocked by eunuchs",
41	"be captured by Midianite maniacs",
42	"become as popular as a boil on the king's backside",
43	"be plagued with gnats, flies and locusts",
44	"be taunted by the king's concubines",
45	"fall under a speeding chariot",
46	"be as welcome as a fart in the queen's bedchamber",
47	"accidentally insult Goliath",
48	"go about weeping and wailing in sackcloth and ashes",
49	"go on a diet of crunchy, unsweetened locusts",
50	"be trampled by a herd of stampeding pigs",
51	"be cast onto a steaming dung-heap",
52	"be turned into a pillar of salt",
53	"see your pomegranates wither",
54	"beget difficult teenagers",
55	"be kicked by an incontinent camel",
56	"crash the king's best-loved chariot",
57);
58
59my @ohYou = (
60	"thou",
61	"O thou",
62	"O ye",
63);
64
65my @ofLittleFaith = (
66	"of little faith",
67	"whose name is but dung",
68	"who art a byword for idiocy",
69	"breaker of the commandments",
70	"discourager of the brethren",
71	"wolf in sheep's clothing",
72	"sad Pharisee",
73	"armpit of Satan",
74	"irritating inhabitant of Gath",
75	"child of Jezebel",
76	"son of thunder",
77	"relative of Herod",
78	"incompetent tax-collector",
79	"lazy Babylonian",
80	"babbling Assyrian",
81	"Amalekite dog",
82	"lying Girgashite",
83	"love-crazed Gittite",
84	"creature of the pit",
85	"bull of Bashan",
86	"Mesopotomian harlot",
87	"wayward winebibber",
88	"son of a Philistine",
89	"sulphurous nonentity",
90	"love-child of Methuselah",
91	"plaything of Beelzebub",
92	"dabbler in abominations",
93	"exceedingly foolish virgin",
94	"denizen of the underworld",
95	"offspring of a squashed cockroach",
96);
97
98my @hearThis = (
99	"Listen",
100	"Hear this",
101	"Take heed",
102	"Woe unto thee",
103	"Harken",
104);
105
106sub insult
107{
108	if (0.5 < rand) {
109		return
110			"$mayYou[rand @mayYou] ".
111			"$haveBadThingsHappen[rand @haveBadThingsHappen], ".
112			"$ohYou[rand @ohYou] ".
113			"$ofLittleFaith[rand @ofLittleFaith]!\n";
114	} else {
115		return
116			"$hearThis[rand @hearThis], ".
117			"$ohYou[rand @ohYou] ".
118			"$ofLittleFaith[rand @ofLittleFaith], ".
119			"for you will ".
120			"$haveBadThingsHappen[rand @haveBadThingsHappen]!\n";
121	}
122}
123
124print insult;
125