curse.io

#!/usr/bin/env io
##############################################################################
# Shakespearian Curse Generator -- Based on lists compiled by Jerry Maguire, #
#     English teacher at Center Grove High School in Greenwood, Indiana.     #
# Public domain implementations by Trevor Stone http://trevorstone.org/curse #
##############################################################################

Random setSeed(Date now asNumber)

# WordList's string representation is a random word from a list
WordList := List clone
WordList asString := method(anyOne)

# lists of curse components
adjective1 := WordList with("artless", "bawdy", "beslubbering", "bootless",
    "brazen", "churlish", "cockered", "clouted", "craven", "currish", "dankish",
    "dissembling", "distempered", "droning", "errant", "fawning", "fitful",
    "fobbing", "froward", "frothy", "gleeking", "gnarling", "goatish",
    "gorbellied", "greasy", "grizzled", "haughty", "hideous", "impertinent",
    "infectious", "jaded", "jarring", "knavish", "lewd", "loggerheaded",
    "lumpish", "mammering", "mangled", "mewling", "paunchy", "peevish",
    "pernicious", "prating", "pribbling", "puking", "puny", "purpled",
    "quailing", "queasy", "rank", "reeky", "roguish", "roynish", "ruttish",
    "saucy", "sottish", "spleeny", "spongy", "surly", "tottering", "unmuzzled",
    "vacant", "vain", "venomed", "villainous", "waggish", "wanton", "warped",
    "wayward", "weedy", "wenching", "whoreson", "yeasty")

adjective2 := WordList with("base-court", "bat-fowling", "beef-witted",
    "beetle-headed", "boil-brained", "bunched-backed", "clapper-clawed",
    "clay-brained", "common-kissing", "crook-pated", "dismal-dreaming",
    "dizzy-eyed", "dog-hearted", "dread-bolted", "earth-vexing", "elf-skinned",
    "empty-hearted", "evil-eyed", "eye-offending", "fat-kidneyed", "fen-sucked",
    "flap-mouthed", "fly-bitten", "folly-fallen", "fool-born", "full-gorged",
    "guts-griping", "half-faced", "hasty-witted", "heavy-handed", "hedge-born",
    "hell-hated", "horn-mad", "idle-headed", "ill-breeding", "ill-composed",
    "ill-nurtured", "iron-witted", "knotty-pated", "lean-witted",
    "lily-livered", "mad-bread", "milk-livered", "motley-minded",
    "muddy-mettled", "onion-eyed", "pale-hearted", "paper-faced",
    "pinch-spotted", "plume-plucked", "pottle-deep", "pox-marked", "raw-boned",
    "reeling-ripe", "rough-hewn", "rude-growing", "rug-headed", "rump-fed",
    "shag-eared", "shard-borne", "sheep-biting", "shrill-gorged", "spur-galled",
    "sour-faced", "swag-bellied", "tardy-gaited", "tickle-brained",
    "toad-spotted", "unchin-snouted", "weak-hinged", "weather-bitten",
    "white-livered")

noun := WordList with("apple-john", "baggage", "barnacle", "bladder",
    "boar-pig", "bugbear", "bum-bailey", "canker-blossom", "clack-dish",
    "clotpole", "coxcomb", "codpiece", "crutch", "cutpurse", "death-token",
    "dewberry", "dogfish", "egg-shell", "flap-dragon", "flax-wench",
    "flirt-gill", "foot-licker", "fustilarian", "giglet", "gudgeon",
    "gull-catcher", "haggard", "harpy", "hedge-pig", "hempseed",
    "horn-beast", "hugger-mugger", "jack-a-nape", "jolthead", "lewdster",
    "lout", "maggot-pie", "malignancy", "malkin", "malt-worm", "mammet",
    "manikin", "measle", "minimus", "minnow", "miscreant", "moldwarp",
    "mumble-news", "nut-hook", "pantaloon", "pigeon-egg", "pignut", "puttock",
    "pumpion", "rabbit-sucker", "rampallion", "ratsbane", "remnant", "rudesby",
    "ruffian", "scantling", "scullion", "scut", "skainsmate", "snipe",
    "strumpet", "varlot", "vassal", "waterfly", "whey-face", "whipster",
    "wagtail", "younker")

# "function" to generate one curse
curse := block("Thou " .. adjective1 .. " " .. adjective2 .. " " .. noun .. "!")

# curse.io n will print n curses, without arguments will prompt user
# first arg is script name
if (System args size > 1, System args at(1) asNumber repeat(curse call println),
  "Number of curses: " print;
  File standardInput readLine asString asNumber repeat(curse call println))