NODE d2ca1540Re: Bot-generated insults
dlv@bwalk.dm.com (Dr.Dimitri Vulis KOTM)Mon, 7 Apr 1997 17:45:42 -0700 (PDT)
Ray Arachelian <sunder@brainlink.com> writes:
> It figures you wouldn't know any other language than BASIC, and nadly
^^^??
> written basic at that. I've seen better code written by chimpanzees.
If Ray "Arsen" Arachelian can work for Earthweb, LLP, as an "associate
network adiministrator", then I'm not surprised if they have chimpanzees
writing Java code as well.
I used to think that LISP is the best language for such apps, but wouldn't
debase it by writing a simulation of a dandruff-covered Armenian in it.
****************************************************************************
(DEF 'randomize '(LAMBDA ()
(SETQ RSEED (DTIME))
(SETQ RSEED (- RSEED (* 12345(/ RSEED 12345))))))
(DEF 'random '(LAMBDA (s)
(SETQ RSEED (+ RSEED 911))
(COND ((GT RSEED 15000) (SETQ RSEED (- RSEED 15000))))
(+ 1 (- RSEED (* s (/ RSEED s))))
))
~
(DEF 'statement '(LAMBDA ()
(SETQ R (random 020))
(COND
((EQ R 001) (PRINC "Let the games begin!"))
((EQ R 002) (PRINC "Sweet Jesus!"))
((EQ R 003) (PRINC "Not that!"))
((EQ R 004) (PRINC "At last!"))
((EQ R 005) (PRINC "Land O' Goshen!"))
((EQ R 006) (PRINC "Is that all?"))
((EQ R 007) (PRINC "Is it in?"))
((EQ R 008) (PRINC "Cheese it, the cops!"))
((EQ R 009) (PRINC "I never dreamed it could be like this!"))
((EQ R 010) (PRINC "If I do, you won't respect me!"))
((EQ R 011) (PRINC "Oh my God!"))
((EQ R 012) (PRINC "Now!"))
((EQ R 013) (PRINC "Open Sesame!"))
((EQ R 014) (PRINC "Pomade!"))
((EQ R 015) (PRINC "Harder!"))
((EQ R 016) (PRINC "Faster!"))
((EQ R 017) (PRINC "Again!"))
((EQ R 018) (PRINC "Help!"))
((EQ R 019) (PRINC "Ay de mi!"))
((EQ R 020) (PRINC "Deeper!"))
)))
(DEF 'said '(LAMBDA ()
(SETQ R (random 018))
(COND
((EQ R 001) (PRINC " cried"))
((EQ R 002) (PRINC " bellowed"))
((EQ R 003) (PRINC " yelped"))
((EQ R 004) (PRINC " croaked"))
((EQ R 005) (PRINC " growled"))
((EQ R 006) (PRINC " panted"))
((EQ R 007) (PRINC " moaned"))
((EQ R 008) (PRINC " grunted"))
((EQ R 009) (PRINC " laughed"))
((EQ R 010) (PRINC " warbled"))
((EQ R 011) (PRINC " sighed"))
((EQ R 012) (PRINC " ejaculated"))
((EQ R 013) (PRINC " whispered"))
((EQ R 014) (PRINC " stammered"))
((EQ R 015) (PRINC " wheezed"))
((EQ R 016) (PRINC " squealed"))
((EQ R 017) (PRINC " whimpered"))
((EQ R 018) (PRINC " pleaded"))
)))
(DEF 'girl '(LAMBDA ()
(SETQ R (random 011))
(COND
((EQ R 001) (PRINC "saucy baggage"))
((EQ R 002) (PRINC "wanton hussy"))
((EQ R 003) (PRINC "unfortunate woman"))
((EQ R 004) (PRINC "lust-crazed duchess"))
((EQ R 005) (PRINC "female impersonator"))
((EQ R 006) (PRINC "nine-year-old nymphomaniac"))
((EQ R 007) (PRINC "45-year-old virgin bull-dyke"))
((EQ R 008) (PRINC "leather freak"))
((EQ R 009) (PRINC "home-cumming queen"))
((EQ R 010) (PRINC "defrocked nun"))
((EQ R 011) (PRINC "bisexual budgie"))
)))
(DEF 'adj-1 '(LAMBDA ()
(SETQ R (random 014))
(COND
((EQ R 001) (PRINC "thrashing"))
((EQ R 002) (PRINC "slurping"))
((EQ R 003) (PRINC "insatiable"))
((EQ R 004) (PRINC "rabid"))
((EQ R 005) (PRINC "satanic"))
((EQ R 006) (PRINC "corpulent"))
((EQ R 007) (PRINC "nose-grooming"))
((EQ R 008) (PRINC "tripe-fondling"))
((EQ R 009) (PRINC "dribbling"))
((EQ R 010) (PRINC "spread-eagled"))
((EQ R 011) (PRINC "orally fixated"))
((EQ R 012) (PRINC "vile"))
((EQ R 013) (PRINC "awesomely endowed"))
((EQ R 014) (PRINC "strapping"))
)))
(DEF 'boy '(LAMBDA ()
(SETQ R (random 020))
(COND
((EQ R 001) (PRINC " rakehell"))
((EQ R 002) (PRINC " black panther"))
((EQ R 003) (PRINC " hunchback"))
((EQ R 004) (PRINC " friar"))
((EQ R 005) (PRINC " archduke"))
((EQ R 006) (PRINC " midget"))
((EQ R 007) (PRINC " great dane"))
((EQ R 008) (PRINC " stallion"))
((EQ R 009) (PRINC " donkey"))
((EQ R 010) (PRINC " electric eel"))
((EQ R 011) (PRINC " lecherous"))
((EQ R 012) (PRINC " lickspittle"))
((EQ R 013) (PRINC " faggot butler"))
((EQ R 014) (PRINC " paraplegic"))
((EQ R 015) (PRINC " pothead"))
((EQ R 016) (PRINC " dirty old man"))
((EQ R 017) (PRINC " black-power advocate"))
((EQ R 018) (PRINC " follicle fetishist"))
((EQ R 019) (PRINC " egg-sucking chicken flicker"))
((EQ R 020) (PRINC " hired hand"))
)))
(DEF 'verb-1 '(LAMBDA ()
(SETQ R (random 011))
(COND
((EQ R 001) (PRINC " plundered"))
((EQ R 002) (PRINC " diddled"))
((EQ R 003) (PRINC " devoured"))
((EQ R 004) (PRINC " fondled"))
((EQ R 005) (PRINC " mouthed"))
((EQ R 006) (PRINC " tongued"))
((EQ R 007) (PRINC " lashed"))
((EQ R 008) (PRINC " tweaked"))
((EQ R 009) (PRINC " violated"))
((EQ R 010) (PRINC " defiled"))
((EQ R 011) (PRINC " irrigated"))
)))
(DEF 'adj-2 '(LAMBDA ()
(SETQ R (random 012))
(COND
((EQ R 001) (PRINC "alabaster"))
((EQ R 002) (PRINC "pink-tipped"))
((EQ R 003) (PRINC "creamy"))
((EQ R 004) (PRINC "rosebud"))
((EQ R 005) (PRINC "moist"))
((EQ R 006) (PRINC "throbbing"))
((EQ R 007) (PRINC "juicy"))
((EQ R 008) (PRINC "heaving"))
((EQ R 009) (PRINC "straining"))
((EQ R 010) (PRINC "mammoth"))
((EQ R 011) (PRINC "succulent"))
((EQ R 012) (PRINC "quivering"))
)))
(DEF 'tits '(LAMBDA ()
(SETQ R (random 013))
(COND
((EQ R 001) (PRINC " schnoobies"))
((EQ R 002) (PRINC " globes"))
((EQ R 003) (PRINC " melons"))
((EQ R 004) (PRINC " mounds"))
((EQ R 005) (PRINC " buds"))
((EQ R 006) (PRINC " paps"))
((EQ R 007) (PRINC " chubbies"))
((EQ R 008) (PRINC " protruberances"))
((EQ R 009) (PRINC " treasures"))
((EQ R 010) (PRINC " bum"))
((EQ R 011) (PRINC " bung"))
((EQ R 012) (PRINC " vestibule"))
((EQ R 013) (PRINC " armpits"))
)))
(DEF 'verb-2 '(LAMBDA ()
(SETQ R (random 011))
(COND
((EQ R 001) (PRINC "plunged"))
((EQ R 002) (PRINC "thrust"))
((EQ R 003) (PRINC "squeezed"))
((EQ R 004) (PRINC "pounded"))
((EQ R 005) (PRINC "drove"))
((EQ R 006) (PRINC "eased"))
((EQ R 007) (PRINC "slid"))
((EQ R 008) (PRINC "hammered"))
((EQ R 009) (PRINC "squished"))
((EQ R 010) (PRINC "crammed"))
((EQ R 011) (PRINC "slammed"))
)))
(DEF 'adj-3 '(LAMBDA ()
(SETQ R (random 018))
(COND
((EQ R 001) (PRINC "bursting"))
((EQ R 002) (PRINC "jutting"))
((EQ R 003) (PRINC "glistening"))
((EQ R 004) (PRINC "brobdingnagian"))
((EQ R 005) (PRINC "prodigious"))
((EQ R 006) (PRINC "purple"))
((EQ R 007) (PRINC "searing"))
((EQ R 008) (PRINC "swollen"))
((EQ R 009) (PRINC "rigid"))
((EQ R 010) (PRINC "rampaging"))
((EQ R 011) (PRINC "warty"))
((EQ R 012) (PRINC "steaming"))
((EQ R 013) (PRINC "gorged"))
((EQ R 014) (PRINC "trunklike"))
((EQ R 015) (PRINC "foaming"))
((EQ R 016) (PRINC "spouting"))
((EQ R 017) (PRINC "swinish"))
((EQ R 018) (PRINC "red-hot"))
)))
(DEF 'prick '(LAMBDA ()
(SETQ R (random 024))
(COND
((EQ R 001) (PRINC " prosthesis"))
((EQ R 002) (PRINC " intruder"))
((EQ R 003) (PRINC " prong"))
((EQ R 004) (PRINC " stump"))
((EQ R 005) (PRINC " member"))
((EQ R 006) (PRINC " meatloaf"))
((EQ R 007) (PRINC " majesty"))
((EQ R 008) (PRINC " bowsprit"))
((EQ R 009) (PRINC " earthmover"))
((EQ R 010) (PRINC " jackhammer"))
((EQ R 011) (PRINC " ramrod"))
((EQ R 012) (PRINC " cod"))
((EQ R 013) (PRINC " jabber"))
((EQ R 014) (PRINC " gusher"))
((EQ R 015) (PRINC " engine"))
((EQ R 016) (PRINC " brownie"))
((EQ R 017) (PRINC " joy stick"))
((EQ R 018) (PRINC " plunger"))
((EQ R 019) (PRINC " piston"))
((EQ R 020) (PRINC " tool"))
((EQ R 021) (PRINC " manhood"))
((EQ R 022) (PRINC " lollipop"))
((EQ R 023) (PRINC " kidney prodder"))
((EQ R 043) (PRINC " device"))
)))
(DEF 'adj-4 '(LAMBDA ()
(SETQ R (random 010))
(COND
((EQ R 001) (PRINC "pulsing"))
((EQ R 002) (PRINC "hungry"))
((EQ R 003) (PRINC "hymeneal"))
((EQ R 004) (PRINC "palpitating"))
((EQ R 005) (PRINC "gaping"))
((EQ R 006) (PRINC "slavering"))
((EQ R 007) (PRINC "welcoming"))
((EQ R 008) (PRINC "glutted"))
((EQ R 009) (PRINC "gobbling"))
((EQ R 010) (PRINC "cobwebby"))
)))
(DEF 'cunt '(LAMBDA ()
(SETQ R (random 017))
(COND
((EQ R 001) (PRINC " swamp"))
((EQ R 002) (PRINC " honeypot"))
((EQ R 003) (PRINC " jam jar"))
((EQ R 004) (PRINC " butterbox"))
((EQ R 005) (PRINC " furburger"))
((EQ R 006) (PRINC " cherry pie"))
((EQ R 007) (PRINC " cush"))
((EQ R 008) (PRINC " slot"))
((EQ R 009) (PRINC " slit"))
((EQ R 010) (PRINC " cockpit"))
((EQ R 011) (PRINC " damp"))
((EQ R 012) (PRINC " furrow"))
((EQ R 013) (PRINC " sanctum sanctorum"))
((EQ R 014) (PRINC " bearded clam"))
((EQ R 015) (PRINC " continental divide"))
((EQ R 016) (PRINC " paradise valley"))
((EQ R 017) (PRINC " wanton desire"))
)))
(DEF 'smut '(LAMBDA ()
(PRINC '\") (statement) (PRINC '\") (said) (PRINC " the ") (girl)
(PRINC " as the ") (adj-1) (boy) (verb-1) (PRINC " her ") (adj-2)
(tits) (PRINC " and ") (verb-2) (PRINC " his ") (adj-3) (prick)
(PRINC " into her ") (adj-4) (cunt) (PRINC ".") (TERPRI)
))
(randomize)
****************************************************************************
~Pseudo-random 1 to s
(DEF 'randomize '(LAMBDA ()
(SETQ RSEED (DTIME))
(SETQ RSEED (- RSEED (* 12345(/ RSEED 12345))))))
(DEF 'random '(LAMBDA (s)
(SETQ RSEED (+ RSEED 911))
(COND ((GT RSEED 15000) (SETQ RSEED (- RSEED 15000))))
(+ 1 (- RSEED (* s (/ RSEED s))))
))
(DEF 'adj-phrase '(LAMBDA ()
(PROG ()
LOOP-adj
(SETQ R (random 124))
(PRINC
(COND
((EQ R 001) "stinking")
((EQ R 002) "little")
((EQ R 003) "smelly")
((EQ R 004) "ugly")
((EQ R 005) "bisexual")
((EQ R 006) "deranged")
((EQ R 007) "revolting")
((EQ R 008) "sickening")
((EQ R 009) "disgusting")
((EQ R 010) "perverted")
((EQ R 011) "stupid")
((EQ R 012) "illiterate")
((EQ R 013) "flea-bitten")
((EQ R 014) "depraved")
((EQ R 015) "uncouth")
((EQ R 016) "bad breathed")
((EQ R 017) "pitiful")
((EQ R 018) "dumpy")
((EQ R 019) "offensive")
((EQ R 020) "dim witted")
((EQ R 021) "loathsome")
((EQ R 022) "insignificant")
((EQ R 023) "blithering")
((EQ R 024) "repulsive")
((EQ R 025) "worthless")
((EQ R 026) "blundering")
((EQ R 027) "retarded")
((EQ R 028) "useless")
((EQ R 029) "obnoxious")
((EQ R 030) "low budget")
((EQ R 031) "asisine")
((EQ R 032) "neurotic")
((EQ R 033) "subhuman")
((EQ R 034) "crochety")
((EQ R 035) "indescribable")
((EQ R 036) "contemptible")
((EQ R 037) "unspeakable")
((EQ R 038) "sick")
((EQ R 039) "lazy")
((EQ R 040) "good for nothing)")
((EQ R 041) "slutty")
((EQ R 042) "spastic")
((EQ R 043) "creepy")
((EQ R 044) "sloppy")
((EQ R 045) "dumb")
((EQ R 046) "predictable")
((EQ R 047) "atrocious")
((EQ R 048) "grotesque")
((EQ R 049) "ungodly")
((EQ R 050) "feeble-minded")
((EQ R 051) "clueless")
((EQ R 052) "demented")
((EQ R 053) "bewildered")
((EQ R 054) "outrageous")
((EQ R 055) "deranged")
((EQ R 056) "confused")
((EQ R 057) "miserable")
((EQ R 058) "detestable")
((EQ R 059) "annoying")
((EQ R 060) "shameless")
((EQ R 061) "ignorant")
((EQ R 062) "despicable")
((EQ R 063) "insane")
((EQ R 064) "tiny brained")
((EQ R 065) "oblivious")
((EQ R 066) "hopeless")
((EQ R 067) "god-awful")
((EQ R 068) "bungling")
((EQ R 069) "appalling")
((EQ R 070) "lackluster")
((EQ R 071) "skaggy")
((EQ R 072) "brainless")
((EQ R 073) "boring")
((EQ R 074) "uncultivated")
((EQ R 075) "inadequate")
((EQ R 076) "inhuman")
((EQ R 077) "self-exalting")
((EQ R 078) "testy")
((EQ R 079) "irresponsible")
((EQ R 080) "mentally deficient")
((EQ R 081) "disdainful")
((EQ R 082) "friendless")
((EQ R 083) "dreadfull")
((EQ R 084) "psychotic")
((EQ R 085) "opinionated")
((EQ R 086) "monotonous")
((EQ R 087) "disgraceful")
((EQ R 088) "preposterous")
((EQ R 089) "totally tacky")
((EQ R 090) "uneducated")
((EQ R 091) "rediculous")
((EQ R 092) "double ugly")
((EQ R 093) "irrational")
((EQ R 094) "cranky")
((EQ R 095) "goofy")
((EQ R 096) "crude")
((EQ R 097) "embarrassing")
((EQ R 098) "deeply disturbed)")
((EQ R 099) "inept")
((EQ R 100) "undisciplined")
((EQ R 101) "crooked")
((EQ R 102) "pathetic")
((EQ R 103) "infantile")
((EQ R 104) "witless")
((EQ R 105) "indecent")
((EQ R 106) "infuriating")
((EQ R 107) "unimpressive")
((EQ R 108) "insufferable")
((EQ R 109) "dismal")
((EQ R 110) "erratic")
((EQ R 111) "incapable")
((EQ R 112) "hallucinating")
((EQ R 113) "pompous")
((EQ R 114) "pitiable")
((EQ R 115) "slovenly")
((EQ R 116) "laughable")
((EQ R 117) "bad tempered")
((EQ R 118) "decrepit")
((EQ R 119) "bizarre")
((EQ R 120) "driveling")
((EQ R 121) "uncultured")
((EQ R 122) "cantankerous")
((EQ R 123) "hypocritical")
((EQ R 124) "sleazy")))
(COND
( (LT(random 3) 3) (PRINC ", ") (GO LOOP-adj))
( T (PRINC " "))
))))
(DEF 'noun '(LAMBDA ()
(COND ((EQ (random 4) 1)
(SETQ R (random 15))
(PRINC
(COND
((EQ R 01) "twit")
((EQ R 02) "bastard")
((EQ R 03) "fool")
((EQ R 04) "idiot")
((EQ R 05) "cretin")
((EQ R 06) "dolt")
((EQ R 07) "moron")
((EQ R 08) "degenerate")
((EQ R 09) "mutant")
((EQ R 09) "asshole")
((EQ R 10) "imbecile")
((EQ R 11) "incompetent")
((EQ R 12) "failure")
((EQ R 13) "noncompoop")
((EQ R 14) "pothead")
((EQ R 15) "wiper of other peoples' behinds"))))
(T(SETQ R (random 30)) (PRINC (COND
((EQ R 01) "lump")
((EQ R 02) "crock")
((EQ R 03) "ball")
((EQ R 04) "mass")
((EQ R 05) "tub")
((EQ R 06) "loaf")
((EQ R 07) "bucket")
((EQ R 08) "mound")
((EQ R 09) "bunch")
((EQ R 10) "stack")
((EQ R 11) "glob")
((EQ R 12) "bag")
((EQ R 13) "heap")
((EQ R 14) "mountain")
((EQ R 15) "load")
((EQ R 16) "toilet full")
((EQ R 17) "barrel")
((EQ R 18) "sack")
((EQ R 19) "blob")
((EQ R 20) "pile")
((EQ R 21) "clump")
((EQ R 22) "shovel full")
((EQ R 23) "cake")
((EQ R 24) "bowl")
((EQ R 25) "wheelbarrel full")
((EQ R 26) "box")
((EQ R 27) "crate")
((EQ R 28) "collection")
((EQ R 29) "truckload")
((EQ R 30) "vat")
))
(PRINC " of ")
(SETQ R (random 69))
(PRINC (COND
((EQ R 01) "stale ")
((EQ R 02) "foul ")
((EQ R 03) "fossilized ")
((EQ R 04) "festering ")
((EQ R 05) "steaming ")
((EQ R 06) "gross ")
((EQ R 07) "reasty ")
((EQ R 08) "recycled ")
((EQ R 09) "mildewed ")
((EQ R 10) "raunchy ")
((EQ R 11) "putrid ")
((EQ R 12) "moldy ")
((EQ R 13) "synthetic ")
((EQ R 14) "filthy ")
((EQ R 15) "soppy ")
((EQ R 16) "radioactive ")
((EQ R 17) "infested ")
((EQ R 18) "septic ")
((EQ R 19) "crusty ")
((EQ R 20) "smelly ")
((EQ R 21) "dirty ")
((EQ R 22) "rotten ")
((EQ R 23) "crumby ")
((EQ R 24) "musty ")
((EQ R 25) "second-hand ")
((EQ R 26) "fly-covered ")
((EQ R 27) "imitation ")
((EQ R 28) "moth-eaten ")
((EQ R 29) "pureed ")
((EQ R 30) "decaying ")
((EQ R 31) "decomposed ")
((EQ R 32) "freeze dried ")
((EQ R 33) "soggy ")
((EQ R 34) "petrified ")
((EQ R 35) "seething ")
((EQ R 36) "stinking ")
((EQ R 37) "clammy ")
((EQ R 38) "dehydrated ")
((EQ R 39) "polluted ")
((EQ R 40) "lousy ")
((EQ R 41) "stenchy ")
((EQ R 42) "malignant ")
((EQ R 43) "noxious ")
((EQ R 44) "grimy ")
((EQ R 45) "fusty ")
((EQ R 46) "reeky ")
((EQ R 47) "nasty ")
((EQ R 48) "mutilated ")
((EQ R 49) "sloppy ")
((EQ R 50) "fresh ")
((EQ R 51) "gruesome ")
((EQ R 52) "foreign ")
((EQ R 53) "grisly ")
((EQ R 54) "sloshy ")
((EQ R 55) "dusky ")
((EQ R 56) "wormy ")
((EQ R 57) "mealy ")
((EQ R 58) "defective ")
((EQ R 59) "spoiled ")
((EQ R 60) "contaminated ")
((EQ R 61) "sun-ripened ")
((EQ R 62) "rancid ")
((EQ R 63) "old ")
((EQ R 64) "fermenting ")
((EQ R 65) "industrial-strength ")
((EQ R 66) "flea-bitten ")
((EQ R 67) "nauseating ")
((EQ R 68) "decomposing ")
((EQ R 69) "unimaginable ")
))
(SETQ R (random 91))
(PRINC (COND
((EQ R 01) "pig bowels")
((EQ R 02) "walrus blubber")
((EQ R 03) "dog barf")
((EQ R 04) "coyote snot")
((EQ R 05) "carp guts")
((EQ R 06) "skunk waste")
((EQ R 07) "camel fleas")
((EQ R 08) "llama spit")
((EQ R 09) "rat boogers")
((EQ R 10) "toe jam")
((EQ R 11) "maggot guts")
((EQ R 12) "dog meat")
((EQ R 13) "ear wax")
((EQ R 14) "nose nuggets")
((EQ R 15) "swine remains")
((EQ R 16) "rubbish")
((EQ R 17) "goat carcusses")
((EQ R 18) "sewage")
((EQ R 19) "zit cheese")
((EQ R 20) "vulture gizzards")
((EQ R 21) "hogwash")
((EQ R 22) "navel lint")
((EQ R 23) "gutter mud")
((EQ R 24) "leprousy scabs")
((EQ R 25) "nasal hairs")
((EQ R 26) "garbage")
((EQ R 27) "elephant plaque")
((EQ R 28) "slug slime")
((EQ R 29) "buzzard barf")
((EQ R 30) "jock straps")
((EQ R 31) "parrot droppings")
((EQ R 32) "camel manure")
((EQ R 33) "chicken guts")
((EQ R 34) "underwear")
((EQ R 35) "compost")
((EQ R 36) "pig droppings")
((EQ R 37) "rabbit raisins")
((EQ R 38) "turkey puke")
((EQ R 39) "whale waste")
((EQ R 40) "hippo vomit")
((EQ R 41) "pimple pus")
((EQ R 42) "dog phlegm")
((EQ R 43) "buffalo chips")
((EQ R 44) "weasel warts")
((EQ R 45) "shark snot")
((EQ R 46) "swamp mud")
((EQ R 47) "tripe")
((EQ R 48) "pig hickies")
((EQ R 49) "fish lips")
((EQ R 50) "cockroaches")
((EQ R 51) "dandruff flakes")
((EQ R 52) "rodent droppings")
((EQ R 53) "carrion")
((EQ R 54) "monkey zits")
((EQ R 55) "horse puckies")
((EQ R 56) "pig slop")
((EQ R 57) "sewer seepage")
((EQ R 58) "armpit hairs")
((EQ R 59) "ape puke")
((EQ R 60) "frog fat")
((EQ R 61) "bug parts")
((EQ R 62) "mule froth")
((EQ R 63) "hog livers")
((EQ R 64) "camel flops")
((EQ R 65) "sludge")
((EQ R 66) "pimple squeezings")
((EQ R 67) "toad tumors")
((EQ R 68) "sweat socks")
((EQ R 69) "bat guano")
((EQ R 70) "rat cysts")
((EQ R 71) "moose entrails")
((EQ R 72) "foot fungus")
((EQ R 73) "buzzard leavings")
((EQ R 74) "eel guts")
((EQ R 75) "maggot brains")
((EQ R 76) "sinus clots")
((EQ R 77) "stable sweepings")
((EQ R 78) "drain clogs")
((EQ R 79) "cigar butts")
((EQ R 80) "pigeon bombs")
((EQ R 81) "cow cud")
((EQ R 82) "snake innards")
((EQ R 83) "spitoon spillage")
((EQ R 84) "barf curds")
((EQ R 85) "maggot fodder")
((EQ R 86) "nose pickings")
((EQ R 87) "cow pies")
((EQ R 88) "puke lumps")
((EQ R 89) "hog swill")
((EQ R 90) "sinus drainage")
((EQ R 91) "lizard bums")
))
))))
(DEF 'directional-verb '(LAMBDA ()
(SETQ R (random 5))
(PRINC
(COND
((EQ R 1) "puke")
((EQ R 2) "vomit")
((EQ R 3) "fart")
((EQ R 4) "piss")
((EQ R 5) "shout obscenities")))))
(DEF 'direction '(LAMBDA ()
(SETQ R (random 3))
(PRINC
(COND
((EQ R 1) " at you")
((EQ R 2) " in your face")
((EQ R 2) " in your general direction")))))
(DEF 'verb-phrase '(LAMBDA ()
(SETQ R (random 5))
(COND
((EQ R 1) (directional-verb) (direction))
((EQ R 2) (PRINC "cry"))
((EQ R 3) (PRINC "weep"))
((EQ R 4) (PRINC "scream"))
((EQ R 5) (PRINC "commit gross abominations"))
)))
(DEF 'suggestion '(LAMBDA ()
(SETQ R (random 6))
(PRINC
(COND
((EQ R 1) "crawl back under a rock")
((EQ R 2) "go back whence you came from")
((EQ R 3) "die abd leave us in peace")
((EQ R 4) "go jump in a lake")
((EQ R 5) "take a long walk off a short pier")
((EQ R 6) "do yourself a favor and drop dead")
))))
(DEF 'proper-name '(LAMBDA ()
(SETQ R (random 5))
(PRINC
(COND
((EQ R 1) "Alan Turing")
((EQ R 2) "Marvin Minsky")
((EQ R 3) "Douglas Hofstadter")
((EQ R 4) "your best friend")
((EQ R 4) "a large crowd of graduate students"))
)))
(DEF 'abuse '(LAMBDA ()
(PRINC "You ") (adj-phrase) (noun) (PRINC ". ")
(SETQ RR (random 4))
(COND
((EQ RR 1) (PRINC "May ") (proper-name) (PRINC " ") (directional-verb)
(direction) (PRINC ". "))
((EQ RR 2) (PRINC "Whenever I see you, I want to ") (verb-phrase)
(PRINC ". "))
((EQ RR 3) (PRINC "Why don't you ") (suggestion) (PRINC ". "))
((EQ RR 4) (PRINC "Please, ") (suggestion) (PRINC ". "))
)))
(randomize)
---
Dr.Dimitri Vulis KOTM
Brighton Beach Boardwalk BBS, Forest Hills, N.Y.: +1-718-261-2013, 14.4Kbps
NODE e280f7ccRe: Bot-generated insults
Ray Arachelian <sunder@brainlink.com>Tue, 8 Apr 1997 09:51:32 -0700 (PDT)
On Mon, 7 Apr 1997, Dr.Dimitri Vulis KOTM wrote:
> Ray Arachelian <sunder@brainlink.com> writes:
>
> > It figures you wouldn't know any other language than BASIC, and nadly
> ^^^??
Thanks for the correction of that typo, yes, that should be >badly< not
nadly. :)
> > written basic at that. I've seen better code written by chimpanzees.
>
> If Ray "Arsen" Arachelian can work for Earthweb, LLP, as an "associate
> network adiministrator", then I'm not surprised if they have chimpanzees
> writing Java code as well.
If "Dr." Dimitri Vulis, aka "Vebis, The Great Spamholio" can work for the
KGB, then it is no wonder that Russia fell apart. Then again, the word
is that the NSA's human resources department hire by the same guidelines.
Care to share what you know about this?
> I used to think that LISP is the best language for such apps, but wouldn't
> debase it by writing a simulation of a dandruff-covered Armenian in it.
Gee Vulis, I didn't know you were Armenian!
> ****************************************************************************
<Badly KGB chimp generated LI(th)P code deleted>
Like I said, badly written chimp code, what else can be expected from
you? If indeed you wrote that code; more likely you snarffed it off some
usenet group. Its text smells suspiciously of an old IBM PC (yes, PC as
in the predecesor of the XT) program called nSults.
Further, you are lying as usual. There was never such a thing as
Earthweb LLP, there isn't now. There was Earthweb, LLC as in Limited
Liability Corporation, but of course a clueless KGB shill of your
caliber wouldn't know the difference. It's now Earthweb, Inc. (This one
free clue provided courtesy of the Clue Store. If you'd like further
clues, please call 1-900-GET-CLUE. All calls are $2.95/minute, must be
18 or older to call, or get your parents permission.)
As for the programmers Earthweb employs, I can assure you there is nary any
of the ape family. (Though some wear extremely cool beards :) And Java
they can write. But I code no Java, so I won't speak further on the issue.
Oh, and Vebis, please grab that mop behind the door and sweep the
dandruff you've left behind off the floor. I wouldn't want anyone
mistaking it for snow and trying to ski on it. Besides, I don't want to
bother calling the health department on you for such an exhuberant lack
of grooming.
=====================================Kaos=Keraunos=Kybernetos==============
.+.^.+.| Ray Arachelian | "If you're gonna die, die with your|./|\.
..\|/..|sunder@sundernet.com|boots on; If you're gonna try, just |/\|/\
<--*-->| ------------------ |stick around; Gonna cry? Just move along|\/|\/
../|\..| "A toast to Odin, |you're gonna die, you're gonna die!" |.\|/.
.+.v.+.|God of screwdrivers"| --Iron Maiden "Die With Your Boots on"|.....
======================== http://www.sundernet.com =========================
For with those which eternal lie, with strange eons even death may die.
NODE a2087deaRe: Bot-generated insults
dlv@bwalk.dm.com (Dr.Dimitri Vulis KOTM)Wed, 9 Apr 1997 15:23:24 -0700 (PDT)
Ray Arachelian <sunder@brainlink.com> writes:
> > > written basic at that. I've seen better code written by chimpanzees.
> > If Ray "Arsen" Arachelian can work for Earthweb, LLP, as an "associate
> > network adiministrator", then I'm not surprised if they have chimpanzees
> > writing Java code as well.
> As for the programmers Earthweb employs, I can assure you there is nary any
> of the ape family. (Though some wear extremely cool beards :) And Java
> they can write. But I code no Java, so I won't speak further on the issue.
No one thought you could. We already know that chimpanzees are smarter than
Amrenians. Please don't waste the bandwidth by demonstrating it yet again.
---
Dr.Dimitri Vulis KOTM
Brighton Beach Boardwalk BBS, Forest Hills, N.Y.: +1-718-261-2013, 14.4Kbps